diff options
108 files changed, 153 insertions, 14727 deletions
@@ -1,3 +1,14 @@ +Objective Caml 3.08: +-------------------- + +Runtime System: +- All global identifiers are now prefixed with "caml" to avoid name clashes + with other libraries. + +Mac OS 9 Port: +- Removed all MacOS9-specific files. The Mac OS 9 port is obsolete, it + was not updated since 3.05. + Objective Caml 3.07: -------------------- @@ -1655,3 +1666,5 @@ Caml Special Light 1.06: ------------------------ * First public release. + +$Id$ diff --git a/INSTALL.MPW b/INSTALL.MPW deleted file mode 100644 index ce65b945f..000000000 --- a/INSTALL.MPW +++ /dev/null @@ -1,89 +0,0 @@ -# $Id$ - - - ### Installing Objective Caml on a Macintosh with MPW ### - - - -# This file describes how to install and recompile Objective Caml -# in the MPW environment under MacOS 7, 8, 9. For MacOS X, see -# the instructions for Unix machines in the file INSTALL. - - -# PREREQUISITES - -# You need MPW 3.5 (with MrC) and Universal Interfaces version 3.3.2 -# You need WASTE version 1.3 -# -# MPW is available from Apple's FTP site at: -# <ftp://ftp.apple.com/devworld/Tool_Chest/Core_Mac_OS_Tools/MPW_etc./> -# -# WASTE 1.3 is available from: -# <ftp://ftp.inria.fr/INRIA/caml-light/WASTE-1.3.sit.bin> - - -# INSTALLATION INSTRUCTIONS -# -# To install Objective Caml in your MPW environment, follow this script. -# Read the comments and execute the commands. If you run the commands -# without changing anything, you'll get a reasonable default configuration. - -# Before you start, you must put the WASTE 1.3 distribution folder -# into the :maccaml:WASTE: folder. - - -# Go to the directory where you found this file. - -Directory "`echo "{active}" | streamedit -e '1 replace /[:]*/ ""'`" - -# Set the O'Caml configuration files. - -Duplicate -y :config:s-MacOS.h :config:s.h -Duplicate -y :config:m-MacOS.h :config:m.h - -# Copy some useful scripts to your Commands directory. -# DoMake is absolutely needed for installation -# Characters is only needed by the executable error messages - -Duplicate :tools:DoMake :tools:Characters "{MPW}User Commands:" - -# NOTE: if you have MakeDepend from a previous version of O'Caml, you -# must remove it from "{MPW}User Commands:". It is not needed any more -# since MPW 3.5 has a MakeDepend command. - - -# Build the WASTE libraries: - -Directory ":maccaml:WASTE:WASTE 1.3 Distribution:" -DoMake -f ::Makefile WASTELib.x "{worksheet}" -Directory :::: - -# Edit ":config:config.Mac" to change the configuration. -# (mostly, the destination folders for installation) - -Open :config:config.Mac - -# Set the configuration variables. - -Execute :config:config.Mac - -# O'Caml needs an environment variable to find its library files. -# (the value is taken from the configuration variables) - -Set -e CAMLLIB "{LIBDIR}" - -# Make it persistent. - -Set CAMLLIB > "{MPW}Startup Items:OCaml" - -# Now you're all set. Build the files and install everything. -# For more explanations on these steps, see the file INSTALL. - -begin - DoMake world - DoMake bootstrap - DoMake install -end "{worksheet}" - -# If you want syntax coloring in MPW Shell, use ResEdit to copy the -# resources from :tools:keywords into the shell. diff --git a/Makefile.Mac b/Makefile.Mac deleted file mode 100644 index 9fa3f69b6..000000000 --- a/Makefile.Mac +++ /dev/null @@ -1,488 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - -# The main Makefile - -MacVersion = "Mac{MAJOR}.{MINOR}.{BUGFIX}{STAGE}{REV}" - -CAMLC = :boot:ocamlrun :boot:ocamlc -I :boot: -COMPFLAGS = {INCLUDES} -LINKFLAGS = -CAMLYACC = :boot:ocamlyacc -YACCFLAGS = -CAMLLEX = :boot:ocamlrun :boot:ocamllex -CAMLDEP = :boot:ocamlrun :tools:ocamldep -DEPFLAGS = {INCLUDES} -CAMLRUN = :byterun:ocamlrun - -INCLUDES = -I :utils: -I :parsing: -I :typing: -I :bytecomp: - -I :driver: -I :toplevel: - -UTILS = :utils:misc.cmo :utils:tbl.cmo :utils:config.cmo - :utils:clflags.cmo :utils:terminfo.cmo :utils:ccomp.cmo - :utils:warnings.cmo - -PARSING = :parsing:linenum.cmo :parsing:location.cmo :parsing:longident.cmo - :parsing:syntaxerr.cmo :parsing:parser.cmo - :parsing:lexer.cmo :parsing:parse.cmo :parsing:printast.cmo - -TYPING = :typing:ident.cmo :typing:path.cmo - :typing:primitive.cmo :typing:types.cmo - :typing:btype.cmo - :typing:subst.cmo :typing:predef.cmo - :typing:datarepr.cmo :typing:env.cmo - :typing:typedtree.cmo - :typing:ctype.cmo :typing:printtyp.cmo - :typing:includeclass.cmo - :typing:mtype.cmo :typing:includecore.cmo - :typing:includemod.cmo :typing:parmatch.cmo - :typing:typetexp.cmo :typing:typecore.cmo - :typing:typedecl.cmo :typing:typeclass.cmo - :typing:typemod.cmo - -COMP = :bytecomp:lambda.cmo :bytecomp:printlambda.cmo - :bytecomp:typeopt.cmo :bytecomp:switch.cmo :bytecomp:matching.cmo - :bytecomp:translobj.cmo :bytecomp:translcore.cmo - :bytecomp:translclass.cmo :bytecomp:translmod.cmo - :bytecomp:simplif.cmo :bytecomp:runtimedef.cmo - -BYTECOMP = :bytecomp:meta.cmo :bytecomp:instruct.cmo :bytecomp:bytegen.cmo - :bytecomp:printinstr.cmo :bytecomp:opcodes.cmo :bytecomp:emitcode.cmo - :bytecomp:bytesections.cmo :bytecomp:dll.cmo - :bytecomp:symtable.cmo :bytecomp:bytelink.cmo :bytecomp:bytelibrarian.cmo - -DRIVER = :driver:errors.cmo :driver:compile.cmo :driver:main_args.cmo - :driver:main.cmo - -TOPLEVEL = :driver:errors.cmo :driver:compile.cmo - :toplevel:genprintval.cmo :toplevel:toploop.cmo - :toplevel:trace.cmo :toplevel:topdirs.cmo - -TOPLEVELMAIN = :toplevel:topmain.cmo - -COMPOBJS = {UTILS} {PARSING} {TYPING} {COMP} {BYTECOMP} {DRIVER} - -TOPLIB = {UTILS} {PARSING} {TYPING} {COMP} {BYTECOMP} {TOPLEVEL} - -EXPUNGEOBJS = :utils:misc.cmo :utils:tbl.cmo - :utils:config.cmo :utils:clflags.cmo - :typing:ident.cmo :typing:path.cmo - :typing:types.cmo :typing:btype.cmo :typing:predef.cmo - :bytecomp:runtimedef.cmo :bytecomp:bytesections.cmo - :bytecomp:dll.cmo :bytecomp:symtable.cmo - :toplevel:expunge.cmo - -PERVASIVES = arg array buffer callback char digest filename format gc hashtbl - lexing list map obj parsing pervasives printexc printf queue random - set sort stack string stream sys oo genlex topdirs toploop weak lazy - marshal int32 int64 nativeint outcometree - -# Recompile the system using the bootstrap compiler -all runtime ocamlc ocamllex ocamlyacc ocamltools library ocaml - otherlibraries camlp4out maccaml - -# The compilation of ocaml will fail if the runtime has changed. -# Never mind, just do make bootstrap to reach fixpoint again. - -# Compile everything the first time -world - domake coldstart - domake all - -# Complete bootstrapping cycle -bootstrap - # Save the original bootstrap compiler - domake backup - # Promote the new compiler but keep the old runtime - # This compiler runs on :boot:ocamlrun and produces bytecode for - # :byterun:ocamlrun - domake promote-cross - # Rebuild ocamlc and ocamllex (run on :byterun:ocamlrun) - domake partialclean - domake ocamlc ocamllex - # Rebuild the library (using :byterun:ocamlrun :ocamlc) - domake library-cross - # Promote the new compiler and the new runtime - domake promote - # Rebuild everything, including ocaml and the tools - domake partialclean - domake all - # Check if fixpoint reached - domake compare - -LIBFILES = :stdlib.cma :std_exit.cmo :.cmi camlheader - -# Start up the system from the distribution compiler -coldstart - directory :byterun; domake all; directory :: - duplicate -y :byterun:ocamlrun :boot:ocamlrun - directory :yacc; domake all; directory :: - duplicate -y :yacc:ocamlyacc :boot:ocamlyacc - directory :stdlib - domake -d COMPILER=::boot:ocamlc all - duplicate -y {LIBFILES} ::boot: - directory :: - -# Build the core system: the minimum needed to make depend and bootstrap -core runtime ocamlc ocamllex ocamlyacc ocamltools library - -# Save the current bootstrap compiler -backup - if `exists -d :boot:Saved:` == "" - newfolder :boot:Saved: - end - move :boot:Saved: :boot:Saved.prev: - newfolder :boot:Saved: - move :boot:Saved.prev: :boot:Saved:Saved.prev: - duplicate -y :boot:ocamlrun :boot:Saved: - move :boot:ocamlc :boot:ocamllex :boot:ocamlyacc :boot:Saved: - directory :boot; duplicate -y {LIBFILES} :Saved:; directory :: - -# Promote the newly compiled system to the rank of cross compiler -# (Runs on the old runtime, produces code for the new runtime) -promote-cross - duplicate -y :ocamlc :boot:ocamlc - duplicate -y :lex:ocamllex :boot:ocamllex - duplicate -y :yacc:ocamlyacc :boot:ocamlyacc - directory :stdlib - duplicate -y {LIBFILES} ::boot: || set status 0 - directory :: - -# Promote the newly compiled system to the rank of bootstrap compiler -# (Runs on the new runtime, produces code for the new runtime) -promote promote-cross - duplicate -y :byterun:ocamlrun :boot:ocamlrun - -clean - delete -i :boot:.cm[aio] || set status 0 - delete -i :boot:camlheader :boot:ocamlrun :boot:ocamlyacc - -# Restore the saved bootstrap compiler if a problem arises -restore - move -y :boot:Saved: :boot: - delete -y :boot:Saved: - move -y :boot:Saved.prev: :boot:Saved: - -# Check if fixpoint reached -compare - set exit 0 - equal -q :boot:ocamlc :ocamlc && equal -q :boot:ocamllex :lex:ocamllex - if {status} - echo "nFixpoint not reached, try one more bootstrapping cycle.n" - else - echo "nFixpoint reached, bootstrap succeeded.n" - end - -# Remove old bootstrap compilers -cleanboot - delete -i -y :boot:Saved:Saved.prev: || set status 0 - - -install $OutOfDate - flush - for i in "{BINDIR}" "{LIBDIR}" "{APPLIDIR}" "{APPLIDIR}stdlib:" - if "`exists -d "{i}"`" == "" - newfolder "{i}" - end - end - directory :byterun: - domake install - directory :: - duplicate -y :ocamlc "{BINDIR}ocamlc" - duplicate -y :ocaml "{BINDIR}ocaml" - directory :stdlib: - domake install - directory :: - duplicate -y :lex:ocamllex "{BINDIR}ocamllex" - duplicate -y :yacc:ocamlyacc "{BINDIR}ocamlyacc" - duplicate -y toplevellib.cma expunge "{LIBDIR}" - duplicate -y :typing:outcometree.cmi :typing:outcometree.mli "{LIBDIR}" - duplicate -y :toplevel:topmain.cmo "{LIBDIR}topmain.cmo" - duplicate -y :toplevel:toploop.cmi :toplevel:topdirs.cmi "{LIBDIR}" - directory :tools: - domake install - directory :: - directory :camlp4: - execute :config:config.mpw - domake install -d LIBDIR="{LIBDIR}camlp4:" - directory :: - duplicate -y :man:ocaml.help "{HELPFILE}" - for i in {OTHERLIBRARIES} - directory :otherlibs:{i} - domake install - directory ::: - end - duplicate -y "{LIBDIR}" "{APPLIDIR}stdlib:" - duplicate -y :test:Moretest:graph_example.ml "{APPLIDIR}" - directory :maccaml: - domake install - directory :: - -clean partialclean - - -# The compiler - -ocamlc {COMPOBJS} - {CAMLC} {LINKFLAGS} -o ocamlc {COMPOBJS} - -partialclean - delete -i ocamlc - - -# The toplevel - -ocaml toplevellib.cma {TOPLEVELMAIN} expunge - {CAMLC} {LINKFLAGS} -linkall -o ocaml.tmp toplevellib.cma {TOPLEVELMAIN} - {CAMLRUN} :expunge ocaml.tmp ocaml {PERVASIVES} || set status 0 - delete -i ocaml.tmp - -toplevellib.cma {TOPLIB} - {CAMLC} -a -o toplevellib.cma {TOPLIB} - -partialclean - delete -i ocaml toplevellib.cma - - -# The configuration file - -:utils:config.ml :utils:config.mlp :config:config.Mac - delete -i :utils:config.ml - streamedit -e "/let version =/ replace /"/ "/{MacVersion}""" - -e "1,$ replace /%%BYTERUN%%/ "{BINDIR}ocamlrun"" - -e "1,$ replace /%%LIBDIR%%/ "{LIBDIR}"" - -e "1,$ replace /%%EXT_OBJ%%/ '.o'" - -e "1,$ replace /%%EXT_LIB%%/ '.x'" - :utils:config.mlp > :utils:config.ml - -partialclean - delete -i :utils:config.ml - -beforedepend :utils:config.ml - - -# The parser - -:parsing:parser.mli :parsing:parser.ml - echo -n - -:parsing:parser.ml :parsing:parser.mly - {CAMLYACC} {YACCFLAGS} :parsing:parser.mly - -partialclean - delete -i :parsing:parser.mli :parsing:parser.ml :parsing:parser.output - -beforedepend :parsing:parser.mli :parsing:parser.ml - - -# The lexer - -:parsing:lexer.ml :parsing:lexer.mll - streamedit -e "1,$ replace /''\223''-''\246''/ '' -c " - -e "1,$ replace /''\248''-''\255''/ '' -c " - -e "1,$ replace /''\192''-''\214''/ '' -c " - -e "1,$ replace /''\216''-''\222''/ '' -c " - -e "1,$ replace /''\216''-''\246''/ '' -c " - <:parsing:lexer.mll >:parsing:lexer_tmp.mll - {CAMLLEX} :parsing:lexer_tmp.mll - rename -y :parsing:lexer_tmp.ml :parsing:lexer.ml - -partialclean - delete -i :parsing:lexer.ml - -beforedepend :parsing:lexer.ml - - -# The auxiliary lexer for counting line numbers - -:parsing:linenum.ml :parsing:linenum.mll - {CAMLLEX} :parsing:linenum.mll - -partialclean - delete -i :parsing:linenum.ml - -beforedepend :parsing:linenum.ml - - -# The numeric opcodes - -:bytecomp:opcodes.ml :byterun:instruct.h - :tools:make-opcodes.Mac :byterun:instruct.h :bytecomp:opcodes.ml - -partialclean - delete -i :bytecomp:opcodes.ml - -beforedepend :bytecomp:opcodes.ml - - -# The predefined exceptions and primitives - -:byterun:primitives - directory :byterun: - domake primitives - directory :: - -:bytecomp:runtimedef.ml :byterun:primitives :byterun:fail.h - (echo 'let builtin_exceptions = [|' ; - streamedit -d -e '//* ("[A-Za-z_]*")0 *// print 0 ";"' :byterun:fail.h | - streamedit -e '$ replace /;/ "|]"'; - echo 'let builtin_primitives = [|'; - streamedit -e "1,$ replace /()0/ ' "' 0 '";'" -e '$ replace /;/ "|]"' :byterun:primitives; - ) > :bytecomp:runtimedef.ml - -partialclean - delete -i :bytecomp:runtimedef.ml - -beforedepend :bytecomp:runtimedef.ml - - -# The "expunge" utility - -expunge {EXPUNGEOBJS} - {CAMLC} {LINKFLAGS} -o expunge {EXPUNGEOBJS} - -partialclean - delete -i expunge - - -# The runtime system for the bytecode compiler - -runtime - directory :byterun:; domake all; directory :: -clean - directory :byterun:; domake clean; directory :: -alldepend - directory :byterun:; domake depend; directory :: - - -# The library - -library ocamlc - directory :stdlib; domake all; directory :: -library-cross - directory :stdlib; domake -d RUNTIME=::byterun:ocamlrun all; directory :: -partialclean - directory :stdlib; domake clean; directory :: -alldepend - directory :stdlib; domake depend; directory :: - - -# The lexer and parser generators - -ocamllex ocamlyacc ocamlc - directory :lex; domake all; directory :: -partialclean - directory :lex; domake clean; directory :: -alldepend - directory :lex; domake depend; directory :: - -ocamlyacc - directory :yacc; domake all; directory :: -clean - directory :yacc; domake clean; directory :: - - -# Tools - -ocamltools ocamlc ocamlyacc ocamllex - directory :tools; domake all; directory :: -partialclean - directory :tools; domake clean; directory :: -alldepend - directory :tools; domake depend; directory :: - - -# The extra libraries - -otherlibraries - for i in {OTHERLIBRARIES} - directory :otherlibs:{i}; domake all; directory ::: - end -partialclean - for i in {OTHERLIBRARIES} - directory :otherlibs:{i}; domake partialclean; directory ::: - end -clean - for i in {OTHERLIBRARIES} - directory :otherlibs:{i}; domake clean; directory ::: - end -alldepend - for i in {OTHERLIBRARIES} - directory :otherlibs:{i}; domake depend; directory ::: - end - - -# Camlp4 - -camlp4out ocamlc - directory :camlp4: - execute :config:config.mpw - domake all - directory :: - -partialclean - directory :camlp4: - execute :config:config.mpw - domake clean - directory :: - -alldepend - directory :camlp4: - execute :config:config.mpw - domake depend - directory :: - -# The standalone application - -maccaml - directory :maccaml:; domake all; directory :: -partialclean - directory :maccaml:; domake partialclean; directory :: -clean - directory :maccaml:; domake clean; directory :: -alldepend - directory :maccaml:; domake depend; directory :: - - -# Clean up the test directory - -clean - if `exists :test:` - directory :test:; domake clean; directory :: - end - - -# Default rules - -.cmo .ml - {CAMLC} {COMPFLAGS} -c {depdir}{default}.ml - -.cmi .mli - {CAMLC} {COMPFLAGS} -c {depdir}{default}.mli - -partialclean - for i in utils parsing typing bytecomp driver toplevel tools - delete -i :{i}:.cm[io] || set status 0 - end - -depend beforedepend - for d in utils parsing typing bytecomp driver toplevel - {CAMLDEP} {DEPFLAGS} :{d}:.mli :{d}:.ml - end > Makefile.Mac.depend - -alldepend depend - - -# Make sure the config file was executed -dummy {OTHERLIBRARIES} diff --git a/asmcomp/alpha/emit.mlp b/asmcomp/alpha/emit.mlp index cae2288ce..e560c4fde 100644 --- a/asmcomp/alpha/emit.mlp +++ b/asmcomp/alpha/emit.mlp @@ -834,26 +834,26 @@ let begin_assembly() = of line numbers for the debugger, 'cos they make .o files larger and slow down linking. *) ` .file 1 \"{emit_string !Location.input_name}\"\n\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in ` .data\n`; ` .globl {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in ` .text\n`; ` .globl {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n` let end_assembly () = - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in ` .text\n`; ` .globl {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in ` .data\n`; ` .globl {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .quad 0\n`; - let lbl_frame = Compilenv.current_unit_name() ^ "__frametable" in + let lbl_frame = Compilenv.make_symbol (Some "frametable") in ` {emit_string rdata_section}\n`; ` .globl {emit_symbol lbl_frame}\n`; `{emit_symbol lbl_frame}:\n`; diff --git a/asmcomp/amd64/emit.mlp b/asmcomp/amd64/emit.mlp index 0494aef09..14962eb91 100644 --- a/asmcomp/amd64/emit.mlp +++ b/asmcomp/amd64/emit.mlp @@ -655,26 +655,26 @@ let data l = (* Beginning / end of an assembly file *) let begin_assembly() = - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in ` .data\n`; ` .globl {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in ` .text\n`; ` .globl {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n` let end_assembly() = - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in ` .text\n`; ` .globl {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .data\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in ` .globl {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .long 0\n`; - let lbl = Compilenv.current_unit_name() ^ "__frametable" in + let lbl = Compilenv.make_symbol (Some "frametable") in ` .globl {emit_symbol lbl}\n`; `{emit_symbol lbl}:\n`; ` .quad {emit_int (List.length !frame_descriptors)}\n`; diff --git a/asmcomp/arm/emit.mlp b/asmcomp/arm/emit.mlp index e03741cd1..36d6eb6bd 100644 --- a/asmcomp/arm/emit.mlp +++ b/asmcomp/arm/emit.mlp @@ -650,26 +650,26 @@ let begin_assembly() = `sp .req r13\n`; `lr .req r14\n`; `pc .req r15\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in ` .data\n`; ` .global {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in ` .text\n`; ` .global {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n` let end_assembly () = - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in ` .text\n`; ` .global {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in ` .data\n`; ` .global {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .word 0\n`; - let lbl = Compilenv.current_unit_name() ^ "__frametable" in + let lbl = Compilenv.make_symbol (Some "frametable") in ` .data\n`; ` .global {emit_symbol lbl}\n`; `{emit_symbol lbl}:\n`; diff --git a/asmcomp/closure.ml b/asmcomp/closure.ml index d4ff4e223..239678c4d 100644 --- a/asmcomp/closure.ml +++ b/asmcomp/closure.ml @@ -616,8 +616,7 @@ and close_functions fenv cenv fun_defs = List.map (function (id, (Lfunction(kind, params, body) as def)) -> - let label = - Compilenv.current_unit_name() ^ "__" ^ Ident.unique_name id in + let label = Compilenv.make_symbol (Some (Ident.unique_name id)) in let arity = List.length params in let fundesc = {fun_label = label; diff --git a/asmcomp/cmmgen.ml b/asmcomp/cmmgen.ml index 6fc0131d0..e8e0d24c6 100644 --- a/asmcomp/cmmgen.ml +++ b/asmcomp/cmmgen.ml @@ -402,7 +402,7 @@ let new_const_label () = let new_const_symbol () = incr const_label; - Compilenv.current_unit_name () ^ "__" ^ string_of_int !const_label + Compilenv.make_symbol (Some (string_of_int !const_label)) let structured_constants = ref ([] : (string * structured_constant) list) @@ -1663,9 +1663,10 @@ let emit_all_constants cont = (* Translate a compilation unit *) let compunit size ulam = - let glob = Compilenv.current_unit_name () in + let glob = Compilenv.make_symbol None in let init_code = transl ulam in - let c1 = [Cfunction {fun_name = glob ^ "__entry"; fun_args = []; + let c1 = [Cfunction {fun_name = Compilenv.make_symbol (Some "entry"); + fun_args = []; fun_body = init_code; fun_fast = false}] in let c2 = transl_all_functions StringSet.empty c1 in let c3 = emit_all_constants c2 in diff --git a/asmcomp/compilenv.ml b/asmcomp/compilenv.ml index 647501b87..21833342f 100644 --- a/asmcomp/compilenv.ml +++ b/asmcomp/compilenv.ml @@ -77,7 +77,13 @@ let reset name = current_unit.ui_force_link <- false let current_unit_name () = - "caml" ^ current_unit.ui_name + current_unit.ui_name + +let make_symbol ?(unitname = current_unit.ui_name) idopt = + let prefix = "caml" ^ unitname in + match idopt with + | None -> prefix + | Some id -> prefix ^ "__" ^ id let read_unit_info filename = let ic = open_in_bin filename in diff --git a/asmcomp/compilenv.mli b/asmcomp/compilenv.mli index 5ddf7cd27..fac7963bb 100644 --- a/asmcomp/compilenv.mli +++ b/asmcomp/compilenv.mli @@ -51,6 +51,13 @@ val reset: string -> unit val current_unit_name: unit -> string (* Return the name of the unit being compiled *) +val make_symbol: ?unitname:string -> string option -> string + (* [make_symbol ~unitname:u None] returns the asm symbol that + corresponds to the compilation unit [u] (default: the current unit). + [make_symbol ~unitname:u (Some id)] returns the asm symbol that + corresponds to symbol [id] in the compilation unit [u] + (or the current unit). *) + val global_approx: Ident.t -> Clambda.value_approximation (* Return the approximation for the given global identifier *) val set_global_approx: Clambda.value_approximation -> unit diff --git a/asmcomp/hppa/emit.mlp b/asmcomp/hppa/emit.mlp index d9a7ea19d..6cdfe570f 100644 --- a/asmcomp/hppa/emit.mlp +++ b/asmcomp/hppa/emit.mlp @@ -1073,11 +1073,11 @@ let begin_assembly() = defined_symbols := StringSet.empty; called_symbols := StringSet.empty; Hashtbl.clear stub_label_table; - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in ` .data\n`; emit_global lbl_begin; `{emit_symbol lbl_begin}:\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in ` .code\n`; emit_global lbl_begin; `{emit_symbol lbl_begin}:\n` @@ -1086,15 +1086,15 @@ let begin_assembly() = let end_assembly() = if not hpux then emit_stubs(); ` .code\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in emit_global lbl_end; `{emit_symbol lbl_end}:\n`; ` .data\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in emit_global lbl_end; `{emit_symbol lbl_end}:\n`; ` .long 0\n`; - let lbl = Compilenv.current_unit_name() ^ "__frametable" in + let lbl = Compilenv.make_symbol (Some "frametable") in emit_global lbl; `{emit_symbol lbl}:\n`; ` .long {emit_int (List.length !frame_descriptors)}\n`; diff --git a/asmcomp/i386/emit.mlp b/asmcomp/i386/emit.mlp index 9f944b557..087d34f31 100644 --- a/asmcomp/i386/emit.mlp +++ b/asmcomp/i386/emit.mlp @@ -853,26 +853,26 @@ let data l = (* Beginning / end of an assembly file *) let begin_assembly() = - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in ` .data\n`; ` .globl {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in ` .text\n`; ` .globl {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n` let end_assembly() = - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in ` .text\n`; ` .globl {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .data\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in ` .globl {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .long 0\n`; - let lbl = Compilenv.current_unit_name() ^ "__frametable" in + let lbl = Compilenv.make_symbol (Some "frametable") in ` .globl {emit_symbol lbl}\n`; `{emit_symbol lbl}:\n`; ` .long {emit_int (List.length !frame_descriptors)}\n`; diff --git a/asmcomp/i386/emit_nt.mlp b/asmcomp/i386/emit_nt.mlp index 8fb30dc52..428c2a370 100644 --- a/asmcomp/i386/emit_nt.mlp +++ b/asmcomp/i386/emit_nt.mlp @@ -827,28 +827,28 @@ let begin_assembly() = ` EXTERN _caml_alloc3: PROC\n`; ` EXTERN _caml_ml_array_bound_error: PROC\n`; ` .DATA\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in add_def_symbol lbl_begin; ` PUBLIC {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin} LABEL DWORD\n`; ` .CODE\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in add_def_symbol lbl_begin; ` PUBLIC {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin} LABEL DWORD\n` let end_assembly() = ` .CODE\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in add_def_symbol lbl_end; ` PUBLIC {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end} LABEL DWORD\n`; ` .DATA\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in add_def_symbol lbl_end; ` PUBLIC {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end} LABEL DWORD\n`; - let lbl = Compilenv.current_unit_name() ^ "__frametable" in + let lbl = Compilenv.make_symbol (Some "frametable") in add_def_symbol lbl; ` PUBLIC {emit_symbol lbl}\n`; `{emit_symbol lbl} DWORD {emit_int (List.length !frame_descriptors)}\n`; diff --git a/asmcomp/ia64/emit.mlp b/asmcomp/ia64/emit.mlp index 1c3add776..63b0d5cff 100644 --- a/asmcomp/ia64/emit.mlp +++ b/asmcomp/ia64/emit.mlp @@ -1309,18 +1309,18 @@ let data l = let begin_assembly() = ` .data\n`; - emit_define_symbol (Compilenv.current_unit_name() ^ "__data_begin"); + emit_define_symbol (Compilenv.make_symbol (Some "data_begin")); ` .text\n`; - emit_define_symbol (Compilenv.current_unit_name() ^ "__code_begin") + emit_define_symbol (Compilenv.make_symbol (Some "code_begin")) let end_assembly () = ` .data\n`; - emit_define_symbol (Compilenv.current_unit_name() ^ "__data_end"); + emit_define_symbol (Compilenv.make_symbol (Some "data_end")); ` .text\n`; - emit_define_symbol (Compilenv.current_unit_name() ^ "__code_end"); + emit_define_symbol (Compilenv.make_symbol (Some "code_end")); ` .rodata\n`; ` .align 8\n`; - emit_define_symbol (Compilenv.current_unit_name() ^ "__frametable"); + emit_define_symbol (Compilenv.make_symbol (Some "frametable")); ` data8 {emit_int (List.length !frame_descriptors)}\n`; List.iter emit_frame !frame_descriptors; frame_descriptors := [] diff --git a/asmcomp/mips/emit.mlp b/asmcomp/mips/emit.mlp index 84f526d4c..198f6265d 100644 --- a/asmcomp/mips/emit.mlp +++ b/asmcomp/mips/emit.mlp @@ -562,11 +562,11 @@ let begin_assembly() = ` .noalias $16,$sp; .noalias $16,$30; .noalias $17,$sp; .noalias $17,$30\n`; ` .noalias $18,$sp; .noalias $18,$30; .noalias $19,$sp; .noalias $19,$30\n`; ` .noalias $20,$sp; .noalias $20,$30; .noalias $21,$sp; .noalias $21,$30\n\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in ` .data\n`; ` .globl {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in ` .text\n`; ` .globl {emit_symbol lbl_begin}\n`; ` .ent {emit_symbol lbl_begin}\n`; @@ -574,18 +574,18 @@ let begin_assembly() = ` .end {emit_symbol lbl_begin}\n` let end_assembly () = - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in ` .text\n`; ` .globl {emit_symbol lbl_end}\n`; ` .ent {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .end {emit_symbol lbl_end}\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in ` .data\n`; ` .globl {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .word 0\n`; - let lbl = Compilenv.current_unit_name() ^ "__frametable" in + let lbl = Compilenv.make_symbol (Some "frametable") in ` .rdata\n`; ` .globl {emit_symbol lbl}\n`; `{emit_symbol lbl}:\n`; diff --git a/asmcomp/power/emit.mlp b/asmcomp/power/emit.mlp index 669ed948d..4a2a5d035 100644 --- a/asmcomp/power/emit.mlp +++ b/asmcomp/power/emit.mlp @@ -1044,11 +1044,11 @@ let begin_assembly() = jumptbl_entries := []; lbl_jumptbl := 0; (* Emit the beginning of the segments *) - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in emit_string data_space; declare_global_data lbl_begin; `{emit_symbol lbl_begin}:\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in emit_string code_space; declare_global_data lbl_begin; `{emit_symbol lbl_begin}:\n` @@ -1081,17 +1081,17 @@ let end_assembly() = StringSet.iter emit_external !external_functions; (* Emit the end of the segments *) emit_string code_space; - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in declare_global_data lbl_end; `{emit_symbol lbl_end}:\n`; emit_string data_space; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in declare_global_data lbl_end; `{emit_symbol lbl_end}:\n`; ` .long 0\n`; (* Emit the frame descriptors *) emit_string rodata_space; - let lbl = Compilenv.current_unit_name() ^ "__frametable" in + let lbl = Compilenv.make_symbol (Some "frametable") in declare_global_data lbl; `{emit_symbol lbl}:\n`; ` .long {emit_int (List.length !frame_descriptors)}\n`; diff --git a/asmcomp/sparc/emit.mlp b/asmcomp/sparc/emit.mlp index c0e6afbdc..b5722883d 100644 --- a/asmcomp/sparc/emit.mlp +++ b/asmcomp/sparc/emit.mlp @@ -721,26 +721,26 @@ let data l = (* Beginning / end of an assembly file *) let begin_assembly() = - let lbl_begin = Compilenv.current_unit_name() ^ "__data_begin" in + let lbl_begin = Compilenv.make_symbol (Some "data_begin") in ` .data\n`; ` .global {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n`; - let lbl_begin = Compilenv.current_unit_name() ^ "__code_begin" in + let lbl_begin = Compilenv.make_symbol (Some "code_begin") in ` .text\n`; ` .global {emit_symbol lbl_begin}\n`; `{emit_symbol lbl_begin}:\n` let end_assembly() = ` .text\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__code_end" in + let lbl_end = Compilenv.make_symbol (Some "code_end") in ` .global {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .data\n`; - let lbl_end = Compilenv.current_unit_name() ^ "__data_end" in + let lbl_end = Compilenv.make_symbol (Some "data_end") in ` .global {emit_symbol lbl_end}\n`; `{emit_symbol lbl_end}:\n`; ` .word 0\n`; - let lbl = Compilenv.current_unit_name() ^ "__frametable" in + let lbl = Compilenv.make_symbol (Some "frametable") in rodata (); ` .global {emit_symbol lbl}\n`; if Config.system = "solaris" then diff --git a/byterun/Makefile.Mac b/byterun/Makefile.Mac deleted file mode 100644 index 1c1126c6e..000000000 --- a/byterun/Makefile.Mac +++ /dev/null @@ -1,118 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../LICENSE. # -# # -######################################################################### - -# $Id$ - -PPCC = mrc -PPCCOptions = -w 29,30,35 -i ::config: {cdbgflag} -PPCLinkOptions = -d {ldbgflag} -PPCLibs = "{sharedlibraries}MathLib" "{ppclibraries}PPCCRuntime.o" - "{ppclibraries}PPCToolLibs.o" "{sharedlibraries}StdCLib" - "{ppclibraries}StdCRuntime.o" "{sharedlibraries}InterfaceLib" - -PPCOBJS = :interp.c.x :misc.c.x :stacks.c.x - :fix_code.c.x :startup.c.x :main.c.x - :freelist.c.x :major_gc.c.x :minor_gc.c.x :memory.c.x :alloc.c.x :roots.c.x - :fail.c.x :signals.c.x - :compare.c.x :ints.c.x :floats.c.x :str.c.x :array.c.x :io.c.x :extern.c.x - :intern.c.x - :hash.c.x :sys.c.x :meta.c.x :parsing.c.x - :gc_ctrl.c.x :terminfo.c.x :md5.c.x - :obj.c.x :lexing.c.x :macintosh.c.x - :rotatecursor.c.x :printexc.c.x :callback.c.x - :debugger.c.x :weak.c.x :compact.c.x - :instrtrace.c.x :finalise.c.x :custom.c.x :backtrace.c.x :globroots.c.x - -PRIMS = alloc.c array.c compare.c extern.c floats.c gc_ctrl.c hash.c - intern.c interp.c ints.c io.c lexing.c md5.c meta.c obj.c parsing.c - signals.c str.c sys.c terminfo.c callback.c weak.c finalise.c stacks.c - dynlink.c - -PUBLIC_INCLUDES = mlvalues.h alloc.h misc.h callback.h fail.h custom.h - -all libcamlrun-gui.x libcamlrun.x ocamlrun - -libcamlrun-gui.x {PPCOBJS} - ppclink {PPCLinkOptions} -xm library -o libcamlrun-gui.x {PPCOBJS} - -libcamlrun.x libcamlrun-gui.x mpwtool.c.x - ppclink {PPCLinkOptions} -xm library -o libcamlrun.x libcamlrun-gui.x mpwtool.c.x - -ocamlrun libcamlrun.x :prims.c.x - ppclink -c 'MPS ' -t MPST {PPCLinkOptions} -o ocamlrun prims.c.x - libcamlrun.x {PPCLibs} - -install - duplicate -y ocamlrun "{BINDIR}ocamlrun" - duplicate -y libcamlrun.x libcamlrun-gui.x "{LIBDIR}" - if "`exists -d "{LIBDIR}caml:"`" == "" - newfolder "{LIBDIR}caml:" - end - duplicate -y {PUBLIC_INCLUDES} "{LIBDIR}caml:" - duplicate -y config.h "{LIBDIR}caml:" - open -t "{LIBDIR}caml:config.h" - find "{LIBDIR}caml:config.h" - find /'#include <m.h>'Ű/ "{LIBDIR}caml:config.h" - catenate ::config:m.h > "{LIBDIR}caml:config.h". - find "{LIBDIR}caml:config.h" - find /'#include <s.h>'Ű/ "{LIBDIR}caml:config.h" - catenate ::config:s.h > "{LIBDIR}caml:config.h". - find "{LIBDIR}caml:config.h" - clear -c /'#include "'/ "{LIBDIR}caml:config.h" - close -y "{LIBDIR}caml:config.h" - duplicate -y memory.h "{LIBDIR}caml:" - open -t "{LIBDIR}caml:memory.h" - find "{LIBDIR}caml:memory.h" - clear -c /'#include "''gc.h'/ "{LIBDIR}caml:memory.h" - find "{LIBDIR}caml:memory.h" - clear /'#define Alloc_small'/:/}/ "{LIBDIR}caml:memory.h" - find "{LIBDIR}caml:memory.h" - clear /'#define Modify'/:/}/ "{LIBDIR}caml:memory.h" - close -y "{LIBDIR}caml:memory.h" - -clean - delete -i .[ox] || set status 0 - delete -i ocamlrun primitives prims.c opnames.h interp.a.lst - delete -i ocamlrun.xcoff ocamlrun.dbg - -primitives {PRIMS} - streamedit -d -e "/CAMLprim value ([a-z0-9_]+)0/ print 0" {PRIMS} - > primitives - -:prims.c primitives - begin - echo '#include "mlvalues.h"' - echo '#include "prims.h"' - streamedit -e '1,$ change "extern value " . "();"' primitives - echo 'c_primitive builtin_cprim [] = {' - streamedit -e '1,$ change " " . ","' primitives - echo '0 };' - echo 'char * names_of_builtin_cprim [] = {' - streamedit -e '1,$ change " "" . "","' primitives - echo '0 };' - end > prims.c - -:opnames.h :instruct.h - streamedit -e "//'*'/ delete" - -e "/enum / replace // 'char * names_of_'" - -e '/{/ replace // "[] = {"' - -e "1,$ replace /([A-Z][A-Z_0-9]*)0/ '"' 0 '"' -c " - instruct.h > opnames.h - -:md5.c.x - {PPCC} :md5.c -o :md5.c.x -opt off {PPCCOptions} -opt off - -depend :prims.c :opnames.h - begin - makedepend -w -objext .x .c - end | streamedit -e "/t/ replace // ' ' -c " > Makefile.Mac.depend diff --git a/byterun/callback.c b/byterun/callback.c index 84e0c4116..f16c4728c 100644 --- a/byterun/callback.c +++ b/byterun/callback.c @@ -30,7 +30,7 @@ #include "fix_code.h" #include "stacks.h" -int caml_callback_depth = 0; +CAMLexport int caml_callback_depth = 0; static opcode_t callback_code[] = { ACC, 0, APPLY, 0, POP, 1, STOP }; diff --git a/byterun/callback.h b/byterun/callback.h index fe0f70ae3..085516cf8 100644 --- a/byterun/callback.h +++ b/byterun/callback.h @@ -39,8 +39,6 @@ CAMLextern value caml_callbackN_exn (value closure, int narg, value args[]); #define Is_exception_result(v) (((v) & 3) == 2) #define Extract_exception(v) ((v) & ~3) -CAMLextern char * caml_format_exception(value exn); /* in [printexc.c] */ - CAMLextern value * caml_named_value (char * name); CAMLextern void caml_main (char ** argv); diff --git a/byterun/compatibility.h b/byterun/compatibility.h index 430b9a625..b054a9b0c 100644 --- a/byterun/compatibility.h +++ b/byterun/compatibility.h @@ -34,18 +34,9 @@ */ /* a faire: - - supprimer le portage Mac OS 9 (?) - - ui_* (dans ui.h, definies ou ?) - - changer les magic numbers ? - - comprendre pourquoi le $Id deconne dans unix.c (et qques autres) + - ui_* (reverifier que win32.c n'en depend pas) */ -/* a supprimer (support Mac OS 9): */ -/* **** macintosh.c */ -/* **** mpwtool.c */ -/* **** rotatecursor.c */ -/* INSTALL.MPW, **Makefile.Mac, maccaml, otherlibs/macosunix */ - /* **** alloc.c */ #define alloc caml_alloc /*SP*/ @@ -87,7 +78,7 @@ #define print_exception_backtrace caml_print_exception_backtrace /* **** callback.c */ -#define callback_depth caml_callback_depth /*FIXME CAMLextern sans CAMLexport */ +#define callback_depth caml_callback_depth #define callbackN_exn caml_callbackN_exn #define callback_exn caml_callback_exn #define callback2_exn caml_callback2_exn @@ -114,8 +105,8 @@ /* greaterequal -> caml_greaterequal */ /* **** custom.c */ -#define alloc_custom caml_alloc_custom /*FIXME defini CAMLextern !? */ -#define register_custom_operations caml_register_custom_operations/*FIXME idem*/ +#define alloc_custom caml_alloc_custom +#define register_custom_operations caml_register_custom_operations /* g find_custom_operations -> caml_find_custom_operations */ /* g final_custom_operations -> caml_final_custom_operations */ /* g init_custom_operations -> caml_init_custom_operations */ @@ -157,7 +148,7 @@ #define serialize_block_float_8 caml_serialize_block_float_8 /* **** fail.c */ -#define external_raise caml_external_raise /*FIXME CAMLextern sans export */ +#define external_raise caml_external_raise /* g exn_bucket -> caml_exn_bucket */ #define mlraise caml_raise /*SP*/ #define raise_constant caml_raise_constant @@ -249,7 +240,7 @@ /* **** freelist.c */ /* g fl_merge -> caml_fl_merge */ /* g fl_cur_size -> caml_fl_cur_size */ -/*FIXME fl_check *** becomes static */ +/* * fl_check *** becomes static */ /* g fl_allocate -> caml_fl_allocate */ /* g fl_init_merge -> caml_fl_init_merge */ /* g fl_reset -> caml_fl_reset */ @@ -279,8 +270,8 @@ /* gc_compaction -> caml_gc_compaction */ /* **** globroots.c */ -#define register_global_root caml_register_global_root /* FIXME extern/export */ -#define remove_global_root caml_remove_global_root /* FIXME extern sans export*/ +#define register_global_root caml_register_global_root +#define remove_global_root caml_remove_global_root /* **** hash.c */ /* hash_univ_param -> caml_hash_univ_param */ @@ -431,7 +422,7 @@ /* caml_open_descriptor_in -> caml_ml_open_descriptor_in SP*/ /* caml_open_descriptor_out -> caml_ml_open_descriptor_out SP*/ /* caml_out_channels_list -> caml_ml_out_channels_list SP*/ -/* channel_descriptor -> caml_channel_descriptor FIXME add ml_ ? */ +/* channel_descriptor -> caml_channel_descriptor */ /* caml_close_channel -> caml_ml_close_channel SP*/ /* caml_channel_size -> caml_ml_channel_size SP*/ /* caml_channel_size_64 -> caml_ml_channel_size_64 SP*/ @@ -467,9 +458,9 @@ /* **** major_gc.c */ /* g percent_free -> caml_percent_free */ /* g major_heap_increment -> caml_major_heap_increment */ -#define heap_start caml_heap_start /* FIXME CAMLextern sans CAMLexport */ -#define heap_end caml_heap_end /* FIXME CAMLextern sans CAMLexport */ -#define page_table caml_page_table /* FIXME CAMLextern sans CAMLexport */ +#define heap_start caml_heap_start +#define heap_end caml_heap_end +#define page_table caml_page_table /* g page_low -> caml_page_low */ /* g page_high -> caml_page_high */ /* g gc_sweep_hp -> caml_gc_sweep_hp */ @@ -497,37 +488,36 @@ /* g add_to_heap -> caml_add_to_heap */ /* g shrink_heap -> caml_shrink_heap */ /* g allocation_color -> caml_allocation_color */ -#define alloc_shr caml_alloc_shr /* FIXME CAMLextern sans CAMLexport */ -/* g adjust_gc_speed -> caml_adjust_gc_speed FIXME pas CAMLextern ? */ +#define alloc_shr caml_alloc_shr +/* g adjust_gc_speed -> caml_adjust_gc_speed */ #define initialize caml_initialize #define modify caml_modify -#define stat_alloc caml_stat_alloc /* FIXME CAMLextern sans CAMLexport */ -#define stat_free caml_stat_free /* FIXME CAMLextern sans CAMLexport */ -#define stat_resize caml_stat_resize /* FIXME CAMLextern sans CAMLexport */ +#define stat_alloc caml_stat_alloc +#define stat_free caml_stat_free +#define stat_resize caml_stat_resize /* **** meta.c */ /* get_global_data -> caml_get_global_data */ -/* reify_bytecode -> caml_reify_bytecode FIXME missing in native code ? */ +/* reify_bytecode -> caml_reify_bytecode */ /* realloc_global -> caml_realloc_global */ -/* g available_primitives -> caml_available_primitives FIXME useless ? */ /* get_current_environment -> caml_get_current_environment */ /* invoke_traced_function -> caml_invoke_traced_function */ /* **** minor_gc.c */ /* g minor_heap_size -> caml_minor_heap_size */ -#define young_start caml_young_start /* FIXME CAMLextern sans CAMLexport */ -#define young_end caml_young_end /* FIXME CAMLextern sans CAMLexport */ -#define young_ptr caml_young_ptr /* FIXME CAMLextern sans CAMLexport */ -#define young_limit caml_young_limit /* FIXME CAMLextern sans CAMLexport */ -#define ref_table_ptr caml_ref_table_ptr /* FIXME CAMLextern sans CAMLexport */ -#define ref_table_limit caml_ref_table_limit /* FIXME CAMLextern sans CAMLexpo*/ +#define young_start caml_young_start +#define young_end caml_young_end +#define young_ptr caml_young_ptr +#define young_limit caml_young_limit +#define ref_table_ptr caml_ref_table_ptr +#define ref_table_limit caml_ref_table_limit /* g in_minor_collection -> caml_in_minor_collection */ /* g set_minor_heap_size -> caml_set_minor_heap_size */ /* g oldify_one -> caml_oldify_one */ /* g oldify_mopup -> caml_oldify_mopup */ /* g empty_minor_heap -> caml_empty_minor_heap */ -#define minor_collection caml_minor_collection /*FIXME CAMLextern sans CAMLexp*/ -#define check_urgent_gc caml_check_urgent_gc /*FIXME CAMLextern sans CAMLexpor*/ +#define minor_collection caml_minor_collection +#define check_urgent_gc caml_check_urgent_gc /* g realloc_ref_table -> caml_realloc_ref_table */ /* **** misc.c */ @@ -563,29 +553,29 @@ /* g names_of_builtin_cprim -> caml_names_of_builtin_cprim */ /* **** printexc.c */ -#define format_caml_exception caml_format_exception /*SP*//*FIXME dbl declar*/ +#define format_caml_exception caml_format_exception /*SP*/ /* g fatal_uncaught_exception -> caml_fatal_uncaught_exception */ /* **** roots.c */ #define local_roots caml_local_roots -#define scan_roots_hook caml_scan_roots_hook /* FIXME CAMLextern sans export */ +#define scan_roots_hook caml_scan_roots_hook /* g oldify_local_roots -> caml_oldify_local_roots */ /* g darken_all_roots -> caml_darken_all_roots */ /* g do_roots -> caml_do_roots */ -#define do_local_roots caml_do_local_roots /* FIXME CAMLextern sans CAMLexport*/ +#define do_local_roots caml_do_local_roots /* **** signals.c */ -#define async_signal_mode caml_async_signal_mode /* FIXME CAMLextern sans expo*/ -#define pending_signal caml_pending_signal /* FIXME CAMLextern sans CAMLexport*/ -#define something_to_do caml_something_to_do /* FIXME CAMLextern sans export */ +#define async_signal_mode caml_async_signal_mode +#define pending_signal caml_pending_signal +#define something_to_do caml_something_to_do /* g force_major_slice -> caml_force_major_slice */ /* g signal_handlers -> caml_signal_handlers */ -#define enter_blocking_section_hook caml_enter_blocking_section_hook /* FIXME */ -#define leave_blocking_section_hook caml_leave_blocking_section_hook /* FIXME */ -#define async_action_hook caml_async_action_hook /* FIXME CAMLextern sans expo*/ +#define enter_blocking_section_hook caml_enter_blocking_section_hook +#define leave_blocking_section_hook caml_leave_blocking_section_hook +#define async_action_hook caml_async_action_hook /* g process_event -> caml_process_event */ /* g execute_signal -> caml_execute_signal */ -/*FIXME handle_signal *** becomes static */ +/* * handle_signal *** becomes static */ /* g urge_major_slice -> caml_urge_major_slice */ #define enter_blocking_section caml_enter_blocking_section #define leave_blocking_section caml_leave_blocking_section @@ -596,7 +586,6 @@ /* g init_signals -> caml_init_signals */ /* **** stacks.c */ -/*FIXME reset_roots *** decl removed from stack.h [void reset_roots (void);] */ #define stack_low caml_stack_low #define stack_high caml_stack_high #define stack_threshold caml_stack_threshold @@ -659,10 +648,10 @@ /* sys_read_directory -> caml_sys_read_directory */ /* **** terminfo.c */ -/* terminfo_setup -> caml_terminfo_setup FIXME CAMLprim et CAMLexport */ -/* terminfo_backup -> caml_terminfo_backup FIXME CAMLprim et CAMLexport */ -/* terminfo_standout -> caml_terminfo_standout FIXME CAMLprim et CAMLexpo*/ -/* terminfo_resume -> caml_terminfo_resume FIXME CAMLprim et CAMLexport */ +/* terminfo_setup -> caml_terminfo_setup */ +/* terminfo_backup -> caml_terminfo_backup */ +/* terminfo_standout -> caml_terminfo_standout*/ +/* terminfo_resume -> caml_terminfo_resume */ /* **** unix.c & win32.c */ /* g decompose_path -> caml_decompose_path */ @@ -691,7 +680,7 @@ /* **** asmcomp/cmmgen.ml */ /* g bucket_* -> caml_bucket_* */ -/* g globals_map -> caml_globals_map FIXME a quoi ca sert ? */ +/* g globals_map -> caml_globals_map */ /* g Match_failure -> caml_exn_Match_failure */ /* g Out_of_memory -> caml_exn_Out_of_memory */ /* g Invalid_argument -> caml_exn_Invalid_argument */ @@ -706,7 +695,7 @@ /* g Undefined_recursive_module -> caml_exn_Undefined_recursive_module */ /* **** asmcomp/asmlink.ml, asmcomp/cmmgen.ml, asmcomp/compilenv.ml */ -/* g Modulename -> camlModulename FIXME ask Xavier about it */ +/* g Module_name -> camlModule_name */ #endif /* CAML_NAME_SPACE */ #endif /* CAML_COMPATIBILITY_H */ diff --git a/byterun/custom.c b/byterun/custom.c index d10c652f2..8e3f4a50f 100644 --- a/byterun/custom.c +++ b/byterun/custom.c @@ -21,7 +21,7 @@ #include "memory.h" #include "mlvalues.h" -CAMLextern value caml_alloc_custom(struct custom_operations * ops, +CAMLexport value caml_alloc_custom(struct custom_operations * ops, unsigned long size, mlsize_t mem, mlsize_t max) @@ -49,7 +49,7 @@ struct custom_operations_list { static struct custom_operations_list * custom_ops_table = NULL; -CAMLextern void caml_register_custom_operations(struct custom_operations * ops) +CAMLexport void caml_register_custom_operations(struct custom_operations * ops) { struct custom_operations_list * l = caml_stat_alloc(sizeof(struct custom_operations_list)); diff --git a/byterun/fail.c b/byterun/fail.c index a814b27f7..d785d98f3 100644 --- a/byterun/fail.c +++ b/byterun/fail.c @@ -26,7 +26,7 @@ #include "signals.h" #include "stacks.h" -struct longjmp_buffer * caml_external_raise = NULL; +CAMLexport struct longjmp_buffer * caml_external_raise = NULL; value caml_exn_bucket; CAMLexport void caml_raise(value v) diff --git a/byterun/globroots.c b/byterun/globroots.c index 684dfed96..e9d3d6c11 100644 --- a/byterun/globroots.c +++ b/byterun/globroots.c @@ -55,7 +55,7 @@ struct global_root_list caml_global_roots = { NULL, { NULL, }, 0 }; /* Register a global C root */ -void caml_register_global_root(value *r) +CAMLexport void caml_register_global_root(value *r) { struct global_root * update[MAX_LEVEL]; struct global_root * e, * f; @@ -95,7 +95,7 @@ void caml_register_global_root(value *r) /* Un-register a global C root */ -void caml_remove_global_root(value *r) +CAMLexport void caml_remove_global_root(value *r) { struct global_root * update[MAX_LEVEL]; struct global_root * e, * f; diff --git a/byterun/macintosh.c b/byterun/macintosh.c deleted file mode 100644 index a49ef37e5..000000000 --- a/byterun/macintosh.c +++ /dev/null @@ -1,319 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1996 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -/* MacOS-specific stuff */ - -#include <stdio.h> -#include <stdlib.h> - -#include <AppleEvents.h> -#include <CursorCtl.h> -#include <Errors.h> -#include <Files.h> -#include <IntEnv.h> -#include <MacTypes.h> -#include <QuickDraw.h> -#include <TextUtils.h> - -#include "misc.h" -#include "rotatecursor.h" - -/* Unix emulation stuff */ - -static short prevdir = 0; - -int chdir (char *dir) -{ - WDPBRec pb; - int result; - short curdir; - - pb.ioCompletion = NULL; - pb.ioNamePtr = c2pstr (dir); - pb.ioVRefNum = 0; - pb.ioWDProcID = 'Caml'; - pb.ioWDDirID = 0; - result = PBOpenWDSync (&pb); - p2cstr ((unsigned char *) dir); - if (result != noErr) return -1; - curdir = pb.ioVRefNum; - result = SetVol (NULL, curdir); - if (result != noErr) return -1; - if (prevdir != 0){ - pb.ioVRefNum = prevdir; - PBCloseWDSync (&pb); - } - prevdir = curdir; - return 0; -} - -Handle macos_getfullpathname (short vrefnum, long dirid) -{ - Handle result = NewHandle (0); - CInfoPBRec mypb; - Str255 dirname; - OSErr err; - - if (result == NULL) goto failed; - - mypb.dirInfo.ioNamePtr = dirname; - mypb.dirInfo.ioVRefNum = vrefnum; - mypb.dirInfo.ioDrParID = dirid; - mypb.dirInfo.ioFDirIndex = -1; - - do{ - mypb.dirInfo.ioDrDirID = mypb.dirInfo.ioDrParID; - err = PBGetCatInfo (&mypb, false); - if (err) goto failed; - Munger (result, 0, NULL, 0, ":", 1); - Munger (result, 0, NULL, 0, dirname+1, dirname[0]); - /* XXX out of memory ?! */ - }while (mypb.dirInfo.ioDrDirID != fsRtDirID); - return result; - - failed: - if (result != NULL) DisposeHandle (result); - return NULL; -} - -char *getcwd (char *buf, size_t size) -{ - size_t len; - - Handle path = macos_getfullpathname (0, 0); - if (path == NULL) return NULL; - - len = GetHandleSize (path); - - if (len+1 >= size){ - DisposeHandle (path); - return NULL; - } - if (buf == NULL){ - buf = malloc (len+1); - if (buf == NULL) return NULL; - } - memcpy (buf, *path, len); - buf [len] = '\000'; - DisposeHandle (path); - return buf; -} - -pascal Boolean system_idleproc (const EventRecord *event, long *sleepTime, - RgnHandle *mouseRgn) -{ - static RgnHandle myregion = NULL; - EventRecord evt; - - if (myregion == NULL){ - myregion = NewRgn (); - SetRectRgn (myregion, -32000, -32000, 32000, 32000); - } - - /* XXX standalone appli: process event */ - *mouseRgn = myregion; - *sleepTime = 3; - if (EventAvail (keyDownMask, &evt) - && (evt.modifiers & cmdKey) - && ((evt.message & charCodeMask) == '.')){ - return true; - }else{ - return false; - } -} - -void quote (char *buf, long buflen) -{ - long i, j; - - j = 2; - for (i = 0; buf[i] != '\0'; i++){ - if (buf[i] == '\'') j += 3; - ++ j; - } - if (j >= buflen) return; - - buf[j--] = '\0'; - buf[j--] = '\''; - while (i > 0){ - -- i; - buf[j--] = buf[i]; - if (buf[i] == '\''){ - buf[j--] = '\''; - buf[j--] = '\266'; - buf[j--] = '\''; - } - } - buf[j] = '\''; Assert (j == 0); -} - -int system (char const *cmd) -{ - char *fmt = "directory %s; %s"; - char *cmdline; - char *buf; - #define buf_size 66000 - - static AEIdleUPP myIdleProcUPP = NULL; - AEAddressDesc serveraddr; - AppleEvent myevent, reply; - OSType toolserver_sig = 'MPSX'; - DescType ret_type; - OSErr err = noErr; - long event_status = 0, ret_size; - int result; - - /* once only */ - if (myIdleProcUPP == NULL) myIdleProcUPP = NewAEIdleProc (system_idleproc); - - SetCursor (*GetCursor (watchCursor)); - - buf = malloc (buf_size); - if (buf == NULL) goto failed_malloc_buf; - - /* Create the command line */ - getcwd (buf, buf_size); - quote (buf, buf_size); - cmdline = malloc (strlen (fmt) + strlen (cmd) + strlen (buf) + 1); - if (cmdline == NULL) goto failed_malloc_cmdline; - sprintf (cmdline, fmt, buf, cmd); - - /* Send the event and get the reply */ - err = AECreateDesc (typeApplSignature, &toolserver_sig, - sizeof (toolserver_sig), &serveraddr); - if (err != noErr) goto failed_AECreateDesc; - err = AECreateAppleEvent ('misc', 'dosc', &serveraddr, kAutoGenerateReturnID, - kAnyTransactionID, &myevent); - if (err != noErr) goto failed_AECreateAppleEvent; - err = AEPutParamPtr (&myevent, '----', 'TEXT', cmdline, strlen (cmdline)); - if (err != noErr) goto failed_AEPutParamPtr; - err = AESend (&myevent, &reply, kAEWaitReply + kAENeverInteract, - kAENormalPriority, kNoTimeOut, myIdleProcUPP, NULL); - if (err != noErr) goto failed_AESend; - err = AEGetParamPtr (&reply, 'errn', typeLongInteger, &ret_type, - &event_status, sizeof (event_status), &ret_size); - if (err != noErr || event_status != noErr) goto failed_script; - err = AEGetParamPtr (&reply, 'stat', typeLongInteger, &ret_type, - &event_status, sizeof (event_status), &ret_size); - if (err != noErr || event_status != noErr) goto failed_script; - - /* forward stdout and stderr */ - err = AEGetParamPtr (&reply, 'diag', typeChar, &ret_type, - buf, buf_size, &ret_size); - if (err == noErr) write (2, buf, ret_size); - err = AEGetParamPtr (&reply, '----', typeChar, &ret_type, - buf, buf_size, &ret_size); - if (err == noErr) write (1, buf, ret_size); - - AEDisposeDesc (&reply); - AEDisposeDesc (&myevent); - AEDisposeDesc (&serveraddr); - free (cmdline); - free (buf); - RotateCursor (32); - return 0; - - failed_script: - AEDisposeDesc (&reply); - failed_AESend: - failed_AEPutParamPtr: - AEDisposeDesc (&myevent); - failed_AECreateAppleEvent: - AEDisposeDesc (&serveraddr); - failed_AECreateDesc: - free (cmdline); - failed_malloc_cmdline: - free (buf); - failed_malloc_buf: - if (err != noErr) result = err; - else if (event_status != 0) result = event_status; - else result = 1; - if (result == 0 || result == -1) result = 1; - RotateCursor (32); - return result; -} - -/* We don't need search_exe_in_path on MacOS 9 because there - are no #! scripts */ - -char *search_exe_in_path (char * name) -{ - return name; -} - - -/* O'Caml's use use of dynamic linking is Unix-specific, these are functions - from dynlink.c without the dynamic linking stuff. -*/ - -#include "misc.h" -#include "mlvalues.h" -#include "prims.h" - -struct ext_table caml_shared_libs_path; -struct ext_table caml_prim_table; - -static c_primitive lookup_primitive(char * name) -{ - int i; - void * res; - - for (i = 0; caml_names_of_builtin_cprim[i] != NULL; i++) { - if (strcmp(name, caml_names_of_builtin_cprim[i]) == 0) - return caml_builtin_cprim[i]; - } - return NULL; -} - -void caml_build_primitive_table(char * lib_path, - char * libs, - char * req_prims) -{ - char * p; - - caml_ext_table_init(&caml_prim_table, 0x180); - for (p = req_prims; *p != 0; p += strlen(p) + 1) { - c_primitive prim = lookup_primitive(p); - if (prim == NULL) - caml_fatal_error_arg("Fatal error: unknown C primitive `%s'\n", p); - caml_ext_table_add(&caml_prim_table, (void *) prim); - } -} - -value caml_dynlink_open_lib (value filename) -{ - return Val_unit; -} - -value caml_dynlink_close_lib(value handle) -{ - return Val_unit; -} - -value caml_dynlink_lookup_symbol(value handle, value symbolname) -{ - return Val_unit; -} - -value caml_dynlink_add_primitive(value handle) -{ - caml_invalid_argument("dynlink_add_primitive"); - return Val_unit; /* not reached */ -} - -value caml_dynlink_get_current_libs(value unit) -{ - return Atom (0); -} diff --git a/byterun/macintosh.h b/byterun/macintosh.h deleted file mode 100644 index 21410aee1..000000000 --- a/byterun/macintosh.h +++ /dev/null @@ -1,19 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1999 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -/* MacOS-specific stuff */ - -#define WIFEXITED(x) 1 -#define WEXITSTATUS(x) (x) diff --git a/byterun/major_gc.c b/byterun/major_gc.c index 4c9545e1d..d39cd2f20 100644 --- a/byterun/major_gc.c +++ b/byterun/major_gc.c @@ -31,8 +31,8 @@ unsigned long caml_percent_free; long caml_major_heap_increment; -char *caml_heap_start, *caml_heap_end; -page_table_entry *caml_page_table; +CAMLexport char *caml_heap_start, *caml_heap_end; +CAMLexport page_table_entry *caml_page_table; asize_t caml_page_low, caml_page_high; char *caml_gc_sweep_hp; int caml_gc_phase; /* always Phase_mark, Phase_sweep, or Phase_idle */ diff --git a/byterun/memory.c b/byterun/memory.c index 39ab462f1..824a01d44 100644 --- a/byterun/memory.c +++ b/byterun/memory.c @@ -251,7 +251,7 @@ color_t caml_allocation_color (void *hp) } } -value caml_alloc_shr (mlsize_t wosize, tag_t tag) +CAMLexport value caml_alloc_shr (mlsize_t wosize, tag_t tag) { char *hp, *new_block; @@ -305,7 +305,7 @@ value caml_alloc_shr (mlsize_t wosize, tag_t tag) (or kilobytes, ...) instead of words. You can change units between calls to [caml_adjust_gc_speed]. */ -void caml_adjust_gc_speed (mlsize_t mem, mlsize_t max) +CAMLexport void caml_adjust_gc_speed (mlsize_t mem, mlsize_t max) { if (max == 0) max = 1; if (mem > max) mem = max; @@ -348,7 +348,7 @@ void caml_modify (value *fp, value val) Modify (fp, val); } -void * caml_stat_alloc (asize_t sz) +CAMLexport void * caml_stat_alloc (asize_t sz) { void * result = malloc (sz); @@ -360,12 +360,12 @@ void * caml_stat_alloc (asize_t sz) return result; } -void caml_stat_free (void * blk) +CAMLexport void caml_stat_free (void * blk) { free (blk); } -void * caml_stat_resize (void * blk, asize_t sz) +CAMLexport void * caml_stat_resize (void * blk, asize_t sz) { void * result = realloc (blk, sz); diff --git a/byterun/memory.h b/byterun/memory.h index fb77b3680..4be908b8c 100644 --- a/byterun/memory.h +++ b/byterun/memory.h @@ -31,7 +31,7 @@ #include "mlvalues.h" CAMLextern value caml_alloc_shr (mlsize_t, tag_t); -void caml_adjust_gc_speed (mlsize_t, mlsize_t); +CAMLextern void caml_adjust_gc_speed (mlsize_t, mlsize_t); CAMLextern void caml_modify (value *, value); CAMLextern void caml_initialize (value *, value); CAMLextern value caml_check_urgent_gc (value); diff --git a/byterun/meta.c b/byterun/meta.c index 22fe00845..18fc87094 100644 --- a/byterun/meta.c +++ b/byterun/meta.c @@ -131,12 +131,6 @@ value caml_realloc_global(value size) return Val_unit; /* not reached */ } -value caml_available_primitives(value unit) -{ - caml_invalid_argument("Meta.available_primitives"); - return Val_unit; /* not reached */ -} - value caml_invoke_traced_function(value codeptr, value env, value arg) { caml_invalid_argument("Meta.invoke_traced_function"); diff --git a/byterun/minor_gc.c b/byterun/minor_gc.c index 4cf707779..33b1acc3a 100644 --- a/byterun/minor_gc.c +++ b/byterun/minor_gc.c @@ -28,10 +28,10 @@ #include "signals.h" asize_t caml_minor_heap_size; -char *caml_young_start = NULL, *caml_young_end = NULL; -char *caml_young_ptr = NULL, *caml_young_limit = NULL; +CAMLexport char *caml_young_start = NULL, *caml_young_end = NULL; +CAMLexport char *caml_young_ptr = NULL, *caml_young_limit = NULL; static value **ref_table = NULL, **ref_table_end, **ref_table_threshold; -value **caml_ref_table_ptr = NULL, **caml_ref_table_limit; +CAMLexport value **caml_ref_table_ptr = NULL, **caml_ref_table_limit; static asize_t ref_table_size, ref_table_reserve; int caml_in_minor_collection = 0; @@ -215,7 +215,7 @@ void caml_empty_minor_heap (void) functions, etc. Leave the minor heap empty. */ -void caml_minor_collection (void) +CAMLexport void caml_minor_collection (void) { long prev_alloc_words = caml_allocated_words; @@ -231,7 +231,7 @@ void caml_minor_collection (void) caml_empty_minor_heap (); } -value caml_check_urgent_gc (value extra_root) +CAMLexport value caml_check_urgent_gc (value extra_root) { CAMLparam1 (extra_root); if (caml_force_major_slice) caml_minor_collection(); diff --git a/byterun/mpwtool.c b/byterun/mpwtool.c deleted file mode 100644 index 3c45a685e..000000000 --- a/byterun/mpwtool.c +++ /dev/null @@ -1,39 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1996 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -/* glue code for MPW tools */ - -#include <stdio.h> -#include <stdlib.h> - -int ui_read (int fd, char *p, unsigned int n) -{ - return read (fd, p, n); -} - -int ui_write (int fd, char *p, unsigned int n) -{ - return write (fd, p, n); -} - -void ui_print_stderr (char *msg, void *arg) -{ - fprintf (stderr, msg, arg); -} - -void ui_exit (int retcode) -{ - exit (retcode); -} diff --git a/byterun/roots.c b/byterun/roots.c index 31e2f9580..83c59dd88 100644 --- a/byterun/roots.c +++ b/byterun/roots.c @@ -27,7 +27,7 @@ CAMLexport struct caml__roots_block *caml_local_roots = NULL; -void (*caml_scan_roots_hook) (scanning_action f) = NULL; +CAMLexport void (*caml_scan_roots_hook) (scanning_action f) = NULL; /* FIXME should rename to [caml_oldify_young_roots] and synchronise with asmrun/roots.c */ @@ -90,9 +90,9 @@ void caml_do_roots (scanning_action f) if (caml_scan_roots_hook != NULL) (*caml_scan_roots_hook)(f); } -void caml_do_local_roots (scanning_action f, value *stack_low, - value *stack_high, - struct caml__roots_block *local_roots) +CAMLexport void caml_do_local_roots (scanning_action f, value *stack_low, + value *stack_high, + struct caml__roots_block *local_roots) { register value * sp; struct caml__roots_block *lr; diff --git a/byterun/rotatecursor.c b/byterun/rotatecursor.c deleted file mode 100644 index 29506108d..000000000 --- a/byterun/rotatecursor.c +++ /dev/null @@ -1,120 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1996 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -/* rotatecursor library, written by <Damien.Doligez@inria.fr> - This file is in the public domain. - - version 1.13 - - See rotatecursor.h for documentation. -*/ - -#include <CursorCtl.h> -#include <MacTypes.h> -#include <stdlib.h> -#include <Timer.h> - -#include "rotatecursor.h" - -typedef struct { - TMTask t; - int volatile *p1; - int volatile *p2; -} Xtmtask; - -int volatile rotatecursor_flag = 1; -static int rotatecursor_inited = 0; -static int rotatecursor_period = 50; -static Xtmtask rotatecursor_tmtask; -static pascal void (*rotatecursor_action) (long) = &RotateCursor; - - -#if GENERATINGCFM - -static void rotatecursor_timerproc (Xtmtask *p) -{ - if (p->p1 != NULL && *(p->p1) == 0) *(p->p1) = 1; - if (p->p2 != NULL && *(p->p2) == 0) *(p->p2) = 1; -} - -#else /* GENERATINGCFM */ - -extern Xtmtask *getparam() ONEWORDINLINE(0x2009); /* MOVE.L A1, D0 */ - -static void rotatecursor_timerproc (void) -{ - register Xtmtask *p = getparam (); - - if (p->p1 != NULL && *(p->p1) == 0) *(p->p1) = 1; - if (p->p2 != NULL && *(p->p2) == 0) *(p->p2) = 1; -} - -#endif /* else GENERATINGCFM */ - - -void rotatecursor_final (void) -{ - if (rotatecursor_inited){ - RmvTime ((QElemPtr) &rotatecursor_tmtask); - rotatecursor_flag = 1; - rotatecursor_inited = 0; - } -} - -static void rotatecursor_init (void) -{ - if (rotatecursor_inited) return; - - rotatecursor_tmtask.t.tmAddr = NewTimerProc (rotatecursor_timerproc); - rotatecursor_tmtask.t.tmCount = 0; - rotatecursor_tmtask.t.tmWakeUp = 0; - rotatecursor_tmtask.t.tmReserved = 0; - rotatecursor_tmtask.p1 = NULL; - rotatecursor_tmtask.p2 = &rotatecursor_flag; - - InsTime ((QElemPtr) &rotatecursor_tmtask); - atexit (rotatecursor_final); - rotatecursor_flag = 1; - - rotatecursor_inited = 1; -} - -void rotatecursor_options (int volatile *p1, int period, pascal void (*f) (long)) -{ - if (!rotatecursor_inited) rotatecursor_init (); - - rotatecursor_tmtask.p1 = p1; - if (p1 != NULL && *p1 == 0) *p1 = rotatecursor_flag; - rotatecursor_period = (period == 0) ? 50 : period; - rotatecursor_action = (f == NULL) ? &RotateCursor : f; -} - -int rotatecursor_rearm (void) -{ - if (!rotatecursor_inited) rotatecursor_init (); - - rotatecursor_flag = 0; - PrimeTime ((QElemPtr) &rotatecursor_tmtask, rotatecursor_period); - return 0; -} - -int rotatecursor_ticker (void) -{ - if (!rotatecursor_inited) rotatecursor_init (); - - rotatecursor_rearm (); - (*rotatecursor_action) (32); - return 0; -} diff --git a/byterun/rotatecursor.h b/byterun/rotatecursor.h deleted file mode 100644 index 0fedabc67..000000000 --- a/byterun/rotatecursor.h +++ /dev/null @@ -1,124 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1996 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -/* rotatecursor library, written by <Damien.Doligez@inria.fr> - This file is in the public domain. - - version 1.13 - - The goal of this library is to help implement cooperative multitasking - for MPW tools: to make sure that your program calls RotateCursor often - enough (about 20 times per second) but not too often (to avoid a big - slowdown). - It can also be used for applications with a little more work. - - - Simple usage for MPW tools: - ^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 1. #include this file where appropriate - 2. Insert the following line in every loop of your program: - ROTATECURSOR_MAGIC (); - The overhead of this macro is only a few CPU cycles, so it can be - used without problem even in tight loops. - - - Simple usage for applications: - ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ - 1. Write a function with prototype: - pascal void myaction (long x); - This functions should get and handle all events until the event - queue is empty (i.e. until it gets a null event). It should also - animate the cursor. - 2. #include this file where appropriate - 3. Add this line to the init code of your program: - rotatecursor_options (NULL, 0, &myaction); - 4. Insert the following line in every loop of your program: - ROTATECURSOR_MAGIC (); - The overhead of this macro is only a few CPU cycles, so it can be - used without problem even in tight loops. - 5. If there is no function called RotateCursor in your libraries, you - will have to provide one that does nothing (it will not be called). - - See below for advanced options. -*/ - -#ifndef _rotatecursor_h_ -#define _rotatecursor_h_ - -extern int volatile rotatecursor_flag; -/* - [rotatecursor_flag] will be automagically set to 1 when the time comes - to call [rotatecursor_ticker]. -*/ - - -void rotatecursor_options (int volatile *p1, int period, - pascal void (*action) (long)); -/* - Use [rotatecursor_options] to change advanced parameters: - - 1. [p1] is a pointer to another variable that will be set to 1 when - the time is up, unless it is already nonzero. Typical use is when - you already have a variable in your program that is set - asynchronously for something else, and you want to avoid testing - two different variables in your inner loop. Pass [NULL] in this - argument if you don't need this feature. - - 2. [period] is the interval (in milliseconds) between calls to - RotateCursor. Reasonable values are between 10 and 200. - If you pass 0 in this argument, the default value (50) will - be used. This value is passed to PrimeTime, so a negative value - represents a delay in microseconds (not very useful here...) - - 3. [action] is the function that will be called at regular intervals - by [rotatecursor_ticker]. If you pass [NULL] in this argument, - the default function, [RotateCursor], will be called. -*/ - -int rotatecursor_rearm (void); -/* - [rotatecursor_rearm] resets [rotatecursor_flag] to 0 and rearms the - Time Manager task that will set [rotatecursor_flag] to 1 after the - appropriate delay. - You can use [rotatecursor_rearm] if some part of your program needs - to perform a periodic action that is not the normal one set up - with [rotatecursor_options]. - This function always returns 0. -*/ - -int rotatecursor_ticker (void); -/* - [rotatecursor_ticker] calls [rotatecursor_rearm] (see below) and your - [action] function (or [RotateCursor]). - This function always returns 0. It returns an int so you can use - it in an expression as well as a statement. - */ - -#define ROTATECURSOR_MAGIC() (rotatecursor_flag ? rotatecursor_ticker () : 0) -/* - [ROTATECURSOR_MAGIC] is a simple interface to [rotatecursor_flag] - and [rotatecursor_ticker]. Can be used as a statement (followed by - a semicolon) or in an expression (followed by a comma). -*/ - -void rotatecursor_final (void); -/* - [rotatecursor_final] is set up (with [atexit]) to be called before your - program finishes. If for any reason the [atexit] functions are not - called before your program exits, you should call this function by hand. - It is harmless to call [rotatecursor_final] twice. -*/ - -#endif /* _rotatecursor_h_ */ diff --git a/byterun/signals.c b/byterun/signals.c index a76feb317..fdd53f231 100644 --- a/byterun/signals.c +++ b/byterun/signals.c @@ -35,14 +35,14 @@ extern sighandler caml_win32_signal(int sig, sighandler action); #define signal(sig,act) caml_win32_signal(sig,act) #endif -int volatile caml_async_signal_mode = 0; -int volatile caml_pending_signal = 0; -int volatile caml_something_to_do = 0; +CAMLexport int volatile caml_async_signal_mode = 0; +CAMLexport int volatile caml_pending_signal = 0; +CAMLexport int volatile caml_something_to_do = 0; int volatile caml_force_major_slice = 0; value caml_signal_handlers = 0; -void (*caml_enter_blocking_section_hook)(void) = NULL; -void (*caml_leave_blocking_section_hook)(void) = NULL; -void (* volatile caml_async_action_hook)(void) = NULL; +CAMLexport void (*caml_enter_blocking_section_hook)(void) = NULL; +CAMLexport void (*caml_leave_blocking_section_hook)(void) = NULL; +CAMLexport void (* volatile caml_async_action_hook)(void) = NULL; void caml_process_event(void) { diff --git a/camlp4/Makefile.Mac b/camlp4/Makefile.Mac deleted file mode 100644 index 7b96430a1..000000000 --- a/camlp4/Makefile.Mac +++ /dev/null @@ -1,204 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -DIRS = odyl camlp4 meta etc top ocpp lib man -FDIRS = odyl camlp4 meta lib - -all :boot:camlp4 - for i in {DIRS} - directory {i} - domake all - directory :: - end - -:boot:camlp4 - domake clean_cold library_cold compile_cold - domake promote_cold - domake clean_cold clean_hot library - -clean_hot - for i in {DIRS} - directory {i} - domake clean - directory :: - end - -depend - for i in {DIRS} - directory {i} - domake depend - directory :: - end - -install - for i in {DIRS} - directory {i} - domake install - directory :: - end - -scratch clean - delete -i :boot:.cm[oi] || set status 0 - delete -i :boot:camlp4 || set status 0 - delete -y -i :boot:SAVED - -clean clean_hot clean_cold - -# Normal bootstrap - -bootstrap backup promote clean_hot all compare - -backup - newfolder :boot.new - domake mv_cvs -d FROM=:boot: -d TO=:boot.new: - move :boot :boot.new:SAVED - move :boot.new :boot - -restore - move :boot:SAVED :boot.new - domake mv_cvs -d FROM=:boot: -d TO=:boot.new: - delete -y -i :boot - rename :boot.new :boot - -promote - for i in {FDIRS} - directory {i} - domake promote - directory :: - end - -compare - set failures 0 - set exit 0 - for i in {FDIRS} - directory {i} - domake compare dev:null - evaluate failures += {status} - directory :: - end - if {failures} - echo "Fixpoint not reached, try one more bootstrapping cycle." - else - echo "Fixpoint reached, bootstrap succeeded." - end - -cleanboot - delete -i -y :boot:SAVED:SAVED - - -# Fast bootstrap - -bootstrap_fast backup promote clean_hot fast compare - -fast :boot:camlp4 - for i in {FDIRS} - directory {i} - domake all - directory :: - end - -clean_fast - for i in {FDIRS} - directory {i} - domake clean - directory :: - end - - -# The very beginning - -world - domake clean_cold library_cold compile_cold - domake promote_cold - domake clean_cold clean_hot library all - -library - directory lib - domake all promote - directory :: - -# Cold start using pure Objective Caml sources - -library_cold - directory :ocaml_src:lib - domake all promote - directory ::: - -compile_cold - directory ocaml_src - for i in {FDIRS} - directory {i} - domake all - directory :: - end - directory :: - -promote_cold - for i in {FDIRS} - directory :ocaml_src:{i} - domake promote - directory ::: - end - -clean_cold - for i in {FDIRS} - directory :ocaml_src:{i} - domake clean - directory ::: - end - -# Bootstrap the sources - -#bootstrap_sources -# cd etc; make pr_o.cmo -# mkdir ocaml_src.new -# @-for i in $(FDIRS); do \ -# (mkdir ocaml_src.new/$$i; cd ocaml_src.new/$$i; \ -# sed 's/# $$Id.*\$$/# Id/' ../../$$i/Makefile | \ -# sed 's-include ../config-include ../../config-g' | \ -# sed 's-../boot-../../boot-g' > Makefile; \ -# cp ../../$$i/.depend .) \ -# done -# @-for i in $(FDIRS); do \ -# for j in $$i/*.ml*; do \ -# echo ============================================; \ -# echo ocaml_src.new/$$j; \ -# ./tools/conv.sh $$j | \ -# sed 's/$$Id.*\$$/Id/' > ocaml_src.new/$$j; \ -# done; \ -# done - -#promote_sources: -# make mv_cvs FROM=ocaml_src TO=ocaml_src.new -# for i in $(FDIRS); do \ -# make mv_cvs FROM=ocaml_src/$$i TO=ocaml_src.new/$$i; \ -# done -# mv ocaml_src/tools ocaml_src.new/. -# mv ocaml_src ocaml_src.new/SAVED -# mv ocaml_src.new ocaml_src - -#unpromote_sources: -# mv ocaml_src ocaml_src.new -# mv ocaml_src.new/SAVED ocaml_src -# mv ocaml_src.new/tools ocaml_src/. -# for i in $(FDIRS); do \ -# make mv_cvs FROM=ocaml_src.new/$$i TO=ocaml_src/$$i; \ -# done -# make mv_cvs FROM=ocaml_src.new TO=ocaml_src - -#clean_sources: -# rm -rf ocaml_src/SAVED/SAVED - -mv_cvs - if "`exists "{FROM}CVS"`"; move "{FROM}CVS" "{TO}"; end - if "`exists "{FROM}.cvsignore"`"; move "{FROM}.cvsignore" "{TO}"; end diff --git a/camlp4/camlp4/Makefile.Mac b/camlp4/camlp4/Makefile.Mac deleted file mode 100644 index 63a0e6bed..000000000 --- a/camlp4/camlp4/Makefile.Mac +++ /dev/null @@ -1,69 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -INCLUDES = -I ::odyl: -I ::boot: -I "{OTOP}utils:" -I "{OTOP}parsing:" - -I "{OTOP}otherlibs:dynlink:" -OCAMLCFLAGS = {INCLUDES} -LINKFLAGS = {INCLUDES} -INTERFACES = -I "{OLIBDIR}" Arg Array ArrayLabels Buffer Callback CamlinternalOO Char Complex Digest Filename Format Gc Genlex Hashtbl Int32 Int64 Lazy Lexing List ListLabels Map Marshal MoreLabels Nativeint Obj Oo Parsing Pervasives Printexc Printf Queue Random Scanf Set Sort Stack StdLabels Stream String StringLabels Sys Weak - -I ::boot: Extfold Extfun Fstream - Gramext Grammar Plexer - Stdpp Token -I "{OTOP}utils:" Config Warnings - -I "{OTOP}parsing:" Asttypes Location Longident Parsetree - -I : Ast2pt MLast Pcaml Quotation Spretty -CAMLP4_INTF = "{OTOP}utils:config.cmi" "{OTOP}utils:warnings.cmi" - "{OTOP}parsing:asttypes.cmi" "{OTOP}parsing:location.cmi" - "{OTOP}parsing:longident.cmi" "{OTOP}parsing:parsetree.cmi" - ast2pt.cmo mLast.cmi pcaml.cmi spretty.cmi - quotation.cmi -CAMLP4_OBJS = ::boot:stdpp.cmo ::boot:token.cmo ::boot:plexer.cmo - ::boot:gramext.cmo ::boot:grammar.cmo ::boot:extfold.cmo ::boot:extfun.cmo - ::boot:fstream.cmo "{OTOP}utils:config.cmo" - quotation.cmo ast2pt.cmo spretty.cmo reloc.cmo pcaml.cmo - argl.cmo crc.cmo -OBJS = ::odyl:odyl.cma camlp4.cma -XOBJS = camlp4.cmxa -CAMLP4M = - -CAMLP4 = camlp4 - -all {CAMLP4} - -{CAMLP4} {OBJS} ::odyl:odyl.cmo - {OCAMLC} {OBJS} {CAMLP4M} ::odyl:odyl.cmo -linkall -o {CAMLP4} - -camlp4.cma {CAMLP4_OBJS} - {OCAMLC} {LINKFLAGS} {CAMLP4_OBJS} -a -o camlp4.cma - -clean - delete -i {CAMLP4} - -{dependrule} - -promote - duplicate -y {CAMLP4} ::boot: - -compare - for i in {CAMLP4} - equal -s {i} ::boot:{i} || exit 1 - end - -install - (newfolder "{BINDIR}" || set status 0) dev:null - duplicate -y {CAMLP4} "{BINDIR}" - duplicate -y mLast.mli quotation.mli pcaml.mli spretty.mli "{P4LIBDIR}" - duplicate -y mLast.cmi quotation.cmi ast2pt.cmi pcaml.cmi spretty.cmi - "{P4LIBDIR}" - duplicate -y camlp4.cma "{P4LIBDIR}" - -{defrules} diff --git a/camlp4/etc/Makefile.Mac b/camlp4/etc/Makefile.Mac deleted file mode 100644 index 27c793fe3..000000000 --- a/camlp4/etc/Makefile.Mac +++ /dev/null @@ -1,71 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -INCLUDES = -I ::camlp4: -I ::boot: -OCAMLCFLAGS = {INCLUDES} -OBJS = q_phony.cmo pa_o.cmo pa_op.cmo pa_oop.cmo pa_ru.cmo pa_format.cmo - pa_olabl.cmo pa_sml.cmo pa_lisp.cmo pa_extfold.cmo pa_extfun.cmo pa_fstream.cmo spa_lefteval.cmo - pr_r.cmo pr_rp.cmo pr_o.cmo pr_op.cmo pr_extend.cmo - pr_extfun.cmo pr_null.cmo pr_depend.cmo -INTF = pa_o.cmi -CAMLP4OM = pa_o.cmo pa_op.cmo ::meta:pr_dump.cmo -OUT = {OBJS} camlp4o - -all {OUT} mkcamlp4.mpw - -camlp4o ::camlp4:camlp4 {CAMLP4OM} - delete -i camlp4o - directory ::camlp4: - domake -d CAMLP4=::etc:camlp4o -d CAMLP4M="-I ::etc: {CAMLP4OM}" - directory ::etc: - -mkcamlp4.mpw mkcamlp4.mpw.tpl - streamedit -e "1,$ replace -c /OLIBDIR/ "`quote "{OLIBDIR}"`"" - -e "1,$ replace -c /LIBDIR/ "`quote "{P4LIBDIR}"`"" - mkcamlp4.mpw.tpl > mkcamlp4.mpw - -bootstrap_lisp $OutOfDate - ::boot:camlp4 :pa_lispr.cmo -I ::boot: pa_extend.cmo q_MLast.cmo - :pr_r.cmo :pr_extend.cmo :pr_rp.cmo -phony_quot pa_lisp.ml - | streamedit -e '1,$ replace /;; ()0/ "(* " 0 " *)"' - -e "1,$ replace /'./pa_lispr.cmo'/ 'pa_r.cmo pa_rp.cmo'" >tmp - rename -y pa_lispr.ml pa_lispr.ml.old - rename -y tmp pa_lispr.ml - -compare_lisp $OutOfDate - set status 0 - -clean - delete -i mkcamlp4.mpw camlp4o - -{dependrule} - -get_promote $OutOfDate - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - (newfolder "{BINDIR}" || set status 0) dev:null - duplicate -y {OBJS} "{P4LIBDIR}" - duplicate -y {INTF} "{P4LIBDIR}" - duplicate -y lib.sml "{P4LIBDIR}" - duplicate -y camlp4o "{BINDIR}" - duplicate -y mkcamlp4.mpw "{BINDIR}mkcamlp4" - -{defrules} - -pa_lisp.cmo pa_lispr.cmo -pr_extend.cmo pa_extfun.cmo -pr_o.cmo pa_extfun.cmo -pr_op.cmo pa_extfun.cmo -pr_r.cmo pa_extfun.cmo -pr_rp.cmo pa_extfun.cmo diff --git a/camlp4/lib/Makefile.Mac b/camlp4/lib/Makefile.Mac deleted file mode 100644 index 90034c5c7..000000000 --- a/camlp4/lib/Makefile.Mac +++ /dev/null @@ -1,46 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -INCLUDES = -OCAMLCFLAGS = {INCLUDES} -OBJS = stdpp.cmo token.cmo plexer.cmo gramext.cmo grammar.cmo extfun.cmo fstream.cmo -INTF = stdpp.cmi token.cmi plexer.cmi gramext.cmi grammar.cmi extfun.cmi fstream.cmi -TARGETS = gramlib.cma - -all {TARGETS} - -{TARGETS} {OBJS} - {OCAMLC} {OBJS} -a -o {TARGETS} - -steal - -compare_stolen - -clean - delete -i {TARGETS} - -{dependrule} - -promote - duplicate -y {OBJS} {INTF} ::boot: - -compare - for i in {OBJS} {INTF} - equal -s ::boot:{i} || exit 1 - end - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - duplicate -y {TARGETS} .mli .cmi "{P4LIBDIR}" - -{defrules} diff --git a/camlp4/man/Makefile.Mac b/camlp4/man/Makefile.Mac deleted file mode 100644 index df95e66fb..000000000 --- a/camlp4/man/Makefile.Mac +++ /dev/null @@ -1,31 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -TARGETS = camlp4.help - -all {TARGETS} - -clean - delete -i {TARGETS} - -depend $OutOfDate - -get_promote $OutOfDate - -install - (newfolder "{MANDIR}" || set status 0) dev:null - duplicate -y {TARGETS} "{MANDIR}" - -camlp4.help camlp4.help.tpl - streamedit -e "1,$ replace -c /LIBDIR/ '{P4LIBDIR}'" camlp4.help.tpl - > camlp4.help diff --git a/camlp4/meta/Makefile.Mac b/camlp4/meta/Makefile.Mac deleted file mode 100644 index 9451d5222..000000000 --- a/camlp4/meta/Makefile.Mac +++ /dev/null @@ -1,50 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -INCLUDES = -I ::camlp4: -I ::boot: -I "{OTOP}utils:" -OCAMLCFLAGS = {INCLUDES} -OBJS = q_MLast.cmo pa_r.cmo pa_rp.cmo pa_extend.cmo pa_extend_m.cmo - pa_ifdef.cmo pr_dump.cmo -CAMLP4RM = pa_r.cmo pa_rp.cmo pr_dump.cmo -OUT = {OBJS} camlp4r - -all {OUT} - -camlp4r ::camlp4:camlp4 {CAMLP4RM} - delete -i camlp4r - directory ::camlp4: - domake -d CAMLP4=::meta:camlp4r -d CAMLP4M="-I ::meta {CAMLP4RM}" - directory ::meta: - -clean - delete -i {OUT} - -{dependrule} - -promote - duplicate -y {OUT} pa_extend.cmi ::boot: - -compare - for i in {OUT} - equal -s {i} ::boot:{i} || exit 1 - end - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - (newfolder "{BINDIR}" || set status 0) dev:null - duplicate -y {OBJS} "{P4LIBDIR}" - duplicate -y camlp4r "{BINDIR}" - -{defrules} - -pr_dump.cmo ::camlp4:ast2pt.cmo "{OTOP}utils:config.cmi" ::camlp4:pcaml.cmi diff --git a/camlp4/ocaml_src/camlp4/Makefile.Mac b/camlp4/ocaml_src/camlp4/Makefile.Mac deleted file mode 100644 index b7561d8cb..000000000 --- a/camlp4/ocaml_src/camlp4/Makefile.Mac +++ /dev/null @@ -1,69 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# This file has been generated by program: do not edit! - -INCLUDES = -I ::odyl: -I :::boot: -I "{OTOP}utils:" -I "{OTOP}parsing:" - -I "{OTOP}otherlibs:dynlink:" -OCAMLCFLAGS = {INCLUDES} -LINKFLAGS = {INCLUDES} -INTERFACES = -I "{OLIBDIR}" Arg Array ArrayLabels Buffer Callback CamlinternalOO Char Complex Digest Filename Format Gc Genlex Hashtbl Int32 Int64 Lazy Lexing List ListLabels Map Marshal MoreLabels Nativeint Obj Oo Parsing Pervasives Printexc Printf Queue Random Scanf Set Sort Stack StdLabels Stream String StringLabels Sys Weak - -I :::boot: Extfold Extfun Fstream - Gramext Grammar Plexer - Stdpp Token -I "{OTOP}utils:" Config Warnings - -I "{OTOP}parsing:" Asttypes Location Longident Parsetree - -I : Ast2pt MLast Pcaml Quotation Spretty -CAMLP4_INTF = "{OTOP}utils:config.cmi" "{OTOP}utils:warnings.cmi" - "{OTOP}parsing:asttypes.cmi" "{OTOP}parsing:location.cmi" - "{OTOP}parsing:longident.cmi" "{OTOP}parsing:parsetree.cmi" - ast2pt.cmo mLast.cmi pcaml.cmi spretty.cmi - quotation.cmi -CAMLP4_OBJS = :::boot:stdpp.cmo :::boot:token.cmo :::boot:plexer.cmo - :::boot:gramext.cmo :::boot:grammar.cmo :::boot:extfold.cmo :::boot:extfun.cmo - :::boot:fstream.cmo "{OTOP}utils:config.cmo" - quotation.cmo ast2pt.cmo spretty.cmo reloc.cmo pcaml.cmo - argl.cmo crc.cmo -OBJS = ::odyl:odyl.cma camlp4.cma -XOBJS = camlp4.cmxa -CAMLP4M = - -CAMLP4 = camlp4 - -all {CAMLP4} - -{CAMLP4} {OBJS} ::odyl:odyl.cmo - {OCAMLC} {OBJS} {CAMLP4M} ::odyl:odyl.cmo -linkall -o {CAMLP4} - -camlp4.cma {CAMLP4_OBJS} - {OCAMLC} {LINKFLAGS} {CAMLP4_OBJS} -a -o camlp4.cma - -clean - delete -i {CAMLP4} - -{dependrule} - -promote - duplicate -y {CAMLP4} :::boot: - -compare - for i in {CAMLP4} - equal -s {i} :::boot:{i} || exit 1 - end - -install - (newfolder "{BINDIR}" || set status 0) dev:null - duplicate -y {CAMLP4} "{BINDIR}" - duplicate -y mLast.mli quotation.mli pcaml.mli spretty.mli "{P4LIBDIR}" - duplicate -y mLast.cmi quotation.cmi ast2pt.cmi pcaml.cmi spretty.cmi - "{P4LIBDIR}" - duplicate -y camlp4.cma "{P4LIBDIR}" - -{defrules} diff --git a/camlp4/ocaml_src/lib/Makefile.Mac b/camlp4/ocaml_src/lib/Makefile.Mac deleted file mode 100644 index 2fc15c630..000000000 --- a/camlp4/ocaml_src/lib/Makefile.Mac +++ /dev/null @@ -1,46 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# This file has been generated by program: do not edit! - -INCLUDES = -OCAMLCFLAGS = {INCLUDES} -OBJS = stdpp.cmo token.cmo plexer.cmo gramext.cmo grammar.cmo extfun.cmo fstream.cmo -INTF = stdpp.cmi token.cmi plexer.cmi gramext.cmi grammar.cmi extfun.cmi fstream.cmi -TARGETS = gramlib.cma - -all {TARGETS} - -{TARGETS} {OBJS} - {OCAMLC} {OBJS} -a -o {TARGETS} - -steal - -compare_stolen - -clean - delete -i {TARGETS} - -{dependrule} - -promote - duplicate -y {OBJS} {INTF} :::boot: - -compare - for i in {OBJS} {INTF} - equal -s :::boot:{i} || exit 1 - end - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - duplicate -y {TARGETS} .mli .cmi "{P4LIBDIR}" - -{defrules} diff --git a/camlp4/ocaml_src/meta/Makefile.Mac b/camlp4/ocaml_src/meta/Makefile.Mac deleted file mode 100644 index b62b945c1..000000000 --- a/camlp4/ocaml_src/meta/Makefile.Mac +++ /dev/null @@ -1,50 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# This file has been generated by program: do not edit! - -INCLUDES = -I ::camlp4: -I :::boot: -I "{OTOP}utils:" -OCAMLCFLAGS = {INCLUDES} -OBJS = q_MLast.cmo pa_r.cmo pa_rp.cmo pa_extend.cmo pa_extend_m.cmo - pa_ifdef.cmo pr_dump.cmo -CAMLP4RM = pa_r.cmo pa_rp.cmo pr_dump.cmo -OUT = {OBJS} camlp4r - -all {OUT} - -camlp4r ::camlp4:camlp4 {CAMLP4RM} - delete -i camlp4r - directory ::camlp4: - domake -d CAMLP4=::meta:camlp4r -d CAMLP4M="-I ::meta {CAMLP4RM}" - directory ::meta: - -clean - delete -i {OUT} - -{dependrule} - -promote - duplicate -y {OUT} pa_extend.cmi :::boot: - -compare - for i in {OUT} - equal -s {i} :::boot:{i} || exit 1 - end - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - (newfolder "{BINDIR}" || set status 0) dev:null - duplicate -y {OBJS} "{P4LIBDIR}" - duplicate -y camlp4r "{BINDIR}" - -{defrules} - -pr_dump.cmo ::camlp4:ast2pt.cmo "{OTOP}utils:config.cmi" ::camlp4:pcaml.cmi diff --git a/camlp4/ocaml_src/odyl/Makefile.Mac b/camlp4/ocaml_src/odyl/Makefile.Mac deleted file mode 100644 index 41b16d30e..000000000 --- a/camlp4/ocaml_src/odyl/Makefile.Mac +++ /dev/null @@ -1,49 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# This file has been generated by program: do not edit! - -INCLUDES = -I "{OTOP}otherlibs:dynlink:" -OCAMLCFLAGS = {INCLUDES} -LINKFLAGS = {INCLUDES} - -OBJS = odyl_config.cmo odyl_main.cmo - -all odyl - -odyl odyl.cma odyl.cmo - {OCAMLC} odyl.cma odyl.cmo -o odyl - -odyl.cma {OBJS} - {OCAMLC} {LINKFLAGS} dynlink.cma {OBJS} -a -o odyl.cma - -odyl_config.cmo - echo 'let standard_library =' > odyl_config.ml - echo ' try Sys.getenv "CAMLP4LIB" with' >> odyl_config.ml - echo ' Not_found -> "'{P4LIBDIR}'"' >> odyl_config.ml - {OCAMLC} {OCAMLCFLAGS} -c odyl_config.ml - -clean - delete -i odyl_config.ml odyl - -{dependrule} - -promote $OutOfDate - -compare $OutOfDate - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - (newfolder "{BINDIR}" || set status 0) dev:null - duplicate -y odyl.cmo odyl.cma "{P4LIBDIR}" - duplicate -y odyl "{BINDIR}" - -{defrules} diff --git a/camlp4/ocpp/Makefile.Mac b/camlp4/ocpp/Makefile.Mac deleted file mode 100644 index 5994a500c..000000000 --- a/camlp4/ocpp/Makefile.Mac +++ /dev/null @@ -1,41 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -INCLUDES = -I ::camlp4: -I ::boot: -I ::odyl: -I "{OTOP}otherlibs:dynlink:" -OCAMLCFLAGS = {INCLUDES} -LINKFLAGS = {INCLUDES} -OBJS = crc.cmo ocpp.cmo -INTERFACES = -I "{OLIBDIR}" Arg Array Callback Char Digest Filename Format - Gc Genlex Hashtbl Lexing List Map Obj Oo Parsing Pervasives - Printexc Printf Queue Random Set Sort Stack Stream String Sys - Weak -I ::boot: Gramext Grammar Plexer Stdpp Token -I ::camlp4: - MLast Quotation - -all ocpp - -ocpp {OBJS} - {OCAMLC} {LINKFLAGS} ::boot:stdpp.cmo ::camlp4:quotation.cmo - ::odyl:odyl.cma {OBJS} ::odyl:odyl.cmo -linkall -o ocpp - -clean - delete -i ocpp - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - (newfolder "{BINDIR}" || set status 0) dev:null - duplicate -y {OBJS} "{P4LIBDIR}" - duplicate -y ocpp "{BINDIR}" - -depend $OutOfDate - -{defrules} diff --git a/camlp4/odyl/Makefile.Mac b/camlp4/odyl/Makefile.Mac deleted file mode 100644 index 9814cec67..000000000 --- a/camlp4/odyl/Makefile.Mac +++ /dev/null @@ -1,49 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -INCLUDES = -I "{OTOP}otherlibs:dynlink:" -OCAMLCFLAGS = {INCLUDES} -LINKFLAGS = {INCLUDES} - -OBJS = odyl_config.cmo odyl_main.cmo - -all odyl - -odyl odyl.cma odyl.cmo - {OCAMLC} odyl.cma odyl.cmo -o odyl - -odyl.cma {OBJS} - {OCAMLC} {LINKFLAGS} dynlink.cma {OBJS} -a -o odyl.cma - -odyl_config.cmo - echo 'let standard_library =' > odyl_config.ml - echo ' try Sys.getenv "CAMLP4LIB" with' >> odyl_config.ml - echo ' Not_found -> "'{P4LIBDIR}'"' >> odyl_config.ml - {OCAMLC} {OCAMLCFLAGS} -c odyl_config.ml - -clean - delete -i odyl_config.ml odyl - -{dependrule} - -promote $OutOfDate - -compare $OutOfDate - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - (newfolder "{BINDIR}" || set status 0) dev:null - duplicate -y odyl.cmo odyl.cma "{P4LIBDIR}" - duplicate -y odyl "{BINDIR}" - -{defrules} diff --git a/camlp4/top/Makefile.Mac b/camlp4/top/Makefile.Mac deleted file mode 100644 index bb2aa4450..000000000 --- a/camlp4/top/Makefile.Mac +++ /dev/null @@ -1,60 +0,0 @@ -####################################################################### -# # -# Camlp4 # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. Distributed only by permission. # -# # -####################################################################### - -# $Id$ - -INCLUDES = -I ::camlp4: -I ::boot: -I "{OTOP}utils:" -I "{OTOP}parsing:" - -I "{OTOP}typing:" -I "{OTOP}toplevel:" -OCAMLCFLAGS = {INCLUDES} - -CAMLP4_OBJS = "{OTOP}utils:config.cmo" ::boot:stdpp.cmo ::boot:token.cmo - ::boot:plexer.cmo - ::boot:gramext.cmo ::boot:grammar.cmo ::boot:extfold.cmo ::boot:extfun.cmo - ::boot:fstream.cmo - ::camlp4:quotation.cmo - ::camlp4:ast2pt.cmo ::camlp4:reloc.cmo ::camlp4:spretty.cmo - ::camlp4:pcaml.cmo -TOP = camlp4_top.cmo -ROBJS = {CAMLP4_OBJS} ::meta:pa_r.cmo ::meta:pa_rp.cmo rprint.cmo {TOP} -OOBJS = {CAMLP4_OBJS} ::etc:pa_o.cmo ::etc:pa_op.cmo {TOP} -OOOBJS = {CAMLP4_OBJS} ::etc:pa_o.cmo ::etc:pa_oop.cmo {TOP} -OBJS = "{OTOP}utils:config.cmo" ::camlp4:quotation.cmo ::camlp4:reloc.cmo - ::camlp4:ast2pt.cmo ::camlp4:spretty.cmo - ::camlp4:pcaml.cmo camlp4_top.cmo - -TARGETS = camlp4o.cma camlp4r.cma camlp4_top.cma - -all {TARGETS} - -camlp4oo.cma {OOOBJS} - {OCAMLC} {OOOBJS} -linkall -a -o camlp4oo.cma - -camlp4o.cma {OOBJS} - {OCAMLC} {OOBJS} -linkall -a -o camlp4o.cma - -camlp4r.cma {ROBJS} - {OCAMLC} {ROBJS} -linkall -a -o camlp4r.cma - -camlp4_top.cma {OBJS} - {OCAMLC} {OBJS} -a -o camlp4_top.cma - -clean - delete -i {TARGETS} - -{dependrule} - -get_promote $OutOfDate - -install - (newfolder "{P4LIBDIR}" || set status 0) dev:null - duplicate -y {TARGETS} "{P4LIBDIR}" - -{defrules} diff --git a/lex/Makefile.Mac b/lex/Makefile.Mac deleted file mode 100644 index 4640011d0..000000000 --- a/lex/Makefile.Mac +++ /dev/null @@ -1,63 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - -# The lexer generator - -CAMLC = ::boot:ocamlrun ::boot:ocamlc -I ::boot: -COMPFLAGS = -LINKFLAGS = -CAMLYACC = ::boot:ocamlyacc -YACCFLAGS = -CAMLLEX = ::boot:ocamlrun ::boot:ocamllex -CAMLDEP = ::boot:ocamlrun ::tools:ocamldep -DEPFLAGS = - -OBJS = parser.cmo lexer.cmo lexgen.cmo compact.cmo output.cmo main.cmo - -all ocamllex - -ocamllex {OBJS} - {CAMLC} {LINKFLAGS} -o ocamllex {OBJS} - -clean - delete -i ocamllex - delete -i .cm[io] || set status 0 - -parser.mli parser.ml - echo -n - -parser.ml parser.mly - {CAMLYACC} {YACCFLAGS} parser.mly - -clean - delete -i parser.ml parser.mli - -beforedepend parser.ml parser.mli - -lexer.ml lexer.mll - {CAMLLEX} lexer.mll - -clean - delete -i lexer.ml - -beforedepend lexer.ml - -.cmo .ml - {CAMLC} -c {COMPFLAGS} {default}.ml - -.cmi .mli - {CAMLC} -c {COMPFLAGS} {default}.mli - -depend beforedepend - {CAMLDEP} .mli .ml > Makefile.Mac.depend diff --git a/maccaml/.cvsignore b/maccaml/.cvsignore deleted file mode 100644 index efe28a120..000000000 --- a/maccaml/.cvsignore +++ /dev/null @@ -1,12 +0,0 @@ -stdlib -*.c.x -*.cp.x -*.xcoff -*.dbg -appliprims -appli -prims.c -Objective*Caml -OCaml.68k -OCaml.PPC -dummy_fragment diff --git a/maccaml/Makefile.Mac b/maccaml/Makefile.Mac deleted file mode 100644 index c9b0f0e9a..000000000 --- a/maccaml/Makefile.Mac +++ /dev/null @@ -1,121 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - -VERSIONSTR = - ""{OCAMLMAJOR}.{OCAMLMINOR}/Mac{MAJOR}.{MINOR}.{BUGFIX}{STAGE}{REV}"" - -COPYRIGHTSTR = ""Copyright 1991-2001 INRIA"" - -XIncludes = -i ::byterun:,::config: - -i ":WASTE:WASTE 1.3 Distribution:WASTE C/C++ Headers:" - -PPCC = mrc -proto strict -w 6,35 -PPCCplus = mrcpp -PPCCOptions = {XIncludes} {cdbgflag} -PPCLinkOptions = -d {ldbgflag} -PPCCamlrunLibs = ::otherlibs:num:libnums.x - ::otherlibs:bigarray:libbigarray.x - ::byterun:libcamlrun-gui.x - ::otherlibs:str:libstr.x -PPCWELibs = ":WASTE:WASTE 1.3 Distribution:WASTELib.x" -PPCSysLibs = "{PPCLibraries}MrCPlusLib.o" - "{PPCLibraries}PPCStdCLib.o" - "{PPCLibraries}StdCRuntime.o" - "{PPCLibraries}PPCCRuntime.o" - "{PPCLibraries}PPCToolLibs.o" - "{SharedLibraries}InterfaceLib" - "{SharedLibraries}StdCLib" - "{sharedlibraries}MathLib" - "{sharedlibraries}DragLib" -PPCLibs = {ppccamlrunlibs} {ppcwelibs} {ppcsyslibs} - -camllibs = ::otherlibs:graph:graphics.cma - ::otherlibs:num:nums.cma - ::otherlibs:bigarray:bigarray.cma - -primfiles = ::byterun:primitives prim_bigarray prim_graph prim_num prim_str - -RezDefs = -d MAJORVNUM={MAJOR} -d MINORVNUM=0x{MINOR}{BUGFIX} - -d STAGE={STAGE} -d DEVVNUM={REV} - -d VERSIONSTR={VERSIONSTR} -d COPYRIGHTSTR={COPYRIGHTSTR} - -PPCOBJS = aboutbox.c.x appleevents.c.x clipboard.c.x - drag.c.x errors.c.x - events.c.x files.c.x glue.c.x - graph.c.x lcontrols.c.x lib.c.x main.c.x mcmemory.c.x - menus.c.x mcmisc.c.x modalfilter.c.x prefs.c.x prims.c.x - print.c.x scroll.c.x windows.c.x - -all appli appliprims ocamlconstants.h appli.r "Objective Caml" - set status 0 - -appliprims {primfiles} - catenate {primfiles} > appliprims - -prims.c appliprims - begin - echo '#include "mlvalues.h"' - echo '#include "prims.h"' - streamedit -e '1,$ change "extern value " . "();"' appliprims - echo 'c_primitive builtin_cprim [] = {' - streamedit -e '1,$ change " " . ","' appliprims - echo '0 };' - echo 'char * names_of_builtin_cprim [] = {' - streamedit -e '1,$ change " "" . "","' appliprims - echo '0 };' - end > prims.c - -OCaml.PPC {PPCOBJS} {ppccamlrunlibs} - ppclink -o OCaml.PPC {ppclinkoptions} {PPCOBJS} {ppclibs} - rename -y OCaml.PPC.xcoff "Objective Caml.xcoff" || set status 0 - -dummy_fragment dummy_fragment.c.x - ppclink -xm l -o dummy_fragment {ppclinkoptions} dummy_fragment.c.x - -appli OCaml.PPC dummy_fragment - delete -i appli - mergefragment -a OCaml.PPC appli - mergefragment dummy_fragment appli - -"Objective Caml" appliprims appli.r ocamlconstants.h appli - ::toplevellib.cma {camllibs} ::toplevel:topmain.cmo - :ocamlmkappli - -ocamlc "::boot:ocamlrun ::boot:ocamlc -I ::stdlib: -linkall" - {rezdefs} -lib : -name "Objective Caml" -r ocaml.r - -creator Caml -prefsize 5000 -minsize 3000 - ::toplevellib.cma {camllibs} ::toplevel:topmain.cmo - -install appli appli.r appliprims ocamlconstants.h ocamlmkappli - "Objective Caml" - duplicate -y "Objective Caml" - `exists "objective caml.xcoff" - "::test:Moretest:graph_example.ml" - ` - "{APPLIDIR}" - duplicate -y appli appli.r appliprims ocamlconstants.h "{LIBDIR}" - duplicate -y ocamlmkappli "{BINDIR}" - -partialclean - delete -i "Objective Caml" - -clean - delete -i -y {OBJS} {PPCOBJS} OCaml.68k OCaml.PPC - "Objective Caml" appliprims prims.c null :config - dummy_fragment dummy_fragment.c.x dummy_fragment.xcoff - "Objective Caml.xcoff" "Objective Caml.dbg" - -depend prims.c - begin - makedepend -w -objext .x .c - end | streamedit -e "/t/ replace // ' ' -c " > Makefile.Mac.depend diff --git a/maccaml/Makefile.Mac.depend b/maccaml/Makefile.Mac.depend deleted file mode 100644 index b225a6e06..000000000 --- a/maccaml/Makefile.Mac.depend +++ /dev/null @@ -1,2032 +0,0 @@ -#*** Dependencies: Cut here *** -# These dependencies were produced at 20:33:24 on Tue, Aug 21, 2001 by MakeDepend - -:aboutbox.c.x - :aboutbox.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:appleevents.c.x - :appleevents.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:clipboard.c.x - :clipboard.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:drag.c.x - :drag.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:dummy_fragment.c.x - :dummy_fragment.c - -:errors.c.x - :errors.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:events.c.x - :events.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:files.c.x - :files.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:glue.c.x - :glue.c - "{CIncludes}"CursorCtl.h - "{CIncludes}"fcntl.h - "{CIncludes}"signal.h - "{CIncludes}"stdlib.h - :main.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"NullDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"limits.h - "{CIncludes}"stdio.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:graph.c.x - :graph.c - "{CIncludes}"memory.h - :main.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"MixedMode.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:lcontrols.c.x - :lcontrols.c - "{CIncludes}"Controls.h - "{CIncludes}"FixMath.h - "{CIncludes}"ToolUtils.h - :main.h - "{CIncludes}"MacTypes.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Menus.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Drag.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"MacErrors.h - "{CIncludes}"TextUtils.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Finder.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Components.h - "{CIncludes}"MixedMode.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"Events.h - "{CIncludes}"TextCommon.h - "{CIncludes}"CFString.h - "{CIncludes}"Files.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"OSUtils.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"MacMemory.h - "{CIncludes}"Aliases.h - "{CIncludes}"IntlResources.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"Endian.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"Patches.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - "{CIncludes}"CFURL.h - -:lib.c.x - :lib.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:main.c.x - :main.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:mcmemory.c.x - :mcmemory.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:mcmisc.c.x - :mcmisc.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:menus.c.x - :menus.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:modalfilter.c.x - :modalfilter.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:prefs.c.x - :prefs.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:prims.c.x - :prims.c - -:print.c.x - :print.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:scroll.c.x - :scroll.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - -:windows.c.x - :windows.c - :main.h - "{CIncludes}"limits.h - "{CIncludes}"signal.h - "{CIncludes}"stdio.h - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"AERegistry.h - "{CIncludes}"AppleEvents.h - "{CIncludes}"ControlDefinitions.h - "{CIncludes}"Controls.h - "{CIncludes}"Devices.h - "{CIncludes}"Dialogs.h - "{CIncludes}"DiskInit.h - "{CIncludes}"Drag.h - "{CIncludes}"Finder.h - "{CIncludes}"FixMath.h - "{CIncludes}"Folders.h - "{CIncludes}"Fonts.h - "{CIncludes}"Gestalt.h - "{CIncludes}"LowMem.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MacWindows.h - "{CIncludes}"Menus.h - "{CIncludes}"Power.h - "{CIncludes}"Printing.h - "{CIncludes}"Processes.h - "{CIncludes}"QDOffscreen.h - "{CIncludes}"QuickDraw.h - "{CIncludes}"Resources.h - "{CIncludes}"Scrap.h - "{CIncludes}"Script.h - "{CIncludes}"SegLoad.h - "{CIncludes}"Sound.h - "{CIncludes}"StandardFile.h - "{CIncludes}"Strings.h - "{CIncludes}"TextUtils.h - "{CIncludes}"ToolUtils.h - ::byterun:rotatecursor.h - :ocamlconstants.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"MacErrors.h - "{CIncludes}"MixedMode.h - "{CIncludes}"AEDataModel.h - "{CIncludes}"AEInteraction.h - "{CIncludes}"Appearance.h - "{CIncludes}"CarbonEvents.h - "{CIncludes}"Lists.h - "{CIncludes}"MacHelp.h - "{CIncludes}"CFString.h - "{CIncludes}"TextEdit.h - "{CIncludes}"Icons.h - "{CIncludes}"Collections.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Files.h - "{CIncludes}"NameRegistry.h - "{CIncludes}"CodeFragments.h - "{CIncludes}"Multiprocessing.h - "{CIncludes}"DriverFamilyMatching.h - "{CIncludes}"Disks.h - "{CIncludes}"Events.h - "{CIncludes}"ATSTypes.h - "{CIncludes}"TextCommon.h - "{CIncludes}"MacMemory.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"Aliases.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"CGContext.h - "{CIncludes}"IntlResources.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"Notification.h - "{CIncludes}"Balloons.h - "{CIncludes}"CFBase.h - "{CIncludes}"CFArray.h - "{CIncludes}"CFData.h - "{CIncludes}"CFDictionary.h - "{CIncludes}"stdarg.h - "{CIncludes}"Patches.h - "{CIncludes}"Endian.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"CFBundle.h - "{CIncludes}"CGBase.h - "{CIncludes}"CGAffineTransform.h - "{CIncludes}"CGColorSpace.h - "{CIncludes}"CGFont.h - "{CIncludes}"CGImage.h - "{CIncludes}"CGPDFDocument.h - "{CIncludes}"TypeSelect.h - "{CIncludes}"CFURL.h - "{CIncludes}"stddef.h - "{CIncludes}"CGGeometry.h - "{CIncludes}"CGDataProvider.h - diff --git a/maccaml/SHORTCUTS b/maccaml/SHORTCUTS deleted file mode 100644 index 144c7328e..000000000 --- a/maccaml/SHORTCUTS +++ /dev/null @@ -1,9 +0,0 @@ -option-click a scrollbar's arrow -> scroll by one pixel - -Enter in the toplevel window -> go to bottom of window and append -a newline - -Drag & drop to the toplevel window -> go to bottom of window and -append the dragged text - -Command-period in the toplevel window -> interrupt O'Caml's computation diff --git a/maccaml/WASTE/.cvsignore b/maccaml/WASTE/.cvsignore deleted file mode 100644 index 652f7a045..000000000 --- a/maccaml/WASTE/.cvsignore +++ /dev/null @@ -1 +0,0 @@ -WASTE*1.3*Distribution diff --git a/maccaml/WASTE/Makefile b/maccaml/WASTE/Makefile deleted file mode 100644 index 1b927fd88..000000000 --- a/maccaml/WASTE/Makefile +++ /dev/null @@ -1,507 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - - -# Makefile for the WASTE library (version 1.3) - -# Put this makefile into the "WASTE 1.3 Distribution" folder. -# If you type "Make all", it will build five files: -# -# WASTELib.o the WASTE library (classic 68k version) -# WASTELib.CFMo the WASTE library (CFM 68k version) -# WASTELib.x the WASTE library (PPC version) -# "WASTE Demo (CFM)" the demo application (CFM 68k and CFM PPC) -# "WASTE Demo (classic)" the demo application (classic 68k and CFM PPC) - -# You can easily change the WASTE options, the compiler options, and the -# libraries to suit your needs. (see below) - - -#### WASTE Options. See ":WASTE 1.3:Private Includes:WASTEIntf.h" for details. - -# The defaults are shown here. -#WEDefs = -d WASTE_DEBUG=0 -# -d WASTE_OBJECTS=1 -# -d WASTE_TSM_SUPPORT=1 -# -d WASTE_DRAG_AND_DROP=1 -# -d WASTE_USE_UPPS=GENERATINGCFM -# -d WASTE_NO_SYNCH=0 -# -d WASTE_NO_RO_CARET=1 -# -d WASTE_IC_SUPPORT=1 -# -d WASTE_OBJECTS_ARE_GLYPHS=0 -# -d WASTE_RESOLVE_FONT_DESIGNATORS=1 -# -d WASTE_WECALTEXT_DOES_REDRAW=0 -# -d WASTE_TRANSLUCENT_DRAGS=0 - -WEDefs = -d WASTE_DEBUG=0 - -d WASTE_OBJECTS=0 - -d WASTE_TSM_SUPPORT=0 - -d WASTE_DRAG_AND_DROP=1 - -d WASTE_USE_UPPS=GENERATINGCFM - -d WASTE_NO_SYNCH=0 - -d WASTE_NO_RO_CARET=0 - -d WASTE_IC_SUPPORT=0 - -d WASTE_OBJECTS_ARE_GLYPHS=0 - -d WASTE_RESOLVE_FONT_DESIGNATORS=1 - -d WASTE_WECALTEXT_DOES_REDRAW=0 - -d WASTE_TRANSLUCENT_DRAGS=0 - - -#### Compilers and their options. - -# Uncomment this definition to get a debugging version of the library. -debugflag = -sym on - -# Classic 68k -C = sc -COptions = {Defs} {Incl} -model far -w 17 -proto strict {debugflag} -#C = mwc68k -#COptions = {Defs} {Incl} -model far - -# CFM 68k -CFMC = sc -CFMCOptions = {Defs} {Incl} -model cfmflat -w 17 -proto strict {debugflag} -#CFMC = {c} -#CFMCOptions = {coptions} - -# PPC -PPCC = mrc -PPCCOptions = {Defs} {Incl} -w 35 -sym on - - -#### Libraries for the demo application - -Libs = "{libraries}MacRuntime.o" - "{clibraries}StdCLib.far.o" - "{libraries}Interface.o" -#Libs = "{mw68klibraries}macos.lib" -# "{mw68klibraries}ANSI (N/4i/8d) C.68K.Lib" - -CFMLibs = "{CFM68kLibraries}NuMacRuntime.o" - "{sharedlibraries}StdCLib" - "{sharedlibraries}DragLib" - "{sharedlibraries}InterfaceLib" -#CFMLibs = {Libs} - -PPCLibs = "{ppclibraries}PPCCRuntime.o" - "{sharedlibraries}StdCLib" - "{ppclibraries}StdCRuntime.o" - "{sharedlibraries}DragLib" - "{sharedlibraries}InterfaceLib" - - -#### Common definitions - -# Compiler options -Incl = -i ":WASTE C/C++ Headers:" {OHIncl} {WEIncl} {WDIncl} {WTIncl} -Defs = {WEDefs} -d inline=static - - -#### Main target - -all everything - - -#### :WASTE 1.3: - -WEObj = - ':WASTE 1.3:Source:WEAccessors.c.o' - ':WASTE 1.3:Source:WEBirthDeath.c.o' - ':WASTE 1.3:Source:WEDebug.c.o' - ':WASTE 1.3:Source:WEDrawing.c.o' - ':WASTE 1.3:Source:WEFontTables.c.o' - ':WASTE 1.3:Source:WEHighLevelEditing.c.o' - ':WASTE 1.3:Source:WEICGlue.c.o' - ':WASTE 1.3:Source:WEInlineInput.c.o' - ':WASTE 1.3:Source:WELineLayout.c.o' - ':WASTE 1.3:Source:WELongCoords.c.o' - ':WASTE 1.3:Source:WELowLevelEditing.c.o' - ':WASTE 1.3:Source:WEMouse.c.o' - ':WASTE 1.3:Source:WEObjects.c.o' - ':WASTE 1.3:Source:WEScraps.c.o' - ':WASTE 1.3:Source:WESelecting.c.o' - ':WASTE 1.3:Source:WESelectors.c.o' - ':WASTE 1.3:Source:WEUserSelectors.c.o' - ':WASTE 1.3:Source:WEUtilities.c.o' - -WECFMObj = - ':WASTE 1.3:Source:WEAccessors.c.CFMo' - ':WASTE 1.3:Source:WEBirthDeath.c.CFMo' - ':WASTE 1.3:Source:WEDebug.c.CFMo' - ':WASTE 1.3:Source:WEDrawing.c.CFMo' - ':WASTE 1.3:Source:WEFontTables.c.CFMo' - ':WASTE 1.3:Source:WEHighLevelEditing.c.CFMo' - ':WASTE 1.3:Source:WEICGlue.c.CFMo' - ':WASTE 1.3:Source:WEInlineInput.c.CFMo' - ':WASTE 1.3:Source:WELineLayout.c.CFMo' - ':WASTE 1.3:Source:WELongCoords.c.CFMo' - ':WASTE 1.3:Source:WELowLevelEditing.c.CFMo' - ':WASTE 1.3:Source:WEMouse.c.CFMo' - ':WASTE 1.3:Source:WEObjects.c.CFMo' - ':WASTE 1.3:Source:WEScraps.c.CFMo' - ':WASTE 1.3:Source:WESelecting.c.CFMo' - ':WASTE 1.3:Source:WESelectors.c.CFMo' - ':WASTE 1.3:Source:WEUserSelectors.c.CFMo' - ':WASTE 1.3:Source:WEUtilities.c.CFMo' - -WEPPCObj = - ':WASTE 1.3:Source:WEAccessors.c.x' - ':WASTE 1.3:Source:WEBirthDeath.c.x' - ':WASTE 1.3:Source:WEDebug.c.x' - ':WASTE 1.3:Source:WEDrawing.c.x' - ':WASTE 1.3:Source:WEFontTables.c.x' - ':WASTE 1.3:Source:WEHighLevelEditing.c.x' - ':WASTE 1.3:Source:WEICGlue.c.x' - ':WASTE 1.3:Source:WEInlineInput.c.x' - ':WASTE 1.3:Source:WELineLayout.c.x' - ':WASTE 1.3:Source:WELongCoords.c.x' - ':WASTE 1.3:Source:WELowLevelEditing.c.x' - ':WASTE 1.3:Source:WEMouse.c.x' - ':WASTE 1.3:Source:WEObjects.c.x' - ':WASTE 1.3:Source:WEScraps.c.x' - ':WASTE 1.3:Source:WESelecting.c.x' - ':WASTE 1.3:Source:WESelectors.c.x' - ':WASTE 1.3:Source:WEUserSelectors.c.x' - ':WASTE 1.3:Source:WEUtilities.c.x' - -WEIncl = -i ":WASTE 1.3:Private Includes:" - -i ":WASTE 1.3:Internet Config Headers:" - -WETarg = WASTELib.o WASTELib.CFMo WASTELib.x - -WASTELib.o {WEObj} - lib -o WASTELib.o {WEObj} - -WASTELib.CFMo {WECFMObj} - lib -o WASTELib.CFMo {WECFMObj} - -WASTELib.x {WEPPCObj} - ppclink {debugflag} -xm library -o WASTELib.x {WEPPCObj} - -clean - delete -i {WEObj} {WECFMObj} {WEPPCObj} {WETarg} - - -#### :Extras:Sample Object Handlers: - -OHObj = ":Extras:Sample Object Handlers:WEObjectHandlers.c.o" -OHCFMObj = ":Extras:Sample Object Handlers:WEObjectHandlers.c.CFMo" -OHPPCObj = ":Extras:Sample Object Handlers:WEObjectHandlers.c.x" -OHIncl = -i ":Extras:Sample Object Handlers:" -OHTarg = {OHObj} {OHCFMObj} {OHPPCObj} - -clean - delete -i {OHTarg} - - -#### :Extras:WASTE Tabs 1.3.2: - -WTObj = - ":Extras:WASTE Tabs 1.3.2:WETabs.c.o" - ":Extras:WASTE Tabs 1.3.2:WETabHooks.c.o" - -WTCFMObj = - ":Extras:WASTE Tabs 1.3.2:WETabs.c.CFMo" - ":Extras:WASTE Tabs 1.3.2:WETabHooks.c.CFMo" - -WTPPCObj = - ":Extras:WASTE Tabs 1.3.2:WETabs.c.x" - ":Extras:WASTE Tabs 1.3.2:WETabHooks.c.x" - -WTIncl = -i ":Extras:Waste Tabs 1.3.2:" -WTTarg = {WTObj} {WTCFMObj} {WTPPCObj} - -clean - delete -i {WTTarg} - - -#### :Demo:Source: - -WDObj = - :Demo:Source:DialogUtils.c.o - :Demo:Source:LongControls.c.o - ':Demo:Source:SmartScroll Stuff:SmartScroll.c.o' - :Demo:Source:WEDemoAbout.c.o - :Demo:Source:WEDemoDrags.c.o - :Demo:Source:WEDemoEvents.c.o - :Demo:Source:WEDemoFiles.c.o - :Demo:Source:WEDemoInit.c.o - :Demo:Source:WEDemoIntf.c.o - :Demo:Source:WEDemoMain.c.o - :Demo:Source:WEDemoMenus.c.o - :Demo:Source:WEDemoScripting.c.o - :Demo:Source:WEDemoWindows.c.o - :Demo:Source:qd.c.o - -WDLibs = WASTELib.o {WTObj} {OHObj} - -WDCFMObj = - :Demo:Source:DialogUtils.c.CFMo - :Demo:Source:LongControls.c.CFMo - ':Demo:Source:SmartScroll Stuff:SmartScroll.c.CFMo' - :Demo:Source:WEDemoAbout.c.CFMo - :Demo:Source:WEDemoDrags.c.CFMo - :Demo:Source:WEDemoEvents.c.CFMo - :Demo:Source:WEDemoFiles.c.CFMo - :Demo:Source:WEDemoInit.c.CFMo - :Demo:Source:WEDemoIntf.c.CFMo - :Demo:Source:WEDemoMain.c.CFMo - :Demo:Source:WEDemoMenus.c.CFMo - :Demo:Source:WEDemoScripting.c.CFMo - :Demo:Source:WEDemoWindows.c.CFMo - :Demo:Source:qd.c.CFMo - -WDCFMLibs = WASTELib.CFMo {WTCFMObj} {OHCFMObj} - -WDPPCObj = - :Demo:Source:DialogUtils.c.x - :Demo:Source:LongControls.c.x - ':Demo:Source:SmartScroll Stuff:SmartScroll.c.x' - :Demo:Source:WEDemoAbout.c.x - :Demo:Source:WEDemoDrags.c.x - :Demo:Source:WEDemoEvents.c.x - :Demo:Source:WEDemoFiles.c.x - :Demo:Source:WEDemoInit.c.x - :Demo:Source:WEDemoIntf.c.x - :Demo:Source:WEDemoMain.c.x - :Demo:Source:WEDemoMenus.c.x - :Demo:Source:WEDemoScripting.c.x - :Demo:Source:WEDemoWindows.c.x - :Demo:Source:qd.c.x - -WDPPCLibs = WASTELib.x {WTPPCObj} {OHPPCObj} - -WDIncl = -i ":Demo:Source:" -i ":Demo:Source:SmartScroll Stuff:" - -WDTarg = "WASTE Demo (classic)" "WASTE Demo (CFM)" - -:Demo:Source:qd.c - echo "#include <QuickDraw.h>nQDGlobals qd;n" > :Demo:Source:qd.c - -:Demo:Source:size.r - begin - echo '#include "Types.r"' - echo 'resource '''SIZE''' (-1) {' - echo 'reserved,' - echo 'acceptSuspendResumeEvents,' - echo 'reserved,' - echo 'canBackground,' - echo 'multiFinderAware,' - echo 'backgroundAndForeground,' - echo 'dontGetFrontClicks,' - echo 'ignoreChildDiedEvents,' - echo 'is32BitCompatible,' - echo 'isHighLevelEventAware,' - echo 'localAndRemoteHLEvents,' - echo 'notStationeryAware,' - echo 'dontUseTextEditServices,' - echo 'reserved,' - echo 'reserved,' - echo 'reserved,' - echo '262144,' - echo '196608' - echo '};' - end > :Demo:Source:size.r - -"WASTE Demo (classic)" {WDObj} {WDLibs} - ilink -c OEDE {WDObj} {WDLibs} {Libs} -o "WASTE Demo (classic)" - -model far -compact -pad 0 -state nouse - -"WASTE Demo (classic)" {WDPPCObj} {WDPPCLibs} - ppclink -c OEDE {WDPPCObj} {WDPPCLibs} {PPCLibs} - -fragname 'WASTE Demo PPC' -sym on - mergefragment -z PPCLink.out "WASTE Demo (classic)" - delete -i PPCLink.out - rename -y PPCLink.out.xcoff "WASTE Demo (classic).xcoff" - -"WASTE Demo (classic)" :Demo:Source:WEDemo.rsrc :Demo:Source:size.r - begin - echo 'include ":Demo:Source:WEDemo.rsrc";' - echo '#include ":Demo:Source:size.r"' - end | rez -a -c OEDE -o "WASTE Demo (classic)" - setfile -a Bi "WASTE Demo (classic)" - -"WASTE Demo (CFM)" {WDCFMObj} {WDCFMLibs} - ilink -c OEDE {WDCFMObj} {WDCFMLibs} {CFMLibs} -o "WASTE Demo (CFM)" - -model cfmseg -state nouse -fragname 'WASTE Demo 68k' - -"WASTE Demo (CFM)" {WDPPCObj} {WDPPCLibs} - ppclink -c OEDE {WDPPCObj} {WDPPCLibs} {PPCLibs} - -fragname 'WASTE Demo PPC' -sym on - mergefragment -z PPCLink.out "WASTE Demo (CFM)" - delete -i PPCLink.out - rename -y PPCLink.out.xcoff "WASTE Demo (CFM).xcoff" - -"WASTE Demo (CFM)" :Demo:Source:WEDemo.rsrc :Demo:Source:size.r - begin - echo 'include ":Demo:Source:WEDemo.rsrc";' - echo '#include ":Demo:Source:size.r";' - end | rez -a -c OEDE -o "WASTE Demo (CFM)" - setfile -a Bi "WASTE Demo (CFM)" - -clean - delete -i {WDObj} {WDCFMObj} {WDPPCObj} {WDTarg} - delete -i :Demo:Source:size.r :Demo:Source:qd.c - delete -i "WASTE Demo (CFM).xcoff" "WASTE Demo (classic).xcoff" - - -#### Main target (continued) - -everything {OHTarg} {WETarg} {WDTarg} - - -#### Default rule for CFM-68k compilation. - -.c.CFMo .c - {CFMC} {depdir}{default}.c -o {targdir}{default}.c.CFMo {CFMCOptions} - - -#### Dependencies - -':Extras:Sample Object Handlers:WEObjectHandlers.c.o' -':Extras:Sample Object Handlers:WEObjectHandlers.c.CFMo' -':Extras:Sample Object Handlers:WEObjectHandlers.c.x' - ":Extras:Sample Object Handlers:WEObjectHandlers.h" - ":WASTE C/C++ Headers:WASTE.h" - ":WASTE C/C++ Headers:LongCoords.h" - -':WASTE 1.3:Source:WEAccessors.c.o' -':WASTE 1.3:Source:WEAccessors.c.CFMo' -':WASTE 1.3:Source:WEAccessors.c.x' -':WASTE 1.3:Source:WEBirthDeath.c.o' -':WASTE 1.3:Source:WEBirthDeath.c.CFMo' -':WASTE 1.3:Source:WEBirthDeath.c.x' -':WASTE 1.3:Source:WEDebug.c.o' -':WASTE 1.3:Source:WEDebug.c.CFMo' -':WASTE 1.3:Source:WEDebug.c.x' -':WASTE 1.3:Source:WEDrawing.c.o' -':WASTE 1.3:Source:WEDrawing.c.CFMo' -':WASTE 1.3:Source:WEDrawing.c.x' -':WASTE 1.3:Source:WEFontTables.c.o' -':WASTE 1.3:Source:WEFontTables.c.CFMo' -':WASTE 1.3:Source:WEFontTables.c.x' -':WASTE 1.3:Source:WEHighLevelEditing.c.o' -':WASTE 1.3:Source:WEHighLevelEditing.c.CFMo' -':WASTE 1.3:Source:WEHighLevelEditing.c.x' -':WASTE 1.3:Source:WEICGlue.c.o' -':WASTE 1.3:Source:WEICGlue.c.CFMo' -':WASTE 1.3:Source:WEICGlue.c.x' -':WASTE 1.3:Source:WEInlineInput.c.o' -':WASTE 1.3:Source:WEInlineInput.c.CFMo' -':WASTE 1.3:Source:WEInlineInput.c.x' -':WASTE 1.3:Source:WELineLayout.c.o' -':WASTE 1.3:Source:WELineLayout.c.CFMo' -':WASTE 1.3:Source:WELineLayout.c.x' -':WASTE 1.3:Source:WELongCoords.c.o' -':WASTE 1.3:Source:WELongCoords.c.CFMo' -':WASTE 1.3:Source:WELongCoords.c.x' -':WASTE 1.3:Source:WELowLevelEditing.c.o' -':WASTE 1.3:Source:WELowLevelEditing.c.CFMo' -':WASTE 1.3:Source:WELowLevelEditing.c.x' -':WASTE 1.3:Source:WEMouse.c.o' -':WASTE 1.3:Source:WEMouse.c.CFMo' -':WASTE 1.3:Source:WEMouse.c.x' -':WASTE 1.3:Source:WEObjects.c.o' -':WASTE 1.3:Source:WEObjects.c.CFMo' -':WASTE 1.3:Source:WEObjects.c.x' -':WASTE 1.3:Source:WEScraps.c.o' -':WASTE 1.3:Source:WEScraps.c.CFMo' -':WASTE 1.3:Source:WEScraps.c.x' -':WASTE 1.3:Source:WESelecting.c.o' -':WASTE 1.3:Source:WESelecting.c.CFMo' -':WASTE 1.3:Source:WESelecting.c.x' -':WASTE 1.3:Source:WESelectors.c.o' -':WASTE 1.3:Source:WESelectors.c.CFMo' -':WASTE 1.3:Source:WESelectors.c.x' -':WASTE 1.3:Source:WEUserSelectors.c.o' -':WASTE 1.3:Source:WEUserSelectors.c.CFMo' -':WASTE 1.3:Source:WEUserSelectors.c.x' -':WASTE 1.3:Source:WEUtilities.c.o' -':WASTE 1.3:Source:WEUtilities.c.CFMo' -':WASTE 1.3:Source:WEUtilities.c.x' - ":WASTE 1.3:Private Includes:WASTEIntf.h" - ":WASTE 1.3:Private Includes:LongCoords.h" - -":WASTE 1.3:Source:WEMouse.c.o" -":WASTE 1.3:Source:WEMouse.c.CFMo" -":WASTE 1.3:Source:WEMouse.c.x" - ":Waste 1.3:Internet Config Headers:ICTypes.h" - ":Waste 1.3:Internet Config Headers:ICAPI.h" - -":WASTE 1.3:Source:WEICGlue.c.o" -":WASTE 1.3:Source:WEICGlue.c.CFMo" -":WASTE 1.3:Source:WEICGlue.c.x" - ":Waste 1.3:Internet Config Headers:ICComponentSelectors.h" - ":Waste 1.3:Internet Config Headers:ICAPI.h" - -:Demo:Source:DialogUtils.c.o -:Demo:Source:DialogUtils.c.CFMo -:Demo:Source:DialogUtils.c.x -:Demo:Source:LongControls.c.o -:Demo:Source:LongControls.c.CFMo -:Demo:Source:LongControls.c.x -:Demo:Source:WEDemoAbout.c.o -:Demo:Source:WEDemoAbout.c.CFMo -:Demo:Source:WEDemoAbout.c.x -:Demo:Source:WEDemoDrags.c.o -:Demo:Source:WEDemoDrags.c.CFMo -:Demo:Source:WEDemoDrags.c.x -:Demo:Source:WEDemoEvents.c.o -:Demo:Source:WEDemoEvents.c.CFMo -:Demo:Source:WEDemoEvents.c.x -:Demo:Source:WEDemoFiles.c.o -:Demo:Source:WEDemoFiles.c.CFMo -:Demo:Source:WEDemoFiles.c.x -:Demo:Source:WEDemoInit.c.o -:Demo:Source:WEDemoInit.c.CFMo -:Demo:Source:WEDemoInit.c.x -:Demo:Source:WEDemoIntf.c.o -:Demo:Source:WEDemoIntf.c.CFMo -:Demo:Source:WEDemoIntf.c.x -:Demo:Source:WEDemoMain.c.o -:Demo:Source:WEDemoMain.c.CFMo -:Demo:Source:WEDemoMain.c.x -:Demo:Source:WEDemoMenus.c.o -:Demo:Source:WEDemoMenus.c.CFMo -:Demo:Source:WEDemoMenus.c.x -:Demo:Source:WEDemoScripting.c.o -:Demo:Source:WEDemoScripting.c.CFMo -:Demo:Source:WEDemoScripting.c.x -:Demo:Source:WEDemoWindows.c.o -:Demo:Source:WEDemoWindows.c.CFMo -:Demo:Source:WEDemoWindows.c.x - ":Demo:Source:WEDemoIntf.h" - ":WASTE C/C++ Headers:WASTE.h" - -:Demo:Source:WEDemoInit.c.o -:Demo:Source:WEDemoInit.c.CFMo -:Demo:Source:WEDemoInit.c.x - ":Demo:Source:SmartScroll Stuff:SmartScroll.h" - ":Extras:Sample Object Handlers:WEObjectHandlers.h" - -:Demo:Source:WEDemoMenus.c.o -:Demo:Source:WEDemoMenus.c.CFMo -:Demo:Source:WEDemoMenus.c.x - ":Extras:WASTE Tabs 1.3.2:WETabs.h" - -:Demo:Source:WEDemoWindows.c.o -:Demo:Source:WEDemoWindows.c.CFMo -:Demo:Source:WEDemoWindows.c.x - ":WASTE C/C++ Headers:LongCoords.h" - ":Demo:Source:SmartScroll Stuff:SmartScroll.h" - -':Demo:Source:SmartScroll Stuff:SmartScroll.c.o' -':Demo:Source:SmartScroll Stuff:SmartScroll.c.CFMo' -':Demo:Source:SmartScroll Stuff:SmartScroll.c.x' - ':Demo:Source:SmartScroll Stuff:SmartScroll.h' diff --git a/maccaml/WASTE/README b/maccaml/WASTE/README deleted file mode 100644 index fd8e5e1e7..000000000 --- a/maccaml/WASTE/README +++ /dev/null @@ -1,5 +0,0 @@ -WASTE 1.3 is needed to build the O'Caml standalone application. - -Get WASTE 1.3 from <ftp://ftp.boingo.com/dan/WASTE/> -and unpack it in this directory (maccaml:WASTE:) to create the folder -"WASTE 1.3 Distribution". diff --git a/maccaml/aboutbox.c b/maccaml/aboutbox.c deleted file mode 100644 index 92cb19825..000000000 --- a/maccaml/aboutbox.c +++ /dev/null @@ -1,125 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1997 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -static WindowPtr aboutbox = NULL; -static UserItemUPP DrawAboutUPP = NULL; - -#define kItemText 2 - -static pascal void DrawAbout (DialogPtr d, short item) -{ -#pragma unused (item) - WEHandle we = WinGetWE (d); - - Assert (we != NULL); - WEUpdate (d->visRgn, we); -} - -void OpenAboutBox (void) -{ - OSErr err; - short itemtype; - Handle item; - Rect itemrect; - LongRect lr; - WEHandle we = NULL; - WStatusH st = NULL; - Handle txt = NULL, copr = NULL; - TextStyle ts; - - if (DrawAboutUPP == NULL) DrawAboutUPP = NewUserItemProc (DrawAbout); - - if (aboutbox != NULL){ - SelectWindow (aboutbox); - }else{ - aboutbox = GetNewDialog (kDialogAbout, NULL, (WindowPtr) -1L); - if (aboutbox == NULL){ - err = memFullErr; - goto failed; - } - SetPort (aboutbox); - - err = WinAllocStatus (aboutbox); - if (err != noErr) goto failed; - - st = WinGetStatus (aboutbox); - Assert (st != NULL); - (*st)->kind = kWinAbout; - - GetDialogItem (aboutbox, kItemText, &itemtype, &item, &itemrect); - SetDialogItem (aboutbox, kItemText, itemtype, (Handle) DrawAboutUPP, &itemrect); - WERectToLongRect (&itemrect, &lr); - err = WENew (&lr, &lr, 0, &we); - if (err != noErr) goto failed; - - (*st)->we = we; - - GetFNum ("\pGeneva", &ts.tsFont); - ts.tsSize = 10; - err = WESetStyle (weDoFont + weDoSize, &ts, we); - if (err != noErr) goto failed; - - txt = GetResource ('TEXT', kAboutText1); - err = ResError (); if (err != noErr){ err = noErr; goto failed; } - DetachResource (txt); - - copr = GetResource ('TEXT', kAboutText2); - err = ResError (); - if (err == noErr){ - HLock (copr); - err = HandAndHand (copr, txt); - /* ignore errors */ - HUnlock (copr); - ReleaseResource (copr); - copr = NULL; - } - - err = WEUseText (txt, we); - if (err != noErr) goto failed; - err = WECalText (we); - if (err != noErr) goto failed; - - WEFeatureFlag (weFReadOnly, weBitSet, we); - - return; - - failed: - if (copr != NULL) DisposeHandle (copr); - if (txt != NULL) DisposeHandle (txt); - if (we != NULL) WEDispose (we); - if (st != NULL) DisposeHandle ((Handle) st); - if (aboutbox != NULL) DisposeWindow (aboutbox); - aboutbox = NULL; - ErrorAlertGeneric (err); - } -} - -void CloseAboutBox (WindowPtr w) -{ - WStatusH st = WinGetStatus (w); - WEHandle we = WinGetWE (w); - - Assert (w == aboutbox); - - Assert (we != NULL); - WEDispose (we); - Assert (st != NULL); - DisposeHandle ((Handle) st); - Assert (w != NULL); - DisposeDialog (w); - aboutbox = NULL; -} diff --git a/maccaml/appleevents.c b/maccaml/appleevents.c deleted file mode 100644 index cad35c032..000000000 --- a/maccaml/appleevents.c +++ /dev/null @@ -1,147 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1997 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -static OSErr GotRequiredParams (const AppleEvent *ae) -{ - OSErr err; - DescType type; - Size sz; - - err = AEGetAttributePtr (ae, keyMissedKeywordAttr, typeWildCard, &type, NULL, - 0, &sz); - if (err == errAEDescNotFound) return noErr; - if (err == noErr) return errAEParamMissed; - return err; -} - -static pascal OSErr HandleOpenApplication (const AppleEvent *ae, - AppleEvent *reply, long refCon) -{ -#pragma unused (ae, reply, refCon) - launch_toplevel_requested = 1; - return noErr; -} - -static pascal OSErr HandleQuitApplication (const AppleEvent *ae, - AppleEvent *reply, long refCon) -{ -#pragma unused (ae, reply, refCon) - WindowPtr w = FrontWindow (); - WStatusH st; - int request_interaction = prefs.asksavetop && winToplevel != NULL; - OSErr err; - - while (w != NULL){ - WinUpdateStatus (w); - st = WinGetStatus (w); - if (st != NULL && (*st)->menuflags.save){ - request_interaction = 1; - } - w = GetNextWindow (w); - } - if (request_interaction){ - err = AEInteractWithUser (kAEDefaultTimeout, NULL, ProcessEventUPP); - if (err != noErr) return err; - } - err = DoQuit (); - if (err != noErr) return err; - - return noErr; -} - -static pascal OSErr HandleOpenDocuments (const AppleEvent *ae, - AppleEvent *reply, long refCon) -{ -#pragma unused (reply, refCon) - FSSpec filespec; - AEDescList doclist = {0, NULL}; - OSErr err; - long i, len; - Size sz; - AEKeyword key; - DescType type; - - launch_toplevel_requested = 1; - - err = AEGetParamDesc (ae, keyDirectObject, typeAEList, &doclist); - if (err != noErr) goto failed; - - err = GotRequiredParams (ae); - if (err != noErr) goto failed; - - err = AECountItems (&doclist, &len); - if (err != noErr) goto failed; - - for (i = 1; i <= len; i++){ - err = AEGetNthPtr (&doclist, i, typeFSS, &key, &type, &filespec, - sizeof (filespec), &sz); - if (err != noErr) goto failed; - err = FileOpen (&filespec); - if (err != noErr){ - OSErr err2 = AEInteractWithUser (kAEDefaultTimeout, NULL,ProcessEventUPP); - if (err2 == noErr){ - ErrorAlertCantOpen (filespec.name, err); - }else{ - if (err2 == errAENoUserInteraction) err = err2; - goto failed; - } - } - } - AEDisposeDesc (&doclist); - return noErr; - - failed: - if (doclist.dataHandle != NULL) AEDisposeDesc (&doclist); - return err; -} - -static pascal OSErr HandlePrintDocuments (const AppleEvent *ae, - AppleEvent *reply, long refCon) -{ -#pragma unused (ae, reply, refCon) - return errAEEventNotHandled; /* XXX */ -} - -OSErr InstallAEHandlers (void) -{ - OSErr err; - - err = AEInstallEventHandler (kCoreEventClass, kAEOpenApplication, - NewAEEventHandlerProc (HandleOpenApplication), - 0, false); - if (err != noErr) goto failed; - - err = AEInstallEventHandler (kCoreEventClass, kAEQuitApplication, - NewAEEventHandlerProc (HandleQuitApplication), - 0, false); - if (err != noErr) goto failed; - - err = AEInstallEventHandler (kCoreEventClass, kAEOpenDocuments, - NewAEEventHandlerProc (HandleOpenDocuments), - 0, false); - if (err != noErr) goto failed; - - err = AEInstallEventHandler (kCoreEventClass, kAEPrintDocuments, - NewAEEventHandlerProc (HandlePrintDocuments), - 0, false); - if (err != noErr) goto failed; - - return noErr; - - failed: - return err; -} diff --git a/maccaml/appli.r b/maccaml/appli.r deleted file mode 100644 index a238f9c12..000000000 --- a/maccaml/appli.r +++ /dev/null @@ -1,808 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Moscova, INRIA Rocquencourt */ -/* */ -/* Copyright 2000 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - - -#include "Types.r" -#include "Sound.r" - -#include "ocamlconstants.h" - - -/* These 5 resources are meant to be overridden. */ - -data 'Line' (1000) { "%a\000" }; /* command line template */ - -data 'Line' (1001) { "" }; /* environment template */ - -data 'TEXT' (1000, purgeable) { /* kAboutText1 */ - "\n" - APPLNAME "\n" - "\n" - "\n" - "\n" - "\n" - "\n" -}; - -data 'cicn' (1000) { /* kApplicationIcon */ - $"0000 0000 8020 0000 0000 0020 0020 0000 0000 0000 0000 0048" - $"0000 0048 0000 0000 0008 0001 0008 0000 0000 0000 0000 0000" - $"0000 0000 0000 0004 0000 0000 0020 0020 0000 0000 0004 0000" - $"0000 0020 0020 0000 0000 0000 0000 001F F01C 003F F83E 007F" - $"FC7E 00FF FEFC 01FF FFF8 03FF FFF0 07FF FFE0 0FFF FFE0 1FFF" - $"FFF0 3FFF FFF8 7FFF FFFC FFFF FFFF FFFF FFFF FFFF FFFF 7FFF" - $"FFFF 3FFF FFFF 1FFF FFFF 0FFF FFFF 07FF FFFF 03FF FFFF 01FF" - $"FFFE 00FF FFFF 007F FFFF 003F FFFF 001F FFFE 000F FFFC 0007" - $"FFF8 0003 FFF0 0001 FFE0 0000 FF80 0000 7F00 0000 0000 001F" - $"F01C 0030 3826 0048 7C5E 0084 E69C 0103 C338 0200 9E70 0400" - $"24E0 0800 49E0 1000 9330 2001 2618 4002 4E0C 8002 9A07 8001" - $"7C07 C002 8007 6002 E007 3007 FC07 1806 1FC7 0C00 01FF 0600" - $"003F 0300 0007 0180 000E 00C0 001F 0060 003F 0030 007F 0018" - $"00FE 000C 01FC 0006 03F8 0003 07F0 0001 8FE0 0000 DF80 0000" - $"7F00 0000 0000 0000 002F 0000 FFFF FFFF FFFF 0001 FFFF FFFF" - $"6666 0002 FFFF CCCC CCCC 0003 FFFF CCCC 9999 0004 FFFF CCCC" - $"6666 0005 FFFF 9999 9999 0006 FFFF 0000 3333 0007 CCCC CCCC" - $"CCCC 0008 CCCC CCCC 9999 0009 CCCC CCCC 6666 000A CCCC 9999" - $"9999 000B CCCC 9999 6666 000C CCCC 9999 3333 000D CCCC 6666" - $"6666 000E CCCC 6666 3333 000F 9999 9999 9999 0010 9999 9999" - $"6666 0011 9999 9999 3333 0012 9999 6666 6666 0013 9999 6666" - $"3333 0014 9999 3333 6666 0015 9999 3333 3333 0016 9999 0000" - $"3333 0017 9999 0000 0000 0018 6666 6666 6666 0019 6666 6666" - $"3333 001A 6666 3333 6666 001B 6666 3333 3333 001C 6666 3333" - $"0000 001D 6666 0000 3333 001E 3333 3333 0000 001F 3333 0000" - $"3333 0020 3333 0000 0000 0021 0000 0000 3333 0022 8888 0000" - $"0000 0023 4444 0000 0000 0024 1111 0000 0000 0025 0000 1111" - $"0000 0026 EEEE EEEE EEEE 0027 DDDD DDDD DDDD 0028 BBBB BBBB" - $"BBBB 0029 AAAA AAAA AAAA 002A 8888 8888 8888 002B 7777 7777" - $"7777 002C 5555 5555 5555 002D 4444 4444 4444 002E 2222 2222" - $"2222 002F 1111 1111 1111 0000 0000 0000 0000 0000 0000 0000" - $"0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000" - $"0000 0000 0029 0F29 0F29 0F29 0F18 0000 0000 0000 0022 062D" - $"0000 0000 0000 0000 0000 0000 2A2B 2600 0000 0027 2C2A 2D00" - $"0000 0000 1606 1622 2D00 0000 0000 0000 0000 002A 2700 2B26" - $"0000 072D 2928 2A2D 0000 002C 0717 171F 2D00 0000 0000 0000" - $"0000 2A07 0000 262B 2607 2C29 2827 282A 2D00 2C01 0F2B 2E2D" - $"0000 0000 0000 0000 002A 2700 0000 0026 2B2C 2928 0707 030A" - $"0F11 0410 1B23 2C00 0000 0000 0000 0000 2A27 0000 0000 0000" - $"2628 0702 0803 0A0A 1104 0C1B 1E2D 0000 0000 0000 0000 002A" - $"2700 0000 0000 0000 2627 080A 0503 0F13 040B 1B1E 1A00 0000" - $"0000 0000 0000 2A07 0000 0000 0000 0000 2708 0A03 1015 1304" - $"0B1C 1E0A 2C00 0000 0000 0000 002A 2700 0000 0000 0000 0026" - $"0A05 0312 1B13 040B 1C1F 0E03 0A18 0000 0000 0000 2A27 0000" - $"0000 0000 0000 0028 0403 0E1B 1304 0C1B 1E1B 1203 030B 2C00" - $"0000 002A 2700 0000 0000 0000 0000 2705 0312 1B13 040B 1B24" - $"1B15 1310 0303 0A2C 0000 2A27 0000 0000 0000 0000 0000 0703" - $"141C 1B09 0C1B 252F 1513 0D0B 0303 090A 182A 2C07 0000 0000" - $"0000 0000 0026 1215 1B0B 0B0D 0A0B 0303 0303 0303 0303 050B" - $"2B12 2D2C 2800 0000 0000 0000 0026 261C 1B05 0A12 120B 0B03" - $"0303 0303 030A 0B0A 2B11 002D 2C07 0000 0000 0000 0000 0711" - $"0B1B 151E 1B1B 1519 120B 0A0B 0B0B 1212 2A29 0000 2D2D 0700" - $"0000 0000 0027 120B 1319 2B12 1B1D 1E1B 1B1B 1B12 2C15 1213" - $"0F29 0000 002D 2C07 0000 0000 0008 2C2C 2A0A 2726 2729 1223" - $"2320 1E1D 1C2D 1B1B 2A29 0000 0000 2D2D 2800 0000 272C 0A28" - $"2727 2727 2727 0728 2912 1219 2C1B 1B1B 2B29 0000 0000 002D" - $"2C28 0000 0721 2D2C 182A 2928 2807 0707 0707 0707 0707 0F2B" - $"2B29 0000 0000 0000 2D2C 2800 0026 2707 2829 290F 0F0F 2928" - $"2828 2828 2828 2A2E 2D2D 0000 0000 0000 002D 2C28 0000 0026" - $"2727 2727 2707 2829 0F0F 0F0F 0F29 2E2D 2D00 0000 0000 0000" - $"0000 2D2C 2800 0000 0000 0000 2727 2707 0707 0707 282F 2D2D" - $"2D2D 0000 0000 0000 0000 002D 2C28 0000 0000 0000 0000 0000" - $"2727 2728 2F2C 2D2D 2D2D 0000 0000 0000 0000 0000 2D2C 2800" - $"0000 0000 0000 0000 0000 072F 2D2D 2D2D 2D2D 0000 0000 0000" - $"0000 0000 002D 2C28 0000 0000 0000 0000 0007 2E2D 2D2D 2D2D" - $"2D00 0000 0000 0000 0000 0000 0000 2D2C 2800 0000 0000 0000" - $"072E 2D2D 2D2D 2D2D 0000 0000 0000 0000 0000 0000 0000 002D" - $"2C28 0000 0000 0007 2E2D 2D2D 2D2D 2D00 0000 0000 0000 0000" - $"0000 0000 0000 0000 2D2C 2900 0000 072E 2D2D 2D2D 2D2D 0000" - $"0000 0000 0000 0000 0000 0000 0000 0000 002D 2C28 2607 2F2D" - $"2D2D 2D2D 2D00 0000 0000 0000 0000 0000 0000 0000 0000 0000" - $"0000 2D2D 282E 2D2D 2D2D 2D00 0000 0000 0000 0000 0000 0000" - $"0000 0000 0000 0000 0000 002D 2E2D 2D2D 2D2D 0000 0000 0000" - $"0000" -}; - -data 'ICON' (1000) { /* kApplicationIcon */ - $"0000 0000 001F F01C 0030 3826 0048 7C5E 0084 E69C 0103 C338" - $"0200 9E70 0400 24E0 0800 49E0 1000 9330 2001 2618 4002 4E0C" - $"8002 9A07 8001 7C07 C002 8007 6002 E007 3007 FC07 1806 1FC7" - $"0C00 01FF 0600 003F 0300 0007 0180 000E 00C0 001F 0060 003F" - $"0030 007F 0018 00FE 000C 01FC 0006 03F8 0003 07F0 0001 8FE0" - $"0000 DF80 0000 7F00" -}; - - -/* The other resources should not need to be changed. */ - -data 'TEXT' (kAboutText2, purgeable) { - "Includes (parts of) Objective Caml, MPW libraries," - "and the WASTE text engine.\n" - "\n" - "Objective Caml Copyright 1991-2001 INRIA, all rights reserved.\n" - "MPW 1983-2001 by Apple Computer, Inc., all rights reserved\n" - "WASTE text engine 1993-1998 Marco Piovanelli\n" -}; - -resource 'SIZE' (-1) { - reserved, - acceptSuspendResumeEvents, - reserved, - canBackground, - doesActivateOnFGSwitch, - backgroundAndForeground, - dontGetFrontClicks, - ignoreChildDiedEvents, - is32BitCompatible, - isHighLevelEventAware, - localAndRemoteHLEvents, - isStationeryAware, - dontuseTextEditServices, - reserved, - reserved, - reserved, - PREFSIZE * 1024, - MINSIZE * 1024 -}; - -type 'Kequ' { - wide array KequArray { - byte any = 0 command = 1; - byte char; - byte item; - fill byte; - }; -}; - -resource 'Kequ' (kKeysOK) { - { - any, charReturn, 1, - any, charEnter, 1, - any, 'o', 1, - any, 'O', 1, - } -}; - -resource 'Kequ' (kKeysSaveDontCancel) { - { - any, charReturn, 1, - any, charEnter, 1, - any, 'y', 1, - any, 'Y', 1, - any, 's', 1, - any, 'S', 1, - - any, charEscape, 2, - command, '.', 2, - any, 'c', 2, - any, 'C', 2, - - any, 'n', 3, - any, 'N', 3, - any, 'd', 3, - any, 'D', 3, - } -}; - -resource 'ALRT' (kAlertBug) { - {60, 61, 260, 451}, kAlertBug, - { - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - }, - alertPositionParentWindowScreen -}; - -resource 'DITL' (kAlertBug) { - { - {160, 310, 180, 368}, Button {enabled, "Quit"}, - - {10, 70, 80, 368}, - StaticText {disabled, /* Don't change this occurrence of Obj Caml */ - "You have discovered a bug in Objective Caml. Please" - " report the following information to <caml-bugs@inria.fr>." - }, - - {80, 20, 145, 368}, - StaticText {disabled, "file: ^1\nline: ^2\nexpr: ^0"}, - } -}; - -resource 'ALRT' (kAlertNotYet) { - {60, 81, 160, 431}, kAlertNotYet, - { - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - }, - alertPositionParentWindowScreen -}; - -resource 'DITL' (kAlertNotYet) { - { - {60, 270, 80, 328}, Button {enabled, "OK"}, - - {10, 70, 45, 328}, - StaticText {disabled, "This feature is not yet implemented." }, - } -}; - -resource 'ALRT' (kAlertNeedSys7) { - {60, 81, 200, 431}, kAlertNeedSys7, - { - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - }, - alertPositionMainScreen -}; - -resource 'DITL' (kAlertNeedSys7) { - { - {100, 270, 120, 328}, - Button {enabled, "Quit"}, - - {10, 70, 85, 328}, - StaticText { - disabled, - APPLNAME " cannot run on MacOS versions prior to System 7." - }, - - {10, 20, 42, 52}, Icon {disabled, kApplicationIcon}, - } -}; - -resource 'ALRT' (kAlertNeed32BitQD) { - {60, 81, 200, 431}, kAlertNeed32BitQD, - { - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - }, - alertPositionMainScreen -}; - -resource 'DITL' (kAlertNeed32BitQD) { - { - {100, 270, 120, 328}, - Button {enabled, "Quit"}, - - {10, 70, 85, 328}, - StaticText { - disabled, - APPLNAME " needs a Macintosh with 32-bit color QuickDraw." - }, - - {10, 20, 42, 52}, Icon {disabled, kApplicationIcon}, - } -}; - -resource 'ALRT' (kAlertExit) { - {60, 81, 210, 431}, kAlertExit, - { - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - }, - alertPositionParentWindowScreen -}; - -resource 'DITL' (kAlertExit) { - { - {110, 270, 130, 328}, Button {enabled, "OK"}, - - {10, 70, 95, 328}, - StaticText { - disabled, - "The " APPLNAME " toplevel loop has terminated^0^1.\n\n" - "Any further input in the toplevel window will be ignored." - }, - } -}; - -resource 'ALRT' (kAlertErrorMsg) { - {60, 81, 200, 431}, kAlertErrorMsg, - { - OK, visible, sound1, - OK, visible, sound1, - OK, visible, sound1, - OK, visible, sound1, - }, - alertPositionParentWindowScreen -}; - -resource 'DITL' (kAlertErrorMsg) { - { - {100, 270, 120, 328}, Button {enabled, "OK"}, - {10, 70, 85, 328}, StaticText { disabled, "^0^1^2^3" }, - } -}; - -resource 'ALRT' (kAlertErrorNum) { - {60, 81, 200, 431}, kAlertErrorNum, - { - OK, visible, sound1, - OK, visible, sound1, - OK, visible, sound1, - OK, visible, sound1, - }, - alertPositionParentWindowScreen -}; - -resource 'DITL' (kAlertErrorNum) { - { - {100, 270, 120, 328}, Button {enabled, "OK"}, - - {10, 70, 85, 328}, - StaticText { disabled, "An error occurred.\n\nerror code = ^3" }, - } -}; - -resource 'ALRT' (kAlertGeneric) { - {60, 81, 200, 431}, kAlertGeneric, - { - OK, visible, sound1, - OK, visible, sound1, - OK, visible, sound1, - OK, visible, sound1, - }, - alertPositionParentWindowScreen -}; - -resource 'DITL' (kAlertGeneric) { - { - {100, 270, 120, 328}, Button {enabled, "OK"}, - - {10, 20, 85, 378}, - StaticText { disabled, "^0^1^2^3" }, - } -}; - -resource 'ALRT' (kAlertSaveAsk) { - {60, 81, 200, 431}, kAlertSaveAsk, - { - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - OK, visible, silent, - }, - alertPositionParentWindowScreen -}; - -resource 'DITL' (kAlertSaveAsk) { - { - {100, 270, 120, 328}, Button {enabled, "Save"}, - {100, 202, 120, 260}, Button {enabled, "Cancel"}, - {100, 22, 120, 110}, Button {enabled, "Don't Save"}, - {10, 70, 85, 328}, StaticText { disabled, "Save \"^0\" before ^1 ?" }, - {10, 20, 42, 52}, Icon {disabled, kApplicationIcon}, - } -}; - -resource 'DLOG' (kDialogAbout) { - {70, 60, 285, 470}, - noGrowDocProc, - visible, - goAway, - 0, - kDialogAbout, - "About " APPLNAME, - alertPositionMainScreen -}; - -resource 'DITL' (kDialogAbout) { - { - {10, 20, 42, 52}, Icon {disabled, kApplicationIcon}, - {10, 72, 205, 400}, UserItem { disabled }, - } -}; - -resource 'MBAR' (kMenuBar) { - { kMenuApple, kMenuFile, kMenuEdit, kMenuWindows, } -}; - -resource 'MENU' (kMenuApple) { - kMenuApple, - textMenuProc, - 0x7FFFFFFD, - enabled, - apple, - { - "About " APPLNAME "", noIcon, noKey, noMark, plain, - "-", noIcon, noKey, noMark, plain, - } -}; - -resource 'MENU' (kMenuFile) { - kMenuFile, - textMenuProc, - 0x7FFFFB7B, - enabled, - "File", - { - "New", noIcon, "N", noMark, plain, - "Open", noIcon, "O", noMark, plain, - "-", noIcon, noKey, noMark, plain, - "Close", noIcon, "W", noMark, plain, - "Save", noIcon, "S", noMark, plain, - "Save as", noIcon, noKey, noMark, plain, - "Revert to Saved", noIcon, noKey, noMark, plain, - "-", noIcon, noKey, noMark, plain, - "Page Setup", noIcon, nokey, noMark, plain, - "Print", noIcon, "P", noMark, plain, - "-", noIcon, noKey, noMark, plain, - "Quit", noIcon, "Q", noMark, plain, - } -}; - -resource 'MENU' (kMenuEdit) { - kMenuEdit, - textMenuProc, - 0x7FFFFFBD, - enabled, - "Edit", - { - "Undo", noIcon, "Z", noMark, plain, - "-", noIcon, noKey, noMark, plain, - "Cut", noIcon, "X", noMark, plain, - "Copy", noIcon, "C", noMark, plain, - "Paste", noIcon, "V", noMark, plain, - "Clear", noIcon, noKey, noMark, plain, - "Select All", noIcon, "A", noMark, plain, - "Show Clipboard", noIcon, noKey, noMark, plain, - "-", noIcon, noKey, noMark, plain, - "Find", noIcon, "F", noMark, plain, - "Replace", noIcon, "R", noMark, plain, - "-", noIcon, noKey, noMark, plain, - "Preferences", noIcon, noKey, noMark, plain, - } -}; - -resource 'MENU' (kMenuWindows) { - kMenuWindows, - textMenuProc, - 0x7FFFFFF9, - enabled, - "Windows", - { - "Toplevel", noIcon, "T", noMark, plain, - "Graphics", noIcon, "G", noMark, plain, - "-", noIcon, noKey, noMark, plain, - } -}; - -resource 'STR#' (kUndoStrings) { - { - "Cannot undo", - "Undo", "Redo", - "Undo Typing", "Redo Typing", - "Undo Cut", "Redo Cut", - "Undo Paste", "Redo Paste", - "Undo Clear", "Redo Clear", - "Undo Drag & Drop", "Redo Drag & Drop", - /* Style change is not supported. */ - } -}; - -resource 'STR#' (kMiscStrings, purgeable) { - { - APPLNAME " Preferences", - "Untitled", - "closing", - "quitting", - "Unable to open \"", - "\". ", - "Save file as:", - "", - "Unable to write to \"", - " with error code ", - } -}; - -resource 'STR#' (kErrorStrings, purgeable) { - { - "There is not enough memory.", - "The disk is full.", - "The directory is full.", - "Too many files are already open.", - "The file does not exist.", - "The disk is write-protected.", - "The file is locked.", - "The disk is locked.", - "The file is in use.", - "The file is already open (by " APPLNAME " or another application).", - "The disk was ejected.", - "The file is locked or you do not have the permission to open it.", - "You do not have the permission to write to this file.", - "The folder does not exist.", - "The connection to the file server was closed or broken.", - "A hardware error occurred during input or output.", - } -}; - -resource 'STR ' (kPrefsDescriptionStr, purgeable) { - "This document describes user preferences for " APPLNAME ". " - "You cannot open or print this document. To be " - "effective, this document must be stored in the Preferences " - "folder of the System Folder." -}; - -resource 'WIND' (kToplevelWinTemplate) { - {40, 4, 342, 512}, - zoomDocProc, - invisible, - noGoAway, - 0, - APPLNAME " Toplevel", - noAutoCenter -}; - -resource 'WIND' (kGraphicsWinTemplate) { - {40, 4, 342, 512}, - zoomDocProc, - invisible, - goAway, - 0, - APPLNAME " Graphics", - noAutoCenter -}; - -resource 'WIND' (kDocumentWinTemplate) { - {45, 10, 342, 512}, - zoomDocProc, - visible, - goAway, - 0, - "Untitled", - staggerMainScreen -}; - -resource 'CNTL' (kScrollBarTemplate) { - {0, 0, 16, 16}, - 0, - invisible, - 0, 0, - scrollBarProc, - 0, - "" -}; - -resource 'acur' (0) { - {1000, 1001, 1002, 1003, } -}; - -resource 'CURS' (1000) { - $"07C0 1F30 3F08 7F04 7F04 FF02 FF02 FFFE" - $"81FE 81FE 41FC 41FC 21F8 19F0 07C0", - $"07C0 1FF0 3FF8 7FFC 7FFC FFFE FFFE FFFE" - $"FFFE FFFE 7FFC 7FFC 3FF8 1FF0 07C0", - {7, 7} -}; - -resource 'CURS' (1001) { - $"07C0 1FF0 3FF8 5FF4 4FE4 87C2 8382 8102" - $"8382 87C2 4FE4 5FF4 3FF8 1FF0 07C0", - $"07C0 1FF0 3FF8 7FFC 7FFC FFFE FFFE FFFE" - $"FFFE FFFE 7FFC 7FFC 3FF8 1FF0 07C0", - {7, 7} -}; - -resource 'CURS' (1002) { - $"07C0 19F0 21F8 41FC 41FC 81FE 81FE FFFE" - $"FF02 FF02 7F04 7F04 3F08 1F30 07C0", - $"07C0 1FF0 3FF8 7FFC 7FFC FFFE FFFE FFFE" - $"FFFE FFFE 7FFC 7FFC 3FF8 1FF0 07C0", - {7, 7} -}; - -resource 'CURS' (1003) { - $"07C0 1830 2008 701C 783C FC7E FEFE FFFE" - $"FEFE FC7E 783C 701C 2008 1830 07C0", - $"07C0 1FF0 3FF8 7FFC 7FFC FFFE FFFE FFFE" - $"FFFE FFFE 7FFC 7FFC 3FF8 1FF0 07C0", - {7, 7} -}; - -resource 'snd ' (1002){ - FormatOne{ - { sampledSynth, 0x80 }, - }, - { - hasData, soundCmd {0x2C}, - noData, ampCmd {127}, - noData, freqDurationCmd {0x4321, 60}, - noData, quietCmd {}, - }, - { - 4, - Rate22K, - 0, 4, - 0, - 60, - $"FF01FF01" - } -}; - -resource 'snd ' (1004){ - FormatOne{ - { sampledSynth, 0x80 }, - }, - { - hasData, soundCmd {0x2C}, - noData, ampCmd {127}, - noData, freqDurationCmd {0x4321, 60}, - noData, quietCmd {}, - }, - { - 4, - Rate22K, - 0, 4, - 0, - 60, - $"FF800180" - } -}; - -resource 'snd ' (1008){ - FormatOne{ - { sampledSynth, 0x80 }, - }, - { - hasData, soundCmd {0x2C}, - noData, ampCmd {127}, - noData, freqDurationCmd {0x4321, 60}, - noData, quietCmd {}, - }, - { - 8, - Rate22K, - 0, 8, - 0, - 60, - $"FFDA8026012680DA" - } -}; - -resource 'snd ' (1032){ - FormatOne{ - { sampledSynth, 0x80 }, - }, - { - hasData, soundCmd {0x2C}, - noData, ampCmd {127}, - noData, freqDurationCmd {0x4321, 60}, - noData, quietCmd {}, - }, - { - 32, - Rate22K, - 0, 32, - 0, - 60, - $"FFFDF5EADAC7B19980674F3926160B0301030B1626394F678099B1C7DAEAF5FD" - } -}; - - -resource 'snd ' (1128){ - FormatOne{ - { sampledSynth, 0x80 }, - }, - { - hasData, soundCmd {0x2C}, - noData, ampCmd {127}, - noData, freqDurationCmd {0x4321, 60}, - noData, quietCmd {}, - }, - { - 128, - Rate22K, - 0, 128, - 0, - 60, - $"FFFFFEFEFDFBFAF8F5F3F0EDEAE6E2DEDAD5D1CCC7C1BCB6B1ABA59F99938C86" - $"807A746D67615B554F4A443F39342F2B26221E1A1613100D0B08060503020201" - $"01010202030506080B0D1013161A1E22262B2F34393F444A4F555B61676D747A" - $"80868C93999FA5ABB1B6BCC1C7CCD1D5DADEE2E6EAEDF0F3F5F8FAFBFDFEFEFF" - } -}; - -resource 'snd ' (1512, "foo"){ - FormatOne{ - { sampledSynth, 0x80 }, - }, - { - hasData, soundCmd {0x2C}, - noData, ampCmd {127}, - noData, freqDurationCmd {0x4321, 60}, - noData, quietCmd {}, - }, - { - 512, - Rate22K, - 0, 512, - 0, - 60, - $"FFFFFFFFFFFFFFFFFEFEFEFEFEFDFDFDFDFCFCFCFBFBFAFAFAF9F9F8F8F7F6F6" - $"F5F5F4F3F3F2F1F1F0EFEFEEEDECEBEAEAE9E8E7E6E5E4E3E2E1E0DFDEDDDCDB" - $"DAD9D8D6D5D4D3D2D1CFCECDCCCAC9C8C7C5C4C3C1C0BFBDBCBAB9B8B6B5B3B2" - $"B1AFAEACABA9A8A6A5A3A2A09F9D9C9A999796949391908E8C8B898886858382" - $"807E7D7B7A7877757472706F6D6C6A696766646361605E5D5B5A585755545251" - $"4F4E4D4B4A484746444341403F3D3C3B39383736343332312F2E2D2C2B2A2827" - $"262524232221201F1E1D1C1B1A1918171616151413121111100F0F0E0D0D0C0B" - $"0B0A0A0908080707060606050504040403030303020202020201010101010101" - $"0101010101010101020202020203030303040404050506060607070808090A0A" - $"0B0B0C0D0D0E0F0F1011111213141516161718191A1B1C1D1E1F202122232425" - $"2627282A2B2C2D2E2F31323334363738393B3C3D3F404143444647484A4B4D4E" - $"4F5152545557585A5B5D5E606163646667696A6C6D6F7072747577787A7B7D7E" - $"808283858688898B8C8E909193949697999A9C9D9FA0A2A3A5A6A8A9ABACAEAF" - $"B1B2B3B5B6B8B9BABCBDBFC0C1C3C4C5C7C8C9CACCCDCECFD1D2D3D4D5D6D8D9" - $"DADBDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEAEBECEDEEEFEFF0F1F1F2F3F3F4F5" - $"F5F6F6F7F8F8F9F9FAFAFAFBFBFCFCFCFDFDFDFDFEFEFEFEFEFFFFFFFFFFFFFF" - } -}; - -resource 'FREF' (128) { - 'APPL', - 0, - "" -}; - -resource 'FREF' (129) { - 'TEXT', - 1, - "" -}; - -resource 'FREF' (130) { - 'sEXT', - 2, - "" -}; - -resource 'BNDL' (128) { - CREATOR, - 0, - { /* array TypeArray: 2 elements */ - /* [1] */ - 'FREF', - { /* array IDArray: 3 elements */ - /* [1] */ - 0, 128, - /* [2] */ - 1, 129, - /* [3] */ - 2, 130 - }, - /* [2] */ - 'ICN#', - { /* array IDArray: 3 elements */ - /* [1] */ - 0, 1000, - /* [2] */ - 1, 1001, - /* [3] */ - 2, 1002 - } - } -}; - -data CREATOR (0) { - $"00" /* . */ -}; diff --git a/maccaml/clipboard.c b/maccaml/clipboard.c deleted file mode 100644 index 0e09065fb..000000000 --- a/maccaml/clipboard.c +++ /dev/null @@ -1,40 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -WindowPtr clip_window = NULL; - -/* Open clipboard window or bring it to the front. */ -void ClipShow (void) -{ - if (clip_window != NULL){ - SelectWindow (clip_window); - }else{ - XXX (); - } -} - -void ClipClose (void) -{ - XXX (); -} - -void ClipChanged (void) -{ - if (clip_window != NULL){ - XXX (); - } -} diff --git a/maccaml/drag.c b/maccaml/drag.c deleted file mode 100644 index 64bf909cf..000000000 --- a/maccaml/drag.c +++ /dev/null @@ -1,241 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1997 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -static DragTrackingHandlerUPP MyTrackingHandlerUPP = NULL; -static DragReceiveHandlerUPP MyReceiveHandlerUPP = NULL; - -static OSErr ToplevelTrackDrag (DragTrackingMessage message, DragReference drag) -{ - static int canacceptdrag = 0; - static int hilited = 0; - WEReference we = WinGetWE (winToplevel); - short readonly; - Point mouse; - RgnHandle rgn = NewRgn (); - Rect viewrect; - LongRect lviewrect; - OSErr err; - DragAttributes attributes; - - Assert (we != NULL); - switch (message){ - - case kDragTrackingEnterWindow: - readonly = WEFeatureFlag (weFReadOnly, weBitTest, we); - WEFeatureFlag (weFReadOnly, weBitClear, we); - canacceptdrag = WECanAcceptDrag (drag, we); - if (readonly) WEFeatureFlag (weFReadOnly, weBitSet, we); - break; - - case kDragTrackingInWindow: - if (canacceptdrag){ - err = GetDragAttributes (drag, &attributes); - if (err != noErr) goto failed; - err = GetDragMouse (drag, &mouse, nil); - if (err != noErr) goto failed; - GlobalToLocal (&mouse); - WEGetViewRect (&lviewrect, we); - WELongRectToRect (&lviewrect, &viewrect); - InsetRect (&viewrect, -kTextMarginH, 0); - if (PtInRect (mouse, &viewrect)){ - if (!hilited && (attributes & kDragHasLeftSenderWindow)){ - RectRgn (rgn, &viewrect); - InsetRgn (rgn, 0, -kTextMarginV); - ShowDragHilite (drag, rgn, true); - DisposeRgn (rgn); - hilited = 1; - } - }else{ - if (hilited){ - HideDragHilite (drag); - hilited = 0; - } - } - } - break; - - case kDragTrackingLeaveWindow: - if (hilited){ - HideDragHilite (drag); - hilited = 0; - } - break; - - default: break; - } - return noErr; - - failed: return err; -} - -static pascal OSErr MyTrackingHandler (DragTrackingMessage message, WindowPtr w, - void *refCon, DragReference drag) -{ - #pragma unused (refCon) - WEReference we; - - switch (WinGetKind (w)){ - case kWinUnknown: - case kWinUninitialised: - case kWinAbout: - case kWinGraphics: - case kWinPrefs: - case kWinClipboard: - return noErr; - - case kWinToplevel: - return ToplevelTrackDrag (message, drag); - - case kWinDocument: - we = WinGetWE (w); Assert (we != NULL); - return WETrackDrag (message, drag, we); - - default: - Assert (0); - return noErr; - } -} - -static OSErr ToplevelReceiveDrag (DragReference drag, WEReference we) -{ - GrafPtr saveport; - short readonly = 0; - Boolean canaccept; - OSErr err; - Point mouse; - LongRect lviewrect; - Rect viewrect; - UInt16 nitems; - UInt16 i; - ItemReference itemref; - Handle h = NULL; - Size sz, curlen; - long dest, selstart, selend = -1; - - PushWindowPort (winToplevel); - - readonly = WEFeatureFlag (weFReadOnly, weBitTest, we); - if (readonly) WEFeatureFlag (weFReadOnly, weBitClear, we); - canaccept = WECanAcceptDrag (drag, we); - if (!canaccept){ err = badDragFlavorErr; goto failed; } - - err = GetDragMouse (drag, &mouse, nil); - if (err != noErr) goto failed; - GlobalToLocal (&mouse); - WEGetViewRect (&lviewrect, we); - WELongRectToRect (&lviewrect, &viewrect); - if (!PtInRect (mouse, &viewrect)){ err = dragNotAcceptedErr; goto failed; } - - /* XXX Ne pas coller si le drag vient de la mme fentre et la souris - est revenue dans la slection. */ - - h = NewHandle (0); - err = MemError (); if (err != noErr) goto failed; - curlen = 0; - - err = CountDragItems (drag, &nitems); - if (err != noErr) goto failed; - - for (i = 1; i <= nitems; i++){ - err = GetDragItemReferenceNumber (drag, i, &itemref); - if (err != noErr) goto failed; - err = GetFlavorDataSize (drag, itemref, kTypeText, &sz); - if (err != noErr) goto failed; - SetHandleSize (h, curlen + sz); - err = MemError (); if (err != noErr) goto failed; - HLock (h); - err = GetFlavorData (drag, itemref, kTypeText, (*h)+curlen, &sz, 0); - HUnlock (h); - if (err != noErr) goto failed; - curlen += sz; - } - dest = WEGetTextLength (we); - WEGetSelection (&selstart, &selend, we); - WESetSelection (dest, dest, we); - WESetStyle (weDoFont + weDoFace + weDoSize + weDoColor + weDoReplaceFace, - &prefs.unread, we); - HLock (h); - err = WEInsert (*h, curlen, NULL, NULL, we); - HUnlock (h); - if (err != noErr) goto failed; - WESetSelection (dest + curlen, dest + curlen, we); - ScrollToEnd (winToplevel); - - DisposeHandle (h); - PopPort; - return noErr; - - failed: - if (h != NULL) DisposeHandle (h); - if (selend != -1) WESetSelection (selstart, selend, we); - if (readonly) WEFeatureFlag (weFReadOnly, weBitSet, we); - PopPort; - return err; -} - -static pascal OSErr MyReceiveHandler (WindowPtr w, void *refCon, - DragReference drag) -{ - #pragma unused (refCon) - WEReference we; - - switch (WinGetKind (w)){ - case kWinUnknown: - case kWinUninitialised: - case kWinAbout: - case kWinGraphics: - case kWinPrefs: - case kWinClipboard: - return noErr; - case kWinToplevel: - we = WinGetWE (w); Assert (we != NULL); - return ToplevelReceiveDrag (drag, we); - case kWinDocument: - we = WinGetWE (w); Assert (we != NULL); - return WEReceiveDrag (drag, we); - default: - Assert (0); - return noErr; - } -} - -OSErr InstallDragHandlers (void) -{ - OSErr err; - - MyTrackingHandlerUPP = NewDragTrackingHandlerProc (MyTrackingHandler); - MyReceiveHandlerUPP = NewDragReceiveHandlerProc (MyReceiveHandler); - - err = InstallTrackingHandler (MyTrackingHandlerUPP, NULL, NULL); - if (err != noErr) return err; - err = InstallReceiveHandler (MyReceiveHandlerUPP, NULL, NULL); - if (err != noErr){ - RemoveTrackingHandler (MyTrackingHandlerUPP, NULL); - return err; - } - return noErr; -} - -OSErr RemoveDragHandlers (void) -{ - OSErr err1, err2; - - err1 = RemoveTrackingHandler (MyTrackingHandlerUPP, NULL); - err2 = RemoveReceiveHandler (MyReceiveHandlerUPP, NULL); - if (err2 != noErr && err1 == noErr) return err2; - return err1; -} diff --git a/maccaml/dummy_fragment.c b/maccaml/dummy_fragment.c deleted file mode 100644 index 2a924f1d6..000000000 --- a/maccaml/dummy_fragment.c +++ /dev/null @@ -1 +0,0 @@ -/* This file intentionally left blank. */ diff --git a/maccaml/errors.c b/maccaml/errors.c deleted file mode 100644 index bf32ce4e9..000000000 --- a/maccaml/errors.c +++ /dev/null @@ -1,114 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1997 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -static int exiting = 0; - -void assert_failure (char *condition, char *file, int line) -{ - Str255 buf; - - if (exiting) ExitToShell (); - exiting = 1; - NumToString ((long) line, buf); - ParamText (c2pstr (condition), c2pstr (file), buf, NULL); - InitCursor (); - modalkeys = kKeysOK; - StopAlert (kAlertBug, myModalFilterUPP); - FinaliseAndQuit (); -} - -void XXX (void) -{ - InitCursor (); - modalkeys = kKeysOK; - StopAlert (kAlertNotYet, myModalFilterUPP); -} - -void ErrorAlert (short msg1, Str255 bufmsg2, short msg3, OSErr err) -{ - Str255 bufmsg1, bufmsg3, bufmsg4; - short msg; - - switch (err){ - case noErr: - case userCanceledErr: return; - - case mFulErr: - case memFullErr: - case cTempMemErr: - case cNoMemErr: - case updPixMemErr: msg = kMemFull; break; - case dskFulErr: - case afpDiskFull: msg = kDiskFull; break; - case dirFulErr: msg = kDirFull; break; - case tmfoErr: - case afpTooManyFilesOpen: msg = kTooManyFiles; break; - case fnfErr: msg = kFileNotFound; break; - case wPrErr: msg = kWriteProtect; break; - case fLckdErr: - case afpObjectLocked: msg = kFileLocked; break; - case vLckdErr: - case afpVolLocked: msg = kVolLocked; break; - case fBsyErr: - case afpFileBusy: msg = kFileBusy; break; - case opWrErr: msg = kFileOpen; break; - case volOffLinErr: msg = kVolOffLine; break; - case permErr: - case afpAccessDenied: msg = kPermDenied; break; - case wrPermErr: msg = kWritePermDenied; break; - case dirNFErr: msg = kDirNotFound; break; - case volGoneErr: - case afpSessClosed: msg = kDisconnected; break; - case ioErr: msg = kIOError; break; - - default: msg = 0; break; - } - - GetIndString (bufmsg1, kMiscStrings, msg1); - GetIndString (bufmsg3, kMiscStrings, msg3); - - if (msg != 0){ - GetIndString (bufmsg4, kErrorStrings, msg); - ParamText (bufmsg1, bufmsg2, bufmsg3, bufmsg4); - }else{ - NumToString (err, bufmsg4); - ParamText (bufmsg1, bufmsg2, bufmsg3, bufmsg4); - } - InitCursor (); - modalkeys = kKeysOK; - StopAlert (msg ? kAlertErrorMsg : kAlertErrorNum, myModalFilterUPP); -} - -void ErrorAlertCantOpen (Str255 filename, OSErr err) -{ - ErrorAlert (kCannotOpenIdx, filename, kCloseQuoteIdx, err); -} - -void ErrorAlertGeneric (OSErr err) -{ - ErrorAlert (kEmptyIdx, "\p", kEmptyIdx, err); -} - -OSErr InitialiseErrors (void) -{ - /* XXX CouldAlert is not in any library ?!? - CouldAlert (kAlertErrorMsg); - CouldAlert (kAlertErrorNum); - CouldAlert (kAlertBug); - */ - return noErr; -} diff --git a/maccaml/events.c b/maccaml/events.c deleted file mode 100644 index 741148209..000000000 --- a/maccaml/events.c +++ /dev/null @@ -1,319 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1997 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -/* [intr_requested] is true if the user typed command-period and the - SIGINT signal was not yet delivered. -*/ -int intr_requested = 0; - -UInt32 last_event_date = 0; - -UInt32 evtSleep = 0; -static RgnHandle mouseRegion = NULL; -static RgnHandle pointRegion = NULL; - -static void AdjustCursor (Point mouse, RgnHandle mouseRegion) -{ - WindowPtr w = FrontWindow (); - WEHandle we = WinGetWE (w); - int k = WinGetKind (w); - Boolean res; - - SetRectRgn (mouseRegion, -SHRT_MAX, -SHRT_MAX, SHRT_MAX, SHRT_MAX); - if (we != NULL && k != kWinAbout){ - if (w == winToplevel){ - res = AdjustRotatingCursor (); - if (res) return; - } - res = WEAdjustCursor (mouse, mouseRegion, we); - if (res) return; - } - SetCursor (&qd.arrow); -} - -static void DoActivate (EventRecord *evt) -{ - WindowPtr w = (WindowPtr) evt->message; - - if (GetWindowKind (w) != userKind) return; /*XXX*/ - WinActivateDeactivate (evt->modifiers & activeFlag, w); -} - -static void DoDiskEvent (EventRecord *evt) -{ - OSErr err; - Point pt; - - if (evt->message >> 16 != noErr){ - DILoad (); - err = DIBadMount (pt, evt->message); /* [pt] is ignored */ - if (err != noErr && err != 1 && err != 2){ - ErrorAlertGeneric (err); /* XXX or nothing ? */ - } - DIUnload (); - } -} - -static void DoKeyDown (EventRecord *evt) -{ - short chr = evt->message & charCodeMask; - Boolean isCmdKey = (evt->modifiers & cmdKey) != 0; - - if (chr == 0x10){ - switch ((evt->message & keyCodeMask) >> 8){ - case keyF1: - isCmdKey = 1; - chr = 'z'; - break; - case keyF2: - isCmdKey = 1; - chr = 'x'; - break; - case keyF3: - isCmdKey = 1; - chr = 'c'; - break; - case keyF4: - isCmdKey = 1; - chr = 'v'; - break; - default: - chr = -1; - } - } - if (isCmdKey && chr == '.' - && FrontWindow () == winToplevel - && evt->what != autoKey){ - FlushUnreadInput (); - raise (SIGINT); - } - if (isCmdKey && chr >= 0x20){ - UpdateMenus (); - DoMenuChoice (MenuKey (chr), evt->modifiers); - }else{ - WindowPtr w = FrontWindow (); - if (chr != -1 && w != NULL){ - WinDoKey (w, chr, evt); - } - } -} - -static void DoMouseDown (EventRecord *event) -{ - WindowPtr w; - short partCode; - - partCode = FindWindow (event->where, &w); - switch (partCode){ - case inMenuBar: - UpdateMenus (); - DoMenuChoice (MenuSelect (event->where), event->modifiers); - break; - case inSysWindow: - SystemClick (event, w); - break; - case inContent: - WinDoContentClick (event, w); - break; - case inDrag: - WinDoDrag (event->where, w); - break; - case inGrow: - WinDoGrow (event->where, w); - break; - case inGoAway: - if (TrackGoAway (w, event->where)) WinDoClose (closingWindow, w); - break; - case inZoomIn: - case inZoomOut: - if (TrackBox (w, event->where, partCode)) WinDoZoom (w, partCode); - break; - } -} - -/* XXX recuperer les mouse-up pour matcher les mouse-down ? */ -static void DoMouseUp (EventRecord *e) -{ - short partCode; - WindowPtr w; - Point hitpt; - GrafPtr saveport; - Rect r; - - if (FrontWindow () != winGraphics) return; - partCode = FindWindow (e->where, &w); - if (partCode != inContent) return; - PushWindowPort (winGraphics); - hitpt = e->where; - GlobalToLocal (&hitpt); - ScrollCalcGraph (winGraphics, &r); - if (PtInRect (hitpt, &r)) GraphGotEvent (e); - PopPort; - return; -} - -static void DoNullEvent (EventRecord *event) -{ -#pragma unused (event) - WindowPtr w = FrontWindow (); - - if (w != NULL) WinDoIdle (w); -} - -static void DoOSEvent (EventRecord *event) -{ - int msg = (event->message & osEvtMessageMask) >> 24; - WindowPtr w; - - switch (msg){ - case suspendResumeMessage: - w = FrontWindow (); - if (w != NULL){ - Boolean state = !! (event->message & resumeFlag); - WinActivateDeactivate (state, w); - } - if (event->message & convertClipboardFlag) ClipChanged (); - case mouseMovedMessage: ; - } -} - -static void DoUpdate (EventRecord *evt) -{ - WindowPtr w = (WindowPtr) evt->message; - - if (GetWindowKind (w) != userKind) return; /*XXX*/ - WinUpdate (w); -} - -static void DoDialogEvent (EventRecord *evt) -{ - DialogPtr dlg; - short itm; - - if (evt->what == diskEvt){ - DoDiskEvent (evt); - return; - }else if (evt->what == keyDown || evt->what == autoKey){ - if (evt->modifiers & cmdKey){ - DoKeyDown (evt); - return; - }else{ - switch ((evt->message & charCodeMask) >> 8){ - case '\n': - XXX (); /*XXX return key*/ - return; - case '\033': - XXX (); /*XXX escape key */ - return; - default: break; - } - } - } - if (DialogSelect (evt, &dlg, &itm)){ - switch (WinGetKind (dlg)){ - case kWinAbout: - Assert (0); /* No item is enabled. */ - break; - case kWinPrefs: - XXX (); - break; - default: - Assert (0); /* Other windows are not dialogs. */ - break; - } - } -} - -static pascal Boolean ProcessEvent (EventRecord *evt, long *sleep, - RgnHandle *rgn) -{ - if (evt->what <= osEvt) AdjustCursor (evt->where, mouseRegion); - if (IsDialogEvent (evt)){ - DoDialogEvent (evt); - }else{ - switch (evt->what){ - case nullEvent: - DoNullEvent (evt); - break; - case mouseDown: - DoMouseDown (evt); - break; - case mouseUp: /* Needed for the graphics window. */ - DoMouseUp (evt); - break; - case keyDown: - case autoKey: - DoKeyDown (evt); - break; - case updateEvt: - DoUpdate (evt); - break; - case activateEvt: - DoActivate (evt); - break; - case diskEvt: - DoDiskEvent (evt); - break; - case osEvt: - DoOSEvent (evt); - break; - case kHighLevelEvent: - AEProcessAppleEvent (evt); - break; - } - } - *sleep = evt->what == nullEvent ? evtSleep : 0; - *rgn = mouseRegion; - return false; -} - -void GetAndProcessEvents (WaitEventOption wait, short oldx, short oldy) -{ - EventRecord evt; - long dummysleep; - RgnHandle dummyregion; - UInt32 cursleep = (wait == noWait) ? 0 : evtSleep; - RgnHandle currgn; - - if (wait == waitMove){ - currgn = pointRegion; - SetRectRgn (pointRegion, oldx, oldy, oldx+1, oldy+1); - }else{ - currgn = mouseRegion; - } - - WaitNextEvent (everyEvent, &evt, cursleep, currgn); - ProcessEvent (&evt, &dummysleep, &dummyregion); - - while (evt.what != nullEvent){ - WaitNextEvent (everyEvent, &evt, 0, NULL); - ProcessEvent (&evt, &dummysleep, &dummyregion); - } -} - -AEIdleUPP ProcessEventUPP; - -OSErr InitialiseEvents (void) -{ - OSErr err; - - mouseRegion = NewRgn (); /* XXX out of memory ? */ - pointRegion = NewRgn (); /* XXX out of memory ? */ - ProcessEventUPP = NewAEIdleProc (ProcessEvent); - err = InstallAEHandlers (); - return err; -} diff --git a/maccaml/files.c b/maccaml/files.c deleted file mode 100644 index ae94adcc4..000000000 --- a/maccaml/files.c +++ /dev/null @@ -1,427 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1997 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -static unsigned long nuntitled = 0; -static unsigned long count = 2; - -/* XXX prvoir le cas o on peut crire le texte mais pas les ressources - -> resrefnum peut tre -1 quand datarefnum est valide -*/ - -static void MakeUntitledTitle (Str255 result) -{ - char buffer [15]; - - GetIndString (result, kMiscStrings, kUntitledIdx); - if (nuntitled != 0){ - if (result [0] > 240) result [0] = 240; - sprintf (buffer, " %lu", count); Assert (strlen (buffer) < 15); - strcpy ((char *) result + result [0] + 1, buffer); - result [0] += strlen (buffer); - ++ count; - }else{ - count = 2; - } - ++ nuntitled; -} - -static void FreeUntitledTitle () -{ - -- nuntitled; -} - -/* Close the file associated with the window, saving it if needed. */ -OSErr FileDoClose (WindowPtr w, ClosingOption close) -{ - WStatusH st; - WEHandle we; - Str255 savingprompt, filename; - short item; - OSErr err; - - Assert (WinGetKind (w) == kWinDocument); - WinUpdateStatus (w); - st = WinGetStatus (w); Assert (st != NULL); - we = WinGetWE (w); Assert (we != NULL); - GetWTitle (w, filename); - if ((*st)->menuflags.save){ - GetIndString (savingprompt, kMiscStrings, kClosingIdx + close); - ParamText (filename, savingprompt, NULL, NULL); - InitCursor (); - modalkeys = kKeysSaveDontCancel; - item = Alert (kAlertSaveAsk, myModalFilterUPP); - switch (item){ - case 1: /* Yes */ - err = FileDoSave (w, 0); - if (err != noErr) return err; - break; - case 2: /* Cancel */ - return userCanceledErr; - case 3: /* No */ - break; - default: Assert (0); - } - }else{ - if ((*st)->resrefnum != -1){ - /* XXX sauver fenetre, selection, scrollbars */ - } - } - if ((*st)->datarefnum == -1){ - Assert ((*st)->resrefnum == -1); - FreeUntitledTitle (); - }else{ - FSClose ((*st)->datarefnum); - if ((*st)->resrefnum != -1) CloseResFile ((*st)->resrefnum); - } - return noErr; -} - -/* Open a new untitled window. */ -void FileNew (void) -{ - Str255 titlebuf; - WindowPtr w; - OSErr err; - WStatusH st; - - MakeUntitledTitle (titlebuf); - w = WinOpenDocument ((StringPtr) titlebuf); - if (w == NULL) {err = 0/*XXX*/; goto failed; } - st = WinGetStatus (w); Assert (st != NULL); - (*st)->datarefnum = (*st)->resrefnum = -1; - return; - - failed: - if (w != NULL) WinDoClose (closingWindow, w); - ErrorAlertGeneric (err); -} - -/* Open the specified file in a new window. */ -OSErr FileOpen (FSSpec *filespec) - { - WindowPtr w = NULL; - WStatusH st; - StringPtr title; - Str255 titlebuf; - short resrefnum = -1, datarefnum = -1; - Size textsize; - Handle texthandle = NULL; - OSErr err; - int template; - SignedByte perm; - FInfo fileinfo; - - err = FSpGetFInfo (filespec, &fileinfo); - if (err != noErr) goto failed; - if (fileinfo.fdFlags & kIsStationery){ - MakeUntitledTitle (titlebuf); - title = (StringPtr) titlebuf; - template = 1; - }else{ - title = (StringPtr) filespec->name; - template = 0; - } - perm = template ? fsRdPerm : fsRdWrPerm; - - err = FSpOpenDF (filespec, perm, &datarefnum); - if (err != noErr){ datarefnum = -1; goto failed; } - err = GetEOF (datarefnum, &textsize); - if (err != noErr) goto failed; - err = SetFPos (datarefnum, fsFromStart, 0L); - if (err != noErr) goto failed; - err = AllocHandle (textsize, &texthandle); - if (err != noErr) goto failed; - HLock (texthandle); - err = FSRead (datarefnum, &textsize, *texthandle); - HUnlock (texthandle); - if (err != noErr) goto failed; - - /*XXX FSpCreateResFile (filespec, creator, type, 0); */ - resrefnum = FSpOpenResFile (filespec, perm); - if (resrefnum != -1){ - /* XXX lire la position de la fentre, la slection, les scrollbars */ - } - - w = WinOpenDocument (title); - if (w == NULL) { err = 0/*XXX*/; goto failed; } - st = WinGetStatus (w); Assert (st != NULL); - - WEUseText (texthandle, (*st)->we); - WECalText ((*st)->we); - WESetSelection (0, 0, (*st)->we); /* XXX */ - AdjustScrollBars (w); - WEResetModCount ((*st)->we); - (*st)->basemodcount = 0; - - if (template){ - FSClose (datarefnum); - if (resrefnum != -1) CloseResFile (resrefnum); - (*st)->datarefnum = (*st)->resrefnum = -1; - }else{ - (*st)->datarefnum = datarefnum; - (*st)->resrefnum = resrefnum; - } - return noErr; - - failed: - if (texthandle != NULL) DisposeHandle (texthandle); - if (datarefnum != -1) FSClose (datarefnum); - if (resrefnum != -1) CloseResFile (resrefnum); - if (w != NULL) WinDoClose (closingWindow, w); - return err; -} - -/* Get a file with the standard dialog and open it in a new window. */ -void FileDoGetOpen (void) -{ - OSErr err; - StandardFileReply sfreply; - SFTypeList types = { 'TEXT' }; - - StandardGetFile (NULL, 1, types, &sfreply); - if (sfreply.sfGood){ - err = FileOpen (&sfreply.sfFile); - if (err != noErr) ErrorAlertCantOpen (sfreply.sfFile.name, err); - } -} - -/* Revert w to the contents of its associated file. */ -void FileRevert (WindowPtr w) -{ - WStatusH st; - short err; - Size textsize; - Handle texthandle; - - /*XXX demander confirmation */ - - st = WinGetStatus (w); - Assert (st != NULL); - Assert ((*st)->datarefnum != -1); - Assert ((*st)->we != NULL); - - err = GetEOF ((*st)->datarefnum, &textsize); - if (err != noErr) goto failed; - err = SetFPos ((*st)->datarefnum, fsFromStart, 0L); - if (err != noErr) goto failed; - err = AllocHandle (textsize, &texthandle); - if (err != noErr) goto failed; - HLock (texthandle); - err = FSRead ((*st)->datarefnum, &textsize, *texthandle); - HUnlock (texthandle); - if (err != noErr) goto failed; - - /* XXX lire la slection (pas la scrollbar ?) */ - - SetPortWindowPort (w); - WEUseText (texthandle, (*st)->we); - WECalText ((*st)->we); - WEUpdate (NULL, (*st)->we); - WESetSelection (0, 0, (*st)->we); /* XXX */ - AdjustScrollBars (w); - WEResetModCount ((*st)->we); - (*st)->basemodcount = 0; - return; - - failed: - if (texthandle != NULL) DisposeHandle (texthandle); - ErrorAlertGeneric (err); -} - -/* Save the text to datarefnum. - If resrefnum != -1, save the window position and the current selection. -*/ -static OSErr SaveText (WindowPtr w, short datarefnum, short resrefnum) -{ - WStatusH st = WinGetStatus (w); - Handle text; - Size textsize; - OSErr err; - - Assert (st != NULL); - Assert ((*st)->we != NULL); - err = SetEOF (datarefnum, 0L); - if (err != noErr) goto failed; - text = WEGetText ((*st)->we); - textsize = GetHandleSize (text); - HLock (text); - err = FSWrite (datarefnum, &textsize, *text); - HUnlock (text); - if (err != noErr) goto failed; - (*st)->basemodcount = WEGetModCount ((*st)->we); - - if (resrefnum != -1){ - /* XXX crire la slection et la position des scrollbars - attention: pas de fail. */ - } - return noErr; - - failed: - return err; -} - -/* Ask the user for a new file name, open both forks, and return - the refnums. -*/ -static OSErr PrepSaveAs (WindowPtr w, short *datarefnum, short *resrefnum, - StandardFileReply *reply) -{ - Str255 prompt, title; - OSErr err; - short auxrefnum = -1; - - *datarefnum = *resrefnum = -1; - - GetIndString (prompt, kMiscStrings, kSaveAsPromptIdx); - GetWTitle (w, title); - StandardPutFile (prompt, title, reply); - - if (reply->sfGood){ - if (reply->sfReplacing){ - err = FSpOpenDF (&reply->sfFile, fsRdWrPerm, datarefnum); - if (err != noErr) *datarefnum = -1; - if (err == opWrErr || err == fLckdErr || err == afpObjectLocked - || err == permErr || err == afpAccessDenied || err == wrPermErr){ - ErrorAlert (kCannotWriteIdx, reply->sfFile.name, kCloseQuoteIdx, err); - } - if (err != noErr) goto failed; - - err = FSpOpenRF (&reply->sfFile, fsRdWrPerm, &auxrefnum); - if (err != noErr) auxrefnum = -1; - if (err == opWrErr || err == fLckdErr || err == afpObjectLocked - || err == permErr || err == afpAccessDenied){ - ErrorAlert (kCannotWriteIdx, reply->sfFile.name, kCloseQuoteIdx, err); - } - if (err != noErr) goto failed; - - err = SetEOF (auxrefnum, 0L); - if (err != noErr) goto failed; - FSClose (auxrefnum); auxrefnum = -1; - FSpCreateResFile (&reply->sfFile, kCreatorCaml,kTypeText,reply->sfScript); - err = ResError (); if (err != noErr) goto failed; - *resrefnum = FSpOpenResFile (&reply->sfFile, fsRdWrPerm); - if (*resrefnum == -1){ err = ResError (); goto failed; } /*XXX ?? */ - - err = SetEOF (*datarefnum, 0L); - if (err != noErr) goto failed; - - }else{ - err = FSpCreate (&reply->sfFile, kCreatorCaml, kTypeText,reply->sfScript); - if (err != noErr) goto failed; - FSpCreateResFile (&reply->sfFile, kCreatorCaml,kTypeText,reply->sfScript); - err = ResError (); if (err != noErr) goto failed; - err = FSpOpenDF (&reply->sfFile, fsRdWrPerm, datarefnum); - if (err != noErr){ *datarefnum = -1; goto failed; } - *resrefnum = FSpOpenResFile (&reply->sfFile, fsRdWrPerm); - if (*resrefnum == -1){ err = ResError (); goto failed; } /*XXX ?? */ - } - }else{ - err = userCanceledErr; - goto failed; - } - return noErr; - - failed: - if (*datarefnum != -1) FSClose (*datarefnum); - if (*resrefnum != -1) CloseResFile (*resrefnum); - if (auxrefnum != -1) FSClose (auxrefnum); - return err; -} - -/* If saveasflag is true or there is no associated file, - then ask for a new file name with the standard dialog - and associate it with w. - - Save the contents of w to its associated file. -*/ -static OSErr SaveDocument (WindowPtr w, int saveasflag) -{ - WStatusH st = WinGetStatus (w); - OSErr err; - int changetitle = 0; - short datarefnum = -1, resrefnum = -1; - - Assert (st != NULL); - if (saveasflag || (*st)->datarefnum == -1){ - StandardFileReply reply; - - err = PrepSaveAs (w, &datarefnum, &resrefnum, &reply); - if (err != noErr) goto failed; - - if ((*st)->datarefnum == -1){ - Assert ((*st)->resrefnum == -1); - FreeUntitledTitle (); - }else{ - FSClose ((*st)->datarefnum); - if ((*st)->resrefnum != -1) CloseResFile ((*st)->resrefnum); - (*st)->datarefnum = (*st)->resrefnum = -1; - } - (*st)->datarefnum = datarefnum; - (*st)->resrefnum = resrefnum; - SetWTitle (w, reply.sfFile.name); - datarefnum = resrefnum = -1; - } - err = SaveText (w, (*st)->datarefnum, (*st)->resrefnum); - if (err != noErr) goto failed; - return noErr; - - failed: - if (datarefnum != -1) FSClose (datarefnum); - if (resrefnum != -1) CloseResFile (resrefnum); - return err; -} - -/* Save the toplevel window to a new file. Do not save the window - position or the current selection. -*/ -static OSErr SaveToplevel (void) -{ - WStatusH st; - StandardFileReply reply; - short datarefnum = -1, resrefnum = -1; - OSErr err; - - Assert (winToplevel != NULL); - st = WinGetStatus (winToplevel); - Assert (st != NULL); - - err = PrepSaveAs (winToplevel, &datarefnum, &resrefnum, &reply); - if (err != noErr) goto failed; - err = SaveText (winToplevel, datarefnum, -1); - if (err != noErr) goto failed; - FSClose (datarefnum); - if (resrefnum != -1) CloseResFile (resrefnum); - return noErr; - - failed: - if (datarefnum != -1) FSClose (datarefnum); - if (resrefnum != -1) CloseResFile (resrefnum); - return err; -} - -static OSErr SaveGraphics (void) -{ - XXX (); - return noErr; -} - -OSErr FileDoSave (WindowPtr w, int saveasflag) -{ - if (w == winToplevel) return SaveToplevel (); - else if (w == winGraphics) return SaveGraphics (); - else return SaveDocument (w, saveasflag); -} diff --git a/maccaml/glue.c b/maccaml/glue.c deleted file mode 100644 index ea9b5f97f..000000000 --- a/maccaml/glue.c +++ /dev/null @@ -1,557 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include <CursorCtl.h> -#include <fcntl.h> -#include <signal.h> -#include <stdlib.h> - -#include "alloc.h" -#include "mlvalues.h" -#include "rotatecursor.h" -#include "signals.h" -#include "ui.h" - -#include "main.h" - -/* These are defined by the ocamlrun library. */ -void caml_main(char **argv); -Handle macos_getfullpathname (short vrefnum, long dirid); - -/* This pointer contains the environment variables. */ -char *envPtr = NULL; - -/* True if the Caml program is reading from the console. */ -static int caml_reading_console = 0; - -/* [Caml_working] is used to manage the processor idle state on - PowerBooks. [Caml_working (1)] disables the idle state, and - [Caml_working (0)] enables it. -*/ -static int caml_at_work = 0; -static void Caml_working (int newstate) -{ - if (gHasPowerManager){ - if (caml_at_work && !newstate) EnableIdle (); - if (!caml_at_work && newstate) DisableIdle (); - } - caml_at_work = newstate; -} - -/* - Animated cursor (only when toplevel window is frontmost). -*/ -typedef struct { - short nframes; - short current; - union { - CursHandle h; - struct { short id; short fill; } i; - } frames [1]; -} **AnimCursHandle; - -static AnimCursHandle acurh = NULL; - -pascal void InitCursorCtl (acurHandle newCursors) -{ -#pragma unused (newCursors) - long i; - - if (acurh != NULL) return; - acurh = (AnimCursHandle) GetResource ('acur', 0); - for (i = 0; i < (*acurh)->nframes; i++){ - (*acurh)->frames[i].h = GetCursor ((*acurh)->frames[i].i.id); - if ((*acurh)->frames[i].h == NULL){ - (*acurh)->frames[i].h = GetCursor (watchCursor); - Assert ((*acurh)->frames[i].h != NULL); - } - } - (*acurh)->current = 0; -} - -pascal void RotateCursor (long counter) -{ -#pragma unused (counter) - if (acurh == NULL) InitCursorCtl (NULL); - /* (*acurh)->current += (*acurh)->nframes + (counter >= 0 ? 1 : -1); */ - (*acurh)->current += (*acurh)->nframes + (caml_at_work ? 1 : -1); - (*acurh)->current %= (*acurh)->nframes; -} - -int AdjustRotatingCursor (void) -{ - static Point oldmouse = {-1, -1}; - Point mouse; - int res = 0; - - if (acurh == NULL) InitCursorCtl (NULL); - - GetMouse (&mouse); - if (mouse.h != oldmouse.h || mouse.v != oldmouse.v){ - last_event_date = TickCount (); - } - if (caml_reading_console == 0 && TickCount () > last_event_date + 60){ - SetCursor (*((*acurh)->frames[(*acurh)->current].h)); - ShowCursor (); - res = 1; - } - oldmouse = mouse; - return res; -} - -static pascal void interp_yield (long counter) -{ - RotateCursor (counter); - GetAndProcessEvents (noWait, 0, 0); - if (intr_requested){ - intr_requested = 0; - raise (SIGINT); - } -} - -/* Expand the percent escapes in the string specified by s. - The escapes are: - %a application file name - %d full pathname of the current working directory (ends in ':') - %t full pathname of the temporary directory (ends in ':') - %% a percent sign "%" -*/ -static OSErr expand_escapes (Handle s) -{ - Size i, j, l; - OSErr err; - Handle curdir = NULL, tmpdir = NULL; - char *ptr2; - long len2; - - l = GetHandleSize (s) - 1; - i = j = 0; - while (i < l){ - if ((*s)[j] == '%'){ - switch ((*s)[j+1]){ - case 'a': - ptr2 = (char *) LMGetCurApName () + 1; - len2 = * (LMGetCurApName ()); - break; - case 'd': - if (curdir == NULL) curdir = macos_getfullpathname (0, 0); - if (curdir == NULL){ err = fnfErr; goto failed; } - HLock (curdir); - ptr2 = *curdir; - len2 = GetHandleSize (curdir); - break; - case 't': - if (tmpdir == NULL){ - short vrefnum; - long dirid; - err = FindFolder (kOnSystemDisk, kTemporaryFolderType, true, - &vrefnum, &dirid); - tmpdir = macos_getfullpathname (vrefnum, dirid); - if (tmpdir == NULL){ err = fnfErr; goto failed; } - } - HLock (tmpdir); - ptr2 = *tmpdir; - len2 = GetHandleSize (tmpdir); - break; - case '%': - ptr2 = "%"; - len2 = 1; - break; - default: - ptr2 = ""; - len2 = 0; - break; - } - Munger (s, j, NULL, 2, ptr2, len2); - j += len2 - 2; - i += 1; - } - ++ i; - ++ j; - } - if (curdir != NULL) DisposeHandle (curdir); - if (tmpdir != NULL) DisposeHandle (tmpdir); - return noErr; - - failed: - if (curdir != NULL) DisposeHandle (curdir); - if (tmpdir != NULL) DisposeHandle (tmpdir); - return err; -} - -/* [build_command_line] creates the array of strings that represents - the command line according to the template found in - the 'Line'(kCommandLineTemplate) resource and the environment - variables according to the 'Line'(kEnvironmentTemplate). - - Each of these resources is a sequence of strings terminated by null - bytes. In each string, percent escapes are expanded (see above for - a description of percent escapes). - - Each resource ends with a null byte. -*/ -static OSErr build_command_line (char ***p_argv) -{ - Handle template = NULL; - Size len, i, j; - char *args = NULL; - int argc; - char **argv = NULL; - OSErr err; - - template = GetResource ('Line', kCommandLineTemplate); - if (template == NULL){ err = ResError (); goto failed; } - err = expand_escapes (template); if (err != noErr) goto failed; - len = GetHandleSize (template); - - args = malloc (len); - if (args == NULL){ err = memFullErr; goto failed; } - memmove (args, *template, len); - - argc = 0; - for (i = 0; i < len; i++){ - if (args[i] == '\000') ++ argc; - } - argv = malloc ((argc+1) * sizeof (char *)); - if (argv == NULL){ err = memFullErr; goto failed; } - - i = j = 0; - do{ - argv[j++] = args + i; - while (args [i] != '\000') ++ i; - ++ i; - }while (i < len); - argv [argc] = NULL; - - ReleaseResource (template); - - template = GetResource ('Line', kEnvironmentTemplate); - if (template == NULL){ err = ResError (); goto failed; } - err = expand_escapes (template); if (err != noErr) goto failed; - len = GetHandleSize (template); - envPtr = NewPtr (len); - if (envPtr == NULL){ err = MemError (); goto failed; } - memmove (envPtr, *template, len); - - *p_argv = argv; - return noErr; - - failed: - if (template != NULL) ReleaseResource (template); - if (args != NULL) free (args); - if (argv != NULL) free (argv); - return err; -} - -/* [launch_caml_main] is called by [main]. - - After building the command line, [launch_caml_main] launches [caml_main] - in a thread, then executes the GUI event loop in the main thread. -*/ - -OSErr launch_caml_main (void) -{ - char **argv; - OSErr err; - - rotatecursor_options (&something_to_do, 0, &interp_yield); - err = WinOpenToplevel (); - if (err != noErr) goto failed; - - err = build_command_line (&argv); - if (err) goto failed; - - Caml_working (1); - caml_main (argv); - ui_exit (0); - - failed: - return err; -} - -/* console I/O functions */ - -/* Management of error highlighting. */ -static int erroring = 0; -static long error_curpos; -static long error_anchor = -1; - -void FlushUnreadInput (void) -{ - WEReference we; - int active; - - we = WinGetWE (winToplevel); - Assert (we != NULL); - - WEFeatureFlag (weFReadOnly, weBitClear, we); - WESetSelection (wintopfrontier, wintopfrontier, we); - WEFeatureFlag (weFOutlineHilite, weBitClear, we); - active = WEIsActive (we); - if (active) WEDeactivate (we); - WESetSelection (wintopfrontier, WEGetTextLength (we), we); - WEDelete (we); - if (active) WEActivate (we); - WEFeatureFlag (weFOutlineHilite, weBitSet, we); -} - -int ui_read (int fd, char *buffer, unsigned int nCharsDesired) -{ - long len, i; - char **htext; - WEReference we; - long selstart, selend; - Boolean active; - short readonly, autoscroll; - int atend; - - if (fd != 0) return read (fd, buffer, nCharsDesired); - - we = WinGetWE (winToplevel); - Assert (we != NULL); - htext = (char **) WEGetText (we); - - ++ caml_reading_console; - - while (1){ - char *p; - - len = WEGetTextLength (we); - p = *htext; - for (i = wintopfrontier; i < len; i++){ - if (p[i] == '\n') goto gotit; - } - GetAndProcessEvents (waitEvent, 0, 0); - } - - gotit: - - len = i+1 - wintopfrontier; - if (len > nCharsDesired) len = nCharsDesired; - memmove (buffer, (*htext)+wintopfrontier, len); - - atend = ScrollAtEnd (winToplevel); - autoscroll = WEFeatureFlag (weFAutoScroll, weBitTest, we); - WEFeatureFlag (weFAutoScroll, weBitClear, we); - WEGetSelection (&selstart, &selend, we); - readonly = WEFeatureFlag (weFReadOnly, weBitTest, we); - WEFeatureFlag (weFReadOnly, weBitClear, we); - /* Always set an empty selection before changing OutlineHilite or - the active status. */ - WESetSelection (wintopfrontier, wintopfrontier, we); - WEFeatureFlag (weFOutlineHilite, weBitClear, we); - active = WEIsActive (we); - if (active) WEDeactivate (we); - WESetSelection (wintopfrontier, wintopfrontier+len, we); - WESetStyle (weDoFont + weDoFace + weDoSize + weDoColor + weDoReplaceFace, - &prefs.input, we); - WESetSelection (wintopfrontier, wintopfrontier, we); - if (active) WEActivate (we); - WEFeatureFlag (weFOutlineHilite, weBitSet, we); - WESetSelection (selstart, selend, we); - if (readonly) WEFeatureFlag (weFReadOnly, weBitSet, we); - if (autoscroll) WEFeatureFlag (weFAutoScroll, weBitSet, we); - AdjustScrollBars (winToplevel); - if (atend) ScrollToEnd (winToplevel); - - WinAdvanceTopFrontier (len); - - -- caml_reading_console; - return len; -} - -int ui_write (int fd, char *buffer, unsigned int nChars) -{ - long selstart, selend; - WEReference we; - OSErr err; - short readonly, autoscroll; - int atend; - - if (fd != 1 && fd != 2) return write (fd, buffer, nChars); - - Assert (nChars >= 0); - we = WinGetWE (winToplevel); - Assert (we != NULL); - - if (erroring){ /* overwrite mode to display errors; see terminfo_* */ - error_curpos += nChars; - if (error_curpos > wintopfrontier) error_curpos = wintopfrontier; - return nChars; - } - - atend = ScrollAtEnd (winToplevel); - autoscroll = WEFeatureFlag (weFAutoScroll, weBitTest, we); - WEFeatureFlag (weFAutoScroll, weBitClear, we); - WEGetSelection (&selstart, &selend, we); - readonly = WEFeatureFlag (weFReadOnly, weBitTest, we); - WEFeatureFlag (weFReadOnly, weBitClear, we); - WESetSelection (wintopfrontier, wintopfrontier, we); - WESetStyle (weDoFont + weDoFace + weDoSize + weDoColor + weDoReplaceFace, - &prefs.output, we); - err = WEInsert (buffer, nChars, NULL, NULL, we); - if (err != noErr){ - WESetSelection (selstart, selend, we); - return nChars; - } - if (selstart >= wintopfrontier){ - selstart += nChars; - selend += nChars; - }else if (selend > wintopfrontier){ - selend += nChars; - } - WESetSelection (selstart, selend, we); - if (autoscroll) WEFeatureFlag (weFAutoScroll, weBitSet, we); - AdjustScrollBars (winToplevel); - if (atend) ScrollToEnd (winToplevel); - - WinAdvanceTopFrontier (nChars); - - return nChars; -} - -void ui_print_stderr (char *msg, void *arg) -{ - char buf [1000]; - - sprintf (buf, msg, arg); - ui_write (2, buf, strlen (buf)); -} - -void ui_exit (int return_code) -{ -#pragma unused (return_code) - Str255 buf0; - Str255 buf1; - - caml_reading_console = 1; /* hack: don't display rotating cursor */ - - if (return_code != 0){ - GetIndString (buf0, kMiscStrings, kWithErrorCodeIdx); - NumToString ((long) return_code, buf1); - }else{ - buf0[0] = 0; - buf1[0] = 0; - } - ParamText (buf0, buf1, NULL, NULL); - InitCursor (); - modalkeys = kKeysOK; - NoteAlert (kAlertExit, myModalFilterUPP); - - while (1) GetAndProcessEvents (waitEvent, 0, 0); - - if (winGraphics != NULL) WinCloseGraphics (); - WinCloseToplevel (); - rotatecursor_final (); - FinaliseAndQuit (); -} - - -/* - [getenv] in the standalone application - envPtr is set up by launch_caml_main -*/ -char *getenv (const char *name) -{ - Size envlen, i, namelen; - - Assert (envPtr != NULL); - envlen = GetPtrSize (envPtr); - namelen = strlen (name); - i = 0; - do{ - if (!strncmp (envPtr + i, name, namelen) && envPtr [i+namelen] == '='){ - return envPtr + i + namelen + 1; - } - while (envPtr [i] != '\000') ++ i; - ++ i; - }while (i < envlen); - return NULL; -} - - -/* - [terminfo] stuff: change the style of displayed text to show the - error locations. See also ui_write. -*/ - -value terminfo_setup (value vchan); -value terminfo_backup (value lines); -value terminfo_standout (value start); -value terminfo_resume (value lines); - -#define Good_term_tag 0 - -value terminfo_setup (value vchan) -{ -#pragma unused (vchan) - value result = alloc (1, Good_term_tag); - Field (result, 0) = Val_int (1000000000); - return result; -} - -value terminfo_backup (value lines) -{ - long i, j; - Handle txt; - char *p; - WEReference we = WinGetWE (winToplevel); - - Assert (we != NULL); - txt = WEGetText (we); - p = (char *) *txt; - j = wintopfrontier - 1; - - while (j >= 0 && p[j] != '\n') --j; - for (i = 0; i < Long_val (lines); i++){ - Assert (p[j] == '\n' || j == -1); - do{ --j; }while (j >= 0 && p[j] != '\n'); - } - Assert (p[j] == '\n' || j == -1); - error_curpos = j + 1; - erroring = 1; - error_anchor = -1; - return Val_unit; -} - -value terminfo_standout (value start) -{ - if (Bool_val (start) && error_anchor == -1){ - error_anchor = error_curpos; - }else if (!Bool_val (start) && error_anchor != -1){ - long selstart, selend; - WEReference we = WinGetWE (winToplevel); - short readonly; - - Assert (we != NULL); - WEGetSelection (&selstart, &selend, we); - readonly = WEFeatureFlag (weFReadOnly, weBitTest, we); - if (readonly) WEFeatureFlag (weFReadOnly, weBitClear, we); - WESetSelection (error_anchor, error_curpos, we); - WESetStyle (weDoFont + weDoFace + weDoSize + weDoColor + weDoReplaceFace, - &prefs.errors, we); - if (readonly) WEFeatureFlag (weFReadOnly, weBitSet, we); - WESetSelection (selstart, selend, we); - error_anchor = -1; - } - return Val_unit; -} - -value terminfo_resume (value lines) -{ -#pragma unused (lines) - erroring = 0; - return Val_unit; -} diff --git a/maccaml/graph.c b/maccaml/graph.c deleted file mode 100644 index 1bf03d9a3..000000000 --- a/maccaml/graph.c +++ /dev/null @@ -1,1179 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "alloc.h" -#include "callback.h" -#include "fail.h" -#include "memory.h" -#include "mlvalues.h" -#include "signals.h" - -#include "main.h" /* Include main.h last or Assert will not work. */ - - -/* The off-screen buffer that holds the contents of the graphics arena. */ -static GWorldPtr gworld = NULL; - -/* An arbitrarily large rectangle (for clipping). */ -static Rect maxrect = { -SHRT_MAX, -SHRT_MAX, SHRT_MAX, SHRT_MAX }; - -/* Coordinates (relative to the window) of the top-left corner - of the graphics arena. */ -long x0, y0; - -/* Width and height of the graphics arena. */ -long w0, h0; - -RGBColor fgcolor; - -/* Convert from Caml coordinates to QD coordinates in the off-screen buffer. */ -/* Note: these conversions are self-inverse (see gr_current_point). */ -#define Bx(x) (x) -#define By(y) (h0-1 - (y)) - -/* Convert from Caml coordinates to QD coordinates in the window. */ -#define Wx(x) (Bx(x) + x0) -#define Wy(y) (By(y) + y0) - -/* Convert from QD window coordinates to Caml coordinates. */ -#define Cx(x) ((x) - x0) -#define Cy(y) (h0-1 - ((y) - y0)) - - -/***********************************************************************/ -/* User interface functions */ -/***********************************************************************/ - -static void GraphUpdateGW (void) -{ - Rect r; - WStatusH st = WinGetStatus (winGraphics); - - Assert (st != NULL); - Assert (gworld != NULL); - WELongRectToRect (&(*st)->destrect, &r); - OffsetRect (&r, winGraphics->portRect.left, winGraphics->portRect.top); - UpdateGWorld (&gworld, 0, &r, NULL, NULL, clipPix); -} - -void GraphNewSizePos (void) -{ - GraphUpdateGW (); -} - -/* The current port must be winGraphics when this function is called. */ -void GraphUpdate (void) -{ - Rect r, src, dst; - Boolean good; - WStatusH st = WinGetStatus (winGraphics); - RGBColor forecolor, backcolor; - - Assert (st != NULL); - GraphUpdateGW (); - good = LockPixels (GetGWorldPixMap (gworld)); Assert (good); - WELongRectToRect (&(*st)->destrect, &r); - WELongRectToRect (&(*st)->viewrect, &dst); - src = dst; - OffsetRect (&src, -r.left, -r.top); - GetBackColor (&backcolor); - GetForeColor (&forecolor); - BackColor (whiteColor); - ForeColor (blackColor); - CopyBits (&((GrafPtr) gworld)->portBits, &((GrafPtr) winGraphics)->portBits, - &src, &dst, srcCopy, NULL); - RGBBackColor (&backcolor); - RGBForeColor (&forecolor); - UnlockPixels (GetGWorldPixMap (gworld)); -} - -/* All scrolling of the graphics window must go through this function - so it can update the coordinates x0 and y0, and the pen location. */ -void GraphScroll (long dx, long dy) -{ - Rect r; - RgnHandle update = NewRgn (); - WStatusH st = WinGetStatus (winGraphics); - Point p; - GrafPtr port; - - Assert (st != NULL); - GetPort (&port); - SetPort (winGraphics); - WELongRectToRect (&(*st)->viewrect, &r); - ScrollRect (&r, dx, dy, update); - WEOffsetLongRect (&(*st)->destrect, dx, dy); - SetClip (update); - GraphUpdate (); - ClipRect (&maxrect); - DisposeRgn (update); - - x0 += dx; - y0 += dy; - GetPen (&p); - MoveTo (p.h + dx, p.v + dy); - SetPort (port); -} - -/* Graphics event queue */ -#define GraphQsize 15 -static EventRecord graphQ[GraphQsize]; -static int graphQlen = 0; - -#define Succ(x) ((x) >= GraphQsize ? 0 : (x)+1) - -void GraphGotEvent (EventRecord *evt) -{ - GrafPort *saveport; - - if (graphQlen < GraphQsize) ++ graphQlen; - memmove (&(graphQ[1]), &(graphQ[0]), (graphQlen - 1) * sizeof (graphQ[0])); - - graphQ[0] = *evt; - - PushWindowPort (winGraphics); - GlobalToLocal (&(graphQ[0].where)); - PopPort; -} -static void DequeueEvent (int i) -{ - -- graphQlen; - memmove (&(graphQ[i]), &(graphQ[i+1]), (graphQlen - i) * sizeof (graphQ[0])); -} - -/***********************************************************************/ -/* Primitives for the graphics library */ -/***********************************************************************/ - -value gr_open_graph (value vgeometry); -value gr_close_graph (value unit); -value gr_sigio_signal (value unit); -value gr_sigio_handler (value unit); -value gr_display_mode (value flag); -value gr_remember_mode (value flag); -value gr_synchronize (value unit); -value gr_clear_graph (value unit); -value gr_size_x (value unit); -value gr_size_y (value unit); -value gr_set_color (value vrgb); -value gr_plot (value vx, value vy); -value gr_point_color (value vx, value vy); -value gr_moveto (value vx, value vy); -value gr_current_x (value unit); -value gr_current_y (value unit); -value gr_lineto (value vx, value vy); -value gr_draw_rect (value vx, value vy, value vw, value vh); -value gr_draw_arc (value *argv, int argc); -value gr_draw_arc_nat (value, value, value, value, value, value); -value gr_set_line_width (value vwidth); -value gr_fill_rect (value vx, value vy, value vw, value vh); -value gr_fill_poly (value vpoints); -value gr_fill_arc (value *argv, int argc); -value gr_fill_arc_nat (value, value, value, value, value, value); -value gr_draw_char (value vchr); -value gr_draw_string (value vstr); -value gr_set_font (value vfontname); -value gr_set_text_size (value vsz); -value gr_text_size (value vstr); -value gr_make_image (value varray); -value gr_dump_image (value vimage); -value gr_draw_image (value vimage, value vx, value vy); -value gr_create_image (value vw, value vh); -value gr_blit_image (value vimage, value vx, value vy); -value gr_wait_event (value veventlist); -value gr_sound (value vfreq, value vdur); -value gr_set_window_title (value title); - -#define UNIMPLEMENTED(f, args) \ -value f args; \ -value f args \ -{ \ - failwith ("not implemented: " #f); \ - return Val_unit; /* not reached */ \ -} - -UNIMPLEMENTED (gr_window_id, (value unit)) -UNIMPLEMENTED (gr_open_subwindow, (value x, value y, value w, value h)) -UNIMPLEMENTED (gr_close_subwindow, (value id)) - - -/**** Ancillary macros and function */ - -/* double-buffer or write-through */ -static int grdisplay_mode; -static int grremember_mode; - -/* Current state */ -static long cur_x, cur_y; -static short cur_width, cur_font, cur_size; -/* see also fgcolor */ - - -/* Drawing off-screen and on-screen simultaneously. The following three - macros must always be used together and in this order. -*/ -/* 1. Begin drawing in the off-screen buffer. */ -#define BeginOff { \ - CGrafPtr _saveport_; \ - GDHandle _savegdev_; \ - Rect _cliprect_; \ - if (grremember_mode) { \ - GetGWorld (&_saveport_, &_savegdev_); \ - LockPixels (GetGWorldPixMap (gworld)); \ - SetGWorld ((CGrafPtr) gworld, NULL); - -/* 2. Continue with on-screen drawing. */ -#define On \ - SetGWorld (_saveport_, _savegdev_); \ - UnlockPixels (GetGWorldPixMap (gworld)); \ - } \ - if (grdisplay_mode) { \ - SetPort (winGraphics); \ - ScrollCalcGraph (winGraphics, &_cliprect_); \ - ClipRect (&_cliprect_); - -/* 3. Clean up after drawing. */ -#define EndOffOn \ - ClipRect (&maxrect); \ - SetPort ((GrafPtr) _saveport_); \ - } \ -} - -/* Set up the current port unconditionally. This is for functions that - don't draw (measurements and setting the graphport state). - Usage: BeginOffAlways / EndOffAlways - or BeginOffAlways / OnAlways / EndOffOnAlways - */ -#define BeginOffAlways { \ - CGrafPtr _saveport_; \ - GDHandle _savegdev_; \ - GetGWorld (&_saveport_, &_savegdev_); \ - LockPixels (GetGWorldPixMap (gworld)); \ - SetGWorld ((CGrafPtr) gworld, NULL); - -#define EndOffAlways \ - SetGWorld (_saveport_, _savegdev_); \ - UnlockPixels (GetGWorldPixMap (gworld)); \ -} - -#define OnAlways \ - SetGWorld (_saveport_, _savegdev_); \ - UnlockPixels (GetGWorldPixMap (gworld)); \ - SetPort (winGraphics); \ - -#define EndOffOnAlways \ - SetPort ((GrafPtr) _saveport_); \ -} - -/* Convert a red, green, or blue value from 8 bits to 16 bits. */ -#define RGB8to16(x) ((x) | ((x) << 8)) - -/* Declare and convert x and y from vx and vy. */ -#define XY long x = Long_val (vx), y = Long_val (vy) - - -static value * graphic_failure_exn = NULL; - -static void gr_fail(char *fmt, void *arg) -{ - char buffer[1024]; - - if (graphic_failure_exn == NULL) { - graphic_failure_exn = caml_named_value("Graphics.Graphic_failure"); - if (graphic_failure_exn == NULL){ - invalid_argument("Exception Graphics.Graphic_failure not initialized," - " you must load graphics.cma"); - } - } - sprintf(buffer, fmt, arg); - raise_with_string(*graphic_failure_exn, buffer); -} - -static void gr_check_open (void) -{ - if (winGraphics == NULL) gr_fail("graphic screen not opened", NULL); -} - -/* Max_image_mem is the number of image pixels that can be allocated - in one major GC cycle. The GC will speed up to match this allocation - speed. -*/ -#define Max_image_mem 1000000 /*FIXME Should use user pref. */ - -#define Transparent (-1) - -struct grimage { - final_fun f; /* Finalization function */ - long width, height; /* Dimensions of the image */ - GWorldPtr data; /* Pixels */ - GWorldPtr mask; /* Mask for transparent points, or NULL */ -}; - -#define Grimage_wosize \ - ((sizeof (struct grimage) + sizeof (value) - 1) / sizeof (value)) - -static void free_image (value vimage) -{ - struct grimage *im = (struct grimage *) Bp_val (vimage); - - if (im->data != NULL) DisposeGWorld (im->data); - if (im->mask != NULL) DisposeGWorld (im->mask); -} - -static value alloc_image (long w, long h) -{ - value res = alloc_final (Grimage_wosize, free_image, w*h, Max_image_mem); - struct grimage *im = (struct grimage *) Bp_val (res); - Rect r; - QDErr err; - - im->width = w; - im->height = h; - im->mask = NULL; - SetRect (&r, 0, 0, w, h); - err = NewGWorld (&im->data, 32, &r, NULL, NULL, 0); - if (err != noErr){ - im->data = NULL; - gr_fail ("Cannot allocate image (error code %ld)", (void *) err); - } - return res; -} - -static value gr_alloc_int_vect(mlsize_t size) -{ - value res; - mlsize_t i; - - if (size <= Max_young_wosize) { - res = alloc(size, 0); - } else { - res = alloc_shr(size, 0); - } - for (i = 0; i < size; i++) { - Field(res, i) = Val_long(0); - } - return res; -} - -/***********************************************************************/ - -value gr_open_graph (value vgeometry) -{ - int i; - short err; - Rect r; - WStatusH st; - - if (winGraphics == NULL){ - Assert (gworld == NULL); - - i = sscanf (String_val (vgeometry), "%ldx%ld", &w0, &h0); - if (i < 2){ - w0 = 640; - h0 = 480; - } - if (w0 < kMinWindowWidth - kScrollBarWidth - 1){ - w0 = kMinWindowWidth - kScrollBarWidth - 1; - } - if (h0 < kMinWindowHeight - kScrollBarWidth - 1){ - h0 = kMinWindowHeight - kScrollBarWidth - 1; - } - - err = WinOpenGraphics (w0, h0); - if (err != noErr) goto failed; - - x0 = y0 = 0; - - st = WinGetStatus (winGraphics); Assert (st != NULL); - WELongRectToRect (&(*st)->destrect, &r); - OffsetRect (&r, winGraphics->portRect.left, winGraphics->portRect.top); - err = NewGWorld (&gworld, 0, &r, NULL, NULL, 0); - if (err != noErr) goto failed; - - fgcolor.red = fgcolor.green = fgcolor.blue = 0; - } - /* Synchronise off-screen and on-screen by initialising everything. */ - grremember_mode = 1; - grdisplay_mode = 1; - gr_clear_graph (Val_unit); - gr_moveto (Val_long (0), Val_long (0)); - gr_set_color (Val_long (0)); - gr_set_line_width (Val_long (0)); - gr_set_font ((value) "geneva"); /* XXX hack */ - gr_set_text_size (Val_long (12)); - - return Val_unit; - - failed: - if (gworld != NULL){ - DisposeGWorld (gworld); - gworld = NULL; - } - if (winGraphics != NULL) WinCloseGraphics (); - gr_fail ("open_graph failed (error %d)", (void *) (long) err); - return Val_unit; /* not reached */ -} - -value gr_close_graph (value unit) -{ -#pragma unused (unit) - gr_check_open (); - WinCloseGraphics (); - DisposeGWorld (gworld); - gworld = NULL; - return Val_unit; -} - -value gr_sigio_signal (value unit) /* Not used on MacOS */ -{ -#pragma unused (unit) - return Val_unit; -} - -value gr_sigio_handler (value unit) /* Not used on MacOS */ -{ -#pragma unused (unit) - return Val_unit; -} - -value gr_synchronize (value unit) -{ -#pragma unused (unit) - GrafPtr saveport; - - gr_check_open (); - PushWindowPort (winGraphics); - GraphUpdate (); - PopPort; - return Val_unit; -} - -value gr_display_mode (value flag) -{ - grdisplay_mode = Bool_val (flag); - return Val_unit; -} - -value gr_remember_mode (value flag) -{ - grremember_mode = Bool_val (flag); - return Val_unit; -} - -value gr_clear_graph (value unit) -{ -#pragma unused (unit) - gr_check_open (); - BeginOff - EraseRect (&maxrect); - On - EraseRect (&maxrect); - EndOffOn - return unit; -} - -value gr_size_x (value unit) -{ -#pragma unused (unit) - gr_check_open (); - return Val_long (w0); -} - -value gr_size_y (value unit) -{ -#pragma unused (unit) - gr_check_open (); - return Val_long (h0); -} - -value gr_set_color (value vrgb) -{ - long rgb = Long_val (vrgb); - - gr_check_open (); - fgcolor.red = RGB8to16 ((rgb >> 16) & 0xFF); - fgcolor.green = RGB8to16 ((rgb >> 8) & 0xFF); - fgcolor.blue = RGB8to16 (rgb & 0xFF); - BeginOffAlways - RGBForeColor (&fgcolor); - OnAlways - RGBForeColor (&fgcolor); - EndOffOnAlways - return Val_unit; -} - -value gr_plot (value vx, value vy) -{ - XY; - - gr_check_open (); - BeginOff - SetCPixel (Bx (x), By (y) - 1, &fgcolor); - On - SetCPixel (Wx (x), Wy (y) - 1, &fgcolor); - EndOffOn - return Val_unit; -} - -value gr_point_color (value vx, value vy) -{ - XY; - RGBColor c; - - gr_check_open (); - if (x < 0 || x >= w0 || y < 0 || y >= h0) return Val_long (-1); - BeginOffAlways - GetCPixel (Bx (x), By (y) - 1, &c); - EndOffAlways - return Val_long (((c.red & 0xFF00) << 8) - | (c.green & 0xFF00) - | ((c.blue & 0xFF00) >> 8)); -} - -value gr_moveto (value vx, value vy) -{ - XY; - - gr_check_open (); - cur_x = x; cur_y = y; - return Val_unit; -} - -value gr_current_x (value unit) -{ -#pragma unused (unit) - - gr_check_open (); - return Val_long (cur_x); -} - -value gr_current_y (value unit) -{ -#pragma unused (unit) - - gr_check_open (); - return Val_long (cur_y); -} - -value gr_lineto (value vx, value vy) -{ - XY; - int delta = cur_width / 2; - - gr_check_open (); - BeginOff - MoveTo (Bx (cur_x) - delta, By (cur_y) - delta); - LineTo (Bx (x) - delta, By (y) - delta); - On - MoveTo (Wx (cur_x) - delta, Wy (cur_y) - delta); - LineTo (Wx (x) - delta, Wy (y) - delta); - EndOffOn - cur_x = x; cur_y = y; - return Val_unit; -} - -value gr_draw_rect (value vx, value vy, value vw, value vh) -{ - XY; - long w = Long_val (vw), h = Long_val (vh); - Rect r; - int d1 = cur_width / 2; - int d2 = cur_width - d1; - - gr_check_open (); - BeginOff - SetRect (&r, Bx (x) - d1, By (y+h) - d1, Bx (x+w) + d2, By (y) + d2); - FrameRect (&r); - On - SetRect (&r, Wx (x) - d1, Wy (y+h) - d1, Wx (x+w) + d2, Wy (y) + d2); - FrameRect (&r); - EndOffOn - return Val_unit; -} - -value gr_draw_arc (value *argv, int argc) -{ -#pragma unused (argc) - return gr_draw_arc_nat (argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); -} - -value gr_draw_arc_nat (value vx, value vy, value vrx, value vry, value va1, - value va2) -{ - XY; - long rx = Long_val (vrx), ry = Long_val (vry); - long a1 = Long_val (va1), a2 = Long_val (va2); - Rect r; - long qda1 = 90 - a1, qda2 = 90 - a2; - int d1 = cur_width / 2; - int d2 = cur_width - d1; - - gr_check_open (); - BeginOff - SetRect (&r, Bx(x-rx) - d1, By(y+ry) - d1, Bx(x+rx) + d2, By(y-ry) + d2); - FrameArc (&r, qda1, qda2 - qda1); - On - SetRect (&r, Wx(x-rx) - d1, Wy(y+ry) - d1, Wx(x+rx) + d2, Wy(y-ry) + d2); - FrameArc (&r, qda1, qda2 - qda1); - EndOffOn - return Val_unit; -} - -value gr_set_line_width (value vwidth) -{ - short width = Int_val (vwidth); - - if (width == 0) width = 1; - gr_check_open (); - BeginOffAlways - PenSize (width, width); - OnAlways - PenSize (width, width); - EndOffOnAlways - cur_width = width; - return Val_unit; -} - -value gr_fill_rect (value vx, value vy, value vw, value vh) -{ - XY; - long w = Long_val (vw), h = Long_val (vh); - Rect r; - - gr_check_open (); - BeginOff - SetRect (&r, Bx (x), By (y+h), Bx (x+w), By (y)); - PaintRect (&r); - On - SetRect (&r, Wx (x), Wy (y+h), Wx (x+w), Wy (y)); - PaintRect (&r); - EndOffOn - return Val_unit; -} - -value gr_fill_poly (value vpoints) -{ - long i, n = Wosize_val (vpoints); - PolyHandle p; - - #define Bxx(i) Bx (Int_val (Field (Field (vpoints, (i)), 0))) - #define Byy(i) By (Int_val (Field (Field (vpoints, (i)), 1))) - - gr_check_open (); - if (n < 1) return Val_unit; - - p = OpenPoly (); - MoveTo (Bxx (0), Byy (0)); - for (i = 1; i < n; i++) LineTo (Bxx (i), Byy (i)); - ClosePoly (); - BeginOff - PaintPoly (p); - On - OffsetPoly (p, x0, y0); - PaintPoly (p); - EndOffOn - KillPoly (p); - return Val_unit; -} - -value gr_fill_arc (value *argv, int argc) -{ -#pragma unused (argc) - return gr_fill_arc_nat (argv[0], argv[1], argv[2], argv[3], argv[4], argv[5]); -} - -value gr_fill_arc_nat (value vx, value vy, value vrx, value vry, value va1, - value va2) -{ - XY; - long rx = Long_val (vrx), ry = Long_val (vry); - long a1 = Long_val (va1), a2 = Long_val (va2); - Rect r; - long qda1 = 90 - a1, qda2 = 90 - a2; - - gr_check_open (); - BeginOff - SetRect (&r, Bx (x-rx), By (y+ry), Bx (x+rx), By (y-ry)); - PaintArc (&r, qda1, qda2 - qda1); - On - SetRect (&r, Wx (x-rx), Wy (y+ry), Wx (x+rx), Wy (y-ry)); - PaintArc (&r, qda1, qda2 - qda1); - EndOffOn - return Val_unit; -} - -static void draw_text (char *txt, unsigned long len) -{ - FontInfo info; - unsigned long w; - - if (len > 32767) len = 32767; - - BeginOffAlways - GetFontInfo (&info); - w = TextWidth (txt, 0, len); - EndOffAlways - - gr_check_open (); - BeginOff - MoveTo (Bx (cur_x), By (cur_y) - info.descent); - DrawText (txt, 0, len); - On - MoveTo (Wx (cur_x), Wy (cur_y) - info.descent); - DrawText (txt, 0, len); - EndOffOn - cur_x += w; -} - -value gr_draw_char (value vchr) -{ - char c = Int_val (vchr); - - draw_text (&c, 1); - return Val_unit; -} - -value gr_draw_string (value vstr) -{ - mlsize_t len = string_length (vstr); - char *str = String_val (vstr); - - draw_text (str, len); - return Val_unit; -} - -value gr_set_font (value vfontname) -{ - Str255 pfontname; - short fontnum; - - gr_check_open (); - CopyCStringToPascal (String_val (vfontname), pfontname); - GetFNum (pfontname, &fontnum); - BeginOffAlways - TextFont (fontnum); - OnAlways - TextFont (fontnum); - EndOffOnAlways - cur_font = fontnum; - return Val_unit; -} - -value gr_set_text_size (value vsz) -{ - short sz = Int_val (vsz); - - gr_check_open (); - BeginOffAlways - TextSize (sz); - OnAlways - TextSize (sz); - EndOffOnAlways - cur_size = sz; - return Val_unit; -} - -value gr_text_size (value vstr) -{ - mlsize_t len = string_length (vstr); - char *str = String_val (vstr); - value result = alloc_tuple (2); - FontInfo info; - long w, h; - - BeginOffAlways - GetFontInfo (&info); - w = TextWidth (str, 0, len); - h = info.ascent + info.descent; - EndOffAlways - Field (result, 0) = Val_long (w); - Field (result, 1) = Val_long (h); - return result; -} - -value gr_make_image (value varray) -{ - long height = Wosize_val (varray); - long width; - long x, y; - GWorldPtr w; - value result, line; - long color; - RGBColor qdcolor; - int has_transp = 0; - CGrafPtr saveport; - GDHandle savegdev; - - gr_check_open (); - if (height == 0) return alloc_image (0, 0); - width = Wosize_val (Field (varray, 0)); - for (y = 1; y < height; y++){ - if (Wosize_val (Field (varray, y)) != width){ - gr_fail("make_image: lines of different lengths", NULL); - } - } - - result = alloc_image (width, height); - w = ((struct grimage *) Bp_val (result))->data; - - LockPixels (GetGWorldPixMap (w)); - GetGWorld (&saveport, &savegdev); - SetGWorld ((CGrafPtr) w, NULL); - for (y = 0; y < height; y++){ - line = Field (varray, y); - for (x = 0; x < width; x++){ - color = Long_val (Field (line, x)); - if (color == Transparent) has_transp = 1; - qdcolor.red = ((color >> 16) & 0xFF) | ((color >> 8) & 0xFF00); - qdcolor.green = ((color >> 8) & 0xFF) | (color & 0xFF00); - qdcolor.blue = (color & 0xFF) | ((color << 8) & 0xFF00); - SetCPixel (x, y, &qdcolor); - } - } - UnlockPixels (GetGWorldPixMap (w)); - - if (has_transp){ - Rect r; - QDErr err; - - SetRect (&r, 0, 0, width, height); - err = NewGWorld (&w, 1, &r, NULL, NULL, 0); - if (err != noErr){ - SetGWorld (saveport, savegdev); - gr_fail ("Cannot allocate image (error code %d)", (void *) err); - } - LockPixels (GetGWorldPixMap (w)); - SetGWorld ((CGrafPtr) w, NULL); - EraseRect (&maxrect); - qdcolor.red = qdcolor.green = qdcolor.blue = 0; - for (y = 0; y < height; y++){ - line = Field (varray, y); - for (x = 0; x < width; x++){ - color = Long_val (Field (line, x)); - if (color != Transparent) SetCPixel (x, y, &qdcolor); - } - } - UnlockPixels (GetGWorldPixMap (w)); - ((struct grimage *) Bp_val (result))->mask = w; - } - - SetGWorld (saveport, savegdev); - - return result; -} - -value gr_dump_image (value vimage) -{ - value result = Val_unit; - struct grimage *im = (struct grimage *) Bp_val (vimage); - long width = im->width; - long height = im->height; - long x, y; - GWorldPtr wdata = im->data; - GWorldPtr wmask = im->mask; - CGrafPtr saveport; - GDHandle savegdev; - RGBColor qdcolor; - value line; - - gr_check_open (); - Begin_roots2 (vimage, result); - result = gr_alloc_int_vect (height); - for (y = 0; y < height; y++){ - value v = gr_alloc_int_vect (width); - modify (&Field (result, y), v); - } - End_roots (); - GetGWorld (&saveport, &savegdev); - LockPixels (GetGWorldPixMap (wdata)); - SetGWorld (wdata, NULL); - for (y = 0; y < height; y++){ - line = Field (result, y); - for (x = 0; x < width; x++){ - GetCPixel (x, y, &qdcolor); - Field (line, x) = Val_long (((qdcolor.red & 0xFF00) << 8) - | (qdcolor.green & 0xFF00) - | ((qdcolor.blue & 0xFF00) >> 8)); - } - } - UnlockPixels (GetGWorldPixMap (wdata)); - if (wmask != NULL){ - LockPixels (GetGWorldPixMap (wmask)); - SetGWorld (wmask, NULL); - for (y = 0; y < height; y++){ - line = Field (result, y); - for (x = 0; x < width; x++){ - if (!GetPixel (x, y)) Field (line, x) = Val_long (Transparent); - } - } - UnlockPixels (GetGWorldPixMap (wmask)); - } - SetGWorld (saveport, savegdev); - return result; -} - -value gr_draw_image (value vimage, value vx, value vy) -{ - XY; - struct grimage *im = (struct grimage *) Bp_val (vimage); - RGBColor forecolor, backcolor; - Rect srcrect, dstrect; - - SetRect (&srcrect, 0, 0, im->width, im->height); - if (im->mask != NULL){ - LockPixels (GetGWorldPixMap (im->data)); - LockPixels (GetGWorldPixMap (im->mask)); - BeginOff - SetRect (&dstrect, Bx (x), By (y+im->height), Bx (x+im->width), By (y)); - GetBackColor (&backcolor); - GetForeColor (&forecolor); - BackColor (whiteColor); - ForeColor (blackColor); - CopyMask (&((GrafPtr) im->data)->portBits, - &((GrafPtr) im->mask)->portBits, - &((GrafPtr) gworld)->portBits, - &srcrect, &srcrect, &dstrect); - RGBBackColor (&backcolor); - RGBForeColor (&forecolor); - On - SetRect (&dstrect, Wx (x), Wy (y+im->height), Wx (x+im->width), Wy (y)); - GetBackColor (&backcolor); - GetForeColor (&forecolor); - BackColor (whiteColor); - ForeColor (blackColor); - CopyMask (&((GrafPtr) im->data)->portBits, - &((GrafPtr) im->mask)->portBits, - &((GrafPtr) winGraphics)->portBits, - &srcrect, &srcrect, &dstrect); - RGBBackColor (&backcolor); - RGBForeColor (&forecolor); - EndOffOn - UnlockPixels (GetGWorldPixMap (im->data)); - UnlockPixels (GetGWorldPixMap (im->mask)); - }else{ - LockPixels (GetGWorldPixMap (im->data)); - BeginOff - SetRect (&dstrect, Bx (x), By (y+im->height), Bx (x+im->width), By (y)); - GetBackColor (&backcolor); - GetForeColor (&forecolor); - BackColor (whiteColor); - ForeColor (blackColor); - CopyBits (&((GrafPtr) im->data)->portBits, &((GrafPtr) gworld)->portBits, - &srcrect, &dstrect, srcCopy, NULL); - RGBBackColor (&backcolor); - RGBForeColor (&forecolor); - On - SetRect (&dstrect, Wx (x), Wy (y+im->height), Wx (x+im->width), Wy (y)); - GetBackColor (&backcolor); - GetForeColor (&forecolor); - BackColor (whiteColor); - ForeColor (blackColor); - CopyBits (&((GrafPtr) im->data)->portBits, - &((GrafPtr) winGraphics)->portBits, &srcrect, &dstrect, srcCopy, - NULL); - RGBBackColor (&backcolor); - RGBForeColor (&forecolor); - EndOffOn - UnlockPixels (GetGWorldPixMap (im->data)); - } - return Val_unit; -} - -value gr_create_image (value vw, value vh) -{ - return alloc_image (Long_val (vw), Long_val (vh)); -} - -value gr_blit_image (value vimage, value vx, value vy) -{ - XY; - struct grimage *im = (struct grimage *) Bp_val (vimage); - Rect srcrect, dstrect, worldrect; - CGrafPtr saveport; - GDHandle savegdev; - - SetRect (&worldrect, 0, 0, w0, h0); - SetRect (&srcrect, Bx (x), By (y+im->height), Bx (x+im->width), By (y)); - SectRect (&srcrect, &worldrect, &srcrect); - dstrect = srcrect; - OffsetRect (&dstrect, -Bx (x), -By (y+im->height)); - - LockPixels (GetGWorldPixMap (im->data)); - LockPixels (GetGWorldPixMap (gworld)); - GetGWorld (&saveport, &savegdev); - SetGWorld (im->data, NULL); - BackColor (whiteColor); - ForeColor (blackColor); - CopyBits (&((GrafPtr) gworld)->portBits, &((GrafPtr) im->data)->portBits, - &srcrect, &dstrect, srcCopy, NULL); - SetGWorld (saveport, savegdev); - UnlockPixels (GetGWorldPixMap (im->data)); - UnlockPixels (GetGWorldPixMap (gworld)); - return Val_unit; -} - -int motion_requested = 0; -short motion_oldx, motion_oldy; -/* local coord versions of motion_oldx, motion_oldy */ -static Point lastpt = {SHRT_MAX - 1, SHRT_MAX - 1}; - -#define Button_down_val 0 -#define Button_up_val 1 -#define Key_pressed_val 2 -#define Mouse_motion_val 3 -#define Poll_val 4 - -value gr_wait_event (value veventlist) -{ - int askmousedown = 0, askmouseup = 0, askkey = 0, askmotion = 0, askpoll = 0; - GrafPtr saveport; - value result; - int mouse_x, mouse_y, button, keypressed, key; - Point pt; - int i; - - gr_check_open(); - PushWindowPort (winGraphics); - - while (veventlist != Val_int (0)) { - switch (Int_val(Field (veventlist, 0))) { - case Button_down_val: askmousedown = 1; break; - case Button_up_val: askmouseup = 1; break; - case Key_pressed_val: askkey = 1; break; - case Mouse_motion_val: askmotion = 1; break; - case Poll_val: askpoll = 1; break; - default: Assert (0); - } - veventlist = Field (veventlist, 1); - } - - enter_blocking_section (); - - while (1){ - while (graphQlen > 0 && graphQ[0].when + 300 < TickCount ()){ - DequeueEvent (0); - } - for (i = graphQlen - 1; i >= 0; i--){ - int what = graphQ[i].what; - if (askpoll){ - if (what == keyDown || what == autoKey){ - GetMouse (&pt); - mouse_x = pt.h; - mouse_y = pt.v; - button = Button (); - keypressed = 1; - key = graphQ[i].message & charCodeMask; - goto gotevent; - } - }else if ( askmousedown && what == mouseDown - || askmouseup && what == mouseUp){ - mouse_x = graphQ[i].where.h; - mouse_y = graphQ[i].where.v; - button = graphQ[i].what == mouseDown; - keypressed = 0; - DequeueEvent (i); - goto gotevent; - }else if (askkey && (what == keyDown || what == autoKey)){ - mouse_x = graphQ[i].where.h; - mouse_y = graphQ[i].where.v; - button = Button (); - keypressed = 1; - key = graphQ[i].message & charCodeMask; - DequeueEvent (i); - goto gotevent; - } - } - GetMouse (&pt); - if (askpoll || askmotion && (pt.h != lastpt.h || pt.v != lastpt.v)){ - mouse_x = pt.h; - mouse_y = pt.v; - button = Button (); - keypressed = 0; - goto gotevent; - } - if (askmotion){ - motion_requested = 1; - pt = lastpt; - LocalToGlobal (&pt); - motion_oldx = pt.h; - motion_oldy = pt.v; - } - GetAndProcessEvents (askmotion ? waitMove : waitEvent, - motion_oldx, motion_oldy); - } - - gotevent: - PopPort; - leave_blocking_section (); /* acquire master lock, handle signals */ - lastpt.h = mouse_x; - lastpt.v = mouse_y; - motion_requested = 0; - - result = alloc_tuple (5); - Field (result, 0) = Val_int (Cx (mouse_x)); - Field (result, 1) = Val_int (Cy (mouse_y)); - Field (result, 2) = Val_bool (button); - Field (result, 3) = Val_bool (keypressed); - Field (result, 4) = Val_int (key); - return result; -} - -value gr_sound (value vfreq, value vdur) -{ - long freq = Long_val (vfreq); - long dur = Long_val (vdur); - long scale; - Handle h; - OSErr err; - - if (dur <= 0 || freq <= 0) return Val_unit; - if (dur > 5000) dur = 5000; - if (freq > 20000) gr_fail ("sound: frequency is too high", NULL); - - if (freq > 11025) scale = 2; - else if (freq > 5513) scale = 4; - else if (freq > 1378) scale = 8; - else if (freq > 345) scale = 32; - else if (freq > 86) scale = 128; - else scale = 512; - - h = GetResource ('snd ', 1000 + scale); - if (h == NULL){ - gr_fail ("sound: resource error (code = %ld)", (void *) (long) ResError ()); - } - err = HandToHand (&h); - if (err != noErr) gr_fail ("sound: out of memory", NULL); - *(unsigned short *)((*h)+kDurationOffset) = dur * 2; - Assert (scale * freq < 0x10000); - *(unsigned short *)((*h)+kSampleRateOffset) = scale * freq; - HLock (h); - err = SndPlay (NULL, (SndListHandle) h, false); - HUnlock (h); - if (err != noErr){ - gr_fail ("sound: cannot play sound (error code %ld)", (void *) (long) err); - } - - return Val_unit; -} - -value gr_set_window_title (value title) -{ - Str255 ptitle; - - strcpy ((char *) ptitle, String_val (title)); - c2pstr ((char *) ptitle); - SetWTitle (winGraphics, ptitle); - return Val_unit; -} diff --git a/maccaml/lcontrols.c b/maccaml/lcontrols.c deleted file mode 100644 index 2d0b3c232..000000000 --- a/maccaml/lcontrols.c +++ /dev/null @@ -1,246 +0,0 @@ -/* - WASTE Demo Project: - Macintosh Controls with Long Values - - Copyright 1993-1996 Marco Piovanelli - All Rights Reserved - - C port by John C. Daub -*/ - -/*************************************************************************** - This file is not subject to the O'Caml licence. - It is a slightly modified version of "LongControls.c" from - the WASTE Demo source (version 1.2). - ***************************************************************************/ -/* $Id$ */ - -#ifndef __CONTROLS__ -#include <Controls.h> -#endif - -#ifndef __FIXMATH__ -#include <FixMath.h> -#endif - -#ifndef __TOOLUTILS__ -#include <ToolUtils.h> -#endif - -#include "main.h" /* The change */ -#define BSL(A, B) (((long) (A)) << (B)) /* is here */ - - -// long control auxiliary record used for keeping long settings -// a handle to this record is stored in the reference field of the control record - -struct LCAuxRec -{ - long value; // long value - long min; // long min - long max; // long max -}; -typedef struct LCAuxRec LCAuxRec, *LCAuxPtr, **LCAuxHandle; - - -OSErr LCAttach( ControlRef control ) -{ - Handle aux; - LCAuxPtr pAux; - - /* allocate the auxiliary record that will hold long settings */ - - if ( ( aux = NewHandleClear( sizeof( LCAuxRec ) ) ) == nil ) - { - return MemError( ); - } - - /* store a handle to the auxiliary record in the contrlRfCon field */ - - SetControlReference( control, (long) aux ); - - /* copy current control settings into the auxiliary record */ - - pAux = * (LCAuxHandle) aux; - pAux->value = GetControlValue( control ); - pAux->min = GetControlMinimum( control ); - pAux->max = GetControlMaximum( control ); - - return noErr; -} - -void LCDetach( ControlRef control ) -{ - Handle aux; - - if ( ( aux = (Handle) GetControlReference( control ) ) != nil ) - { - SetControlReference( control, 0L ); - DisposeHandle( aux ); - } -} - -void LCSetValue( ControlRef control, long value ) -{ - LCAuxPtr pAux; - short controlMin, controlMax, newControlValue; - - pAux = * (LCAuxHandle) GetControlReference( control ); - - /* make sure value is in the range min...max */ - - if ( value < pAux->min ) - { - value = pAux->min; - } - if ( value > pAux->max ) - { - value = pAux->max; - } - - /* save value in auxiliary record */ - - pAux->value = value; - - /* calculate new thumb position */ - - controlMin = GetControlMinimum( control ); - controlMax = GetControlMaximum( control ); - newControlValue = controlMin + FixRound( FixMul ( FixDiv( value - pAux->min, - pAux->max - pAux->min), BSL(controlMax - controlMin, 16 ))); - - /* do nothing if the thumb position hasn't changed */ - - if ( newControlValue != GetControlValue(control) ) - { - SetControlValue( control, newControlValue ); - } -} - -void LCSetMin( ControlRef control, long min ) -{ - LCAuxPtr pAux; - - pAux = * (LCAuxHandle) GetControlReference( control ); - - /* make sure min is less than or equal to max */ - - if ( min > pAux->max ) - { - min = pAux->max; - } - - /* save min in auxiliary record */ - - pAux->min = min; - - /* set control minimum to min or SHRT_MIN, whichever is greater */ - - SetControlMinimum( control, ( min >= SHRT_MIN ) ? min : SHRT_MIN ); - - /* reset value */ - - LCSetValue( control, pAux->value ); -} - -void LCSetMax( ControlRef control, long max ) -{ - LCAuxPtr pAux; - - pAux = * (LCAuxHandle) GetControlReference( control ); - - /* make sure max is greater than or equal to min */ - - if ( max < pAux->min ) - { - max = pAux->min; - } - - /* save max in auxiliary record */ - - pAux->max = max; - - /* set control maximum to max or SHRT_MAX, whichever is less */ - - SetControlMaximum( control, ( max <= SHRT_MAX ) ? max : SHRT_MAX ); - - /* reset value */ - - LCSetValue( control, pAux->value ); -} - -/* In each of these LCGetXXX() functions, there are 2 ways listed to do things. They are - both the same thing and perform the same stuff, just one is easier to read than the - other (IMHO). I asked Marco about it and he gave me the shorter code (what's commented - in each function) and gave me this explanation: - - This version [the commented code] yields smaller and faster code - (try disassembling both versions if you wish), but some people may - find it somewhat harder to read. - - I agree with Marco that his code is better overall, but in the interest of readabilty - (since this demo is a learning tool), I left my code in and put Marco's in commented - out. Pick whichever you'd like to use. -*/ - -long LCGetValue( ControlRef control ) -{ - LCAuxPtr pAux; - - pAux = *((LCAuxHandle)GetControlReference( control )); - - return pAux->value; - -// this is Marco's code. Remember, this is a little harder to read, but overall -// yields tighter code. - -// return (* (LCAuxHandle) GetControlReference(control)) -> value; - -} - -long LCGetMin( ControlRef control ) -{ - LCAuxPtr pAux; - - pAux = *((LCAuxHandle)GetControlReference( control )); - - return pAux->min; - -// this is Marco's code. Remember, this is a little harder to read, but overall -// yields tighter code. - -// return (* (LCAuxHandle)GetControlReference(control)) -> min; - -} - -long LCGetMax( ControlRef control ) -{ - LCAuxPtr pAux; - - pAux = *((LCAuxHandle)GetControlReference( control )); - - return pAux->max; - -// this is Marco's code. Remember, this is a little harder to read, but overall -// yields tighter code. - -// return (* (LCAuxHandle)GetControlReference(control)) -> max; - -} - -void LCSynch( ControlRef control ) -{ - LCAuxPtr pAux; - short controlMin, controlMax, controlValue; - - controlMin = GetControlMinimum( control ); - controlMax = GetControlMaximum( control ); - controlValue = GetControlValue( control ); - pAux = * (LCAuxHandle) GetControlReference( control ); - - /* calculate new long value */ - - pAux->value = pAux->min + FixMul( FixRatio ( controlValue - controlMin, - controlMax - controlMin), pAux->max - pAux->min ); -} - diff --git a/maccaml/lib.c b/maccaml/lib.c deleted file mode 100644 index 2c556b498..000000000 --- a/maccaml/lib.c +++ /dev/null @@ -1,35 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -/* These are declared in TextUtils.h but not implemented in Apple's - libraries ?! -*/ - -void CopyPascalStringToC (ConstStr255Param src, char *dst) -{ - strncpy (dst, (char *) src + 1, src[0]); - dst [src[0]] = '\000'; -} - -void CopyCStringToPascal (const char *src, Str255 dst) -{ - int l = strlen (src); - - l = l > 255 ? 255 : l; - dst [0] = l; - strncpy ((char *) dst + 1, src, l); -} diff --git a/maccaml/main.c b/maccaml/main.c deleted file mode 100644 index 6a317e8c6..000000000 --- a/maccaml/main.c +++ /dev/null @@ -1,125 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1997 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -QDGlobals qd; -int gHasDragAndDrop = 0; -int gHasPowerManager = 0; -int launch_toplevel_requested = 0; - -static OSErr Initialise (void) -{ - long gestval; - int i; - OSErr err; - - SetApplLimit (GetApplLimit () - kExtraStackSpace); - MaxApplZone (); - for (i = 0; i < kMoreMasters; i++) MoreMasters (); - InitGraf (&qd.thePort); - InitFonts (); - InitWindows (); - InitMenus (); - TEInit (); - InitDialogs (nil); - InitCursor (); - FlushEvents (everyEvent, 0); - - /* Unload the clipboard to disk if it's too big. */ - if (InfoScrap ()->scrapSize > kScrapThreshold) UnloadScrap (); - - /* Check for system 7. */ - if (Gestalt (gestaltSystemVersion, &gestval) != noErr - || gestval < kMinSystemVersion){ - InitCursor (); - StopAlert (kAlertNeedSys7, NULL); - ExitToShell (); - } - - /* Check for 32-bit color QuickDraw. */ - if (Gestalt (gestaltQuickdrawVersion, &gestval) != noErr - || gestval < gestalt32BitQD){ - InitCursor (); - StopAlert (kAlertNeed32BitQD, NULL); - ExitToShell (); - } - - /* Check for Drag Manager. */ - if (Gestalt (gestaltDragMgrAttr, &gestval) == noErr - && (gestval & (1 << gestaltDragMgrPresent)) - && (&NewDrag != NULL)){ - gHasDragAndDrop = 1; - } - - /* Check for Power Manager. */ - if (Gestalt (gestaltPowerMgrAttr, &gestval) == noErr - && (gestval & (1 << gestaltPMgrExists))){ - gHasPowerManager = 1; - } - - err = InitialiseErrors (); - if (err != noErr) goto problem; - - if (gHasDragAndDrop){ - err = InstallDragHandlers (); - if (err != noErr) goto problem; - } - - err = InitialiseEvents (); - if (err != noErr) goto problem; - - err = InitialiseMenus (); - if (err != noErr) goto problem; - - err = InitialiseScroll (); - if (err != noErr) goto problem; - - err = InitialiseWindows (); - if (err != noErr) goto problem; - - err = InitialiseModalFilter (); - if (err != noErr) goto problem; - - ReadPrefs (); - - return noErr; - - problem: return err; -} - -void FinaliseAndQuit (void) -{ - if (gHasDragAndDrop) RemoveDragHandlers (); - WritePrefs (); - ExitToShell (); -} - -int main (void) -{ - OSErr err; - - err = Initialise (); - if (err != noErr){ - FinaliseAndQuit (); - } - while (!launch_toplevel_requested){ - GetAndProcessEvents (waitEvent, 0, 0); - } - err = launch_caml_main (); /* launch bytecode interp and event loop */ - if (err != noErr) ErrorAlertGeneric (err); - FinaliseAndQuit (); - return 0; /* not reached */ -} diff --git a/maccaml/main.h b/maccaml/main.h deleted file mode 100644 index a380804e2..000000000 --- a/maccaml/main.h +++ /dev/null @@ -1,264 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1997 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include <limits.h> -#include <signal.h> -#include <stdio.h> -#include <stdlib.h> -#include <string.h> - -#include <AERegistry.h> -#include <AppleEvents.h> -#include <ControlDefinitions.h> -#include <Controls.h> -#include <Devices.h> -#include <Dialogs.h> -#include <DiskInit.h> -#include <Drag.h> -#include <Finder.h> -#include <FixMath.h> -#include <Folders.h> -#include <Fonts.h> -#include <Gestalt.h> -#include <LowMem.h> -#include <MacTypes.h> -#include <MacWindows.h> -#include <Menus.h> -#include <Power.h> -#include <Printing.h> -#include <Processes.h> -#include <QDOffscreen.h> -#include <QuickDraw.h> -#include <Resources.h> -#include <Scrap.h> -#include <Script.h> -#include <SegLoad.h> -#include <Sound.h> -#include <StandardFile.h> -#include <Strings.h> -#include <TextUtils.h> -#include <ToolUtils.h> - -#include "WASTE.h" - -#include "::byterun:rotatecursor.h" - -#include "ocamlconstants.h" - -#if DEBUG -#define Assert(cond) if (!(cond)) assert_failure (#cond, __FILE__, __LINE__) -#else -#define Assert(cond) -#endif - -/* Vertical and Horizontal */ -#define V 0 -#define H 1 - -typedef struct WStatus { - int kind; - short datarefnum; /* window's file (data fork) */ - short resrefnum; /* window's file (resource fork) or -1 */ - unsigned long basemodcount; - struct menuflags { - unsigned int save : 1; - unsigned int save_as : 1; - unsigned int revert : 1; - unsigned int page_setup : 1; - unsigned int print : 1; - unsigned int cut : 1; - unsigned int copy : 1; - unsigned int paste : 1; - unsigned int clear : 1; - unsigned int select_all : 1; - unsigned int find : 1; - unsigned int replace : 1; - } menuflags; - long line_height; - ControlHandle scrollbars [2]; - LongRect viewrect, destrect; /* view and dest for the graphics window */ - WEHandle we; -} **WStatusH; - -typedef enum { closingWindow = 0, closingApp } ClosingOption; -typedef enum { noWait = 0, waitMove, waitEvent } WaitEventOption; - -#define PREF_VERSION 2 -/* Increment PREF_VERSION at each change in struct prefs. */ -struct prefs { - long version; - int asksavetop; - Rect toppos; - Rect graphpos; - Rect clippos; - TextStyle text; - TextStyle unread; - TextStyle input; - TextStyle output; - TextStyle errors; -}; - -/* aboutbox.c */ -void OpenAboutBox (void); -void CloseAboutBox (WindowPtr w); -void DrawAboutIcon (void); - -/* appleevents.c */ -OSErr InstallAEHandlers (void); - -/* clipboard.c */ -void ClipShow (void); -void ClipClose (void); -void ClipChanged (void); - -/* drag.c */ -OSErr InstallDragHandlers (void); -OSErr RemoveDragHandlers (void); - -/* errors.c */ -void assert_failure (char *condition, char *file, int line); -void XXX (void); -void ErrorAlert (short msg1, Str255 bufmsg2, short msg3, OSErr err); -void ErrorAlertCantOpen (Str255 filename, OSErr err); -void ErrorAlertGeneric (OSErr err); -OSErr InitialiseErrors (void); - -/* events.c */ -extern int intr_requested; -extern UInt32 last_event_date; -extern UInt32 evtSleep; -void GetAndProcessEvents (WaitEventOption wait, short oldx, short oldy); -OSErr InitialiseEvents (void); -extern AEIdleUPP ProcessEventUPP; - -/* files.c */ -OSErr FileDoClose (WindowPtr w, ClosingOption close); -void FileDoGetOpen (void); -void FileNew (void); -OSErr FileOpen (FSSpec *filespec); -void FileRevert (WindowPtr w); -OSErr FileDoSave (WindowPtr w, int saveasflag); - -/* glue.c */ -OSErr launch_caml_main (void); -int AdjustRotatingCursor (void); -pascal void RotateCursor (long counter); -void FlushUnreadInput (void); - -/* graph.c */ -extern int motion_requested; -extern short motion_oldx, motion_oldy; -void GraphGotEvent (EventRecord *evt); -void GraphNewSizePos (void); -void GraphScroll (long dx, long dy); -void GraphUpdate (void); - -/* gusistuff.cp */ -void InitialiseGUSI (void); - -/* lcontrols.c */ -OSErr LCAttach( ControlRef ); -void LCDetach( ControlRef ); -void LCSetValue( ControlRef, long ); -void LCSetMin( ControlRef, long ); -void LCSetMax( ControlRef, long ); -long LCGetValue( ControlRef ); -long LCGetMin( ControlRef ); -long LCGetMax( ControlRef ); -void LCSynch( ControlRef ); - -/* main.c */ -extern int gHasDragAndDrop; -extern int gHasPowerManager; -extern int launch_toplevel_requested; -void FinaliseAndQuit (void); - -/* memory.c */ -OSErr AllocHandle (Size size, Handle *result); - -/* menus.c */ -void DoMenuChoice (long item, EventModifiers mods); -OSErr DoQuit (void); -OSErr InitialiseMenus (void); -OSErr MenuWinAdd (WindowPtr w); -void MenuWinRemove (WindowPtr w); -void UpdateMenus (void); - -/* misc.c */ -void LocalToGlobalRect (Rect *r); - -/* modalfilter.c */ -extern short modalkeys; -extern ModalFilterUPP myModalFilterUPP; -OSErr InitialiseModalFilter (void); - -/* prefs.c */ -extern struct prefs prefs; -void ReadPrefs (void); -void WritePrefs (void); - -/* print.c */ -void FilePageSetup (void); -void FilePrint (void); - -/* scroll.c */ -extern WEScrollUPP scrollFollowUPP; -void AdjustScrollBars (WindowPtr w); -OSErr InitialiseScroll (void); -int ScrollAtEnd (WindowPtr w); -void ScrollCalcText (WindowPtr w, Rect *r); -void ScrollCalcGraph (WindowPtr w, Rect *r); -void ScrollDoClick (WindowPtr w, Point where, EventModifiers mods); -void ScrollNewSize (WindowPtr w); -void ScrollToEnd (WindowPtr w); - -/* windows.c */ -extern WindowPtr winToplevel; -extern WindowPtr winGraphics; -extern long wintopfrontier; -OSErr InitialiseWindows (void); -void WinActivateDeactivate (int activate, WindowPtr w); -void WinAdvanceTopFrontier (long length); -OSErr WinAllocStatus (WindowPtr w); -void WinCloseGraphics (void); -void WinCloseToplevel (void); -void WinDoContentClick (EventRecord *e, WindowPtr w); -OSErr WinDoClose (ClosingOption closing, WindowPtr w); -void WinDoDrag (Point where, WindowPtr w); -void WinDoGrow (Point where, WindowPtr w); -void WinDoIdle (WindowPtr w); -void WinDoKey (WindowPtr w, short chr, EventRecord *e); -void WinDoZoom (WindowPtr w, short partCode); -WStatusH WinGetStatus (WindowPtr w); -WEHandle WinGetWE (WindowPtr w); -int WinGetKind (WindowPtr w); -WindowPtr WinOpenDocument (StringPtr title); -OSErr WinOpenGraphics (long width, long height); -OSErr WinOpenToplevel (void); -void WinClipboardStdState (Rect *r); -void WinGraphicsStdState (Rect *r); -void WinToplevelStdState (Rect *r); -void WinUpdate (WindowPtr w); -void WinUpdateStatus (WindowPtr w); - -/* useful macros */ - -/* PushPort, PushWindowPort, and PopPort - assume that there is a local variable [saveport] -*/ -#define PushPort(p) do{ GetPort (&saveport); SetPort (p); }while(0) -#define PushWindowPort(w) \ - do{ GetPort (&saveport); SetPortWindowPort (w); }while(0) -#define PopPort do{ SetPort (saveport); }while(0) diff --git a/maccaml/mcmemory.c b/maccaml/mcmemory.c deleted file mode 100644 index 218b99f81..000000000 --- a/maccaml/mcmemory.c +++ /dev/null @@ -1,31 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -/* Allocate from application memory or from Multifinder memory; - always leave at least kMinimumMemory free in application memory. -*/ -OSErr AllocHandle (Size size, Handle *result) -{ - OSErr err; - - if (FreeMem () >= size + kMinimumMemory){ - *result = NewHandle (size); - err = MemError (); - } - if (err != noErr) *result = TempNewHandle (size, &err); - return err; -} diff --git a/maccaml/mcmisc.c b/maccaml/mcmisc.c deleted file mode 100644 index 89adfe684..000000000 --- a/maccaml/mcmisc.c +++ /dev/null @@ -1,24 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -void LocalToGlobalRect (Rect *r) -{ - Point *p = (Point *) r; - - LocalToGlobal (&p[0]); - LocalToGlobal (&p[1]); -} diff --git a/maccaml/menus.c b/maccaml/menus.c deleted file mode 100644 index 81751824a..000000000 --- a/maccaml/menus.c +++ /dev/null @@ -1,339 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -static void DoAppleChoice (short item, EventModifiers mods) -{ -#pragma unused (mods) - if (item == kItemAbout){ - OpenAboutBox (); - }else{ - Str255 deskAccName; - GetMenuItemText (GetMenuHandle (kMenuApple), item, deskAccName); - OpenDeskAcc (deskAccName); - } -} - -OSErr DoQuit () -{ - WindowPtr w; - OSErr err; - - while (1){ - w = FrontWindow (); - while (1){ - if (w == NULL) goto done; - if (GetWindowGoAwayFlag (w) && w != winGraphics) break; - w = GetNextWindow (w); - } - err = WinDoClose (closingApp, w); - if (err != noErr) return err; - } - done: - if (winGraphics != NULL) WinCloseGraphics (); - WinCloseToplevel (); - rotatecursor_final (); - FinaliseAndQuit (); - return noErr; -} - -static void DoFileChoice (short item, EventModifiers mods) -{ -#pragma unused (mods) - WindowPtr w = FrontWindow (); - - switch (item){ - case kItemNew: - FileNew (); - break; - case kItemOpen: - FileDoGetOpen (); - break; - case kItemClose: - WinDoClose (closingWindow, w); - break; - case kItemSave: - FileDoSave (w, 0); - break; - case kItemSaveAs: - FileDoSave (w, 1); - break; - case kItemRevert: - FileRevert (w); - break; - case kItemPageSetup: - FilePageSetup (); - break; - case kItemPrint: - FilePrint (); - break; - case kItemQuit: - DoQuit (); - break; - default: Assert (0); - } -} - -static void DoEditChoice (short item, EventModifiers mods) -{ -#pragma unused (mods) - WindowPtr w = FrontWindow (); - WEReference we = WinGetWE (w); - - switch (item){ - case kItemUndo: - WEUndo (we); - break; - case kItemCut: - WECut (we); - ClipChanged (); - break; - case kItemCopy: - WECopy (we); - ClipChanged (); - break; - case kItemPaste: - if (w == winToplevel){ - long selstart, selend; - WEGetSelection (&selstart, &selend, we); - if (selstart < wintopfrontier){ - selstart = selend = WEGetTextLength (we); - WESetSelection (selstart, selend, we); - WEFeatureFlag (weFReadOnly, weBitClear, we); - } - if (selstart == wintopfrontier && selend == selstart){ - WESetStyle (weDoFont + weDoSize + weDoColor + weDoFace+weDoReplaceFace, - &prefs.unread, we); - } - WEFeatureFlag (weFMonoStyled, weBitSet, we); - WEPaste (we); - WEFeatureFlag (weFMonoStyled, weBitClear, we); - }else{ - WEPaste (we); - } - break; - case kItemClear: - WEDelete (we); - break; - case kItemSelectAll: - WESetSelection (0, LONG_MAX, we); - break; - case kItemShowClipboard: - ClipShow (); - break; - case kItemFind: - XXX (); - break; - case kItemReplace: - XXX (); - break; - case kItemPreferences: - XXX (); - break; - default: Assert (0); - } -} - -static WindowPtr **winTable; /* a handle */ -static long winTableLen = 0; /* number of entries in the table */ - -static void DoWindowsChoice (short item, EventModifiers mods) -{ -#pragma unused (mods) - switch (item){ - case 1: - Assert (winToplevel != NULL); - SelectWindow (winToplevel); - break; - case 2: - Assert (winGraphics != NULL); - ShowWindow (winGraphics); - SelectWindow (winGraphics); - break; - case 3: - Assert (0); - default: - Assert (item - 4 >= 0 && item - 4 < winTableLen); - SelectWindow ((*winTable)[item - 4]); - break; - } -} - -void DoMenuChoice (long choice, EventModifiers mods) -{ - short menu = HiWord (choice); - short item = LoWord (choice); - - switch (menu){ - case 0: break; - case kMenuApple: - DoAppleChoice (item, mods); - HiliteMenu (0); - break; - case kMenuFile: - DoFileChoice (item, mods); - HiliteMenu (0); - break; - case kMenuEdit: - DoEditChoice (item, mods); - HiliteMenu (0); - break; - case kMenuWindows: - DoWindowsChoice (item, mods); - HiliteMenu (0); - break; - default: Assert (0); - } -} - -OSErr InitialiseMenus (void) -{ - OSErr err; - Size s = 10; - - err = AllocHandle (s * sizeof (WindowPtr), (Handle *) &winTable); - if (err != noErr) return err; - - SetMenuBar (GetNewMBar (kMenuBar)); - AppendResMenu (GetMenuHandle (kMenuApple), 'DRVR'); - DrawMenuBar (); - return 0; -} - -static void EnableDisableItem (MenuHandle menu, short item, int enable) -{ - if (enable){ - EnableItem (menu, item); - }else{ - DisableItem (menu, item); - } -} - -/* Add w to the windows menu. */ -OSErr MenuWinAdd (WindowPtr w) -{ - MenuHandle m; - Str255 title; - Size s = GetHandleSize ((Handle) winTable) / sizeof (WindowPtr); - - if (s <= winTableLen){ - OSErr err; - SetHandleSize ((Handle) winTable, (s + 10) * sizeof (WindowPtr)); - err = MemError (); if (err != noErr) return err; - } - (*winTable)[winTableLen] = w; - ++ winTableLen; - - m = GetMenuHandle (kMenuWindows); - AppendMenu (m, "\px"); - GetWTitle (w, title); - SetMenuItemText (m, (winTableLen-1) + 4, title); - - return noErr; -} - -/* Remove w from the windows menu; do nothing if w is not there. */ -void MenuWinRemove (WindowPtr w) -{ - long i; - MenuHandle m; - - i = 0; - while (1){ - if (i >= winTableLen) return; - if ((*winTable)[i] == w) break; - ++ i; - } - Assert (i < winTableLen); - m = GetMenuHandle (kMenuWindows); - DeleteMenuItem (m, kItemDocuments + i); - for (++i; i < winTableLen; i++) (*winTable)[i-1] = (*winTable)[i]; - -- winTableLen; -} - -static void MenuWinUpdate (void) -{ - long i; - MenuHandle m = GetMenuHandle (kMenuWindows); - WindowPtr w = FrontWindow (); - - SetItemMark (m, kItemToplevel, w == winToplevel ? diamondMark : noMark); - SetItemMark (m, kItemGraphics, w == winGraphics ? diamondMark : noMark); - for (i = 0; i < winTableLen; i++){ - SetItemMark (m, kItemDocuments + i, - w == (*winTable)[i] ? diamondMark : noMark); - } -} - -void UpdateMenus (void) -{ - WindowPtr w; - WStatusH st; - WEHandle we; - MenuHandle m; - Str255 text; - struct menuflags flags = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; - - w = FrontWindow (); - st = WinGetStatus (w); - we = WinGetWE (w); - - WinUpdateStatus (w); - - if (st != NULL) flags = (*st)->menuflags; - - m = GetMenuHandle (kMenuFile); - /* New is always enabled. */ - /* Open is always enabled. */ - EnableDisableItem (m, kItemClose, w != NULL && GetWindowGoAwayFlag (w)); - EnableDisableItem (m, kItemSave, flags.save); - EnableDisableItem (m, kItemSaveAs, flags.save_as); - EnableDisableItem (m, kItemRevert, flags.revert); - EnableDisableItem (m, kItemPageSetup, flags.page_setup); - EnableDisableItem (m, kItemPrint, flags.print); - /* Quit is always enabled. */ - - m = GetMenuHandle (kMenuEdit); - DisableItem (m, kItemUndo); - GetIndString (text, kUndoStrings, 1); - SetMenuItemText (m, kItemUndo, text); - if (we != NULL){ - Boolean temp; - WEActionKind ak; - - Assert (st != NULL); - - ak = WEGetUndoInfo (&temp, we); - if (ak != weAKNone){ - GetIndString (text, kUndoStrings, 2*ak + temp); - SetMenuItemText (m, kItemUndo, text); - EnableItem (m, kItemUndo); - } - } - EnableDisableItem (m, kItemCut, flags.cut); - EnableDisableItem (m, kItemCopy, flags.copy); - EnableDisableItem (m, kItemPaste, flags.paste); - EnableDisableItem (m, kItemClear, flags.clear); - EnableDisableItem (m, kItemSelectAll, flags.select_all); - /* Show Clipboard is always enabled. */ - EnableDisableItem (m, kItemFind, flags.find); - EnableDisableItem (m, kItemReplace, flags.replace); - /* Preferences is always enabled. */ - - MenuWinUpdate (); - m = GetMenuHandle (kMenuWindows); - EnableDisableItem (m, kItemGraphics, winGraphics != NULL); -} diff --git a/maccaml/modalfilter.c b/maccaml/modalfilter.c deleted file mode 100644 index 741d12050..000000000 --- a/maccaml/modalfilter.c +++ /dev/null @@ -1,83 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -/* See ocaml.r before modifying this. */ -typedef struct { - char mod; - char chr; - char item; - char filler; -} KeyEquRecord, **KeyEquHandle; - -short modalkeys; -ModalFilterUPP myModalFilterUPP; - -/* Before calling ModalDialog with myModalFilter, set the dialog - window's refcon to the resource number of the key equivalence - list for the dialog. -*/ -static pascal Boolean myModalFilter (DialogPtr d, EventRecord *evt, - DialogItemIndex *item) -{ - Boolean result = false; - char key; - int cmdflag; - KeyEquHandle equivlist; - int equivcount, i; - short itemtype; - Handle itemhandle; - Rect itemrect; - unsigned long ticks; - - switch (evt->what){ - case updateEvt: - if ((WindowPtr) evt->message != d) WinUpdate ((WindowPtr) evt->message); - break; - case activateEvt: - if ((WindowPtr) evt->message != d){ - WinActivateDeactivate (evt->modifiers & activeFlag, - (WindowPtr) evt->message); - } - break; - case keyDown: case autoKey: - key = evt->message & charCodeMask; - cmdflag = !!(evt->modifiers & cmdKey); - equivlist = (KeyEquHandle) GetResource ('Kequ', modalkeys); - if (equivlist != NULL){ - equivcount = GetHandleSize ((Handle) equivlist) / sizeof (KeyEquRecord); - for (i = 0; i < equivcount; i++){ - if ((*equivlist)[i].chr == key && (!(*equivlist)[i].mod || cmdflag)){ - result = true; - *item = (*equivlist)[i].item; - GetDialogItem (d, *item, &itemtype, &itemhandle, &itemrect); - HiliteControl ((ControlHandle) itemhandle, kControlButtonPart); - Delay (kVisualDelay, &ticks); - HiliteControl ((ControlHandle) itemhandle, 0); - } - } - } - break; - default: break; - } - return result; -} - -OSErr InitialiseModalFilter (void) -{ - myModalFilterUPP = NewModalFilterProc (myModalFilter); - return noErr; -} diff --git a/maccaml/ocaml.r b/maccaml/ocaml.r deleted file mode 100644 index ea807fa53..000000000 --- a/maccaml/ocaml.r +++ /dev/null @@ -1,479 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "Types.r" - -#include "ocamlconstants.h" - -resource 'vers' (1) { -#define d development -#define a alpha -#define b beta - MAJORVNUM, MINORVNUM, STAGE, DEVVNUM, - 0, - VERSIONSTR, - "Objective Caml version " VERSIONSTR "\n" - COPYRIGHTSTR -#undef d -#undef a -#undef b -}; - -data 'Line' (1000) { /* kCommandLineTemplate */ - "%a\000" -}; - -data 'Line' (1001) { /* kEnvironmentTemplate */ - "TempFolder=%t\000" - "CAMLLIB=%dstdlib:\000" -}; - -data 'TEXT' (1000, purgeable) { /* kAboutText1 */ - "Objective Caml version " VERSIONSTR "\n" - COPYRIGHTSTR "\n" - "\n" - "Xavier Leroy, Jerme Vouillon, Jacques Garrigue, Damien Doligez, et al.\n" - "\n" - "\n" -}; - - -/***************************************************************** - derez -m 60 caml-icons.rsrc "{rincludes}types.r" - "{rincludes}finder.r" "{rincludes}icons.r" >> ocaml.r -*/ - -resource 'icl4' (1000) { - $"0000 0000 000F FFFF F000 0000 0000 0000 0000 0000 00FF FFFF" - $"FFF0 0000 0000 0000 0000 0000 FFFF FFFF FFFF 0000 0000 0000" - $"FFFF FF0F FFFF BBBB BBBF F000 00FF FFF0 FAAA AAFF FFBB BBBB" - $"BBBB BFFF FFFF FFF0 FAAA AAAF FFFF FFFF FFFF FFFF FFFF FFF0" - $"FAAA AAAA FFFD DDFF FFFF FFFF FFFF FF00 FFAA AAAA AFFF CCFF" - $"FFFF FFFF FFFF FF00 0FFA AAAA AAFF FCFF FFFF FBBF FFFF F000" - $"00FF FAAA AAAF FFFF FFFF BBBB FFFF 0000 0000 FFAA AAAA FFFF" - $"FFFF BBBB BBFF 0000 0000 0FFA AAAA AFFF FFFA ABBB BBBF F000" - $"0000 0FFA AAAA ABBB BBFF AABB BBBB FF00 0000 FFFA AAAA BBBB" - $"BBBF FAAB BBBB BFF0 0000 FFFA AAAB BBBB BBBB FFAA BBBB BBFF" - $"0000 FFFA AAAB BBBB FFBB BFFA ABBB BBFF 0000 FFFA AAAB BBBB" - $"FFBB BBFF AABA BBFF 0000 FFFA AAAB BBBB FFBB BBBF FAAA AAFF" - $"0000 FFFA AAAB BBBB FFBB BBBB FFAA AAFF 0000 FFFA AAAA BBBB" - $"FFBB BBBB BFFA AFFF 0000 FFFF AAAA ABBB FFFB BBBB BBFF AFBF" - $"0000 0FFF AAAA AABB FFFB BBBB BBBF FFBF 0000 00FF AAAA AAA1" - $"81FB BBBB BBBF FBBF 0000 000F AAAA A81A AFFF BBBB BBBF FBBF" - $"0000 000F AAA1 8AAA AFFF FBBB BBBF FBBF 0000 00FF A81A 1AAA" - $"AAAF FFBB BBBF FBBF 0000 00FA 11AA 8AAA AAAA FFFB BBFF FBF0" - $"0000 0FF8 A8AA AAAA AAAA AFFF BFFF FBF0 0000 0F8A A8AA AAAA" - $"AAAA AAFF FFFF FF00 0000 FFAA AAAA AAAA AAAA AFFF FFF0 0000" - $"0000 FAAA AAAA AAAA AAAA FF00 0000 0000 0000 FFFF FFFF FFFF" - $"FFFF F0" -}; - -resource 'icl4' (1001) { - $"0FFF FFFF FFFF FFFF FFFF 0000 0000 0000 0F00 0000 0000 0000" - $"000F F000 0000 0000 0F00 0000 0000 0000 000F CF00 0000 0000" - $"0F00 0000 0FFF FF00 000F 0CF0 0000 0000 0F00 FFFF FFBB BFFF" - $"FFFF 00CF 0000 0000 0F00 FAAF FFFF FFFF FFFF 0CCC F000 0000" - $"0F00 FAAA FFFF FFFF FFFF FFFF FF00 0000 0F00 0FFA AFFF FFBB" - $"FF00 DDDD DF00 0000 0F00 00FF AAFF FFAB BF00 CCCC CF00 0000" - $"0F00 00FF AAAB BFAA BBF0 0000 CF00 0000 0F00 00FF AABB BBFA" - $"ABBF 0000 CF00 0000 0F00 00FF AABB FBBF AAAF 0000 CF00 0000" - $"0F00 00FF AABB FBBB FFFF 0000 CF00 0000 0F00 00FF AAAB FBBB" - $"BFBF 0000 CF00 0000 0F00 000F AA81 FBBB BFBF 0000 CF00 0000" - $"0F00 000F 818A AFBB BFBF 0000 CF00 0000 0F00 00FF 8A8A AAFB" - $"BFF0 0000 CF00 0000 0F00 00F8 AAAA AAFF FF00 0000 CF00 0000" - $"0F00 00FF FFFF FFF0 0000 0000 CF00 0000 0F00 0000 0000 0000" - $"0000 0000 CF00 0000 0F00 0000 0000 0000 0000 0000 CF00 0000" - $"0F00 0000 0000 0000 0000 0000 CF00 0000 0F00 0000 0000 0000" - $"0000 0000 CF00 0000 0F00 FF00 FF00 0000 0000 0000 CF00 0000" - $"0F00 FF00 FF00 0000 0000 0000 CF00 0000 0F00 0000 0000 0000" - $"0000 0000 CF00 0000 0F00 FF00 FF00 0000 0000 0000 CFE0 0000" - $"0F00 FF00 FF00 0000 0000 0000 CFEE E000 0F00 0F00 0F00 0000" - $"0000 0000 CFEE EEE0 0F00 F000 F000 0000 0000 0000 CFEE EEE0" - $"0F00 0000 0000 0000 0000 0000 CFEE E000 0FFF FFFF FFFF FFFF" - $"FFFF FFFF FFE0" -}; - -resource 'icl4' (1002) { - $"FFFF FFFF FFFF FFFF FFFF FFFF F000 0000 F000 0000 0000 0000" - $"0000 0000 F000 0000 F00F F00F F000 0000 0000 0000 FFF0 0000" - $"F00F F00F F000 0000 0000 0000 FDF0 0000 F000 0000 0000 0000" - $"0000 0000 FDF0 0000 F00F F00F F000 0000 0000 0000 FDF0 0000" - $"F00F F00F F000 0000 0000 0000 FDF0 0000 F000 F000 F000 0000" - $"0000 0000 FDF0 0000 F00F 000F 0000 0000 0000 0000 FDF0 0000" - $"F000 0000 0000 0000 0000 0000 FDF0 0000 F000 0000 0000 0000" - $"0000 0000 FDF0 0000 F000 0000 0000 0000 0000 0000 FDF0 0000" - $"F000 0000 FFFF F000 0000 0000 FDF0 0000 F00F FFFF FBBB FFFF" - $"FFF0 0000 FDF0 0000 F00F AAFF FFFF FFFF FFF0 0000 FDF0 0000" - $"F00F AAAF FFFF FFFF FF00 0000 FDF0 0000 F000 FFAA FFFF FBBF" - $"F000 0000 FDF0 0000 F000 0FFA AFFF FABB F000 0000 FDF0 0000" - $"F000 0FFA AABB FAAB BF00 0000 FDF0 0000 F000 0FFA ABBB BFAA" - $"BBF0 0000 FDF0 0000 F000 0FFA ABBF BBFA AAF0 0000 FDF0 0000" - $"F000 0FFA ABBF BBBF FFF0 0000 FDF0 0000 F000 0FFA AABF BBBB" - $"FBF0 0000 FDF0 0000 F000 00FA A81F BBBB FBFF FFFF FDF0 0000" - $"F000 00F8 18AA FBBB FBFC CCCF DCF0 0000 F000 0FF8 A8AA AFBB" - $"FFFC CCFD CCF0 0000 F000 0F8A AAAA AFFF F0FC CFDC CCFE 0000" - $"F000 0FFF FFFF FF00 00FC FDCC CCFE EE00 F000 0000 0000 0000" - $"00FF DCCC CCFE EEEE FFFF FFFF FFFF FFFF FFFD CCCC CCFE EEEE" - $"00FD DDDD DDDD DDDD DDDC CCCC CCFE EE00 00FF FFFF FFFF FFFF" - $"FFFF FFFF FFFE" -}; - -resource 'icl8' (1000) { - $"0000 0000 0000 0000 0000 00FF FFFF FFFF FF00 0000 0000 0000" - $"0000 0000 0000 0000 0000 0000 0000 0000 0000 FFFF FFFF FFFF" - $"FFFF FF00 0000 0000 0000 0000 0000 0000 0000 0000 0000 0000" - $"FFFF FFFF FFFF FFFF FFFF FFFF 0000 0000 0000 0000 0000 0000" - $"FFFF FFFF FFFF 00FF FFFF FFFF 0808 0808 0808 08FF FF00 0000" - $"0000 FFFF FFFF FF00 FF33 3333 3333 FFFF FFFF 0808 0808 0808" - $"0808 0808 08FF FFFF FFFF FFFF FFFF FF00 FF33 3333 3333 33FF" - $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FF00" - $"FF33 3333 3333 3333 FFFF FFF9 F9F9 FFFF FFFF FFFF FFFF FFFF" - $"FFFF FFFF FFFF 0000 FFFF 3333 3333 3333 33FF FFFF F6F6 FFFF" - $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF 0000 00FF FF33 3333 3333" - $"3333 FFFF FFF6 FFFF FFFF FFFF FF08 08FF FFFF FFFF FF00 0000" - $"0000 FFFF FF33 3333 3333 33FF FFFF FFFF FFFF FFFF 0808 0808" - $"FFFF FFFF 0000 0000 0000 0000 FFFF 3333 3333 3333 FFFF FFFF" - $"FFFF FFFF 0808 0808 0808 FFFF 0000 0000 0000 0000 00FF FF33" - $"3333 3333 33FF FFFF FFFF FF33 3308 0808 0808 08FF FF00 0000" - $"0000 0000 00FF FF33 3333 3333 3308 0808 0808 FFFF 3333 0808" - $"0808 0808 FFFF 0000 0000 0000 FFFF FF33 3333 3333 0808 0808" - $"0808 08FF FF33 3308 0808 0808 08FF FF00 0000 0000 FFFF FF33" - $"3333 3308 0808 0808 0808 0808 FFFF 3333 0808 0808 0808 FFFF" - $"0000 0000 FFFF FF33 3333 3308 0808 0808 FFFF 0808 08FF FF33" - $"3308 0808 0808 FFFF 0000 0000 FFFF FF33 3333 3308 0808 0808" - $"FFFF 0808 0808 FFFF 3333 0833 0808 FFFF 0000 0000 FFFF FF33" - $"3333 3308 0808 0808 FFFF 0808 0808 08FF FF33 3333 3333 FFFF" - $"0000 0000 FFFF FF33 3333 3308 0808 0808 FFFF 0808 0808 0808" - $"FFFF 3333 3333 FFFF 0000 0000 FFFF FF33 3333 3333 0808 0808" - $"FFFF 0808 0808 0808 08FF FF33 33FF FFFF 0000 0000 FFFF FFFF" - $"3333 3333 3308 0808 FFFF FF08 0808 0808 0808 FFFF 33FF 08FF" - $"0000 0000 00FF FFFF 3333 3333 3333 0808 FFFF FF08 0808 0808" - $"0808 08FF FFFF 08FF 0000 0000 0000 FFFF 3333 3333 3333 3305" - $"E305 FF08 0808 0808 0808 08FF FF08 08FF 0000 0000 0000 00FF" - $"3333 3333 33E3 0533 33FF FFFF 0808 0808 0808 08FF FF08 08FF" - $"0000 0000 0000 00FF 3333 3305 E333 3333 33FF FFFF FF08 0808" - $"0808 08FF FF08 08FF 0000 0000 0000 FFFF 33E3 0533 0533 3333" - $"3333 33FF FFFF 0808 0808 08FF FF08 08FF 0000 0000 0000 FF33" - $"0505 3333 E333 3333 3333 3333 FFFF FF08 0808 FFFF FF08 FF00" - $"0000 0000 00FF FFE3 33E3 3333 3333 3333 3333 3333 33FF FFFF" - $"08FF FFFF FF08 FF00 0000 0000 00FF E333 33E3 3333 3333 3333" - $"3333 3333 3333 FFFF FFFF FFFF FFFF 0000 0000 0000 FFFF 3333" - $"3333 3333 3333 3333 3333 3333 33FF FFFF FFFF FF00 0000 0000" - $"0000 0000 FF33 3333 3333 3333 3333 3333 3333 3333 FFFF 0000" - $"0000 0000 0000 0000 0000 0000 FFFF FFFF FFFF FFFF FFFF FFFF" - $"FFFF FFFF FF" -}; - -resource 'icl8' (1001) { - $"00FF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF 0000 0000" - $"0000 0000 0000 0000 00FF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F5F5 F5FF FF00 0000 0000 0000 0000 0000 00FF F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 F5F5 F5FF F8FF 0000 0000 0000 0000 0000" - $"00FF F5F5 F5F5 F5F5 F5FF FFFF FFFF F5F5 F5F5 F5FF 00F8 FF00" - $"0000 0000 0000 0000 00FF F5F5 FFFF FFFF FFFF 0808 08FF FFFF" - $"FFFF FFFF 0000 F8FF 0000 0000 0000 0000 00FF F5F5 FF33 33FF" - $"FFFF FFFF FFFF FFFF FFFF FFFF F5F6 F6F8 FF00 0000 0000 0000" - $"00FF F5F5 FF33 3333 FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF" - $"FFFF 0000 0000 0000 00FF F5F5 F5FF FF33 33FF FFFF FFFF 0808" - $"FFFF F5F5 F9F9 F9F9 F9FF 0000 0000 0000 00FF F5F5 F5F5 FFFF" - $"3333 FFFF FFFF 3308 08FF F5F5 F7F7 F7F7 F7FF 0000 0000 0000" - $"00FF F5F5 F5F5 FFFF 3333 3308 08FF 3333 0808 FFF5 F5F5 F5F5" - $"F7FF 0000 0000 0000 00FF F5F5 F5F5 FFFF 3333 0808 0808 FF33" - $"3308 08FF F5F5 F5F5 F7FF 0000 0000 0000 00FF F5F5 F5F5 FFFF" - $"3333 0808 FF08 08FF 3333 33FF F5F5 F5F5 F7FF 0000 0000 0000" - $"00FF F5F5 F5F5 FFFF 3333 0808 FF08 0808 FFFF FFFF F5F5 F5F5" - $"F7FF 0000 0000 0000 00FF F5F5 F5F5 FFFF 3333 3308 FF08 0808" - $"08FF 08FF F5F5 F5F5 F7FF 0000 0000 0000 00FF F5F5 F5F5 F5FF" - $"3333 E305 FF08 0808 08FF 08FF F5F5 F5F5 F7FF 0000 0000 0000" - $"00FF F5F5 F5F5 F5FF E305 E333 33FF 0808 08FF 08FF F5F5 F5F5" - $"F7FF 0000 0000 0000 00FF F5F5 F5F5 FFFF E333 E333 3333 FF08" - $"08FF FFF5 F5F5 F5F5 F7FF 0000 0000 0000 00FF F5F5 F5F5 FFE3" - $"3333 3333 3333 FFFF FFFF F5F5 F5F5 F5F5 F7FF 0000 0000 0000" - $"00FF F5F5 F5F5 FFFF FFFF FFFF FFFF FFF5 F5F5 F5F5 F5F5 F5F5" - $"F7FF 0000 0000 0000 00FF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 F7FF 0000 0000 0000 00FF F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F7FF 0000 0000 0000" - $"00FF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F7FF 0000 0000 0000 00FF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 F7FF 0000 0000 0000 00FF F5F5 FFFF F5F5" - $"FFFF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F7FF 0000 0000 0000" - $"00FF F5F5 FFFF F5F5 FFFF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F7FF 0000 0000 0000 00FF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 F7FF 0000 0000 0000 00FF F5F5 FFFF F5F5" - $"FFFF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F7FF FC00 0000 0000" - $"00FF F5F5 FFFF F5F5 FFFF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F7FF FCFC FC00 0000 00FF F5F5 F5FF F5F5 F5FF F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 F7FF FCFC FCFC FC00 00FF F5F5 FFF5 F5F5" - $"FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F7FF FCFC FCFC FC00" - $"00FF F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F7FF FCFC FC00 0000 00FF FFFF FFFF FFFF FFFF FFFF FFFF FFFF" - $"FFFF FFFF FFFF FFFF FFFF FC" -}; - -resource 'icl8' (1002) { - $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF" - $"FF00 0000 0000 0000 FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 FF00 0000 0000 0000 FFF5 F5FF FFF5 F5FF" - $"FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 FFFF FF00 0000 0000" - $"FFF5 F5FF FFF5 F5FF FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"FFF9 FF00 0000 0000 FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 FFF9 FF00 0000 0000 FFF5 F5FF FFF5 F5FF" - $"FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 FFF9 FF00 0000 0000" - $"FFF5 F5FF FFF5 F5FF FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"FFF9 FF00 0000 0000 FFF5 F5F5 FFF5 F5F5 FFF5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 FFF9 FF00 0000 0000 FFF5 F5FF F5F5 F5FF" - $"F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 FFF9 FF00 0000 0000" - $"FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"FFF9 FF00 0000 0000 FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 FFF9 FF00 0000 0000 FFF5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 FFF9 FF00 0000 0000" - $"FFF5 F5F5 F5F5 F5F5 FFFF FFFF FFF5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"FFF9 FF00 0000 0000 FFF5 F5FF FFFF FFFF FF08 0808 FFFF FFFF" - $"FFFF FFF5 F5F5 F5F5 FFF9 FF00 0000 0000 FFF5 F5FF 3333 FFFF" - $"FFFF FFFF FFFF FFFF FFFF FFF5 F5F5 F5F5 FFF9 FF00 0000 0000" - $"FFF5 F5FF 3333 33FF FFFF FFFF FFFF FFFF FFFF F5F5 F5F5 F5F5" - $"FFF9 FF00 0000 0000 FFF5 F5F5 FFFF 3333 FFFF FFFF FF08 08FF" - $"FFF5 F5F5 F5F5 F5F5 FFF9 FF00 0000 0000 FFF5 F5F5 F5FF FF33" - $"33FF FFFF FF33 0808 FFF5 F5F5 F5F5 F5F5 FFF9 FF00 0000 0000" - $"FFF5 F5F5 F5FF FF33 3333 0808 FF33 3308 08FF F5F5 F5F5 F5F5" - $"FFF9 FF00 0000 0000 FFF5 F5F5 F5FF FF33 3308 0808 08FF 3333" - $"0808 FFF5 F5F5 F5F5 FFF9 FF00 0000 0000 FFF5 F5F5 F5FF FF33" - $"3308 08FF 0808 FF33 3333 FFF5 F5F5 F5F5 FFF9 FF00 0000 0000" - $"FFF5 F5F5 F5FF FF33 3308 08FF 0808 08FF FFFF FFF5 F5F5 F5F5" - $"FFF9 FF00 0000 0000 FFF5 F5F5 F5FF FF33 3333 08FF 0808 0808" - $"FF08 FFF5 F5F5 F5F5 FFF9 FF00 0000 0000 FFF5 F5F5 F5F5 FF33" - $"33E3 05FF 0808 0808 FF08 FFFF FFFF FFFF FFF9 FF00 0000 0000" - $"FFF5 F5F5 F5F5 FFE3 05E3 3333 FF08 0808 FF08 FF2B 2B2B F7FF" - $"F9F7 FF00 0000 0000 FFF5 F5F5 F5FF FFE3 33E3 3333 33FF 0808" - $"FFFF FF2B 2BF7 FFF9 F72B FF00 0000 0000 FFF5 F5F5 F5FF E333" - $"3333 3333 33FF FFFF FFF5 FF2B F7FF F9F7 2BF6 FFFC 0000 0000" - $"FFF5 F5F5 F5FF FFFF FFFF FFFF FFFF F5F5 F5F5 FFF7 FFF9 F72B" - $"F6F6 FFFC FCFC 0000 FFF5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5 F5F5" - $"F5F5 FFFF F9F7 2BF6 F6F6 FFFC FCFC FCFC FFFF FFFF FFFF FFFF" - $"FFFF FFFF FFFF FFFF FFFF FFF9 F72B F6F6 F6F6 FFFC FCFC FCFC" - $"0000 FFF9 F9F9 F9F9 F9F9 F9F9 F9F9 F9F9 F9F9 F9F7 2BF6 F6F6" - $"F6F6 FFFC FCFC 0000 0000 FFFF FFFF FFFF FFFF FFFF FFFF FFFF" - $"FFFF FFFF FFFF FFFF FFFF FFFC" -}; - -resource 'ICN#' (1000) { - { /* array: 2 elements */ - /* [1] */ - $"001F 8000 003F E000 00FF F000 FDF0 183E 83C0 07FE 81FF FFFE" - $"80E3 FFFC C073 FFFC 603B F9F8 381F F0F0 0C0F F030 0607 E018" - $"0600 300C 0E00 1806 0E00 0C03 0E00 C603 0E00 C303 0E00 C183" - $"0E00 C0C3 0E00 C067 0F00 E035 0700 E01D 0301 E019 0106 7019" - $"0118 7819 0368 1C19 02C8 0E3A 0740 077A 0640 03FC 0C00 07E0" - $"0800 0C00 0F7F F8", - /* [2] */ - $"001F 8000 003F E000 00FF F000 FDFF F83E FFFF FFFE FFFF FFFE" - $"FFFF FFFC FFFF FFFC 7FFF FFF8 3FFF FFF0 0FFF FFF0 07FF FFF8" - $"07FF FFFC 0FFF FFFE 0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF" - $"0FFF FFFF 0FFF FFFF 0FFF FFFF 07FF FFFF 03FF FFFF 01FF FFFF" - $"01FF FFFF 03FF FFFF 03FF FFFE 07FF FFFE 07FF FFFC 0FFF FFE0" - $"0FFF FC00 0FFF F8" - } -}; - -resource 'ICN#' (1001) { - { /* array: 2 elements */ - /* [1] */ - $"7FFF F000 4000 1800 4000 1400 407C 1200 4FC7 F100 49FF F080" - $"48FF FFC0 467C C040 433C 4040 4304 2040 4302 1040 4309 1040" - $"4308 F040 4308 5040 4138 5040 41E4 5040 43A2 6040 4203 C040" - $"43FE 0040 4000 0040 4000 0040 4000 0040 4000 0040 4CC0 0040" - $"4CC0 0040 4000 0040 4CC0 0060 4CC0 0078 4440 007E 4880 007E" - $"4000 0078 7FFF FFE0", - /* [2] */ - $"7FFF F000 7FFF F800 7FFF FC00 7FFF FE00 7FFF FF00 7FFF FF80" - $"7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0" - $"7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0" - $"7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0 7FFF FFC0" - $"7FFF FFC0 7FFF FFC0 7FFF FFE0 7FFF FFF8 7FFF FFFE 7FFF FFFE" - $"7FFF FFF8 7FFF FFE0" - } -}; - -resource 'ICN#' (1002) { - { /* array: 2 elements */ - /* [1] */ - $"FFFF FF80 8000 0080 9980 00E0 9980 00A0 8000 00A0 9980 00A0" - $"9980 00A0 8880 00A0 9100 00A0 8000 00A0 8000 00A0 8000 00A0" - $"80F8 00A0 9F8F E0A0 93FF E0A0 91FF C0A0 8CF9 80A0 8678 80A0" - $"8608 40A0 8604 20A0 8612 20A0 8611 E0A0 8610 A0A0 8270 BFA0" - $"83C8 A120 8744 E220 8407 A430 87FC 283C 8000 303F FFFF E03F" - $"2000 003C 3FFF FFF0", - /* [2] */ - $"FFFF FF80 FFFF FF80 FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0" - $"FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0" - $"FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0" - $"FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0 FFFF FFE0" - $"FFFF FFE0 FFFF FFE0 FFFF FFF0 FFFF FFFC FFFF FFFF FFFF FFFF" - $"3FFF FFFC 3FFF FFF0" - } -}; - -resource 'ics#' (1000) { - { /* array: 2 elements */ - /* [1] */ - $"07C0 FC7F 9FFF 8FFE 67CC 33C4 3042 3021 3091 308F 3085 1385" - $"1E45 3A26 203C 3FE0", - /* [2] */ - $"07C0 FFFF FFFF FFFE 7FFC 3FFC 3FFE 3FFF 3FFF 3FFF 3FFF 1FFF" - $"1FFF 3FFE 3FFC 3FE0" - } -}; - -resource 'ics#' (1001) { - { /* array: 2 elements */ - /* [1] */ - $"FFE0 8070 8058 8078 8008 8008 8008 B608 B608 8008 B608 B608" - $"9208 A40E 800F FFFE", - /* [2] */ - $"FFE0 FFF0 FFF8 FFF8 FFF8 FFF8 FFF8 FFF8 FFF8 FFF8 FFF8 FFF8" - $"FFF8 FFFE FFFF FFFE" - } -}; - -resource 'ics#' (1002) { - { /* array: 2 elements */ - /* [1] */ - $"FFF8 800C B60C B60C 800C B60C B60C 920C A40C 800C 800C 807C" - $"8054 8066 FFC7 7FFE", - /* [2] */ - $"FFF8 FFFC FFFC FFFC FFFC FFFC FFFC FFFC FFFC FFFC FFFC FFFC" - $"FFFC FFFE FFFF 7FFE" - } -}; - -resource 'ics4' (1000) { - $"0000 0FFF FF00 0000 FFFF FFBB BFFF FFFF FAAF FFFF FFFF FFFF" - $"FAAA FFFF FFFF FFF0 0FFA AFFF FFBB FF00 00FF AAFF FFAB BF00" - $"00FF AAAB BFAA BBF0 00FF AABB BBFA ABBF 00FF AABB FBBF AAAF" - $"00FF AABB FBBB FFFF 00FF AAAB FBBB BFBF 000F AA81 FBBB BFBF" - $"000F 818A AFBB BFBF 00FF 8A8A AAFB BFF0 00F8 AAAA AAFF FF00" - $"00FF FFFF FFF0" -}; - -resource 'ics4' (1001) { - $"FFFF FFFF FFF0 0000 F000 0000 0FFF 0000 F000 0000 0FCF F000" - $"F000 0000 0FFF F000 F000 0000 00CC F000 F000 0000 000C F000" - $"F000 0000 000C F000 F0FF 0FF0 000C F000 F0FF 0FF0 000C F000" - $"F000 0000 000C F000 F0FF 0FF0 000C F000 F0FF 0FF0 000C F000" - $"F00F 00F0 000C F000 F0F0 0F00 000C FEE0 F000 0000 000C FEEE" - $"FFFF FFFF FFFF FEE0" -}; - -resource 'ics4' (1002) { - $"FFFF FFFF FFFF F000 F000 0000 0000 FF00 F0FF 0FF0 0000 FF00" - $"F0FF 0FF0 0000 FF00 F000 0000 0000 FF00 F0FF 0FF0 0000 FF00" - $"F0FF 0FF0 0000 FF00 F00F 00F0 0000 FF00 F0F0 0F00 0000 FF00" - $"F000 0000 0000 FF00 F000 0000 0000 FF00 F000 0000 0FFF FF00" - $"F000 0000 0FCF DF00 F000 0000 0FFD CFE0 FFFF FFFF FFDC CFEE" - $"0FFF FFFF FFFF FFE0" -}; - -resource 'ics8' (1000) { - $"0000 0000 00FF FFFF FFFF 0000 0000 0000 FFFF FFFF FFFF 0808" - $"08FF FFFF FFFF FFFF FF33 33FF FFFF FFFF FFFF FFFF FFFF FFFF" - $"FF33 3333 FFFF FFFF FFFF FFFF FFFF FF00 00FF FF33 33FF FFFF" - $"FFFF 0808 FFFF 0000 0000 FFFF 3333 FFFF FFFF 3308 08FF 0000" - $"0000 FFFF 3333 3308 08FF 3333 0808 FF00 0000 FFFF 3333 0808" - $"0808 FF33 3308 08FF 0000 FFFF 3333 0808 FF08 08FF 3333 33FF" - $"0000 FFFF 3333 0808 FF08 0808 FFFF FFFF 0000 FFFF 3333 3308" - $"FF08 0808 08FF 08FF 0000 00FF 3333 E305 FF08 0808 08FF 08FF" - $"0000 00FF E305 E333 33FF 0808 08FF 08FF 0000 FFFF E333 E333" - $"3333 FF08 08FF FF00 0000 FFE3 3333 3333 3333 FFFF FFFF 0000" - $"0000 FFFF FFFF FFFF FFFF FF" -}; - -resource 'ics8' (1001) { - $"FFFF FFFF FFFF FFFF FFFF FF00 0000 0000 FFF5 F5F5 F5F5 F5F5" - $"F5FF FFFF 0000 0000 FFF5 F5F5 F5F5 F5F5 F5FF F6FF FF00 0000" - $"FFF5 F5F5 F5F5 F5F5 F5FF FFFF FF00 0000 FFF5 F5F5 F5F5 F5F5" - $"F5F5 F7F7 FF00 0000 FFF5 F5F5 F5F5 F5F5 F5F5 F5F7 FF00 0000" - $"FFF5 F5F5 F5F5 F5F5 F5F5 F5F7 FF00 0000 FFF5 FFFF F5FF FFF5" - $"F5F5 F5F7 FF00 0000 FFF5 FFFF F5FF FFF5 F5F5 F5F7 FF00 0000" - $"FFF5 F5F5 F5F5 F5F5 F5F5 F5F7 FF00 0000 FFF5 FFFF F5FF FFF5" - $"F5F5 F5F7 FF00 0000 FFF5 FFFF F5FF FFF5 F5F5 F5F7 FF00 0000" - $"FFF5 F5FF F5F5 FFF5 F5F5 F5F7 FF00 0000 FFF5 FFF5 F5FF F5F5" - $"F5F5 F5F7 FFFC FC00 FFF5 F5F5 F5F5 F5F5 F5F5 F5F7 FFFC FCFC" - $"FFFF FFFF FFFF FFFF FFFF FFFF FFFC FC" -}; - -resource 'ics8' (1002) { - $"FFFF FFFF FFFF FFFF FFFF FFFF FF00 0000 FFF5 F5F5 F5F5 F500" - $"F5F5 F5F5 FFFF 0000 FFF5 FFFF F5FF FF00 F5F5 F5F5 FFFF 0000" - $"FFF5 FFFF F5FF FF00 F5F5 F5F5 FFFF 0000 FFF5 F5F5 F5F5 F500" - $"F5F5 F5F5 FFFF 0000 FFF5 FFFF F5FF FF00 F5F5 F5F5 FFFF 0000" - $"FFF5 FFFF F5FF FF00 F5F5 F5F5 FFFF 0000 FFF5 F5FF F5F5 FF00" - $"F5F5 F5F5 FFFF 0000 FFF5 FFF5 F5FF F500 F5F5 F5F5 FFFF 0000" - $"FFF5 F5F5 F5F5 F500 F5F5 F5F5 FFFF 0000 FFF5 F5F5 F5F5 F5F5" - $"F5F5 F5F5 FFFF 0000 FFF5 F5F5 F5F5 F5F5 F5FF FFFF FFFF 0000" - $"FFF5 F5F5 F5F5 F5F5 F5FF F5FF F9FF 0000 FFF5 F5F5 F5F5 F5F5" - $"F5FF FFF9 F7FF FC00 FFFF FFFF FFFF FFFF FFFF F9F7 F7FF FCFC" - $"00FF FFFF FFFF FFFF FFFF FFFF FFFF FC" -}; - -resource 'ICON' (1000) { - $"001F 8000 003F E000 00FF F000 FDF0 183E 83C0 07FE 81FF FFFE" - $"80E3 FFFC C073 FFFC 603B F9F8 381F F0F0 0C0F F030 0607 E018" - $"0600 300C 0E00 1806 0E00 0C03 0E00 C603 0E00 C303 0E00 C183" - $"0E00 C0C3 0E00 C067 0F00 E035 0700 E01D 0301 E019 0106 7019" - $"0118 7819 0368 1C19 02C8 0E3A 0740 077A 0640 03FC 0C00 07E0" - $"0800 0C00 0FFF F8" -}; - -data 'cicn' (1000) { - $"0000 0000 8010 0000 0000 0020 0020 0000 0000 0000 0000 0048" - $"0000 0048 0000 0000 0004 0001 0004 0000 0000 0000 0000 0000" - $"0000 0000 0000 0004 0000 0000 0020 0020 0000 0000 0004 0000" - $"0000 0020 0020 0000 0000 001F 8000 003F E000 00FF F000 FDFF" - $"F83E FFFF FFFE FFFF FFFE FFFF FFFC FFFF FFFC 7FFF FFF8 3FFF" - $"FFF0 0FFF FFF0 07FF FFF8 07FF FFFC 0FFF FFFE 0FFF FFFF 0FFF" - $"FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF 0FFF FFFF 07FF" - $"FFFF 03FF FFFF 01FF FFFF 01FF FFFF 03FF FFFF 03FF FFFE 07FF" - $"FFFE 07FF FFFC 0FFF FFE0 0FFF FC00 0FFF F800 001F 8000 003F" - $"E000 00FF F000 FDF0 183E 83C0 07FE 81FF FFFE 80E3 FFFC C073" - $"FFFC 603B F9F8 381F F0F0 0C0F F030 0607 E018 0600 300C 0E00" - $"1806 0E00 0C03 0E00 C603 0E00 C303 0E00 C183 0E00 C0C3 0E00" - $"C067 0F00 E035 0700 E01D 0301 E019 0106 7019 0118 7819 0368" - $"1C19 02C8 0E3A 0740 077A 0640 03FC 0C00 07E0 0800 0C00 0FFF" - $"F800 0000 0000 0000 0007 0000 FFFF FFFF FFFF 0001 FFFF FFFF" - $"0000 0002 CCCC 9999 6666 0003 8888 8888 8888 0004 DDDD DDDD" - $"DDDD 0005 FFFF CCCC 9999 0006 0000 BBBB 0000 000F 0000 0000" - $"0000 0000 0000 000F FFFF F000 0000 0000 0000 0000 0000 00FF" - $"FFFF FFF0 0000 0000 0000 0000 0000 FFFF FFFF FFFF 0000 0000" - $"0000 FFFF FF0F FFFF 5555 555F F000 00FF FFF0 F222 22FF FF55" - $"5555 5555 5FFF FFFF FFF0 F222 222F FFFF FFFF FFFF FFFF FFFF" - $"FFF0 F222 2222 FFF3 33FF FFFF FFFF FFFF FF00 FF22 2222 2FFF" - $"44FF FFFF FFFF FFFF FF00 0FF2 2222 22FF F4FF FFFF F55F FFFF" - $"F000 00FF F222 222F FFFF FFFF 5555 FFFF 0000 0000 FF22 2222" - $"FFFF FFFF 5555 55FF 0000 0000 0FF2 2222 2FFF FFF2 2555 555F" - $"F000 0000 0FF2 2222 2555 55FF 2255 5555 FF00 0000 FFF2 2222" - $"5555 555F F225 5555 5FF0 0000 FFF2 2225 5555 5555 FF22 5555" - $"55FF 0000 FFF2 2225 5555 FF55 5FF2 2555 55FF 0000 FFF2 2225" - $"5555 FF55 55FF 2252 55FF 0000 FFF2 2225 5555 FF55 555F F222" - $"22FF 0000 FFF2 2225 5555 FF55 5555 FF22 22FF 0000 FFF2 2222" - $"5555 FF55 5555 5FF2 2FFF 0000 FFFF 2222 2555 FFF5 5555 55FF" - $"2F5F 0000 0FFF 2222 2255 FFF5 5555 555F FF5F 0000 00FF 2222" - $"2221 61F5 5555 555F F55F 0000 000F 2222 2612 2FFF 5555 555F" - $"F55F 0000 000F 2221 6222 2FFF F555 555F F55F 0000 00FF 2612" - $"1222 222F FF55 555F F55F 0000 00F2 1122 6222 2222 FFF5 55FF" - $"F5F0 0000 0FF6 2622 2222 2222 2FFF 5FFF F5F0 0000 0F62 2622" - $"2222 2222 22FF FFFF FF00 0000 FF22 2222 2222 2222 2FFF FFF0" - $"0000 0000 F222 2222 2222 2222 FF00 0000 0000 0000 FFFF FFFF" - $"FFFF FFFF F000 0000 0000" -}; diff --git a/maccaml/ocamlconstants.h b/maccaml/ocamlconstants.h deleted file mode 100644 index 1b3e1e651..000000000 --- a/maccaml/ocamlconstants.h +++ /dev/null @@ -1,187 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#define kMinSystemVersion 0x700 - -#define kExtraStackSpace (128 * 1024) -#define kMoreMasters 6 -#define kScrapThreshold (4 * 1024) -#define kMinimumMemory (32 * 1024) - -#define kTitleBarSpace 20 -#define kWinBorderSpace 5 -#define kPowerStripSpace 20 -#define kVisualDelay 8UL /* XXX use double-click time ?? */ - -#define ktextwidth 32000 -#define kHorizScrollDelta 32 -#define kGraphScrollDelta 8 -#define kScrollBarWidth 15 /* not counting one of the borders. */ -#define kTextMarginV 3 -#define kTextMarginH 6 -#define kMinWindowWidth 64 -#define kMinWindowHeight 64 - -#define keyPgUp 0x74 -#define keyPgDn 0x79 -#define keyHome 0x73 -#define keyEnd 0x77 -#define keyF1 0x7A -#define keyF2 0x78 -#define keyF3 0x63 -#define keyF4 0x76 - -#define charEnter 0x03 -#define charBackspace 0x08 -#define charReturn 0x0D -#define charEscape 0x1B -#define charArrowLeft 0x1C -#define charArrowRight 0x1D -#define charArrowUp 0x1E -#define charArrowDown 0x1F -#define charDelete 0x7F - -#define kWinUnknown 0 -#define kWinUninitialised 1 -#define kWinAbout 2 -#define kWinToplevel 3 -#define kWinGraphics 4 -#define kWinDocument 5 -#define kWinPrefs 6 -#define kWinClipboard 7 - -#define kCreatorCaml 'Caml' -#define kTypeText 'TEXT' - -/* Resource IDs */ - -#define kToplevelWinTemplate 1000 -#define kGraphicsWinTemplate 1001 -#define kDocumentWinTemplate 1002 - -#define kScrollBarTemplate 1000 - -/* DO NOT CHANGE this definition. */ -#define kApplicationIcon 1000 - -#define kDialogAbout 1000 -#define kAlertNeedSys7 1001 -#define kAlertBug 1002 -#define kAlertGeneric 1003 -#define kAlertExit 1004 -#define kDialogPrefs 1005 -#define kAlertNotYet 1006 -#define kAlertSaveAsk 1007 -#define kAlertErrorMsg 1008 -#define kAlertErrorNum 1009 -#define kAlertNeed32BitQD 1010 - -#define kKeysOK 1000 -#define kKeysSaveDontCancel 1001 - -#define kPrefsDescriptionStr 1000 -#define kApplicationMissing -16397 - -#define kUndoStrings 1000 - -#define kMiscStrings 1001 -#define kPrefsFileNameIdx 1 -#define kUntitledIdx 2 -#define kClosingIdx 3 -#define kQuittingIdx (kClosingIdx + 1) -#define kCannotOpenIdx 5 -#define kCloseQuoteIdx 6 -#define kSaveAsPromptIdx 7 -#define kEmptyIdx 8 -#define kCannotWriteIdx 9 -#define kWithErrorCodeIdx 10 - -#define kErrorStrings 1002 -#define kMemFull 1 -#define kDiskFull 2 -#define kDirFull 3 -#define kTooManyFiles 4 -#define kFileNotFound 5 -#define kWriteProtect 6 -#define kFileLocked 7 -#define kVolLocked 8 -#define kFileBusy 9 -#define kFileOpen 10 -#define kVolOffLine 11 -#define kPermDenied 12 -#define kWritePermDenied 13 -#define kDirNotFound 14 -#define kDisconnected 15 -#define kIOError 16 - -#define kAboutText1 1000 -#define kAboutText2 1001 - -#define kMenuBar 1000 - -#define kCommandLineTemplate 1000 -#define kEnvironmentTemplate 1001 - - -/* Sound stuff */ - -#define kDurationOffset 0x1E -#define kSampleRateOffset 0x34 - - -/* Menus */ - -#define kMenuApple 1000 -#define kMenuFile 1001 -#define kMenuEdit 1002 -#define kMenuWindows 1003 - -/***** Apple menu */ -#define kItemAbout 1 - -/***** File menu */ -#define kItemNew 1 -#define kItemOpen 2 -/* - */ -#define kItemClose 4 -#define kItemSave 5 -#define kItemSaveAs 6 -#define kItemRevert 7 -/* - */ -#define kItemPageSetup 9 -#define kItemPrint 10 -/* - */ -#define kItemQuit 12 - -/***** Edit menu */ -#define kItemUndo 1 -/* - */ -#define kItemCut 3 -#define kItemCopy 4 -#define kItemPaste 5 -#define kItemClear 6 -#define kItemSelectAll 7 -#define kItemShowClipboard 8 -/* - */ -#define kItemFind 10 -#define kItemReplace 11 -/* - */ -#define kItemPreferences 13 - -/***** Windows menu */ -#define kItemToplevel 1 -#define kItemGraphics 2 -/* - */ -#define kItemDocuments 4 diff --git a/maccaml/ocamlmkappli b/maccaml/ocamlmkappli deleted file mode 100644 index c300c16a6..000000000 --- a/maccaml/ocamlmkappli +++ /dev/null @@ -1,89 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Moscova, INRIA Rocquencourt # -# # -# Copyright 2000 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - - -# ocamlmkappli -- build a standalone application - -# usage: ocamlmkappli [option] file -# options: -# -creator <code> use this creator code (default '????') -# -ocamlc <command> use <command> as O'Caml compiler (default ocamlc) -# -d <def> pass "-d <def>" option to Rez -# -prefsize <int> set preferred memory size (kilobytes, default 4000) -# -lib <folder> use library files from <folder> (default {CAMLLIB}) -# -minsize <int> set minimum memory size (megabytes, default 2000) -# -name <name> set the name of the application (default a.out) -# -r <file> add resources from this file (or rez source file) - -set echo 0 - -set creator '????' -set ocamlc ocamlc -set rezopt '' -set prefsize 4000 -set lib "{{CAMLLIB}}" -set minsize 2000 -set name a.out -set rezfiles '' - -set files '' - -loop - break if {#} == 0 - if "{{1}}" == "-creator" - set creator "{{2}}" - shift - else if "{{1}}" == "-ocamlc" - set ocamlc "{{2}}" - shift - else if "{{1}}" == "-d" - set rezopt "{{rezopt}} -d ``quote "{{2}}"``" - shift - else if "{{1}}" == "-prefsize" - set prefsize {2} - shift - else if "{{1}}" == "-lib" - set lib "{{2}}" - shift - else if "{{1}}" == "-minsize" - set minsize {2} - shift - else if "{{1}}" == "-name" - set name "{{2}}" - shift - else if "{{1}}" == "-r" - set rezfiles "{{rezfiles}} ``quote "{{2}}"``" - shift - else - set files "{{files}} ``quote "{{1}}"``" - end - shift -end - -if {prefsize} < {minsize} - set prefsize {minsize} -end - -set tmp "{{tempfolder}}ocamlmkappli-`date -n`" -delete -y -ay -i "{{tmp}}" - -duplicate -y "{{lib}}appli" "{{name}}" -rez -d SystemSevenOrLater=1 -d PREFSIZE="{prefsize}" -d MINSIZE="{minsize}" - -d APPLNAME=""{{name}}"" -d CREATOR="'{{creator}}'" - -a -o "{{name}}" "{{lib}}appli.r" {rezopt} {rezfiles} -{ocamlc} -use-prims "{{lib}}appliprims" {files} -o "{{tmp}}" -catenate "{{tmp}}" >> "{{name}}" -setfile -t APPL -c "{{creator}}" -a iB "{{name}}" - -delete -i "{{tmp}}" diff --git a/maccaml/prefs.c b/maccaml/prefs.c deleted file mode 100644 index 70f208550..000000000 --- a/maccaml/prefs.c +++ /dev/null @@ -1,127 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -#define kPrefResource 1000 - -struct prefs prefs; -static struct prefs defpref; - -static void InitPrefs (void) -{ - TextStyle defstyle; - - defpref.version = PREF_VERSION; - defpref.asksavetop = 0; - WinToplevelStdState (&defpref.toppos); - WinGraphicsStdState (&defpref.graphpos); - WinClipboardStdState (&defpref.clippos); - GetFNum ("\pmonaco", &defstyle.tsFont); - defstyle.tsSize = 9; - defstyle.tsFace = 0; - defstyle.tsColor.red = 0; - defstyle.tsColor.green = 0; - defstyle.tsColor.blue = 0; - defpref.text = defpref.unread = defpref.input = defpref.output - = defpref.errors = defstyle; - - defpref.unread.tsColor.green = 35000; - defpref.input.tsColor.blue = 65535; - defpref.errors.tsColor.red = 50000; - defpref.errors.tsFace = underline; -} - -void ReadPrefs (void) -{ - short err; - short vrefnum; - long dirid; - short refnum = -1; - Handle prefsH = NULL; - Str255 prefsfilename; - FSSpec spec; - - InitPrefs (); - GetIndString (prefsfilename, kMiscStrings, kPrefsFileNameIdx); - err = FindFolder (kOnSystemDisk, kPreferencesFolderType, kCreateFolder, - &vrefnum, &dirid); - if (err != noErr) goto cantread; - err = FSMakeFSSpec (vrefnum, dirid, prefsfilename, &spec); - if (err != noErr) goto cantread; - refnum = FSpOpenResFile (&spec, fsRdPerm); - if (refnum == -1) goto cantread; - prefsH = Get1Resource ('Oprf', kPrefResource); - if (prefsH == NULL) goto cantread; - if (GetHandleSize (prefsH) != sizeof (prefs)) goto cantread; - if (**(long **)prefsH != PREF_VERSION) goto cantread; - memmove (&prefs, *prefsH, sizeof (prefs)); - CloseResFile (refnum); - return; - - cantread: - if (refnum != -1) CloseResFile (refnum); - prefs = defpref; -} - -void WritePrefs (void) -{ - short err; - short vrefnum; - long dirid; - short refnum = -1; - Handle prefsH = NULL; - Str255 prefsfilename; - FSSpec spec; - Handle h; - - GetIndString (prefsfilename, kMiscStrings, kPrefsFileNameIdx); - err = FindFolder (kOnSystemDisk, kPreferencesFolderType, kCreateFolder, - &vrefnum, &dirid); - if (err != noErr) goto cantwrite; - err = FSMakeFSSpec (vrefnum, dirid, prefsfilename, &spec); - if (err != noErr && err != fnfErr) goto cantwrite; - - if (err == fnfErr){ - if (!memcmp (&prefs, &defpref, sizeof (prefs))) return; - else FSpCreateResFile (&spec, 0, 0, smSystemScript); - } - refnum = FSpOpenResFile (&spec, fsRdWrPerm); - if (refnum == -1) goto cantwrite; - - prefsH = Get1Resource ('Oprf', kPrefResource); - if (prefsH == NULL){ - err = AllocHandle (sizeof (prefs), (Handle *) &prefsH); - if (err != noErr) goto cantwrite; - AddResource (prefsH, 'Oprf', kPrefResource, "\pO'Caml prefs"); - } - SetHandleSize (prefsH, sizeof (prefs)); - if (MemError () != noErr) goto cantwrite; - memmove (*prefsH, &prefs, sizeof (prefs)); - ChangedResource (prefsH); - - h = GetResource ('STR ', kPrefsDescriptionStr); - if (h != NULL){ - DetachResource (h); - AddResource (h, 'STR ', kApplicationMissing, NULL); - ChangedResource (h); - } - - CloseResFile (refnum); - return; - - cantwrite: - if (refnum != -1) CloseResFile (refnum); -} diff --git a/maccaml/prim_bigarray b/maccaml/prim_bigarray deleted file mode 100644 index abec38902..000000000 --- a/maccaml/prim_bigarray +++ /dev/null @@ -1,18 +0,0 @@ -bigarray_blit -bigarray_create -bigarray_dim -bigarray_fill -bigarray_get_1 -bigarray_get_2 -bigarray_get_3 -bigarray_get_generic -bigarray_init -bigarray_map_file -bigarray_num_dims -bigarray_reshape -bigarray_set_1 -bigarray_set_2 -bigarray_set_3 -bigarray_set_generic -bigarray_slice -bigarray_sub diff --git a/maccaml/prim_graph b/maccaml/prim_graph deleted file mode 100644 index 35c00284e..000000000 --- a/maccaml/prim_graph +++ /dev/null @@ -1,41 +0,0 @@ -gr_blit_image -gr_clear_graph -gr_close_graph -gr_close_subwindow -gr_create_image -gr_current_x -gr_current_y -gr_display_mode -gr_draw_arc -gr_draw_arc_nat -gr_draw_char -gr_draw_image -gr_draw_rect -gr_draw_string -gr_dump_image -gr_fill_arc -gr_fill_arc_nat -gr_fill_poly -gr_fill_rect -gr_lineto -gr_make_image -gr_moveto -gr_open_graph -gr_open_subwindow -gr_plot -gr_point_color -gr_remember_mode -gr_set_color -gr_set_font -gr_set_line_width -gr_set_text_size -gr_set_window_title -gr_sigio_handler -gr_sigio_signal -gr_size_x -gr_size_y -gr_sound -gr_synchronize -gr_text_size -gr_wait_event -gr_window_id diff --git a/maccaml/prim_num b/maccaml/prim_num deleted file mode 100644 index 9a30b2538..000000000 --- a/maccaml/prim_num +++ /dev/null @@ -1,28 +0,0 @@ -add_nat -blit_nat -compare_digits_nat -compare_nat -complement_nat -create_nat -decr_nat -div_digit_nat -div_nat -incr_nat -initialize_nat -is_digit_int -is_digit_normalized -is_digit_odd -is_digit_zero -land_digit_nat -lor_digit_nat -lxor_digit_nat -mult_digit_nat -mult_nat -nth_digit_nat -num_digits_nat -num_leading_zero_bits_in_digit -set_digit_nat -set_to_zero_nat -shift_left_nat -shift_right_nat -sub_nat diff --git a/maccaml/prim_str b/maccaml/prim_str deleted file mode 100644 index 00e31ec57..000000000 --- a/maccaml/prim_str +++ /dev/null @@ -1,8 +0,0 @@ -str_compile_regexp -str_string_match -str_string_partial_match -str_search_forward -str_search_backward -str_beginning_group -str_end_group -str_replacement_text diff --git a/maccaml/print.c b/maccaml/print.c deleted file mode 100644 index 43263add9..000000000 --- a/maccaml/print.c +++ /dev/null @@ -1,131 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1999 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -static short (*get_npages) (THPrint printrec); -static short (*draw_page) (THPrint printrec, TPPrPort port, int pagenum); - -static THPrint curjobprintrec = NULL; - -/* - dojobdialog = 0 -> no job dialog (use default settings) - dojobdialog = 1 -> use job dialog - dojobdialog = 2 -> no job dialog (use previous dialog settings) -*/ -static short print_loop (int dojobdialog, THPrint docprintrec) -{ - short ncopies, fstpage, lstpage, npages; - OSErr err; - GrafPtr saveport; - TPPrPort printerport; - TPrStatus prstatus; - int copy, page, pgrun; - - GetPort (&saveport); - - PrOpen (); - err = PrError (); if (err != noErr) goto failed_PrOpen; - - PrValidate (docprintrec); - err = PrError (); if (err != noErr) goto failed_PrValidate; - - npages = (*get_npages) (docprintrec); - switch (dojobdialog){ - case 0: - if (curjobprintrec != NULL) DisposeHandle ((Handle) curjobprintrec); - curjobprintrec = (THPrint) NewHandle (sizeof (TPrint)); - if (curjobprintrec == NULL) goto failed_alloc_curjobprintrec; - PrintDefault (curjobprintrec); - PrJobMerge (curjobprintrec, docprintrec); - break; - case 1: - err = PrJobDialog (docprintrec); - if (err) goto failed_PrJobDialog; - if (curjobprintrec != NULL) DisposeHandle ((Handle) curjobprintrec); - curjobprintrec = docprintrec; - HandToHand ((Handle *) &curjobprintrec); - if (curjobprintrec == NULL) goto failed_alloc_curjobprintrec; - break; - case 2: - PrJobMerge (curjobprintrec, docprintrec); - break; - } - ncopies = (*docprintrec)->prJob.iCopies; - fstpage = (*docprintrec)->prJob.iFstPage; - lstpage = (*docprintrec)->prJob.iLstPage; - if (lstpage > npages) lstpage = npages; - - /* XXX Should display a status dialog box and use a IdleProc function */ - - for (copy = 0; copy < ncopies; copy++){ - printerport = PrOpenDoc (docprintrec, NULL, NULL); - err = PrError (); if (err != noErr) goto failed_PrOpenDoc; - pgrun = 0; - for (page = fstpage; page <= lstpage; page++){ - if (pgrun >= iPFMaxPgs){ - PrCloseDoc (printerport); - err = PrError (); if (err != noErr) goto failed_PrCloseDoc; - if ((*docprintrec)->prJob.bJDocLoop == bSpoolLoop){ - PrPicFile (docprintrec, NULL, NULL, NULL, &prstatus); - } - printerport = PrOpenDoc (docprintrec, NULL, NULL); - err = PrError (); if (err != noErr) goto failed_PrOpenDoc; - pgrun = 0; - } - PrOpenPage (printerport, NULL); - err = PrError (); if (err != noErr) goto failed_PrOpenPage; - err = (*draw_page) (docprintrec, printerport, page); - if (err != noErr) goto failed_draw_page; - PrClosePage (printerport); - ++ pgrun; - } - PrCloseDoc (printerport); - err = PrError (); if (err != noErr) goto failed_PrCloseDoc; - if ((*docprintrec)->prJob.bJDocLoop == bSpoolLoop){ - PrPicFile (docprintrec, NULL, NULL, NULL, &prstatus); - } - } - PrClose (); - /*XXX close status dialog box here */ - SetPort (saveport); - return noErr; - - failed_draw_page: - PrClosePage (printerport); - /* fall through */ - failed_PrOpenPage: - PrCloseDoc (printerport); - /* fall through */ - failed_PrOpenDoc: - failed_PrCloseDoc: - failed_alloc_curjobprintrec: - failed_PrJobDialog: - failed_PrValidate: - PrClose (); - /* fall through */ - failed_PrOpen: - return err; -} - -void FilePageSetup (void) -{ - XXX (); -} - -void FilePrint (void) -{ - XXX (); -} diff --git a/maccaml/scroll.c b/maccaml/scroll.c deleted file mode 100644 index e91a79bb0..000000000 --- a/maccaml/scroll.c +++ /dev/null @@ -1,325 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -WEScrollUPP scrollFollowUPP; -static ControlActionUPP scrollUPP, scrollGraphUPP; - -static long scroll_step = 1; - -/* Bring destRect in sync with the scroll bars. */ -static void AdjustView (WStatusH st) -{ - WEReference we = (*st)->we; - ControlHandle hbar = (*st)->scrollbars[H]; - ControlHandle vbar = (*st)->scrollbars[V]; - LongRect view, dest; - long dx, dy; - - Assert (hbar != NULL && vbar != NULL); - if ((*st)->kind != kWinGraphics){ - Assert (we != NULL); - WEGetViewRect (&view, we); - WEGetDestRect (&dest, we); - dx = view.left - dest.left - LCGetValue (hbar); - dy = view.top - dest.top - LCGetValue (vbar); - WEScroll (dx, dy, we); - }else{ - dx = (*st)->viewrect.left - (*st)->destrect.left - LCGetValue (hbar); - dy = (*st)->viewrect.top - (*st)->destrect.top - LCGetValue (vbar); - GraphScroll (dx, dy); - } -} - -/* Recompute the max values and the thumb positions. */ -void AdjustScrollBars (WindowPtr w) -{ - GrafPtr saveport; - WStatusH st; - LongRect view, dest; - long xmax, xval, ymax, yval; - long h; - - PushWindowPort (w); - - st = WinGetStatus (w); - Assert (st != NULL); - if ((*st)->kind == kWinGraphics){ - view = (*st)->viewrect; - dest = (*st)->destrect; - }else{ - WEGetViewRect (&view, (*st)->we); - WEGetDestRect (&dest, (*st)->we); - } - - yval = view.top - dest.top; - ymax = yval + (dest.bottom - view.bottom); - if (ymax < 0) ymax = 0; - - /* round up to nearest line_height */ - h = (*st)->line_height; - ymax = (ymax + h - 1) / h * h; - - LCSetMax ((*st)->scrollbars[V], ymax); - LCSetValue ((*st)->scrollbars[V], yval); - - xval = view.left - dest.left; - xmax = xval + (dest.right - view.right); - if (xmax < 0) xmax = 0; - LCSetMax ((*st)->scrollbars[H], xmax); - LCSetValue ((*st)->scrollbars[H], xval); - - if (xval > xmax || yval > ymax) AdjustView (st); - - PopPort; -} - -/* Callback procedure for auto-scrolling the text. (called by WASTE) */ -static pascal void Follow (WEReference we) -{ - WindowPtr w; - OSErr err; - - err = WEGetInfo (weRefCon, &w, we); - Assert (err == noErr); - AdjustScrollBars (w); -} - -/* Callback procedure for scrolling the text. (called by the Control Manager) */ -static pascal void Scroll (ControlHandle bar, ControlPartCode partcode) -{ - long value; - - if (partcode == kControlNoPart) return; - value = LCGetValue (bar); - if (value < LCGetMax (bar) && scroll_step > 0 - || value > 0 && scroll_step < 0){ - LCSetValue (bar, value + scroll_step); - AdjustView (WinGetStatus (FrontWindow ())); - } -} - -/* Callback procedure for scrolling the graphics. */ -static pascal void ScrollGraph (ControlHandle bar, ControlPartCode partcode) -{ - long value; - - if (partcode == kControlNoPart) return; - value = LCGetValue (bar); - if (value < LCGetMax (bar) && scroll_step > 0 - || value > 0 && scroll_step < 0){ - LCSetValue (bar, value + scroll_step); - AdjustView (WinGetStatus (FrontWindow ())); - } -} - -OSErr InitialiseScroll (void) -{ - scrollFollowUPP = NewWEScrollProc (Follow); - scrollUPP = NewControlActionProc (Scroll); - scrollGraphUPP = NewControlActionProc (ScrollGraph); - return noErr; -} - -/* Calculate the contents rectangle for a text window with scrollbars. */ -void ScrollCalcText (WindowPtr w, Rect *r) -{ - *r = w->portRect; - r->bottom -= kScrollBarWidth; - r->right -= kScrollBarWidth; - InsetRect (r, kTextMarginH, kTextMarginV); -} - -/* Calculate the contents rectangle for the graphics window. */ -void ScrollCalcGraph (WindowPtr w, Rect *r) -{ - *r = w->portRect; - r->bottom -= kScrollBarWidth; - r->right -= kScrollBarWidth; -} - -void ScrollDoClick (WindowPtr w, Point where, EventModifiers mods) -{ - switch (WinGetKind (w)){ - case kWinToplevel: - case kWinDocument: { - WEReference we = WinGetWE (w); - WStatusH st = WinGetStatus (w); - LongRect view; - ControlPartCode partcode; - ControlHandle bar; - long scrolldelta, pagesize; - - Assert (we != NULL && st != NULL); - WEGetViewRect (&view, we); - partcode = FindControl (where, w, &bar); - if (bar == (*st)->scrollbars[V]){ - pagesize = view.bottom - view.top; - scrolldelta = (*st)->line_height; - }else if (bar == (*st)->scrollbars [H]){ - pagesize = view.right - view.left; - scrolldelta = kHorizScrollDelta; - }else{ - return; - } - switch (partcode){ - case kControlIndicatorPart: - TrackControl (bar, where, NULL); - LCSynch (bar); - AdjustView (st); - return; - case kControlUpButtonPart: - scroll_step = - (mods & optionKey ? 1 : scrolldelta); - break; - case kControlDownButtonPart: - scroll_step = + (mods & optionKey ? 1 : scrolldelta); - break; - case kControlPageUpPart: - scroll_step = - (pagesize - scrolldelta) / scrolldelta * scrolldelta; - break; - case kControlPageDownPart: - scroll_step = + (pagesize - scrolldelta) / scrolldelta * scrolldelta; - break; - } - TrackControl (bar, where, scrollUPP); - break; - } - case kWinGraphics: { - WStatusH st = WinGetStatus (w); - ControlPartCode partcode; - ControlHandle bar; - long scrolldelta, pagesize; - - Assert (st != NULL); - partcode = FindControl (where, w, &bar); - scrolldelta = kGraphScrollDelta; - if (bar == (*st)->scrollbars[V]){ - pagesize = (*st)->viewrect.bottom - (*st)->viewrect.top; - }else if (bar == (*st)->scrollbars [H]){ - pagesize = (*st)->viewrect.right - (*st)->viewrect.left; - }else{ - return; - } - switch (partcode){ - case kControlIndicatorPart: - TrackControl (bar, where, NULL); - LCSynch (bar); - AdjustView (st); - return; - case kControlUpButtonPart: - scroll_step = - (mods & optionKey ? 1 : scrolldelta); - break; - case kControlDownButtonPart: - scroll_step = + (mods & optionKey ? 1 : scrolldelta); - break; - case kControlPageUpPart: - scroll_step = - (pagesize - scrolldelta) / scrolldelta * scrolldelta; - break; - case kControlPageDownPart: - scroll_step = + (pagesize - scrolldelta) / scrolldelta * scrolldelta; - break; - } - TrackControl (bar, where, scrollGraphUPP); - break; - } - case kWinPrefs: - case kWinAbout: - case kWinClipboard: - default: - Assert (0); /* These windows have no scroll bars. */ - break; - } -} - -/* Calculate and set the position of the scroll bars for w. - Draw the scroll bars and the grow icon, and validate their region. - Where applicable, this function must be called after WinWEResize or - WinGraphResize. - */ -void ScrollNewSize (WindowPtr w) -{ - Rect port = w->portRect; - WStatusH st = WinGetStatus (w); - Rect r; - ControlHandle bar; - GrafPtr saveport; - - Assert (st != NULL); - - PushWindowPort (w); - - bar = (*st)->scrollbars[H]; - r.left = port.left - 1; - r.right = port.right - kScrollBarWidth + 1; - r.top = port.bottom - kScrollBarWidth; - r.bottom = port.bottom + 1; - HideControl (bar); /* Invalidates the rectangle */ - MoveControl (bar, r.left, r.top); - SizeControl (bar, r.right - r.left, r.bottom - r.top); - /* Only show the scrollbar if the window is active. */ - if (FrontWindow () == w){ - ValidRect (&r); - ShowControl (bar); - } - - bar = (*st)->scrollbars[V]; - r.left = port.right - kScrollBarWidth; - r.right = port.right + 1; - r.top = port.top - 1; - r.bottom = port.bottom - kScrollBarWidth + 1; - HideControl (bar); /* Invalidates the rectangle */ - MoveControl (bar, r.left, r.top); - SizeControl (bar, r.right - r.left, r.bottom - r.top); - /* Only show the scrollbar if the window is active. */ - if (FrontWindow () == w){ - ValidRect (&r); - ShowControl (bar); - } - - r = w->portRect; - r.left = r.right - kScrollBarWidth; - r.top = r.bottom - kScrollBarWidth; - ValidRect (&r); - DrawGrowIcon (w); - - AdjustScrollBars (w); - - PopPort; -} - -/* Return 1 if the vertical scroll bar is at its max setting, 0 otherwise. - (With 1 line fudge factor.) -*/ -int ScrollAtEnd (WindowPtr w) -{ - WStatusH st = WinGetStatus (w); - long val, max; - - Assert (st != NULL); - val = LCGetValue ((*st)->scrollbars[V]); - max = LCGetMax ((*st)->scrollbars[V]); - return val >= max - (*st)->line_height; -} - -/* Scroll to the bottom of the document. */ -void ScrollToEnd (WindowPtr w) -{ - WStatusH st = WinGetStatus (w); - - Assert (st != NULL); - LCSetValue ((*st)->scrollbars[V], LCGetMax ((*st)->scrollbars[V])); - AdjustView (st); -} diff --git a/maccaml/windows.c b/maccaml/windows.c deleted file mode 100644 index 73d8b297f..000000000 --- a/maccaml/windows.c +++ /dev/null @@ -1,852 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ -/* */ -/* Copyright 1998 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include "main.h" - -WindowPtr winToplevel = NULL; -WindowPtr winGraphics = NULL; -long wintopfrontier = 0; - -static WELineBreakUPP charBreakUPP; - -/* WE hook for breaking line at char (not word) boundaries. */ -static pascal StyledLineBreakCode CharBreak - (Ptr pText, SInt32 textLength, SInt32 textStart, SInt32 textEnd, - Fixed *textWidth, SInt32 *textOffset, WEHandle hWE) -{ -#pragma unused (textLength, hWE) - long base = textStart; - long len = textEnd - textStart; - long l = 0; - long i; - short w; - short text_width = HiWord (*textWidth); - - while (len > 0){ - if (pText [base] == '\n'){ - *textOffset = base + 1; - return smBreakWord; - } - - l = len >= 128 ? 128 : len; - for (i = 0; i < l; i++){ - if (pText [base + i] == '\n') l = i; - } - - w = TextWidth (pText, base, l); - if (w > text_width){ - short locs [129]; - long i; - MeasureText (l, pText + base, (Ptr) locs); - for (i = 0; i < l; i++){ - if (locs [i+1] > text_width) break; - } - *textOffset = base + i; - return smBreakChar; - } - - len -= l; - base += l; - text_width -= w; - } - *textOffset = base; - *textWidth = FixRatio (text_width, 1); - return smBreakOverflow; -} - -static void UpdateToplevelRO (void) -{ - WEReference we = WinGetWE (winToplevel); - long selstart, selend; - - Assert (we != NULL); - WEGetSelection (&selstart, &selend, we); - if (selstart >= wintopfrontier){ - WEFeatureFlag (weFReadOnly, weBitClear, we); - }else{ - WEFeatureFlag (weFReadOnly, weBitSet, we); - } -} - -OSErr InitialiseWindows (void) -{ - charBreakUPP = NewWELineBreakProc (CharBreak); - return noErr; -} - -/* The window becomes active if [activate] is true, - inactive if false. -*/ -void WinActivateDeactivate (int activate, WindowPtr w) -{ - WStatusH st = WinGetStatus (w); - WEHandle we = WinGetWE (w); - VHSelect axis; - GrafPtr saveport; - - if (st == NULL) return; - - PushWindowPort (w); - - if (we != NULL){ - if (activate) WEActivate (we); else WEDeactivate (we); - } - for (axis = V; axis <= H; axis++){ - ControlHandle bar = (*st)->scrollbars[axis]; - if (bar != NULL){ - if (activate) ShowControl (bar); else HideControl (bar); - /* We sometimes get an activate without any previous deactivate. - In this case, ShowControl will do nothing, but the control - still needs to be redrawn. It will be done with the normal - update mechanism. In the normal case, the control will be - drawn twice, but what the hell. */ - /* ValidRect (&(*bar)->contrlRect); */ - } - } - /* There seems to be a bug in DrawGrowIcon that makes it draw an icon - for non-resizable windows when processing a suspend/resume event. - */ - if (GetWVariant (w) != noGrowDocProc) DrawGrowIcon (w); - - PopPort; -} - -void WinAdvanceTopFrontier (long length) -{ - wintopfrontier += length; - UpdateToplevelRO (); -} - -OSErr WinAllocStatus (WindowPtr w) -{ - WStatusH st = NULL; - OSErr err; - struct menuflags f; - - err = AllocHandle (sizeof (struct WStatus), (Handle *) &st); - if (err != noErr) return err; - HLock ((Handle) st); - (*st)->kind = kWinUninitialised; - (*st)->datarefnum = -1; - (*st)->resrefnum = -1; - (*st)->basemodcount = 0; - f.save = f.save_as = f.revert = f.page_setup = f.print = f.cut = f.copy = - f.paste = f.clear = f.select_all = f.find = f.replace = 0; - (*st)->menuflags = f; - (*st)->scrollbars [V] = NULL; - (*st)->scrollbars [H] = NULL; - /* XXX initialiser les rectangles */ - (*st)->line_height = 1; - (*st)->we = NULL; - HUnlock ((Handle) st); - SetWRefCon (w, (long) st); - return noErr; -} - -void WinCloseGraphics (void) -{ - Rect r; - GrafPtr saveport; - - Assert (winGraphics != NULL); - - PushWindowPort (winGraphics); - r = winGraphics->portRect; - LocalToGlobalRect (&r); - prefs.graphpos = r; - PopPort; - - DisposeWindow (winGraphics); - winGraphics = NULL; -} - -void WinCloseToplevel (void) -{ - Rect r; - GrafPtr saveport; - - if (winToplevel != NULL){ - PushWindowPort (winToplevel); - - r = winToplevel->portRect; - LocalToGlobalRect (&r); - prefs.toppos = r; - if (prefs.asksavetop){ - XXX (); - } - PopPort; - } - DisposeWindow (winToplevel); - winToplevel = NULL; -} - -void WinDoContentClick (EventRecord *event, WindowPtr w) -{ - int k = WinGetKind (w); - int inback = !IsWindowHilited (w); - - switch (k){ - - case kWinUnknown: - case kWinAbout: - case kWinClipboard: - if (inback) SelectWindow (w); - break; - - case kWinGraphics: { - Point hitPt = event->where; - GrafPtr saveport; - - PushWindowPort (w); - GlobalToLocal (&hitPt); - if (inback){ - SelectWindow (w); - }else{ - Rect r; - ScrollCalcGraph (w, &r); - if (PtInRect (hitPt, &r)){ - GraphGotEvent (event); - }else{ - ScrollDoClick (w, hitPt, event->modifiers); - } - } - PopPort; - break; - } - - case kWinToplevel: - case kWinDocument: { - int handleit = !inback; - GrafPtr saveport; - Point hitPt = event->where; - WEReference we = WinGetWE (w); - - Assert (we != NULL); - PushWindowPort (w); - GlobalToLocal (&hitPt); - - if (inback && gHasDragAndDrop){ - long selStart, selEnd; - RgnHandle selRgn; - - WEGetSelection (&selStart, &selEnd, we); - selRgn = WEGetHiliteRgn (selStart, selEnd, we); - handleit = PtInRgn (hitPt, selRgn) && WaitMouseMoved (event->where); - DisposeRgn (selRgn); - } - if (!handleit){ - SelectWindow (w); - }else{ - Rect r; - ScrollCalcText (w, &r); - InsetRect (&r, -kTextMarginH, 0); - if (PtInRect (hitPt, &r)){ - WEClick (hitPt, event->modifiers, event->when, we); - if (w == winToplevel) UpdateToplevelRO (); - }else{ - ScrollDoClick (w, hitPt, event->modifiers); - } - } - PopPort; - break; - } - - default: - Assert (0); /* There is no other window kind. */ - break; - } -} - -OSErr WinDoClose (ClosingOption close, WindowPtr w) -{ - int k = WinGetKind (w); - OSErr err; - WStatusH st; - WEHandle we; - - switch (k){ - - case kWinUnknown: - case kWinToplevel: - default: - Assert (0); - return noErr; - - case kWinAbout: - CloseAboutBox (w); - return noErr; - - case kWinGraphics: - HideWindow (winGraphics); - return noErr; - - case kWinDocument: - err = FileDoClose (w, close); - if (err != noErr) return err; - st = WinGetStatus (w); Assert (st != NULL); - we = WinGetWE (w); Assert (we != NULL); - LCDetach ((*st)->scrollbars[V]); - LCDetach ((*st)->scrollbars[H]); - WEDispose (we); - DisposeHandle ((Handle) st); - MenuWinRemove (w); - DisposeWindow (w); - return noErr; - - case kWinClipboard: - XXX (); - return noErr; - } -} - -void WinDoDrag (Point where, WindowPtr w) -{ - Rect limits; - - limits = (*GetGrayRgn ())->rgnBBox; - InsetRect (&limits, 4, 4); - DragWindow (w, where, &limits); - if (w == winGraphics) GraphNewSizePos (); -} - -/* Invalidate the bottom and right margins. */ -static void WinInvalMargins (WindowPtr w) -{ - Rect r; - - r = w->portRect; - r.right -= kScrollBarWidth; - r.left = r.right - kTextMarginH; - r.bottom -= kScrollBarWidth; - InvalRect (&r); - r = w->portRect; - r.bottom -= kScrollBarWidth; - r.top = r.bottom - kTextMarginV; - r.right -= kScrollBarWidth; - InvalRect (&r); -} - -static void WinGraphNewSize (WindowPtr w) -{ - Rect r; - WStatusH st = WinGetStatus (w); - - Assert (st != NULL); - ScrollCalcGraph (w, &r); - WERectToLongRect (&r, &(*st)->viewrect); -} - -static void WinWENewSize (WindowPtr w, WEReference we) -{ - Rect r; - LongRect lr; - - ScrollCalcText (w, &r); - WERectToLongRect (&r, &lr); - WESetViewRect (&lr, we); - WEGetDestRect (&lr, we); - if (lr.right - lr.left != r.right - r.left){ - lr.right = lr.left + r.right - r.left; - WESetDestRect (&lr, we); - WECalText (we); - InvalRect (&r); - } -} - -static void WinResize (WindowPtr w, short x, short y) -{ - GrafPtr saveport; - WEReference we = WinGetWE (w); - Rect r; - - PushWindowPort (w); - - /* Invalidate the old grow icon and the text margin. */ - r = w->portRect; - r.left = r.right - kScrollBarWidth; - r.top = r.bottom - kScrollBarWidth; - InvalRect (&r); - if (we != NULL) WinInvalMargins (w); - - SizeWindow (w, x, y, true); - - /* Redraw the controls and invalidate whatever is needed. */ - if (we != NULL){ - WinWENewSize (w, we); - WinInvalMargins (w); - } - if (w == winGraphics) WinGraphNewSize (w); - ScrollNewSize (w); - PopPort; -} - -void WinDoGrow (Point where, WindowPtr w) -{ - Rect r; - long newsize; - short x, y; - WStatusH st; - - switch (WinGetKind (w)){ - - case kWinUnknown: - case kWinAbout: - case kWinPrefs: - Assert (0); - break; - - case kWinToplevel: - case kWinDocument: - case kWinClipboard: - SetRect (&r, kMinWindowWidth, kMinWindowHeight, SHRT_MAX, SHRT_MAX); - break; - - case kWinGraphics: - st = WinGetStatus (w); - Assert (st != NULL); - x = (*st)->destrect.right - (*st)->destrect.left + kScrollBarWidth + 1; - y = (*st)->destrect.bottom - (*st)->destrect.top + kScrollBarWidth + 1; - SetRect (&r, kMinWindowWidth, kMinWindowHeight, x, y); - break; - } - newsize = GrowWindow (w, where, &r); - if (newsize != 0) WinResize (w, LoWord (newsize), HiWord (newsize)); -} - -void WinDoIdle (WindowPtr w) -{ - WEHandle we = WinGetWE (w); - - if (we != NULL) WEIdle (&evtSleep, we); else evtSleep = LONG_MAX; -} - -void WinDoKey (WindowPtr w, short chr, EventRecord *e) -{ - WEReference we; - long selstart, selend; - - switch (WinGetKind (w)){ - - case kWinToplevel: - we = WinGetWE (w); Assert (we != NULL); - WEGetSelection (&selstart, &selend, we); - if (chr == charBackspace || chr == charDelete){ - if (selstart < wintopfrontier || selend == wintopfrontier) break; - } - if (chr == charEnter){ - long sel = WEGetTextLength (we); - WESetSelection (sel, sel, we); - chr = charReturn; - } - if (chr != charArrowLeft && chr != charArrowRight - && chr != charArrowUp && chr != charArrowDown - && selstart < wintopfrontier){ - selstart = selend = WEGetTextLength (we); - WESetSelection (selstart, selend, we); - WEFeatureFlag (weFReadOnly, weBitClear, we); - } - if (selstart == selend){ - WESetStyle (weDoFont + weDoFace + weDoSize + weDoColor + weDoReplaceFace, - &prefs.unread, we); - } - /*XXX intercepter option-up/down, command-up/down, option-command-up/down */ - WEKey (chr, e->modifiers, we); - UpdateToplevelRO (); - break; - - case kWinDocument: - we = WinGetWE (w); Assert (we != NULL); - if (chr == charEnter){ - XXX (); /* XXX envoyer la phrase courante au toplevel */ - } - /*XXX intercepter option-up/down, command-up/down, option-command-up/down - -> myWEKey pour partager avec le toplevel */ - WEKey (chr, e->modifiers, we); - break; - - case kWinGraphics: - GraphGotEvent (e); - break; - - case kWinAbout: - CloseAboutBox (w); - break; - - case kWinPrefs: - XXX (); - break; - - case kWinClipboard: - break; - - default: - Assert (0); - break; - } -} - -void WinDoZoom (WindowPtr w, short partCode) -{ -#pragma unused (w, partCode) - XXX (); -} - -/* Return a pointer to the window's descriptor record, - NULL if there is none or w is NULL. -*/ -WStatusH WinGetStatus (WindowPtr w) -{ - WStatusH st; - short wk; - - if (w == NULL) return NULL; - wk = GetWindowKind (w); - if (wk != kApplicationWindowKind && wk != kDialogWindowKind) return NULL; - st = (WStatusH) GetWRefCon (w); - Assert (st != NULL); - return st; -} - -WEHandle WinGetWE (WindowPtr w) -{ - WStatusH st = WinGetStatus (w); - - if (st == NULL) return NULL; - return (*st)->we; -} - -int WinGetKind (WindowPtr w) -{ - WStatusH st = WinGetStatus (w); - - if (st == NULL) return kWinUnknown; - return (*st)->kind; -} - -/* Initialize all the data structures associated with a text - window: WE record and scroll bars. -*/ -static OSErr WinTextInit (WindowPtr w, TextStyle *style) -{ - OSErr err; - WEReference we = NULL; - WStatusH st = NULL; - Rect viewrect; - LongRect lviewrect, ldestrect; - WERunInfo runinfo; - int i; - ControlHandle bar; - - err = WinAllocStatus (w); - if (err != noErr) goto failed; - - st = WinGetStatus (w); Assert (st != NULL); - HLock ((Handle) st); - - ScrollCalcText (w, &viewrect); - WERectToLongRect (&viewrect, &lviewrect); - ldestrect = lviewrect; - ldestrect.right = ldestrect.left + ktextwidth; - err = WENew (&ldestrect, &lviewrect, - weDoAutoScroll + weDoOutlineHilite + weDoUndo - + weDoDragAndDrop + weDoUseTempMem + weDoDrawOffscreen - + weDoMonoStyled, - &we); - if (err != noErr) goto failed; - WESetAlignment (weFlushLeft, we); - WESetStyle (weDoFont + weDoFace + weDoSize + weDoColor + weDoReplaceFace, - style, we); - err = WESetInfo (weRefCon, &w, we); Assert (err == noErr); - err = WESetInfo (weScrollProc, &scrollFollowUPP, we); Assert (err == noErr); - err = WESetInfo (weLineBreakHook, &charBreakUPP, we); Assert (err == noErr); - /* XXX ajouter un hiliteDropAreaHook pour les marges asymetriques. */ - (*st)->we = we; - - WEGetRunInfo (0, &runinfo, we); - (*st)->line_height = runinfo.runHeight; - - (*st)->scrollbars [H] = (*st)->scrollbars [V] = NULL; - for (i = V; i <= H; i++){ - bar = GetNewControl (kScrollBarTemplate, w); - if (bar == NULL){ err = memFullErr; goto failed; } - err = LCAttach (bar); - if (err != noErr) goto failed; - (*st)->scrollbars [i] = bar; - } - - HUnlock ((Handle) st); - - WinWENewSize (w, we); - ScrollNewSize (w); - - return noErr; - - failed: - if (we != NULL) WEDispose (we); - if (st != NULL){ - if ((*st)->scrollbars [V] != NULL) LCDetach ((*st)->scrollbars[V]); - if ((*st)->scrollbars [H] != NULL) LCDetach ((*st)->scrollbars[H]); - DisposeHandle ((Handle) st); - } - return err; -} - -/* Open a new empty document window. - In case of failure, display an alert and return NULL. -*/ -WindowPtr WinOpenDocument (StringPtr name) -{ - WStatusH st = NULL; - WindowPtr w = NULL; - OSErr err; - - w = GetNewCWindow (kDocumentWinTemplate, NULL, (WindowPtr) -1L); - if (w == NULL){ err = memFullErr; goto failed; } - - SetWTitle (w, name); - ShowWindow (w); - SetPort (w); - - err = WinTextInit (w, &prefs.text); - if (err != noErr) goto failed; - - st = WinGetStatus (w); Assert (st != NULL); - (*st)->kind = kWinDocument; - (*st)->menuflags.save_as = (*st)->menuflags.page_setup = - (*st)->menuflags.print = (*st)->menuflags.paste = (*st)->menuflags.find = - (*st)->menuflags.replace = 1; - - err = MenuWinAdd (w); - if (err != noErr) goto failed; - - return w; - - failed: - if (w != NULL) DisposeWindow (w); /* Also deallocates the scroll bars. */ - ErrorAlertGeneric (err); - return NULL; -} - -OSErr WinOpenGraphics (long width, long height) -{ - WindowPtr w = NULL; - WStatusH st = NULL; - OSErr err; - Rect r; - int i; - ControlHandle bar; - long ww, hh; - - w = GetNewCWindow (kGraphicsWinTemplate, NULL, (WindowPtr) -1L); - if (w == NULL){ err = memFullErr; goto failed; } - - /*XXX Calculer si la fenetre est hors de l'ecran -> stdstate */ - MoveWindow (w, prefs.graphpos.left, prefs.graphpos.top, false); - ww = prefs.graphpos.right - prefs.graphpos.left; - hh = prefs.graphpos.bottom - prefs.graphpos.top; - if (ww < kMinWindowWidth) ww = kMinWindowWidth; - if (ww > width + kScrollBarWidth) ww = width + kScrollBarWidth; - if (hh < kMinWindowHeight) hh = kMinWindowHeight; - if (hh > height + kScrollBarWidth) hh = height + kScrollBarWidth; - SizeWindow (w, ww, hh, false); - ShowWindow (w); - SetPort (w); - - err = WinAllocStatus (w); - if (err != noErr) goto failed; - - st = WinGetStatus (w); Assert (st != NULL); - HLock ((Handle) st); - - ScrollCalcGraph (w, &r); - WERectToLongRect (&r, &(*st)->viewrect); - r.right = r.left + width; - r.bottom = r.top + height; - WERectToLongRect (&r, &(*st)->destrect); - st = WinGetStatus (w); Assert (st != NULL); - (*st)->kind = kWinGraphics; - (*st)->menuflags.save_as = (*st)->menuflags.page_setup = - (*st)->menuflags.print = 1; - - (*st)->scrollbars [H] = (*st)->scrollbars [V] = NULL; - for (i = V; i <= H; i++){ - bar = GetNewControl (kScrollBarTemplate, w); - if (bar == NULL){ err = memFullErr; goto failed; } - err = LCAttach (bar); - if (err != noErr) goto failed; - (*st)->scrollbars [i] = bar; - } - - HUnlock ((Handle) st); - - ScrollNewSize (w); - winGraphics = w; - return noErr; - - failed: - if (st != NULL){ - if ((*st)->scrollbars [V] != NULL) LCDetach ((*st)->scrollbars[V]); - if ((*st)->scrollbars [H] != NULL) LCDetach ((*st)->scrollbars[H]); - DisposeHandle ((Handle) st); - } - winGraphics = NULL; - if (w != NULL) DisposeWindow (w); /* Also deallocates the scroll bars. */ - return err; -} - -OSErr WinOpenToplevel (void) -{ - WindowPtr w = NULL; - WStatusH st = NULL; - WEHandle we = NULL; - OSErr err; - - /* Open the toplevel behind all other windows. */ - w = GetNewCWindow (kToplevelWinTemplate, NULL, NULL); - if (w == NULL){ err = memFullErr; goto failed; } - - /*XXX Calculer si la fenetre est hors de l'ecran -> stdstate */ - MoveWindow (w, prefs.toppos.left, prefs.toppos.top, false); - SizeWindow (w, prefs.toppos.right - prefs.toppos.left, - prefs.toppos.bottom - prefs.toppos.top, false); - ShowWindow (w); - SetPort (w); - - err = WinTextInit (w, &prefs.unread); - if (err != noErr) goto failed; - - st = WinGetStatus (w); Assert (st != NULL); - (*st)->kind = kWinToplevel; - (*st)->menuflags.save_as = (*st)->menuflags.page_setup = - (*st)->menuflags.print = (*st)->menuflags.find = 1; - - we = WinGetWE (w); Assert (we != NULL); - WEFeatureFlag (weFUndo, weBitClear, we); - WEFeatureFlag (weFMonoStyled, weBitClear, we); - - winToplevel = w; - return noErr; - - failed: - winToplevel = NULL; - if (w != NULL) DisposeWindow (w); /* Also deallocates the scroll bars. */ - ErrorAlertGeneric (err); - return err; -} - -void WinClipboardStdState (Rect *r) -{ - *r = (*GetGrayRgn ())->rgnBBox; - r->bottom -= kWinBorderSpace; - r->top = r->bottom - kMinWindowHeight; - r->left += kWinBorderSpace; - r->right -= 100; -} - -void WinGraphicsStdState (Rect *r) -{ - if (winGraphics == NULL){ - *r = (*GetGrayRgn ())->rgnBBox; - r->top += kTitleBarSpace; - r->left += kWinBorderSpace; - r->bottom -= kWinBorderSpace; - r->right -= kWinBorderSpace; - }else{ - /* XXX To do for zoom */ - Assert (0); - } -} - -void WinToplevelStdState (Rect *r) -{ - *r = (*GetGrayRgn ())->rgnBBox; - r->top += kTitleBarSpace; - r->bottom -= kPowerStripSpace; - r->left += kWinBorderSpace; - if (r->right > r->left + 506) r->right = r->left + 506; -} - -void WinUpdate (WindowPtr w) -{ - int k = WinGetKind (w); - WEHandle we = WinGetWE (w); - GrafPtr saveport; - RgnHandle updateRgn; - - Assert (k != kWinUnknown); - - PushWindowPort (w); - BeginUpdate (w); - updateRgn = w->visRgn; - if (!EmptyRgn (updateRgn)){ - EraseRgn (updateRgn); - UpdateControls (w, updateRgn); - DrawGrowIcon (w); - if (k == kWinGraphics) GraphUpdate (); - if (we != NULL) WEUpdate (updateRgn, we); - } - EndUpdate (w); - PopPort; -} - -void WinUpdateStatus (WindowPtr w) -{ - long selstart, selend; - WStatusH st = WinGetStatus (w); - WEHandle we = WinGetWE (w); - int readonly; - - if (st == NULL) return; - switch ((*st)->kind){ - case kWinUnknown: - case kWinAbout: - case kWinPrefs: - case kWinClipboard: - case kWinGraphics: - break; - case kWinToplevel: - Assert (we != NULL); - WEGetSelection (&selstart, &selend, we); - if (selend == selstart){ - (*st)->menuflags.cut = 0; - (*st)->menuflags.copy = 0; - (*st)->menuflags.clear = 0; - }else{ - (*st)->menuflags.copy = 1; - (*st)->menuflags.cut = (*st)->menuflags.clear = - selstart >= wintopfrontier; - } - (*st)->menuflags.select_all = WEGetTextLength (we) != 0; - readonly = WEFeatureFlag (weFReadOnly, weBitTest, we); - WEFeatureFlag (weFReadOnly, weBitClear, we); - (*st)->menuflags.paste = WECanPaste (we); - if (readonly) WEFeatureFlag (weFReadOnly, weBitSet, we); - break; - case kWinDocument: - Assert (we != NULL); - WEGetSelection (&selstart, &selend, we); - (*st)->menuflags.save = (*st)->menuflags.revert = - (*st)->basemodcount != WEGetModCount (we); - (*st)->menuflags.cut = (*st)->menuflags.copy = (*st)->menuflags.clear = - selstart != selend; - (*st)->menuflags.paste = WECanPaste (we); - (*st)->menuflags.select_all = WEGetTextLength (we) != 0; - break; - case kWinUninitialised: - default: - Assert (0); - break; - } -} diff --git a/otherlibs/bigarray/Makefile.Mac b/otherlibs/bigarray/Makefile.Mac deleted file mode 100644 index 7f449f997..000000000 --- a/otherlibs/bigarray/Makefile.Mac +++ /dev/null @@ -1,53 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Moscova, INRIA Rocquencourt # -# # -# Copyright 2000 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../../LICENSE. # -# # -######################################################################### - -# $Id$ - -PPCC = mrc -PPCCOptions = -i :::byterun:,:::config: -w 35 {cdbgflag} - -CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: -I ::unix: - -PPCC_OBJS = bigarray_stubs.c.x mmap_unix.c.x - -CAML_OBJS = bigarray.cmo - -all libbigarray.x bigarray.cma - -libbigarray.x {PPCC_OBJS} - ppclink {ldbgflag} -xm library -o libbigarray.x {PPCC_OBJS} - -bigarray.cma {CAML_OBJS} - {CAMLC} -a -linkall -o bigarray.cma {CAML_OBJS} - -install - duplicate -y bigarray.cmi bigarray.mli libbigarray.x - bigarray.cma "{LIBDIR}" - -partialclean - delete -y .cm || set status 0 - -clean partialclean - delete -i .x || set status 0 - -.cmi .mli - {CAMLC} -c {COMPFLAGS} {depdir}{default}.mli - -.cmo .ml - {CAMLC} -c {COMPFLAGS} {depdir}{default}.ml - -depend - begin - MakeDepend -w -objext .x .c - :::boot:ocamlrun :::tools:ocamldep -I :::stdlib: -I ::unix: .mli .ml - end | streamedit -e "/t/ replace // ' ' -c " > Makefile.Mac.depend diff --git a/otherlibs/dynlink/Makefile.Mac b/otherlibs/dynlink/Makefile.Mac deleted file mode 100644 index 3b7fca1cb..000000000 --- a/otherlibs/dynlink/Makefile.Mac +++ /dev/null @@ -1,56 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../../LICENSE. # -# # -######################################################################### - -# $Id$ - -# Makefile for the dynamic link library - -CAMLC = :::boot:ocamlrun :::ocamlc -INCLUDES = -I :::utils: -I :::typing: -I :::bytecomp: -COMPFLAGS = -I :::stdlib: {INCLUDES} - -OBJS = dynlink.cmo -COMPILEROBJS = misc.cmo config.cmo tbl.cmo - clflags.cmo ident.cmo path.cmo - types.cmo btype.cmo predef.cmo runtimedef.cmo - bytesections.cmo dll.cmo symtable.cmo opcodes.cmo meta.cmo - -all dynlink.cma extract_crc - -allopt - -dynlink.cma {OBJS} - {CAMLC} {COMPFLAGS} -a -o dynlink.cma {COMPILEROBJS} {OBJS} - -extract_crc dynlink.cma extract_crc.cmo - {CAMLC} {COMPFLAGS} -o extract_crc dynlink.cma extract_crc.cmo - -install - duplicate -y dynlink.cmi dynlink.cma extract_crc "{LIBDIR}" - -installopt - -partialclean - delete -i extract_crc - delete -i .cm[aio] || set status 0 - -clean partialclean - -.cmi .mli - {CAMLC} -c {COMPFLAGS} {default}.mli - -.cmo .ml - {CAMLC} -c {COMPFLAGS} {default}.ml - -depend - :::boot:ocamlrun :::tools:ocamldep .mli .ml > Makefile.Mac.depend diff --git a/otherlibs/graph/Makefile.Mac b/otherlibs/graph/Makefile.Mac deleted file mode 100644 index 7269595e6..000000000 --- a/otherlibs/graph/Makefile.Mac +++ /dev/null @@ -1,40 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../../LICENSE. # -# # -######################################################################### - -# $Id$ - -CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: - -all graphics.cmi graphics.cma - set status 0 - -graphics.cma graphics.cmo - {CAMLC} -a -o graphics.cma graphics.cmo - -partialclean - delete -i .cm[aio] || set status 0 - -clean partialclean - set status 0 - -install - duplicate -y graphics.cm[ia] graphics.mli "{LIBDIR}" - -.cmi .mli - {CAMLC} -c {default}.mli - -.cmo .ml - {CAMLC} -c {default}.ml - -depend - :::boot:ocamlrun :::tools:ocamldep .mli .ml > Makefile.Mac.depend diff --git a/otherlibs/macosunix/.cvsignore b/otherlibs/macosunix/.cvsignore deleted file mode 100644 index 2bbb2a16c..000000000 --- a/otherlibs/macosunix/.cvsignore +++ /dev/null @@ -1,71 +0,0 @@ -*.x -byterun -config -accept.c -access.c -addrofstr.c -alarm.c -bind.c -chdir.c -chmod.c -close.c -closedir.c -connect.c -cst2constr.c -cstringv.c -dup.c -dup2.c -errmsg.c -exit.c -fchmod.c -fchown.c -fcntl.c -ftruncate.c -getcwd.c -getgroups.c -gethost.c -gethostname.c -getpeername.c -getproto.c -getserv.c -getsockname.c -gettimeofday.c -gmtime.c -itimer.c -listen.c -lockf.c -lseek.c -mkdir.c -open.c -opendir.c -pipe.c -putenv.c -read.c -readdir.c -readlink.c -rename.c -rewinddir.c -rmdir.c -select.c -sendrecv.c -setsid.c -shutdown.c -signals.c -sleep.c -socket.c -socketaddr.c -socketpair.c -sockopt.c -stat.c -strofaddr.c -symlink.c -termios.c -truncate.c -unixsupport.c -unlink.c -utimes.c -write.c -cst2constr.h -socketaddr.h -unix.ml -unix.mli diff --git a/otherlibs/macosunix/Makefile.Mac b/otherlibs/macosunix/Makefile.Mac deleted file mode 100644 index 4eecaf1cb..000000000 --- a/otherlibs/macosunix/Makefile.Mac +++ /dev/null @@ -1,152 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Moscova, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../../LICENSE. # -# # -######################################################################### - -# $Id$ - -includepath = ":config:,:byterun:,{GUSI}include:" - -C = sc -COptions = -i {includepath} -includes unix -w 30,35 {cdbgflag} -model far - -PPCC = mrc -PPCCOptions = -i {includepath} -includes unix -w 30,35 {cdbgflag} - -CAMLC = :::boot:ocamlrun :::boot:ocamlc -I :::stdlib: -warn-error A - - -# Files in this directory -MAC_OBJS = macosunix.c.o - -MAC_OBJSPPC = macosunix.c.x - -# Files from the ::unix: directory -UNIX_FILES = accept.c access.c addrofstr.c alarm.c bind.c - chdir.c chmod.c close.c closedir.c - connect.c cst2constr.c cstringv.c dup.c dup2.c - errmsg.c exit.c - fchmod.c fchown.c fcntl.c ftruncate.c - getcwd.c - getgroups.c gethost.c gethostname.c - getpeername.c getproto.c - getserv.c getsockname.c gettimeofday.c - gmtime.c itimer.c listen.c lockf.c - lseek.c mkdir.c open.c opendir.c - pipe.c putenv.c read.c readdir.c readlink.c - rename.c rewinddir.c rmdir.c select.c sendrecv.c - setsid.c shutdown.c signals.c - sleep.c socket.c socketaddr.c socketpair.c - sockopt.c stat.c strofaddr.c symlink.c termios.c - truncate.c unixsupport.c - unlink.c utimes.c write.c - - cst2constr.h socketaddr.h - unix.ml unix.mli - -UNIX_OBJS = accept.c.o access.c.o addrofstr.c.o alarm.c.o bind.c.o - chdir.c.o chmod.c.o close.c.o closedir.c.o - connect.c.o cst2constr.c.o cstringv.c.o dup.c.o dup2.c.o - errmsg.c.o exit.c.o - fchmod.c.o fchown.c.o fcntl.c.o ftruncate.c.o - getcwd.c.o - getgroups.c.o gethost.c.o gethostname.c.o - getpeername.c.o getproto.c.o - getserv.c.o getsockname.c.o gettimeofday.c.o - gmtime.c.o itimer.c.o listen.c.o lockf.c.o - lseek.c.o mkdir.c.o open.c.o opendir.c.o - pipe.c.o putenv.c.o read.c.o readdir.c.o readlink.c.o - rename.c.o rewinddir.c.o rmdir.c.o select.c.o sendrecv.c.o - setsid.c.o shutdown.c.o signals.c.o - sleep.c.o socket.c.o socketaddr.c.o socketpair.c.o - sockopt.c.o stat.c.o strofaddr.c.o symlink.c.o termios.c.o - truncate.c.o unixsupport.c.o - unlink.c.o utimes.c.o write.c.o - -PPCUNIX_OBJS = accept.c.x access.c.x addrofstr.c.x alarm.c.x bind.c.x - chdir.c.x chmod.c.x close.c.x closedir.c.x - connect.c.x cst2constr.c.x cstringv.c.x dup.c.x dup2.c.x - errmsg.c.x exit.c.x - fchmod.c.x fchown.c.x fcntl.c.x ftruncate.c.x - getcwd.c.x - getgroups.c.x gethost.c.x gethostname.c.x - getpeername.c.x getproto.c.x - getserv.c.x getsockname.c.x gettimeofday.c.x - gmtime.c.x itimer.c.x listen.c.x lockf.c.x - lseek.c.x mkdir.c.x open.c.x opendir.c.x - pipe.c.x putenv.c.x read.c.x readdir.c.x readlink.c.x - rename.c.x rewinddir.c.x rmdir.c.x select.c.x sendrecv.c.x - setsid.c.x shutdown.c.x signals.c.x - sleep.c.x socket.c.x socketaddr.c.x socketpair.c.x - sockopt.c.x stat.c.x strofaddr.c.x symlink.c.x termios.c.x - truncate.c.x unixsupport.c.x - unlink.c.x utimes.c.x write.c.x - -C_OBJS = {MAC_OBJS} {UNIX_OBJS} -C_OBJSPPC = {MAC_OBJSPPC} {PPCUNIX_OBJS} - -CAML_OBJS = macosunix_startup.cmo unix.cmo - -all - domake copy-files - directory :byterun: - domake libcamlrun.x libcamlrun.o - directory :: - domake libcamlrun-unix.x libcamlrun-unix.o unix.cma - -### WATCH OUT: libcamlrun.[ox] must be linked last to override getcwd - -libcamlrun-unix.x {C_OBJSPPC} :byterun:libcamlrun.x - ppclink {ldbgflag} -xm library -o libcamlrun-unix.x - {C_OBJSPPC} :byterun:libcamlrun.x - -libcamlrun-unix.o {C_OBJS} :byterun:libcamlrun.o - lib {ldbgflag} -o libcamlrun-unix.o {C_OBJS} :byterun:libcamlrun.o - -copy-files $OutOfDate - directory ::unix: - duplicate -y {UNIX_FILES} ::macosunix: - directory ::macosunix: - newfolder :byterun || set status 0 - duplicate -y :::byterun:.[ach] :::byterun:Makefile.Mac.depend :byterun: - begin - echo 'ocamlgusiflag = -d macintosh_GUSI -includes unix -i "{GUSI}include:"' - catenate :::byterun:Makefile.Mac - end > :byterun:Makefile.Mac - duplicate -y :::config: : - -unix.cma {CAML_OBJS} - {CAMLC} -a -linkall -o unix.cma {CAML_OBJS} - -partialclean - delete -i .cm || set status 0 - -clean partialclean - delete -i .[xo] || set status 0 - delete -i -y :byterun :config - delete -i {UNIX_FILES} - -install - duplicate -y libcamlrun-unix.o libcamlrun-unix.x unix.cmi unix.cma - "{LIBDIR}" - -.cmi .mli - {CAMLC} -c {COMPFLAGS} "{depdir}{default}.mli" - -.cmo .ml - {CAMLC} -c {COMPFLAGS} "{depdir}{default}.ml" - -depend copy-files - begin - MakeDepend -w -objext .x .c - MakeDepend -w .c - :::boot:ocamlrun :::tools:ocamldep .mli .ml - end | streamedit -e "/t/ replace // ' ' -c " > Makefile.Mac.depend diff --git a/otherlibs/macosunix/Makefile.Mac.depend b/otherlibs/macosunix/Makefile.Mac.depend deleted file mode 100644 index bf3f0f8fb..000000000 --- a/otherlibs/macosunix/Makefile.Mac.depend +++ /dev/null @@ -1,872 +0,0 @@ -#*** Dependencies: Cut here *** -# These dependencies were produced at 23:43:09 on 27 fv 2001 by MakeDepend - -:accept.c.x - :accept.c - "{CIncludes}"memory.h - :unixsupport.h - :socketaddr.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:access.c.x - :access.c - :unixsupport.h - -:addrofstr.c.x - :addrofstr.c - :unixsupport.h - :socketaddr.h - -:alarm.c.x - :alarm.c - :unixsupport.h - -:bind.c.x - :bind.c - :unixsupport.h - :socketaddr.h - -:chdir.c.x - :chdir.c - :unixsupport.h - -:chmod.c.x - :chmod.c - :unixsupport.h - -:close.c.x - :close.c - :unixsupport.h - -:closedir.c.x - :closedir.c - :unixsupport.h - -:connect.c.x - :connect.c - :unixsupport.h - :socketaddr.h - -:cst2constr.c.x - :cst2constr.c - :cst2constr.h - -:cstringv.c.x - :cstringv.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:dup.c.x - :dup.c - :unixsupport.h - -:dup2.c.x - :dup2.c - :unixsupport.h - -:errmsg.c.x - :errmsg.c - "{CIncludes}"errno.h - -:exit.c.x - :exit.c - :unixsupport.h - -:fchmod.c.x - :fchmod.c - :unixsupport.h - -:fchown.c.x - :fchown.c - :unixsupport.h - -:fcntl.c.x - :fcntl.c - :unixsupport.h - "{CIncludes}"fcntl.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"SizeTDef.h - -:ftruncate.c.x - :ftruncate.c - :unixsupport.h - -:getcwd.c.x - :getcwd.c - :unixsupport.h - -:getgroups.c.x - :getgroups.c - "{CIncludes}"limits.h - :unixsupport.h - -:gethost.c.x - :gethost.c - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - :socketaddr.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:gethostname.c.x - :gethostname.c - :unixsupport.h - -:getpeername.c.x - :getpeername.c - :unixsupport.h - :socketaddr.h - -:getproto.c.x - :getproto.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:getserv.c.x - :getserv.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:getsockname.c.x - :getsockname.c - :unixsupport.h - :socketaddr.h - -:gettimeofday.c.x - :gettimeofday.c - :unixsupport.h - -:gmtime.c.x - :gmtime.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"time.h - "{CIncludes}"errno.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:itimer.c.x - :itimer.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:listen.c.x - :listen.c - :unixsupport.h - -:lockf.c.x - :lockf.c - "{CIncludes}"errno.h - "{CIncludes}"fcntl.h - :unixsupport.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"SizeTDef.h - -:lseek.c.x - :lseek.c - :unixsupport.h - -:macosunix.c.x - :macosunix.c - "{CIncludes}"Events.h - "{CIncludes}"Processes.h - "{CIncludes}"Resources.h - "{CIncludes}"TextUtils.h - "{CIncludes}"errno.h - "{CIncludes}"string.h - "{CIncludes}"time.h - :unixsupport.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Quickdraw.h - "{CIncludes}"MacTypes.h - "{CIncludes}"Endian.h - "{CIncludes}"Files.h - "{CIncludes}"MixedMode.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"MacMemory.h - "{CIncludes}"Patches.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"TextCommon.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"Finder.h - "{CIncludes}"IntlResources.h - "{CIncludes}"Script.h - "{CIncludes}"MacErrors.h - -:mkdir.c.x - :mkdir.c - :unixsupport.h - -:open.c.x - :open.c - :unixsupport.h - "{CIncludes}"fcntl.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"SizeTDef.h - -:opendir.c.x - :opendir.c - :unixsupport.h - -:pipe.c.x - :pipe.c - :unixsupport.h - -:putenv.c.x - :putenv.c - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:read.c.x - :read.c - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:readdir.c.x - :readdir.c - :unixsupport.h - -:readlink.c.x - :readlink.c - :unixsupport.h - -:rename.c.x - :rename.c - "{CIncludes}"stdio.h - :unixsupport.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - -:rewinddir.c.x - :rewinddir.c - :unixsupport.h - -:rmdir.c.x - :rmdir.c - :unixsupport.h - -:select.c.x - :select.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"string.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:sendrecv.c.x - :sendrecv.c - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - :socketaddr.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:setsid.c.x - :setsid.c - :unixsupport.h - -:shutdown.c.x - :shutdown.c - :unixsupport.h - -:signals.c.x - :signals.c - "{CIncludes}"errno.h - "{CIncludes}"signal.h - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:sleep.c.x - :sleep.c - :unixsupport.h - -:socket.c.x - :socket.c - :unixsupport.h - -:socketaddr.c.x - :socketaddr.c - "{CIncludes}"string.h - "{CIncludes}"memory.h - "{CIncludes}"errno.h - :unixsupport.h - :socketaddr.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:socketpair.c.x - :socketpair.c - :unixsupport.h - -:sockopt.c.x - :sockopt.c - :unixsupport.h - :socketaddr.h - -:stat.c.x - :stat.c - "{CIncludes}"memory.h - :unixsupport.h - :cst2constr.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:strofaddr.c.x - :strofaddr.c - :unixsupport.h - :socketaddr.h - -:symlink.c.x - :symlink.c - :unixsupport.h - -:termios.c.x - :termios.c - :unixsupport.h - "{CIncludes}"errno.h - -:truncate.c.x - :truncate.c - :unixsupport.h - -:unixsupport.c.x - :unixsupport.c - "{CIncludes}"memory.h - :unixsupport.h - :cst2constr.h - "{CIncludes}"errno.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:unlink.c.x - :unlink.c - :unixsupport.h - -:utimes.c.x - :utimes.c - :unixsupport.h - -:write.c.x - :write.c - "{CIncludes}"errno.h - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -#*** Dependencies: Cut here *** -# These dependencies were produced at 23:43:16 on 27 fv 2001 by MakeDepend - -:accept.c.o - :accept.c - "{CIncludes}"memory.h - :unixsupport.h - :socketaddr.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:access.c.o - :access.c - :unixsupport.h - -:addrofstr.c.o - :addrofstr.c - :unixsupport.h - :socketaddr.h - -:alarm.c.o - :alarm.c - :unixsupport.h - -:bind.c.o - :bind.c - :unixsupport.h - :socketaddr.h - -:chdir.c.o - :chdir.c - :unixsupport.h - -:chmod.c.o - :chmod.c - :unixsupport.h - -:close.c.o - :close.c - :unixsupport.h - -:closedir.c.o - :closedir.c - :unixsupport.h - -:connect.c.o - :connect.c - :unixsupport.h - :socketaddr.h - -:cst2constr.c.o - :cst2constr.c - :cst2constr.h - -:cstringv.c.o - :cstringv.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:dup.c.o - :dup.c - :unixsupport.h - -:dup2.c.o - :dup2.c - :unixsupport.h - -:errmsg.c.o - :errmsg.c - "{CIncludes}"errno.h - -:exit.c.o - :exit.c - :unixsupport.h - -:fchmod.c.o - :fchmod.c - :unixsupport.h - -:fchown.c.o - :fchown.c - :unixsupport.h - -:fcntl.c.o - :fcntl.c - :unixsupport.h - "{CIncludes}"fcntl.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"SizeTDef.h - -:ftruncate.c.o - :ftruncate.c - :unixsupport.h - -:getcwd.c.o - :getcwd.c - :unixsupport.h - -:getgroups.c.o - :getgroups.c - "{CIncludes}"limits.h - :unixsupport.h - -:gethost.c.o - :gethost.c - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - :socketaddr.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:gethostname.c.o - :gethostname.c - :unixsupport.h - -:getpeername.c.o - :getpeername.c - :unixsupport.h - :socketaddr.h - -:getproto.c.o - :getproto.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:getserv.c.o - :getserv.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:getsockname.c.o - :getsockname.c - :unixsupport.h - :socketaddr.h - -:gettimeofday.c.o - :gettimeofday.c - :unixsupport.h - -:gmtime.c.o - :gmtime.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"time.h - "{CIncludes}"errno.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:itimer.c.o - :itimer.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:listen.c.o - :listen.c - :unixsupport.h - -:lockf.c.o - :lockf.c - "{CIncludes}"errno.h - "{CIncludes}"fcntl.h - :unixsupport.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"SizeTDef.h - -:lseek.c.o - :lseek.c - :unixsupport.h - -:macosunix.c.o - :macosunix.c - "{CIncludes}"Events.h - "{CIncludes}"Processes.h - "{CIncludes}"Resources.h - "{CIncludes}"TextUtils.h - "{CIncludes}"errno.h - "{CIncludes}"string.h - "{CIncludes}"time.h - :unixsupport.h - "{CIncludes}"OSUtils.h - "{CIncludes}"Quickdraw.h - "{CIncludes}"MacTypes.h - "{CIncludes}"Endian.h - "{CIncludes}"Files.h - "{CIncludes}"MixedMode.h - "{CIncludes}"NumberFormatting.h - "{CIncludes}"StringCompare.h - "{CIncludes}"DateTimeUtils.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"MacMemory.h - "{CIncludes}"Patches.h - "{CIncludes}"Components.h - "{CIncludes}"QuickdrawText.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"TextCommon.h - "{CIncludes}"UTCUtils.h - "{CIncludes}"Finder.h - "{CIncludes}"IntlResources.h - "{CIncludes}"Script.h - "{CIncludes}"MacErrors.h - -:mkdir.c.o - :mkdir.c - :unixsupport.h - -:open.c.o - :open.c - :unixsupport.h - "{CIncludes}"fcntl.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"SizeTDef.h - -:opendir.c.o - :opendir.c - :unixsupport.h - -:pipe.c.o - :pipe.c - :unixsupport.h - -:putenv.c.o - :putenv.c - "{CIncludes}"stdlib.h - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"WCharTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:read.c.o - :read.c - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:readdir.c.o - :readdir.c - :unixsupport.h - -:readlink.c.o - :readlink.c - :unixsupport.h - -:rename.c.o - :rename.c - "{CIncludes}"stdio.h - :unixsupport.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"SeekDefs.h - "{CIncludes}"VaListTDef.h - -:rewinddir.c.o - :rewinddir.c - :unixsupport.h - -:rmdir.c.o - :rmdir.c - :unixsupport.h - -:select.c.o - :select.c - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"string.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:sendrecv.c.o - :sendrecv.c - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - :socketaddr.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:setsid.c.o - :setsid.c - :unixsupport.h - -:shutdown.c.o - :shutdown.c - :unixsupport.h - -:signals.c.o - :signals.c - "{CIncludes}"errno.h - "{CIncludes}"signal.h - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:sleep.c.o - :sleep.c - :unixsupport.h - -:socket.c.o - :socket.c - :unixsupport.h - -:socketaddr.c.o - :socketaddr.c - "{CIncludes}"string.h - "{CIncludes}"memory.h - "{CIncludes}"errno.h - :unixsupport.h - :socketaddr.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:socketpair.c.o - :socketpair.c - :unixsupport.h - -:sockopt.c.o - :sockopt.c - :unixsupport.h - :socketaddr.h - -:stat.c.o - :stat.c - "{CIncludes}"memory.h - :unixsupport.h - :cst2constr.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:strofaddr.c.o - :strofaddr.c - :unixsupport.h - :socketaddr.h - -:symlink.c.o - :symlink.c - :unixsupport.h - -:termios.c.o - :termios.c - :unixsupport.h - "{CIncludes}"errno.h - -:truncate.c.o - :truncate.c - :unixsupport.h - -:unixsupport.c.o - :unixsupport.c - "{CIncludes}"memory.h - :unixsupport.h - :cst2constr.h - "{CIncludes}"errno.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -:unlink.c.o - :unlink.c - :unixsupport.h - -:utimes.c.o - :utimes.c - :unixsupport.h - -:write.c.o - :write.c - "{CIncludes}"errno.h - "{CIncludes}"string.h - "{CIncludes}"memory.h - :unixsupport.h - "{CIncludes}"NullDef.h - "{CIncludes}"SizeTDef.h - "{CIncludes}"ConditionalMacros.h - "{CIncludes}"MacMemory.h - "{CIncludes}"MacTypes.h - "{CIncludes}"MixedMode.h - -macosunix_startup.cmo macosunix_startup.cmi -macosunix_startup.cmx macosunix_startup.cmi -unix.cmo unix.cmi -unix.cmx unix.cmi diff --git a/otherlibs/macosunix/macosunix.c b/otherlibs/macosunix/macosunix.c deleted file mode 100644 index 403aaf704..000000000 --- a/otherlibs/macosunix/macosunix.c +++ /dev/null @@ -1,119 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Moscova, INRIA Rocquencourt */ -/* */ -/* Copyright 1999 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#include <Events.h> -#include <Processes.h> -#include <Resources.h> -#include <TextUtils.h> - -#include <errno.h> -#include <string.h> -#include <time.h> - -#include <alloc.h> -#include <mlvalues.h> -#include <ui.h> - -#include "unixsupport.h" - - -static unsigned long start_ticks; - -value macosunix_startup (value unit) /* ML */ -{ - start_ticks = TickCount (); - - return Val_unit; -} - -value unix_getlogin (void) /* ML */ -{ - char **hs = (char **) GetString (-16096); - if (hs == NULL || *hs == NULL || strlen (*hs) == 0){ - unix_error (ENOENT, "getlogin", Nothing); - } - return copy_string (*hs); -} - -value unix_getegid (void) /* ML */ -{ - return Val_int (1); -} - -value unix_geteuid (void) /* ML */ -{ - return Val_int (1); -} - -value unix_getgid (void) /* ML */ -{ - return Val_int (1); -} - -value unix_getuid (void) /* ML */ -{ - return Val_int (1); -} - -value unix_getpid (void) /* ML */ -{ - ProcessSerialNumber psn; - - GetCurrentProcess (&psn); - return Val_long (psn.lowLongOfPSN); -} - -value unix_time (void) /* ML */ -{ - return copy_double (time (NULL) /* - 2082844800. */); -} - -value unix_times (void) /* ML */ -{ - value res; - - res = alloc_small(4 * Double_wosize, Double_array_tag); - Store_double_field(res, 0, (double) (TickCount () - start_ticks) / 60); - Store_double_field(res, 1, (double) 0.0); - Store_double_field(res, 2, (double) 0.0); - Store_double_field(res, 3, (double) 0.0); - return res; -} - -#define Unimplemented(f, args) \ - value unix_##f args { invalid_argument (#f " not implemented"); } - -Unimplemented (chown, (value path, value uid, value gid)) -Unimplemented (chroot, (value path)) -Unimplemented (environment, (void)) -Unimplemented (execv, (value path, value args)) -Unimplemented (execve, (value path, value args, value env)) -Unimplemented (execvp, (value path, value args)) -Unimplemented (execvpe, (value path, value args, value env)) -Unimplemented (fork, (value unit)) -Unimplemented (getgrnam, (value name)) -Unimplemented (getgrgid, (value gid)) -Unimplemented (getppid, (void)) -Unimplemented (getpwnam, (value name)) -Unimplemented (getpwuid, (value uid)) -Unimplemented (kill, (value pid, value signal)) -Unimplemented (link, (value path1, value path2)) -Unimplemented (mkfifo, (value path, value mode)) -Unimplemented (nice, (value incr)) -Unimplemented (setgid, (value gid)) -Unimplemented (setuid, (value uid)) -Unimplemented (umask, (value perm)) -Unimplemented (wait, (void)) -Unimplemented (waitpid, (value flags, value pid_req)) diff --git a/otherlibs/macosunix/macosunix_startup.ml b/otherlibs/macosunix/macosunix_startup.ml deleted file mode 100644 index 93c4f213b..000000000 --- a/otherlibs/macosunix/macosunix_startup.ml +++ /dev/null @@ -1,17 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Damien Doligez, projet Moscova, INRIA Rocquencourt *) -(* *) -(* Copyright 2000 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the GNU Library General Public License, with *) -(* the special exception on linking described in file ../../LICENSE. *) -(* *) -(***********************************************************************) - -(* $Id$ *) - -external startup : unit -> unit = "macosunix_startup";; -startup ();; diff --git a/otherlibs/macosunix/macosunix_startup.mli b/otherlibs/macosunix/macosunix_startup.mli deleted file mode 100644 index 96a84e30b..000000000 --- a/otherlibs/macosunix/macosunix_startup.mli +++ /dev/null @@ -1,16 +0,0 @@ -(***********************************************************************) -(* *) -(* Objective Caml *) -(* *) -(* Damien Doligez, projet Moscova, INRIA Rocquencourt *) -(* *) -(* Copyright 2000 Institut National de Recherche en Informatique et *) -(* en Automatique. All rights reserved. This file is distributed *) -(* under the terms of the GNU Library General Public License, with *) -(* the special exception on linking described in file ../../LICENSE. *) -(* *) -(***********************************************************************) - -(* $Id$ *) - -(* This file left blank intentionally. *) diff --git a/otherlibs/macosunix/unix-primitives b/otherlibs/macosunix/unix-primitives deleted file mode 100644 index 9f920883a..000000000 --- a/otherlibs/macosunix/unix-primitives +++ /dev/null @@ -1,113 +0,0 @@ -macosunix_startup -unix_accept -unix_access -unix_alarm -unix_bind -unix_chdir -unix_chmod -unix_chown -unix_chroot -unix_clear_close_on_exec -unix_clear_nonblock -unix_close -unix_closedir -unix_connect -unix_dup -unix_dup2 -unix_environment -unix_error_message -unix_execv -unix_execve -unix_execvp -unix_execvpe -unix_exit -unix_fchmod -unix_fchown -unix_fork -unix_fstat -unix_ftruncate -unix_getcwd -unix_getegid -unix_geteuid -unix_getgid -unix_getgrgid -unix_getgrnam -unix_getgroups -unix_gethostbyaddr -unix_gethostbyname -unix_gethostname -unix_getitimer -unix_getlogin -unix_getpeername -unix_getpid -unix_getppid -unix_getprotobyname -unix_getprotobynumber -unix_getpwnam -unix_getpwuid -unix_getservbyname -unix_getservbyport -unix_getsockname -unix_getsockopt -unix_gettimeofday -unix_getuid -unix_gmtime -unix_inet_addr_of_string -unix_kill -unix_link -unix_listen -unix_localtime -unix_lockf -unix_lseek -unix_lstat -unix_mkdir -unix_mkfifo -unix_mktime -unix_nice -unix_open -unix_opendir -unix_pipe -unix_putenv -unix_read -unix_readdir -unix_readlink -unix_recv -unix_recvfrom -unix_rename -unix_rewinddir -unix_rmdir -unix_select -unix_send -unix_sendto -unix_set_close_on_exec -unix_set_nonblock -unix_setgid -unix_setitimer -unix_setsid -unix_setsockopt -unix_setuid -unix_shutdown -unix_sigpending -unix_sigprocmask -unix_sigsuspend -unix_sleep -unix_socket -unix_socketpair -unix_stat -unix_string_of_inet_addr -unix_symlink -unix_tcdrain -unix_tcflow -unix_tcflush -unix_tcgetattr -unix_tcsendbreak -unix_tcsetattr -unix_time -unix_times -unix_truncate -unix_umask -unix_unlink -unix_utimes -unix_wait -unix_waitpid -unix_write diff --git a/otherlibs/macosunix/unixsupport.h b/otherlibs/macosunix/unixsupport.h deleted file mode 100644 index 8b9e4526f..000000000 --- a/otherlibs/macosunix/unixsupport.h +++ /dev/null @@ -1,43 +0,0 @@ -/***********************************************************************/ -/* */ -/* Objective Caml */ -/* */ -/* Damien Doligez, projet Moscova, INRIA Rocquencourt */ -/* */ -/* Copyright 1999 Institut National de Recherche en Informatique et */ -/* en Automatique. All rights reserved. This file is distributed */ -/* under the terms of the GNU Library General Public License, with */ -/* the special exception on linking described in file ../../LICENSE. */ -/* */ -/***********************************************************************/ - -/* $Id$ */ - -#define POSIX_SIGNALS -#define HAS_MEMMOVE -#define HAS_STRERROR -#define HAS_SOCKETS -#define HAS_SOCKLEN_T -#define HAS_UNISTD -#define HAS_DIRENT -#define HAS_REWINDDIR -#define HAS_GETCWD -#define HAS_UTIME -#define HAS_DUP2 -#define HAS_TRUNCATE -#define HAS_SELECT -#define HAS_SYMLINK -#define HAS_GETHOSTNAME -#define HAS_GETTIMEOFDAY -#define HAS_MKTIME - -#ifdef HAS_UNISTD -#include <unistd.h> -#endif - -#define Nothing ((value) 0) - -extern void unix_error (int errcode, char * cmdname, value arg) Noreturn; -extern void uerror (char * cmdname, value arg) Noreturn; - -#define UNIX_BUFFER_SIZE 2048 diff --git a/otherlibs/num/Makefile.Mac b/otherlibs/num/Makefile.Mac deleted file mode 100644 index 6e3c1e5fd..000000000 --- a/otherlibs/num/Makefile.Mac +++ /dev/null @@ -1,64 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../../LICENSE. # -# # -######################################################################### - -# $Id$ - -# Makefile for the "num" (exact rational arithmetic) library - -# Compilation options -PPCC = mrc -PPCCOptions = -i :bignum:h:,:::byterun:,:::config: -w 35 {cdbgflag} - -CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: -w s -CAMLOPT = :::boot:ocamlrun :::ocamlopt: -I :::stdlib: -w s - -CAMLOBJS = int_misc.cmo string_misc.cmo nat.cmo big_int.cmo arith_flags.cmo - ratio.cmo num.cmo arith_status.cmo - -CMIFILES = big_int.cmi nat.cmi num.cmi ratio.cmi arith_status.cmi - -PPCCOBJS = nat_stubs.c.x - -all libnums.x nums.cma {CMIFILES} - -nums.cma {CAMLOBJS} - {CAMLC} -a -o nums.cma {CAMLOBJS} - -libnums.x :bignum:libbignum.x {PPCCOBJS} - ppclink {ldbgflag} -xm library -o libnums.x :bignum:libbignum.x {PPCCOBJS} - -:bignum:libbignum.x :bignum:libbignum.o - directory :bignum; domake C; directory :: - -install - duplicate -y libnums.x nums.cma {CMIFILES} "{LIBDIR}" - -partialclean - delete -i .cm[aio] || set status 0 - -clean partialclean - delete -i .x || set status 0 - directory :bignum; domake scratch; directory :: - directory :test; domake clean; directory :: - -.cmi .mli - {CAMLC} -c {COMPFLAGS} {default}.mli - -.cmo .ml - {CAMLC} -c {COMPFLAGS} {default}.ml - -depend - begin - MakeDepend -w -objext .x .c - :::boot:ocamlrun :::tools:ocamldep .mli .ml - end | streamedit -e "/t/ replace // ' ' -c " > Makefile.Mac.depend diff --git a/otherlibs/num/test/Makefile.Mac b/otherlibs/num/test/Makefile.Mac deleted file mode 100644 index 3e01c7220..000000000 --- a/otherlibs/num/test/Makefile.Mac +++ /dev/null @@ -1,40 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../../../LICENSE.# -# # -######################################################################### - -# $Id$ - -CAMLC = ::::boot:ocamlrun ::::ocamlc -I ::::stdlib: -CAMLOPT = ::::boot:ocamlrun ::::ocamlopt -I ::::stdlib: - -test test.byt - :test.byt - -TESTFILES = test.cmo test_nats.cmo test_big_ints.cmo - test_ratios.cmo test_nums.cmo test_io.cmo end_test.cmo - -test.byt {TESTFILES} ::nums.cma ::libnums.o - alias ocamlc "{CAMLC}" - ::::tools:ocamlc-custom -o test.byt ::nums.cma {TESTFILES} ::libnums.[ox] - -.cmo .ml - {CAMLC} -I :: -c {default}.ml - -ocamlnum - ocamlmktop -o ocamlnum -custom ::nums.cma ::libnums.[ox] - -clean - delete -i test.byt ocamlnum - delete -i .cm[io] || set status 0 - -depend - ocamldep .ml > Makefile.Mac.depend diff --git a/otherlibs/str/Makefile.Mac b/otherlibs/str/Makefile.Mac deleted file mode 100644 index c5345acd0..000000000 --- a/otherlibs/str/Makefile.Mac +++ /dev/null @@ -1,53 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../../LICENSE. # -# # -######################################################################### - -# $Id$ - -# Makefile for the str library - -# Compilation options -PPCC = mrc -PPCCOptions = -i :::byterun:,:::config: -w 7 {cdbgflag} - -CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: - -PPCCOBJS = strstubs.c.x - -all libstr.x str.cmi str.cma - -libstr.x {PPCCOBJS} - ppclink {ldbgflag} -xm library -o libstr.x {PPCCOBJS} - -str.cma str.cmo - {CAMLC} -a -o str.cma str.cmo - -partialclean - delete -i .cm[aio] || set status 0 - -clean partialclean - delete -i .x || set status 0 - -install - duplicate -y libstr.x str.cma str.cmi "{LIBDIR}" - -.cmi .mli - {CAMLC} -c {COMPFLAGS} {default}.mli - -.cmo .ml - {CAMLC} -c {COMPFLAGS} {default}.ml - -depend - begin - MakeDepend -w -objext .x .c - :::boot:ocamlrun :::tools:ocamldep .mli .ml - end | streamedit -e "/t/ replace // ' ' -c " > Makefile.Mac.depend diff --git a/otherlibs/systhreads/Makefile.Mac b/otherlibs/systhreads/Makefile.Mac deleted file mode 100644 index e6e027798..000000000 --- a/otherlibs/systhreads/Makefile.Mac +++ /dev/null @@ -1,78 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Moscova, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../../LICENSE. # -# # -######################################################################### - -# $Id$ - -# systhread library -# not supported yet: too many bugs in GUSI and in posix.c. - -C = sc -COptions = -includes unix -i ":::byterun:,:::config:,{GUSI}include:" -w 35 - {cdbgflag} -model far - -PPCC = mrc -PPCCOptions = -includes unix -i ":::byterun:,:::config:,{GUSI}include:" -w 35 - {cdbgflag} - -CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: -I ::unix: - -C_OBJS = posix.c.o -PPCC_OBJS = posix.c.x - -THREAD_OBJS = thread.cmo mutex.cmo condition.cmo event.cmo threadUnix.cmo -THREAD_INTF = thread.cmi mutex.cmi condition.cmi event.cmi threadUnix.cmi - -GENFILES = thread.ml - -all libthreads.x libthreads.o threads.cma - -libthreads.x {PPCC_OBJS} - ppclink {ldbgflag} -xm library -o libthreads.x {PPCC_OBJS} - -libthreads.o {C_OBJS} - lib {ldbgflag} -o libthreads.o {C_OBJS} - -threads.cma {THREAD_OBJS} - {CAMLC} -a -o threads.cma -custom {THREAD_OBJS} - -thread.ml thread_posix.ml - duplicate -y thread_posix.ml thread.ml - -partialclean - delete -i .cm || set status 0 - -clean partialclean - delete -i .[ox] || set status 0 - delete -i {GENFILES} - -install - duplicate -y libthreads.x libthreads.o "{LIBDIR}" - if "`exists "{LIBDIR}threads"`" == "" - newfolder "{LIBDIR}threads" - end - duplicate -y {THREAD_INTF} threads.cma "{LIBDIR}threads" - duplicate -y thread.mli mutex.mli condition.mli event.mli threadUnix.mli - "{LIBDIR}" - -.cmi .mli - {CAMLC} -c {COMPFLAGS} {depdir}{default}.mli - -.cmo .ml - {CAMLC} -c {COMPFLAGS} {depdir}{default}.ml - -depend {GENFILES} - begin - MakeDepend -w -objext .x .c - MakeDepend -w .c - :::boot:ocamlrun :::tools:ocamldep -I :::stdlib: -I ::unix: .mli .ml - end | streamedit -e "/t/ replace // ' ' -c " > Makefile.Mac.depend diff --git a/stdlib/Makefile.Mac b/stdlib/Makefile.Mac deleted file mode 100644 index 8b4e4ee0c..000000000 --- a/stdlib/Makefile.Mac +++ /dev/null @@ -1,74 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the GNU Library General Public License, with # -# the special exception on linking described in file ../LICENSE. # -# # -######################################################################### - -# $Id$ - -RUNTIME = ::boot:ocamlrun -COMPILER = ::ocamlc -CAMLC = {RUNTIME} {COMPILER} -CAMLDEP = ::boot:ocamlrun ::tools:ocamldep - -OBJS = pervasives.cmo array.cmo list.cmo char.cmo string.cmo sys.cmo - hashtbl.cmo sort.cmo marshal.cmo obj.cmo - lexing.cmo parsing.cmo - set.cmo map.cmo stack.cmo queue.cmo stream.cmo - buffer.cmo printf.cmo format.cmo arg.cmo printexc.cmo gc.cmo - digest.cmo random.cmo oo.cmo camlInternal.cmo - genlex.cmo callback.cmo weak.cmo - lazy.cmo filename.cmo int32.cmo int64.cmo nativeint.cmo complex.cmo - -all stdlib.cma std_exit.cmo camlheader camlheader_ur - -install - duplicate -y stdlib.cma std_exit.cmo .cmi .mli camlheader camlheader_ur - "{LIBDIR}" - -stdlib.cma {OBJS} - {CAMLC} -a -o stdlib.cma {OBJS} - -camlheader - begin - quote -n "ocamlrun"; echo ' "{command}" {"Parameters"}' - echo 'exit {status}' - echo - end > camlheader - -camlheader_ur - echo -n ' ' > camlheader_ur - -clean - delete -i camlheader camlheader_ur - -pervasives.cmi pervasives.mli - {CAMLC} {COMPFLAGS} -nopervasives -c pervasives.mli - -pervasives.cmo pervasives.ml - {CAMLC} {COMPFLAGS} -nopervasives -c pervasives.ml - -# camlinternalOO.cmi must be compiled with -nopervasives for applets -camlinternalOO.cmi camlinternalOO.mli - {CAMLC} {COMPFLAGS} -nopervasives -c camlinternalOO.mli - -.cmi .mli - {CAMLC} {COMPFLAGS} -c {default}.mli - -.cmo .ml - {CAMLC} {COMPFLAGS} -c {default}.ml - -{OBJS} std_exit.cmo pervasives.cmi - -clean - delete -i .cm[aio] || set status 0 - -depend - {CAMLDEP} .mli .ml > Makefile.Mac.depend diff --git a/test/Makefile.Mac b/test/Makefile.Mac deleted file mode 100644 index 61153dfbe..000000000 --- a/test/Makefile.Mac +++ /dev/null @@ -1,125 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - -CAMLC = ::boot:ocamlrun ::ocamlc -I ::stdlib: -I :KB: -I :Lex: -CAMLYACC = ::yacc:ocamlyacc -CAMLLEX = ::boot:ocamlrun ::lex:ocamllex -CAMLDEP = ::boot:ocamlrun ::tools:ocamldep -CAMLRUN = ::byterun:ocamlrun - -BYTE_EXE = fib.byt takc.byt taku.byt sieve.byt quicksort.byt - quicksort.fast.byt - fft.byt fft.fast.byt soli.byt soli.fast.byt boyer.byt kb.byt - nucleic.byt genlex.byt bdd.byt - -all test - -# KB - -BYTE_KB = :KB:terms.cmo :KB:equations.cmo :KB:kb.cmo :KB:orderings.cmo - :KB:kbmain.cmo - -kb.byt {BYTE_KB} - {CAMLC} {BYTE_KB} -o kb.byt - -clean - delete -i :KB:.cm[io] || set status 0 - -# Genlex - -BYTE_GENLEX = :Lex:syntax.cmo :Lex:scan_aux.cmo :Lex:scanner.cmo - :Lex:gram_aux.cmo :Lex:grammar.cmo :Lex:lexgen.cmo :Lex:output.cmo :Lex:main.cmo - -genlex.byt {BYTE_GENLEX} - {CAMLC} {BYTE_GENLEX} -o genlex.byt - -clean - delete -i :Lex:.cm[io] || set status 0 - -:Lex:grammar.mli :Lex:grammar.ml - echo -n - -:Lex:grammar.ml :Lex:grammar.mly ::yacc:ocamlyacc - {CAMLYACC} {YACCFLAGS} :Lex:grammar.mly - -clean - delete -i :Lex:grammar.ml :Lex:grammar.mli - -beforedepend :Lex:grammar.ml :Lex:grammar.mli - -:Lex:scanner.ml :Lex:scanner.mll ::lex:ocamllex - {CAMLLEX} :Lex:scanner.mll - -clean - delete -i :Lex:scanner.ml - -beforedepend :Lex:scanner.ml - -# Common rules - -.byt .ml - {CAMLC} -o {targdir}{default}.byt {depdir}{default}.ml - -.fast.byt .ml - {CAMLC} -unsafe -o {targdir}{default}.fast.byt {depdir}{default}.ml - -.cmi .mli - {CAMLC} -c {depdir}{default}.mli - -.cmo .ml - {CAMLC} -c {depdir}{default}.ml - -{BYTE_EXE} {BYTE_KB} {BYTE_GENLEX} ::ocamlc -{BYTE_EXE} ::stdlib:stdlib.cma - -clean - delete -i .byt || set status 0 - delete -i .cm[io] || set status 0 - directory :Moretest; domake clean; directory :: - -# Regression test - -test {BYTE_EXE} - set echo 0 - for prog in `echo {BYTE_EXE} | streamedit -e '1 replace /.byt/ "" -c '` - echo {prog} - if "`exists :Results:{prog}.runtest.Mac`" - :Results:{prog}.runtest.Mac test {CAMLRUN} {prog}.byt - else - {CAMLRUN} {prog}.byt > "{tempfolder}ocaml-test" - equal -d "{tempfolder}ocaml-test" :Results:{prog}.out - end - end - -clean - delete -i :Lex:testscanner.ml "{tempfolder}ocaml-test" - -# Benchmark - -bench {BYTE_EXE} - set echo 0 - for prog in `echo {BYTE_EXE} | streamedit -e '1 replace /.byt/ "" -c '` - echo {prog} - if "`exists :Results:{prog}.runtest.Mac`" - :Results:{prog}.runtest.Mac bench {CAMLRUN} {prog}.byt - else - time "{CAMLRUN} {prog}.byt dev:null" - end - end - -# Dependencies - -depend beforedepend - {CAMLDEP} -I :KB: -I :Lex: .ml :KB:.mli :KB:.ml :Lex:.mli - :Lex:.ml > Makefile.Mac.depend diff --git a/test/Moretest/Makefile.Mac b/test/Moretest/Makefile.Mac deleted file mode 100644 index 0ebb0f0f6..000000000 --- a/test/Moretest/Makefile.Mac +++ /dev/null @@ -1,76 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - -CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: -CAMLDEP = :::boot:ocamlrun :::tools:ocamldep -CAMLRUN = :::byterun:ocamlrun - -FILES = arrays.byt callback.byt equality.byt intext.byt io.byt manyargs.byt - multdef.byt patmatch.byt recvalues.byt sets.byt signals.byt syserror.byt - testrandom.byt usemultdef.byt wc.byt tscanf.byt - -all {FILES} - duplicate -y :::ocaml ":/vmunix" - duplicate -y :::byterun:interp.a ":/etc/hosts" - set -e ocamlcommands "{tempfolder}ocamlcommands" - set exit 0 - for i in {FILES} - :{i} - end - delete -i ":/etc/hosts" ":/vmunix" "{tempfolder}ocamlcommands" - -callback.byt callback.cmo callbackprim.c.o callbackprim.c.x - alias ocamlc "{CAMLC}" - :::tools:ocamlc-custom -o callback.byt callback.cmo callbackprim.c.[ox] - -manyargs.byt manyargs.cmo manyargsprim.c.o manyargsprim.c.x - alias ocamlc "{CAMLC}" - :::tools:ocamlc-custom -o manyargs.byt manyargs.cmo manyargsprim.c.[ox] - -usemultdef.byt multdef.cmo usemultdef.cmo - {CAMLC} -o usemultdef.byt multdef.cmo usemultdef.cmo - -# Common rules - -.byt .cmo - {CAMLC} -o {default}.byt {default}.cmo - -.fast.byt .ml - {CAMLC} -unsafe -o {default}.fast.byt {default}.fast.cmo - -.cmi .mli - {CAMLC} -c {default}.mli - -.cmo .ml - {CAMLC} -c {default}.ml - -.fast.cmo .ml - {CAMLC} -unsafe -c {default}.ml - -.c.o .c - sc -w 7 -i :::byterun: {default}.c -o {default}.c.o - -.c.x .c - mrc -w 7 -w 35 -i :::byterun: {default}.c -o {default}.c.x - -clean - delete -i .byt || set status 0 - delete -i .cm[io] || set status 0 - delete -i .c.[ox] || set status 0 - delete -i intext.data - -# Dependencies - -depend - {CAMLDEP} .mli .ml > Makefile.Mac.depend diff --git a/test/testinterp/Makefile.Mac b/test/testinterp/Makefile.Mac deleted file mode 100644 index 16e00fdf5..000000000 --- a/test/testinterp/Makefile.Mac +++ /dev/null @@ -1,37 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - -start = 0 - -default ocamlrun.ppc ocamlrun.68k - :runtest.mpw -start {start} -run ocamlrun.68k t.ml - #:runtest.mpw -start {start} -run ocamlrun.ppc t.ml - -all default -test default - -comments - runtest.mpw -bc t.ml - -ocamlrun.ppc :::byterun:ocamlrun no68k.rez - duplicate -y :::byterun:ocamlrun ocamlrun.ppc - rez -a no68k.rez -o ocamlrun.ppc - -ocamlrun.68k :::byterun:ocamlrun noppc.rez - duplicate -y :::byterun:ocamlrun ocamlrun.68k - rez -a noppc.rez -o ocamlrun.68k - -clean - delete -i .cm[io] || set status 0 - delete -i a.out diff --git a/tools/Makefile.Mac b/tools/Makefile.Mac deleted file mode 100644 index 0a9a07906..000000000 --- a/tools/Makefile.Mac +++ /dev/null @@ -1,137 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - -CAMLRUN = ::boot:ocamlrun -CAMLC = "{CAMLRUN}" ::boot:ocamlc -I ::boot: -CAMLLEX = "{CAMLRUN}" ::boot:ocamllex -INCLUDES = -I ::utils: -I ::parsing: -I ::typing: -I ::bytecomp: -I ::asmcomp: -COMPFLAGS = {INCLUDES} -LINKFLAGS = {INCLUDES} - -all ocamldep ocamldumpobj objinfo primreq keywords - -# The dependency generator - -CAMLDEP_IMPORTS = misc.cmo config.cmo clflags.cmo terminfo.cmo - linenum.cmo warnings.cmo location.cmo longident.cmo - syntaxerr.cmo parser.cmo lexer.cmo parse.cmo - -CAMLDEP = depend.cmo ocamldep.cmo - -ocamldep depend.cmi {CAMLDEP} - {CAMLC} {LINKFLAGS} -o ocamldep {CAMLDEP_IMPORTS} {CAMLDEP} - -clean - delete -i ocamldep - -install - duplicate -y ocamldep "{BINDIR}ocamldep" - -# The profiler (not available on MacOS for the moment) -# -#CSLPROF = ocamlprof.cmo -#CSLPROF_IMPORTS = misc.cmo config.cmo clflags.cmo terminfo.cmo -# linenum.cmo warnings.cmo location.cmo longident.cmo pstream.cmo -# syntaxerr.cmo parser.cmo lexer.cmo parse.cmo -# -#ocamlprof {CSLPROF} profiling.cmo -# {CAMLC} {LINKFLAGS} -o ocamlprof {CSLPROF_IMPORTS} {CSLPROF} -# -#install -# duplicate -y ocamlprof "{BINDIR}ocamlprof" -# duplicate -y ocamlcp "{BINDIR}ocamlcp" -# duplicate -y profiling.cmi profiling.cmo "{LIBDIR}" -# -#clean -# delete -i ocamlprof - -# To make custom toplevels - -install - duplicate -y ocamlmktop.tpl "{BINDIR}ocamlmktop" - -# The bytecode disassembler - -DUMPOBJ = opnames.cmo dumpobj.cmo - -ocamldumpobj {DUMPOBJ} - {CAMLC} {LINKFLAGS} -o ocamldumpobj - misc.cmo tbl.cmo config.cmo ident.cmo opcodes.cmo - bytesections.cmo {DUMPOBJ} - -clean - delete -i ocamldumpobj - -install - duplicate -y ocamldumpobj "{BINDIR}ocamldumpobj" - -opnames.ml ::byterun:instruct.h - streamedit -e '//*/ delete' - -e '/enum ()0 {/ replace // "let names_of_" 0 "= [|"' - -e '/};/ replace // "|]"' - -e '/([A-Z][A-Z_0-9a-z]*)0/ replace // """ 0 """ -c ' - -e '/,/ replace // ";" -c ' - ::byterun:instruct.h > opnames.ml - -clean - delete -i opnames.ml - -beforedepend opnames.ml - -# Dump .cmx files - -#dumpapprox dumpapprox.cmo -# {CAMLC} {LINKFLAGS} -o dumpapprox config.cmo dumpapprox.cmo -# -#clean -# delete -i dumpapprox - -# Print imported interfaces for .cmo files - -objinfo objinfo.cmo - {CAMLC} {LINKFLAGS} -o objinfo config.cmo objinfo.cmo - -clean - delete -i objinfo - -# Common stuff - -.cmo .ml - {CAMLC} -c {COMPFLAGS} {depdir}{default}.ml - -.cmi .mli - {CAMLC} -c {COMPFLAGS} {depdir}{default}.mli - -clean - delete -i .cm[io] || set status 0 - -depend beforedepend - {CAMLRUN} :ocamldep {INCLUDES} .mli .ml > Makefile.Mac.depend - -# Scan object files for required primitives - -primreq primreq.cmo - {CAMLC} {LINKFLAGS} -o primreq config.cmo primreq.cmo - -clean - delete -i primreq - - -# Resources for keyword-coloring for MPW Shell - -keywords keywords.r - rez -t rsrc -c RSED -o keywords keywords.r - -clean - delete -i keywords diff --git a/yacc/Makefile.Mac b/yacc/Makefile.Mac deleted file mode 100644 index 0bc0dba99..000000000 --- a/yacc/Makefile.Mac +++ /dev/null @@ -1,54 +0,0 @@ -######################################################################### -# # -# Objective Caml # -# # -# Damien Doligez, projet Para, INRIA Rocquencourt # -# # -# Copyright 1999 Institut National de Recherche en Informatique et # -# en Automatique. All rights reserved. This file is distributed # -# under the terms of the Q Public License version 1.0. # -# # -######################################################################### - -# $Id$ - -# Makefile for the parser generator. - -PPCC = mrc -PPCCOptions = -includes unix {cdbgflag} -w 2,35 -PPCLinkOptions = -d {ldbgflag} -PPCLibs = "{sharedlibraries}MathLib" "{ppclibraries}PPCCRuntime.o" - "{ppclibraries}PPCToolLibs.o" "{sharedlibraries}StdCLib" - "{ppclibraries}StdCRuntime.o" "{sharedlibraries}InterfaceLib" - -PPCOBJS = closure.c.x error.c.x lalr.c.x lr0.c.x main.c.x mkpar.c.x - output.c.x - reader.c.x skeleton.c.x symtab.c.x verbose.c.x warshall.c.x - rotatecursor.c.x - -all ocamlyacc - -ocamlyacc {PPCOBJS} - ppclink -c 'MPS ' -t MPST {PPCLinkOptions} -o ocamlyacc {PPCOBJS} {PPCLibs} - -clean - delete -i .c.x || set status 0 - delete -i ocamlyacc - -rotatecursor.c.x ::byterun:rotatecursor.c ::byterun:rotatecursor.h - {ppcc} {ppccoptions} -I ::byterun: -o rotatecursor.c.x ::byterun:rotatecursor.c - -depend - -closure.c.x defs.h ::byterun:rotatecursor.h -error.c.x defs.h ::byterun:rotatecursor.h -lalr.c.x defs.h ::byterun:rotatecursor.h -lr0.c.x defs.h ::byterun:rotatecursor.h -main.c.x defs.h ::byterun:rotatecursor.h -mkpar.c.x defs.h ::byterun:rotatecursor.h -output.c.x defs.h ::byterun:rotatecursor.h -reader.c.x defs.h ::byterun:rotatecursor.h -skeleton.c.x defs.h ::byterun:rotatecursor.h -symtab.c.x defs.h ::byterun:rotatecursor.h -verbose.c.x defs.h ::byterun:rotatecursor.h -warshall.c.x defs.h ::byterun:rotatecursor.h |