Explorar el Código

Native requires command line option.

woollybah hace 8 años
padre
commit
b0ca9c9c08
Se han modificado 2 ficheros con 4 adiciones y 1 borrados
  1. 3 0
      options.bmx
  2. 1 1
      toker.bmx

+ 3 - 0
options.bmx

@@ -104,6 +104,7 @@ Global opt_warnover:Int = False
 ' musl libc support
 '    
 Global opt_musl:Int = False
+Global opt_native:Int = False
 
 Global opt_filepath:String
 
@@ -199,6 +200,8 @@ Function ParseArgs:String[](args:String[])
 				opt_warnover=True
 			Case "musl"
 				opt_musl=True
+			Case "n"
+				opt_native=True
 		End Select
 	
 		count:+ 1

+ 1 - 1
toker.bmx

@@ -209,7 +209,7 @@ Type TToker
 			If _tokePos<_source.Length _tokePos:+1 Else _tokeType=TOKE_STRINGLITEX
 		Else If str="'"
 			Local _tstr:String = TSTR()
-			If _tstr="!" Then
+			If _tstr="!" And opt_native Then
 		
 				_tokeType=TOKE_NATIVE