Rebuilt releases

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8181 8c9fc860-2736-0410-a75d-ab315db34111

Linux32/bin/Compiler.SymU

@@ -32,6 +32,7 @@ TYPE
 		srcPath, destPath: Files.FileName; 
 		replacements: SemanticChecker.Replacement; 
 		platformCallingConvention: SyntaxTree.CallingConvention; 
+		definitions: Options.Parameter; 
 	END; 
 VAR 
 	platforms: Options.Defaults; 

Linux32/bin/FoxCSharpFrontend.SymU

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 	END Frontend; 

Linux32/bin/FoxFrontend.SymU

@@ -7,7 +7,7 @@ TYPE
 		flags-: SET; 
 
 		PROCEDURE ^  & InitFrontEnd*; 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Done*(): BOOLEAN; 
 		PROCEDURE ^ Error*(): BOOLEAN; 

Linux32/bin/FoxOberonFrontend.SymU

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 		PROCEDURE ^ Done*(): BOOLEAN; 

Linux32/bin/FoxParser.SymU

@@ -1,5 +1,5 @@
 MODULE FoxParser;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics;
+	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics, Streams, Strings, StringPool;
 CONST 
 	Trace = FALSE; 
 	CascadedWithSupport = TRUE; 
@@ -7,6 +7,12 @@ TYPE
 	Position* = Scanner.Position; 
 
 	Parser* = OBJECT 
+	CONST 
+		Processing = 0; 
+		ProcessingElse = 1; 
+		Skipping = 2; 
+		Ignoring = 3; 
+		IgnoringElse = 4; 
 	VAR 
 		scanner-: Scanner.Scanner; 
 		symbol-: Scanner.Symbol; 
@@ -21,14 +27,20 @@ TYPE
 		indent: LONGINT; 
 		hasSymbol: BOOLEAN; 
 		prevPosition-: Position; 
