Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-compiler-and-rts
compiler
Commits
88ccfedc
Commit
88ccfedc
authored
Feb 11, 2002
by
Diederik van Arkel
Browse files
small macintosh/clean 2.0 fixes
parent
f543bc26
Changes
5
Hide whitespace changes
Inline
Side-by-side
main/CleanCocl.icl
View file @
88ccfedc
...
...
@@ -8,15 +8,19 @@ import cache_variable;
f
=
SwitchFusion
fusion_is_on
0
;
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
|
install_apple_event_handlers
==
0
&&
store_state
(
empty_cache
(
init_identifiers
newHeap
))<>
0
#
(
symbol_table
,
world
)
=
init_identifiers
newHeap
world
;
|
install_apple_event_handlers
==
0
&&
store_state
(
empty_cache
symbol_table
)<>
0
=
event_loop
world
;
=
world
;
{}{
...
...
main/Mac/Clean2AppleEventHandler.dcl
View file @
88ccfedc
definition
module
Clean2AppleEventHandler
;
//1.3
from
StdString
import
String
;
from
StdFile
import
Files
;
from
events
import
Event
;
//3.1
/*2.0
from StdFile import :: Files;
from events import :: Event;
0.2*/
install_apple_event_handlers
::
Int
;
HandleAppleEvent
::
!
Event
(!{#
Char
}
*
Files
->
(!
Int
,!*
Files
))
!*
Files
->
(!
Bool
,!
Bool
,!*
Files
);
...
...
main/Mac/CoclSystemDependent.dcl
View file @
88ccfedc
...
...
@@ -3,8 +3,11 @@ definition module CoclSystemDependent
//1.3
from
StdString
import
String
//3.1
from
StdFile
import
Files
//3.1
/*2.0
from StdFile import :: Files
0.2*/
PathSeparator
:==
','
...
...
main/Mac/docommand.dcl
View file @
88ccfedc
definition
module
docommand
;
//1.3
from
StdString
import
String
;
//3.1
::
*
DoCommandEnvironment
:==
Int
;
DoCommandNullTerminated
::
!
String
!
DoCommandEnvironment
->
(!
Int
,!
DoCommandEnvironment
);
main/Mac/docommand.icl
View file @
88ccfedc
implementation
module
docommand
;
//1.3
from
StdString
import
String
;
//3.1
::
*
DoCommandEnvironment
:==
Int
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment