From 503f57fda79a6a7c9b1b7d734e642179459f71e3 Mon Sep 17 00:00:00 2001
From: johnvg
Date: Mon, 17 Jun 2002 15:46:50 +0000
Subject: renamed CleanCocl.icl

git-svn-id: https://svn.cs.ru.nl/repos/clean-compiler/trunk@1108 1f8540f1-abd5-4d5b-9d24-4c5ce8603e2d
---
 main/CleanCompiler2.icl | 66 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 main/CleanCompiler2.icl

diff --git a/main/CleanCompiler2.icl b/main/CleanCompiler2.icl
new file mode 100644
index 0000000..f936db7
--- /dev/null
+++ b/main/CleanCompiler2.icl
@@ -0,0 +1,66 @@
+module CleanCompiler2;
+
+import StdEnv;
+
+import cache_variable;
+
+import CoclSystemDependent,Clean2AppleEventHandler;
+//1.3
+from events import KeyDownEvent,HighLevelEvent,GetNextEvent,WaitNextEvent,Toolbox,RgnHandle;
+//3.1
+/*2.0
+from events import KeyDownEvent,HighLevelEvent,GetNextEvent,WaitNextEvent,::Toolbox,::RgnHandle;
+0.2*/
+from predef import init_identifiers;
+
+DeviceMask :== -31361;		// HighLevelEventMask+UpdateMask+ActivMask+KeyboardMask+MouseMask+OsMask+1
+
+Start world
+	# (symbol_table,world)	= init_identifiers newHeap world;
+	| install_apple_event_handlers==0 && store_state (empty_cache symbol_table)<>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
+
+Don`tCareId
+	:==	0
+
+Start :: !*World -> *World
+Start world
+	# (_, world)
+		=	StartIO [menus : SystemDependentDevices] 0 SystemDependentInitialIO world
+		with
+			menus
+				=	MenuSystem [file]
+			file
+				=	PullDownMenu Don`tCareId "File" Able
+						[MenuItem Don`tCareId "Quit" (Key 'Q') Able Quit]
+	=	world
+
+Quit :: *s (IOState *s) -> (*s, IOState *s)
+Quit s io
+	=	(s, QuitIO io)
+*/
-- 
cgit v1.2.3