+		conditional: WORD; 
+		conditionals: ARRAY 10 OF WORD; 
+		definitions: ARRAY 10 OF Scanner.IdentifierType; 
+		conditionalCount, definitionCount: SIZE; 
 
 		PROCEDURE ^ S(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ E(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ EE(CONST s, t: ARRAY OF CHAR); 
-		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics); 
+		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ SetLax*; 
 		PROCEDURE ^ Error(position: Position; code: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ GetNextSymbol(VAR symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ ConditionalStatement(VAR symbol: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ SkipComments(b: BOOLEAN); 
 		PROCEDURE ^ NextSymbol*; 
 		PROCEDURE ^ Token*(): LONGINT; 
@@ -97,6 +109,6 @@ TYPE
 	END Parser; 
 
 	PROCEDURE ^ AppendModifier(VAR list: SyntaxTree.Modifier; modifier: SyntaxTree.Modifier); 
-	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics): Parser; 
+	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR): Parser; 
 BEGIN
 END FoxParser.

Linux64/bin/CPUID.SymUu

@@ -121,7 +121,7 @@ TYPE
 		nasid-: LONGINT; 
 	END; 
 
-	PROCEDURE ^ CPUID(function: LONGINT; VAR peax, pebx, pecx, pedx: SET); 
+	PROCEDURE ^ CPUID(function: LONGINT; VAR eax, ebx, ecx, edx: SET); 
 	PROCEDURE ^ CpuIdSupported(): BOOLEAN; 
 	PROCEDURE ^ StandardFunction0(VAR cpuInfo: CpuInformation); 
 	PROCEDURE ^ StandardFunction1(VAR cpuInfo: CpuInformation); 

Linux64/bin/Compiler.SymUu

@@ -32,6 +32,7 @@ TYPE
 		srcPath, destPath: Files.FileName; 
 		replacements: SemanticChecker.Replacement; 
 		platformCallingConvention: SyntaxTree.CallingConvention; 
+		definitions: Options.Parameter; 
 	END; 
 VAR 
 	platforms: Options.Defaults; 

Linux64/bin/FoxCSharpFrontend.SymUu

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 	END Frontend; 

Linux64/bin/FoxFrontend.SymUu

@@ -7,7 +7,7 @@ TYPE
 		flags-: SET; 
 
 		PROCEDURE ^  & InitFrontEnd*; 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Done*(): BOOLEAN; 
 		PROCEDURE ^ Error*(): BOOLEAN; 

Linux64/bin/FoxOberonFrontend.SymUu

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 		PROCEDURE ^ Done*(): BOOLEAN; 

Linux64/bin/FoxParser.SymUu

@@ -1,5 +1,5 @@
 MODULE FoxParser;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics;
+	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics, Streams, Strings, StringPool;
 CONST 
 	Trace = FALSE; 
 	CascadedWithSupport = TRUE; 
@@ -7,6 +7,12 @@ TYPE
 	Position* = Scanner.Position; 
 
 	Parser* = OBJECT 
+	CONST 
+		Processing = 0; 
+		ProcessingElse = 1; 
+		Skipping = 2; 
+		Ignoring = 3; 
+		IgnoringElse = 4; 
 	VAR 
 		scanner-: Scanner.Scanner; 
 		symbol-: Scanner.Symbol; 
@@ -21,14 +27,20 @@ TYPE
 		indent: LONGINT; 
 		hasSymbol: BOOLEAN; 
 		prevPosition-: Position; 
+		conditional: WORD; 
+		conditionals: ARRAY 10 OF WORD; 
+		definitions: ARRAY 10 OF Scanner.IdentifierType; 
+		conditionalCount, definitionCount: SIZE; 
 
 		PROCEDURE ^ S(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ E(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ EE(CONST s, t: ARRAY OF CHAR); 
-		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics); 
+		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ SetLax*; 
 		PROCEDURE ^ Error(position: Position; code: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ GetNextSymbol(VAR symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ ConditionalStatement(VAR symbol: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ SkipComments(b: BOOLEAN); 
 		PROCEDURE ^ NextSymbol*; 
 		PROCEDURE ^ Token*(): LONGINT; 
@@ -97,6 +109,6 @@ TYPE
 	END Parser; 
 
 	PROCEDURE ^ AppendModifier(VAR list: SyntaxTree.Modifier; modifier: SyntaxTree.Modifier); 
-	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics): Parser; 
+	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR): Parser; 
 BEGIN
 END FoxParser.

Linux64/bin/Unix.SymUu

@@ -113,10 +113,16 @@ CONST
 	SA_RESTART = 268435456; 
 	SA_NODEFER = 1073741824; 
 	SA_RESETHAND = 2147483648; 
+	CLOCK_MONOTONIC* = 1; 
+	CLOCK_MONOTONIC_RAW* = 4; 
+	CLOCK_PROCESS_CPUTIME_ID* = 2; 
+	CLOCK_REALTIME* = 0; 
+	CLOCK_THREAD_CPUTIME_ID* = 3; 
 	PTHREAD_CANCEL_ENABLE = 0; 
 	PTHREAD_CANCEL_DISABLE = 1; 
 	PTHREAD_CANCEL_ASYNCHRONOUS = 0; 
 	PTHREAD_CANCEL_DEFERRED = 1; 
+	PTHREAD_BARRIER_SERIAL_THREAD* =  -1; 
 	ThreadLow* = 1; 
 	ThreadNormal* = 20; 
 	ThreadHigh* = 99; 
@@ -200,6 +206,15 @@ TYPE
 
 	argv_t* = ARRAY OF arg_t; 
 
+	Sem* = RECORD 
+		reserved1-: ARRAY 4 OF ADDRESS; 
+	END; 
+
+	Barrier* = RECORD 
+		reserved1-: ARRAY 3 OF ADDRESS; 
+		reserved2-: ARRAY 2 OF WORD; 
+	END; 
+
 	Termios* = RECORD 
 		iflags*, oflags*, cflags*, lflags*: SET32; 
 		line*: CHAR; 
@@ -271,6 +286,11 @@ TYPE
 		interval*, value*: Timeval; 
 	END; 
 
+	Timespec* = RECORD 
+		tv_sec*: LONGWORD; 
+		tv_nsec*: LONGWORD; 
+	END; 
+
 	FdSet* = ARRAY FdSetLen OF SET; 
 
 	Dirent* = POINTER {UNSAFE, UNTRACED} TO RECORD 
@@ -375,11 +395,12 @@ VAR
 	pthread_cond_destroy: PROCEDURE {C}(cond: ADDRESS):WORD; 
 	pthread_cond_wait: PROCEDURE {C}(cond: ADDRESS; mutex: ADDRESS):WORD; 
 	pthread_cond_signal: PROCEDURE {C}(cond: ADDRESS):WORD; 
-	pthread_create: PROCEDURE {C}(newthread: ADDRESS; attr: ADDRESS; start_routine: PROCEDURE {C}(arg: PROCEDURE ):ADDRESS; arg: PROCEDURE ):WORD; 
-	pthread_exit: PROCEDURE {C}(thr: ADDRESS); 
+	pthread_create-: PROCEDURE {C}(newthread: ADDRESS; attr: ADDRESS; start_routine: ADDRESS; arg: PROCEDURE ):WORD; 
+	pthread_exit-: PROCEDURE {NORETURN, C}(thr: ADDRESS); 
 	pthread_detach: PROCEDURE {C}(thr: ADDRESS); 
 	pthread_kill: PROCEDURE {C}(thr: ADDRESS; sigid: LONGINT):LONGINT; 
 	pthread_cancel: PROCEDURE {C}(thr: ADDRESS); 
+	pthread_join-: PROCEDURE {C}(thread: Thread_t; return: ADDRESS):WORD; 
 	pthread_key_create: PROCEDURE {C}(key: ADDRESS; destructor: PROCEDURE {C}(param: ADDRESS)):WORD; 
 	pthread_setspecific: PROCEDURE {C}(key: Key_t; value: ADDRESS):WORD; 
 	pthread_getspecific: PROCEDURE {C}(key: Key_t):ADDRESS; 
@@ -387,7 +408,7 @@ VAR
 	pthread_attr_setscope: PROCEDURE {C}(attr: ADDRESS; set: WORD); 
 	pthread_attr_setdetachstate: PROCEDURE {C}(attr: ADDRESS; set: WORD); 
 	pthread_attr_setstacksize: PROCEDURE {C}(attr: ADDRESS; stackSize: SIZE); 
-	pthread_self: PROCEDURE {C}():Thread_t; 
+	pthread_self-: PROCEDURE {C}():Thread_t; 
 	sched_get_priority_max: PROCEDURE {C}(policy: LONGINT):LONGINT; 
 	sched_get_priority_min: PROCEDURE {C}(policy: LONGINT):LONGINT; 
 	pthread_setschedparam: PROCEDURE {C}(thread: Thread_t; policy: LONGINT; param: ADDRESS):WORD; 
@@ -403,6 +424,15 @@ VAR
 	nanosleep: PROCEDURE {C}(req, rem: ADDRESS):LONGINT; 
 	sigaltstack: PROCEDURE {C}(ss, oss: ADDRESS):LONGINT; 
 	pthread_sigmask: PROCEDURE {C}(how: LONGINT; set: ADDRESS; oldset: ADDRESS):LONGINT; 
+	sem_init-: PROCEDURE {C}(sem: ADDRESS; pshared: WORD; value: WORD):WORD; 
+	sem_wait-: PROCEDURE {C}(sem: ADDRESS):WORD; 
+	sem_post-: PROCEDURE {C}(sem: ADDRESS):WORD; 
+	sem_destroy-: PROCEDURE {C}(sem: ADDRESS):WORD; 
+	pthread_barrier_init-: PROCEDURE {C}(barrier: ADDRESS; attr: ADDRESS; count: WORD):WORD; 
+	pthread_barrier_wait-: PROCEDURE {C}(barrier: ADDRESS):WORD; 
+	pthread_barrier_destroy-: PROCEDURE {C}(barrier: ADDRESS):WORD; 
+	pthread_getaffinity_np-: PROCEDURE {C}(thread: Thread_t; cpusetsize: SIZE; cpuset: ADDRESS):WORD; 
+	pthread_setaffinity_np-: PROCEDURE {C}(thread: Thread_t; cpusetsize: SIZE; cpuset: ADDRESS):WORD; 
 	posix_spawnp-: PROCEDURE {C}(pid: ADDRESS; path: ADDRESS; file_actions: ADDRESS; attrp: ADDRESS; argv: ADDRESS; envp: ADDRESS):LONGINT; 
 	posix_spawn-: PROCEDURE {C}(pid: ADDRESS; path: ADDRESS; file_actions: ADDRESS; attrp: ADDRESS; argv: ADDRESS; envp: ADDRESS):LONGINT; 
 	waitpid-: PROCEDURE {C}(pid: pid_t; status: ADDRESS; options: LONGINT):pid_t; 
@@ -439,7 +469,8 @@ VAR
 	alarm-: PROCEDURE {C}(ms: LONGINT):LONGINT; 
 	setitimer-: PROCEDURE {C}(which: LONGINT; VAR value, ovalue: Itimerval):LONGINT; 
 	getitimer-: PROCEDURE {C}(which: LONGINT; VAR value: Itimerval):LONGINT; 
-	clock_gettime-: PROCEDURE {C}(clk_id: LONGINT; tp: tvPtr):LONGINT; 
+	clock_gettime-: PROCEDURE {C}(clk_id: WORD; tp: ADDRESS):WORD; 
+	clock_getres-: PROCEDURE {C}(clk_id: WORD; res: ADDRESS):WORD; 
 	gettimeofday-: PROCEDURE {C}(VAR tv: Timeval; VAR tz: Timezone):LONGINT; 
 	mktime-: PROCEDURE {C}(VAR tm: Tm):LONGINT; 
 	localtime-: PROCEDURE {C}(CONST tv: Timeval):TmPtr; 

Win32/bin/Compiler.SymW

@@ -32,6 +32,7 @@ TYPE
 		srcPath, destPath: Files.FileName; 
 		replacements: SemanticChecker.Replacement; 
 		platformCallingConvention: SyntaxTree.CallingConvention; 
+		definitions: Options.Parameter; 
 	END; 
 VAR 
 	platforms: Options.Defaults; 

Win32/bin/FoxCSharpFrontend.SymW

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 	END Frontend; 

Win32/bin/FoxFrontend.SymW

@@ -7,7 +7,7 @@ TYPE
 		flags-: SET; 
 
 		PROCEDURE ^  & InitFrontEnd*; 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Done*(): BOOLEAN; 
 		PROCEDURE ^ Error*(): BOOLEAN; 

Win32/bin/FoxOberonFrontend.SymW

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 		PROCEDURE ^ Done*(): BOOLEAN; 

Win32/bin/FoxParser.SymW

@@ -1,5 +1,5 @@
 MODULE FoxParser;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics;
+	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics, Streams, Strings, StringPool;
 CONST 
 	Trace = FALSE; 
 	CascadedWithSupport = TRUE; 
@@ -7,6 +7,12 @@ TYPE
 	Position* = Scanner.Position; 
 
 	Parser* = OBJECT 
+	CONST 
+		Processing = 0; 
+		ProcessingElse = 1; 
+		Skipping = 2; 
+		Ignoring = 3; 
+		IgnoringElse = 4; 
 	VAR 
 		scanner-: Scanner.Scanner; 
 		symbol-: Scanner.Symbol; 
@@ -21,14 +27,20 @@ TYPE
 		indent: LONGINT; 
 		hasSymbol: BOOLEAN; 
 		prevPosition-: Position; 
+		conditional: WORD; 
+		conditionals: ARRAY 10 OF WORD; 
+		definitions: ARRAY 10 OF Scanner.IdentifierType; 
+		conditionalCount, definitionCount: SIZE; 
 
 		PROCEDURE ^ S(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ E(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ EE(CONST s, t: ARRAY OF CHAR); 
-		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics); 
+		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ SetLax*; 
 		PROCEDURE ^ Error(position: Position; code: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ GetNextSymbol(VAR symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ ConditionalStatement(VAR symbol: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ SkipComments(b: BOOLEAN); 
 		PROCEDURE ^ NextSymbol*; 
 		PROCEDURE ^ Token*(): LONGINT; 
@@ -97,6 +109,6 @@ TYPE
 	END Parser; 
 
 	PROCEDURE ^ AppendModifier(VAR list: SyntaxTree.Modifier; modifier: SyntaxTree.Modifier); 
-	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics): Parser; 
+	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR): Parser; 
 BEGIN
 END FoxParser.

Win64/bin/CPUID.SymWw

@@ -121,7 +121,7 @@ TYPE
 		nasid-: LONGINT; 
 	END; 
 
-	PROCEDURE ^ CPUID(function: LONGINT; VAR peax, pebx, pecx, pedx: SET); 
+	PROCEDURE ^ CPUID(function: LONGINT; VAR eax, ebx, ecx, edx: SET); 
 	PROCEDURE ^ CpuIdSupported(): BOOLEAN; 
 	PROCEDURE ^ StandardFunction0(VAR cpuInfo: CpuInformation); 
 	PROCEDURE ^ StandardFunction1(VAR cpuInfo: CpuInformation); 

Win64/bin/Compiler.SymWw

@@ -32,6 +32,7 @@ TYPE
 		srcPath, destPath: Files.FileName; 
 		replacements: SemanticChecker.Replacement; 
 		platformCallingConvention: SyntaxTree.CallingConvention; 
+		definitions: Options.Parameter; 
 	END; 
 VAR 
 	platforms: Options.Defaults; 

Win64/bin/FoxCSharpFrontend.SymWw

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 	END Frontend; 

Win64/bin/FoxFrontend.SymWw

@@ -7,7 +7,7 @@ TYPE
 		flags-: SET; 
 
 		PROCEDURE ^  & InitFrontEnd*; 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Done*(): BOOLEAN; 
 		PROCEDURE ^ Error*(): BOOLEAN; 

Win64/bin/FoxOberonFrontend.SymWw

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 		PROCEDURE ^ Done*(): BOOLEAN; 

Win64/bin/FoxParser.SymWw

@@ -1,5 +1,5 @@
 MODULE FoxParser;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics;
+	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics, Streams, Strings, StringPool;
 CONST 
 	Trace = FALSE; 
 	CascadedWithSupport = TRUE; 
@@ -7,6 +7,12 @@ TYPE
 	Position* = Scanner.Position; 
 
 	Parser* = OBJECT 
+	CONST 
+		Processing = 0; 
+		ProcessingElse = 1; 
+		Skipping = 2; 
+		Ignoring = 3; 
+		IgnoringElse = 4; 
 	VAR 
 		scanner-: Scanner.Scanner; 
 		symbol-: Scanner.Symbol; 
@@ -21,14 +27,20 @@ TYPE
 		indent: LONGINT; 
 		hasSymbol: BOOLEAN; 
 		prevPosition-: Position; 
+		conditional: WORD; 
+		conditionals: ARRAY 10 OF WORD; 
+		definitions: ARRAY 10 OF Scanner.IdentifierType; 
+		conditionalCount, definitionCount: SIZE; 
 
 		PROCEDURE ^ S(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ E(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ EE(CONST s, t: ARRAY OF CHAR); 
-		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics); 
+		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ SetLax*; 
 		PROCEDURE ^ Error(position: Position; code: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ GetNextSymbol(VAR symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ ConditionalStatement(VAR symbol: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ SkipComments(b: BOOLEAN); 
 		PROCEDURE ^ NextSymbol*; 
 		PROCEDURE ^ Token*(): LONGINT; 
@@ -97,6 +109,6 @@ TYPE
 	END Parser; 
 
 	PROCEDURE ^ AppendModifier(VAR list: SyntaxTree.Modifier; modifier: SyntaxTree.Modifier); 
-	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics): Parser; 
+	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR): Parser; 
 BEGIN
 END FoxParser.

WinAos/obg/Compiler.SymW

@@ -32,6 +32,7 @@ TYPE
 		srcPath, destPath: Files.FileName; 
 		replacements: SemanticChecker.Replacement; 
 		platformCallingConvention: SyntaxTree.CallingConvention; 
+		definitions: Options.Parameter; 
 	END; 
 VAR 
 	platforms: Options.Defaults; 

WinAos/obg/FoxCSharpFrontend.SymW

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 	END Frontend; 

WinAos/obg/FoxFrontend.SymW

@@ -7,7 +7,7 @@ TYPE
 		flags-: SET; 
 
 		PROCEDURE ^  & InitFrontEnd*; 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Done*(): BOOLEAN; 
 		PROCEDURE ^ Error*(): BOOLEAN; 

WinAos/obg/FoxOberonFrontend.SymW

@@ -6,7 +6,7 @@ TYPE
 		scanner: Scanner.Scanner; 
 		parser: Parser.Parser; 
 
-		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName: ARRAY OF CHAR; pos: LONGINT); 
+		PROCEDURE ^ Initialize*(diagnostics: Diagnostics.Diagnostics; flags: SET; reader: Streams.Reader; CONST fileName, definitions: ARRAY OF CHAR; pos: LONGINT); 
 		PROCEDURE ^ Parse*(): SyntaxTree.Module; 
 		PROCEDURE ^ Error*(): BOOLEAN; 
 		PROCEDURE ^ Done*(): BOOLEAN; 

WinAos/obg/FoxParser.SymW

@@ -1,5 +1,5 @@
 MODULE FoxParser;
-	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics;
+	IMPORT Basic := FoxBasic, Scanner := FoxScanner, D := Debugging, SyntaxTree := FoxSyntaxTree, Global := FoxGlobal, Diagnostics, Streams, Strings, StringPool;
 CONST 
 	Trace = FALSE; 
 	CascadedWithSupport = TRUE; 
@@ -7,6 +7,12 @@ TYPE
 	Position* = Scanner.Position; 
 
 	Parser* = OBJECT 
+	CONST 
+		Processing = 0; 
+		ProcessingElse = 1; 
+		Skipping = 2; 
+		Ignoring = 3; 
+		IgnoringElse = 4; 
 	VAR 
 		scanner-: Scanner.Scanner; 
 		symbol-: Scanner.Symbol; 
@@ -21,14 +27,20 @@ TYPE
 		indent: LONGINT; 
 		hasSymbol: BOOLEAN; 
 		prevPosition-: Position; 
+		conditional: WORD; 
+		conditionals: ARRAY 10 OF WORD; 
+		definitions: ARRAY 10 OF Scanner.IdentifierType; 
+		conditionalCount, definitionCount: SIZE; 
 
 		PROCEDURE ^ S(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ E(CONST s: ARRAY OF CHAR); 
 		PROCEDURE ^ EE(CONST s, t: ARRAY OF CHAR); 
-		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics); 
+		PROCEDURE ^  & Init*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR); 
 		PROCEDURE ^ Reset*; 
 		PROCEDURE ^ SetLax*; 
 		PROCEDURE ^ Error(position: Position; code: LONGINT; CONST message: ARRAY OF CHAR); 
+		PROCEDURE ^ GetNextSymbol(VAR symbol: Scanner.Symbol): BOOLEAN; 
+		PROCEDURE ^ ConditionalStatement(VAR symbol: Scanner.Symbol): BOOLEAN; 
 		PROCEDURE ^ SkipComments(b: BOOLEAN); 
 		PROCEDURE ^ NextSymbol*; 
 		PROCEDURE ^ Token*(): LONGINT; 
@@ -97,6 +109,6 @@ TYPE
 	END Parser; 
 
 	PROCEDURE ^ AppendModifier(VAR list: SyntaxTree.Modifier; modifier: SyntaxTree.Modifier); 
-	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics): Parser; 
+	PROCEDURE ^ NewParser*(scanner: Scanner.Scanner; diagnostics: Diagnostics.Diagnostics; CONST definitions: ARRAY OF CHAR): Parser; 
 BEGIN
 END FoxParser.