fbdoc: udpate tools

- doc/fbchkdoc/mkerrlst.bas fills in the text for Ambiguous LEN or SIZE of messsage
- examples/manual/samples.bas accepts option to pass on addition compiler options to fbc
- small fix in compiler/error.bas message
- small fix to enable '-forcelang <lang>' compiler option

Author: jayrm

doc/fbchkdoc/mkerrlst.bas

@@ -31,8 +31,14 @@ end sub
 ''
 sub WriteFooterCode( byval h as integer )
 	print #h, !"print"
+	print #h, !"dim msg as string"
 	print #h, !"for i as integer = 1 to FB_WARNINGMSGS-1"
-	print #h, !"print chr(9) + \"- //\" + ltrim(str(i)) + \" \" + *warningMsgs(i).text + \"//\""
+	print #h, !"if i = FB_WARNINGMSG_AMBIGIOUSLENSIZEOF then"
+	print #h, !"msg = ""Ambiguous LEN or SIZEOF"""
+	print #h, !"else"
+	print #h, !"msg = *warningMsgs(i).text"
+	print #h, !"end if"
+	print #h, !"print chr(9) + \"- //\" + ltrim(str(i)) + \" \" + msg + \"//\""
 	print #h, !"next"
 	print #h, !"print: print: print"
 	print #h, !"for i as integer = 1 to FB_ERRMSGS-1"

examples/manual/samples.bas

@@ -390,7 +390,8 @@ function DoCompile _
 		byref sourcedir as string, _
 		byref fbc as string, _
 		byref source as string, _
-		byref target as string _
+		byref target as string, _
+		byref opts as string _
 	) as integer
 
 	dim i as integer
@@ -409,7 +410,7 @@ function DoCompile _
 
 			args = sourcedir & source
 
-			args += " -x " & sourcedir & target
+			args += " " & opts & " -x " & sourcedir & target
 
 			print fbc & " " & args
 			ret = exec( fbc, args )
@@ -662,6 +663,7 @@ dim opt_specialonly as integer
 dim dirs() as string, ndirs as integer
 dim files() as string, nfiles as integer
 dim haderror as integer
+dim extra_opts as string = ""
 
 ndirs = 0
 nfiles = 0
@@ -711,6 +713,9 @@ case else
 	print "      -error"
 	print "         Abort on first error detected"
 	print
+	print "      -opts options"
+	print "         Add options to the command line" 
+	print
 	end
 end select
 
@@ -735,6 +740,10 @@ while( command(i) > "" )
 
 		case "-error"
 			opt_error = TRUE
+		
+		case "-opts"
+			i += 1
+			extra_opts = command(i)
 
 		case else
 			print "Unrecognized option '" & command(i) & "'"
@@ -813,7 +822,7 @@ case CMD_COMPILE, CMD_CLEAN
 			target = left(files(i), len(files(i))-4) & exe_ext
 
 			if( cmd = CMD_COMPILE ) then
-				if( DoCompile( sourcedir, fbc, files(i), target ) = BUILD_FAIL ) then
+				if( DoCompile( sourcedir, fbc, files(i), target, extra_opts ) = BUILD_FAIL ) then
 					haderror = TRUE
 					if( opt_error ) then
 						exit for

src/compiler/error.bas

@@ -52,7 +52,7 @@ declare function hMakeParamDesc _
 		( 1, @"Identifier's name too big, truncated" ), _
 		( 1, @"Literal number too big, truncated" ), _
 		( 1, @"Literal string too big, truncated" ), _
-		( 0, @"UDT with pointer or var-len string fields" ), _
+		( 0, @"UDT with pointer, var-len string, or var-len array fields" ), _
 		( 0, @"Implicit variable allocation" ), _
 		( 0, @"Missing closing quote in literal string" ), _
 		( 0, @"Function result was not explicitly set" ), _

src/compiler/fbc.bas

@@ -1462,7 +1462,7 @@ dim shared as integer option_takes_argument(0 to (OPT__COUNT - 1)) = _
 	FALSE, _ '' OPT_EX
 	FALSE, _ '' OPT_EXX
 	FALSE, _ '' OPT_EXPORT
-	FALSE, _ '' OPT_FORCELANG
+	TRUE,  _ '' OPT_FORCELANG
 	TRUE , _ '' OPT_FPMODE
 	TRUE , _ '' OPT_FPU
 	FALSE, _ '' OPT_G