compiler without IO 0.8

main/CleanCocl.icl

-module CleanCocl
+module CleanCocl;
 
-import StdEnv
+import StdEnv;
+
+from compilerSwitches import SwitchFusion;
+import cache_variable;
+
+f = SwitchFusion fusion_is_on 0;
+
+import CoclSystemDependent,Clean2AppleEventHandler;
+
+from events import KeyDownEvent,HighLevelEvent,GetNextEvent,WaitNextEvent,Toolbox,RgnHandle;
+
+DeviceMask :== -31361;		// HighLevelEventMask+UpdateMask+ActivMask+KeyboardMask+MouseMask+OsMask+1
+
+Start world
+	| install_apple_event_handlers==0 && store_state empty_cache<>0
+		= event_loop world;
+		= world;
+{}{
+	event_loop world
+//		# (b,what,message,when,position1,position2,modifiers,tb) = GetNextEvent DeviceMask 0;
+		# (b,what,message,when,position1,position2,modifiers,tb) = WaitNextEvent (-1)/*DeviceMask*/ (-1) 0 0;
+		| what==KeyDownEvent
+			= world;
+		| what==HighLevelEvent
+			# event = (b,what,message,when,position1,position2,modifiers);
+			# ((ok,quit),world) = accFiles handle_apple_event world;
+			with {
+				handle_apple_event :: !*Files -> (!(!Bool,!Bool),!*Files);
+				handle_apple_event files
+					# (ok,quit,files) = HandleAppleEvent event script_handler files;
+					= ((ok,quit),files);
+			}
+			| quit
+				= world;
+				= event_loop world;
+			= event_loop world;
+}
+
+/*
 import deltaEventIO, deltaIOState
 import CoclSystemDependent
 
@@ -22,3 +60,4 @@ Start world
 Quit :: *s (IOState *s) -> (*s, IOState *s)
 Quit s io
 	=	(s, QuitIO io)
+*/