Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clm
Commits
93162a47
Commit
93162a47
authored
Oct 27, 2003
by
John van Groningen
Browse files
system dependent parts for the macintosh
parent
0d54ab1b
Changes
2
Hide whitespace changes
Inline
Side-by-side
htoclean/htoclean source code/macintosh/htoclean_file.dcl
0 → 100644
View file @
93162a47
definition
module
htoclean_file
;
get_path_name
::
!*
World
->
(!
Bool
,!
String
,!*
World
);
wait_for_keypress
::
!*
World
->
*
World
;
DirectorySeparator
:==
':'
;
htoclean/htoclean source code/macintosh/htoclean_file.icl
0 → 100644
View file @
93162a47
implementation
module
htoclean_file
;
// for macintosh
import
StdEnv
;
DirectorySeparator
:==
':'
;
import
mac_file_selector_carbon
;
wait_for_keypress
::
!*
World
->
*
World
;
wait_for_keypress
w
#
(
stdio
,
w
)
=
stdio
w
;
stdio
=
stdio
<<<
"Press any key to exit"
;
(
ok
,
c
,
stdio
)
=
freadc
stdio
;
(
ok
,
w
)
=
fclose
stdio
w
;
=
w
;
get_path_name
::
!*
World
->
(!
Bool
,!
String
,!*
World
);
get_path_name
w
#
(
stdio_
,
w
)
=
stdio
w
;
stdio_
=
stdio_
<<<
"Select the C header file
\n
"
;
(_,
w
)
=
fclose
stdio_
w
;
=
SelectInputFile
w
;
\ No newline at end of file
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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