diff options
103 files changed, 10473 insertions, 2788 deletions
diff --git a/INSTALL.MPW b/INSTALL.MPW index ce67a2753d..e01a01d5cb 100644 --- a/INSTALL.MPW +++ b/INSTALL.MPW @@ -15,12 +15,19 @@ # You need MPW 3.5 (with MrC) and Universal Interfaces version 3.3 # You need ToolServer (which comes with MPW by default). # You need WASTE version 1.3 +# To use the Unix emulation library "macosunix" in the standalone +# application, you also need: +# + GUSI version 2.0.6 +# + SFIO version 04Aug99 # # 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: -# <XXX some URL XXX> +# <ftp://ftp.boingo.com/dan/WASTE/> +# +# GUSI 2.0.6 and SFIO 04Aug99 are available from: +# <ftp://sunsite.cnlab-switch.ch/software/platform/macos/src/mw_c/> # INSTALLATION INSTRUCTIONS @@ -36,6 +43,11 @@ 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 @@ -156,6 +156,9 @@ coldstart: if test -d stdlib/caml; then :; else \ ln -s ../byterun stdlib/caml; fi +# Build the core system: the minimum needed to make depend and bootstrap +core : runtime ocamlc ocamllex ocamlyacc ocamltools library + # Save the current bootstrap compiler MAXSAVED=boot/Saved/Saved.prev/Saved.prev/Saved.prev/Saved.prev/Saved.prev backup: diff --git a/Makefile.Mac b/Makefile.Mac index 4cc79a6cf5..e3a726ac03 100644 --- a/Makefile.Mac +++ b/Makefile.Mac @@ -14,7 +14,7 @@ # The main Makefile -MacVersion = "Mac{MAJOR}.{MINOR}{STAGE}{REV}" +MacVersion = "Mac{MAJOR}.{MINOR}.{BUGFIX}{STAGE}{REV}" CAMLC = :boot:ocamlrun :boot:ocamlc -I :boot: COMPFLAGS = {INCLUDES} @@ -86,7 +86,7 @@ EXPUNGEOBJS = :utils:misc.cmo :utils:formatmsg.cmo :utils:tbl.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 + marshal int32 int64 nativeint # Recompile the system using the bootstrap compiler all Ä runtime ocamlc ocamllex ocamlyacc ocamltools library ocaml ¶ @@ -134,6 +134,9 @@ coldstart Ä 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:` == "" @@ -216,6 +219,7 @@ install Ä $OutOfDate directory ::: end duplicate -y "{LIBDIR}"Å "{APPLIDIR}stdlib:" + duplicate -y :test:Moretest:graph_example.ml "{APPLIDIR}" directory :maccaml: domake install directory :: diff --git a/Makefile.Mac.depend b/Makefile.Mac.depend index 08626afca4..322a9dad7a 100644 --- a/Makefile.Mac.depend +++ b/Makefile.Mac.depend @@ -111,9 +111,9 @@ :typing:ctype.cmxÄ :parsing:asttypes.cmi :typing:btype.cmx :utils:clflags.cmx ¶ :typing:env.cmx :typing:ident.cmx :utils:misc.cmx :typing:path.cmx ¶ :typing:subst.cmx :typing:types.cmx :typing:ctype.cmi -:typing:datarepr.cmoÄ :parsing:asttypes.cmi :utils:misc.cmi :typing:path.cmi ¶ +:typing:datarepr.cmoÄ :parsing:asttypes.cmi :utils:misc.cmi ¶ :typing:predef.cmi :typing:types.cmi :typing:datarepr.cmi -:typing:datarepr.cmxÄ :parsing:asttypes.cmi :utils:misc.cmx :typing:path.cmx ¶ +:typing:datarepr.cmxÄ :parsing:asttypes.cmi :utils:misc.cmx ¶ :typing:predef.cmx :typing:types.cmx :typing:datarepr.cmi :typing:env.cmoÄ :parsing:asttypes.cmi :typing:btype.cmi :utils:config.cmi ¶ :typing:datarepr.cmi :typing:ident.cmi :parsing:longident.cmi ¶ @@ -212,15 +212,15 @@ :typing:typedecl.cmoÄ :utils:config.cmi :typing:ctype.cmi :typing:env.cmi ¶ :typing:ident.cmi :typing:includecore.cmi :parsing:location.cmi ¶ :parsing:longident.cmi :utils:misc.cmi :parsing:parsetree.cmi ¶ - :typing:path.cmi :typing:primitive.cmi :typing:printtyp.cmi ¶ - :typing:subst.cmi :typing:typedtree.cmi :typing:types.cmi ¶ - :typing:typetexp.cmi :typing:typedecl.cmi + :typing:path.cmi :typing:predef.cmi :typing:primitive.cmi ¶ + :typing:printtyp.cmi :typing:subst.cmi :typing:typedtree.cmi ¶ + :typing:types.cmi :typing:typetexp.cmi :typing:typedecl.cmi :typing:typedecl.cmxÄ :utils:config.cmx :typing:ctype.cmx :typing:env.cmx ¶ :typing:ident.cmx :typing:includecore.cmx :parsing:location.cmx ¶ :parsing:longident.cmx :utils:misc.cmx :parsing:parsetree.cmi ¶ - :typing:path.cmx :typing:primitive.cmx :typing:printtyp.cmx ¶ - :typing:subst.cmx :typing:typedtree.cmx :typing:types.cmx ¶ - :typing:typetexp.cmx :typing:typedecl.cmi + :typing:path.cmx :typing:predef.cmx :typing:primitive.cmx ¶ + :typing:printtyp.cmx :typing:subst.cmx :typing:typedtree.cmx ¶ + :typing:types.cmx :typing:typetexp.cmx :typing:typedecl.cmi :typing:typedtree.cmoÄ :parsing:asttypes.cmi :typing:env.cmi ¶ :typing:ident.cmi :parsing:location.cmi :utils:misc.cmi :typing:path.cmi ¶ :typing:primitive.cmi :typing:types.cmi :typing:typedtree.cmi @@ -483,8 +483,10 @@ :parsing:longident.cmx :utils:misc.cmx :typing:path.cmx ¶ :typing:predef.cmx :typing:printtyp.cmx :typing:types.cmx ¶ :toplevel:genprintval.cmi -:toplevel:printval.cmoÄ :toplevel:genprintval.cmi :toplevel:printval.cmi -:toplevel:printval.cmxÄ :toplevel:genprintval.cmx :toplevel:printval.cmi +:toplevel:printval.cmoÄ :toplevel:genprintval.cmi :utils:misc.cmi ¶ + :typing:path.cmi :bytecomp:symtable.cmi :toplevel:printval.cmi +:toplevel:printval.cmxÄ :toplevel:genprintval.cmx :utils:misc.cmx ¶ + :typing:path.cmx :bytecomp:symtable.cmx :toplevel:printval.cmi :toplevel:topdirs.cmoÄ :bytecomp:bytelink.cmi :utils:clflags.cmo ¶ :utils:config.cmi :typing:ctype.cmi :bytecomp:emitcode.cmi ¶ :typing:env.cmi :typing:ident.cmi :parsing:longident.cmi ¶ @@ -503,29 +505,29 @@ :driver:compile.cmi :utils:config.cmi :bytecomp:emitcode.cmi ¶ :typing:env.cmi :driver:errors.cmi :parsing:location.cmi ¶ :parsing:longident.cmi :bytecomp:meta.cmi :utils:misc.cmi ¶ - :parsing:parse.cmi :parsing:parsetree.cmi :parsing:printast.cmi ¶ - :bytecomp:printinstr.cmi :bytecomp:printlambda.cmi :typing:printtyp.cmi ¶ - :toplevel:printval.cmi :bytecomp:simplif.cmi :bytecomp:symtable.cmi ¶ - :bytecomp:translmod.cmi :typing:typedtree.cmi :typing:typemod.cmi ¶ - :typing:types.cmi :toplevel:toploop.cmi + :parsing:parse.cmi :parsing:parsetree.cmi :typing:predef.cmi ¶ + :parsing:printast.cmi :bytecomp:printinstr.cmi :bytecomp:printlambda.cmi ¶ + :typing:printtyp.cmi :toplevel:printval.cmi :bytecomp:simplif.cmi ¶ + :bytecomp:symtable.cmi :bytecomp:translmod.cmi :typing:typedtree.cmi ¶ + :typing:typemod.cmi :typing:types.cmi :toplevel:toploop.cmi :toplevel:toploop.cmxÄ :bytecomp:bytegen.cmx :utils:clflags.cmx ¶ :driver:compile.cmx :utils:config.cmx :bytecomp:emitcode.cmx ¶ :typing:env.cmx :driver:errors.cmx :parsing:location.cmx ¶ :parsing:longident.cmx :bytecomp:meta.cmx :utils:misc.cmx ¶ - :parsing:parse.cmx :parsing:parsetree.cmi :parsing:printast.cmx ¶ - :bytecomp:printinstr.cmx :bytecomp:printlambda.cmx :typing:printtyp.cmx ¶ - :toplevel:printval.cmx :bytecomp:simplif.cmx :bytecomp:symtable.cmx ¶ - :bytecomp:translmod.cmx :typing:typedtree.cmx :typing:typemod.cmx ¶ - :typing:types.cmx :toplevel:toploop.cmi + :parsing:parse.cmx :parsing:parsetree.cmi :typing:predef.cmx ¶ + :parsing:printast.cmx :bytecomp:printinstr.cmx :bytecomp:printlambda.cmx ¶ + :typing:printtyp.cmx :toplevel:printval.cmx :bytecomp:simplif.cmx ¶ + :bytecomp:symtable.cmx :bytecomp:translmod.cmx :typing:typedtree.cmx ¶ + :typing:typemod.cmx :typing:types.cmx :toplevel:toploop.cmi :toplevel:topmain.cmoÄ :utils:clflags.cmo :toplevel:toploop.cmi ¶ :utils:warnings.cmi :toplevel:topmain.cmxÄ :utils:clflags.cmx :toplevel:toploop.cmx ¶ :utils:warnings.cmx :toplevel:trace.cmoÄ :typing:ctype.cmi :parsing:longident.cmi ¶ - :bytecomp:meta.cmi :utils:misc.cmi :typing:path.cmi :typing:printtyp.cmi ¶ - :toplevel:printval.cmi :toplevel:toploop.cmi :typing:types.cmi ¶ - :toplevel:trace.cmi + :bytecomp:meta.cmi :utils:misc.cmi :typing:path.cmi :typing:predef.cmi ¶ + :typing:printtyp.cmi :toplevel:printval.cmi :toplevel:toploop.cmi ¶ + :typing:types.cmi :toplevel:trace.cmi :toplevel:trace.cmxÄ :typing:ctype.cmx :parsing:longident.cmx ¶ - :bytecomp:meta.cmx :utils:misc.cmx :typing:path.cmx :typing:printtyp.cmx ¶ - :toplevel:printval.cmx :toplevel:toploop.cmx :typing:types.cmx ¶ - :toplevel:trace.cmi + :bytecomp:meta.cmx :utils:misc.cmx :typing:path.cmx :typing:predef.cmx ¶ + :typing:printtyp.cmx :toplevel:printval.cmx :toplevel:toploop.cmx ¶ + :typing:types.cmx :toplevel:trace.cmi diff --git a/Makefile.nt b/Makefile.nt index 7348ed8274..baa93a2626 100644 --- a/Makefile.nt +++ b/Makefile.nt @@ -153,6 +153,9 @@ coldstart: cd stdlib & $(MAKEREC) COMPILER=..\boot\ocamlc all cd stdlib & cp $(LIBFILES) ..\boot +# Build the core system: the minimum needed to make depend and bootstrap +core : runtime ocamlc ocamllex ocamlyacc ocamltools library + # Save the current bootstrap compiler MAXSAVED=boot\Saved\Saved.prev\Saved.prev\Saved.prev\Saved.prev\Saved.prev backup: diff --git a/asmrun/arm.S b/asmrun/arm.S index b34fe56830..cd39673e88 100644 --- a/asmrun/arm.S +++ b/asmrun/arm.S @@ -14,12 +14,12 @@ /* Asm part of the runtime system, ARM processor */ -trap_ptr .req r11 -alloc_ptr .req r8 -alloc_limit .req r9 -sp .req r13 -lr .req r14 -pc .req r15 +trap_ptr .req r11 +alloc_ptr .req r8 +alloc_limit .req r9 +sp .req r13 +lr .req r14 +pc .req r15 .text @@ -39,7 +39,7 @@ caml_call_gc: .global caml_alloc1 caml_alloc1: - ldr r10, [alloc_limit, #0] + ldr r10, [alloc_limit, #0] sub alloc_ptr, alloc_ptr, #8 cmp alloc_ptr, r10 movcs pc, lr /* Return if alloc_ptr >= alloc_limit */ @@ -53,7 +53,7 @@ caml_alloc1: .global caml_alloc2 caml_alloc2: - ldr r10, [alloc_limit, #0] + ldr r10, [alloc_limit, #0] sub alloc_ptr, alloc_ptr, #12 cmp alloc_ptr, r10 movcs pc, lr /* Return if alloc_ptr >= alloc_limit */ @@ -67,7 +67,7 @@ caml_alloc2: .global caml_alloc3 caml_alloc3: - ldr r10, [alloc_limit, #0] + ldr r10, [alloc_limit, #0] sub alloc_ptr, alloc_ptr, #16 cmp alloc_ptr, r10 movcs pc, lr /* Return if alloc_ptr >= alloc_limit */ @@ -81,11 +81,11 @@ caml_alloc3: .global caml_alloc caml_alloc: - str r12, [sp, #-4]! - ldr r12, [alloc_limit, #0] + str r12, [sp, #-4]! + ldr r12, [alloc_limit, #0] sub alloc_ptr, alloc_ptr, r10 cmp alloc_ptr, r12 - ldr r12, [sp], #4 + ldr r12, [sp], #4 movcs pc, lr /* Return if alloc_ptr >= alloc_limit */ /* Record return address and desired size */ ldr alloc_limit, .Lcaml_last_return_address @@ -94,7 +94,7 @@ caml_alloc: /* Invoke GC */ bl .Linvoke_gc /* Try again */ - ldr r10, .Lcaml_requested_size + ldr r10, .Lcaml_requested_size b caml_alloc /* Shared code to invoke the GC */ @@ -120,7 +120,7 @@ caml_alloc: str trap_ptr, [r10, #0] /* Call the garbage collector */ bl garbage_collection - /* Restore the registers from the stack */ + /* Restore the registers from the stack */ ldfd f4, [sp], #8 ldfd f5, [sp], #8 ldfd f6, [sp], #8 @@ -202,7 +202,7 @@ caml_start_program: str r4, [sp, #0] ldr r4, .LLtrap_handler str r4, [sp, #4] - mov trap_ptr, sp + mov trap_ptr, sp /* Reload allocation pointers */ ldr r4, .Lyoung_ptr ldr alloc_ptr, [r4, #0] @@ -268,7 +268,7 @@ raise_caml_exception: ldr r1, .Lcaml_exception_pointer ldr sp, [r1, #0] /* Pop previous handler and addr of trap, and jump to it */ - ldmfd sp!, {trap_ptr, pc} + ldmfd sp!, {trap_ptr, pc} /* Callback from C to Caml */ @@ -322,7 +322,7 @@ caml_array_bound_error: .LLtrap_handler: .word .Ltrap_handler .Lcaml_apply2: .word caml_apply2 .Lcaml_apply3: .word caml_apply3 -.Lcaml_requested_size: .word 0 +.Lcaml_requested_size: .word 0 .Larray_bound_error: .word array_bound_error /* GC roots for callback */ diff --git a/asmrun/mips.s b/asmrun/mips.s index 92a8306b5f..80de0d7001 100644 --- a/asmrun/mips.s +++ b/asmrun/mips.s @@ -62,38 +62,38 @@ caml_call_gc: sw $19, 19 * 4($24) sw $20, 20 * 4($24) sw $21, 21 * 4($24) - s.d $f0, 0 * 8($sp) - s.d $f1, 1 * 8($sp) - s.d $f2, 2 * 8($sp) - s.d $f3, 3 * 8($sp) - s.d $f4, 4 * 8($sp) - s.d $f5, 5 * 8($sp) - s.d $f6, 6 * 8($sp) - s.d $f7, 7 * 8($sp) - s.d $f8, 8 * 8($sp) - s.d $f9, 9 * 8($sp) - s.d $f10, 10 * 8($sp) - s.d $f11, 11 * 8($sp) - s.d $f12, 12 * 8($sp) - s.d $f13, 13 * 8($sp) - s.d $f14, 14 * 8($sp) - s.d $f15, 15 * 8($sp) - s.d $f16, 16 * 8($sp) - s.d $f17, 17 * 8($sp) - s.d $f18, 18 * 8($sp) - s.d $f19, 19 * 8($sp) - s.d $f20, 20 * 8($sp) - s.d $f21, 21 * 8($sp) - s.d $f22, 22 * 8($sp) - s.d $f23, 23 * 8($sp) - s.d $f24, 24 * 8($sp) - s.d $f25, 25 * 8($sp) - s.d $f26, 26 * 8($sp) - s.d $f27, 27 * 8($sp) - s.d $f28, 28 * 8($sp) - s.d $f29, 29 * 8($sp) - s.d $f30, 30 * 8($sp) - s.d $f31, 31 * 8($sp) + s.d $f0, 0 * 8($sp) + s.d $f1, 1 * 8($sp) + s.d $f2, 2 * 8($sp) + s.d $f3, 3 * 8($sp) + s.d $f4, 4 * 8($sp) + s.d $f5, 5 * 8($sp) + s.d $f6, 6 * 8($sp) + s.d $f7, 7 * 8($sp) + s.d $f8, 8 * 8($sp) + s.d $f9, 9 * 8($sp) + s.d $f10, 10 * 8($sp) + s.d $f11, 11 * 8($sp) + s.d $f12, 12 * 8($sp) + s.d $f13, 13 * 8($sp) + s.d $f14, 14 * 8($sp) + s.d $f15, 15 * 8($sp) + s.d $f16, 16 * 8($sp) + s.d $f17, 17 * 8($sp) + s.d $f18, 18 * 8($sp) + s.d $f19, 19 * 8($sp) + s.d $f20, 20 * 8($sp) + s.d $f21, 21 * 8($sp) + s.d $f22, 22 * 8($sp) + s.d $f23, 23 * 8($sp) + s.d $f24, 24 * 8($sp) + s.d $f25, 25 * 8($sp) + s.d $f26, 26 * 8($sp) + s.d $f27, 27 * 8($sp) + s.d $f28, 28 * 8($sp) + s.d $f29, 29 * 8($sp) + s.d $f30, 30 * 8($sp) + s.d $f31, 31 * 8($sp) /* Call the garbage collector */ jal garbage_collection /* Restore all regs used by the code generator */ @@ -118,38 +118,38 @@ caml_call_gc: lw $19, 19 * 4($24) lw $20, 20 * 4($24) lw $21, 21 * 4($24) - l.d $f0, 0 * 8($sp) - l.d $f1, 1 * 8($sp) - l.d $f2, 2 * 8($sp) - l.d $f3, 3 * 8($sp) - l.d $f4, 4 * 8($sp) - l.d $f5, 5 * 8($sp) - l.d $f6, 6 * 8($sp) - l.d $f7, 7 * 8($sp) - l.d $f8, 8 * 8($sp) - l.d $f9, 9 * 8($sp) - l.d $f10, 10 * 8($sp) - l.d $f11, 11 * 8($sp) - l.d $f12, 12 * 8($sp) - l.d $f13, 13 * 8($sp) - l.d $f14, 14 * 8($sp) - l.d $f15, 15 * 8($sp) - l.d $f16, 16 * 8($sp) - l.d $f17, 17 * 8($sp) - l.d $f18, 18 * 8($sp) - l.d $f19, 19 * 8($sp) - l.d $f20, 20 * 8($sp) - l.d $f21, 21 * 8($sp) - l.d $f22, 22 * 8($sp) - l.d $f23, 23 * 8($sp) - l.d $f24, 24 * 8($sp) - l.d $f25, 25 * 8($sp) - l.d $f26, 26 * 8($sp) - l.d $f27, 27 * 8($sp) - l.d $f28, 28 * 8($sp) - l.d $f29, 29 * 8($sp) - l.d $f30, 30 * 8($sp) - l.d $f31, 31 * 8($sp) + l.d $f0, 0 * 8($sp) + l.d $f1, 1 * 8($sp) + l.d $f2, 2 * 8($sp) + l.d $f3, 3 * 8($sp) + l.d $f4, 4 * 8($sp) + l.d $f5, 5 * 8($sp) + l.d $f6, 6 * 8($sp) + l.d $f7, 7 * 8($sp) + l.d $f8, 8 * 8($sp) + l.d $f9, 9 * 8($sp) + l.d $f10, 10 * 8($sp) + l.d $f11, 11 * 8($sp) + l.d $f12, 12 * 8($sp) + l.d $f13, 13 * 8($sp) + l.d $f14, 14 * 8($sp) + l.d $f15, 15 * 8($sp) + l.d $f16, 16 * 8($sp) + l.d $f17, 17 * 8($sp) + l.d $f18, 18 * 8($sp) + l.d $f19, 19 * 8($sp) + l.d $f20, 20 * 8($sp) + l.d $f21, 21 * 8($sp) + l.d $f22, 22 * 8($sp) + l.d $f23, 23 * 8($sp) + l.d $f24, 24 * 8($sp) + l.d $f25, 25 * 8($sp) + l.d $f26, 26 * 8($sp) + l.d $f27, 27 * 8($sp) + l.d $f28, 28 * 8($sp) + l.d $f29, 29 * 8($sp) + l.d $f30, 30 * 8($sp) + l.d $f31, 31 * 8($sp) /* Reload new allocation pointer and allocation limit */ lw $22, young_ptr lw $23, young_limit @@ -175,7 +175,7 @@ caml_c_call: /* Function to call is in $24 */ /* Set up $gp, saving caller's $gp in callee-save register $19 */ .cpsetup $25, $19, caml_c_call - /* Preload addresses of interesting global variables + /* Preload addresses of interesting global variables in callee-save registers */ la $16, caml_last_return_address la $17, young_ptr @@ -209,7 +209,7 @@ caml_start_program: /* Setup $gp */ .cpsetup $25, 0x80, caml_start_program /* Load in $24 the code address to call */ - la $24, caml_program + la $24, caml_program /* Code shared with callback* */ $103: /* Save return address */ @@ -253,7 +253,7 @@ $103: sw $0, caml_last_return_address /* Call the Caml code */ move $25, $24 - jal $24 + jal $24 $104: /* Pop the trap frame, restoring caml_exception_pointer */ lw $24, 0($sp) @@ -290,7 +290,7 @@ $106: .cpreturn addu $sp, $sp, 0x90 j $31 - + /* The trap handler: encode exception bucket as an exception result and return it */ $105: diff --git a/asmrun/power-aix.S b/asmrun/power-aix.S index 6566af8103..7d21e3e981 100644 --- a/asmrun/power-aix.S +++ b/asmrun/power-aix.S @@ -184,7 +184,7 @@ .globl .caml_c_call .caml_c_call: # Save return address in 25 - mflr 25 + mflr 25 # Record lowest stack address and return address lwz 27, L..caml_bottom_of_stack(2) lwz 24, L..caml_last_return_address(2) @@ -218,7 +218,7 @@ stw 12, 0(24) # 24 still points to caml_last_return_address # Return to caller blr - + #### Raise an exception from C .globl .raise_caml_exception @@ -254,27 +254,27 @@ L..102: mflr 0 # Save return address - stw 0, 8(1) + stw 0, 8(1) # Save all callee-save registers - stw 13, -76(1) - stw 14, -72(1) - stw 15, -68(1) - stw 16, -64(1) - stw 17, -60(1) - stw 18, -56(1) - stw 19, -52(1) - stw 20, -48(1) - stw 21, -44(1) - stw 22, -40(1) - stw 23, -36(1) - stw 24, -32(1) - stw 25, -28(1) - stw 26, -24(1) - stw 27, -20(1) - stw 28, -16(1) - stw 29, -12(1) - stw 30, -8(1) - stw 31, -4(1) + stw 13, -76(1) + stw 14, -72(1) + stw 15, -68(1) + stw 16, -64(1) + stw 17, -60(1) + stw 18, -56(1) + stw 19, -52(1) + stw 20, -48(1) + stw 21, -44(1) + stw 22, -40(1) + stw 23, -36(1) + stw 24, -32(1) + stw 25, -28(1) + stw 26, -24(1) + stw 27, -20(1) + stw 28, -16(1) + stw 29, -12(1) + stw 30, -8(1) + stw 31, -4(1) stfd 14, -224(1) stfd 15, -216(1) stfd 16, -208(1) @@ -294,7 +294,7 @@ L..102: stfd 30, -96(1) stfd 31, -88(1) # Allocate and link stack frame - stwu 1, -280(1) + stwu 1, -280(1) # Set up a callback link addi 1, 1, -24 lwz 9, L..caml_bottom_of_stack(2) @@ -356,27 +356,27 @@ L..106: lwz 11, L..young_ptr(2) stw 31, 0(11) # Deallocate stack frame - addi 1, 1, 280 + addi 1, 1, 280 # Restore callee-save registers - lwz 13, -76(1) - lwz 14, -72(1) - lwz 15, -68(1) - lwz 16, -64(1) - lwz 17, -60(1) - lwz 18, -56(1) - lwz 19, -52(1) - lwz 20, -48(1) - lwz 21, -44(1) - lwz 22, -40(1) - lwz 23, -36(1) - lwz 24, -32(1) - lwz 25, -28(1) - lwz 26, -24(1) - lwz 27, -20(1) - lwz 28, -16(1) - lwz 29, -12(1) - lwz 30, -8(1) - lwz 31, -4(1) + lwz 13, -76(1) + lwz 14, -72(1) + lwz 15, -68(1) + lwz 16, -64(1) + lwz 17, -60(1) + lwz 18, -56(1) + lwz 19, -52(1) + lwz 20, -48(1) + lwz 21, -44(1) + lwz 22, -40(1) + lwz 23, -36(1) + lwz 24, -32(1) + lwz 25, -28(1) + lwz 26, -24(1) + lwz 27, -20(1) + lwz 28, -16(1) + lwz 29, -12(1) + lwz 30, -8(1) + lwz 31, -4(1) lfd 14, -224(1) lfd 15, -216(1) lfd 16, -208(1) @@ -396,8 +396,8 @@ L..106: lfd 30, -96(1) lfd 31, -88(1) # Reload return address - lwz 0, 8(1) - mtlr 0 + lwz 0, 8(1) + mtlr 0 # Return blr # The trap handler: @@ -428,7 +428,7 @@ L..104: mr 5, 0 lwz 11, L..caml_apply2(2) b L..102 - + .globl .callback3_exn .callback3_exn: mr 0, 3 # Closure @@ -510,4 +510,3 @@ callback2_exn: .csect callback3_exn[DS] callback3_exn: .long .callback3_exn, TOC[tc0], 0 - diff --git a/byterun/Makefile.Mac b/byterun/Makefile.Mac index d7754ca8b8..a66172b39f 100644 --- a/byterun/Makefile.Mac +++ b/byterun/Makefile.Mac @@ -12,9 +12,14 @@ # $Id$ +#adbgflag = -sym on -d DEBUG -wb -l +#cdbgflag = -sym on -d DEBUG +#ldbgflag = -sym on + C = sc -COptions = -model far -w 29,30,35 # -d DEBUG -mbg full -AOptions = -model far # -d DEBUG -wb -l +COptions = -w 29,30,35 {ocamlgusiflag} -i ::config: {cdbgflag} ¶ + -model far -mbg full +AOptions = -model far {adbgflag} LinkOptions = -model far -ad 4 -msg nodup -compact -pad 0 -state nouse -br 68k Libs = "{libraries}IntEnv.o" ¶ "{libraries}Interface.o" ¶ @@ -24,29 +29,37 @@ Libs = "{libraries}IntEnv.o" ¶ "{libraries}ToolLibs.o" PPCC = mrc -PPCCOptions = -w 29,30,35 # -sym on -d DEBUG # beware: "-sym on" => "-opt off" -PPCLinkOptions = -d # -sym on +PPCCOptions = -w 29,30,35 {ocamlgusiflag} -i ::config: {cdbgflag} +PPCLinkOptions = -d {ldbgflag} PPCLibs = "{sharedlibraries}MathLib" "{ppclibraries}PPCCRuntime.o" ¶ "{ppclibraries}PPCToolLibs.o" "{sharedlibraries}StdCLib" ¶ "{ppclibraries}StdCRuntime.o" "{sharedlibraries}InterfaceLib" -OBJS = interp.a.o misc.c.o stacks.c.o fix_code.c.o startup.c.o main.c.o ¶ - freelist.c.o major_gc.c.o minor_gc.c.o memory.c.o alloc.c.o roots.c.o ¶ - fail.c.o signals.c.o ¶ - compare.c.o ints.c.o floats.c.o str.c.o array.c.o io.c.o extern.c.o ¶ - intern.c.o ¶ - hash.c.o sys.c.o meta.c.o parsing.c.o gc_ctrl.c.o terminfo.c.o md5.c.o ¶ - obj.c.o lexing.c.o macintosh.c.o rotatecursor.c.o printexc.c.o callback.c.o ¶ - debugger.c.o weak.c.o compact.c.o instrtrace.c.o finalise.c.o custom.c.o - -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 +OBJS = :interp.a.o :misc.c.o :stacks.c.o ¶ + :fix_code.c.o :startup.c.o :main.c.o ¶ + :freelist.c.o :major_gc.c.o :minor_gc.c.o :memory.c.o :alloc.c.o :roots.c.o ¶ + :fail.c.o :signals.c.o ¶ + :compare.c.o :ints.c.o :floats.c.o :str.c.o :array.c.o :io.c.o :extern.c.o ¶ + :intern.c.o ¶ + :hash.c.o :sys.c.o :meta.c.o :parsing.c.o ¶ + :gc_ctrl.c.o :terminfo.c.o :md5.c.o ¶ + :obj.c.o :lexing.c.o :macintosh.c.o ¶ + :rotatecursor.c.o :printexc.c.o :callback.c.o ¶ + :debugger.c.o :weak.c.o :compact.c.o ¶ + :instrtrace.c.o :finalise.c.o :custom.c.o + +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 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 ¶ @@ -56,20 +69,20 @@ PUBLIC_INCLUDES = mlvalues.h alloc.h misc.h callback.h fail.h custom.h all Ä ocamlrun libcamlrun.o libcamlrun.x -ocamlrun ÄÄ libcamlrun.o prims.c.o - ilink -c 'MPS ' -t MPST {LinkOptions} -o ocamlrun prims.c.o ¶ - libcamlrun.o {libs} - -ocamlrun ÄÄ libcamlrun.x prims.c.x +ocamlrun ÄÄ libcamlrun.x :prims.c.x ppclink -c 'MPS ' -t MPST {PPCLinkOptions} -o ocamlrun prims.c.x ¶ libcamlrun.x {PPCLibs} -libcamlrun.o Ä {OBJS} - lib -o libcamlrun.o {OBJS} +ocamlrun ÄÄ libcamlrun.o :prims.c.o + ilink -c 'MPS ' -t MPST {LinkOptions} -o ocamlrun prims.c.o ¶ + libcamlrun.o {libs} libcamlrun.x Ä {PPCOBJS} ppclink {PPCLinkOptions} -xm library -o libcamlrun.x {PPCOBJS} +libcamlrun.o Ä {OBJS} + lib -o libcamlrun.o {OBJS} + install Ä duplicate -y ocamlrun "{BINDIR}ocamlrun" duplicate -y libcamlrun.x libcamlrun.o "{LIBDIR}" @@ -80,8 +93,11 @@ install Ä duplicate -y config.h "{LIBDIR}caml:" open -t "{LIBDIR}caml:config.h" find ¥ "{LIBDIR}caml:config.h" - find /Å'#include "'Åsm-Mac.hÅ°/ "{LIBDIR}caml:config.h" - catenate ::config:sm-Mac.h > "{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" @@ -104,7 +120,7 @@ primitives Ä {PRIMS} streamedit -d -e "/ ([a-z0-9_]+)¨0 *'('Å'* ML *'/ print ¨0" {PRIMS} ¶ > primitives -prims.c Ä primitives +:prims.c Ä primitives echo '#include "mlvalues.h"' > prims.c echo '#include "prims.h"' >> prims.c streamedit -e '1,$ change "extern value " . "();"' primitives >>prims.c @@ -115,16 +131,18 @@ prims.c Ä primitives streamedit -e '1,$ change " ¶"" . "¶","' primitives >> prims.c echo '0 };' >> prims.c -opnames.h Ä instruct.h +: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 -rotatecursor.c.o Ä +:rotatecursor.c.o Ä {C} -b rotatecursor.c -o rotatecursor.c.o {COptions} -depend Ä prims.c opnames.h - makedepend Å.c > Makefile.Mac.depend · dev:null - makedepend -objext .x Å.c >> Makefile.Mac.depend · dev:null +depend Ä :prims.c :opnames.h + begin + makedepend -w -objext .x Å.c + makedepend -w Å.c + end | streamedit -e "/¶t/ replace // ' ' -c °" > Makefile.Mac.depend diff --git a/byterun/Makefile.Mac.depend b/byterun/Makefile.Mac.depend index e69de29bb2..7049bf6070 100644 --- a/byterun/Makefile.Mac.depend +++ b/byterun/Makefile.Mac.depend @@ -0,0 +1,2168 @@ +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:49:05 on 3 avr 2000 by MakeDepend + +:alloc.c.x Ä ¶ + :alloc.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + :misc.h ¶ + :freelist.h ¶ + :config.h ¶ + :gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"WCharTDef.h + +:array.c.x Ä ¶ + :array.c ¶ + :alloc.h ¶ + :fail.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:callback.c.x Ä ¶ + :callback.c ¶ + "{CIncludes}"string.h ¶ + :callback.h ¶ + :fail.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :interp.h ¶ + :instruct.h ¶ + :fix_code.h ¶ + :stacks.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :misc.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:compact.c.x Ä ¶ + :compact.c ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :finalise.h ¶ + :freelist.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :weak.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :misc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"WCharTDef.h + +:compare.c.x Ä ¶ + :compare.c ¶ + :custom.h ¶ + :fail.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:custom.c.x Ä ¶ + :custom.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:debugger.c.x Ä ¶ + :debugger.c ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :debugger.h ¶ + :fail.h ¶ + :fix_code.h ¶ + :instruct.h ¶ + :intext.h ¶ + :io.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + :sys.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :memory.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + :freelist.h + +:extern.c.x Ä ¶ + :extern.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :gc.h ¶ + :intext.h ¶ + :io.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :reverse.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :fix_code.h ¶ + :config.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:fail.c.x Ä ¶ + :fail.c ¶ + :alloc.h ¶ + :fail.h ¶ + :io.h ¶ + :gc.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :signals.h ¶ + :stacks.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:finalise.c.x Ä ¶ + :finalise.c ¶ + :callback.h ¶ + :fail.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :signals.h ¶ + "{CIncludes}"setjmp.h ¶ + :misc.h ¶ + :config.h ¶ + :memory.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :freelist.h + +:fix_code.c.x Ä ¶ + :fix_code.c ¶ + :config.h ¶ + :debugger.h ¶ + :fix_code.h ¶ + :instruct.h ¶ + :md5.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :reverse.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :io.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:floats.c.x Ä ¶ + :floats.c ¶ + "{CIncludes}"math.h ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"stdlib.h ¶ + :alloc.h ¶ + :fail.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :misc.h ¶ + :stacks.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h + +:freelist.c.x Ä ¶ + :freelist.c ¶ + :config.h ¶ + :freelist.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:gc_ctrl.c.x Ä ¶ + :gc_ctrl.c ¶ + :alloc.h ¶ + :compact.h ¶ + :custom.h ¶ + :finalise.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + :config.h ¶ + :roots.h ¶ + :freelist.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :memory.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:hash.c.x Ä ¶ + :hash.c ¶ + :mlvalues.h ¶ + :custom.h ¶ + :memory.h ¶ + :config.h ¶ + :misc.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:instrtrace.c.x Ä ¶ + :instrtrace.c ¶ + "{CIncludes}"stdio.h ¶ + :instruct.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :opnames.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"WCharTDef.h + +:intern.c.x Ä ¶ + :intern.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :gc.h ¶ + :intext.h ¶ + :io.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :misc.h ¶ + :reverse.h ¶ + :md5.h ¶ + :fix_code.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:interp.c.x Ä ¶ + :interp.c ¶ + :alloc.h ¶ + :callback.h ¶ + :debugger.h ¶ + :fail.h ¶ + :fix_code.h ¶ + :instrtrace.h ¶ + :instruct.h ¶ + :interp.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :prims.h ¶ + :signals.h ¶ + :stacks.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :freelist.h ¶ + :gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:ints.c.x Ä ¶ + :ints.c ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :intext.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :io.h ¶ + :fix_code.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:io.c.x Ä ¶ + :io.c ¶ + "{CIncludes}"errno.h ¶ + "{CIncludes}"fcntl.h ¶ + "{CIncludes}"limits.h ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :io.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :signals.h ¶ + :sys.h ¶ + :ui.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"NullDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:lexing.c.x Ä ¶ + :lexing.c ¶ + :fail.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + "{CIncludes}"setjmp.h ¶ + :misc.h ¶ + :config.h ¶ + :memory.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :freelist.h + +:macintosh.c.x Ä ¶ + :macintosh.c ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"AppleEvents.h ¶ + "{CIncludes}"CursorCtl.h ¶ + "{CIncludes}"Errors.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"IntEnv.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"QuickDraw.h ¶ + "{CIncludes}"TextUtils.h ¶ + :misc.h ¶ + :rotatecursor.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"Finder.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Script.h ¶ + ::config:m.h ¶ + ::config:s.h + +:main.c.x Ä ¶ + :main.c ¶ + :misc.h ¶ + :mlvalues.h ¶ + :sys.h ¶ + :rotatecursor.h ¶ + :signals.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:major_gc.c.x Ä ¶ + :major_gc.c ¶ + "{CIncludes}"limits.h ¶ + :compact.h ¶ + :custom.h ¶ + :config.h ¶ + :fail.h ¶ + :finalise.h ¶ + :freelist.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :weak.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :memory.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :minor_gc.h + +:md5.c.x Ä ¶ + :md5.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :fail.h ¶ + :md5.h ¶ + :mlvalues.h ¶ + :io.h ¶ + :reverse.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"WCharTDef.h + +:memory.c.x Ä ¶ + :memory.c ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"string.h ¶ + :fail.h ¶ + :freelist.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :signals.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + ::config:m.h ¶ + ::config:s.h + +:meta.c.x Ä ¶ + :meta.c ¶ + :alloc.h ¶ + :config.h ¶ + :fail.h ¶ + :fix_code.h ¶ + :interp.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :prims.h ¶ + :stacks.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :freelist.h ¶ + :gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:minor_gc.c.x Ä ¶ + :minor_gc.c ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :fail.h ¶ + :finalise.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :signals.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :freelist.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"WCharTDef.h + +:misc.c.x Ä ¶ + :misc.c ¶ + "{CIncludes}"stdio.h ¶ + :config.h ¶ + :misc.h ¶ + :ui.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"WCharTDef.h + +:obj.c.x Ä ¶ + :obj.c ¶ + :alloc.h ¶ + :fail.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :prims.h ¶ + "{CIncludes}"setjmp.h ¶ + :freelist.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:parsing.c.x Ä ¶ + :parsing.c ¶ + "{CIncludes}"stdio.h ¶ + :config.h ¶ + :mlvalues.h ¶ + :memory.h ¶ + :alloc.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :misc.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:prims.c.x Ä ¶ + :prims.c ¶ + :mlvalues.h ¶ + :prims.h ¶ + :config.h ¶ + :misc.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:printexc.c.x Ä ¶ + :printexc.c ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"string.h ¶ + :fail.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :ui.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + ::config:m.h ¶ + ::config:s.h + +:roots.c.x Ä ¶ + :roots.c ¶ + :finalise.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :stacks.h ¶ + :freelist.h ¶ + :config.h ¶ + :gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:rotatecursor.c.x Ä ¶ + :rotatecursor.c ¶ + "{CIncludes}"CursorCtl.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"Timer.h ¶ + :rotatecursor.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h + +:signals.c.x Ä ¶ + :signals.c ¶ + "{CIncludes}"signal.h ¶ + :alloc.h ¶ + :callback.h ¶ + :config.h ¶ + :fail.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :signals.h ¶ + :sys.h ¶ + :rotatecursor.h ¶ + "{CIncludes}"windows.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacWindows.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"AppleEvents.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"Drag.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"Menus.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"QDOffscreen.h ¶ + "{CIncludes}"QuickDraw.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Fonts.h ¶ + "{CIncludes}"Processes.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"Finder.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h + +:stacks.c.x Ä ¶ + :stacks.c ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :fail.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :memory.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + :freelist.h + +:startup.c.x Ä ¶ + :startup.c ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"fcntl.h ¶ + :config.h ¶ + :alloc.h ¶ + :callback.h ¶ + :custom.h ¶ + :debugger.h ¶ + :exec.h ¶ + :fail.h ¶ + :fix_code.h ¶ + :gc_ctrl.h ¶ + :interp.h ¶ + :intext.h ¶ + :io.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :prims.h ¶ + :reverse.h ¶ + :signals.h ¶ + :stacks.h ¶ + :sys.h ¶ + "{CIncludes}"windows.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :gc.h ¶ + :major_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacWindows.h ¶ + :freelist.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"AppleEvents.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"Drag.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"Menus.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"QDOffscreen.h ¶ + "{CIncludes}"QuickDraw.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Fonts.h ¶ + "{CIncludes}"Processes.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"Finder.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h + +:str.c.x Ä ¶ + :str.c ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"ctype.h ¶ + :alloc.h ¶ + :fail.h ¶ + :mlvalues.h ¶ + :misc.h ¶ + "{CIncludes}"locale.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"WCharTDef.h + +:sys.c.x Ä ¶ + :sys.c ¶ + "{CIncludes}"errno.h ¶ + "{CIncludes}"fcntl.h ¶ + "{CIncludes}"signal.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"time.h ¶ + :macintosh.h ¶ + :config.h ¶ + :alloc.h ¶ + :debugger.h ¶ + :fail.h ¶ + :instruct.h ¶ + :mlvalues.h ¶ + :signals.h ¶ + :stacks.h ¶ + :sys.h ¶ + :ui.h ¶ + "{CIncludes}"ctype.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"VaListTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + :memory.h ¶ + "{CIncludes}"stddef.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + :freelist.h + +:terminfo.c.x Ä ¶ + :terminfo.c ¶ + :config.h ¶ + :alloc.h ¶ + :fail.h ¶ + :io.h ¶ + :mlvalues.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:weak.c.x Ä ¶ + :weak.c ¶ + :alloc.h ¶ + :fail.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:wincmdline.c.x Ä ¶ + :wincmdline.c ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"fcntl.h ¶ + "{CIncludes}"ctype.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h + +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:49:18 on 3 avr 2000 by MakeDepend + +:alloc.c.o Ä ¶ + :alloc.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + :misc.h ¶ + :freelist.h ¶ + :config.h ¶ + :gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"WCharTDef.h + +:array.c.o Ä ¶ + :array.c ¶ + :alloc.h ¶ + :fail.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:callback.c.o Ä ¶ + :callback.c ¶ + "{CIncludes}"string.h ¶ + :callback.h ¶ + :fail.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :interp.h ¶ + :instruct.h ¶ + :fix_code.h ¶ + :stacks.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :misc.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:compact.c.o Ä ¶ + :compact.c ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :finalise.h ¶ + :freelist.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :weak.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :misc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"WCharTDef.h + +:compare.c.o Ä ¶ + :compare.c ¶ + :custom.h ¶ + :fail.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:custom.c.o Ä ¶ + :custom.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:debugger.c.o Ä ¶ + :debugger.c ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :debugger.h ¶ + :fail.h ¶ + :fix_code.h ¶ + :instruct.h ¶ + :intext.h ¶ + :io.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + :sys.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :memory.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + :freelist.h + +:extern.c.o Ä ¶ + :extern.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :gc.h ¶ + :intext.h ¶ + :io.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :reverse.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :fix_code.h ¶ + :config.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:fail.c.o Ä ¶ + :fail.c ¶ + :alloc.h ¶ + :fail.h ¶ + :io.h ¶ + :gc.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :signals.h ¶ + :stacks.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:finalise.c.o Ä ¶ + :finalise.c ¶ + :callback.h ¶ + :fail.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :signals.h ¶ + "{CIncludes}"setjmp.h ¶ + :misc.h ¶ + :config.h ¶ + :memory.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :freelist.h + +:fix_code.c.o Ä ¶ + :fix_code.c ¶ + :config.h ¶ + :debugger.h ¶ + :fix_code.h ¶ + :instruct.h ¶ + :md5.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :reverse.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :io.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:floats.c.o Ä ¶ + :floats.c ¶ + "{CIncludes}"math.h ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"stdlib.h ¶ + :alloc.h ¶ + :fail.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :misc.h ¶ + :stacks.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h + +:freelist.c.o Ä ¶ + :freelist.c ¶ + :config.h ¶ + :freelist.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:gc_ctrl.c.o Ä ¶ + :gc_ctrl.c ¶ + :alloc.h ¶ + :compact.h ¶ + :custom.h ¶ + :finalise.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + :config.h ¶ + :roots.h ¶ + :freelist.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :memory.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:hash.c.o Ä ¶ + :hash.c ¶ + :mlvalues.h ¶ + :custom.h ¶ + :memory.h ¶ + :config.h ¶ + :misc.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:instrtrace.c.o Ä ¶ + :instrtrace.c ¶ + "{CIncludes}"stdio.h ¶ + :instruct.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :opnames.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"WCharTDef.h + +:intern.c.o Ä ¶ + :intern.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :gc.h ¶ + :intext.h ¶ + :io.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :misc.h ¶ + :reverse.h ¶ + :md5.h ¶ + :fix_code.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:interp.c.o Ä ¶ + :interp.c ¶ + :alloc.h ¶ + :callback.h ¶ + :debugger.h ¶ + :fail.h ¶ + :fix_code.h ¶ + :instrtrace.h ¶ + :instruct.h ¶ + :interp.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :prims.h ¶ + :signals.h ¶ + :stacks.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :freelist.h ¶ + :gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:ints.c.o Ä ¶ + :ints.c ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :intext.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :io.h ¶ + :fix_code.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:io.c.o Ä ¶ + :io.c ¶ + "{CIncludes}"errno.h ¶ + "{CIncludes}"fcntl.h ¶ + "{CIncludes}"limits.h ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :alloc.h ¶ + :custom.h ¶ + :fail.h ¶ + :io.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :signals.h ¶ + :sys.h ¶ + :ui.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"NullDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:lexing.c.o Ä ¶ + :lexing.c ¶ + :fail.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + "{CIncludes}"setjmp.h ¶ + :misc.h ¶ + :config.h ¶ + :memory.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :freelist.h + +:macintosh.c.o Ä ¶ + :macintosh.c ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"AppleEvents.h ¶ + "{CIncludes}"CursorCtl.h ¶ + "{CIncludes}"Errors.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"IntEnv.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"QuickDraw.h ¶ + "{CIncludes}"TextUtils.h ¶ + :misc.h ¶ + :rotatecursor.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"Finder.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Script.h ¶ + ::config:m.h ¶ + ::config:s.h + +:main.c.o Ä ¶ + :main.c ¶ + :misc.h ¶ + :mlvalues.h ¶ + :sys.h ¶ + :rotatecursor.h ¶ + :signals.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:major_gc.c.o Ä ¶ + :major_gc.c ¶ + "{CIncludes}"limits.h ¶ + :compact.h ¶ + :custom.h ¶ + :config.h ¶ + :fail.h ¶ + :finalise.h ¶ + :freelist.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :weak.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :memory.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :minor_gc.h + +:md5.c.o Ä ¶ + :md5.c ¶ + "{CIncludes}"string.h ¶ + :alloc.h ¶ + :fail.h ¶ + :md5.h ¶ + :mlvalues.h ¶ + :io.h ¶ + :reverse.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"WCharTDef.h + +:memory.c.o Ä ¶ + :memory.c ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"string.h ¶ + :fail.h ¶ + :freelist.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :signals.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + ::config:m.h ¶ + ::config:s.h + +:meta.c.o Ä ¶ + :meta.c ¶ + :alloc.h ¶ + :config.h ¶ + :fail.h ¶ + :fix_code.h ¶ + :interp.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :prims.h ¶ + :stacks.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :freelist.h ¶ + :gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:minor_gc.c.o Ä ¶ + :minor_gc.c ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :fail.h ¶ + :finalise.h ¶ + :gc.h ¶ + :gc_ctrl.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :signals.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :freelist.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"WCharTDef.h + +:misc.c.o Ä ¶ + :misc.c ¶ + "{CIncludes}"stdio.h ¶ + :config.h ¶ + :misc.h ¶ + :ui.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"WCharTDef.h + +:obj.c.o Ä ¶ + :obj.c ¶ + :alloc.h ¶ + :fail.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :prims.h ¶ + "{CIncludes}"setjmp.h ¶ + :freelist.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:parsing.c.o Ä ¶ + :parsing.c ¶ + "{CIncludes}"stdio.h ¶ + :config.h ¶ + :mlvalues.h ¶ + :memory.h ¶ + :alloc.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :misc.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :freelist.h ¶ + "{CIncludes}"WCharTDef.h + +:prims.c.o Ä ¶ + :prims.c ¶ + :mlvalues.h ¶ + :prims.h ¶ + :config.h ¶ + :misc.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:printexc.c.o Ä ¶ + :printexc.c ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"string.h ¶ + :fail.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :ui.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + ::config:m.h ¶ + ::config:s.h + +:roots.c.o Ä ¶ + :roots.c ¶ + :finalise.h ¶ + :major_gc.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :stacks.h ¶ + :freelist.h ¶ + :config.h ¶ + :gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:rotatecursor.c.o Ä ¶ + :rotatecursor.c ¶ + "{CIncludes}"CursorCtl.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"Timer.h ¶ + :rotatecursor.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h + +:signals.c.o Ä ¶ + :signals.c ¶ + "{CIncludes}"signal.h ¶ + :alloc.h ¶ + :callback.h ¶ + :config.h ¶ + :fail.h ¶ + :memory.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :roots.h ¶ + :signals.h ¶ + :sys.h ¶ + :rotatecursor.h ¶ + "{CIncludes}"windows.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacWindows.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"AppleEvents.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"Drag.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"Menus.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"QDOffscreen.h ¶ + "{CIncludes}"QuickDraw.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Fonts.h ¶ + "{CIncludes}"Processes.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"Finder.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h + +:stacks.c.o Ä ¶ + :stacks.c ¶ + "{CIncludes}"string.h ¶ + :config.h ¶ + :fail.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :stacks.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + :memory.h ¶ + "{CIncludes}"WCharTDef.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + :freelist.h + +:startup.c.o Ä ¶ + :startup.c ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"fcntl.h ¶ + :config.h ¶ + :alloc.h ¶ + :callback.h ¶ + :custom.h ¶ + :debugger.h ¶ + :exec.h ¶ + :fail.h ¶ + :fix_code.h ¶ + :gc_ctrl.h ¶ + :interp.h ¶ + :intext.h ¶ + :io.h ¶ + :memory.h ¶ + :minor_gc.h ¶ + :misc.h ¶ + :mlvalues.h ¶ + :prims.h ¶ + :reverse.h ¶ + :signals.h ¶ + :stacks.h ¶ + :sys.h ¶ + "{CIncludes}"windows.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"setjmp.h ¶ + :gc.h ¶ + :major_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacWindows.h ¶ + :freelist.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"AppleEvents.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"Drag.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"Menus.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"QDOffscreen.h ¶ + "{CIncludes}"QuickDraw.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Fonts.h ¶ + "{CIncludes}"Processes.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"Finder.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h + +:str.c.o Ä ¶ + :str.c ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"ctype.h ¶ + :alloc.h ¶ + :fail.h ¶ + :mlvalues.h ¶ + :misc.h ¶ + "{CIncludes}"locale.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + "{CIncludes}"WCharTDef.h + +:sys.c.o Ä ¶ + :sys.c ¶ + "{CIncludes}"errno.h ¶ + "{CIncludes}"fcntl.h ¶ + "{CIncludes}"signal.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"time.h ¶ + :macintosh.h ¶ + :config.h ¶ + :alloc.h ¶ + :debugger.h ¶ + :fail.h ¶ + :instruct.h ¶ + :mlvalues.h ¶ + :signals.h ¶ + :stacks.h ¶ + :sys.h ¶ + :ui.h ¶ + "{CIncludes}"ctype.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"VaListTDef.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + :memory.h ¶ + "{CIncludes}"stddef.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + :freelist.h + +:terminfo.c.o Ä ¶ + :terminfo.c ¶ + :config.h ¶ + :alloc.h ¶ + :fail.h ¶ + :io.h ¶ + :mlvalues.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:weak.c.o Ä ¶ + :weak.c ¶ + :alloc.h ¶ + :fail.h ¶ + :memory.h ¶ + :mlvalues.h ¶ + :misc.h ¶ + "{CIncludes}"setjmp.h ¶ + :config.h ¶ + :gc.h ¶ + :major_gc.h ¶ + :minor_gc.h ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdlib.h ¶ + ::config:m.h ¶ + ::config:s.h ¶ + :freelist.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:wincmdline.c.o Ä ¶ + :wincmdline.c ¶ + "{CIncludes}"stdlib.h ¶ + "{CIncludes}"stdio.h ¶ + "{CIncludes}"fcntl.h ¶ + "{CIncludes}"ctype.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h + diff --git a/byterun/config.h b/byterun/config.h index b0df9c8db5..1d2d4e9b67 100644 --- a/byterun/config.h +++ b/byterun/config.h @@ -20,7 +20,8 @@ #include "../config/m.h" #include "../config/s.h" #else -#include "::config:sm-Mac.h" +#include <m.h> +#include <s.h> #endif /* Types for signed chars, 16-bit integers, 32-bit integers, 64-bit integers */ diff --git a/byterun/fail.c b/byterun/fail.c index 0e2fc737c0..4d08fc3c98 100644 --- a/byterun/fail.c +++ b/byterun/fail.c @@ -29,7 +29,10 @@ value exn_bucket; void mlraise(value v) { +#ifdef DEBUG + extern int volatile async_signal_mode; /* from signals.c */ Assert(! async_signal_mode); +#endif Unlock_exn(); exn_bucket = v; if (external_raise == NULL) fatal_uncaught_exception(v); diff --git a/byterun/ints.c b/byterun/ints.c index cc2b0153c3..00d354e088 100644 --- a/byterun/ints.c +++ b/byterun/ints.c @@ -368,6 +368,7 @@ value int64_to_nativeint(value v) /* ML */ { return copy_nativeint((long) Int64_val(v)); } value int64_format(value fmt, value arg) /* ML */ +#ifdef ARCH_INT64_PRINTF_FORMAT { char format_string[64], default_format_buffer[64]; char * buffer; @@ -380,6 +381,9 @@ value int64_format(value fmt, value arg) /* ML */ if (buffer != default_format_buffer) stat_free(buffer); return res; } +#else +{ invalid_argument ("Int64.format is not implemented on this platform"); } +#endif value int64_of_string(value s) /* ML */ { diff --git a/byterun/macintosh.c b/byterun/macintosh.c index 9d69b32d05..87b74d5505 100644 --- a/byterun/macintosh.c +++ b/byterun/macintosh.c @@ -29,36 +29,6 @@ #include "misc.h" #include "rotatecursor.h" -/* The user interface defaults to MPW tool. The standalone application - overrides the ui_* functions, as well as [main], [InitCursorCtl], - [RotateCursor], [atexit], [getenv], and the terminfo functions. -*/ - -void ui_exit (int return_code) -{ - exit (return_code); -} - -int ui_read (int file_desc, char *buf, unsigned int length) -{ - ROTATECURSOR_MAGIC (); - return read (file_desc, buf, length); -} - -int ui_write (int file_desc, char *buf, unsigned int length) -{ - ROTATECURSOR_MAGIC (); - return write (file_desc, buf, length); -} - -void ui_print_stderr (char *format, void *arg) -{ - ROTATECURSOR_MAGIC (); - fprintf (stderr, format, arg); - fflush (stderr); -} - - /* Unix emulation stuff */ static short prevdir = 0; @@ -117,7 +87,7 @@ Handle macos_getfullpathname (short vrefnum, long dirid) return NULL; } -char *getcwd (char *buf, long size) +char *getcwd (char *buf, size_t size) { size_t len; @@ -241,10 +211,10 @@ int system (char const *cmd) /* forward stdout and stderr */ err = AEGetParamPtr (&reply, 'diag', typeChar, &ret_type, buf, buf_size, &ret_size); - if (err == noErr) ui_write (2, buf, ret_size); + if (err == noErr) write (2, buf, ret_size); err = AEGetParamPtr (&reply, '----', typeChar, &ret_type, buf, buf_size, &ret_size); - if (err == noErr) ui_write (1, buf, ret_size); + if (err == noErr) write (1, buf, ret_size); AEDisposeDesc (&reply); AEDisposeDesc (&myevent); diff --git a/byterun/main.c b/byterun/main.c index ecdd70f486..cd2575c09e 100644 --- a/byterun/main.c +++ b/byterun/main.c @@ -36,7 +36,7 @@ int main(int argc, char **argv) expand_command_line(&argc, &argv); #endif #if macintosh - rotatecursor_options (&something_to_do, 50); + rotatecursor_options (&something_to_do, 0, NULL); #endif /* macintosh */ caml_main(argv); sys_exit(Val_int(0)); diff --git a/byterun/misc.c b/byterun/misc.c index a32a152780..2957cd24ad 100644 --- a/byterun/misc.c +++ b/byterun/misc.c @@ -160,7 +160,7 @@ char *aligned_malloc (asize_t size, int modulo, void **block) unsigned long *p0 = (void *) *block, *p1 = (void *) (aligned_mem - modulo), *p2 = (void *) (aligned_mem - modulo + size), - *p3 = (void *) (*block + size + Page_size); + *p3 = (void *) ((char *) *block + size + Page_size); for (p = p0; p < p1; p++) *p = Debug_filler_align; for (p = p1; p < p2; p++) *p = Debug_uninit_align; diff --git a/byterun/rotatecursor.c b/byterun/rotatecursor.c index 7048cd9a6f..ddb06113b9 100644 --- a/byterun/rotatecursor.c +++ b/byterun/rotatecursor.c @@ -12,6 +12,14 @@ /* $Id$ */ +/* rotatecursor library, written by <Damien.Doligez@inria.fr> + This file is in the public domain. + + version 1.12.2 + + See rotatecursor.h for documentation. +*/ + #include <CursorCtl.h> #include <MacTypes.h> #include <stdlib.h> @@ -29,6 +37,7 @@ 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 @@ -39,7 +48,7 @@ static void rotatecursor_timerproc (Xtmtask *p) if (p->p2 != NULL && *(p->p2) == 0) *(p->p2) = 1; } -#else +#else /* GENERATINGCFM */ extern Xtmtask *getparam() ONEWORDINLINE(0x2009); /* MOVE.L A1, D0 */ @@ -51,51 +60,52 @@ static void rotatecursor_timerproc (void) if (p->p2 != NULL && *(p->p2) == 0) *(p->p2) = 1; } -#endif /* GENERATINGCFM */ +#endif /* else GENERATINGCFM */ -static void rotatecursor_remove_task (void) +void rotatecursor_final (void) { - RmvTime ((QElemPtr) &rotatecursor_tmtask); + if (rotatecursor_inited){ + RmvTime ((QElemPtr) &rotatecursor_tmtask); + rotatecursor_flag = 1; + rotatecursor_inited = 0; + } } static void rotatecursor_init (void) { if (rotatecursor_inited) return; - InitCursorCtl (NULL); - 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); - PrimeTime ((QElemPtr) &rotatecursor_tmtask, 1); - - atexit (rotatecursor_remove_task); + atexit (rotatecursor_final); + rotatecursor_flag = 1; rotatecursor_inited = 1; } -void rotatecursor_options (int volatile *p1, int period) +void rotatecursor_options (int volatile *p1, int period, pascal void (*f) (long)) { if (!rotatecursor_inited) rotatecursor_init (); - + rotatecursor_tmtask.p1 = p1; - rotatecursor_period = period; + if (p1 != NULL && *p1 == 0) *p1 = rotatecursor_flag; + rotatecursor_period = (period == 0) ? 50 : period; + rotatecursor_action = (f == NULL) ? &RotateCursor : f; } -int rotatecursor_action (int reverse) +int rotatecursor_ticker (void) { if (!rotatecursor_inited) rotatecursor_init (); rotatecursor_flag = 0; - PrimeTime ((QElemPtr) &rotatecursor_tmtask, rotatecursor_period); - - RotateCursor (reverse ? -32 : 32); - + (*rotatecursor_action) (32); return 0; } diff --git a/byterun/rotatecursor.h b/byterun/rotatecursor.h index 30d8fef92f..2ff484850e 100644 --- a/byterun/rotatecursor.h +++ b/byterun/rotatecursor.h @@ -12,42 +12,103 @@ /* $Id$ */ -#ifndef _rotatecursor_ -#define _rotatecursor_ +/* rotatecursor library, written by <Damien.Doligez@inria.fr> + This file is in the public domain. -/* [rotatecursor_flag] will be automagically set to 1 when the time comes - to call [rotatecursor_action]. + version 1.12.2 + + 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: -/* Use [rotatecursor_options] to set 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. - 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 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...) - 2. [period] is the interval (in milliseconds) between calls to - RotateCursor. Reasonable values are between 10 and 200; - the default is 50. + 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. */ -void rotatecursor_options (int volatile *p1, int period); -/* [reverse] is 0 to rotate the cursor clockwise, anything else to - rotate counterclockwise. This function resets [rotatecursor_flag] - to 0. - This function always returns 0. It returns an int so you can use - it in an expression as well as a statement. Useful for some macros. +int rotatecursor_ticker (void); +/* + [rotatecursor_ticker] calls your [action] function (or [RotateCursor]), + resets [rotatecursor_flag] to 0, and rearms the Time Manager task that + will set [rotatecursor_flag] to 1 after the appropriate delay. + + This function always returns 0. It returns an int so you can use + it in an expression as well as a statement. */ -int rotatecursor_action (int reverse); -/* Simple interface to [rotatecursor_flag] and [rotatecursor_action]. - Can be used as a statement (followed by a semicolon) or in an - expression (followed by a comma). +#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); +/* + This function 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. */ -#define ROTATECURSOR_MAGIC() (rotatecursor_flag ? rotatecursor_action (0) : 0) -#endif /* _rotatecursor_ */ +#endif /* _rotatecursor_h_ */ diff --git a/byterun/signals.c b/byterun/signals.c index 387d830b04..de8dda9425 100644 --- a/byterun/signals.c +++ b/byterun/signals.c @@ -109,6 +109,7 @@ void enter_blocking_section(void) { int temp; +#if !macintosh_GUSI while (1){ Assert (!async_signal_mode); /* If a signal arrives between the next two instructions, @@ -119,14 +120,17 @@ void enter_blocking_section(void) if (!pending_signal) break; async_signal_mode = 0; } +#endif if (enter_blocking_section_hook != NULL) enter_blocking_section_hook(); } void leave_blocking_section(void) { if (leave_blocking_section_hook != NULL) leave_blocking_section_hook(); +#if !macintosh_GUSI Assert(async_signal_mode); async_signal_mode = 0; +#endif } #ifndef SIGABRT diff --git a/byterun/signals.h b/byterun/signals.h index 99e4cf70b2..da1c533f2b 100644 --- a/byterun/signals.h +++ b/byterun/signals.h @@ -22,7 +22,6 @@ extern value signal_handlers; extern int volatile pending_signal; extern int volatile something_to_do; extern int volatile force_major_slice; -extern int volatile async_signal_mode; void enter_blocking_section (void); void leave_blocking_section (void); diff --git a/config/auto-aux/config.guess b/config/auto-aux/config.guess index cec5776021..555792434f 100755 --- a/config/auto-aux/config.guess +++ b/config/auto-aux/config.guess @@ -38,7 +38,7 @@ # This is needed to find uname on a Pyramid OSx when run in the BSD universe. # (ghazi@noc.rutgers.edu 8/24/94.) if (test -f /.attbin/uname) >/dev/null 2>&1 ; then - PATH=$PATH:/.attbin ; export PATH + PATH=$PATH:/.attbin ; export PATH fi UNAME_MACHINE=`(uname -m) 2>/dev/null` || UNAME_MACHINE=unknown @@ -52,16 +52,16 @@ trap 'rm -f dummy.c dummy.o dummy; exit 1' 1 2 15 case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in alpha:OSF1:V*:*) - # After 1.2, OSF1 uses "V1.3" for uname -r. - echo alpha-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^V//'` - exit 0 ;; + # After 1.2, OSF1 uses "V1.3" for uname -r. + echo alpha-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^V//'` + exit 0 ;; alpha:OSF1:*:*) - # 1.2 uses "1.2" for uname -r. - echo alpha-dec-osf${UNAME_RELEASE} + # 1.2 uses "1.2" for uname -r. + echo alpha-dec-osf${UNAME_RELEASE} exit 0 ;; 21064:Windows_NT:50:3) - echo alpha-dec-winnt3.5 - exit 0 ;; + echo alpha-dec-winnt3.5 + exit 0 ;; amiga:NetBSD:*:*) echo m68k-cbm-netbsd${UNAME_RELEASE} exit 0 ;; @@ -69,297 +69,297 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in echo m68k-cbm-openbsd${UNAME_RELEASE} exit 0 ;; arm:RISC*:1.[012]*:*|arm:riscix:1.[012]*:*) - echo arm-acorn-riscix${UNAME_RELEASE} - exit 0;; + echo arm-acorn-riscix${UNAME_RELEASE} + exit 0;; Pyramid*:OSx*:*:*) - if test "`(/bin/universe) 2>/dev/null`" = att ; then - echo pyramid-pyramid-sysv3 - else - echo pyramid-pyramid-bsd - fi - exit 0 ;; + if test "`(/bin/universe) 2>/dev/null`" = att ; then + echo pyramid-pyramid-sysv3 + else + echo pyramid-pyramid-bsd + fi + exit 0 ;; sun4*:SunOS:5.*:*) - echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; + echo sparc-sun-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` + exit 0 ;; i86pc:SunOS:5.*:*) - echo i386-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; + echo i386-unknown-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` + exit 0 ;; sun4*:SunOS:6*:*) - # According to config.sub, this is the proper way to canonicalize - # SunOS6. Hard to guess exactly what SunOS6 will be like, but - # it's likely to be more like Solaris than SunOS4. - echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` - exit 0 ;; + # According to config.sub, this is the proper way to canonicalize + # SunOS6. Hard to guess exactly what SunOS6 will be like, but + # it's likely to be more like Solaris than SunOS4. + echo sparc-sun-solaris3`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'` + exit 0 ;; sun4*:SunOS:*:*) - case "`/usr/bin/arch -k`" in - Series*|S4*) - UNAME_RELEASE=`uname -v` - ;; - esac - # Japanese Language versions have a version number like `4.1.3-JL'. - echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` - exit 0 ;; + case "`/usr/bin/arch -k`" in + Series*|S4*) + UNAME_RELEASE=`uname -v` + ;; + esac + # Japanese Language versions have a version number like `4.1.3-JL'. + echo sparc-sun-sunos`echo ${UNAME_RELEASE}|sed -e 's/-/_/'` + exit 0 ;; sun3*:SunOS:*:*) - echo m68k-sun-sunos${UNAME_RELEASE} - exit 0 ;; + echo m68k-sun-sunos${UNAME_RELEASE} + exit 0 ;; atari*:NetBSD:*:*) - echo m68k-atari-netbsd${UNAME_RELEASE} - exit 0 ;; + echo m68k-atari-netbsd${UNAME_RELEASE} + exit 0 ;; atari*:OpenBSD:*:*) - echo m68k-atari-openbsd${UNAME_RELEASE} - exit 0 ;; + echo m68k-atari-openbsd${UNAME_RELEASE} + exit 0 ;; sun3*:NetBSD:*:*) - echo m68k-sun-netbsd${UNAME_RELEASE} - exit 0 ;; + echo m68k-sun-netbsd${UNAME_RELEASE} + exit 0 ;; sun3*:OpenBSD:*:*) - echo m68k-sun-openbsd${UNAME_RELEASE} - exit 0 ;; + echo m68k-sun-openbsd${UNAME_RELEASE} + exit 0 ;; mac68k:NetBSD:*:*) - echo m68k-apple-netbsd${UNAME_RELEASE} - exit 0 ;; + echo m68k-apple-netbsd${UNAME_RELEASE} + exit 0 ;; mac68k:OpenBSD:*:*) - echo m68k-apple-openbsd${UNAME_RELEASE} - exit 0 ;; + echo m68k-apple-openbsd${UNAME_RELEASE} + exit 0 ;; RISC*:ULTRIX:*:*) - echo mips-dec-ultrix${UNAME_RELEASE} - exit 0 ;; + echo mips-dec-ultrix${UNAME_RELEASE} + exit 0 ;; VAX*:ULTRIX*:*:*) - echo vax-dec-ultrix${UNAME_RELEASE} - exit 0 ;; + echo vax-dec-ultrix${UNAME_RELEASE} + exit 0 ;; mips:*:4*:UMIPS) - echo mips-mips-riscos4sysv - exit 0 ;; + echo mips-mips-riscos4sysv + exit 0 ;; mips:*:5*:RISCos) - echo mips-mips-riscos${UNAME_RELEASE} - exit 0 ;; + echo mips-mips-riscos${UNAME_RELEASE} + exit 0 ;; m88k:CX/UX:7*:*) - echo m88k-harris-cxux7 - exit 0 ;; + echo m88k-harris-cxux7 + exit 0 ;; m88k:*:4*:R4*) - echo m88k-motorola-sysv4 - exit 0 ;; + echo m88k-motorola-sysv4 + exit 0 ;; m88k:*:3*:R3*) - echo m88k-motorola-sysv3 - exit 0 ;; + echo m88k-motorola-sysv3 + exit 0 ;; AViiON:dgux:*:*) - if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx \ - -o ${TARGET_BINARY_INTERFACE}x = x ] ; then - echo m88k-dg-dgux${UNAME_RELEASE} - else - echo m88k-dg-dguxbcs${UNAME_RELEASE} - fi - exit 0 ;; - M88*:DolphinOS:*:*) # DolphinOS (SVR3) - echo m88k-dolphin-sysv3 - exit 0 ;; + if [ ${TARGET_BINARY_INTERFACE}x = m88kdguxelfx \ + -o ${TARGET_BINARY_INTERFACE}x = x ] ; then + echo m88k-dg-dgux${UNAME_RELEASE} + else + echo m88k-dg-dguxbcs${UNAME_RELEASE} + fi + exit 0 ;; + M88*:DolphinOS:*:*) # DolphinOS (SVR3) + echo m88k-dolphin-sysv3 + exit 0 ;; M88*:*:R3*:*) - # Delta 88k system running SVR3 - echo m88k-motorola-sysv3 - exit 0 ;; + # Delta 88k system running SVR3 + echo m88k-motorola-sysv3 + exit 0 ;; XD88*:*:*:*) # Tektronix XD88 system running UTekV (SVR3) - echo m88k-tektronix-sysv3 - exit 0 ;; + echo m88k-tektronix-sysv3 + exit 0 ;; Tek43[0-9][0-9]:UTek:*:*) # Tektronix 4300 system running UTek (BSD) - echo m68k-tektronix-bsd - exit 0 ;; + echo m68k-tektronix-bsd + exit 0 ;; *:IRIX*:*:*) - echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` - exit 0 ;; + echo mips-sgi-irix`echo ${UNAME_RELEASE}|sed -e 's/-/_/g'` + exit 0 ;; ????????:AIX?:[12].1:2) # AIX 2.2.1 or AIX 2.1.1 is RT/PC AIX. - echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id - exit 0 ;; # Note that: echo "'`uname -s`'" gives 'AIX ' + echo romp-ibm-aix # uname -m gives an 8 hex-code CPU id + exit 0 ;; # Note that: echo "'`uname -s`'" gives 'AIX ' i[34]86:AIX:*:*) - echo i386-ibm-aix - exit 0 ;; + echo i386-ibm-aix + exit 0 ;; *:AIX:2:3) - if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then - sed 's/^ //' << EOF >dummy.c - #include <sys/systemcfg.h> + if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then + sed 's/^ //' << EOF >dummy.c + #include <sys/systemcfg.h> - main() - { - if (!__power_pc()) - exit(1); - puts("powerpc-ibm-aix3.2.5"); - exit(0); - } + main() + { + if (!__power_pc()) + exit(1); + puts("powerpc-ibm-aix3.2.5"); + exit(0); + } EOF - ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 - rm -f dummy.c dummy - echo rs6000-ibm-aix3.2.5 - elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then - echo rs6000-ibm-aix3.2.4 - else - echo rs6000-ibm-aix3.2 - fi - exit 0 ;; + ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 + rm -f dummy.c dummy + echo rs6000-ibm-aix3.2.5 + elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then + echo rs6000-ibm-aix3.2.4 + else + echo rs6000-ibm-aix3.2 + fi + exit 0 ;; *:AIX:*:4) - if /usr/sbin/lsattr -EHl proc0 | grep POWER >/dev/null 2>&1; then - IBM_ARCH=rs6000 - else - IBM_ARCH=powerpc - fi - if [ -x /usr/bin/oslevel ] ; then - IBM_REV=`/usr/bin/oslevel` - else - IBM_REV=4.${UNAME_RELEASE} - fi - echo ${IBM_ARCH}-ibm-aix${IBM_REV} - exit 0 ;; + if /usr/sbin/lsattr -EHl proc0 | grep POWER >/dev/null 2>&1; then + IBM_ARCH=rs6000 + else + IBM_ARCH=powerpc + fi + if [ -x /usr/bin/oslevel ] ; then + IBM_REV=`/usr/bin/oslevel` + else + IBM_REV=4.${UNAME_RELEASE} + fi + echo ${IBM_ARCH}-ibm-aix${IBM_REV} + exit 0 ;; *:AIX:*:*) - echo rs6000-ibm-aix - exit 0 ;; + echo rs6000-ibm-aix + exit 0 ;; ibmrt:4.4BSD:*|romp-ibm:BSD:*) - echo romp-ibm-bsd4.4 - exit 0 ;; + echo romp-ibm-bsd4.4 + exit 0 ;; ibmrt:*BSD:*|romp-ibm:BSD:*) # covers RT/PC NetBSD and - echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to - exit 0 ;; # report: romp-ibm BSD 4.3 + echo romp-ibm-bsd${UNAME_RELEASE} # 4.3 with uname added to + exit 0 ;; # report: romp-ibm BSD 4.3 *:BOSX:*:*) - echo rs6000-bull-bosx - exit 0 ;; + echo rs6000-bull-bosx + exit 0 ;; DPX/2?00:B.O.S.:*:*) - echo m68k-bull-sysv3 - exit 0 ;; + echo m68k-bull-sysv3 + exit 0 ;; 9000/[34]??:4.3bsd:1.*:*) - echo m68k-hp-bsd - exit 0 ;; + echo m68k-hp-bsd + exit 0 ;; hp300:4.4BSD:*:* | 9000/[34]??:4.3bsd:2.*:*) - echo m68k-hp-bsd4.4 - exit 0 ;; + echo m68k-hp-bsd4.4 + exit 0 ;; 9000/[3478]??:HP-UX:*:*) - case "${UNAME_MACHINE}" in - 9000/31? ) HP_ARCH=m68000 ;; - 9000/[34]?? ) HP_ARCH=m68k ;; - 9000/7?? | 9000/8?[79] ) HP_ARCH=hppa1.1 ;; - 9000/8?? ) HP_ARCH=hppa1.0 ;; - esac - HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` - echo ${HP_ARCH}-hp-hpux${HPUX_REV} - exit 0 ;; + case "${UNAME_MACHINE}" in + 9000/31? ) HP_ARCH=m68000 ;; + 9000/[34]?? ) HP_ARCH=m68k ;; + 9000/7?? | 9000/8?[79] ) HP_ARCH=hppa1.1 ;; + 9000/8?? ) HP_ARCH=hppa1.0 ;; + esac + HPUX_REV=`echo ${UNAME_RELEASE}|sed -e 's/[^.]*.[0B]*//'` + echo ${HP_ARCH}-hp-hpux${HPUX_REV} + exit 0 ;; 3050*:HI-UX:*:*) - sed 's/^ //' << EOF >dummy.c - #include <unistd.h> - int - main () - { - long cpu = sysconf (_SC_CPU_VERSION); - /* The order matters, because CPU_IS_HP_MC68K erroneously returns - true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct - results, however. */ - if (CPU_IS_PA_RISC (cpu)) - { - switch (cpu) - { - case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; - case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; - case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; - default: puts ("hppa-hitachi-hiuxwe2"); break; - } - } - else if (CPU_IS_HP_MC68K (cpu)) - puts ("m68k-hitachi-hiuxwe2"); - else puts ("unknown-hitachi-hiuxwe2"); - exit (0); - } + sed 's/^ //' << EOF >dummy.c + #include <unistd.h> + int + main () + { + long cpu = sysconf (_SC_CPU_VERSION); + /* The order matters, because CPU_IS_HP_MC68K erroneously returns + true for CPU_PA_RISC1_0. CPU_IS_PA_RISC returns correct + results, however. */ + if (CPU_IS_PA_RISC (cpu)) + { + switch (cpu) + { + case CPU_PA_RISC1_0: puts ("hppa1.0-hitachi-hiuxwe2"); break; + case CPU_PA_RISC1_1: puts ("hppa1.1-hitachi-hiuxwe2"); break; + case CPU_PA_RISC2_0: puts ("hppa2.0-hitachi-hiuxwe2"); break; + default: puts ("hppa-hitachi-hiuxwe2"); break; + } + } + else if (CPU_IS_HP_MC68K (cpu)) + puts ("m68k-hitachi-hiuxwe2"); + else puts ("unknown-hitachi-hiuxwe2"); + exit (0); + } EOF - ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 - rm -f dummy.c dummy - echo unknown-hitachi-hiuxwe2 - exit 0 ;; + ${CC-cc} dummy.c -o dummy && ./dummy && rm dummy.c dummy && exit 0 + rm -f dummy.c dummy + echo unknown-hitachi-hiuxwe2 + exit 0 ;; 9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* ) - echo hppa1.1-hp-bsd - exit 0 ;; + echo hppa1.1-hp-bsd + exit 0 ;; 9000/8??:4.3bsd:*:*) - echo hppa1.0-hp-bsd - exit 0 ;; + echo hppa1.0-hp-bsd + exit 0 ;; hp7??:OSF1:*:* | hp8?[79]:OSF1:*:* ) - echo hppa1.1-hp-osf - exit 0 ;; + echo hppa1.1-hp-osf + exit 0 ;; hp8??:OSF1:*:*) - echo hppa1.0-hp-osf - exit 0 ;; + echo hppa1.0-hp-osf + exit 0 ;; parisc*:Lites*:*:*) - echo hppa1.1-hp-lites - exit 0 ;; + echo hppa1.1-hp-lites + exit 0 ;; C1*:ConvexOS:*:* | convex:ConvexOS:C1*:*) - echo c1-convex-bsd + echo c1-convex-bsd exit 0 ;; C2*:ConvexOS:*:* | convex:ConvexOS:C2*:*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi + if getsysinfo -f scalar_acc + then echo c32-convex-bsd + else echo c2-convex-bsd + fi exit 0 ;; C34*:ConvexOS:*:* | convex:ConvexOS:C34*:*) - echo c34-convex-bsd + echo c34-convex-bsd exit 0 ;; C38*:ConvexOS:*:* | convex:ConvexOS:C38*:*) - echo c38-convex-bsd + echo c38-convex-bsd exit 0 ;; C4*:ConvexOS:*:* | convex:ConvexOS:C4*:*) - echo c4-convex-bsd + echo c4-convex-bsd exit 0 ;; CRAY*X-MP:*:*:*) - echo xmp-cray-unicos + echo xmp-cray-unicos exit 0 ;; CRAY*Y-MP:*:*:*) - echo ymp-cray-unicos${UNAME_RELEASE} - exit 0 ;; + echo ymp-cray-unicos${UNAME_RELEASE} + exit 0 ;; CRAY*C90:*:*:*) - echo c90-cray-unicos${UNAME_RELEASE} - exit 0 ;; + echo c90-cray-unicos${UNAME_RELEASE} + exit 0 ;; CRAY-2:*:*:*) - echo cray2-cray-unicos + echo cray2-cray-unicos exit 0 ;; CRAY*T3E:*:*:*) echo alpha-cray-unicos exit 0 ;; hp3[0-9][05]:NetBSD:*:*) - echo m68k-hp-netbsd${UNAME_RELEASE} - exit 0 ;; + echo m68k-hp-netbsd${UNAME_RELEASE} + exit 0 ;; hp3[0-9][05]:OpenBSD:*:*) - echo m68k-hp-openbsd${UNAME_RELEASE} - exit 0 ;; + echo m68k-hp-openbsd${UNAME_RELEASE} + exit 0 ;; i[34]86:BSD/386:*:* | *:BSD/OS:*:*) - echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} - exit 0 ;; + echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE} + exit 0 ;; *:FreeBSD:*:*) - echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` - exit 0 ;; + echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'` + exit 0 ;; *:NetBSD:*:*) - echo ${UNAME_MACHINE}-unknown-netbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` - exit 0 ;; + echo ${UNAME_MACHINE}-unknown-netbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` + exit 0 ;; *:OpenBSD:*:*) - echo ${UNAME_MACHINE}-unknown-openbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` - exit 0 ;; + echo ${UNAME_MACHINE}-unknown-openbsd`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'` + exit 0 ;; *:GNU:*:*) - echo `echo ${UNAME_MACHINE}|sed -e 's,/.*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` - exit 0 ;; + echo `echo ${UNAME_MACHINE}|sed -e 's,/.*$,,'`-unknown-gnu`echo ${UNAME_RELEASE}|sed -e 's,/.*$,,'` + exit 0 ;; *:Linux:*:*) - # The BFD linker knows what the default object file format is, so - # first see if it will tell us. - ld_help_string=`ld --help 2>&1` - if echo $ld_help_string | grep >/dev/null 2>&1 "supported emulations: elf_i[345]86"; then - echo "${UNAME_MACHINE}-unknown-linux" ; exit 0 - elif echo $ld_help_string | grep >/dev/null 2>&1 "supported emulations: i[345]86linux"; then - echo "${UNAME_MACHINE}-unknown-linuxaout" ; exit 0 - elif echo $ld_help_string | grep >/dev/null 2>&1 "supported emulations: i[345]86coff"; then - echo "${UNAME_MACHINE}-unknown-linuxcoff" ; exit 0 - elif test "${UNAME_MACHINE}" = "alpha" ; then - echo alpha-unknown-linux ; exit 0 - elif test "${UNAME_MACHINE}" = "osfmach3_ppc" ; then - echo powerpc-unknown-linux ; exit 0 - elif test "${UNAME_MACHINE}" = "sa110" || + # The BFD linker knows what the default object file format is, so + # first see if it will tell us. + ld_help_string=`ld --help 2>&1` + if echo $ld_help_string | grep >/dev/null 2>&1 "supported emulations: elf_i[345]86"; then + echo "${UNAME_MACHINE}-unknown-linux" ; exit 0 + elif echo $ld_help_string | grep >/dev/null 2>&1 "supported emulations: i[345]86linux"; then + echo "${UNAME_MACHINE}-unknown-linuxaout" ; exit 0 + elif echo $ld_help_string | grep >/dev/null 2>&1 "supported emulations: i[345]86coff"; then + echo "${UNAME_MACHINE}-unknown-linuxcoff" ; exit 0 + elif test "${UNAME_MACHINE}" = "alpha" ; then + echo alpha-unknown-linux ; exit 0 + elif test "${UNAME_MACHINE}" = "osfmach3_ppc" ; then + echo powerpc-unknown-linux ; exit 0 + elif test "${UNAME_MACHINE}" = "sa110" || test "${UNAME_MACHINE}" = "armv4l" ; then - echo arm-unknown-linux ; exit 0 - else - # Either a pre-BFD a.out linker (linuxoldld) or one that does not give us - # useful --help. Gcc wants to distinguish between linuxoldld and linuxaout. - test ! -d /usr/lib/ldscripts/. \ - && echo "${UNAME_MACHINE}-unknown-linuxoldld" && exit 0 - # Determine whether the default compiler is a.out or elf - cat >dummy.c <<EOF + echo arm-unknown-linux ; exit 0 + else + # Either a pre-BFD a.out linker (linuxoldld) or one that does not give us + # useful --help. Gcc wants to distinguish between linuxoldld and linuxaout. + test ! -d /usr/lib/ldscripts/. \ + && echo "${UNAME_MACHINE}-unknown-linuxoldld" && exit 0 + # Determine whether the default compiler is a.out or elf + cat >dummy.c <<EOF main(argc, argv) int argc; char *argv[]; @@ -372,52 +372,52 @@ char *argv[]; return 0; } EOF - ${CC-cc} dummy.c -o dummy 2>/dev/null && ./dummy "${UNAME_MACHINE}" && rm dummy.c dummy && exit 0 - rm -f dummy.c dummy - fi ;; + ${CC-cc} dummy.c -o dummy 2>/dev/null && ./dummy "${UNAME_MACHINE}" && rm dummy.c dummy && exit 0 + rm -f dummy.c dummy + fi ;; # ptx 4.0 does uname -s correctly, with DYNIX/ptx in there. earlier versions # are messed up and put the nodename in both sysname and nodename. i[34]86:DYNIX/ptx:4*:*) - echo i386-sequent-sysv4 - exit 0 ;; + echo i386-sequent-sysv4 + exit 0 ;; i[34]86:*:4.*:* | i[34]86:SYSTEM_V:4.*:*) - if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then - echo ${UNAME_MACHINE}-univel-sysv${UNAME_RELEASE} - else - echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE} - fi - exit 0 ;; + if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then + echo ${UNAME_MACHINE}-univel-sysv${UNAME_RELEASE} + else + echo ${UNAME_MACHINE}-unknown-sysv${UNAME_RELEASE} + fi + exit 0 ;; i[34]86:*:3.2:*) - if test -f /usr/options/cb.name; then - UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name` - echo ${UNAME_MACHINE}-unknown-isc$UNAME_REL - elif /bin/uname -X 2>/dev/null >/dev/null ; then - UNAME_REL=`(/bin/uname -X|egrep Release|sed -e 's/.*= //')` - (/bin/uname -X|egrep i80486 >/dev/null) && UNAME_MACHINE=i486 - echo ${UNAME_MACHINE}-unknown-sco$UNAME_REL - else - echo ${UNAME_MACHINE}-unknown-sysv32 - fi - exit 0 ;; + if test -f /usr/options/cb.name; then + UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name` + echo ${UNAME_MACHINE}-unknown-isc$UNAME_REL + elif /bin/uname -X 2>/dev/null >/dev/null ; then + UNAME_REL=`(/bin/uname -X|egrep Release|sed -e 's/.*= //')` + (/bin/uname -X|egrep i80486 >/dev/null) && UNAME_MACHINE=i486 + echo ${UNAME_MACHINE}-unknown-sco$UNAME_REL + else + echo ${UNAME_MACHINE}-unknown-sysv32 + fi + exit 0 ;; Intel:Mach:3*:*) - echo i386-unknown-mach3 - exit 0 ;; + echo i386-unknown-mach3 + exit 0 ;; paragon:*:*:*) - echo i860-intel-osf1 - exit 0 ;; + echo i860-intel-osf1 + exit 0 ;; i860:*:4.*:*) # i860-SVR4 - if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then - echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 - else # Add other i860-SVR4 vendors below as they are discovered. - echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 - fi - exit 0 ;; + if grep Stardent /usr/include/sys/uadmin.h >/dev/null 2>&1 ; then + echo i860-stardent-sysv${UNAME_RELEASE} # Stardent Vistra i860-SVR4 + else # Add other i860-SVR4 vendors below as they are discovered. + echo i860-unknown-sysv${UNAME_RELEASE} # Unknown i860-SVR4 + fi + exit 0 ;; mini*:CTIX:SYS*5:*) - # "miniframe" - echo m68010-convergent-sysv - exit 0 ;; + # "miniframe" + echo m68010-convergent-sysv + exit 0 ;; M680[234]0:*:R3V[567]*:*) - test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; + test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;; 3[34]??:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0) uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4.3 && exit 0 ;; @@ -425,37 +425,37 @@ EOF uname -p 2>/dev/null | grep 86 >/dev/null \ && echo i486-ncr-sysv4 && exit 0 ;; m680[234]0:LynxOS:2.[23]*:*) - echo m68k-lynx-lynxos${UNAME_RELEASE} - exit 0 ;; + echo m68k-lynx-lynxos${UNAME_RELEASE} + exit 0 ;; mc68030:UNIX_System_V:4.*:*) - echo m68k-atari-sysv4 - exit 0 ;; + echo m68k-atari-sysv4 + exit 0 ;; i[34]86:LynxOS:2.[23]*:*) - echo i386-lynx-lynxos${UNAME_RELEASE} - exit 0 ;; + echo i386-lynx-lynxos${UNAME_RELEASE} + exit 0 ;; TSUNAMI:LynxOS:2.[23]*:*) - echo sparc-lynx-lynxos${UNAME_RELEASE} - exit 0 ;; + echo sparc-lynx-lynxos${UNAME_RELEASE} + exit 0 ;; rs6000:LynxOS:2.[23]*:*) - echo rs6000-lynx-lynxos${UNAME_RELEASE} - exit 0 ;; + echo rs6000-lynx-lynxos${UNAME_RELEASE} + exit 0 ;; RM*:SINIX-*:*:*) - echo mips-sni-sysv4 - exit 0 ;; + echo mips-sni-sysv4 + exit 0 ;; *:SINIX-*:*:*) - if uname -p 2>/dev/null >/dev/null ; then - UNAME_MACHINE=`(uname -p) 2>/dev/null` - echo ${UNAME_MACHINE}-sni-sysv4 - else - echo ns32k-sni-sysv - fi - exit 0 ;; + if uname -p 2>/dev/null >/dev/null ; then + UNAME_MACHINE=`(uname -p) 2>/dev/null` + echo ${UNAME_MACHINE}-sni-sysv4 + else + echo ns32k-sni-sysv + fi + exit 0 ;; "Power Macintosh":*:*:*) echo powerpc-apple-rhapsody exit 0;; BePC:BeOS:*:*) - echo i586-unknown-beos - exit 0;; + echo i586-unknown-beos + exit 0;; esac #echo '(No uname command or uname output not recognized.)' 1>&2 @@ -479,7 +479,7 @@ main () #ifdef NEWSOS4 "4" #else - "" + "" #endif ); exit (0); #endif @@ -538,10 +538,10 @@ main () uname(&un); if (strncmp(un.version, "V2", 2) == 0) { - printf ("i386-sequent-ptx2\n"); exit (0); + printf ("i386-sequent-ptx2\n"); exit (0); } if (strncmp(un.version, "V1", 2) == 0) { /* XXX is V1 correct? */ - printf ("i386-sequent-ptx1\n"); exit (0); + printf ("i386-sequent-ptx1\n"); exit (0); } printf ("i386-sequent-ptx\n"); exit (0); @@ -576,23 +576,23 @@ if [ -x /usr/convex/getsysinfo ] then case `getsysinfo -f cpu_type` in c1*) - echo c1-convex-bsd - exit 0 ;; + echo c1-convex-bsd + exit 0 ;; c2*) - if getsysinfo -f scalar_acc - then echo c32-convex-bsd - else echo c2-convex-bsd - fi - exit 0 ;; + if getsysinfo -f scalar_acc + then echo c32-convex-bsd + else echo c2-convex-bsd + fi + exit 0 ;; c34*) - echo c34-convex-bsd - exit 0 ;; + echo c34-convex-bsd + exit 0 ;; c38*) - echo c38-convex-bsd - exit 0 ;; + echo c38-convex-bsd + exit 0 ;; c4*) - echo c4-convex-bsd - exit 0 ;; + echo c4-convex-bsd + exit 0 ;; esac fi diff --git a/config/auto-aux/config.sub b/config/auto-aux/config.sub index 9b530209a7..45a417fc34 100755 --- a/config/auto-aux/config.sub +++ b/config/auto-aux/config.sub @@ -3,7 +3,7 @@ # Copyright (C) 1991, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. # This file is (in principle) common to ALL GNU software. # The presence of a machine in this file suggests that SOME GNU software -# can handle that machine. It does not imply ALL GNU software can. +# can handle that machine. It does not imply ALL GNU software can. # # This file is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -40,26 +40,26 @@ # The goal of this file is to map all the various variations of a given # machine specification into a single specification in the form: -# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM +# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM # It is wrong to echo any other type of specification. if [ x$1 = x ] then - echo Configuration name missing. 1>&2 - echo "Usage: $0 CPU-MFR-OPSYS" 1>&2 - echo "or $0 ALIAS" 1>&2 - echo where ALIAS is a recognized configuration type. 1>&2 - exit 1 + echo Configuration name missing. 1>&2 + echo "Usage: $0 CPU-MFR-OPSYS" 1>&2 + echo "or $0 ALIAS" 1>&2 + echo where ALIAS is a recognized configuration type. 1>&2 + exit 1 fi # First pass through any local machine types. case $1 in - *local*) - echo $1 - exit 0 - ;; - *) - ;; + *local*) + echo $1 + exit 0 + ;; + *) + ;; esac # Separate what the user gave into CPU-COMPANY and OS (if any). @@ -73,541 +73,541 @@ else os=; fi ### recognize some manufacturers as not being operating systems, so we ### can provide default operating systems below. case $os in - -sun*os*) - # Prevent following clause from handling this invalid input. - ;; - -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ - -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ - -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ - -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ - -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ - -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp ) - os= - basic_machine=$1 - ;; - -hiux*) - os=-hiuxwe2 - ;; - -sco4) - os=-sco3.2v4 - basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` - ;; - -sco3.2.[4-9]*) - os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` - basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` - ;; - -sco3.2v[4-9]*) - # Don't forget version if it is 3.2v4 or newer. - basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` - ;; - -sco*) - os=-sco3.2v2 - basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` - ;; - -isc) - os=-isc2.2 - basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` - ;; - -clix*) - basic_machine=clipper-intergraph - ;; - -isc*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` - ;; - -lynx*) - os=-lynxos - ;; - -ptx*) - basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` - ;; - -windowsnt*) - os=`echo $os | sed -e 's/windowsnt/winnt/'` - ;; + -sun*os*) + # Prevent following clause from handling this invalid input. + ;; + -dec* | -mips* | -sequent* | -encore* | -pc532* | -sgi* | -sony* | \ + -att* | -7300* | -3300* | -delta* | -motorola* | -sun[234]* | \ + -unicom* | -ibm* | -next | -hp | -isi* | -apollo | -altos* | \ + -convergent* | -ncr* | -news | -32* | -3600* | -3100* | -hitachi* |\ + -c[123]* | -convex* | -sun | -crds | -omron* | -dg | -ultra | -tti* | \ + -harris | -dolphin | -highlevel | -gould | -cbm | -ns | -masscomp ) + os= + basic_machine=$1 + ;; + -hiux*) + os=-hiuxwe2 + ;; + -sco4) + os=-sco3.2v4 + basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` + ;; + -sco3.2.[4-9]*) + os=`echo $os | sed -e 's/sco3.2./sco3.2v/'` + basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` + ;; + -sco3.2v[4-9]*) + # Don't forget version if it is 3.2v4 or newer. + basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` + ;; + -sco*) + os=-sco3.2v2 + basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` + ;; + -isc) + os=-isc2.2 + basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` + ;; + -clix*) + basic_machine=clipper-intergraph + ;; + -isc*) + basic_machine=`echo $1 | sed -e 's/86-.*/86-unknown/'` + ;; + -lynx*) + os=-lynxos + ;; + -ptx*) + basic_machine=`echo $1 | sed -e 's/86-.*/86-sequent/'` + ;; + -windowsnt*) + os=`echo $os | sed -e 's/windowsnt/winnt/'` + ;; esac # Decode aliases for certain CPU-COMPANY combinations. case $basic_machine in - # Recognize the basic CPU types without company name. - # Some are omitted here because they have special meanings below. - tahoe | i[3-6]86 | i860 | m68k | m68000 | m88k | ns32k | arm \ - | arme[lb] | pyramid \ - | tron | a29k | 580 | i960 | h8300 | hppa1.0 | hppa1.1 \ - | alpha | we32k | ns16k | clipper | sparclite | i370 | sh \ - | powerpc | powerpcle | sparc64 | 1750a | dsp16xx | mips64 | mipsel \ - | pdp11 | mips64el | mips64orion | mips64orionel \ - | sparc) - basic_machine=$basic_machine-unknown - ;; - # Object if more than one company name word. - *-*-*) - echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 - exit 1 - ;; - # Recognize the basic CPU types with company name. - vax-* | tahoe-* | i[3-6]86-* | i860-* | m68k-* | m68000-* | m88k-* \ - | sparc-* | ns32k-* | fx80-* | arm-* | c[123]* \ - | mips-* | pyramid-* | tron-* | a29k-* | romp-* | rs6000-* | power-* \ - | none-* | 580-* | cray2-* | h8300-* | i960-* | xmp-* | ymp-* \ - | hppa1.0-* | hppa1.1-* | alpha-* | we32k-* | cydra-* | ns16k-* \ - | pn-* | np1-* | xps100-* | clipper-* | orion-* | sparclite-* \ - | pdp11-* | sh-* | powerpc-* | powerpcle-* | sparc64-* | mips64-* | mipsel-* \ - | mips64el-* | mips64orion-* | mips64orionel-*) - ;; - # Recognize the various machine names and aliases which stand - # for a CPU type and a company and sometimes even an OS. - 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) - basic_machine=m68000-att - ;; - 3b*) - basic_machine=we32k-att - ;; - alliant | fx80) - basic_machine=fx80-alliant - ;; - altos | altos3068) - basic_machine=m68k-altos - ;; - am29k) - basic_machine=a29k-none - os=-bsd - ;; - amdahl) - basic_machine=580-amdahl - os=-sysv - ;; - amiga | amiga-*) - basic_machine=m68k-cbm - ;; - amigados) - basic_machine=m68k-cbm - os=-amigados - ;; - amigaunix | amix) - basic_machine=m68k-cbm - os=-sysv4 - ;; - apollo68) - basic_machine=m68k-apollo - os=-sysv - ;; - balance) - basic_machine=ns32k-sequent - os=-dynix - ;; - convex-c1) - basic_machine=c1-convex - os=-bsd - ;; - convex-c2) - basic_machine=c2-convex - os=-bsd - ;; - convex-c32) - basic_machine=c32-convex - os=-bsd - ;; - convex-c34) - basic_machine=c34-convex - os=-bsd - ;; - convex-c38) - basic_machine=c38-convex - os=-bsd - ;; - cray | ymp) - basic_machine=ymp-cray - os=-unicos - ;; - cray2) - basic_machine=cray2-cray - os=-unicos - ;; - crds | unos) - basic_machine=m68k-crds - ;; - da30 | da30-*) - basic_machine=m68k-da30 - ;; - decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) - basic_machine=mips-dec - ;; - delta | 3300 | motorola-3300 | motorola-delta \ - | 3300-motorola | delta-motorola) - basic_machine=m68k-motorola - ;; - delta88) - basic_machine=m88k-motorola - os=-sysv3 - ;; - dpx20 | dpx20-*) - basic_machine=rs6000-bull - os=-bosx - ;; - dpx2* | dpx2*-bull) - basic_machine=m68k-bull - os=-sysv3 - ;; - ebmon29k) - basic_machine=a29k-amd - os=-ebmon - ;; - elxsi) - basic_machine=elxsi-elxsi - os=-bsd - ;; - encore | umax | mmax) - basic_machine=ns32k-encore - ;; - fx2800) - basic_machine=i860-alliant - ;; - genix) - basic_machine=ns32k-ns - ;; - gmicro) - basic_machine=tron-gmicro - os=-sysv - ;; - h3050r* | hiux*) - basic_machine=hppa1.1-hitachi - os=-hiuxwe2 - ;; - h8300hms) - basic_machine=h8300-hitachi - os=-hms - ;; - harris) - basic_machine=m88k-harris - os=-sysv3 - ;; - hp300-*) - basic_machine=m68k-hp - ;; - hp300bsd) - basic_machine=m68k-hp - os=-bsd - ;; - hp300hpux) - basic_machine=m68k-hp - os=-hpux - ;; - hp9k2[0-9][0-9] | hp9k31[0-9]) - basic_machine=m68000-hp - ;; - hp9k3[2-9][0-9]) - basic_machine=m68k-hp - ;; - hp9k7[0-9][0-9] | hp7[0-9][0-9] | hp9k8[0-9]7 | hp8[0-9]7) - basic_machine=hppa1.1-hp - ;; - hp9k8[0-9][0-9] | hp8[0-9][0-9]) - basic_machine=hppa1.0-hp - ;; - i370-ibm* | ibm*) - basic_machine=i370-ibm - os=-mvs - ;; + # Recognize the basic CPU types without company name. + # Some are omitted here because they have special meanings below. + tahoe | i[3-6]86 | i860 | m68k | m68000 | m88k | ns32k | arm \ + | arme[lb] | pyramid \ + | tron | a29k | 580 | i960 | h8300 | hppa1.0 | hppa1.1 \ + | alpha | we32k | ns16k | clipper | sparclite | i370 | sh \ + | powerpc | powerpcle | sparc64 | 1750a | dsp16xx | mips64 | mipsel \ + | pdp11 | mips64el | mips64orion | mips64orionel \ + | sparc) + basic_machine=$basic_machine-unknown + ;; + # Object if more than one company name word. + *-*-*) + echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 + exit 1 + ;; + # Recognize the basic CPU types with company name. + vax-* | tahoe-* | i[3-6]86-* | i860-* | m68k-* | m68000-* | m88k-* \ + | sparc-* | ns32k-* | fx80-* | arm-* | c[123]* \ + | mips-* | pyramid-* | tron-* | a29k-* | romp-* | rs6000-* | power-* \ + | none-* | 580-* | cray2-* | h8300-* | i960-* | xmp-* | ymp-* \ + | hppa1.0-* | hppa1.1-* | alpha-* | we32k-* | cydra-* | ns16k-* \ + | pn-* | np1-* | xps100-* | clipper-* | orion-* | sparclite-* \ + | pdp11-* | sh-* | powerpc-* | powerpcle-* | sparc64-* | mips64-* | mipsel-* \ + | mips64el-* | mips64orion-* | mips64orionel-*) + ;; + # Recognize the various machine names and aliases which stand + # for a CPU type and a company and sometimes even an OS. + 3b1 | 7300 | 7300-att | att-7300 | pc7300 | safari | unixpc) + basic_machine=m68000-att + ;; + 3b*) + basic_machine=we32k-att + ;; + alliant | fx80) + basic_machine=fx80-alliant + ;; + altos | altos3068) + basic_machine=m68k-altos + ;; + am29k) + basic_machine=a29k-none + os=-bsd + ;; + amdahl) + basic_machine=580-amdahl + os=-sysv + ;; + amiga | amiga-*) + basic_machine=m68k-cbm + ;; + amigados) + basic_machine=m68k-cbm + os=-amigados + ;; + amigaunix | amix) + basic_machine=m68k-cbm + os=-sysv4 + ;; + apollo68) + basic_machine=m68k-apollo + os=-sysv + ;; + balance) + basic_machine=ns32k-sequent + os=-dynix + ;; + convex-c1) + basic_machine=c1-convex + os=-bsd + ;; + convex-c2) + basic_machine=c2-convex + os=-bsd + ;; + convex-c32) + basic_machine=c32-convex + os=-bsd + ;; + convex-c34) + basic_machine=c34-convex + os=-bsd + ;; + convex-c38) + basic_machine=c38-convex + os=-bsd + ;; + cray | ymp) + basic_machine=ymp-cray + os=-unicos + ;; + cray2) + basic_machine=cray2-cray + os=-unicos + ;; + crds | unos) + basic_machine=m68k-crds + ;; + da30 | da30-*) + basic_machine=m68k-da30 + ;; + decstation | decstation-3100 | pmax | pmax-* | pmin | dec3100 | decstatn) + basic_machine=mips-dec + ;; + delta | 3300 | motorola-3300 | motorola-delta \ + | 3300-motorola | delta-motorola) + basic_machine=m68k-motorola + ;; + delta88) + basic_machine=m88k-motorola + os=-sysv3 + ;; + dpx20 | dpx20-*) + basic_machine=rs6000-bull + os=-bosx + ;; + dpx2* | dpx2*-bull) + basic_machine=m68k-bull + os=-sysv3 + ;; + ebmon29k) + basic_machine=a29k-amd + os=-ebmon + ;; + elxsi) + basic_machine=elxsi-elxsi + os=-bsd + ;; + encore | umax | mmax) + basic_machine=ns32k-encore + ;; + fx2800) + basic_machine=i860-alliant + ;; + genix) + basic_machine=ns32k-ns + ;; + gmicro) + basic_machine=tron-gmicro + os=-sysv + ;; + h3050r* | hiux*) + basic_machine=hppa1.1-hitachi + os=-hiuxwe2 + ;; + h8300hms) + basic_machine=h8300-hitachi + os=-hms + ;; + harris) + basic_machine=m88k-harris + os=-sysv3 + ;; + hp300-*) + basic_machine=m68k-hp + ;; + hp300bsd) + basic_machine=m68k-hp + os=-bsd + ;; + hp300hpux) + basic_machine=m68k-hp + os=-hpux + ;; + hp9k2[0-9][0-9] | hp9k31[0-9]) + basic_machine=m68000-hp + ;; + hp9k3[2-9][0-9]) + basic_machine=m68k-hp + ;; + hp9k7[0-9][0-9] | hp7[0-9][0-9] | hp9k8[0-9]7 | hp8[0-9]7) + basic_machine=hppa1.1-hp + ;; + hp9k8[0-9][0-9] | hp8[0-9][0-9]) + basic_machine=hppa1.0-hp + ;; + i370-ibm* | ibm*) + basic_machine=i370-ibm + os=-mvs + ;; # I'm not sure what "Sysv32" means. Should this be sysv3.2? - i[3-6]86v32) - basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` - os=-sysv32 - ;; - i[3-6]86v4*) - basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` - os=-sysv4 - ;; - i[3-6]86v) - basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` - os=-sysv - ;; - i[3-6]86sol2) - basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` - os=-solaris2 - ;; - iris | iris4d) - basic_machine=mips-sgi - case $os in - -irix*) - ;; - *) - os=-irix4 - ;; - esac - ;; - isi68 | isi) - basic_machine=m68k-isi - os=-sysv - ;; - m88k-omron*) - basic_machine=m88k-omron - ;; - magnum | m3230) - basic_machine=mips-mips - os=-sysv - ;; - merlin) - basic_machine=ns32k-utek - os=-sysv - ;; - miniframe) - basic_machine=m68000-convergent - ;; - mips3*-*) - basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` - ;; - mips3*) - basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown - ;; - ncr3000) - basic_machine=i486-ncr - os=-sysv4 - ;; - news | news700 | news800 | news900) - basic_machine=m68k-sony - os=-newsos - ;; - news1000) - basic_machine=m68030-sony - os=-newsos - ;; - news-3600 | risc-news) - basic_machine=mips-sony - os=-newsos - ;; - next | m*-next ) - basic_machine=m68k-next - case $os in - -nextstep* ) - ;; - -ns2*) - os=-nextstep2 - ;; - *) - os=-nextstep3 - ;; - esac - ;; - nh3000) - basic_machine=m68k-harris - os=-cxux - ;; - nh[45]000) - basic_machine=m88k-harris - os=-cxux - ;; - nindy960) - basic_machine=i960-intel - os=-nindy - ;; - np1) - basic_machine=np1-gould - ;; - pa-hitachi) - basic_machine=hppa1.1-hitachi - os=-hiuxwe2 - ;; - paragon) - basic_machine=i860-intel - os=-osf - ;; - pbd) - basic_machine=sparc-tti - ;; - pbb) - basic_machine=m68k-tti - ;; + i[3-6]86v32) + basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` + os=-sysv32 + ;; + i[3-6]86v4*) + basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` + os=-sysv4 + ;; + i[3-6]86v) + basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` + os=-sysv + ;; + i[3-6]86sol2) + basic_machine=`echo $1 | sed -e 's/86.*/86-unknown/'` + os=-solaris2 + ;; + iris | iris4d) + basic_machine=mips-sgi + case $os in + -irix*) + ;; + *) + os=-irix4 + ;; + esac + ;; + isi68 | isi) + basic_machine=m68k-isi + os=-sysv + ;; + m88k-omron*) + basic_machine=m88k-omron + ;; + magnum | m3230) + basic_machine=mips-mips + os=-sysv + ;; + merlin) + basic_machine=ns32k-utek + os=-sysv + ;; + miniframe) + basic_machine=m68000-convergent + ;; + mips3*-*) + basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'` + ;; + mips3*) + basic_machine=`echo $basic_machine | sed -e 's/mips3/mips64/'`-unknown + ;; + ncr3000) + basic_machine=i486-ncr + os=-sysv4 + ;; + news | news700 | news800 | news900) + basic_machine=m68k-sony + os=-newsos + ;; + news1000) + basic_machine=m68030-sony + os=-newsos + ;; + news-3600 | risc-news) + basic_machine=mips-sony + os=-newsos + ;; + next | m*-next ) + basic_machine=m68k-next + case $os in + -nextstep* ) + ;; + -ns2*) + os=-nextstep2 + ;; + *) + os=-nextstep3 + ;; + esac + ;; + nh3000) + basic_machine=m68k-harris + os=-cxux + ;; + nh[45]000) + basic_machine=m88k-harris + os=-cxux + ;; + nindy960) + basic_machine=i960-intel + os=-nindy + ;; + np1) + basic_machine=np1-gould + ;; + pa-hitachi) + basic_machine=hppa1.1-hitachi + os=-hiuxwe2 + ;; + paragon) + basic_machine=i860-intel + os=-osf + ;; + pbd) + basic_machine=sparc-tti + ;; + pbb) + basic_machine=m68k-tti + ;; pc532 | pc532-*) - basic_machine=ns32k-pc532 - ;; - pentium | p5 | p6) - # We don't have specific support for the Intel Pentium (p6) followon yet, so just call it a Pentium - basic_machine=i586-intel - ;; - pentium-* | p5-* | p6-*) - # We don't have specific support for the Intel Pentium (p6) followon yet, so just call it a Pentium - basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - k5) - # We don't have specific support for AMD's K5 yet, so just call it a Pentium - basic_machine=i586-amd - ;; - nexen) - # We don't have specific support for Nexgen yet, so just call it a Pentium - basic_machine=i586-nexgen - ;; - pn) - basic_machine=pn-gould - ;; - power) basic_machine=rs6000-ibm - ;; - ppc) basic_machine=powerpc-unknown - ;; - ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ppcle | powerpclittle | ppc-le | powerpc-little) - basic_machine=powerpcle-unknown - ;; - ppcle-* | powerpclittle-*) - basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` - ;; - ps2) - basic_machine=i386-ibm - ;; - rm[46]00) - basic_machine=mips-siemens - ;; - rtpc | rtpc-*) - basic_machine=romp-ibm - ;; - sequent) - basic_machine=i386-sequent - ;; - sh) - basic_machine=sh-hitachi - os=-hms - ;; - sps7) - basic_machine=m68k-bull - os=-sysv2 - ;; - spur) - basic_machine=spur-unknown - ;; - sun2) - basic_machine=m68000-sun - ;; - sun2os3) - basic_machine=m68000-sun - os=-sunos3 - ;; - sun2os4) - basic_machine=m68000-sun - os=-sunos4 - ;; - sun3os3) - basic_machine=m68k-sun - os=-sunos3 - ;; - sun3os4) - basic_machine=m68k-sun - os=-sunos4 - ;; - sun4os3) - basic_machine=sparc-sun - os=-sunos3 - ;; - sun4os4) - basic_machine=sparc-sun - os=-sunos4 - ;; - sun4sol2) - basic_machine=sparc-sun - os=-solaris2 - ;; - sun3 | sun3-*) - basic_machine=m68k-sun - ;; - sun4) - basic_machine=sparc-sun - ;; - sun386 | sun386i | roadrunner) - basic_machine=i386-sun - ;; - symmetry) - basic_machine=i386-sequent - os=-dynix - ;; - tower | tower-32) - basic_machine=m68k-ncr - ;; - udi29k) - basic_machine=a29k-amd - os=-udi - ;; - ultra3) - basic_machine=a29k-nyu - os=-sym1 - ;; - vaxv) - basic_machine=vax-dec - os=-sysv - ;; - vms) - basic_machine=vax-dec - os=-vms - ;; - vxworks960) - basic_machine=i960-wrs - os=-vxworks - ;; - vxworks68) - basic_machine=m68k-wrs - os=-vxworks - ;; - vxworks29k) - basic_machine=a29k-wrs - os=-vxworks - ;; - xmp) - basic_machine=xmp-cray - os=-unicos - ;; + basic_machine=ns32k-pc532 + ;; + pentium | p5 | p6) + # We don't have specific support for the Intel Pentium (p6) followon yet, so just call it a Pentium + basic_machine=i586-intel + ;; + pentium-* | p5-* | p6-*) + # We don't have specific support for the Intel Pentium (p6) followon yet, so just call it a Pentium + basic_machine=i586-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + k5) + # We don't have specific support for AMD's K5 yet, so just call it a Pentium + basic_machine=i586-amd + ;; + nexen) + # We don't have specific support for Nexgen yet, so just call it a Pentium + basic_machine=i586-nexgen + ;; + pn) + basic_machine=pn-gould + ;; + power) basic_machine=rs6000-ibm + ;; + ppc) basic_machine=powerpc-unknown + ;; + ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + ppcle | powerpclittle | ppc-le | powerpc-little) + basic_machine=powerpcle-unknown + ;; + ppcle-* | powerpclittle-*) + basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'` + ;; + ps2) + basic_machine=i386-ibm + ;; + rm[46]00) + basic_machine=mips-siemens + ;; + rtpc | rtpc-*) + basic_machine=romp-ibm + ;; + sequent) + basic_machine=i386-sequent + ;; + sh) + basic_machine=sh-hitachi + os=-hms + ;; + sps7) + basic_machine=m68k-bull + os=-sysv2 + ;; + spur) + basic_machine=spur-unknown + ;; + sun2) + basic_machine=m68000-sun + ;; + sun2os3) + basic_machine=m68000-sun + os=-sunos3 + ;; + sun2os4) + basic_machine=m68000-sun + os=-sunos4 + ;; + sun3os3) + basic_machine=m68k-sun + os=-sunos3 + ;; + sun3os4) + basic_machine=m68k-sun + os=-sunos4 + ;; + sun4os3) + basic_machine=sparc-sun + os=-sunos3 + ;; + sun4os4) + basic_machine=sparc-sun + os=-sunos4 + ;; + sun4sol2) + basic_machine=sparc-sun + os=-solaris2 + ;; + sun3 | sun3-*) + basic_machine=m68k-sun + ;; + sun4) + basic_machine=sparc-sun + ;; + sun386 | sun386i | roadrunner) + basic_machine=i386-sun + ;; + symmetry) + basic_machine=i386-sequent + os=-dynix + ;; + tower | tower-32) + basic_machine=m68k-ncr + ;; + udi29k) + basic_machine=a29k-amd + os=-udi + ;; + ultra3) + basic_machine=a29k-nyu + os=-sym1 + ;; + vaxv) + basic_machine=vax-dec + os=-sysv + ;; + vms) + basic_machine=vax-dec + os=-vms + ;; + vxworks960) + basic_machine=i960-wrs + os=-vxworks + ;; + vxworks68) + basic_machine=m68k-wrs + os=-vxworks + ;; + vxworks29k) + basic_machine=a29k-wrs + os=-vxworks + ;; + xmp) + basic_machine=xmp-cray + os=-unicos + ;; xps | xps100) - basic_machine=xps100-honeywell - ;; - none) - basic_machine=none-none - os=-none - ;; + basic_machine=xps100-honeywell + ;; + none) + basic_machine=none-none + os=-none + ;; # Here we handle the default manufacturer of certain CPU types. It is in # some cases the only manufacturer, in others, it is the most popular. - mips) - basic_machine=mips-mips - ;; - romp) - basic_machine=romp-ibm - ;; - rs6000) - basic_machine=rs6000-ibm - ;; - vax) - basic_machine=vax-dec - ;; - pdp11) - basic_machine=pdp11-dec - ;; - we32k) - basic_machine=we32k-att - ;; - sparc) - basic_machine=sparc-sun - ;; + mips) + basic_machine=mips-mips + ;; + romp) + basic_machine=romp-ibm + ;; + rs6000) + basic_machine=rs6000-ibm + ;; + vax) + basic_machine=vax-dec + ;; + pdp11) + basic_machine=pdp11-dec + ;; + we32k) + basic_machine=we32k-att + ;; + sparc) + basic_machine=sparc-sun + ;; cydra) - basic_machine=cydra-cydrome - ;; - orion) - basic_machine=orion-highlevel - ;; - orion105) - basic_machine=clipper-highlevel - ;; - *) - echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 - exit 1 - ;; + basic_machine=cydra-cydrome + ;; + orion) + basic_machine=orion-highlevel + ;; + orion105) + basic_machine=clipper-highlevel + ;; + *) + echo Invalid configuration \`$1\': machine \`$basic_machine\' not recognized 1>&2 + exit 1 + ;; esac # Here we canonicalize certain aliases for manufacturers. case $basic_machine in - *-digital*) - basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` - ;; - *-commodore*) - basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` - ;; - *) - ;; + *-digital*) + basic_machine=`echo $basic_machine | sed 's/digital.*/dec/'` + ;; + *-commodore*) + basic_machine=`echo $basic_machine | sed 's/commodore.*/cbm/'` + ;; + *) + ;; esac # Decode manufacturer-specific aliases for certain operating systems. @@ -615,95 +615,95 @@ esac if [ x"$os" != x"" ] then case $os in - # -solaris* is a basic system type, with this one exception. - -solaris1 | -solaris1.*) - os=`echo $os | sed -e 's|solaris1|sunos4|'` - ;; - -solaris) - os=-solaris2 - ;; - -unixware* | svr4*) - os=-sysv4 - ;; - -gnu/linux*) - os=`echo $os | sed -e 's|gnu/linux|linux|'` - ;; - # First accept the basic system types. - # The portable systems comes first. - # Each alternative MUST END IN A *, to match a version number. - # -sysv* is not here because it comes later, after sysvr4. - -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ - | -vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[345]* \ - | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ - | -amigados* | -msdos* | -newsos* | -unicos* | -aos* \ - | -nindy* | -vxworks* | -ebmon* | -hms* | -mvs* | -clix* \ - | -riscos* | -linux* | -uniplus* | -iris* | -rtu* | -xenix* \ - | -hiux* | -386bsd* | -netbsd* | -freebsd* | -riscix* \ - | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* \ - | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ - | -udi* | -eabi* | -lites* | -openbsd* | -rhapsody* | -beos* ) - # Remember, each alternative MUST END IN *, to match a version number. - ;; - -sunos5*) - os=`echo $os | sed -e 's|sunos5|solaris2|'` - ;; - -sunos6*) - os=`echo $os | sed -e 's|sunos6|solaris3|'` - ;; - -osfrose*) - os=-osfrose - ;; - -osf*) - os=-osf - ;; - -utek*) - os=-bsd - ;; - -dynix*) - os=-bsd - ;; - -acis*) - os=-aos - ;; - -ctix* | -uts*) - os=-sysv - ;; - # Preserve the version number of sinix5. - -sinix5.*) - os=`echo $os | sed -e 's|sinix|sysv|'` - ;; - -sinix*) - os=-sysv4 - ;; - -triton*) - os=-sysv3 - ;; - -oss*) - os=-sysv3 - ;; - -svr4) - os=-sysv4 - ;; - -svr3) - os=-sysv3 - ;; - -sysvr4) - os=-sysv4 - ;; - # This must come after -sysvr4. - -sysv*) - ;; - -xenix) - os=-xenix - ;; - -none) - ;; - *) - # Get rid of the `-' at the beginning of $os. - os=`echo $os | sed 's/[^-]*-//'` - echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 - exit 1 - ;; + # -solaris* is a basic system type, with this one exception. + -solaris1 | -solaris1.*) + os=`echo $os | sed -e 's|solaris1|sunos4|'` + ;; + -solaris) + os=-solaris2 + ;; + -unixware* | svr4*) + os=-sysv4 + ;; + -gnu/linux*) + os=`echo $os | sed -e 's|gnu/linux|linux|'` + ;; + # First accept the basic system types. + # The portable systems comes first. + # Each alternative MUST END IN A *, to match a version number. + # -sysv* is not here because it comes later, after sysvr4. + -gnu* | -bsd* | -mach* | -minix* | -genix* | -ultrix* | -irix* \ + | -vms* | -sco* | -esix* | -isc* | -aix* | -sunos | -sunos[345]* \ + | -hpux* | -unos* | -osf* | -luna* | -dgux* | -solaris* | -sym* \ + | -amigados* | -msdos* | -newsos* | -unicos* | -aos* \ + | -nindy* | -vxworks* | -ebmon* | -hms* | -mvs* | -clix* \ + | -riscos* | -linux* | -uniplus* | -iris* | -rtu* | -xenix* \ + | -hiux* | -386bsd* | -netbsd* | -freebsd* | -riscix* \ + | -lynxos* | -bosx* | -nextstep* | -cxux* | -aout* | -elf* \ + | -ptx* | -coff* | -ecoff* | -winnt* | -domain* | -vsta* \ + | -udi* | -eabi* | -lites* | -openbsd* | -rhapsody* | -beos* ) + # Remember, each alternative MUST END IN *, to match a version number. + ;; + -sunos5*) + os=`echo $os | sed -e 's|sunos5|solaris2|'` + ;; + -sunos6*) + os=`echo $os | sed -e 's|sunos6|solaris3|'` + ;; + -osfrose*) + os=-osfrose + ;; + -osf*) + os=-osf + ;; + -utek*) + os=-bsd + ;; + -dynix*) + os=-bsd + ;; + -acis*) + os=-aos + ;; + -ctix* | -uts*) + os=-sysv + ;; + # Preserve the version number of sinix5. + -sinix5.*) + os=`echo $os | sed -e 's|sinix|sysv|'` + ;; + -sinix*) + os=-sysv4 + ;; + -triton*) + os=-sysv3 + ;; + -oss*) + os=-sysv3 + ;; + -svr4) + os=-sysv4 + ;; + -svr3) + os=-sysv3 + ;; + -sysvr4) + os=-sysv4 + ;; + # This must come after -sysvr4. + -sysv*) + ;; + -xenix) + os=-xenix + ;; + -none) + ;; + *) + # Get rid of the `-' at the beginning of $os. + os=`echo $os | sed 's/[^-]*-//'` + echo Invalid configuration \`$1\': system \`$os\' not recognized 1>&2 + exit 1 + ;; esac else @@ -718,99 +718,99 @@ else # system, and we'll never get to this point. case $basic_machine in - *-acorn) - os=-riscix1.2 - ;; - arm*-semi) - os=-aout - ;; + *-acorn) + os=-riscix1.2 + ;; + arm*-semi) + os=-aout + ;; pdp11-*) - os=-none - ;; - *-dec | vax-*) - os=-ultrix4.2 - ;; - m68*-apollo) - os=-domain - ;; - i386-sun) - os=-sunos4.0.2 - ;; - m68000-sun) - os=-sunos3 - # This also exists in the configure program, but was not the - # default. - # os=-sunos4 - ;; - *-tti) # must be before sparc entry or we get the wrong os. - os=-sysv3 - ;; - sparc-* | *-sun) - os=-sunos4.1.1 - ;; - *-ibm) - os=-aix - ;; - *-hp) - os=-hpux - ;; - *-hitachi) - os=-hiux - ;; - i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) - os=-sysv - ;; - *-cbm) - os=-amigados - ;; - *-dg) - os=-dgux - ;; - *-dolphin) - os=-sysv3 - ;; - m68k-ccur) - os=-rtu - ;; - m88k-omron*) - os=-luna - ;; - *-sequent) - os=-ptx - ;; - *-crds) - os=-unos - ;; - *-ns) - os=-genix - ;; - i370-*) - os=-mvs - ;; - *-next) - os=-nextstep3 - ;; + os=-none + ;; + *-dec | vax-*) + os=-ultrix4.2 + ;; + m68*-apollo) + os=-domain + ;; + i386-sun) + os=-sunos4.0.2 + ;; + m68000-sun) + os=-sunos3 + # This also exists in the configure program, but was not the + # default. + # os=-sunos4 + ;; + *-tti) # must be before sparc entry or we get the wrong os. + os=-sysv3 + ;; + sparc-* | *-sun) + os=-sunos4.1.1 + ;; + *-ibm) + os=-aix + ;; + *-hp) + os=-hpux + ;; + *-hitachi) + os=-hiux + ;; + i860-* | *-att | *-ncr | *-altos | *-motorola | *-convergent) + os=-sysv + ;; + *-cbm) + os=-amigados + ;; + *-dg) + os=-dgux + ;; + *-dolphin) + os=-sysv3 + ;; + m68k-ccur) + os=-rtu + ;; + m88k-omron*) + os=-luna + ;; + *-sequent) + os=-ptx + ;; + *-crds) + os=-unos + ;; + *-ns) + os=-genix + ;; + i370-*) + os=-mvs + ;; + *-next) + os=-nextstep3 + ;; *-gould) - os=-sysv - ;; + os=-sysv + ;; *-highlevel) - os=-bsd - ;; - *-encore) - os=-bsd - ;; + os=-bsd + ;; + *-encore) + os=-bsd + ;; *-sgi) - os=-irix - ;; + os=-irix + ;; *-siemens) - os=-sysv4 - ;; - *-masscomp) - os=-rtu - ;; - *) - os=-none - ;; + os=-sysv4 + ;; + *-masscomp) + os=-rtu + ;; + *) + os=-none + ;; esac fi @@ -818,50 +818,50 @@ fi # manufacturer. We pick the logical manufacturer. vendor=unknown case $basic_machine in - *-unknown) - case $os in - -riscix*) - vendor=acorn - ;; - -sunos*) - vendor=sun - ;; - -lynxos*) - vendor=lynx - ;; - -aix*) - vendor=ibm - ;; - -hpux*) - vendor=hp - ;; - -hiux*) - vendor=hitachi - ;; - -unos*) - vendor=crds - ;; - -dgux*) - vendor=dg - ;; - -luna*) - vendor=omron - ;; - -genix*) - vendor=ns - ;; - -mvs*) - vendor=ibm - ;; - -ptx*) - vendor=sequent - ;; - -vxworks*) - vendor=wrs - ;; - esac - basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` - ;; + *-unknown) + case $os in + -riscix*) + vendor=acorn + ;; + -sunos*) + vendor=sun + ;; + -lynxos*) + vendor=lynx + ;; + -aix*) + vendor=ibm + ;; + -hpux*) + vendor=hp + ;; + -hiux*) + vendor=hitachi + ;; + -unos*) + vendor=crds + ;; + -dgux*) + vendor=dg + ;; + -luna*) + vendor=omron + ;; + -genix*) + vendor=ns + ;; + -mvs*) + vendor=ibm + ;; + -ptx*) + vendor=sequent + ;; + -vxworks*) + vendor=wrs + ;; + esac + basic_machine=`echo $basic_machine | sed "s/unknown/$vendor/"` + ;; esac echo $basic_machine$os diff --git a/config/config.Mac b/config/config.Mac index f4a5c60431..5d2d8a8109 100644 --- a/config/config.Mac +++ b/config/config.Mac @@ -33,12 +33,18 @@ set -e APPLIDIR "{mpw}:OCaml-distrib:" ### Which libraries to compile and install # Currently available: -# str Regular expressions and high-level string processing -# num Arbitrary-precision rational arithmetic +# bigarray # dynlink Dynamic linking of bytecode # graph Graphics (for the standalone application only) +# macosunix Unix emulation (application only) +# num Arbitrary-precision rational arithmetic +# str Regular expressions and high-level string processing +# systhreads POSIX-based threads library # -set -e OTHERLIBRARIES "num str dynlink graph" +# NOTE: remove macosunix and systhreads from this list if you do not +# have GUSI installed. +# +set -e OTHERLIBRARIES "bigarray dynlink graph macosunix num str systhreads" ############# Configuration for the native-code compiler @@ -49,13 +55,12 @@ set -e MODEL ppc set -e SYSTEM unknown set -e NATIVECC MrC - ############# Version numbers (do not change) set -e OCAMLMAJOR 2 -set -e OCAMLMINOR 99 +set -e OCAMLMINOR "99+14" set -e MAJOR 1 set -e MINOR 0 set -e BUGFIX 0 set -e STAGE a -set -e REV 8 +set -e REV 9 diff --git a/config/sm-Mac.h b/config/m-MacOS.h index 16cf46b5c0..54e1e1d3b6 100644 --- a/config/sm-Mac.h +++ b/config/m-MacOS.h @@ -2,9 +2,9 @@ /* */ /* Objective Caml */ /* */ -/* Damien Doligez, projet Para, INRIA Rocquencourt */ +/* Damien Doligez, projet Moscova, INRIA Rocquencourt */ /* */ -/* Copyright 1996 Institut National de Recherche en Informatique et */ +/* 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. */ /* */ @@ -12,28 +12,20 @@ /* $Id$ */ -/* Processor dependencies */ - #define ARCH_BIG_ENDIAN -/* Operating system and standard library dependencies. */ - -#define OCAML_OS_TYPE "MacOS" -#define HAS_MEMMOVE -#define HAS_BCOPY -#define HAS_STRERROR -#define HAS_GETCWD -#define HAS_UI - #define SIZEOF_INT 4 #define SIZEOF_LONG 4 #define SIZEOF_SHORT 2 #if powerc +#define ARCH_INT64_TYPE long long +#define ARCH_UINT64_TYPE unsigned long long +#endif + +#if powerc #define CPU_TYPE_STRING "PPC" #else #define CPU_TYPE_STRING "68k" #define THREADED_CODE #endif - -/* FIXME to do: add 64-bit integer stuff */ diff --git a/config/s-MacOS.h b/config/s-MacOS.h new file mode 100644 index 0000000000..c30535a6bf --- /dev/null +++ b/config/s-MacOS.h @@ -0,0 +1,21 @@ +/***********************************************************************/ +/* */ +/* 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. */ +/* */ +/***********************************************************************/ + +/* $Id$ */ + +#define OCAML_OS_TYPE "MacOS" +#define HAS_MEMMOVE +#define HAS_BCOPY +#define HAS_STRERROR +#define HAS_GETCWD + +#define SIGVTALRM 26 /* FIXME */ @@ -337,7 +337,7 @@ system=unknown case "$host" in alpha-*-osf*) arch=alpha; system=digital;; alpha-*-linux*) arch=alpha; system=linux;; - alpha-*-freebsd*) arch=alpha; system=freebsd;; + alpha-*-freebsd*) arch=alpha; system=freebsd;; alpha-*-netbsd*) arch=alpha; system=netbsd;; alpha-*-openbsd*) arch=alpha; system=openbsd;; sparc-*-sunos4.*) arch=sparc; system=sunos;; @@ -632,7 +632,7 @@ if sh ./hasgot -i limits.h && sh ./runtest getgroups.c; then echo "#define HAS_GETGROUPS" >> s.h fi -if sh ./hasgot -i termios.h && +if sh ./hasgot -i termios.h && sh ./hasgot tcgetattr tcsetattr tcsendbreak tcflush tcflow; then echo "POSIX termios found." echo "#define HAS_TERMIOS" >> s.h diff --git a/emacs/README b/emacs/README index f86ac628c3..e8da238790 100644 --- a/emacs/README +++ b/emacs/README @@ -1,4 +1,4 @@ - O'Caml emacs mode, snapshot of $Date$ + O'Caml emacs mode, snapshot of $Date$ The files in this archive define a caml-mode for emacs, for editing Objective Caml and Objective Label programs, as well as an @@ -15,10 +15,10 @@ see README.itz, which is the README from Ian Zimmerman's package. To use it, just put the .el files in your path, and add the following three lines in your .emacs. - (setq auto-mode-alist - (cons '("\\.ml[iylp]?$" . caml-mode) auto-mode-alist)) - (autoload 'caml-mode "caml" "Major mode for editing Caml code." t) - (autoload 'run-caml "inf-caml" "Run an inferior Caml process." t) + (setq auto-mode-alist + (cons '("\\.ml[iylp]?$" . caml-mode) auto-mode-alist)) + (autoload 'caml-mode "caml" "Major mode for editing Caml code." t) + (autoload 'run-caml "inf-caml" "Run an inferior Caml process." t) I added camldebug.el from the original distribution, since there will soon be a debugger for Objective Caml, but I do not know enough about @@ -26,17 +26,17 @@ it. To install the mode itself, edit the Makefile and do - % make install + % make install To install ocamltags, do - % make install-ocamltags + % make install-ocamltags To use highlighting capabilities, add ONE of the following two lines to your .emacs. - (if window-system (require 'caml-hilit)) - (if window-system (require 'caml-font)) + (if window-system (require 'caml-hilit)) + (if window-system (require 'caml-font)) caml.el and inf-caml.el can be used collectively, but it might be a good idea to copy caml-hilit.el or caml-font.el to you own directory, @@ -44,19 +44,19 @@ and edit it to your taste and colors. Main key bindings: -TAB indent current line -M-C-q indent phrase -M-C-h mark phrase -C-c C-a switch between interface and implementation -C-c C-c compile (usually make) -C-x` goto next error (also mouse button 2 in the compilation log) +TAB indent current line +M-C-q indent phrase +M-C-h mark phrase +C-c C-a switch between interface and implementation +C-c C-c compile (usually make) +C-x` goto next error (also mouse button 2 in the compilation log) Once you have started caml by M-x run-caml: -M-C-x send phrase to inferior caml process -C-c C-r send region to inferior caml process +M-C-x send phrase to inferior caml process +C-c C-r send region to inferior caml process C-c C-s show inferior caml process -C-c` goto error in expression sent by M-C-x +C-c` goto error in expression sent by M-C-x For other bindings, see C-h b. @@ -107,7 +107,7 @@ Version 1.05: correctly even when you write them at the beginning of a line. * added a Caml menu, and Imenu support. Imenu menu can be disabled - by setting the variable caml-imenu-disable to t. + by setting the variable caml-imenu-disable to t. Xemacs support for the Menu, but no Imenu. * key bindings closer to lisp-mode. @@ -122,8 +122,8 @@ Version 1.03b: * many bugs corrected. * (partial) compatibility with Caml-Light added. - (setq caml-quote-char "`") - (setq inferior-caml-program "camllight") + (setq caml-quote-char "`") + (setq inferior-caml-program "camllight") Literals will be correctly understood and highlighted. However, indentation rules are still Objective Caml's: this just happens to work well in most cases, but is only intended for occasional use. @@ -152,14 +152,14 @@ Some remarks about the style supported: Since Objective Caml's syntax is very liberal (more than 100 shift-reduce conflicts with yacc), automatic indentation is far from -easy. Moreover, you expect the indentation to be not purely syntactic, +easy. Moreover, you expect the indentation to be not purely syntactic, but also semantic: reflecting the meaning of your program. This mode tries to be intelligent. For instance some operators are -indented differently in the middle and at the end of a line (thanks to +indented differently in the middle and at the end of a line (thanks to Ian Zimmerman). Also, we do not indent after if .. then .. else, when else is on the same line, to reflect that this idiom is equivalent to -a return instruction in a more imperative language, or after the in of +a return instruction in a more imperative language, or after the in of let .. in, since you may see that as an assignment. However, you may want to use a different indentation style. This is @@ -178,4 +178,4 @@ in other cases may confuse the phrase selection function. Comments and bug reports to - Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp> + Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp> diff --git a/emacs/README.itz b/emacs/README.itz index 60678cfee1..8e1366f478 100644 --- a/emacs/README.itz +++ b/emacs/README.itz @@ -15,9 +15,9 @@ CONTENTS: caml.el A major mode for editing Caml code in Gnu Emacs inf-caml.el To run a Caml toplevel under Emacs, with input and - output in an Emacs buffer. + output in an Emacs buffer. camldebug.el To run the Caml debugger under Emacs. - + NOTE FOR EMACS 18 USERS: @@ -66,7 +66,7 @@ distribution, and hacked on it. First, I added real syntax dependent indentation to caml mode. Like Xavier has said, it was hard (and I knew it would be), but I refused to believe it was impossible, partly because I knew of a Standard ML mode with indentation (written by -Matthew Morley). +Matthew Morley). Indentation works pretty much like in other programming modes. C-j at the end of a line starts a new line properly indented. M-C-\ indents @@ -80,14 +80,14 @@ TAB twice in succession. If you don't like this behaviour (but you should), it's quite easy to add to your startup code like this: (defun caml-old-style-indent () - (if (caml-in-indentation) - (caml-indent-command) - (insert "\t"))) + (if (caml-in-indentation) + (caml-indent-command) + (insert "\t"))) (add-hook 'caml-mode-hook - (function (lambda () - (define-key 'caml-mode-map "\t" - caml-old-style-indent)))) + (function (lambda () + (define-key 'caml-mode-map "\t" + caml-old-style-indent)))) You can customize the appearance of your caml code by twiddling the variables listed at the start of caml.el. Good luck. :-) @@ -102,7 +102,7 @@ with modern versions of Emacs. The main benefit here is that you can do debugger commands _from your caml source buffer_. Commands with the C-c prefix in the debugger buffer have counterparts which do the same thing (well, a similar thing) in the source buffer, with the C-x C-a -prefix. +prefix. I made the existing debugger commands smarter in that they now attempt to guess the correct parameter to the underlying camldebug command. A @@ -175,4 +175,3 @@ Ian T Zimmerman +-------------------------------------------+ Box 13445 I With so many executioners available, I Berkeley CA 94712 USA I suicide is a really foolish thing to do. I mailto:itz@rahul.net +-------------------------------------------+ - diff --git a/emacs/caml-font.el b/emacs/caml-font.el index feb4c918fc..b5c58df78d 100644 --- a/emacs/caml-font.el +++ b/emacs/caml-font.el @@ -39,9 +39,9 @@ 2 font-lock-comment-face) ;character literals (cons (concat caml-quote-char "\\(\\\\\\([ntbr" caml-quote-char "\\]\\|" - "[0-9][0-9][0-9]\\)\\|.\\)" caml-quote-char - "\\|\"[^\"\\]*\\(\\\\\\(.\\|\n\\)[^\"\\]*\\)*\"") - 'font-lock-string-face) + "[0-9][0-9][0-9]\\)\\|.\\)" caml-quote-char + "\\|\"[^\"\\]*\\(\\\\\\(.\\|\n\\)[^\"\\]*\\)*\"") + 'font-lock-string-face) ;labels (and open) '("\\(\\<[A-Za-z][A-Za-z0-9_']*:\\)\\([^:=]\\|\\'\\|$\\)" 1 font-lock-variable-name-face) @@ -53,23 +53,23 @@ '("`[A-Za-z][A-Za-z0-9_']*\\>" . font-lock-function-name-face) ;definition (cons (concat - "\\<\\(a\\(nd\\|s\\)\\|c\\(onstraint\\|lass\\)" - "\\|ex\\(ception\\|ternal\\)\\|fun\\(ct\\(ion\\|or\\)\\)?" - "\\|in\\(herit\\|itializer\\)?\\|let" - "\\|m\\(ethod\\|utable\\|odule\\)" - "\\|of\\|p\\(arser\\|rivate\\)\\|rec\\|type" - "\\|v\\(al\\(ue\\)?\\|irtual\\)\\)\\>") - 'font-lock-type-face) + "\\<\\(a\\(nd\\|s\\)\\|c\\(onstraint\\|lass\\)" + "\\|ex\\(ception\\|ternal\\)\\|fun\\(ct\\(ion\\|or\\)\\)?" + "\\|in\\(herit\\|itializer\\)?\\|let" + "\\|m\\(ethod\\|utable\\|odule\\)" + "\\|of\\|p\\(arser\\|rivate\\)\\|rec\\|type" + "\\|v\\(al\\(ue\\)?\\|irtual\\)\\)\\>") + 'font-lock-type-face) ;blocking '("\\(\\<\\|:\\)\\(begin\\|end\\|object\\|s\\(ig\\|truct\\)\\)\\>" 2 font-lock-keyword-face) ;control (cons (concat - "\\<\\(do\\(ne\\|wnto\\)?\\|else\\|for\\|if" - "\\|lazy\\|match\\|new\\|or\\|t\\(hen\\|o\\|ry\\)" - "\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\)\\>" - "\\|\|\\|->\\|&\\|#") - 'font-lock-reference-face) + "\\<\\(do\\(ne\\|wnto\\)?\\|else\\|for\\|if" + "\\|lazy\\|match\\|new\\|or\\|t\\(hen\\|o\\|ry\\)" + "\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\)\\>" + "\\|\|\\|->\\|&\\|#") + 'font-lock-reference-face) '("\\<raise\\>" . font-lock-comment-face))) (defconst inferior-caml-font-lock-keywords @@ -80,33 +80,33 @@ ;labels '("[? \t]:[A-Za-z][A-Za-z0-9_']*\\>" . font-lock-variable-name-face)) caml-font-lock-keywords)) - + ;; font-lock commands are similar for caml-mode and inferior-caml-mode (setq caml-mode-hook '(lambda () - (cond - ((fboundp 'global-font-lock-mode) - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults - '(caml-font-lock-keywords nil nil ((?' . "w") (?_ . "w"))))) - (t - (setq font-lock-keywords caml-font-lock-keywords))) - (make-local-variable 'font-lock-keywords-only) - (setq font-lock-keywords-only t) - (font-lock-mode 1))) + (cond + ((fboundp 'global-font-lock-mode) + (make-local-variable 'font-lock-defaults) + (setq font-lock-defaults + '(caml-font-lock-keywords nil nil ((?' . "w") (?_ . "w"))))) + (t + (setq font-lock-keywords caml-font-lock-keywords))) + (make-local-variable 'font-lock-keywords-only) + (setq font-lock-keywords-only t) + (font-lock-mode 1))) (setq inferior-caml-mode-hooks '(lambda () - (cond - ((fboundp 'global-font-lock-mode) - (make-local-variable 'font-lock-defaults) - (setq font-lock-defaults - '(inferior-caml-font-lock-keywords - nil nil ((?' . "w") (?_ . "w"))))) - (t - (setq font-lock-keywords inferior-caml-font-lock-keywords))) - (make-local-variable 'font-lock-keywords-only) - (setq font-lock-keywords-only t) - (font-lock-mode 1))) + (cond + ((fboundp 'global-font-lock-mode) + (make-local-variable 'font-lock-defaults) + (setq font-lock-defaults + '(inferior-caml-font-lock-keywords + nil nil ((?' . "w") (?_ . "w"))))) + (t + (setq font-lock-keywords inferior-caml-font-lock-keywords))) + (make-local-variable 'font-lock-keywords-only) + (setq font-lock-keywords-only t) + (font-lock-mode 1))) (provide 'caml-font) diff --git a/emacs/caml-hilit.el b/emacs/caml-hilit.el index d6521e32b5..68ba8532f3 100644 --- a/emacs/caml-hilit.el +++ b/emacs/caml-hilit.el @@ -12,9 +12,9 @@ ;string (list 'hilit-string-find (string-to-char caml-quote-char) 'string) (list (concat caml-quote-char "\\(\\\\\\([ntbr" caml-quote-char "\\]\\|" - "[0-9][0-9][0-9]\\)\\|.\\)" caml-quote-char) - nil - 'string) + "[0-9][0-9][0-9]\\)\\|.\\)" caml-quote-char) + nil + 'string) ;labels '("[?]?\\<[A-Za-z][A-Za-z0-9_\']*:" nil brown) '("[?]?\\<:[A-Za-z][A-Za-z0-9_\']*\\>" nil brown) @@ -24,22 +24,22 @@ '("`[A-Za-z][A-Za-z0-9_\']*\\>" nil MidnightBlue) ;definition (list (concat - "\\<\\(a\\(nd\\|s\\)\\|c\\(onstraint\\|lass\\)" - "\\|ex\\(ception\\|ternal\\)\\|fun\\(ct\\(ion\\|or\\)\\)?" - "\\|in\\(herit\\)?\\|let\\|m\\(ethod\\|utable\\|odule\\)" - "\\|of\\|p\\(arser\\|rivate\\)\\|rec\\|type" - "\\|v\\(al\\(ue\\)?\\|irtual\\)\\)\\>") - nil 'ForestGreen) + "\\<\\(a\\(nd\\|s\\)\\|c\\(onstraint\\|lass\\)" + "\\|ex\\(ception\\|ternal\\)\\|fun\\(ct\\(ion\\|or\\)\\)?" + "\\|in\\(herit\\)?\\|let\\|m\\(ethod\\|utable\\|odule\\)" + "\\|of\\|p\\(arser\\|rivate\\)\\|rec\\|type" + "\\|v\\(al\\(ue\\)?\\|irtual\\)\\)\\>") + nil 'ForestGreen) ;blocking '("\\(\\<\\|:\\)\\(object\\|struct\\|sig\\|begin\\|end\\)\\>" 2 include) ;control (list (concat - "\\<\\(do\\(ne\\|wnto\\)?\\|else\\|for\\|if" - "\\|lazy\\|match\\|new\\|or\\|t\\(hen\\|o\\|ry\\)" - "\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\)\\>" - "\\|\|\\|->\\|&\\|#") - nil 'keyword) + "\\<\\(do\\(ne\\|wnto\\)?\\|else\\|for\\|if" + "\\|lazy\\|match\\|new\\|or\\|t\\(hen\\|o\\|ry\\)" + "\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\)\\>" + "\\|\|\\|->\\|&\\|#") + nil 'keyword) '(";" nil struct)) "Hilit19 patterns used for Caml mode") @@ -49,7 +49,7 @@ (append (list ;inferior - '("^[#-]" nil firebrick) + '("^[#-]" nil firebrick) '("`[A-Za-z][A-Za-z0-9_\']*\\>" nil MidnightBlue) '("[? \t]:[A-Za-z][A-Za-z0-9_\']*\\>" nil brown)) caml-mode-patterns)) diff --git a/emacs/caml.el b/emacs/caml.el index 153d42d6d2..5457060988 100644 --- a/emacs/caml.el +++ b/emacs/caml.el @@ -29,15 +29,15 @@ Priorities are assigned to `interesting' caml operators as follows: - all keywords 0 to 7 8 - type, val, ... + 0 7 - :: ^ 6 - @ 5 - := <- 4 - if 3 - fun, let, match ... 2 - module 1 - opening keywords 0.") + all keywords 0 to 7 8 + type, val, ... + 0 7 + :: ^ 6 + @ 5 + := <- 4 + if 3 + fun, let, match ... 2 + module 1 + opening keywords 0.") (defvar caml-apply-extra-indent 2 "*How many spaces to add to indentation for an application in caml mode.") @@ -55,11 +55,11 @@ Priorities are assigned to `interesting' caml operators as follows: "*How many spaces to indent from a exception keyword in caml mode.") (make-variable-buffer-local 'caml-exception-indent) -(defvar caml-for-indent 2 +(defvar caml-for-indent 2 "*How many spaces to indent from a for keyword in caml mode.") (make-variable-buffer-local 'caml-for-indent) -(defvar caml-fun-indent 2 +(defvar caml-fun-indent 2 "*How many spaces to indent from a fun keyword in caml mode.") (make-variable-buffer-local 'caml-fun-indent) @@ -67,7 +67,7 @@ Priorities are assigned to `interesting' caml operators as follows: "*How many spaces to indent from a function keyword in caml mode.") (make-variable-buffer-local 'caml-function-indent) -(defvar caml-if-indent 2 +(defvar caml-if-indent 2 "*How many spaces to indent from a if keyword in caml mode.") (make-variable-buffer-local 'caml-if-indent) @@ -87,7 +87,7 @@ Priorities are assigned to `interesting' caml operators as follows: "*How many spaces to indent from a include keyword in caml mode.") (make-variable-buffer-local 'caml-include-indent) -(defvar caml-let-indent 2 +(defvar caml-let-indent 2 "*How many spaces to indent from a let keyword in caml mode.") (make-variable-buffer-local 'caml-let-indent) @@ -127,7 +127,7 @@ Priorities are assigned to `interesting' caml operators as follows: "*How many spaces to indent from a struct keyword in caml mode.") (make-variable-buffer-local 'caml-struct-indent) -(defvar caml-try-indent 2 +(defvar caml-try-indent 2 "*How many spaces to indent from a try keyword in caml mode.") (make-variable-buffer-local 'caml-try-indent) @@ -135,7 +135,7 @@ Priorities are assigned to `interesting' caml operators as follows: "*How many spaces to indent from a type keyword in caml mode.") (make-variable-buffer-local 'caml-type-indent) -(defvar caml-val-indent 2 +(defvar caml-val-indent 2 "*How many spaces to indent from a val keyword in caml mode.") (make-variable-buffer-local 'caml-val-indent) @@ -143,11 +143,11 @@ Priorities are assigned to `interesting' caml operators as follows: "*How many spaces to indent from a while keyword in caml mode.") (make-variable-buffer-local 'caml-while-indent) -(defvar caml-::-indent 2 +(defvar caml-::-indent 2 "*How many spaces to indent from a :: operator in caml mode.") (make-variable-buffer-local 'caml-::-indent) -(defvar caml-@-indent 2 +(defvar caml-@-indent 2 "*How many spaces to indent from a @ operator in caml mode.") (make-variable-buffer-local 'caml-@-indent) @@ -155,11 +155,11 @@ Priorities are assigned to `interesting' caml operators as follows: "*How many spaces to indent from a := operator in caml mode.") (make-variable-buffer-local 'caml-:=-indent) -(defvar caml-<--indent 2 +(defvar caml-<--indent 2 "*How many spaces to indent from a <- operator in caml mode.") (make-variable-buffer-local 'caml-<--indent) -(defvar caml-->-indent 2 +(defvar caml-->-indent 2 "*How many spaces to indent from a -> operator in caml mode.") (make-variable-buffer-local 'caml-->-indent) @@ -171,7 +171,7 @@ Priorities are assigned to `interesting' caml operators as follows: "*How many spaces to indent from a \{ operator in caml mode.") (make-variable-buffer-local 'caml-lc-indent) -(defvar caml-lp-indent 1 +(defvar caml-lp-indent 1 "*How many spaces to indent from a \( operator in caml mode.") (make-variable-buffer-local 'caml-lp-indent) @@ -256,7 +256,7 @@ have caml-electric-indent on, which see.") ;;code (if (or (not (fboundp 'indent-line-to)) - (not (fboundp 'buffer-substring-no-properties))) + (not (fboundp 'buffer-substring-no-properties))) (require 'caml-compat)) (defvar caml-shell-active nil @@ -277,7 +277,7 @@ have caml-electric-indent on, which see.") (define-key caml-mode-map [backtab] 'caml-unindent-command) ;itz 04-21-96 instead of defining a new function, use defadvice -;that way we get out effect even when we do \C-x` in compilation buffer +;that way we get out effect even when we do \C-x` in compilation buffer ; (define-key caml-mode-map "\C-x`" 'caml-next-error) (define-key caml-mode-map "\177" 'backward-delete-char-untabify) @@ -302,14 +302,14 @@ have caml-electric-indent on, which see.") (define-key caml-mode-map "\M-\C-x" 'caml-eval-phrase) (if running-xemacs nil ; if not running xemacs (let ((map (make-sparse-keymap "Caml")) - (forms (make-sparse-keymap "Forms"))) + (forms (make-sparse-keymap "Forms"))) (define-key caml-mode-map "\C-c\C-d" 'caml-show-imenu) (define-key caml-mode-map [menu-bar] (make-sparse-keymap)) (define-key caml-mode-map [menu-bar caml] (cons "Caml" map)) (define-key map [run-caml] '("Start subshell..." . run-caml)) (define-key map [compile] '("Compile..." . compile)) (define-key map [switch-view] - '("Switch view" . caml-find-alternate-file)) + '("Switch view" . caml-find-alternate-file)) (define-key map [separator-format] '("--")) (define-key map [forms] (cons "Forms" forms)) (define-key map [show-imenu] '("Show index" . caml-show-imenu)) @@ -320,7 +320,7 @@ have caml-electric-indent on, which see.") (put 'caml-eval-phrase 'menu-enable 'caml-shell-active) (define-key map [indent-phrase] '("Indent phrase" . caml-indent-phrase)) (define-key forms [while] - '("while .. do .. done" . caml-insert-while-form)) + '("while .. do .. done" . caml-insert-while-form)) (define-key forms [try] '("try .. with .." . caml-insert-try-form)) (define-key forms [match] '("match .. with .." . caml-insert-match-form)) (define-key forms [let] '("let .. in .." . caml-insert-let-form)) @@ -331,22 +331,22 @@ have caml-electric-indent on, which see.") (defvar caml-mode-xemacs-menu (if running-xemacs '("Caml" - [ "Indent phrase" caml-indent-phrase :keys "C-M-q" ] - [ "Eval phrase" caml-eval-phrase - :active caml-shell-active :keys "C-M-x" ] - [ "Show subshell" caml-show-subshell caml-shell-active ] - ("Forms" - [ "while .. do .. done" caml-insert-while-form t] - [ "try .. with .." caml-insert-try-form t ] - [ "match .. with .." caml-insert-match-form t ] - [ "let .. in .." caml-insert-let-form t ] - [ "if .. then .. else .." caml-insert-if-form t ] - [ "for .. do .. done" caml-insert-for-form t ] - [ "begin .. end" caml-insert-begin-form t ]) - "---" - [ "Switch view" caml-find-alternate-file t ] - [ "Compile..." compile t ] - [ "Start subshell..." run-caml t ])) + [ "Indent phrase" caml-indent-phrase :keys "C-M-q" ] + [ "Eval phrase" caml-eval-phrase + :active caml-shell-active :keys "C-M-x" ] + [ "Show subshell" caml-show-subshell caml-shell-active ] + ("Forms" + [ "while .. do .. done" caml-insert-while-form t] + [ "try .. with .." caml-insert-try-form t ] + [ "match .. with .." caml-insert-match-form t ] + [ "let .. in .." caml-insert-let-form t ] + [ "if .. then .. else .." caml-insert-if-form t ] + [ "for .. do .. done" caml-insert-for-form t ] + [ "begin .. end" caml-insert-begin-form t ]) + "---" + [ "Switch view" caml-find-alternate-file t ] + [ "Compile..." compile t ] + [ "Start subshell..." run-caml t ])) "Menu to add to the menubar when running Xemacs") (defvar caml-mode-syntax-table nil @@ -369,7 +369,7 @@ have caml-electric-indent on, which see.") (modify-syntax-entry ?' "w" caml-mode-syntax-table) (modify-syntax-entry ?_ "w" caml-mode-syntax-table) ; : is part of words (labels) in O'Labl - (if caml-olabl-disable nil + (if caml-olabl-disable nil (modify-syntax-entry ?: "w" caml-mode-syntax-table)) ; ISO-latin accented letters and EUC kanjis are part of words (let ((i 160)) @@ -440,12 +440,12 @@ have caml-electric-indent on, which see.") ;garrigue july 97 (if running-xemacs ; from Xemacs lisp mode (if (and (featurep 'menubar) - current-menubar) - (progn - ;; make a local copy of the menubar, so our modes don't - ;; change the global menubar - (set-buffer-menubar current-menubar) - (add-submenu nil caml-mode-xemacs-menu))) + current-menubar) + (progn + ;; make a local copy of the menubar, so our modes don't + ;; change the global menubar + (set-buffer-menubar current-menubar) + (add-submenu nil caml-mode-xemacs-menu))) ;imenu support (not for Xemacs) (make-local-variable 'imenu-create-index-function) (setq imenu-create-index-function 'caml-create-index-function) @@ -454,7 +454,7 @@ have caml-electric-indent on, which see.") (make-local-variable 'caml-imenu-shown) (setq caml-imenu-shown nil) (if (and caml-imenu-enable (< (buffer-size) 10000)) - (caml-show-imenu))) + (caml-show-imenu))) (run-hooks 'caml-mode-hook)) ;;; Auxiliary function. Garrigue 96-11-01. @@ -463,10 +463,10 @@ have caml-electric-indent on, which see.") (interactive) (let ((name (buffer-file-name))) (if (string-match "^\\(.*\\)\\.\\(ml\\|mli\\)$" name) - (find-file - (concat - (caml-match-string 1 name) - (if (string= "ml" (caml-match-string 2 name)) ".mli" ".ml")))))) + (find-file + (concat + (caml-match-string 1 name) + (if (string= "ml" (caml-match-string 2 name)) ".mli" ".ml")))))) ;;; subshell support @@ -496,32 +496,32 @@ have caml-electric-indent on, which see.") (defconst caml-imenu-search-regexp (concat "\\<in\\>\\|" - "^[ \t]*\\(let\\|class\\|type\\|m\\(odule\\|ethod\\)" - "\\|functor\\|and\\|val\\)[ \t]+" - "\\(\\('[a-zA-Z0-9]+\\|([^)]+)" - "\\|mutable\\|private\\|rec\\|type\\)[ \t]+\\)?" - "\\([a-zA-Z][a-zA-Z0-9_']*\\)")) + "^[ \t]*\\(let\\|class\\|type\\|m\\(odule\\|ethod\\)" + "\\|functor\\|and\\|val\\)[ \t]+" + "\\(\\('[a-zA-Z0-9]+\\|([^)]+)" + "\\|mutable\\|private\\|rec\\|type\\)[ \t]+\\)?" + "\\([a-zA-Z][a-zA-Z0-9_']*\\)")) (defun caml-prev-index-position-function () (let (found data) (while (and (setq found - (re-search-backward caml-imenu-search-regexp nil 'move)) - (progn (setq data (match-data)) t) - (or (caml-in-literal-p) - (caml-in-comment-p) - (if (looking-at "in") (caml-find-in-match))))) + (re-search-backward caml-imenu-search-regexp nil 'move)) + (progn (setq data (match-data)) t) + (or (caml-in-literal-p) + (caml-in-comment-p) + (if (looking-at "in") (caml-find-in-match))))) (set-match-data data) found)) (defun caml-create-index-function () (let (value-alist - type-alist - class-alist - method-alist - module-alist - and-alist - all-alist - menu-alist - (prev-pos (point-max)) - index) + type-alist + class-alist + method-alist + module-alist + and-alist + all-alist + menu-alist + (prev-pos (point-max)) + index) (goto-char prev-pos) (imenu-progress-message prev-pos 0 t) ;; collect definitions @@ -531,31 +531,31 @@ have caml-electric-indent on, which see.") (setq all-alist (cons index all-alist)) (cond ((looking-at "[ \t]*and") - (setq and-alist (cons index and-alist))) + (setq and-alist (cons index and-alist))) ((looking-at "[ \t]*let") - (setq value-alist (cons index (append and-alist value-alist))) - (setq and-alist nil)) + (setq value-alist (cons index (append and-alist value-alist))) + (setq and-alist nil)) ((looking-at "[ \t]*type") - (setq type-alist (cons index (append and-alist type-alist))) - (setq and-alist nil)) + (setq type-alist (cons index (append and-alist type-alist))) + (setq and-alist nil)) ((looking-at "[ \t]*class") - (setq class-alist (cons index (append and-alist class-alist))) - (setq and-alist nil)) + (setq class-alist (cons index (append and-alist class-alist))) + (setq and-alist nil)) ((looking-at "[ \t]*val") - (setq value-alist (cons index value-alist))) + (setq value-alist (cons index value-alist))) ((looking-at "[ \t]*\\(module\\|functor\\)") - (setq module-alist (cons index module-alist))) + (setq module-alist (cons index module-alist))) ((looking-at "[ \t]*method") - (setq method-alist (cons index method-alist))))) + (setq method-alist (cons index method-alist))))) ;; build menu (mapcar '(lambda (pair) - (if (symbol-value (cdr pair)) - (setq menu-alist - (cons - (cons (car pair) - (sort (symbol-value (cdr pair)) 'imenu--sort-by-name)) - menu-alist)))) + (if (symbol-value (cdr pair)) + (setq menu-alist + (cons + (cons (car pair) + (sort (symbol-value (cdr pair)) 'imenu--sort-by-name)) + menu-alist)))) '(("Values" . value-alist) ("Types" . type-alist) ("Modules" . module-alist) @@ -588,12 +588,12 @@ the line all the way to where point is." ((and p (> p 1)) (indent-line-to (current-column))) ((caml-in-indentation) (indent-line-to (caml-compute-final-indent))) (t (save-excursion - (indent-line-to - (caml-compute-final-indent)))))) - + (indent-line-to + (caml-compute-final-indent)))))) + (defun caml-unindent-command () - "Decrease indentation by one level in Caml mode. + "Decrease indentation by one level in Caml mode. Works only if the point is at the beginning of an indented line \(i.e. all characters between beginning of line and point are @@ -625,12 +625,12 @@ variable caml-mode-indentation." (if (> l 1) (- l 1) l))) (defun forward-byte (count) (if (> count 0) - (while (> count 0) - (setq count (- count (caml-char-bytes (char-after)))) - (forward-char)) + (while (> count 0) + (setq count (- count (caml-char-bytes (char-after)))) + (forward-char)) (while (< count 0) - (setq count (+ count (caml-char-bytes (char-before)))) - (backward-char))))) + (setq count (+ count (caml-char-bytes (char-before)))) + (backward-char))))) (require 'compile) @@ -665,7 +665,7 @@ from an error message produced by camlc.") ;;forward n errors, not reparse. ;itz 04-21-96 instead of defining a new function, use defadvice -;that way we get our effect even when we do \C-x` in compilation buffer +;that way we get our effect even when we do \C-x` in compilation buffer (defadvice next-error (after caml-next-error activate) "Reads the extra positional information provided by the Caml compiler. @@ -677,38 +677,38 @@ possible." (if (eq major-mode 'caml-mode) (let (bol beg end) (save-excursion - (set-buffer - (if (boundp 'compilation-last-buffer) - compilation-last-buffer ;Emacs 19 - "*compilation*")) ;Emacs 18 - (save-excursion - (goto-char (window-point (get-buffer-window (current-buffer)))) - (if (looking-at caml-error-chars-regexp) - (setq beg - (string-to-int - (buffer-substring (match-beginning 1) (match-end 1))) - end - (string-to-int - (buffer-substring (match-beginning 2) (match-end 2))))))) + (set-buffer + (if (boundp 'compilation-last-buffer) + compilation-last-buffer ;Emacs 19 + "*compilation*")) ;Emacs 18 + (save-excursion + (goto-char (window-point (get-buffer-window (current-buffer)))) + (if (looking-at caml-error-chars-regexp) + (setq beg + (string-to-int + (buffer-substring (match-beginning 1) (match-end 1))) + end + (string-to-int + (buffer-substring (match-beginning 2) (match-end 2))))))) (cond (beg - (setq end (- end beg)) + (setq end (- end beg)) (beginning-of-line) - (forward-byte beg) - (setq beg (point)) - (forward-byte end) - (setq end (point)) - (goto-char beg) - (push-mark end t) - (cond ((fboundp 'make-overlay) - (if caml-error-overlay () - (setq caml-error-overlay (make-overlay 1 1)) - (overlay-put caml-error-overlay 'face 'region)) - (unwind-protect - (progn - (move-overlay caml-error-overlay - beg end (current-buffer)) - (sit-for 60)) - (delete-overlay caml-error-overlay))))))))) + (forward-byte beg) + (setq beg (point)) + (forward-byte end) + (setq end (point)) + (goto-char beg) + (push-mark end t) + (cond ((fboundp 'make-overlay) + (if caml-error-overlay () + (setq caml-error-overlay (make-overlay 1 1)) + (overlay-put caml-error-overlay 'face 'region)) + (unwind-protect + (progn + (move-overlay caml-error-overlay + beg end (current-buffer)) + (sit-for 60)) + (delete-overlay caml-error-overlay))))))))) ;; Usual match-string doesn't work properly with font-lock-mode ;; on some emacs. @@ -723,8 +723,8 @@ pairs. Zero means the entire text matched by the whole regexp or whole string." (let* ((data (match-data)) - (begin (nth (* 2 num) data)) - (end (nth (1+ (* 2 num)) data))) + (begin (nth (* 2 num) data)) + (end (nth (1+ (* 2 num)) data))) (if string (substring string begin end) (buffer-substring-no-properties begin end)))) @@ -743,14 +743,14 @@ whole string." (defconst caml-phrase-start-keywords (concat "\\<\\(class\\|ex\\(ternal\\|ception\\)\\|functor" - "\\|let\\|module\\|open\\|type\\|val\\)\\>") + "\\|let\\|module\\|open\\|type\\|val\\)\\>") "Keywords starting phrases in files") ;; a phrase starts when a toplevel keyword is at the beginning of a line (defun caml-at-phrase-start-p () (and (bolp) (or (looking-at "#") - (looking-at caml-phrase-start-keywords)))) + (looking-at caml-phrase-start-keywords)))) (defun caml-mark-phrase () "Put mark at end of this Caml phrase, point at beginning. @@ -765,13 +765,13 @@ eventually added when sending to the subprocess." (if (and (looking-at ";;") (not (caml-in-comment-p))) nil (if (caml-at-phrase-start-p) (forward-char)) (while (and (cond - ((re-search-forward - (concat ";;\\|" caml-phrase-start-keywords) nil 'move) - (goto-char (match-beginning 0)) t)) - (or (not (or (bolp) (looking-at ";;"))) - (caml-in-comment-p) - (caml-in-literal-p))) - (forward-char))) + ((re-search-forward + (concat ";;\\|" caml-phrase-start-keywords) nil 'move) + (goto-char (match-beginning 0)) t)) + (or (not (or (bolp) (looking-at ";;"))) + (caml-in-comment-p) + (caml-in-literal-p))) + (forward-char))) (setq use-semi (looking-at ";;")) (skip-chars-backward " \n\t") (while (and (eq (preceding-char) ?\)) (eq (char-after (- (point) 2)) ?*)) @@ -783,19 +783,19 @@ eventually added when sending to the subprocess." (cond (use-semi (if (caml-find-kwop ";;") (forward-char 2) - (goto-char (point-min))) + (goto-char (point-min))) (skip-chars-forward " \n\t") (while (or (looking-at comment-start-skip) (caml-in-comment-p)) - (if (= (following-char) ?\)) (forward-char) - (search-forward comment-end)) - (skip-chars-forward " \n\t"))) + (if (= (following-char) ?\)) (forward-char) + (search-forward comment-end)) + (skip-chars-forward " \n\t"))) (t (if (not (caml-find-kwop caml-phrase-start-keywords)) - (error "No phrase preceding point")) + (error "No phrase preceding point")) (while (and (or (not (bolp)) - (caml-in-comment-p) - (caml-in-literal-p)) - (caml-find-kwop caml-phrase-start-keywords))))) + (caml-in-comment-p) + (caml-in-literal-p)) + (caml-find-kwop caml-phrase-start-keywords))))) (cons (point) end))) ;;itz Fri Sep 25 12:58:13 PDT 1998 support for adding change-log entries @@ -842,44 +842,44 @@ eventually added when sending to the subprocess." ;this clears the last comment cache if necessary (defun caml-before-change-function (begin end) (if (and caml-last-noncomment-pos - (> caml-last-noncomment-pos begin)) + (> caml-last-noncomment-pos begin)) (setq caml-last-noncomment-pos nil)) (if (and (marker-position caml-last-comment-start) - (marker-position caml-last-comment-end) - (caml-overlap begin end - caml-last-comment-start - caml-last-comment-end)) + (marker-position caml-last-comment-end) + (caml-overlap begin end + caml-last-comment-start + caml-last-comment-end)) (prog2 - (set-marker caml-last-comment-start nil) - (set-marker caml-last-comment-end nil))) + (set-marker caml-last-comment-start nil) + (set-marker caml-last-comment-end nil))) (let ((orig-function (default-value 'before-change-function))) (if orig-function (funcall orig-function begin end)))) (defun caml-in-literal-p () "Returns non-nil if point is inside a caml literal." (let* ((start-literal (concat "[\"" caml-quote-char "]")) - (char-literal - (concat "\\([^\\]\\|\\\\\\.\\|\\\\[0-9][0-9][0-9]\\)" - caml-quote-char)) - (pos (point)) - (eol (progn (end-of-line 1) (point))) - state in-str) + (char-literal + (concat "\\([^\\]\\|\\\\\\.\\|\\\\[0-9][0-9][0-9]\\)" + caml-quote-char)) + (pos (point)) + (eol (progn (end-of-line 1) (point))) + state in-str) (beginning-of-line 1) (while (and (not state) - (re-search-forward start-literal eol t) - (<= (point) pos)) + (re-search-forward start-literal eol t) + (<= (point) pos)) (cond ((string= (caml-match-string 0) "\"") - (setq in-str t) - (while (and in-str (not state) - (re-search-forward "\"\\|\\\\\"" eol t)) - (if (> (point) pos) (setq state t)) - (if (string= (caml-match-string 0) "\"") (setq in-str nil))) - (if in-str (setq state t))) + (setq in-str t) + (while (and in-str (not state) + (re-search-forward "\"\\|\\\\\"" eol t)) + (if (> (point) pos) (setq state t)) + (if (string= (caml-match-string 0) "\"") (setq in-str nil))) + (if in-str (setq state t))) ((looking-at char-literal) - (if (and (>= pos (match-beginning 0)) (< pos (match-end 0))) - (setq state t) - (goto-char (match-end 0)))))) + (if (and (>= pos (match-beginning 0)) (< pos (match-end 0))) + (setq state t) + (goto-char (match-end 0)))))) (goto-char pos) state)) @@ -888,15 +888,15 @@ eventually added when sending to the subprocess." (let ((count 1) match) (while (> count 0) (if (not (re-search-forward "(\\*\\|\\*)" nil 'move)) - (setq count -1) - (setq match (caml-match-string 0)) - (cond - ((caml-in-literal-p) - nil) - ((string= match comment-start) - (setq count (1+ count))) - (t - (setq count (1- count)))))) + (setq count -1) + (setq match (caml-match-string 0)) + (cond + ((caml-in-literal-p) + nil) + ((string= match comment-start) + (setq count (1+ count))) + (t + (setq count (1- count)))))) (= count 0))) (defun caml-backward-comment () @@ -904,15 +904,15 @@ eventually added when sending to the subprocess." (let ((count 1) match) (while (> count 0) (if (not (re-search-backward "(\\*\\|\\*)" nil 'move)) - (setq count -1) - (setq match (caml-match-string 0)) - (cond - ((caml-in-literal-p) - nil) - ((string= match comment-start) - (setq count (1- count))) - (t - (setq count (1+ count)))))) + (setq count -1) + (setq match (caml-match-string 0)) + (cond + ((caml-in-literal-p) + nil) + ((string= match comment-start) + (setq count (1- count))) + (t + (setq count (1+ count)))))) (= count 0))) (defun caml-in-comment-p () @@ -926,57 +926,57 @@ Returns nil for the parenthesis openning a comment." ;;have to account for that possibility in comments. (save-excursion (let* ((cached-pos caml-last-noncomment-pos) - (cached-begin (marker-position caml-last-comment-start)) - (cached-end (marker-position caml-last-comment-end))) + (cached-begin (marker-position caml-last-comment-start)) + (cached-end (marker-position caml-last-comment-end))) (cond ((and cached-begin cached-end - (< cached-begin (point)) (< (point) cached-end)) t) + (< cached-begin (point)) (< (point) cached-end)) t) ((and cached-pos (= cached-pos (point))) nil) ((and cached-pos (> cached-pos (point)) - (< (abs (- cached-pos (point))) caml-lookback-limit)) - (let (end found (here (point))) - ; go back to somewhere sure - (goto-char cached-pos) - (while (> (point) here) - ; look for the end of a comment - (while (and (if (search-backward comment-end (1- here) 'move) - (setq end (match-end 0)) - (setq end nil)) - (caml-in-literal-p))) - (if end (setq found (caml-backward-comment)))) - (if (and found (= (point) here)) (setq end nil)) - (if (not end) - (setq caml-last-noncomment-pos here) - (set-marker caml-last-comment-start (point)) - (set-marker caml-last-comment-end end)) - end)) + (< (abs (- cached-pos (point))) caml-lookback-limit)) + (let (end found (here (point))) + ; go back to somewhere sure + (goto-char cached-pos) + (while (> (point) here) + ; look for the end of a comment + (while (and (if (search-backward comment-end (1- here) 'move) + (setq end (match-end 0)) + (setq end nil)) + (caml-in-literal-p))) + (if end (setq found (caml-backward-comment)))) + (if (and found (= (point) here)) (setq end nil)) + (if (not end) + (setq caml-last-noncomment-pos here) + (set-marker caml-last-comment-start (point)) + (set-marker caml-last-comment-end end)) + end)) (t - (let (begin found (here (point))) - ; go back to somewhere sure (or far enough) - (goto-char - (if cached-pos cached-pos (- (point) caml-lookback-limit))) - (while (< (point) here) - ; look for the beginning of a comment - (while (and (if (search-forward comment-start (1+ here) 'move) - (setq begin (match-beginning 0)) - (setq begin nil)) - (caml-in-literal-p))) - (if begin (setq found (caml-forward-comment)))) - (if (and found (= (point) here)) (setq begin nil)) - (if (not begin) - (setq caml-last-noncomment-pos here) - (set-marker caml-last-comment-start begin) - (set-marker caml-last-comment-end (point))) - begin)))))) + (let (begin found (here (point))) + ; go back to somewhere sure (or far enough) + (goto-char + (if cached-pos cached-pos (- (point) caml-lookback-limit))) + (while (< (point) here) + ; look for the beginning of a comment + (while (and (if (search-forward comment-start (1+ here) 'move) + (setq begin (match-beginning 0)) + (setq begin nil)) + (caml-in-literal-p))) + (if begin (setq found (caml-forward-comment)))) + (if (and found (= (point) here)) (setq begin nil)) + (if (not begin) + (setq caml-last-noncomment-pos here) + (set-marker caml-last-comment-start begin) + (set-marker caml-last-comment-end (point))) + begin)))))) (defconst caml-before-expr-prefix (concat "\\<\\(asr\\|begin\\|class\\|do\\(wnto\\)?\\|else" - "\\|i\\(f\\|n\\(herit\\|itializer\\)?\\)" - "\\|f\\(or\\|un\\(ct\\(ion\\|or\\)\\)?\\)" - "\\|l\\(and\\|or\\|s[lr]\\|xor\\)\\|m\\(atch\\|od\\)" - "\\|o[fr]\\|parser\\|s\\(ig\\|truct\\)\\|t\\(hen\\|o\\|ry\\)" - "\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\)\\>\\|:begin\\>" - "\\|[=<>@^|&+-*/$%][!$%*+-./:<=>?@^|~]*\\|:[:=]\\|[[({,;]") + "\\|i\\(f\\|n\\(herit\\|itializer\\)?\\)" + "\\|f\\(or\\|un\\(ct\\(ion\\|or\\)\\)?\\)" + "\\|l\\(and\\|or\\|s[lr]\\|xor\\)\\|m\\(atch\\|od\\)" + "\\|o[fr]\\|parser\\|s\\(ig\\|truct\\)\\|t\\(hen\\|o\\|ry\\)" + "\\|w\\(h\\(en\\|ile\\)\\|ith\\)\\)\\>\\|:begin\\>" + "\\|[=<>@^|&+-*/$%][!$%*+-./:<=>?@^|~]*\\|:[:=]\\|[[({,;]") "Keywords that may appear immediately before an expression. Used to distinguish it from toplevel let construct.") @@ -985,8 +985,8 @@ Used to distinguish it from toplevel let construct.") (let ((pos (point)) (in-expr t)) (caml-find-kwop (concat caml-before-expr-prefix "\\|" - caml-matching-kw-regexp "\\|" - (aref caml-kwop-regexps caml-max-indent-priority))) + caml-matching-kw-regexp "\\|" + (aref caml-kwop-regexps caml-max-indent-priority))) (cond ; special case for ;; ((and (= (preceding-char) ?\;) (= (following-char) ?\;))) @@ -994,9 +994,9 @@ Used to distinguish it from toplevel let construct.") (goto-char (match-end 0)) (skip-chars-forward " \t\n") (while (looking-at "(\\*") - (forward-char) - (caml-forward-comment) - (skip-chars-forward " \t\n")) + (forward-char) + (caml-forward-comment) + (skip-chars-forward " \t\n")) (if (<= pos (point)) (setq in-expr nil)))) (goto-char pos) in-expr)) @@ -1014,26 +1014,26 @@ values: the actual text of the keyword or operator, and a boolean indicating whether the keyword was one we looked for explicitly {non-nil}, or on the other hand one of the block-terminating keywords." - + (let ((start-literal (concat "[\"" caml-quote-char "]")) - found kwop) + found kwop) (progn (while (and (not found) - (re-search-backward kwop-regexp nil t)) - (setq kwop (caml-match-string 0)) - (cond - ((looking-at "(\\*") - (backward-char)) - ((caml-in-comment-p) - (search-backward "(" nil 'move)) - ((looking-at start-literal)) - ((caml-in-literal-p) - (re-search-backward start-literal)) ;ugly hack - ((setq found t))))) + (re-search-backward kwop-regexp nil t)) + (setq kwop (caml-match-string 0)) + (cond + ((looking-at "(\\*") + (backward-char)) + ((caml-in-comment-p) + (search-backward "(" nil 'move)) + ((looking-at start-literal)) + ((caml-in-literal-p) + (re-search-backward start-literal)) ;ugly hack + ((setq found t))))) (if found - (if (not (string-match "\\`[^|[]|[^]|]?\\'" kwop)) ;arrrrgh!! - kwop - (forward-char 1) "|") nil))) + (if (not (string-match "\\`[^|[]|[^]|]?\\'" kwop)) ;arrrrgh!! + kwop + (forward-char 1) "|") nil))) ; Association list of indentation values based on governing keywords. ; @@ -1046,45 +1046,45 @@ keywords." (defconst caml-no-indent 0) (defconst caml-kwop-alist - '(("begin" nil 6 caml-begin-indent) - (":begin" nil 6 caml-begin-indent) ; hack - ("class" nil 0 caml-class-indent) - ("constraint" nil 0 caml-val-indent) - ("sig" nil 1 caml-sig-indent) - ("struct" nil 1 caml-struct-indent) - ("exception" nil 0 caml-exception-indent) - ("for" nil 6 caml-for-indent) - ("fun" nil 3 caml-fun-indent) - ("function" nil 3 caml-function-indent) - ("if" nil 6 caml-if-indent) - ("if-else" nil 6 caml-if-else-indent) - ("include" nil 0 caml-include-indent) - ("inherit" nil 0 caml-inherit-indent) - ("initializer" nil 0 caml-initializer-indent) - ("let" nil 6 caml-let-indent) - ("let-in" nil 6 caml-let-in-indent) - ("match" nil 6 caml-match-indent) - ("method" nil 0 caml-method-indent) - ("module" nil 0 caml-module-indent) - ("object" nil 6 caml-object-indent) - ("of" nil 7 caml-of-indent) - ("open" nil 0 caml-no-indent) - ("parser" nil 3 caml-parser-indent) - ("try" nil 6 caml-try-indent) - ("type" nil 0 caml-type-indent) - ("val" nil 0 caml-val-indent) - ("when" nil 2 caml-if-indent) - ("while" nil 6 caml-while-indent) - ("::" t 5 caml-::-indent) - ("@" t 4 caml-@-indent) - ("^" t 4 caml-@-indent) - (":=" nil 3 caml-:=-indent) - ("<-" nil 3 caml-<--indent) - ("->" nil 2 caml-->-indent) - ("\[" t 8 caml-lb-indent) - ("{" t 8 caml-lc-indent) - ("\(" t 8 caml-lp-indent) - ("|" nil 2 caml-no-indent)) + '(("begin" nil 6 caml-begin-indent) + (":begin" nil 6 caml-begin-indent) ; hack + ("class" nil 0 caml-class-indent) + ("constraint" nil 0 caml-val-indent) + ("sig" nil 1 caml-sig-indent) + ("struct" nil 1 caml-struct-indent) + ("exception" nil 0 caml-exception-indent) + ("for" nil 6 caml-for-indent) + ("fun" nil 3 caml-fun-indent) + ("function" nil 3 caml-function-indent) + ("if" nil 6 caml-if-indent) + ("if-else" nil 6 caml-if-else-indent) + ("include" nil 0 caml-include-indent) + ("inherit" nil 0 caml-inherit-indent) + ("initializer" nil 0 caml-initializer-indent) + ("let" nil 6 caml-let-indent) + ("let-in" nil 6 caml-let-in-indent) + ("match" nil 6 caml-match-indent) + ("method" nil 0 caml-method-indent) + ("module" nil 0 caml-module-indent) + ("object" nil 6 caml-object-indent) + ("of" nil 7 caml-of-indent) + ("open" nil 0 caml-no-indent) + ("parser" nil 3 caml-parser-indent) + ("try" nil 6 caml-try-indent) + ("type" nil 0 caml-type-indent) + ("val" nil 0 caml-val-indent) + ("when" nil 2 caml-if-indent) + ("while" nil 6 caml-while-indent) + ("::" t 5 caml-::-indent) + ("@" t 4 caml-@-indent) + ("^" t 4 caml-@-indent) + (":=" nil 3 caml-:=-indent) + ("<-" nil 3 caml-<--indent) + ("->" nil 2 caml-->-indent) + ("\[" t 8 caml-lb-indent) + ("{" t 8 caml-lc-indent) + ("\(" t 8 caml-lp-indent) + ("|" nil 2 caml-no-indent)) ; if-else and let-in are not keywords but idioms ; "|" is not in the regexps ; all these 3 values correspond to hard-coded names @@ -1105,7 +1105,7 @@ the line where the governing keyword occurs.") "Array of regexps representing caml keywords of different priorities.") (aset caml-kwop-regexps 0 - (concat + (concat "\\<\\(begin\\|object\\|for\\|s\\(ig\\|truct\\)\\|while\\)\\>" "\\|:begin\\>\\|[[({]")) (aset caml-kwop-regexps 1 @@ -1142,13 +1142,13 @@ the line where the governing keyword occurs.") ((string= kwop "done") (setq unbalanced (1+ unbalanced))) (t (setq unbalanced (1- unbalanced))))) kwop)) - + (defun caml-find-end-match () (let ((unbalanced 1) (kwop t)) (while (and (not (= 0 unbalanced)) kwop) (setq kwop - (caml-find-kwop - "\\<\\(end\\|begin\\|object\\|s\\(ig\\|truct\\)\\)\\>\\|:begin\\>\\|;;")) + (caml-find-kwop + "\\<\\(end\\|begin\\|object\\|s\\(ig\\|truct\\)\\)\\>\\|:begin\\>\\|;;")) (cond ((not kwop)) ((string= kwop ";;") (setq kwop nil) (forward-line 1)) @@ -1166,79 +1166,79 @@ the line where the governing keyword occurs.") ((string= kwop "in") (setq unbalanced (1+ unbalanced))) ( t (setq unbalanced (1- unbalanced))))) kwop)) - + (defun caml-find-with-match () (let ((unbalanced 1) (kwop t)) (while (and (not (= 0 unbalanced)) kwop) (setq kwop - (caml-find-kwop - "\\<\\(with\\|try\\|m\\(atch\\|odule\\)\\|functor\\)\\>\\|{\\|}")) + (caml-find-kwop + "\\<\\(with\\|try\\|m\\(atch\\|odule\\)\\|functor\\)\\>\\|{\\|}")) (cond ((not kwop)) ((or (string= kwop "module") (string= kwop "functor")) - (setq unbalanced 0)) + (setq unbalanced 0)) ((or (string= kwop "with") (string= kwop "}")) - (setq unbalanced (1+ unbalanced))) + (setq unbalanced (1+ unbalanced))) (t (setq unbalanced (1- unbalanced))))) kwop)) (defun caml-find-paren-match (close) (let ((unbalanced 1) - (regexp (cond ((= close ?\)) "[()]") - ((= close ?\]) "[][]") - ((= close ?\}) "[{}]")))) + (regexp (cond ((= close ?\)) "[()]") + ((= close ?\]) "[][]") + ((= close ?\}) "[{}]")))) (while (and (> unbalanced 0) - (caml-find-kwop regexp)) + (caml-find-kwop regexp)) (if (= close (following-char)) - (setq unbalanced (1+ unbalanced)) - (setq unbalanced (1- unbalanced)))))) + (setq unbalanced (1+ unbalanced)) + (setq unbalanced (1- unbalanced)))))) (defun caml-find-then-match (&optional from-else) (let ((bol (if from-else - (save-excursion - (progn (beginning-of-line) (point))))) - kwop done matching-fun) + (save-excursion + (progn (beginning-of-line) (point))))) + kwop done matching-fun) (while (not done) (setq kwop (caml-find-kwop - "\\<\\(e\\(nd\\|lse\\)\\|done\\|then\\|if\\)\\>\\|[])};]")) + "\\<\\(e\\(nd\\|lse\\)\\|done\\|then\\|if\\)\\>\\|[])};]")) (cond ((not kwop) (setq done t)) ((caml-at-sexp-close-p) - (caml-find-paren-match (following-char))) + (caml-find-paren-match (following-char))) ((string= kwop "if") (setq done t)) ((string= kwop "then") - (if (not from-else) (setq kwop (caml-find-then-match)))) + (if (not from-else) (setq kwop (caml-find-then-match)))) ((setq matching-fun (cdr-safe (assoc kwop caml-matching-kw-alist))) - (setq kwop (funcall matching-fun))) + (setq kwop (funcall matching-fun))) ((string= kwop "then") - (if (not from-else) (setq kwop (caml-find-then-match)))))) + (if (not from-else) (setq kwop (caml-find-then-match)))))) (if (and bol (>= (point) bol)) - "if-else" + "if-else" kwop))) (defun caml-find-pipe-match () (let ((done nil) (kwop) - (re (concat - "\\<\\(try\\|match\\|with\\|function\\|parser\\|type" - "\\|e\\(nd\\|lse\\)\\|done\\|then\\|in\\)\\>" - "\\|[^[|]|\\|[])}]"))) + (re (concat + "\\<\\(try\\|match\\|with\\|function\\|parser\\|type" + "\\|e\\(nd\\|lse\\)\\|done\\|then\\|in\\)\\>" + "\\|[^[|]|\\|[])}]"))) (while (not done) (setq kwop (caml-find-kwop re)) (cond ((not kwop) (setq done t)) ((looking-at "[^[|]\\(|\\)") - (goto-char (match-beginning 1)) - (setq kwop "|") - (setq done t)) + (goto-char (match-beginning 1)) + (setq kwop "|") + (setq done t)) ((caml-at-sexp-close-p) - (caml-find-paren-match (following-char))) + (caml-find-paren-match (following-char))) ((string= kwop "with") - (setq kwop (caml-find-with-match)) - (setq done t)) + (setq kwop (caml-find-with-match)) + (setq done t)) ((string= kwop "parser") - (if (re-search-backward "\\<with\\>" (- (point) 5) t) - (setq kwop (caml-find-with-match))) - (setq done t)) + (if (re-search-backward "\\<with\\>" (- (point) 5) t) + (setq kwop (caml-find-with-match))) + (setq done t)) ((string= kwop "done") (caml-find-done-match)) ((string= kwop "end") (caml-find-end-match)) ((string= kwop "then") (caml-find-then-match)) @@ -1251,7 +1251,7 @@ the line where the governing keyword occurs.") (let ((done nil) (kwop)) (while (not done) (setq kwop (caml-find-kwop - "\\<\\(object\\|exception\\|let\\|type\\|end\\|in\\)\\>")) + "\\<\\(object\\|exception\\|let\\|type\\|end\\|in\\)\\>")) (cond ((not kwop) (setq done t)) ((string= kwop "end") (caml-find-end-match)) @@ -1296,46 +1296,46 @@ the line where the governing keyword occurs.") Skip nested blocks." (let ((done nil) (kwop nil) (matching-fun) - (kwop-list (aref caml-kwop-regexps prio))) + (kwop-list (aref caml-kwop-regexps prio))) (while (not done) (setq kwop (caml-find-kwop - (concat caml-matching-kw-regexp - (cond ((> prio 3) "\\|[])},;]\\|") - ((> prio 2) "\\|[])};]\\|") - (t "\\|[])}]\\|")) - kwop-list))) + (concat caml-matching-kw-regexp + (cond ((> prio 3) "\\|[])},;]\\|") + ((> prio 2) "\\|[])};]\\|") + (t "\\|[])}]\\|")) + kwop-list))) (cond ((not kwop) (setq done t)) ((caml-at-sexp-close-p) - (caml-find-paren-match (following-char))) + (caml-find-paren-match (following-char))) ((and (>= prio 2) (string= kwop "|")) (setq done t)) ((string= kwop "end") (caml-find-end-match)) ((string= kwop "done") (caml-find-done-match)) ((string= kwop "in") - (cond ((and (caml-find-in-match) (>= prio 2)) - (setq kwop "let-in") - (setq done t)))) + (cond ((and (caml-find-in-match) (>= prio 2)) + (setq kwop "let-in") + (setq done t)))) ((and (string= kwop "parser") (>= prio 2) - (re-search-backward "\\<with\\>" (- (point) 5) t)) - (setq kwop (caml-find-with-match)) - (setq done t)) + (re-search-backward "\\<with\\>" (- (point) 5) t)) + (setq kwop (caml-find-with-match)) + (setq done t)) ((setq matching-fun (cdr-safe (assoc kwop caml-matching-kw-alist))) - (setq kwop (funcall matching-fun)) - (if (looking-at kwop-list) (setq done t))) + (setq kwop (funcall matching-fun)) + (if (looking-at kwop-list) (setq done t))) (t (let* ((kwop-info (assoc kwop caml-kwop-alist)) - (is-op (and (nth 1 kwop-info) - ; check that we are not at beginning of line - (let ((pos (point)) bti) - (back-to-indentation) - (setq bti (point)) - (goto-char pos) - (< bti pos))))) - (if (and is-op (looking-at - (concat (regexp-quote kwop) - "|?[ \t]*\\(\n\\|(\\*\\)"))) - (setq kwop-list - (aref caml-kwop-regexps (nth 2 kwop-info))) - (setq done t)))))) + (is-op (and (nth 1 kwop-info) + ; check that we are not at beginning of line + (let ((pos (point)) bti) + (back-to-indentation) + (setq bti (point)) + (goto-char pos) + (< bti pos))))) + (if (and is-op (looking-at + (concat (regexp-quote kwop) + "|?[ \t]*\\(\n\\|(\\*\\)"))) + (setq kwop-list + (aref caml-kwop-regexps (nth 2 kwop-info))) + (setq done t)))))) kwop)) (defun caml-compute-basic-indent (prio) @@ -1345,48 +1345,48 @@ Find the `governing node' for current line. Compute desired indentation based on the node and the indentation alists. Assumes point is exactly at line indentation. Does not preserve point." - + (let* (in-expr - (kwop (cond - ((looking-at "|\\([^]|]\\|\\'\\)") - (caml-find-pipe-match)) - ((and (looking-at caml-phrase-start-keywords) - (caml-in-expr-p)) - (caml-find-end-match)) - ((and (looking-at caml-matching-kw-regexp) - (assoc (caml-match-string 0) caml-matching-kw-alist)) - (funcall (cdr-safe (assoc (caml-match-string 0) - caml-matching-kw-alist)))) - ((looking-at - (aref caml-kwop-regexps caml-max-indent-priority)) - (let* ((kwop (caml-match-string 0)) - (kwop-info (assoc kwop caml-kwop-alist)) - (prio (if kwop-info (nth 2 kwop-info) - caml-max-indent-priority))) - (if (and (looking-at (aref caml-kwop-regexps 0)) - (not (looking-at "object")) - (caml-in-expr-p)) - (setq in-expr t)) - (caml-find-kwop-skipping-blocks prio))) - (t - (if (and (= prio caml-max-indent-priority) (caml-in-expr-p)) - (setq in-expr t)) - (caml-find-kwop-skipping-blocks prio)))) - (kwop-info (assoc kwop caml-kwop-alist)) - (indent-diff - (cond - ((not kwop-info) (beginning-of-line 1) 0) - ((looking-at "[[({][|<]?[ \t]*") - (length (caml-match-string 0))) - ((nth 1 kwop-info) (symbol-value (nth 3 kwop-info))) - (t - (let ((pos (point))) - (back-to-indentation) -; (if (looking-at "\\<let\\>") (goto-char pos)) - (- (symbol-value (nth 3 kwop-info)) - (if (looking-at "|") caml-|-extra-indent 0)))))) - (extra (if in-expr caml-apply-extra-indent 0))) - (+ indent-diff extra (current-column)))) + (kwop (cond + ((looking-at "|\\([^]|]\\|\\'\\)") + (caml-find-pipe-match)) + ((and (looking-at caml-phrase-start-keywords) + (caml-in-expr-p)) + (caml-find-end-match)) + ((and (looking-at caml-matching-kw-regexp) + (assoc (caml-match-string 0) caml-matching-kw-alist)) + (funcall (cdr-safe (assoc (caml-match-string 0) + caml-matching-kw-alist)))) + ((looking-at + (aref caml-kwop-regexps caml-max-indent-priority)) + (let* ((kwop (caml-match-string 0)) + (kwop-info (assoc kwop caml-kwop-alist)) + (prio (if kwop-info (nth 2 kwop-info) + caml-max-indent-priority))) + (if (and (looking-at (aref caml-kwop-regexps 0)) + (not (looking-at "object")) + (caml-in-expr-p)) + (setq in-expr t)) + (caml-find-kwop-skipping-blocks prio))) + (t + (if (and (= prio caml-max-indent-priority) (caml-in-expr-p)) + (setq in-expr t)) + (caml-find-kwop-skipping-blocks prio)))) + (kwop-info (assoc kwop caml-kwop-alist)) + (indent-diff + (cond + ((not kwop-info) (beginning-of-line 1) 0) + ((looking-at "[[({][|<]?[ \t]*") + (length (caml-match-string 0))) + ((nth 1 kwop-info) (symbol-value (nth 3 kwop-info))) + (t + (let ((pos (point))) + (back-to-indentation) +; (if (looking-at "\\<let\\>") (goto-char pos)) + (- (symbol-value (nth 3 kwop-info)) + (if (looking-at "|") caml-|-extra-indent 0)))))) + (extra (if in-expr caml-apply-extra-indent 0))) + (+ indent-diff extra (current-column)))) (defconst caml-leading-kwops-regexp (concat @@ -1425,19 +1425,19 @@ matching nodes to determine KEYWORD's final indentation.") (current-column)) ((caml-in-comment-p) (let ((closing (looking-at "\\*)"))) - (caml-backward-comment) - (looking-at comment-start-skip) - (+ (current-column) - (if closing 0 caml-comment-indent)))) + (caml-backward-comment) + (looking-at comment-start-skip) + (+ (current-column) + (if closing 0 caml-comment-indent)))) (t (let* ((leading (looking-at caml-leading-kwops-regexp)) - (assoc-val (if leading (assoc (caml-match-string 0) - caml-leading-kwops-alist))) - (extra (if leading (symbol-value (nth 1 assoc-val)) 0)) - (prio (if leading (nth 2 assoc-val) - caml-max-indent-priority)) - (basic (caml-compute-basic-indent prio))) - (max 0 (if extra (+ extra basic) (current-column)))))))) - + (assoc-val (if leading (assoc (caml-match-string 0) + caml-leading-kwops-alist))) + (extra (if leading (symbol-value (nth 1 assoc-val)) 0)) + (prio (if leading (nth 2 assoc-val) + caml-max-indent-priority)) + (basic (caml-compute-basic-indent prio))) + (max 0 (if extra (+ extra basic) (current-column)))))))) + (defun caml-split-string () @@ -1446,32 +1446,32 @@ matching nodes to determine KEYWORD's final indentation.") (backward-char 1)) (defadvice indent-new-comment-line (around - caml-indent-new-comment-line - activate) - + caml-indent-new-comment-line + activate) + "Handle multi-line strings in caml mode." ;this advice doesn't make sense in other modes. I wish there were a ;cleaner way to do this: I haven't found one. (let ((hooked (and (eq major-mode 'caml-mode) (caml-in-literal-p))) - (split-mark)) + (split-mark)) (if (not hooked) nil (setq split-mark (set-marker (make-marker) (point))) (caml-split-string)) ad-do-it (if (not hooked) nil (goto-char split-mark) - (set-marker split-mark nil)))) - + (set-marker split-mark nil)))) + (defadvice newline-and-indent (around - caml-newline-and-indent - activate) + caml-newline-and-indent + activate) "Handle multi-line strings in caml mode." (let ((hooked (and (eq major-mode 'caml-mode) (caml-in-literal-p))) - (split-mark)) + (split-mark)) (if (not hooked) nil (setq split-mark (set-marker (make-marker) (point))) (caml-split-string)) @@ -1488,23 +1488,23 @@ confused. It's when | is the first character of a |] sequence. This is a misfeature of caml syntax and cannot be fixed, however, as a workaround, the electric ] inserts | itself if the matching [ is followed by |." - + (interactive "*") (let ((electric (and caml-electric-indent - (caml-in-indentation) - (not (caml-in-comment-p))))) + (caml-in-indentation) + (not (caml-in-comment-p))))) (self-insert-command 1) (if electric - (let ((indent - (save-excursion - (backward-char 1) - (caml-indent-command) - (current-column)))) - (indent-to (- indent - (symbol-value - (nth 1 (assoc - (char-to-string last-command-char) - caml-leading-kwops-alist))))))))) + (let ((indent + (save-excursion + (backward-char 1) + (caml-indent-command) + (current-column)))) + (indent-to (- indent + (symbol-value + (nth 1 (assoc + (char-to-string last-command-char) + caml-leading-kwops-alist))))))))) (defun caml-electric-rb () "If inserting a ] operator at beginning of line, reindent the line. @@ -1514,60 +1514,60 @@ by |, insert one." (interactive "*") (let* ((prec (preceding-char)) - (look-pipe (and caml-electric-close-vector - (not (caml-in-comment-p)) - (not (caml-in-literal-p)) - (or (not (numberp prec)) - (not (char-equal ?| prec))) - (set-marker (make-marker) (point)))) - (electric (and caml-electric-indent - (caml-in-indentation) - (not (caml-in-comment-p))))) + (look-pipe (and caml-electric-close-vector + (not (caml-in-comment-p)) + (not (caml-in-literal-p)) + (or (not (numberp prec)) + (not (char-equal ?| prec))) + (set-marker (make-marker) (point)))) + (electric (and caml-electric-indent + (caml-in-indentation) + (not (caml-in-comment-p))))) (self-insert-command 1) (if electric - (let ((indent - (save-excursion - (backward-char 1) - (caml-indent-command) - (current-column)))) - (indent-to (- indent - (symbol-value - (nth 1 (assoc - (char-to-string last-command-char) - caml-leading-kwops-alist))))))) + (let ((indent + (save-excursion + (backward-char 1) + (caml-indent-command) + (current-column)))) + (indent-to (- indent + (symbol-value + (nth 1 (assoc + (char-to-string last-command-char) + caml-leading-kwops-alist))))))) (if look-pipe - (save-excursion - (let ((insert-pipe - (condition-case nil - (prog2 - (backward-list 1) - (if (looking-at "\\[|") "|" "")) - (error "")))) - (goto-char look-pipe) - (insert insert-pipe)) - (set-marker look-pipe nil))))) + (save-excursion + (let ((insert-pipe + (condition-case nil + (prog2 + (backward-list 1) + (if (looking-at "\\[|") "|" "")) + (error "")))) + (goto-char look-pipe) + (insert insert-pipe)) + (set-marker look-pipe nil))))) (defun caml-abbrev-hook () "If inserting a leading keyword at beginning of line, reindent the line." - ;itz unfortunately we need a special case + ;itz unfortunately we need a special case (if (and (not (caml-in-comment-p)) (not (= last-command-char ?_))) (let* ((bol (save-excursion (beginning-of-line) (point))) - (kw (save-excursion - (and (re-search-backward "^[ \t]*\\(\\sw+\\)\\=" bol t) - (caml-match-string 1))))) - (if kw - (let ((indent (save-excursion - (goto-char (match-beginning 1)) - (caml-indent-command) - (current-column))) - (abbrev-correct (if (= last-command-char ?\ ) 1 0))) - (indent-to (- indent - (or + (kw (save-excursion + (and (re-search-backward "^[ \t]*\\(\\sw+\\)\\=" bol t) + (caml-match-string 1))))) + (if kw + (let ((indent (save-excursion + (goto-char (match-beginning 1)) + (caml-indent-command) + (current-column))) + (abbrev-correct (if (= last-command-char ?\ ) 1 0))) + (indent-to (- indent + (or (symbol-value (nth 1 (assoc kw caml-leading-kwops-alist))) 0) - abbrev-correct))))))) + abbrev-correct))))))) (defun caml-indent-phrase () (interactive "*") @@ -1581,12 +1581,12 @@ by |, insert one." (if (< n 0) (caml-forward-to-less-indent (- n)) (while (> n 0) (let ((i (current-indentation))) - (forward-line -1) - (while (or (> (current-indentation) i) - (caml-in-comment-p) - (looking-at - (concat "[ \t]*\\(\n\\|" comment-start-skip "\\)"))) - (forward-line -1))) + (forward-line -1) + (while (or (> (current-indentation) i) + (caml-in-comment-p) + (looking-at + (concat "[ \t]*\\(\n\\|" comment-start-skip "\\)"))) + (forward-line -1))) (setq n (1- n)))) (back-to-indentation)) @@ -1597,21 +1597,21 @@ by |, insert one." (if (< n 0) (caml-backward-to-less-indent (- n)) (while (> n 0) (let ((i (current-indentation))) - (forward-line 1) - (while (or (> (current-indentation) i) - (caml-in-comment-p) - (looking-at - (concat "[ \t]*\\(\n\\|" comment-start-skip "\\)"))) - (forward-line 1))) + (forward-line 1) + (while (or (> (current-indentation) i) + (caml-in-comment-p) + (looking-at + (concat "[ \t]*\\(\n\\|" comment-start-skip "\\)"))) + (forward-line 1))) (setq n (1- n)))) - (back-to-indentation)) + (back-to-indentation)) (defun caml-insert-begin-form () "Inserts a nicely formatted begin-end form, leaving a mark after end." (interactive "*") (let ((prec (preceding-char))) (if (and (numberp prec) (not (char-equal ?\ (char-syntax prec)))) - (insert " "))) + (insert " "))) (let* ((c (current-indentation)) (i (+ caml-begin-indent c))) (insert "begin\n\nend") (push-mark) @@ -1624,7 +1624,7 @@ by |, insert one." (interactive "*") (let ((prec (preceding-char))) (if (and (numberp prec) (not (char-equal ?\ (char-syntax prec)))) - (insert " "))) + (insert " "))) (let* ((c (current-indentation)) (i (+ caml-for-indent c))) (insert "for do\n\ndone") (push-mark) @@ -1634,13 +1634,13 @@ by |, insert one." (push-mark) (beginning-of-line 1) (backward-char 4))) - + (defun caml-insert-if-form () "Insert nicely formatted if-then-else form leaving mark after then, else." (interactive "*") (let ((prec (preceding-char))) (if (and (numberp prec) (not (char-equal ?\ (char-syntax prec)))) - (insert " "))) + (insert " "))) (let* ((c (current-indentation)) (i (+ caml-if-indent c))) (insert "if\n\nthen\n\nelse\n") (indent-line-to i) @@ -1660,7 +1660,7 @@ by |, insert one." (interactive "*") (let ((prec (preceding-char))) (if (and (numberp prec) (not (char-equal ?\ (char-syntax prec)))) - (insert " "))) + (insert " "))) (let* ((c (current-indentation)) (i (+ caml-match-indent c))) (insert "match\n\nwith\n") (indent-line-to i) @@ -1675,7 +1675,7 @@ by |, insert one." (interactive "*") (let ((prec (preceding-char))) (if (and (numberp prec) (not (char-equal ?\ (char-syntax prec)))) - (insert " "))) + (insert " "))) (let* ((c (current-indentation))) (insert "let in\n") (indent-line-to c) @@ -1688,7 +1688,7 @@ by |, insert one." (interactive "*") (let ((prec (preceding-char))) (if (and (numberp prec) (not (char-equal ?\ (char-syntax prec)))) - (insert " "))) + (insert " "))) (let* ((c (current-indentation)) (i (+ caml-try-indent c))) (insert "try\n\nwith\n") (indent-line-to i) @@ -1703,7 +1703,7 @@ by |, insert one." (interactive "*") (let ((prec (preceding-char))) (if (and (numberp prec) (not (char-equal ?\ (char-syntax prec)))) - (insert " "))) + (insert " "))) (let* ((c (current-indentation)) (i (+ caml-if-indent c))) (insert "while do\n\ndone") (push-mark) diff --git a/emacs/camldebug.el b/emacs/camldebug.el index a72298d8ed..8d7b856eb0 100644 --- a/emacs/camldebug.el +++ b/emacs/camldebug.el @@ -43,7 +43,7 @@ (defvar camldebug-filter-function) (defvar camldebug-prompt-pattern "^(ocd) *" - "A regexp to recognize the prompt for ocamldebug.") + "A regexp to recognize the prompt for ocamldebug.") (defvar camldebug-overlay-event nil "Overlay for displaying the current event.") @@ -92,7 +92,7 @@ If you are in a source file, you may select a point to break at, by doing \\[camldebug-break]. Commands: -Many commands are inherited from comint mode. +Many commands are inherited from comint mode. Additionally we have: \\[camldebug-display-frame] display frames file in other window @@ -100,8 +100,8 @@ Additionally we have: C-x SPACE sets break point at current line." (mapcar 'make-local-variable - '(camldebug-last-frame-displayed-p camldebug-last-frame - camldebug-delete-prompt-marker camldebug-filter-function + '(camldebug-last-frame-displayed-p camldebug-last-frame + camldebug-delete-prompt-marker camldebug-filter-function camldebug-filter-accumulator paragraph-start)) (setq camldebug-last-frame nil @@ -110,7 +110,7 @@ C-x SPACE sets break point at current line." camldebug-filter-function 'camldebug-marker-filter comint-prompt-regexp camldebug-prompt-pattern comint-dynamic-complete-functions (cons 'camldebug-complete - comint-dynamic-complete-functions) + comint-dynamic-complete-functions) paragraph-start comint-prompt-regexp camldebug-last-frame-displayed-p t) (make-local-variable 'shell-dirtrackp) @@ -128,10 +128,10 @@ C-x SPACE sets break point at current line." to KEY, with optional doc string DOC. Certain %-escapes in ARGS are interpreted specially if present. These are: - %m module name of current module. - %d directory of current source file. - %c number of current character position - %e text of the caml variable surrounding point. + %m module name of current module. + %d directory of current source file. + %c number of current character position + %e text of the caml variable surrounding point. The `current' source file is the file of the current buffer (if we're in a caml buffer) or the source file current at the last break @@ -147,40 +147,40 @@ representation is simply concatenated with the COMMAND." (let* ((fun (intern (format "camldebug-%s" name)))) (list 'progn - (if doc - (list 'defun fun '(arg) - doc - '(interactive "P") - (list 'camldebug-call name args - '(camldebug-numeric-arg arg)))) - (list 'define-key 'camldebug-mode-map - (concat "\C-c" key) - (list 'quote fun)) - (list 'define-key 'caml-mode-map - (concat "\C-x\C-a" key) - (list 'quote fun))))) - -(def-camldebug "step" "\C-s" "Step one event forward.") + (if doc + (list 'defun fun '(arg) + doc + '(interactive "P") + (list 'camldebug-call name args + '(camldebug-numeric-arg arg)))) + (list 'define-key 'camldebug-mode-map + (concat "\C-c" key) + (list 'quote fun)) + (list 'define-key 'caml-mode-map + (concat "\C-x\C-a" key) + (list 'quote fun))))) + +(def-camldebug "step" "\C-s" "Step one event forward.") (def-camldebug "backstep" "\C-k" "Step one event backward.") -(def-camldebug "run" "\C-r" "Run the program.") +(def-camldebug "run" "\C-r" "Run the program.") (def-camldebug "reverse" "\C-v" "Run the program in reverse.") (def-camldebug "last" "\C-l" "Go to latest time in execution history.") (def-camldebug "backtrace" "\C-t" "Print the call stack.") -(def-camldebug "finish" "\C-f" "Finish executing current function.") -(def-camldebug "print" "\C-p" "Print value of symbol at point." "%e") -(def-camldebug "display" "\C-d" "Display value of symbol at point." "%e") -(def-camldebug "next" "\C-n" "Step one event forward (skip functions)") +(def-camldebug "finish" "\C-f" "Finish executing current function.") +(def-camldebug "print" "\C-p" "Print value of symbol at point." "%e") +(def-camldebug "display" "\C-d" "Display value of symbol at point." "%e") +(def-camldebug "next" "\C-n" "Step one event forward (skip functions)") (def-camldebug "up" "<" "Go up N stack frames (numeric arg) with display") (def-camldebug "down" ">" "Go down N stack frames (numeric arg) with display") -(def-camldebug "break" "\C-b" "Set breakpoint at current line." +(def-camldebug "break" "\C-b" "Set breakpoint at current line." "@ \"%m\" # %c") (defun camldebug-mouse-display (click) "Display value of $NNN clicked on." (interactive "e") (let* ((start (event-start click)) - (window (car start)) - (pos (car (cdr start))) + (window (car start)) + (pos (car (cdr start))) symb) (save-excursion (select-window window) @@ -194,23 +194,23 @@ representation is simply concatenated with the COMMAND." (defun camldebug-kill-filter (string) ;gob up stupid questions :-) (setq camldebug-filter-accumulator - (concat camldebug-filter-accumulator string)) + (concat camldebug-filter-accumulator string)) (if (not (string-match "\\(.* \\)(y or n) " - camldebug-filter-accumulator)) nil + camldebug-filter-accumulator)) nil (setq camldebug-kill-output - (cons t (match-string 1 camldebug-filter-accumulator))) + (cons t (match-string 1 camldebug-filter-accumulator))) (setq camldebug-filter-accumulator "")) (if (string-match comint-prompt-regexp camldebug-filter-accumulator) (let ((output (substring camldebug-filter-accumulator - (match-beginning 0)))) - (setq camldebug-kill-output - (cons nil (substring camldebug-filter-accumulator 0 - (1- (match-beginning 0))))) - (setq camldebug-filter-accumulator "") - output) + (match-beginning 0)))) + (setq camldebug-kill-output + (cons nil (substring camldebug-filter-accumulator 0 + (1- (match-beginning 0))))) + (setq camldebug-filter-accumulator "") + output) "")) -(def-camldebug "kill" "\C-k") +(def-camldebug "kill" "\C-k") (defun camldebug-kill () "Kill the program." @@ -219,13 +219,13 @@ representation is simply concatenated with the COMMAND." (save-excursion (set-buffer current-camldebug-buffer) (let ((proc (get-buffer-process (current-buffer))) - (camldebug-filter-function 'camldebug-kill-filter)) - (camldebug-call "kill") - (while (not (and camldebug-kill-output - (zerop (length camldebug-filter-accumulator)))) - (accept-process-output proc)))) + (camldebug-filter-function 'camldebug-kill-filter)) + (camldebug-call "kill") + (while (not (and camldebug-kill-output + (zerop (length camldebug-filter-accumulator)))) + (accept-process-output proc)))) (if (not (car camldebug-kill-output)) - (error (cdr camldebug-kill-output)) + (error (cdr camldebug-kill-output)) (sit-for 0 300) (camldebug-call-1 (if (y-or-n-p (cdr camldebug-kill-output)) "y" "n"))))) ;;FIXME: camldebug doesn't output the Hide marker on kill @@ -233,22 +233,22 @@ representation is simply concatenated with the COMMAND." (defun camldebug-goto-filter (string) ;accumulate onto previous output (setq camldebug-filter-accumulator - (concat camldebug-filter-accumulator string)) + (concat camldebug-filter-accumulator string)) (if (not (string-match (concat "\\(\n\\|\\`\\)[ \t]*\\([0-9]+\\)[ \t]+" - camldebug-goto-position - "[ \t]*\\(before\\|after\\)\n") - camldebug-filter-accumulator)) nil + camldebug-goto-position + "[ \t]*\\(before\\|after\\)\n") + camldebug-filter-accumulator)) nil (setq camldebug-goto-output - (match-string 2 camldebug-filter-accumulator)) + (match-string 2 camldebug-filter-accumulator)) (setq camldebug-filter-accumulator - (substring camldebug-filter-accumulator (1- (match-end 0))))) + (substring camldebug-filter-accumulator (1- (match-end 0))))) (if (not (string-match comint-prompt-regexp - camldebug-filter-accumulator)) nil + camldebug-filter-accumulator)) nil (setq camldebug-goto-output (or camldebug-goto-output 'fail)) (setq camldebug-filter-accumulator "")) (if (string-match "\n\\(.*\\)\\'" camldebug-filter-accumulator) (setq camldebug-filter-accumulator - (match-string 1 camldebug-filter-accumulator))) + (match-string 1 camldebug-filter-accumulator))) "") (def-camldebug "goto" "\C-g") @@ -257,7 +257,7 @@ representation is simply concatenated with the COMMAND." "Go to the execution time TIME. Without TIME, the command behaves as follows: In the camldebug buffer, -if the point at buffer end, goto time 0\; otherwise, try to obtain the +if the point at buffer end, goto time 0\; otherwise, try to obtain the time from context around point. In a caml mode buffer, try to find the time associated in execution history with the current point location. @@ -269,69 +269,69 @@ buffer, then try to obtain the time from context around point." (time (let ((ntime (camldebug-numeric-arg time))) (if (>= ntime 0) (camldebug-call "goto" nil ntime) - (save-selected-window - (select-window (get-buffer-window current-camldebug-buffer)) - (save-excursion - (if (re-search-backward "^Time : [0-9]+ - pc : [0-9]+ " - nil t (- 1 ntime)) - (camldebug-goto nil) - (error "I don't have %d times in my history" - (- 1 ntime)))))))) + (save-selected-window + (select-window (get-buffer-window current-camldebug-buffer)) + (save-excursion + (if (re-search-backward "^Time : [0-9]+ - pc : [0-9]+ " + nil t (- 1 ntime)) + (camldebug-goto nil) + (error "I don't have %d times in my history" + (- 1 ntime)))))))) ((eq (current-buffer) current-camldebug-buffer) (let ((time (cond - ((eobp) 0) - ((save-excursion - (beginning-of-line 1) - (looking-at "^Time : \\([0-9]+\\) - pc : [0-9]+ ")) - (string-to-int (match-string 1))) - ((string-to-int (camldebug-format-command "%e")))))) - (camldebug-call "goto" nil time))) + ((eobp) 0) + ((save-excursion + (beginning-of-line 1) + (looking-at "^Time : \\([0-9]+\\) - pc : [0-9]+ ")) + (string-to-int (match-string 1))) + ((string-to-int (camldebug-format-command "%e")))))) + (camldebug-call "goto" nil time))) (t (let ((module (camldebug-module-name (buffer-file-name))) - (camldebug-goto-position (int-to-string (1- (point)))) - (camldebug-goto-output) (address)) + (camldebug-goto-position (int-to-string (1- (point)))) + (camldebug-goto-output) (address)) ;get a list of all events in the current module (save-excursion - (set-buffer current-camldebug-buffer) - (let* ((proc (get-buffer-process (current-buffer))) - (camldebug-filter-function 'camldebug-goto-filter)) - (camldebug-call-1 (concat "info events " module)) - (while (not (and camldebug-goto-output - (zerop (length camldebug-filter-accumulator)))) - (accept-process-output proc)) - (setq address (if (eq camldebug-goto-output 'fail) nil - (re-search-backward - (concat "^Time : \\([0-9]+\\) - pc : " - camldebug-goto-output - " - module " - module "$") nil t) - (match-string 1))))) + (set-buffer current-camldebug-buffer) + (let* ((proc (get-buffer-process (current-buffer))) + (camldebug-filter-function 'camldebug-goto-filter)) + (camldebug-call-1 (concat "info events " module)) + (while (not (and camldebug-goto-output + (zerop (length camldebug-filter-accumulator)))) + (accept-process-output proc)) + (setq address (if (eq camldebug-goto-output 'fail) nil + (re-search-backward + (concat "^Time : \\([0-9]+\\) - pc : " + camldebug-goto-output + " - module " + module "$") nil t) + (match-string 1))))) (if address (camldebug-call "goto" nil (string-to-int address)) - (error "No time at %s at %s" module camldebug-goto-position)))))) + (error "No time at %s at %s" module camldebug-goto-position)))))) (defun camldebug-delete-filter (string) (setq camldebug-filter-accumulator - (concat camldebug-filter-accumulator string)) + (concat camldebug-filter-accumulator string)) (if (not (string-match - (concat "\\(\n\\|\\`\\)[ \t]*\\([0-9]+\\)[ \t]+[0-9]+[ \t]*in " - (regexp-quote camldebug-delete-file) - ", character " - camldebug-delete-position "\n") - camldebug-filter-accumulator)) nil + (concat "\\(\n\\|\\`\\)[ \t]*\\([0-9]+\\)[ \t]+[0-9]+[ \t]*in " + (regexp-quote camldebug-delete-file) + ", character " + camldebug-delete-position "\n") + camldebug-filter-accumulator)) nil (setq camldebug-delete-output - (match-string 2 camldebug-filter-accumulator)) + (match-string 2 camldebug-filter-accumulator)) (setq camldebug-filter-accumulator - (substring camldebug-filter-accumulator (1- (match-end 0))))) + (substring camldebug-filter-accumulator (1- (match-end 0))))) (if (not (string-match comint-prompt-regexp - camldebug-filter-accumulator)) nil + camldebug-filter-accumulator)) nil (setq camldebug-delete-output (or camldebug-delete-output 'fail)) (setq camldebug-filter-accumulator "")) (if (string-match "\n\\(.*\\)\\'" camldebug-filter-accumulator) (setq camldebug-filter-accumulator - (match-string 1 camldebug-filter-accumulator))) + (match-string 1 camldebug-filter-accumulator))) "") - + (def-camldebug "delete" "\C-d") @@ -352,105 +352,105 @@ around point." (arg (let ((narg (camldebug-numeric-arg arg))) (if (> narg 0) (camldebug-call "delete" nil narg) - (save-excursion - (set-buffer current-camldebug-buffer) - (if (re-search-backward "^Breakpoint [0-9]+ at [0-9]+ : file " - nil t (- 1 narg)) - (camldebug-delete nil) - (error "I don't have %d breakpoints in my history" - (- 1 narg))))))) + (save-excursion + (set-buffer current-camldebug-buffer) + (if (re-search-backward "^Breakpoint [0-9]+ at [0-9]+ : file " + nil t (- 1 narg)) + (camldebug-delete nil) + (error "I don't have %d breakpoints in my history" + (- 1 narg))))))) ((eq (current-buffer) current-camldebug-buffer) (let* ((bpline "^Breakpoint \\([0-9]+\\) at [0-9]+ : file ") - (arg (cond - ((eobp) - (save-excursion (re-search-backward bpline nil t)) - (string-to-int (match-string 1))) - ((save-excursion - (beginning-of-line 1) - (looking-at bpline)) - (string-to-int (match-string 1))) - ((string-to-int (camldebug-format-command "%e")))))) + (arg (cond + ((eobp) + (save-excursion (re-search-backward bpline nil t)) + (string-to-int (match-string 1))) + ((save-excursion + (beginning-of-line 1) + (looking-at bpline)) + (string-to-int (match-string 1))) + ((string-to-int (camldebug-format-command "%e")))))) (camldebug-call "delete" nil arg))) (t (let ((camldebug-delete-file - (concat (camldebug-format-command "%m") ".ml")) - (camldebug-delete-position (camldebug-format-command "%c"))) + (concat (camldebug-format-command "%m") ".ml")) + (camldebug-delete-position (camldebug-format-command "%c"))) (save-excursion - (set-buffer current-camldebug-buffer) - (let ((proc (get-buffer-process (current-buffer))) - (camldebug-filter-function 'camldebug-delete-filter) - (camldebug-delete-output)) - (camldebug-call-1 "info break") - (while (not (and camldebug-delete-output - (zerop (length - camldebug-filter-accumulator)))) - (accept-process-output proc)) - (if (eq camldebug-delete-output 'fail) - (error "No breakpoint in %s at %s" - camldebug-delete-file - camldebug-delete-position) - (camldebug-call "delete" nil - (string-to-int camldebug-delete-output))))))))) + (set-buffer current-camldebug-buffer) + (let ((proc (get-buffer-process (current-buffer))) + (camldebug-filter-function 'camldebug-delete-filter) + (camldebug-delete-output)) + (camldebug-call-1 "info break") + (while (not (and camldebug-delete-output + (zerop (length + camldebug-filter-accumulator)))) + (accept-process-output proc)) + (if (eq camldebug-delete-output 'fail) + (error "No breakpoint in %s at %s" + camldebug-delete-file + camldebug-delete-position) + (camldebug-call "delete" nil + (string-to-int camldebug-delete-output))))))))) (defun camldebug-complete-filter (string) (setq camldebug-filter-accumulator - (concat camldebug-filter-accumulator string)) + (concat camldebug-filter-accumulator string)) (while (string-match "\\(\n\\|\\`\\)\\(.+\\)\n" - camldebug-filter-accumulator) + camldebug-filter-accumulator) (setq camldebug-complete-list - (cons (match-string 2 camldebug-filter-accumulator) - camldebug-complete-list)) + (cons (match-string 2 camldebug-filter-accumulator) + camldebug-complete-list)) (setq camldebug-filter-accumulator - (substring camldebug-filter-accumulator - (1- (match-end 0))))) + (substring camldebug-filter-accumulator + (1- (match-end 0))))) (if (not (string-match comint-prompt-regexp - camldebug-filter-accumulator)) nil + camldebug-filter-accumulator)) nil (setq camldebug-complete-list - (or camldebug-complete-list 'fail)) + (or camldebug-complete-list 'fail)) (setq camldebug-filter-accumulator "")) (if (string-match "\n\\(.*\\)\\'" camldebug-filter-accumulator) (setq camldebug-filter-accumulator - (match-string 1 camldebug-filter-accumulator))) + (match-string 1 camldebug-filter-accumulator))) "") - + (defun camldebug-complete () "Perform completion on the camldebug command preceding point." (interactive) (let* ((end (point)) - (command (save-excursion - (beginning-of-line) - (and (looking-at comint-prompt-regexp) - (goto-char (match-end 0))) - (buffer-substring (point) end))) - (camldebug-complete-list nil) (command-word)) + (command (save-excursion + (beginning-of-line) + (and (looking-at comint-prompt-regexp) + (goto-char (match-end 0))) + (buffer-substring (point) end))) + (camldebug-complete-list nil) (command-word)) ;; Find the word break. This match will always succeed. (string-match "\\(\\`\\| \\)\\([^ ]*\\)\\'" command) (setq command-word (match-string 2 command)) - + ;itz 04-21-96 if we are trying to complete a word of nonzero ;length, chop off the last character. This is a nasty hack, but it ;works - in general, not just for this set of words: the comint ;call below will weed out false matches - and it avoids further ;mucking with camldebug's lexer. (if (> (length command-word) 0) - (setq command (substring command 0 (1- (length command))))) - + (setq command (substring command 0 (1- (length command))))) + (let ((camldebug-filter-function 'camldebug-complete-filter)) (camldebug-call-1 (concat "complete " command)) (set-marker camldebug-delete-prompt-marker nil) (while (not (and camldebug-complete-list - (zerop (length camldebug-filter-accumulator)))) - (accept-process-output (get-buffer-process - (current-buffer))))) + (zerop (length camldebug-filter-accumulator)))) + (accept-process-output (get-buffer-process + (current-buffer))))) (if (eq camldebug-complete-list 'fail) - (setq camldebug-complete-list nil)) + (setq camldebug-complete-list nil)) (setq camldebug-complete-list - (sort camldebug-complete-list 'string-lessp)) + (sort camldebug-complete-list 'string-lessp)) (comint-dynamic-simple-complete command-word camldebug-complete-list))) - + (define-key camldebug-mode-map "\C-l" 'camldebug-refresh) (define-key camldebug-mode-map "\t" 'comint-dynamic-complete) (define-key camldebug-mode-map "\M-?" 'comint-dynamic-list-completions) @@ -478,13 +478,13 @@ the camldebug commands `cd DIR' and `directory'." (setq default-directory (file-name-directory path)) (message "Current directory is %s" default-directory) (make-comint (concat "camldebug-" file) - (substitute-in-file-name camldebug-command-name) - nil - "-emacs" "-cd" default-directory file) + (substitute-in-file-name camldebug-command-name) + nil + "-emacs" "-cd" default-directory file) (set-process-filter (get-buffer-process (current-buffer)) - 'camldebug-filter) + 'camldebug-filter) (set-process-sentinel (get-buffer-process (current-buffer)) - 'camldebug-sentinel) + 'camldebug-sentinel) (camldebug-mode) (camldebug-set-buffer))) @@ -497,30 +497,30 @@ the camldebug commands `cd DIR' and `directory'." (defun camldebug-marker-filter (string) (setq camldebug-filter-accumulator - (concat camldebug-filter-accumulator string)) + (concat camldebug-filter-accumulator string)) (let ((output "") (begin)) ;; Process all the complete markers in this chunk. (while (setq begin - (string-match - "\032\032\\(H\\|M\\(.+\\):\\(.+\\):\\(before\\|after\\)\\)\n" - camldebug-filter-accumulator)) + (string-match + "\032\032\\(H\\|M\\(.+\\):\\(.+\\):\\(before\\|after\\)\\)\n" + camldebug-filter-accumulator)) (setq camldebug-last-frame - (if (char-equal ?H (aref camldebug-filter-accumulator - (1+ (1+ begin)))) nil - (list (match-string 2 camldebug-filter-accumulator) - (string-to-int - (match-string 3 camldebug-filter-accumulator)) - (string= "before" - (match-string 4 - camldebug-filter-accumulator)))) - output (concat output - (substring camldebug-filter-accumulator - 0 begin)) - ;; Set the accumulator to the remaining text. - camldebug-filter-accumulator (substring - camldebug-filter-accumulator - (match-end 0)) - camldebug-last-frame-displayed-p nil)) + (if (char-equal ?H (aref camldebug-filter-accumulator + (1+ (1+ begin)))) nil + (list (match-string 2 camldebug-filter-accumulator) + (string-to-int + (match-string 3 camldebug-filter-accumulator)) + (string= "before" + (match-string 4 + camldebug-filter-accumulator)))) + output (concat output + (substring camldebug-filter-accumulator + 0 begin)) + ;; Set the accumulator to the remaining text. + camldebug-filter-accumulator (substring + camldebug-filter-accumulator + (match-end 0)) + camldebug-last-frame-displayed-p nil)) ;; Does the remaining text look like it might end with the ;; beginning of another marker? If it does, then keep it in @@ -528,81 +528,81 @@ the camldebug commands `cd DIR' and `directory'." ;; know the full marker regexp above failed, it's pretty simple to ;; test for marker starts. (if (string-match "\032.*\\'" camldebug-filter-accumulator) - (progn - ;; Everything before the potential marker start can be output. - (setq output (concat output (substring camldebug-filter-accumulator - 0 (match-beginning 0)))) + (progn + ;; Everything before the potential marker start can be output. + (setq output (concat output (substring camldebug-filter-accumulator + 0 (match-beginning 0)))) - ;; Everything after, we save, to combine with later input. - (setq camldebug-filter-accumulator - (substring camldebug-filter-accumulator (match-beginning 0)))) + ;; Everything after, we save, to combine with later input. + (setq camldebug-filter-accumulator + (substring camldebug-filter-accumulator (match-beginning 0)))) (setq output (concat output camldebug-filter-accumulator) - camldebug-filter-accumulator "")) + camldebug-filter-accumulator "")) output)) (defun camldebug-filter (proc string) (let ((output)) (if (buffer-name (process-buffer proc)) - (let ((process-window)) - (save-excursion - (set-buffer (process-buffer proc)) - ;; If we have been so requested, delete the debugger prompt. - (if (marker-buffer camldebug-delete-prompt-marker) - (progn - (delete-region (process-mark proc) - camldebug-delete-prompt-marker) - (set-marker camldebug-delete-prompt-marker nil))) - (setq output (funcall camldebug-filter-function string)) - ;; Don't display the specified file unless - ;; (1) point is at or after the position where output appears - ;; and (2) this buffer is on the screen. - (setq process-window (and camldebug-track-frame - (not camldebug-last-frame-displayed-p) - (>= (point) (process-mark proc)) - (get-buffer-window (current-buffer)))) - ;; Insert the text, moving the process-marker. - (comint-output-filter proc output)) - (if process-window - (save-selected-window - (select-window process-window) - (camldebug-display-frame))))))) + (let ((process-window)) + (save-excursion + (set-buffer (process-buffer proc)) + ;; If we have been so requested, delete the debugger prompt. + (if (marker-buffer camldebug-delete-prompt-marker) + (progn + (delete-region (process-mark proc) + camldebug-delete-prompt-marker) + (set-marker camldebug-delete-prompt-marker nil))) + (setq output (funcall camldebug-filter-function string)) + ;; Don't display the specified file unless + ;; (1) point is at or after the position where output appears + ;; and (2) this buffer is on the screen. + (setq process-window (and camldebug-track-frame + (not camldebug-last-frame-displayed-p) + (>= (point) (process-mark proc)) + (get-buffer-window (current-buffer)))) + ;; Insert the text, moving the process-marker. + (comint-output-filter proc output)) + (if process-window + (save-selected-window + (select-window process-window) + (camldebug-display-frame))))))) (defun camldebug-sentinel (proc msg) (cond ((null (buffer-name (process-buffer proc))) - ;; buffer killed - ;; Stop displaying an arrow in a source file. - (camldebug-remove-current-event) - (set-process-buffer proc nil)) - ((memq (process-status proc) '(signal exit)) - ;; Stop displaying an arrow in a source file. - (camldebug-remove-current-event) - ;; Fix the mode line. - (setq mode-line-process - (concat ": " - (symbol-name (process-status proc)))) - (let* ((obuf (current-buffer))) - ;; save-excursion isn't the right thing if - ;; process-buffer is current-buffer - (unwind-protect - (progn - ;; Write something in *compilation* and hack its mode line, - (set-buffer (process-buffer proc)) - ;; Force mode line redisplay soon - (set-buffer-modified-p (buffer-modified-p)) - (if (eobp) - (insert ?\n mode-name " " msg) - (save-excursion - (goto-char (point-max)) - (insert ?\n mode-name " " msg))) - ;; If buffer and mode line will show that the process - ;; is dead, we can delete it now. Otherwise it - ;; will stay around until M-x list-processes. - (delete-process proc)) - ;; Restore old buffer, but don't restore old point - ;; if obuf is the cdb buffer. - (set-buffer obuf)))))) + ;; buffer killed + ;; Stop displaying an arrow in a source file. + (camldebug-remove-current-event) + (set-process-buffer proc nil)) + ((memq (process-status proc) '(signal exit)) + ;; Stop displaying an arrow in a source file. + (camldebug-remove-current-event) + ;; Fix the mode line. + (setq mode-line-process + (concat ": " + (symbol-name (process-status proc)))) + (let* ((obuf (current-buffer))) + ;; save-excursion isn't the right thing if + ;; process-buffer is current-buffer + (unwind-protect + (progn + ;; Write something in *compilation* and hack its mode line, + (set-buffer (process-buffer proc)) + ;; Force mode line redisplay soon + (set-buffer-modified-p (buffer-modified-p)) + (if (eobp) + (insert ?\n mode-name " " msg) + (save-excursion + (goto-char (point-max)) + (insert ?\n mode-name " " msg))) + ;; If buffer and mode line will show that the process + ;; is dead, we can delete it now. Otherwise it + ;; will stay around until M-x list-processes. + (delete-process proc)) + ;; Restore old buffer, but don't restore old point + ;; if obuf is the cdb buffer. + (set-buffer obuf)))))) (defun camldebug-refresh (&optional arg) @@ -620,8 +620,8 @@ Obeying it means displaying in another window the specified file and line." (if (not camldebug-last-frame) (camldebug-remove-current-event) (camldebug-display-line (car camldebug-last-frame) - (car (cdr camldebug-last-frame)) - (car (cdr (cdr camldebug-last-frame))))) + (car (cdr camldebug-last-frame)) + (car (cdr (cdr camldebug-last-frame))))) (setq camldebug-last-frame-displayed-p t)) ;; Make sure the file named TRUE-FILE is in a buffer that appears on the screen @@ -630,19 +630,19 @@ Obeying it means displaying in another window the specified file and line." (defun camldebug-display-line (true-file character kind) (let* ((pre-display-buffer-function nil) ; screw it, put it all in one screen - (pop-up-windows t) - (buffer (find-file-noselect true-file)) - (window (display-buffer buffer t)) - (pos)) + (pop-up-windows t) + (buffer (find-file-noselect true-file)) + (window (display-buffer buffer t)) + (pos)) (save-excursion (set-buffer buffer) (save-restriction - (widen) - (setq pos (+ (point-min) character)) - (camldebug-set-current-event pos (current-buffer) kind)) + (widen) + (setq pos (+ (point-min) character)) + (camldebug-set-current-event pos (current-buffer) kind)) (cond ((or (< pos (point-min)) (> pos (point-max))) - (widen) - (goto-char pos)))) + (widen) + (goto-char pos)))) (set-window-point window pos))) ;;; Events. @@ -657,12 +657,12 @@ Obeying it means displaying in another window the specified file and line." (defun camldebug-set-current-event (pos buffer before) (if window-system (if before - (progn - (move-overlay camldebug-overlay-event pos (1+ pos) buffer) - (move-overlay camldebug-overlay-under - (+ pos 1) (+ pos 3) buffer)) - (move-overlay camldebug-overlay-event (1- pos) pos buffer) - (move-overlay camldebug-overlay-under (- pos 3) (- pos 1) buffer)) + (progn + (move-overlay camldebug-overlay-event pos (1+ pos) buffer) + (move-overlay camldebug-overlay-under + (+ pos 1) (+ pos 3) buffer)) + (move-overlay camldebug-overlay-event (1- pos) pos buffer) + (move-overlay camldebug-overlay-under (- pos 3) (- pos 1) buffer)) (save-excursion (set-buffer buffer) (goto-char pos) @@ -682,25 +682,25 @@ Obeying it means displaying in another window the specified file and line." (defun camldebug-format-command (str) (let* ((insource (not (eq (current-buffer) current-camldebug-buffer))) - (frame (if insource nil camldebug-last-frame)) (result)) + (frame (if insource nil camldebug-last-frame)) (result)) (while (and str (string-match "\\([^%]*\\)%\\([mdcep]\\)" str)) (let ((key (string-to-char (substring str (match-beginning 2)))) - (cmd (substring str (match-beginning 1) (match-end 1))) - (subst)) - (setq str (substring str (match-end 2))) - (cond - ((eq key ?m) - (setq subst (camldebug-module-name - (if insource (buffer-file-name) (nth 0 frame))))) - ((eq key ?d) - (setq subst (file-name-directory - (if insource (buffer-file-name) (nth 0 frame))))) - ((eq key ?c) - (setq subst (int-to-string - (if insource (1- (point)) (nth 1 frame))))) - ((eq key ?e) - (setq subst (thing-at-point 'symbol)))) - (setq result (concat result cmd subst)))) + (cmd (substring str (match-beginning 1) (match-end 1))) + (subst)) + (setq str (substring str (match-end 2))) + (cond + ((eq key ?m) + (setq subst (camldebug-module-name + (if insource (buffer-file-name) (nth 0 frame))))) + ((eq key ?d) + (setq subst (file-name-directory + (if insource (buffer-file-name) (nth 0 frame))))) + ((eq key ?c) + (setq subst (int-to-string + (if insource (1- (point)) (nth 1 frame))))) + ((eq key ?e) + (setq subst (thing-at-point 'symbol)))) + (setq result (concat result cmd subst)))) ;; There might be text left in STR when the loop ends. (concat result str))) @@ -710,10 +710,10 @@ Obeying it means displaying in another window the specified file and line." Certain %-escapes in FMT are interpreted specially if present. These are: - %m module name of current module. - %d directory of current source file. - %c number of current character position - %e text of the caml variable surrounding point. + %m module name of current module. + %d directory of current source file. + %c number of current character position + %e text of the caml variable surrounding point. The `current' source file is the file of the current buffer (if we're in a caml buffer) or the source file current at the last break @@ -732,7 +732,7 @@ representation is simply concatenated with the COMMAND." (message "Command: %s" (camldebug-call-1 command fmt arg))) (defun camldebug-call-1 (command &optional fmt arg) - + ;; Record info on the last prompt in the buffer and its position. (save-excursion (set-buffer current-camldebug-buffer) @@ -740,14 +740,14 @@ representation is simply concatenated with the COMMAND." (let ((pt (point))) (beginning-of-line) (if (looking-at comint-prompt-regexp) - (set-marker camldebug-delete-prompt-marker (point))))) + (set-marker camldebug-delete-prompt-marker (point))))) (let ((cmd (cond - (arg (concat command " " (int-to-string arg))) - (fmt (camldebug-format-command - (concat command " " fmt))) - (command)))) + (arg (concat command " " (int-to-string arg))) + (fmt (camldebug-format-command + (concat command " " fmt))) + (command)))) (process-send-string (get-buffer-process current-camldebug-buffer) - (concat cmd "\n")) + (concat cmd "\n")) cmd)) diff --git a/emacs/inf-caml.el b/emacs/inf-caml.el index dc84cb37af..0eba00eebc 100644 --- a/emacs/inf-caml.el +++ b/emacs/inf-caml.el @@ -58,24 +58,24 @@ Input and output via buffer `*inferior-caml*'." (if (not (comint-check-proc "*inferior-caml*")) (let ((cmdlist (inferior-caml-args-to-list cmd)) (process-connection-type nil)) - (set-buffer (apply (function make-comint) - "inferior-caml" (car cmdlist) nil (cdr cmdlist))) - (inferior-caml-mode))) + (set-buffer (apply (function make-comint) + "inferior-caml" (car cmdlist) nil (cdr cmdlist))) + (inferior-caml-mode))) (setq caml-shell-active t) (inferior-caml-show-subshell)) (defun inferior-caml-args-to-list (string) (let ((where (string-match "[ \t]" string))) (cond ((null where) (list string)) - ((not (= where 0)) - (cons (substring string 0 where) - (inferior-caml-args-to-list (substring string (+ 1 where) - (length string))))) - (t (let ((pos (string-match "[^ \t]" string))) - (if (null pos) - nil - (inferior-caml-args-to-list (substring string pos - (length string))))))))) + ((not (= where 0)) + (cons (substring string 0 where) + (inferior-caml-args-to-list (substring string (+ 1 where) + (length string))))) + (t (let ((pos (string-match "[^ \t]" string))) + (if (null pos) + nil + (inferior-caml-args-to-list (substring string pos + (length string))))))))) (defun inferior-caml-show-subshell () (interactive) @@ -103,7 +103,7 @@ Input and output via buffer `*inferior-caml*'." "[ \t]*Characters[ \t]+\\([0-9]+\\)-[0-9]+:$")) (string-to-int (match-string 1)))))) (goto-char loc))) - + ;;; inf-caml.el ends here diff --git a/maccaml/.cvsignore b/maccaml/.cvsignore index 1450737b70..9ff0bb3a39 100644 --- a/maccaml/.cvsignore +++ b/maccaml/.cvsignore @@ -1,6 +1,8 @@ stdlib *.c.x +*.cp.x *.xcoff +*.dbg primitives prims.c Objective*Caml diff --git a/maccaml/Makefile.Mac b/maccaml/Makefile.Mac index ee2c8742bc..c78c31d0d4 100644 --- a/maccaml/Makefile.Mac +++ b/maccaml/Makefile.Mac @@ -12,56 +12,106 @@ # $Id$ +#cdbgflag = -sym on -d DEBUG +#ldbgflag = -sym on + VERSIONSTR = ¶ "¶"{OCAMLMAJOR}.{OCAMLMINOR}/Mac{MAJOR}.{MINOR}.{BUGFIX}{STAGE}{REV}¶"" +COPYRIGHTSTR = "¶"Copyright 1991-2000 INRIA¶"" -XIncludes = -i ::byterun: ¶ - -i ":WASTE:WASTE 1.3 Distribution:WASTE C/C++ Headers:" +XIncludes = -i ::byterun:,::config: ¶ + -i ":WASTE:WASTE 1.3 Distribution:WASTE C/C++ Headers:" ¶ + -includes unix -i "{GUSI}include:" C = sc -COptions = {XIncludes} -model far #-d DEBUG=1 +cplus = scpp +COptions = {XIncludes} -model far -mbg full {cdbgflag} LinkOptions = -model far -compact -pad 0 -state nouse -br 68k -msg nodup -SysLibs = "{libraries}IntEnv.far.o" "{libraries}MacRuntime.o" ¶ - "{clibraries}StdCLib.far.o" "{libraries}MathLib.far.o" ¶ - "{libraries}Interface.o" -CamlrunLibs = ::byterun:libcamlrun.o ::otherlibs:num:libnums.o +CamlrunLibs = ::otherlibs:num:libnums.o ¶ + ::otherlibs:bigarray:libbigarray.o ¶ + ::otherlibs:systhreads:libthreads.o ¶ + ::otherlibs:macosunix:libcamlrun-unix.o WELibs = ":WASTE:WASTE 1.3 Distribution:WASTELib.o" -Libs = {camlrunlibs} {welibs} {syslibs} - -PPCC = mrc -PPCCOptions = {XIncludes} -proto strict -sym on #-d DEBUG=1 -PPCLinkOptions = -d -sym on -PPCSysLibs = "{sharedlibraries}MathLib" "{ppclibraries}PPCCRuntime.o" ¶ - "{sharedlibraries}StdCLib" ¶ - "{ppclibraries}StdCRuntime.o" "{sharedlibraries}InterfaceLib" ¶ - "{sharedlibraries}DragLib" -PPCCamlrunLibs = ::byterun:libcamlrun.x ::otherlibs:num:libnums.x +gusilibs = "{gusi}lib:gusi_mpw.sc.lib" ¶ + "{gusi}lib:gusi_stdio.sc.lib" ¶ + "{gusi}lib:gusi_core.sc.lib" +SysLibs = "{libraries}sio.far.o" ¶ + "{CLibraries}CPlusLib.o" ¶ + "{CLibraries}StdCLib.far.o" ¶ + "{Libraries}MacRuntime.o" ¶ + "{Libraries}Interface.o" ¶ + "{Libraries}IntEnv.far.o" ¶ + "{Libraries}MathLib.far.o" ¶ + "{Libraries}ToolLibs.o" ¶ + "{CLibraries}IOStreams.far.o" ¶ + "{Libraries}OpenTransport.o" ¶ + "{Libraries}OpenTransportApp.o" ¶ + "{Libraries}OpenTptInet.o" +Libs = {camlrunlibs} {welibs} {gusilibs} {syslibs} + +PPCC = mrc -proto strict +PPCCplus = mrcpp +PPCCOptions = {XIncludes} {cdbgflag} +PPCLinkOptions = -d {ldbgflag} +PPCCamlrunLibs = ::otherlibs:num:libnums.x ¶ + ::otherlibs:bigarray:libbigarray.x ¶ + ::otherlibs:systhreads:libthreads.x ¶ + ::otherlibs:macosunix:libcamlrun-unix.x PPCWELibs = ":WASTE:WASTE 1.3 Distribution:WASTELib.x" -PPCLibs = {ppccamlrunlibs} {ppcwelibs} {ppcsyslibs} +ppcgusilibs = "{gusi}lib:gusi_mpw.mrc.lib" ¶ + "{gusi}lib:gusi_sfio.mrc.lib" ¶ + "{gusi}lib:gusi_core.mrc.lib" ¶ + "{sfio}lib:sfio.mrc.lib" +PPCSysLibs = "{ppclibraries}ppcsio.o" ¶ + "{PPCLibraries}MrCPlusLib.o" ¶ + "{PPCLibraries}PPCStdCLib.o" ¶ + "{PPCLibraries}StdCRuntime.o" ¶ + "{PPCLibraries}PPCCRuntime.o" ¶ + "{PPCLibraries}PPCToolLibs.o" ¶ + "{SharedLibraries}InterfaceLib" ¶ + "{SharedLibraries}ThreadsLib" ¶ + "{PPCLibraries}MrCIOStreams.o" ¶ + "{SharedLibraries}StdCLib" ¶ + "{SharedLibraries}OpenTransportLib" ¶ + "{SharedLibraries}OpenTptInternetLib" ¶ + "{PPCLibraries}OpenTransportAppPPC.o" ¶ + "{PPCLibraries}OpenTptInetPPC.o" ¶ + "{sharedlibraries}MathLib" ¶ + "{sharedlibraries}DragLib" +PPCLibs = {ppccamlrunlibs} {ppcwelibs} {ppcgusilibs} {ppcsyslibs} + +camllibs = ::otherlibs:graph:graphics.cma ¶ + ::otherlibs:num:nums.cma ¶ + ::otherlibs:macosunix:unix.cma ¶ + ::otherlibs:bigarray:bigarray.cma ¶ + ::otherlibs:systhreads:threads.cma + +primfiles = ::byterun:primitives ¶ + prim_bigarray prim_graph prim_num prim_unix prim_systhreads RezDefs = -d SystemSevenOrLater=1 -d MAJORVNUM={MAJOR} ¶ -d MINORVNUM=0x{MINOR}{BUGFIX} -d STAGE={STAGE} -d DEVVNUM={REV} ¶ - -d VERSIONSTR={VERSIONSTR} + -d VERSIONSTR={VERSIONSTR} -d COPYRIGHTSTR={COPYRIGHTSTR} OBJS = aboutbox.c.o appleevents.c.o clipboard.c.o ¶ drag.c.o errors.c.o ¶ events.c.o files.c.o glue.c.o ¶ graph.c.o lcontrols.c.o lib.c.o main.c.o memory.c.o ¶ menus.c.o misc.c.o modalfilter.c.o prefs.c.o prims.c.o ¶ - print.c.o scroll.c.o windows.c.o + print.c.o scroll.c.o windows.c.o gusistuff.cp.o 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 memory.c.x ¶ menus.c.x misc.c.x modalfilter.c.x prefs.c.x prims.c.x ¶ - print.c.x scroll.c.x windows.c.x + print.c.x scroll.c.x windows.c.x gusistuff.cp.x all Ä appli set status 0 -primitives Ä ::byterun:primitives graphprims numprims - catenate ::byterun:primitives graphprims numprims >primitives +primitives Ä {primfiles} + catenate {primfiles} >primitives prims.c Ä primitives echo '#include "mlvalues.h"' > prims.c @@ -74,24 +124,31 @@ prims.c Ä primitives streamedit -e '1,$ change " ¶"" . "¶","' primitives >> prims.c echo '0 };' >> prims.c -OCaml.68k Ä {OBJS} - ilink -o OCaml.68k {linkoptions} {OBJS} {libs} +gusistuff.cp.x Ä gusistuff.cp + {ppccplus} {ppccoptions} -bool on -includes unix -i "{gusi}include" ¶ + gusistuff.cp -o gusistuff.cp.x -w 2 + +gusistuff.cp.o Ä gusistuff.cp + {cplus} {coptions} -bool on -includes unix -i "{gusi}include" ¶ + gusistuff.cp -w 2 OCaml.PPC Ä {PPCOBJS} ppclink -o OCaml.PPC {ppclinkoptions} {PPCOBJS} {ppclibs} - rename -y OCaml.PPC.xcoff "Objective Caml.xcoff" + rename -y OCaml.PPC.xcoff "Objective Caml.xcoff" || set status 0 + +OCaml.68k Ä {OBJS} + ilink -o OCaml.68k {linkoptions} {OBJS} {libs} OCaml.bytecode Ä primitives ::toplevellib.cma ::toplevel:topmain.cmo ¶ - ::otherlibs:graph:graphics.cma ::otherlibs:num:nums.cma + {camllibs} ::boot:ocamlrun ::boot:ocamlc -I ::stdlib: -linkall -use-prims primitives ¶ - ::toplevellib.cma ::otherlibs:graph:graphics.cma ¶ - ::otherlibs:num:nums.cma ::toplevel:topmain.cmo ¶ - -o OCaml.bytecode + ::toplevellib.cma {camllibs} ::toplevel:topmain.cmo ¶ + -noautolink -o OCaml.bytecode dummy_fragment Ä dummy_fragment.c.x ppclink -xm l -o dummy_fragment {ppclinkoptions} dummy_fragment.c.x -appli ÄÄ ocaml.r OCaml.bytecode OCaml.PPC OCaml.68k dummy_fragment +appli ÄÄ OCaml.PPC OCaml.68k OCaml.bytecode ocaml.r dummy_fragment duplicate -y OCaml.68k "Objective Caml" rez -a -o "Objective Caml" {RezDefs} ocaml.r mergefragment -a OCaml.PPC "Objective Caml" @@ -100,17 +157,20 @@ appli ÄÄ ocaml.r OCaml.bytecode OCaml.PPC OCaml.68k dummy_fragment setfile -t APPL -c Caml -a iB "Objective Caml" install Ä - duplicate -y "Objective Caml" "{APPLIDIR}" + duplicate -y "Objective Caml" `exists "objective caml.xcoff"` "{APPLIDIR}" + duplicate -y ::test:Moretest:graph_example.ml "{APPLIDIR}" partialclean Ä delete -i OCaml.bytecode "Objective Caml" clean Ä - delete -i {OBJS} {PPCOBJS} OCaml.68k OCaml.PPC OCaml.bytecode ¶ - "Objective Caml" primitives prims.c null - delete -i dummy_fragment dummy_fragment.c.x dummy_fragment.xcoff - delete -i "Objective Caml.xcoff" "Objective Caml.dbg" + delete -i -y {OBJS} {PPCOBJS} OCaml.68k OCaml.PPC OCaml.bytecode ¶ + "Objective Caml" primitives prims.c null :config ¶ + dummy_fragment dummy_fragment.c.x dummy_fragment.xcoff ¶ + "Objective Caml.xcoff" "Objective Caml.dbg" depend Ä prims.c - makedepend Å.c > Makefile.Mac.depend · dev:null - makedepend -objext .x Å.c >> Makefile.Mac.depend · dev:null + begin + makedepend -w -objext .x Å.c + makedepend -w Å.c + end | streamedit -e "/¶t/ replace // ' ' -c °" > Makefile.Mac.depend diff --git a/maccaml/Makefile.Mac.depend b/maccaml/Makefile.Mac.depend index e69de29bb2..61f36b8d54 100644 --- a/maccaml/Makefile.Mac.depend +++ b/maccaml/Makefile.Mac.depend @@ -0,0 +1,3344 @@ +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:51:03 on 3 avr 2000 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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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}"OSUtils.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 ¶ + :constants.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:memory.c.x Ä ¶ + :memory.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:misc.c.x Ä ¶ + :misc.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:51:12 on 3 avr 2000 by MakeDepend + +:aboutbox.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:appleevents.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:clipboard.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:drag.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:dummy_fragment.c.o Ä ¶ + :dummy_fragment.c + +:errors.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:events.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:files.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:glue.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:graph.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:lcontrols.c.o Ä ¶ + :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}"OSUtils.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 ¶ + :constants.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:lib.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:main.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:memory.c.o Ä ¶ + :memory.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:menus.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:misc.c.o Ä ¶ + :misc.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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:modalfilter.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:prefs.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:prims.c.o Ä ¶ + :prims.c + +:print.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:scroll.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + +:windows.c.o Ä ¶ + :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 ¶ + :constants.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"SeekDefs.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"Appearance.h ¶ + "{CIncludes}"Lists.h ¶ + "{CIncludes}"MacHelp.h ¶ + "{CIncludes}"TextEdit.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"NameRegistry.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"DriverFamilyMatching.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"Multiprocessing.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"IntlResources.h ¶ + "{CIncludes}"Movies.h ¶ + "{CIncludes}"NumberFormatting.h ¶ + "{CIncludes}"StringCompare.h ¶ + "{CIncludes}"DateTimeUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"DriverServices.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"ImageCompression.h ¶ + "{CIncludes}"MachineExceptions.h ¶ + "{CIncludes}"DriverSynchronization.h + diff --git a/maccaml/WASTE/Makefile b/maccaml/WASTE/Makefile index d8b3003c72..1b927fd88d 100644 --- a/maccaml/WASTE/Makefile +++ b/maccaml/WASTE/Makefile @@ -1,7 +1,20 @@ -# Makefile for the WASTE library (version 1.3) +######################################################################### +# # +# 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: # @@ -47,15 +60,18 @@ WEDefs = -d WASTE_DEBUG=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 -sym on +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 -sym on +CFMCOptions = {Defs} {Incl} -model cfmflat -w 17 -proto strict {debugflag} #CFMC = {c} #CFMCOptions = {coptions} @@ -171,7 +187,7 @@ WASTELib.CFMo Ä {WECFMObj} lib -o WASTELib.CFMo {WECFMObj} WASTELib.x Ä {WEPPCObj} - ppclink -xm library -o WASTELib.x {WEPPCObj} -sym on + ppclink {debugflag} -xm library -o WASTELib.x {WEPPCObj} clean ÄÄ delete -i {WEObj} {WECFMObj} {WEPPCObj} {WETarg} diff --git a/maccaml/WASTE/README b/maccaml/WASTE/README index e7c38815cd..fd8e5e1e7f 100644 --- a/maccaml/WASTE/README +++ b/maccaml/WASTE/README @@ -1,5 +1,5 @@ WASTE 1.3 is needed to build the O'Caml standalone application. -Get WASTE 1.3 from < XXX some URL XXX > -and unpack it in this directory (maccaml:WASTE:) as +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/constants.h b/maccaml/constants.h index 5bd26ac24b..23c25a95d8 100644 --- a/maccaml/constants.h +++ b/maccaml/constants.h @@ -78,7 +78,7 @@ #define kAlertNeedSys7 1001 #define kAlertBug 1002 #define kAlertGeneric 1003 -#define kAlertNonzeroExit 1004 +#define kAlertExit 1004 #define kDialogPrefs 1005 #define kAlertNotYet 1006 #define kAlertSaveAsk 1007 diff --git a/maccaml/errors.c b/maccaml/errors.c index 443eb47575..7545c0acda 100644 --- a/maccaml/errors.c +++ b/maccaml/errors.c @@ -27,7 +27,8 @@ void assert_failure (char *condition, char *file, int line) InitCursor (); modalkeys = kKeysOK; StopAlert (kAlertBug, myModalFilterUPP); - ExitApplication (); + quit_requested = 1; + exit (0); } void XXX (void) diff --git a/maccaml/events.c b/maccaml/events.c index 796270916a..d609957340 100644 --- a/maccaml/events.c +++ b/maccaml/events.c @@ -88,18 +88,18 @@ static void DoKeyDown (EventRecord *evt) chr = -1; } } - if (isCmdKey && chr == '.' && FrontWindow () == winToplevel){ - if (evt->what != autoKey){ - /* If the signal handler calls longjmp, then it will jump into the - bytecode interpreter and Caml will be working. If it does not, - then Caml must have been working already because we are not in - a blocking section. In all cases, raising a signal puts Caml - to work. - */ - Caml_working (1); - raise (SIGINT); - } - }else if (isCmdKey && chr >= 0x20){ + /* If we were called by GUSI via RotateCursor or the Spin hook, + GUSI will raise SIGINT if command-period was pressed, so we + do it only if in_gusi is false. + */ + if (isCmdKey && chr == '.' + && FrontWindow () == winToplevel + && evt->what != autoKey + && !in_gusi){ + intr_requested = 1; + raise (SIGINT); + } + if (isCmdKey && chr >= 0x20){ UpdateMenus (); DoMenuChoice (MenuKey (chr), evt->modifiers); }else{ @@ -294,6 +294,8 @@ void GetAndProcessEvents (WaitEventOption wait, short oldx, short oldy) UInt32 cursleep = (wait == noWait) ? 0 : evtSleep; RgnHandle currgn; + if (!in_gusi && quit_requested && !exit_called) exit (0); + if (wait == waitMove){ currgn = pointRegion; SetRectRgn (pointRegion, oldx, oldy, oldx+1, oldy+1); @@ -303,12 +305,10 @@ void GetAndProcessEvents (WaitEventOption wait, short oldx, short oldy) WaitNextEvent (everyEvent, &evt, cursleep, currgn); ProcessEvent (&evt, &dummysleep, &dummyregion); - if (quit_requested) ExitApplication (); while (evt.what != nullEvent){ WaitNextEvent (everyEvent, &evt, 0, NULL); ProcessEvent (&evt, &dummysleep, &dummyregion); - if (quit_requested) ExitApplication (); } } diff --git a/maccaml/glue.c b/maccaml/glue.c index 5801d9d0e5..7dcfe672d9 100644 --- a/maccaml/glue.c +++ b/maccaml/glue.c @@ -16,6 +16,7 @@ #include <fcntl.h> #include <signal.h> #include <stdlib.h> +#include <unistd.h> #include "alloc.h" #include "mlvalues.h" @@ -25,9 +26,19 @@ #include "main.h" +/* intr_requested is true if the user pressed command-period + during a read on stdin. +*/ +int intr_requested = 0; +/* quit_requested becomes true when the user chooses File:Quit */ +int quit_requested = 0; +/* exit_called is true after exit is called. */ +int exit_called = 0; +/* in_gusi is true if we know we are not in a GUSI call-back. */ +int in_gusi = 1; + /* These are defined by the ocamlrun library. */ void caml_main(char **argv); -char *getcwd (char *buf, long size); Handle macos_getfullpathname (short vrefnum, long dirid); static int erroring = 0; @@ -54,12 +65,64 @@ void Caml_working (int newstate) 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; +} + +static pascal void interp_yield (long counter) +{ + in_gusi = 0; + RotateCursor (counter); + in_gusi = 1; + sched_yield (); +} + +pascal void RotateCursor (long counter) +{ + if (acurh == NULL) InitCursorCtl (NULL); + (*acurh)->current += (*acurh)->nframes + (counter >= 0 ? 1 : -1); + (*acurh)->current %= (*acurh)->nframes; + GetAndProcessEvents (noWait, 0, 0); +} + +void DisplayRotatingCursor (void) +{ + SetCursor (*((*acurh)->frames[(*acurh)->current].h)); +} + /* 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) { @@ -129,11 +192,11 @@ static OSErr expand_escapes (Handle s) the 'Line'(kCommandLineTemplate) resource and the environment variables according to the 'Line'(kEnvironmentTemplate). - Each of these resources is a sequence of strings separated by null + 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 must end with a null byte. + Each resource ends with a null byte. */ OSErr launch_caml_main (void) @@ -179,15 +242,15 @@ OSErr launch_caml_main (void) if (envPtr == NULL){ err = MemError (); goto failed; } memcpy (envPtr, *template, len); - rotatecursor_options (&something_to_do, 50); + rotatecursor_options (&something_to_do, 0, &interp_yield); err = WinOpenToplevel (); - if (err != noErr) ExitApplication (); + if (err != noErr) goto failed; Assert (!caml_at_work); Caml_working (1); caml_main (argv); - return noErr; /* Not reached */ + return noErr; failed: if (template != NULL) ReleaseResource (template); @@ -196,226 +259,158 @@ OSErr launch_caml_main (void) return err; } +/* SIO stubs */ -/*** - ui_* stubs for I/O -*/ - -static void (**atexit_list) (void) = NULL; -static long atexit_size = 0; -static long atexit_len = 0; - -void ui_exit (int return_code) +static pascal void caml_sio_init (int *mainArgc, char ***mainArgv) { - int i; - - for (i = 0; i < atexit_len; i++) (*(atexit_list [i])) (); - - Assert (caml_at_work); - Caml_working (0); - - if (return_code != 0){ - Str255 errorstr; - - NumToString ((long) return_code, errorstr); - ParamText (errorstr, NULL, NULL, NULL); - modalkeys = kKeysOK; - InitCursor (); - NoteAlert (kAlertNonzeroExit, myModalFilterUPP); - } - while (1) GetAndProcessEvents (waitEvent, 0, 0); +#pragma unused (mainArgc, mainArgv) } +pascal void (*__sioInit) (int *, char ***) = &caml_sio_init; -int atexit (void (*f) (void)) +static pascal void caml_sio_read (char *buffer, SInt32 nCharsDesired, + SInt32 *nCharsUsed, SInt16 *eofFlag) { - if (atexit_list == NULL){ - atexit_list = malloc (5 * sizeof (atexit_list [0])); - if (atexit_list == NULL) goto failed; - atexit_size = 5; - }else if (atexit_len >= atexit_size){ - void *p = realloc (atexit_list, (atexit_size+10) * sizeof (atexit_list[0])); - if (p == NULL) goto failed; - atexit_list = p; - atexit_size += 10; +#pragma unused (eofFlag) + long len, i; + char **htext; + WEReference we; + long selstart, selend; + Boolean active; + short readonly, autoscroll; + int atend; + + if (winToplevel == NULL){ + *nCharsUsed = 0; + *eofFlag = 1; + return; } - Assert (atexit_size > atexit_len); - atexit_list [atexit_len++] = f; - return 0; - - failed: - /* errno = ENOMEM; FIXME: does malloc set errno ? */ - return -1; -} -int ui_read (int file_desc, char *buf, unsigned int length) -{ - if (file_desc == 0){ /* Read from the toplevel window. */ - long len, i; - char **htext; - WEReference we = WinGetWE (winToplevel); - long selstart, selend; - Boolean active; - short readonly, autoscroll; - int atend; - - Assert (we != NULL); - htext = (char **) WEGetText (we); + we = WinGetWE (winToplevel); + Assert (we != NULL); + htext = (char **) WEGetText (we); - Assert (caml_at_work); - Caml_working (0); + Assert (caml_at_work); + Caml_working (0); - while (1){ - char *p; + 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); + len = WEGetTextLength (we); + p = *htext; + for (i = wintopfrontier; i < len; i++){ + if (p[i] == '\n') goto gotit; } + intr_requested = 0; + in_gusi = 0; + GetAndProcessEvents (waitEvent, 0, 0); + in_gusi = 1; + if (intr_requested){ + *nCharsUsed = 0; /* Hack: behaviour not specified by SIO. */ + Caml_working (1); + return; + } + } - gotit: - - Assert (!caml_at_work); - Caml_working (1); + gotit: - len = i+1 - wintopfrontier; - if (len > length) len = length; - memcpy (buf, (*htext)+wintopfrontier, len); + Assert (!caml_at_work); + Caml_working (1); - 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. */ - 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); - return len; - }else{ - return read (file_desc, buf, length); - } + len = i+1 - wintopfrontier; + if (len > nCharsDesired) len = nCharsDesired; + memcpy (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. */ + 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); + *nCharsUsed = len; + return; } +pascal void (*__sioRead) (char *, SInt32, SInt32 *, SInt16 *) = &caml_sio_read; -int ui_write (int file_desc, char *buf, unsigned int length) +static pascal void caml_sio_write (SInt16 filenum, char *buffer, SInt32 nChars) { - if (file_desc == 1 || file_desc == 2){ /* Send to the toplevel window. */ - long selstart, selend; - WEReference we = WinGetWE (winToplevel); - OSErr err; - short readonly, autoscroll; - int atend; +#pragma unused (filenum) + long selstart, selend; + WEReference we = WinGetWE (winToplevel); + OSErr err; + short readonly, autoscroll; + int atend; - if (erroring){ /* overwrite mode to display errors; see terminfo_* */ - error_curpos += length; Assert (error_curpos <= wintopfrontier); - return length; - } + Assert (nChars >= 0); + Assert (we != NULL); + + if (erroring){ /* overwrite mode to display errors; see terminfo_* */ + error_curpos += nChars; Assert (error_curpos <= wintopfrontier); + return; + } - Assert (we != NULL); - - 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 (buf, (SInt32) length, NULL, NULL, we); - if (err != noErr){ - WESetSelection (selstart, selend, we); - /* XXX should set errno */ - return -1; - } - if (selstart >= wintopfrontier){ - selstart += length; - selend += length; - }else if (selend > wintopfrontier){ - selend += length; - } + 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); - if (autoscroll) WEFeatureFlag (weFAutoScroll, weBitSet, we); - AdjustScrollBars (winToplevel); - if (atend) ScrollToEnd (winToplevel); - - WinAdvanceTopFrontier (length); - return length; - }else{ - return write (file_desc, buf, length); + return; /* FIXME raise an exception ? */ } -} - -void ui_print_stderr (char *format, void *arg) -{ - char buf [1000]; /* XXX fixed size buffer :-( */ + 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); - sprintf (buf, format, arg); Assert (strlen (buf) < 1000); - ui_write (2, buf, strlen (buf)); + WinAdvanceTopFrontier (nChars); + return; } +pascal void (*__sioWrite) (SInt16, char *, SInt32) = &caml_sio_write; - -/*** - 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) +static pascal void caml_sio_exit (void) { -#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); - } + exit_called = 1; + if (caml_at_work) Caml_working (0); + if (!quit_requested){ + modalkeys = kKeysOK; + InitCursor (); + NoteAlert (kAlertExit, myModalFilterUPP); } - (*acurh)->current = 0; -} - -/* In O'Caml, counter is always a multiple of 32. */ -pascal void RotateCursor (long counter) -{ - if (acurh == NULL) InitCursorCtl (NULL); - (*acurh)->current += (*acurh)->nframes + (counter >= 0 ? 1 : -1); - (*acurh)->current %= (*acurh)->nframes; - GetAndProcessEvents (noWait, 0, 0); + while (!quit_requested) GetAndProcessEvents (waitEvent, 0, 0); + rotatecursor_final (); + Finalise (); } +pascal void (*__sioExit) (void) = &caml_sio_exit; -void DisplayRotatingCursor (void) -{ - SetCursor (*((*acurh)->frames[(*acurh)->current].h)); -} /*** "getenv" in the standalone application @@ -472,11 +467,12 @@ value terminfo_backup (value lines) 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'); - do{ --j; }while (p[j] != '\n'); + Assert (p[j] == '\n' || j == -1); + do{ --j; }while (j >= 0 && p[j] != '\n'); } - Assert (p[j] == '\n'); + Assert (p[j] == '\n' || j == -1); error_curpos = j + 1; erroring = 1; error_anchor = -1; diff --git a/maccaml/graph.c b/maccaml/graph.c index d610165943..a23a7bf706 100644 --- a/maccaml/graph.c +++ b/maccaml/graph.c @@ -72,6 +72,7 @@ void GraphNewSizePos (void) GraphUpdateGW (); } +/* The current port must be winGraphics when this function is called. */ void GraphUpdate (void) { Rect r, src, dst; @@ -105,8 +106,11 @@ void GraphScroll (long dx, long dy) 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); @@ -119,6 +123,7 @@ void GraphScroll (long dx, long dy) y0 += dy; GetPen (&p); MoveTo (p.h + dx, p.v + dy); + SetPort (port); } /* keyboard event queue */ @@ -486,7 +491,12 @@ value gr_sigio_handler (value unit) /* Not used on MacOS */ value gr_synchronize (value unit) { #pragma unused (unit) + GrafPtr port; + + GetPort (&port); + SetPort (winGraphics); GraphUpdate (); + SetPort (port); return Val_unit; } diff --git a/maccaml/gusistuff.cp b/maccaml/gusistuff.cp new file mode 100644 index 0000000000..e2330f26f3 --- /dev/null +++ b/maccaml/gusistuff.cp @@ -0,0 +1,115 @@ +/***********************************************************************/ +/* */ +/* 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. */ +/* */ +/***********************************************************************/ +/* $Id$ */ + +#define GUSI_SOURCE +#include <GUSIBasics.h> + +extern "C" { +#include "main.h" +} + +static void spin_hook_for_gusi (bool wait) +{ + RotateCursor (32); + if (wait) GetAndProcessEvents (waitEvent, 0, 0); +} + +extern "C" void InitialiseGUSI (void) +{ + GUSISetHook (GUSI_SpinHook, (GUSIHook) spin_hook_for_gusi); +} + +/**************** B E G I N GUSI CONFIGURATION **************************** + * + * GUSI Configuration section generated by GUSI Configurator + * last modified: Thu Mar 30 18:08:06 2000 + * + * This section will be overwritten by the next run of Configurator. + */ + +#define GUSI_SOURCE +#include <GUSIConfig.h> +#include <sys/cdefs.h> + +/* Declarations of Socket Factories */ + +__BEGIN_DECLS +void GUSIwithInetSockets(); +void GUSIwithLocalSockets(); +void GUSIwithMTInetSockets(); +void GUSIwithMTTcpSockets(); +void GUSIwithMTUdpSockets(); +void GUSIwithOTInetSockets(); +void GUSIwithOTTcpSockets(); +void GUSIwithOTUdpSockets(); +void GUSIwithPPCSockets(); +void GUSISetupFactories(); +__END_DECLS + +/* Configure Socket Factories */ + +void GUSISetupFactories() +{ +#ifdef GUSISetupFactories_BeginHook + GUSISetupFactories_BeginHook +#endif + GUSIwithInetSockets(); + GUSIwithLocalSockets(); + GUSIwithPPCSockets(); +#ifdef GUSISetupFactories_EndHook + GUSISetupFactories_EndHook +#endif +} + +/* Declarations of File Devices */ + +__BEGIN_DECLS +void GUSIwithDConSockets(); +void GUSIwithNullSockets(); +void GUSISetupDevices(); +__END_DECLS + +/* Configure File Devices */ + +void GUSISetupDevices() +{ +#ifdef GUSISetupDevices_BeginHook + GUSISetupDevices_BeginHook +#endif + GUSIwithNullSockets (); +#ifdef GUSISetupDevices_EndHook + GUSISetupDevices_EndHook +#endif +} + +#ifndef __cplusplus +#error GUSISetupConfig() needs to be written in C++ +#endif + +GUSIConfiguration::FileSuffix sSuffices[] = { + "", '????', '????' +}; + +extern "C" void GUSISetupConfig() +{ + GUSIConfiguration * config = + GUSIConfiguration::CreateInstance(GUSIConfiguration::kNoResource); + + config->ConfigureSuffices( + sizeof(sSuffices)/sizeof(GUSIConfiguration::FileSuffix)-1, sSuffices); + config->ConfigureAutoInitGraf(false); + config->ConfigureAutoSpin(false); + config->ConfigureSigPipe(true); +} + +/**************** E N D GUSI CONFIGURATION *************************/ diff --git a/maccaml/main.c b/maccaml/main.c index 475c1eecb1..cef02288db 100644 --- a/maccaml/main.c +++ b/maccaml/main.c @@ -17,7 +17,6 @@ QDGlobals qd; int gHasDragAndDrop = 0; int gHasPowerManager = 0; -int quit_requested = 0; int launch_toplevel_requested = 0; static OSErr Initialise (void) @@ -78,6 +77,8 @@ static OSErr Initialise (void) if (err != noErr) goto problem; } + InitialiseGUSI (); + err = InitialiseEvents (); if (err != noErr) goto problem; @@ -100,32 +101,24 @@ static OSErr Initialise (void) problem: return err; } -static void Finalise (void) +void Finalise (void) { if (gHasDragAndDrop) RemoveDragHandlers (); WritePrefs (); } -void main (void) +int main (void) { OSErr err; err = Initialise (); - if (err != noErr) ExitApplication (); - - while (1){ - GetAndProcessEvents (waitEvent, 0, 0); - if (launch_toplevel_requested){ - err = launch_caml_main (); /* does not return */ - if (err != noErr) ErrorAlertGeneric (err); - } + if (err != noErr){ + quit_requested = 1; + exit (0); } - ExitApplication (); -} - -void ExitApplication (void) -{ - Caml_working (0); - Finalise (); - ExitToShell (); + while (!launch_toplevel_requested) GetAndProcessEvents (waitEvent, 0, 0); + err = launch_caml_main (); + if (err != noErr) ErrorAlertGeneric (err); + exit (0); + return 0; } diff --git a/maccaml/main.h b/maccaml/main.h index dc29e1ee7c..29d98b5096 100644 --- a/maccaml/main.h +++ b/maccaml/main.h @@ -13,8 +13,10 @@ /* $Id$ */ #include <limits.h> +#include <sched.h> #include <signal.h> #include <stdio.h> +#include <stdlib.h> #include <string.h> #include <AERegistry.h> @@ -146,10 +148,14 @@ void FileRevert (WindowPtr w); OSErr FileDoSave (WindowPtr w, int saveasflag); /* glue.c */ +extern int intr_requested; +extern int quit_requested; +extern int exit_called; +extern int in_gusi; extern int caml_at_work; void Caml_working (int newstate); -void GlueInterrupt (void); OSErr launch_caml_main (void); +pascal void RotateCursor (long); void DisplayRotatingCursor (void); /* graph.c */ @@ -158,6 +164,9 @@ 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 ); @@ -172,9 +181,8 @@ void LCSynch( ControlRef ); /* main.c */ extern int gHasDragAndDrop; extern int gHasPowerManager; -extern int quit_requested; extern int launch_toplevel_requested; -void ExitApplication (void); +void Finalise (void); /* memory.c */ OSErr AllocHandle (Size size, Handle *result); diff --git a/maccaml/ocaml.r b/maccaml/ocaml.r index 89cbf5d6c5..a879ed82ba 100644 --- a/maccaml/ocaml.r +++ b/maccaml/ocaml.r @@ -25,7 +25,7 @@ resource 'vers' (1) { 0, VERSIONSTR, "Objective Caml version " VERSIONSTR "\n" - "Copyright 1991-1999 INRIA" + COPYRIGHTSTR #undef d #undef a #undef b @@ -118,7 +118,7 @@ resource 'DITL' (kAlertBug) { {10, 70, 80, 368}, StaticText {disabled, "You have discovered a bug in Objective Caml. Please" - " report the following information to <caml-light@inria.fr>." + " report the following information to <caml-bugs@inria.fr>." }, {80, 20, 145, 368}, @@ -198,8 +198,8 @@ resource 'DITL' (kAlertNeed32BitQD) { } }; -resource 'ALRT' (kAlertNonZeroExit) { - {60, 81, 210, 431}, kAlertNonZeroExit, +resource 'ALRT' (kAlertExit) { + {60, 81, 210, 431}, kAlertExit, { OK, visible, silent, OK, visible, silent, @@ -209,14 +209,14 @@ resource 'ALRT' (kAlertNonZeroExit) { alertPositionParentWindowScreen }; -resource 'DITL' (kAlertNonZeroExit) { +resource 'DITL' (kAlertExit) { { {110, 270, 130, 328}, Button {enabled, "OK"}, {10, 70, 95, 328}, StaticText { disabled, - "The O'Caml toplevel loop exited with error code ^0.\n\n" + "The O'Caml toplevel loop has terminated.\n\n" "Any further input in the toplevel window will be ignored." }, } @@ -302,7 +302,7 @@ resource 'DITL' (kAlertSaveAsk) { }; resource 'DLOG' (kDialogAbout) { - {70, 60, 260, 452}, + {70, 60, 280, 470}, noGrowDocProc, visible, goAway, @@ -315,23 +315,24 @@ resource 'DLOG' (kDialogAbout) { resource 'DITL' (kDialogAbout) { { {10, 20, 42, 52}, Icon {disabled, kJoeCamlIcon}, - {10, 72, 180, 382}, UserItem { disabled }, + {10, 72, 200, 400}, UserItem { disabled }, } }; data 'TEXT' (kAboutText, purgeable) { "Objective Caml version " VERSIONSTR "\n" - "Copyright 1991-1999 INRIA\n" + COPYRIGHTSTR "\n" "\n" - "Xavier Leroy, Jer™me Vouillon, Damien Doligez, et al.\n" + "Xavier Leroy, Jer™me Vouillon, Jacques Garrigue," + " Damien Doligez, et al.\n" "\n" + "O'Caml for MacOS uses MPW libraries, the WASTE text engine," + " GUSI, and SFIO.\n" "\n" - "O'Caml's interface to Mac OS is compiled with Apple's MPW" - " environment and uses the WASTE text engine.\n" - "\n" - "© 1983-1998 by Apple Computer, Inc., all rights reserved\n" - "\n" + "MPW © 1983-1999 by Apple Computer, Inc., all rights reserved\n" "WASTE text engine © 1993-1998 Marco Piovanelli\n" + "GUSI Copyright (C) 1992-1999 Matthias Neeracher\n" + "SFIO Copyright (c) 1991, 1996 by AT&T Labs - Research.\n" }; resource 'MBAR' (kMenuBar) { diff --git a/maccaml/prefs.c b/maccaml/prefs.c index b1c937188a..ca94bc55c4 100644 --- a/maccaml/prefs.c +++ b/maccaml/prefs.c @@ -37,9 +37,9 @@ static void InitPrefs (void) defpref.text = defpref.unread = defpref.input = defpref.output = defpref.errors = defstyle; - defpref.unread.tsColor.green = 42000; - defpref.output.tsColor.blue = 65535; - defpref.errors.tsColor.red = 65535; + defpref.unread.tsColor.green = 35000; + defpref.input.tsColor.blue = 65535; + defpref.errors.tsColor.red = 50000; defpref.errors.tsFace = underline; } diff --git a/maccaml/prim_bigarray b/maccaml/prim_bigarray new file mode 100644 index 0000000000..15fbef4f88 --- /dev/null +++ b/maccaml/prim_bigarray @@ -0,0 +1,17 @@ +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_set_1 +bigarray_set_2 +bigarray_set_3 +bigarray_set_generic +bigarray_slice +bigarray_sub diff --git a/maccaml/graphprims b/maccaml/prim_graph index cd33629b06..e46fc81eb1 100644 --- a/maccaml/graphprims +++ b/maccaml/prim_graph @@ -1,37 +1,37 @@ -gr_open_graph -gr_close_graph -gr_sigio_signal -gr_sigio_handler -gr_display_mode -gr_remember_mode -gr_synchronize +gr_blit_image gr_clear_graph -gr_size_x -gr_size_y -gr_set_color -gr_plot -gr_point_color -gr_moveto +gr_close_graph +gr_create_image gr_current_x gr_current_y -gr_lineto -gr_draw_rect -gr_draw_arc_nat +gr_display_mode gr_draw_arc -gr_set_line_width -gr_fill_rect -gr_fill_poly -gr_fill_arc_nat -gr_fill_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_plot +gr_point_color +gr_remember_mode +gr_set_color gr_set_font +gr_set_line_width gr_set_text_size +gr_sigio_handler +gr_sigio_signal +gr_size_x +gr_size_y +gr_sound +gr_synchronize gr_text_size -gr_make_image -gr_dump_image -gr_draw_image -gr_create_image -gr_blit_image gr_wait_event -gr_sound diff --git a/maccaml/numprims b/maccaml/prim_num index b0b74c3308..9a30b25382 100644 --- a/maccaml/numprims +++ b/maccaml/prim_num @@ -1,28 +1,28 @@ -initialize_nat -create_nat -set_to_zero_nat -blit_nat -set_digit_nat -nth_digit_nat -num_digits_nat -num_leading_zero_bits_in_digit -is_digit_int -is_digit_zero -is_digit_normalized -is_digit_odd -incr_nat add_nat +blit_nat +compare_digits_nat +compare_nat complement_nat +create_nat decr_nat -sub_nat -mult_digit_nat -mult_nat -shift_left_nat div_digit_nat div_nat -shift_right_nat -compare_digits_nat -compare_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_systhreads b/maccaml/prim_systhreads new file mode 100644 index 0000000000..11d6494390 --- /dev/null +++ b/maccaml/prim_systhreads @@ -0,0 +1,15 @@ +caml_condition_broadcast +caml_condition_new +caml_condition_signal +caml_condition_wait +caml_mutex_lock +caml_mutex_new +caml_mutex_try_lock +caml_mutex_unlock +caml_thread_id +caml_thread_initialize +caml_thread_join +caml_thread_new +caml_thread_self +caml_thread_yield +caml_wait_signal diff --git a/maccaml/prim_unix b/maccaml/prim_unix new file mode 100644 index 0000000000..9f920883a7 --- /dev/null +++ b/maccaml/prim_unix @@ -0,0 +1,113 @@ +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/bigarray/.cvsignore b/otherlibs/bigarray/.cvsignore new file mode 100644 index 0000000000..dd0e578f48 --- /dev/null +++ b/otherlibs/bigarray/.cvsignore @@ -0,0 +1,2 @@ +*.o +*.x diff --git a/otherlibs/bigarray/Makefile.Mac b/otherlibs/bigarray/Makefile.Mac new file mode 100644 index 0000000000..e132c07a59 --- /dev/null +++ b/otherlibs/bigarray/Makefile.Mac @@ -0,0 +1,60 @@ +######################################################################### +# # +# 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. # +# # +######################################################################### + +# $Id$ + +C = sc +COptions = -model far -i :::byterun:,:::config: -w 35 + +PPCC = mrc +PPCCOptions = -i :::byterun:,:::config: -w 35 + +CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: -I ::unix: + +C_OBJS = bigarray_stubs.c.o mmap_unix.c.o +PPCC_OBJS = bigarray_stubs.c.x mmap_unix.c.x + +CAML_OBJS = bigarray.cmo + +all Ä libbigarray.x libbigarray.o bigarray.cma + +libbigarray.x Ä {PPCC_OBJS} + ppclink -xm library -o libbigarray.x {PPCC_OBJS} + +libbigarray.o Ä {C_OBJS} + lib -o libbigarray.o {C_OBJS} + +bigarray.cma Ä {CAML_OBJS} + {CAMLC} -a -linkall -o bigarray.cma {CAML_OBJS} + +install Ä + duplicate -y bigarray.cmi bigarray.mli libbigarray.x libbigarray.o ¶ + bigarray.cma "{LIBDIR}" + +partialclean Ä + delete -y Å.cmÅ || set status 0 + +clean Ä partialclean + delete -i Å.[ox] || 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 + 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/otherlibs/bigarray/Makefile.Mac.depend b/otherlibs/bigarray/Makefile.Mac.depend new file mode 100644 index 0000000000..5062471057 --- /dev/null +++ b/otherlibs/bigarray/Makefile.Mac.depend @@ -0,0 +1,79 @@ +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:49:43 on 3 avr 2000 by MakeDepend + +:bigarray_stubs.c.x Ä ¶ + :bigarray_stubs.c ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"string.h ¶ + :bigarray.h ¶ + "{CIncludes}"memory.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"MixedMode.h + +:mmap_unix.c.x Ä ¶ + :mmap_unix.c ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"string.h ¶ + :bigarray.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:mmap_win32.c.x Ä ¶ + :mmap_win32.c ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"string.h ¶ + :bigarray.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:49:44 on 3 avr 2000 by MakeDepend + +:bigarray_stubs.c.o Ä ¶ + :bigarray_stubs.c ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"stdarg.h ¶ + "{CIncludes}"string.h ¶ + :bigarray.h ¶ + "{CIncludes}"memory.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h ¶ + "{CIncludes}"VaListTDef.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"MixedMode.h + +:mmap_unix.c.o Ä ¶ + :mmap_unix.c ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"string.h ¶ + :bigarray.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +:mmap_win32.c.o Ä ¶ + :mmap_win32.c ¶ + "{CIncludes}"stddef.h ¶ + "{CIncludes}"string.h ¶ + :bigarray.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"WCharTDef.h + +bigarray.cmiÄ ::unix:unix.cmi +bigarray.cmoÄ :::stdlib:array.cmi :::stdlib:obj.cmi ::unix:unix.cmi ¶ + bigarray.cmi +bigarray.cmxÄ :::stdlib:array.cmx :::stdlib:obj.cmx ::unix:unix.cmx ¶ + bigarray.cmi diff --git a/otherlibs/bigarray/bigarray_stubs.c b/otherlibs/bigarray/bigarray_stubs.c index fb57c2f502..e7c1dc5e00 100644 --- a/otherlibs/bigarray/bigarray_stubs.c +++ b/otherlibs/bigarray/bigarray_stubs.c @@ -24,7 +24,7 @@ #include "mlvalues.h" extern void bigarray_unmap_file(void * addr, unsigned long len); - /* from mmap_stubs.c */ + /* from mmap_xxx.c */ /* Compute the number of elements of a big array */ @@ -55,9 +55,23 @@ unsigned long bigarray_byte_size(struct caml_bigarray * b) * bigarray_element_size[b->flags & BIGARRAY_KIND_MASK]; } -/* Allocation of a big array */ +/* Operation table for bigarrays */ + +static void bigarray_finalize(value v); +static int bigarray_compare(value v1, value v2); +static long bigarray_hash(value v); +static void bigarray_serialize(value, unsigned long *, unsigned long *); +unsigned long bigarray_deserialize(void * dst); +static struct custom_operations bigarray_ops = { + "_bigarray", + bigarray_finalize, + bigarray_compare, + bigarray_hash, + bigarray_serialize, + bigarray_deserialize +}; -static struct custom_operations bigarray_ops; +/* Allocation of a big array */ #define MAX_BIGARRAY_MEMORY 128*1024*1024 /* 128 Mb -- after allocating that much, it's probably worth speeding @@ -658,17 +672,6 @@ unsigned long bigarray_deserialize(void * dst) return sizeof(struct caml_bigarray) + (b->num_dims - 1) * sizeof(long); } -/* Operation table for bigarrays */ - -static struct custom_operations bigarray_ops = { - "_bigarray", - bigarray_finalize, - bigarray_compare, - bigarray_hash, - bigarray_serialize, - bigarray_deserialize -}; - /* Create / update proxy to indicate that b2 is a sub-array of b1 */ static void bigarray_update_proxy(struct caml_bigarray * b1, diff --git a/otherlibs/bigarray/mmap_unix.c b/otherlibs/bigarray/mmap_unix.c index f71ee67c79..dcf032f78a 100644 --- a/otherlibs/bigarray/mmap_unix.c +++ b/otherlibs/bigarray/mmap_unix.c @@ -114,7 +114,3 @@ void bigarray_unmap_file(void * addr, unsigned long len) munmap(addr, len); #endif } - - - - diff --git a/otherlibs/graph/color.c b/otherlibs/graph/color.c index 2bde01cce1..10970d2a47 100644 --- a/otherlibs/graph/color.c +++ b/otherlibs/graph/color.c @@ -61,8 +61,8 @@ unsigned long gr_pixel_rgb(int rgb) if (direct_rgb){ switch ( bits_per_pixel ){ case 16: - tmp = ((r >> 3) << 11) + ((g >> 2) << 5) + ((b >> 3) << 0); - return (unsigned long) tmp; + tmp = ((r >> 3) << 11) + ((g >> 2) << 5) + ((b >> 3) << 0); + return (unsigned long) tmp; case 32: return (r << 16) + (g << 8) + (b << 0); } @@ -75,13 +75,13 @@ unsigned long gr_pixel_rgb(int rgb) if (color_cache[i].rgb == rgb) return color_cache[i].pixel; i = (i + 1) & (Color_cache_size - 1); if (i == h) { - /* Cache is full. Instead of inserting at slot h, which causes - thrashing if many colors hash to the same value, - insert at h + n where n is pseudo-random and - smaller than Color_cache_slack */ - int slack = num_overflows++ & (Color_cache_slack - 1); - i = (i + slack) & (Color_cache_size - 1); - break; + /* Cache is full. Instead of inserting at slot h, which causes + thrashing if many colors hash to the same value, + insert at h + n where n is pseudo-random and + smaller than Color_cache_slack */ + int slack = num_overflows++ & (Color_cache_slack - 1); + i = (i + slack) & (Color_cache_size - 1); + break; } } color.red = r * 0x101; diff --git a/otherlibs/graph/draw.c b/otherlibs/graph/draw.c index 485e3828bd..4fb46d7589 100644 --- a/otherlibs/graph/draw.c +++ b/otherlibs/graph/draw.c @@ -56,7 +56,7 @@ value gr_lineto(value vx, value vy) grx, Bcvt(gry), x, Bcvt(y)); if(grdisplay_mode) { XDrawLine(grdisplay, grwindow.win, grwindow.gc, - grx, Wcvt(gry), x, Wcvt(y)); + grx, Wcvt(gry), x, Wcvt(y)); XFlush(grdisplay); } grx = x; @@ -98,7 +98,7 @@ value gr_draw_arc_nat(value vx, value vy, value vrx, value vry, value va1, value x - rx, Bcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64); if(grdisplay_mode) { XDrawArc(grdisplay, grwindow.win, grwindow.gc, - x - rx, Wcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64); + x - rx, Wcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64); XFlush(grdisplay); } return Val_unit; diff --git a/otherlibs/graph/fill.c b/otherlibs/graph/fill.c index f67c3fbba5..2cc92dcebd 100644 --- a/otherlibs/graph/fill.c +++ b/otherlibs/graph/fill.c @@ -28,7 +28,7 @@ value gr_fill_rect(value vx, value vy, value vw, value vh) x, Bcvt(y) - h + 1, w, h); if(grdisplay_mode) { XFillRectangle(grdisplay, grwindow.win, grwindow.gc, - x, Wcvt(y) - h + 1, w, h); + x, Wcvt(y) - h + 1, w, h); XFlush(grdisplay); } return Val_unit; @@ -53,7 +53,7 @@ value gr_fill_poly(value array) for (i = 0; i < npoints; i++) points[i].y = BtoW(points[i].y); XFillPolygon(grdisplay, grwindow.win, grwindow.gc, points, - npoints, Complex, CoordModeOrigin); + npoints, Complex, CoordModeOrigin); XFlush(grdisplay); } stat_free((char *) points); @@ -75,7 +75,7 @@ value gr_fill_arc_nat(value vx, value vy, value vrx, value vry, value va1, value x - rx, Bcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64); if(grdisplay_mode) { XFillArc(grdisplay, grwindow.win, grwindow.gc, - x - rx, Wcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64); + x - rx, Wcvt(y) - ry, rx * 2, ry * 2, a1 * 64, (a2 - a1) * 64); XFlush(grdisplay); } return Val_unit; diff --git a/otherlibs/graph/image.c b/otherlibs/graph/image.c index 9f29bcf3c7..f2265ef099 100644 --- a/otherlibs/graph/image.c +++ b/otherlibs/graph/image.c @@ -40,7 +40,7 @@ value gr_new_image(int w, int h) w * h, Max_image_mem); Width_im(res) = w; Height_im(res) = h; - Data_im(res) = XCreatePixmap(grdisplay, grwindow.win, w, h, + Data_im(res) = XCreatePixmap(grdisplay, grwindow.win, w, h, XDefaultDepth(grdisplay, grscreen)); Mask_im(res) = None; return res; @@ -89,9 +89,9 @@ value gr_draw_image(value im, value vx, value vy) x, by); if(grdisplay_mode) XCopyArea(grdisplay, Data_im(im), grwindow.win, grwindow.gc, - 0, 0, - Width_im(im), Height_im(im), - x, wy); + 0, 0, + Width_im(im), Height_im(im), + x, wy); if (Mask_im(im) != None) { if(grremember_mode) XSetClipMask(grdisplay, grbstore.gc, None); diff --git a/otherlibs/graph/make_img.c b/otherlibs/graph/make_img.c index 33cb61e722..ae655685bb 100644 --- a/otherlibs/graph/make_img.c +++ b/otherlibs/graph/make_img.c @@ -50,7 +50,7 @@ value gr_make_image(value m) bits_per_pixel = idata->bits_per_pixel; #ifdef DIRECT_RGB_DEBUG fprintf(stderr, "Byte_order: %d = %s\n", byte_order, - byte_order ? "LSBFirst" : "MSBFirst"); + byte_order ? "LSBFirst" : "MSBFirst"); fprintf(stderr, "Bitmp_unit: %d\n", bitmap_unit); fprintf(stderr, "Bits per pixel: %d\n", idata->bits_per_pixel); #endif @@ -107,4 +107,3 @@ value gr_make_image(value m) XFlush(grdisplay); return im; } - diff --git a/otherlibs/graph/open.c b/otherlibs/graph/open.c index 1db3cf2129..4a144bd7d5 100644 --- a/otherlibs/graph/open.c +++ b/otherlibs/graph/open.c @@ -66,7 +66,7 @@ value gr_open_graph(value arg) for (q = geometry_spec; *p != 0; p++) if (q < geometry_spec + sizeof(geometry_spec) - 1) *q++ = *p; *q = 0; - + /* Open the display */ if (grdisplay == NULL) { grdisplay = XOpenDisplay(display_name); @@ -81,7 +81,7 @@ value gr_open_graph(value arg) /* Set up the error handlers */ XSetErrorHandler(gr_error_handler); XSetIOErrorHandler(gr_ioerror_handler); - + /* Parse the geometry specification */ hints.x = 0; hints.y = 0; @@ -98,7 +98,7 @@ value gr_open_graph(value arg) if (ret & (WidthValue | HeightValue)) { hints.width = w; hints.height = h; hints.flags |= USSize; } - + /* Initial drawing color is black */ grcolor = grblack; @@ -113,11 +113,11 @@ value gr_open_graph(value arg) None, NULL, 0, &hints); grwindow.gc = XCreateGC(grdisplay, grwindow.win, 0, NULL); XSetBackground(grdisplay, grwindow.gc, grwhite); - XSetForeground(grdisplay, grwindow.gc, grcolor); - + XSetForeground(grdisplay, grwindow.gc, grcolor); + /* Require exposure, resize and keyboard events */ XSelectInput(grdisplay, grwindow.win, DEFAULT_EVENT_MASK); - + /* Map the window on the screen and wait for the first Expose event */ XMapWindow(grdisplay, grwindow.win); do { XNextEvent(grdisplay, &event); } while (event.type != Expose); @@ -136,13 +136,13 @@ value gr_open_graph(value arg) XDefaultDepth(grdisplay, grscreen)); grbstore.gc = XCreateGC(grdisplay, grbstore.win, 0, NULL); XSetBackground(grdisplay, grbstore.gc, grwhite); - + /* Clear the pixmap */ XSetForeground(grdisplay, grbstore.gc, grwhite); XFillRectangle(grdisplay, grbstore.win, grbstore.gc, 0, 0, grbstore.w, grbstore.h); XSetForeground(grdisplay, grbstore.gc, grcolor); - + /* Set the display and remember modes on */ grdisplay_mode = True ; grremember_mode = True ; @@ -150,7 +150,7 @@ value gr_open_graph(value arg) /* The global data structures are now correctly initialized. In particular, gr_sigio_handler can now handle events safely. */ gr_initialized = True; - + /* If possible, request that system calls be restarted after the EVENT_SIGNAL signal. */ #ifdef POSIX_SIGNALS @@ -226,7 +226,7 @@ value gr_clear_graph(void) if(grdisplay_mode) { XSetForeground(grdisplay, grwindow.gc, grwhite); XFillRectangle(grdisplay, grwindow.win, grwindow.gc, - 0, 0, grwindow.w, grwindow.h); + 0, 0, grwindow.w, grwindow.h); XSetForeground(grdisplay, grwindow.gc, grcolor); XFlush(grdisplay); } @@ -249,9 +249,9 @@ value gr_size_y(void) value gr_synchronize(void) { XCopyArea(grdisplay, grbstore.win, grwindow.win, grwindow.gc, - 0, grbstore.h - grwindow.h, - grwindow.w, grwindow.h, - 0, 0); + 0, grbstore.h - grwindow.h, + grwindow.w, grwindow.h, + 0, 0); XFlush(grdisplay); return Val_unit ; } diff --git a/otherlibs/graph/text.c b/otherlibs/graph/text.c index 48bc3c95dc..77e3e9317c 100644 --- a/otherlibs/graph/text.c +++ b/otherlibs/graph/text.c @@ -47,7 +47,7 @@ static void gr_draw_text(char *txt, int len) grx, Bcvt(gry) - grfont->descent + 1, txt, len); if (grdisplay_mode) { XDrawString(grdisplay, grwindow.win, grwindow.gc, - grx, Wcvt(gry) - grfont->descent + 1, txt, len); + grx, Wcvt(gry) - grfont->descent + 1, txt, len); XFlush(grdisplay); } grx += XTextWidth(grfont, txt, len); diff --git a/otherlibs/labltk/labl.gif b/otherlibs/labltk/labl.gif Binary files differindex 78e98dd4af..9df20406e1 100644 --- a/otherlibs/labltk/labl.gif +++ b/otherlibs/labltk/labl.gif diff --git a/otherlibs/macosunix/.cvsignore b/otherlibs/macosunix/.cvsignore new file mode 100644 index 0000000000..9067350368 --- /dev/null +++ b/otherlibs/macosunix/.cvsignore @@ -0,0 +1,72 @@ +*.x +copy-files +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 new file mode 100644 index 0000000000..dd54e5179d --- /dev/null +++ b/otherlibs/macosunix/Makefile.Mac @@ -0,0 +1,161 @@ +######################################################################### +# # +# 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. # +# # +######################################################################### + +# $Id$ + +#ldbgflag = -sym on +#cdbgflag = -sym on -d DEBUG + +includepath = ":config:,:byterun:,{GUSI}include:" + +C = sc +COptions = -i {includepath} -includes unix -w 30,35 -model far {cdbgflag} + +PPCC = mrc +PPCCOptions = -i {includepath} -includes unix -w 30,35 {cdbgflag} + +CAMLC = :::boot:ocamlrun :::boot:ocamlc -I :::stdlib: + +# 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 + domake libcamlrun-unix.x libcamlrun-unix.o unix.cma + +### WATCH OUT: ocamlrun.[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 + +:byterun:libcamlrun.x Ä + directory :byterun: + domake libcamlrun.x + directory :: + +:byterun:libcamlrun.o Ä + directory :byterun: + domake libcamlrun.o + directory :: + +copy-files Ä + 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: : + echo > copy-files + +unix.cma Ä copy-files {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 {UNIX_FILES} copy-files + delete -i -y :byterun :config + +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 new file mode 100644 index 0000000000..d989b186bd --- /dev/null +++ b/otherlibs/macosunix/Makefile.Mac.depend @@ -0,0 +1,872 @@ +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:50:15 on 3 avr 2000 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 14:50:22 on 3 avr 2000 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 new file mode 100644 index 0000000000..f9a4568f01 --- /dev/null +++ b/otherlibs/macosunix/macosunix.c @@ -0,0 +1,110 @@ +/***********************************************************************/ +/* */ +/* 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. */ +/* */ +/***********************************************************************/ + +/* $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; +} + +#if 0 +void _exit (int status); +value unix_exit (value n) /* ML */ +{ + ui_exit (Int_val (n)); +} +#endif + +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_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 (getegid, (void)) +Unimplemented (geteuid, (void)) +Unimplemented (getgid, (void)) +Unimplemented (getgrnam, (value name)) +Unimplemented (getgrgid, (value gid)) +Unimplemented (getppid, (void)) +Unimplemented (getpwnam, (value name)) +Unimplemented (getpwuid, (value uid)) +Unimplemented (getuid, (void)) +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 new file mode 100644 index 0000000000..a308bae185 --- /dev/null +++ b/otherlibs/macosunix/macosunix_startup.ml @@ -0,0 +1,16 @@ +(***********************************************************************) +(* *) +(* 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. *) +(* *) +(***********************************************************************) + +(* $Id$ *) + +external startup : unit -> unit = "macosunix_startup";; +startup ();; diff --git a/otherlibs/macosunix/macosunix_startup.mli b/otherlibs/macosunix/macosunix_startup.mli new file mode 100644 index 0000000000..02501ea9f5 --- /dev/null +++ b/otherlibs/macosunix/macosunix_startup.mli @@ -0,0 +1,15 @@ +(***********************************************************************) +(* *) +(* 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. *) +(* *) +(***********************************************************************) + +(* $Id$ *) + +(* This file left blank intentionally. *) diff --git a/otherlibs/macosunix/unixsupport.h b/otherlibs/macosunix/unixsupport.h new file mode 100644 index 0000000000..29545a8594 --- /dev/null +++ b/otherlibs/macosunix/unixsupport.h @@ -0,0 +1,42 @@ +/***********************************************************************/ +/* */ +/* 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. */ +/* */ +/***********************************************************************/ + +/* $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 index ebc624c85f..e4fe24d690 100644 --- a/otherlibs/num/Makefile.Mac +++ b/otherlibs/num/Makefile.Mac @@ -16,9 +16,9 @@ # Compilation options C = sc -COptions = -model far -i :bignum:h:,:::byterun: -w 35 +COptions = -model far -i :bignum:h:,:::byterun:,:::config: -w 35 PPCC = mrc -PPCCOptions = -i :bignum:h:,:::byterun: -w 35 +PPCCOptions = -i :bignum:h:,:::byterun:,:::config: -w 35 CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: -w s CAMLOPT = :::boot:ocamlrun :::ocamlopt: -I :::stdlib: -w s @@ -68,6 +68,8 @@ clean Ä partialclean nat_stubs.c.o Ä nat.h depend Ä - MakeDepend Å.c > Makefile.Mac.depend · dev:null - MakeDepend -objext .x Å.c >> Makefile.Mac.depend · dev:null - :::boot:ocamlrun :::tools:ocamldep Å.mli Å.ml >> Makefile.Mac.depend + 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/num/Makefile.Mac.depend b/otherlibs/num/Makefile.Mac.depend index 08121564b2..0ca3a6e5b6 100644 --- a/otherlibs/num/Makefile.Mac.depend +++ b/otherlibs/num/Makefile.Mac.depend @@ -1,3 +1,27 @@ +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:50:27 on 3 avr 2000 by MakeDepend + +:nat_stubs.c.x Ä ¶ + :nat_stubs.c ¶ + "{CIncludes}"memory.h ¶ + :nat.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"MixedMode.h + +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:50:28 on 3 avr 2000 by MakeDepend + +:nat_stubs.c.o Ä ¶ + :nat_stubs.c ¶ + "{CIncludes}"memory.h ¶ + :nat.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"MixedMode.h + big_int.cmiÄ nat.cmi num.cmiÄ big_int.cmi nat.cmi ratio.cmi ratio.cmiÄ big_int.cmi nat.cmi diff --git a/otherlibs/num/bignum/README b/otherlibs/num/bignum/README index a2fb5ef54f..d2ff1ef094 100644 --- a/otherlibs/num/bignum/README +++ b/otherlibs/num/bignum/README @@ -2,96 +2,96 @@ This directory contains the C and assembler source code for BigNum. The subdirectory doc contains the documentation files: - bn.tex - Document BigNum in LaTeX format - bnf.tex - Document BigNum in French and LaTeX format - makeidx.sty - macro used in BigNum document + bn.tex - Document BigNum in LaTeX format + bnf.tex - Document BigNum in French and LaTeX format + makeidx.sty - macro used in BigNum document The subdirectory h contains the C include files: - BigZ.h - Types and structures for clients of BigZ - BigNum.h - Types and structures for clients of BigNum + BigZ.h - Types and structures for clients of BigZ + BigNum.h - Types and structures for clients of BigNum The subdirectory c contains the C source files: - KerN.c - BigNum implementation ("kernel" routines) - bn/bn*.c - BigNum implementation ("non-kernel" routines), + KerN.c - BigNum implementation ("kernel" routines) + bn/bn*.c - BigNum implementation ("non-kernel" routines), that is bnInit.c, bnMult.c, bnDivide.c and bnCmp.c - bz.c - BigZ implementation - bzf.c - Miscellaneous functions built on top of BigZ - bztest.c - Test program for verifying a BigNum implementation - testKerN.c - Test program for verifying KerN implementation + bz.c - BigZ implementation + bzf.c - Miscellaneous functions built on top of BigZ + bztest.c - Test program for verifying a BigNum implementation + testKerN.c - Test program for verifying KerN implementation The subdirectory s contains the assembler source files: - vaxKerN.s - Vax/U*ix implementation of KerN - vaxKerN.mar - Vax/VMS implementation of KerN - 68KerN.s - 68020 implementation of KerN (MIT syntax) - 68KerN_mot.s - 68020 implementation of KerN (Motorola syntax) - nsKerN.s - NS implementation of KerN - mipsKerN.s - MIPS implementation of KerN - pyramidKerN.s - Pyramid implementation of KerN - i960KerN.s - Intel 80960 implementation of KerN - sparcKerN.s - SPARC implementation of KerN - sparcfpuKerN.s - SPARC implementation of KerN using FPU, may - give faster multiplication on SPARC - implementations with fast floating point + vaxKerN.s - Vax/U*ix implementation of KerN + vaxKerN.mar - Vax/VMS implementation of KerN + 68KerN.s - 68020 implementation of KerN (MIT syntax) + 68KerN_mot.s - 68020 implementation of KerN (Motorola syntax) + nsKerN.s - NS implementation of KerN + mipsKerN.s - MIPS implementation of KerN + pyramidKerN.s - Pyramid implementation of KerN + i960KerN.s - Intel 80960 implementation of KerN + sparcKerN.s - SPARC implementation of KerN + sparcfpuKerN.s - SPARC implementation of KerN using FPU, may + give faster multiplication on SPARC + implementations with fast floating point supersparcKerN.s - SPARC V8 implementation of KerN (with hardware integer multiplication) Other Files: - Makefile - U*ix makefile - VMSmakefile - VMS makefile - MSDOSmakefile - MSDOS makefile + Makefile - U*ix makefile + VMSmakefile - VMS makefile + MSDOSmakefile - MSDOS makefile Now, to build or modify the current version of the package, type one of: on U*ix system: - make vax - to use vax assembly code - make 68K - to use 68020 assembly code - make ns - to use NS assembly code - make mips - to use mips assembly code - make pyramid - to use pyramid assembly code - make i960 - to use intel 80960 assembly code - make sparc - to use sparc assembly code (SunOS 4) - make sparcfpu - to use sparc assembly code (with multiply in FPU) - make supersparc - to use sparc V8 assembly code (Sun OS 4) + make vax - to use vax assembly code + make 68K - to use 68020 assembly code + make ns - to use NS assembly code + make mips - to use mips assembly code + make pyramid - to use pyramid assembly code + make i960 - to use intel 80960 assembly code + make sparc - to use sparc assembly code (SunOS 4) + make sparcfpu - to use sparc assembly code (with multiply in FPU) + make supersparc - to use sparc V8 assembly code (Sun OS 4) make sparc-solaris make sparcfpu-solaris same as above, for Solaris 2 instead of SunOS 4 make supersparc-solaris - make C16 - to use C code with 16 bits digits - make C32 - to use C code with 32 bits digits (default version) + make C16 - to use C code with 16 bits digits + make C32 - to use C code with 32 bits digits (default version) on VMS system: (copy VMSmakefile to Makefile, before) - mms vax - to use vax assembly code (default version) - mms C32 - to use C code with 32 bits digits + mms vax - to use vax assembly code (default version) + mms C32 - to use C code with 32 bits digits we suppose you have defined the standard libraries of C-VMS with: define lnk$library sys$library:vaxccurse define lnk$library_1 sys$library:vaxcrtlg define lnk$library_2 sys$library:vaxcrtl on MSDOS system: (copy MSDOSmakefile to Makefile, before) - make makefile - to use C code (16 bits digits) + make makefile - to use C code (16 bits digits) Each of these commands products the following files: on U*ix system: - BigNum.a - BigNum library - testKerN - Test program executable for KerN - bztest - Test program executable for BigZ + BigNum.a - BigNum library + testKerN - Test program executable for KerN + bztest - Test program executable for BigZ on VMS system: - BigNum.olb - BigNum library - testKerN.exe - Test program executable for KerN - bztest.exe - Test program executable for BigZ + BigNum.olb - BigNum library + testKerN.exe - Test program executable for KerN + bztest.exe - Test program executable for BigZ on MSDOS system: - BigNum.lib - BigNum library - testKerN.exe - Test program executable for KerN - bztest.exe - Test program executable for BigZ + BigNum.lib - BigNum library + testKerN.exe - Test program executable for KerN + bztest.exe - Test program executable for BigZ On U*ix system, if you have the tools LaTeX (L. Lamport's special version of Knuth's famous TeX, as described in the Addison-Wesley book), makeindex and -dvips, type: - make doc - to build the Postscript files of the documents, +dvips, type: + make doc - to build the Postscript files of the documents, If you do not have dvips, use your local equivalent tool to print -the dvi file produced by the LaTeX command. +the dvi file produced by the LaTeX command. diff --git a/otherlibs/str/Makefile.Mac b/otherlibs/str/Makefile.Mac index 4e31647690..0f910c6048 100644 --- a/otherlibs/str/Makefile.Mac +++ b/otherlibs/str/Makefile.Mac @@ -16,10 +16,10 @@ # Compilation options C = sc -COptions = -model far -i {REGEXLIB},:::byterun: -w 7 +COptions = -model far -i {REGEXLIB},:::byterun:,:::config: -w 7 PPCC = mrc -PPCCOptions = -i {REGEXLIB},:::byterun: -w 7 +PPCCOptions = -i {REGEXLIB},:::byterun:,:::config: -w 7 CAMLC = :::boot:ocamlrun :::ocamlc -I :::stdlib: REGEXLIB = :regex-0.12: @@ -61,6 +61,8 @@ install Ä {CAMLC} -c {COMPFLAGS} {default}.ml depend Ä - MakeDepend Å.c > Makefile.Mac.depend · dev:null - MakeDepend -objext .x Å.c >> Makefile.Mac.depend · dev:null - :::boot:ocamlrun :::tools:ocamldep Å.mli Å.ml >> Makefile.Mac.depend + 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/str/Makefile.Mac.depend b/otherlibs/str/Makefile.Mac.depend index 84d984a630..34b37e9852 100644 --- a/otherlibs/str/Makefile.Mac.depend +++ b/otherlibs/str/Makefile.Mac.depend @@ -1,2 +1,30 @@ +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:50:33 on 3 avr 2000 by MakeDepend + +:strstubs.c.x Ä ¶ + :strstubs.c ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"memory.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"MixedMode.h + +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:50:35 on 3 avr 2000 by MakeDepend + +:strstubs.c.o Ä ¶ + :strstubs.c ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"memory.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"MixedMode.h + str.cmoÄ str.cmi str.cmxÄ str.cmi diff --git a/otherlibs/systhreads/.cvsignore b/otherlibs/systhreads/.cvsignore new file mode 100644 index 0000000000..f7f43740ff --- /dev/null +++ b/otherlibs/systhreads/.cvsignore @@ -0,0 +1,2 @@ +*.x +thread.ml diff --git a/otherlibs/systhreads/Makefile.Mac b/otherlibs/systhreads/Makefile.Mac new file mode 100644 index 0000000000..07891638ea --- /dev/null +++ b/otherlibs/systhreads/Makefile.Mac @@ -0,0 +1,77 @@ +######################################################################### +# # +# Objective Caml # +# # +# Xavier Leroy, projet Cristal, 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. # +# # +######################################################################### + +# $Id$ + +#cdbgflag = -sym on -d DEBUG +#ldbgflag = -sym on + +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/otherlibs/systhreads/Makefile.Mac.depend b/otherlibs/systhreads/Makefile.Mac.depend new file mode 100644 index 0000000000..1c466e91a3 --- /dev/null +++ b/otherlibs/systhreads/Makefile.Mac.depend @@ -0,0 +1,131 @@ +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:50:42 on 3 avr 2000 by MakeDepend + +:posix.c.x Ä ¶ + :posix.c ¶ + "{CIncludes}"errno.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"signal.h ¶ + "{CIncludes}"memory.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"MixedMode.h + +:win32.c.x Ä ¶ + :win32.c ¶ + "{CIncludes}"windows.h ¶ + "{CIncludes}"signal.h ¶ + "{CIncludes}"memory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacWindows.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"AppleEvents.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"Drag.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"Menus.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"QDOffscreen.h ¶ + "{CIncludes}"Quickdraw.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Fonts.h ¶ + "{CIncludes}"Processes.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"Finder.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h + +#*** Dependencies: Cut here *** +# These dependencies were produced at 14:50:47 on 3 avr 2000 by MakeDepend + +:posix.c.o Ä ¶ + :posix.c ¶ + "{CIncludes}"errno.h ¶ + "{CIncludes}"string.h ¶ + "{CIncludes}"signal.h ¶ + "{CIncludes}"memory.h ¶ + "{CIncludes}"NullDef.h ¶ + "{CIncludes}"SizeTDef.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"MixedMode.h + +:win32.c.o Ä ¶ + :win32.c ¶ + "{CIncludes}"windows.h ¶ + "{CIncludes}"signal.h ¶ + "{CIncludes}"memory.h ¶ + "{CIncludes}"ConditionalMacros.h ¶ + "{CIncludes}"MacWindows.h ¶ + "{CIncludes}"MacMemory.h ¶ + "{CIncludes}"MacTypes.h ¶ + "{CIncludes}"Aliases.h ¶ + "{CIncludes}"AppleEvents.h ¶ + "{CIncludes}"Collections.h ¶ + "{CIncludes}"Drag.h ¶ + "{CIncludes}"Events.h ¶ + "{CIncludes}"Menus.h ¶ + "{CIncludes}"MixedMode.h ¶ + "{CIncludes}"QDOffscreen.h ¶ + "{CIncludes}"Quickdraw.h ¶ + "{CIncludes}"TextCommon.h ¶ + "{CIncludes}"Icons.h ¶ + "{CIncludes}"MacErrors.h ¶ + "{CIncludes}"AppleTalk.h ¶ + "{CIncludes}"Files.h ¶ + "{CIncludes}"Notification.h ¶ + "{CIncludes}"AEDataModel.h ¶ + "{CIncludes}"OSUtils.h ¶ + "{CIncludes}"Endian.h ¶ + "{CIncludes}"Fonts.h ¶ + "{CIncludes}"Processes.h ¶ + "{CIncludes}"Components.h ¶ + "{CIncludes}"QuickdrawText.h ¶ + "{CIncludes}"CodeFragments.h ¶ + "{CIncludes}"UTCUtils.h ¶ + "{CIncludes}"Finder.h ¶ + "{CIncludes}"Patches.h ¶ + "{CIncludes}"DateTimeUtils.h + +condition.cmiÄ mutex.cmi +thread.cmiÄ ::unix:unix.cmi +threadUnix.cmiÄ ::unix:unix.cmi +condition.cmoÄ mutex.cmi condition.cmi +condition.cmxÄ mutex.cmx condition.cmi +event.cmoÄ :::stdlib:array.cmi condition.cmi :::stdlib:list.cmi mutex.cmi ¶ + :::stdlib:queue.cmi :::stdlib:random.cmi event.cmi +event.cmxÄ :::stdlib:array.cmx condition.cmx :::stdlib:list.cmx mutex.cmx ¶ + :::stdlib:queue.cmx :::stdlib:random.cmx event.cmi +mutex.cmoÄ mutex.cmi +mutex.cmxÄ mutex.cmi +thread.cmoÄ :::stdlib:printexc.cmi :::stdlib:printf.cmi :::stdlib:sys.cmi ¶ + ::unix:unix.cmi thread.cmi +thread.cmxÄ :::stdlib:printexc.cmx :::stdlib:printf.cmx :::stdlib:sys.cmx ¶ + ::unix:unix.cmx thread.cmi +thread_posix.cmoÄ :::stdlib:printexc.cmi :::stdlib:printf.cmi ¶ + :::stdlib:sys.cmi ::unix:unix.cmi +thread_posix.cmxÄ :::stdlib:printexc.cmx :::stdlib:printf.cmx ¶ + :::stdlib:sys.cmx ::unix:unix.cmx +thread_win32.cmoÄ :::stdlib:printexc.cmi :::stdlib:printf.cmi ¶ + :::stdlib:sys.cmi ::unix:unix.cmi +thread_win32.cmxÄ :::stdlib:printexc.cmx :::stdlib:printf.cmx ¶ + :::stdlib:sys.cmx ::unix:unix.cmx +threadUnix.cmoÄ thread.cmi ::unix:unix.cmi threadUnix.cmi +threadUnix.cmxÄ thread.cmx ::unix:unix.cmx threadUnix.cmi diff --git a/otherlibs/systhreads/posix.c b/otherlibs/systhreads/posix.c index 3edf5ebdaf..9c82b71976 100644 --- a/otherlibs/systhreads/posix.c +++ b/otherlibs/systhreads/posix.c @@ -664,7 +664,7 @@ int caml_threadstatus_wait (value wrapper) /* Synchronous signal wait */ -value caml_wait_signal(value sigs) +value caml_wait_signal(value sigs) /* ML */ { sigset_t set; int retcode, signo; diff --git a/otherlibs/unix/dup2.c b/otherlibs/unix/dup2.c index e7cecf8359..96e841ff3b 100644 --- a/otherlibs/unix/dup2.c +++ b/otherlibs/unix/dup2.c @@ -38,7 +38,7 @@ static int do_dup2(int fd1, int fd2) return res; } -value unix_dup2(value fd1, value fd2) /* ML */ +value unix_dup2(value fd1, value fd2) { close(Int_val(fd2)); if (do_dup2(Int_val(fd1), Int_val(fd2)) == -1) uerror("dup2", Nothing); diff --git a/otherlibs/unix/envir.c b/otherlibs/unix/envir.c index b5bdcbfcf1..ff9b80d662 100644 --- a/otherlibs/unix/envir.c +++ b/otherlibs/unix/envir.c @@ -17,7 +17,7 @@ extern char ** environ; -value unix_environment(void) +value unix_environment(void) /* ML */ { return copy_string_array(environ); } diff --git a/otherlibs/unix/errmsg.c b/otherlibs/unix/errmsg.c index cf1930ff85..65d51a725e 100644 --- a/otherlibs/unix/errmsg.c +++ b/otherlibs/unix/errmsg.c @@ -22,7 +22,7 @@ extern int error_table[]; extern char * strerror(int); -value unix_error_message(value err) +value unix_error_message(value err) /* ML */ { int errnum; errnum = Is_block(err) ? Int_val(Field(err, 0)) : error_table[Int_val(err)]; diff --git a/otherlibs/unix/exit.c b/otherlibs/unix/exit.c index 247ef611f3..4511d4366b 100644 --- a/otherlibs/unix/exit.c +++ b/otherlibs/unix/exit.c @@ -19,7 +19,7 @@ value unix_exit(value n) /* ML */ { _exit(Int_val(n)); return Val_unit; /* never reached, but suppress warnings */ - /* from smart compilers */ + /* from smart compilers */ } diff --git a/otherlibs/unix/fcntl.c b/otherlibs/unix/fcntl.c index 259431fc2c..d52dbc7332 100644 --- a/otherlibs/unix/fcntl.c +++ b/otherlibs/unix/fcntl.c @@ -23,7 +23,7 @@ #define O_NONBLOCK O_NDELAY #endif -value unix_set_nonblock(value fd) +value unix_set_nonblock(value fd) /* ML */ { int retcode; retcode = fcntl(Int_val(fd), F_GETFL, 0); @@ -33,7 +33,7 @@ value unix_set_nonblock(value fd) return Val_unit; } -value unix_clear_nonblock(value fd) +value unix_clear_nonblock(value fd) /* ML */ { int retcode; retcode = fcntl(Int_val(fd), F_GETFL, 0); @@ -45,7 +45,7 @@ value unix_clear_nonblock(value fd) #ifdef FD_CLOEXEC -value unix_set_close_on_exec(value fd) +value unix_set_close_on_exec(value fd) /* ML */ { int retcode; retcode = fcntl(Int_val(fd), F_GETFD, 0); @@ -55,7 +55,7 @@ value unix_set_close_on_exec(value fd) return Val_unit; } -value unix_clear_close_on_exec(value fd) +value unix_clear_close_on_exec(value fd) /* ML */ { int retcode; retcode = fcntl(Int_val(fd), F_GETFD, 0); diff --git a/otherlibs/unix/getcwd.c b/otherlibs/unix/getcwd.c index 2d1c1156c7..dd5194428b 100644 --- a/otherlibs/unix/getcwd.c +++ b/otherlibs/unix/getcwd.c @@ -16,7 +16,7 @@ #include <alloc.h> #include "unixsupport.h" -#ifndef _WIN32 +#if !defined (_WIN32) && !macintosh #include <sys/param.h> #endif diff --git a/otherlibs/unix/gethostname.c b/otherlibs/unix/gethostname.c index 1513bfaba4..a85346d22c 100644 --- a/otherlibs/unix/gethostname.c +++ b/otherlibs/unix/gethostname.c @@ -14,10 +14,10 @@ #include <mlvalues.h> #include <alloc.h> -#ifndef _WIN32 -#include <sys/param.h> -#else +#if defined (_WIN32) #include <winsock.h> +#elsif !macintosh +#include <sys/param.h> #endif #include "unixsupport.h" diff --git a/otherlibs/unix/itimer.c b/otherlibs/unix/itimer.c index 472510f0dd..b3e298afc9 100644 --- a/otherlibs/unix/itimer.c +++ b/otherlibs/unix/itimer.c @@ -37,7 +37,7 @@ static value unix_convert_itimer(struct itimerval *tp) static int itimers[3] = { ITIMER_REAL, ITIMER_VIRTUAL, ITIMER_PROF }; -value unix_setitimer(value which, value newval) +value unix_setitimer(value which, value newval) /* ML */ { struct itimerval new, old; Set_timeval(new.it_interval, Double_field(newval, 0)); @@ -47,7 +47,7 @@ value unix_setitimer(value which, value newval) return unix_convert_itimer(&old); } -value unix_getitimer(value which) +value unix_getitimer(value which) /* ML */ { struct itimerval val; if (getitimer(itimers[Int_val(which)], &val) == -1) diff --git a/otherlibs/unix/listen.c b/otherlibs/unix/listen.c index 39c846995e..15bccc0e8e 100644 --- a/otherlibs/unix/listen.c +++ b/otherlibs/unix/listen.c @@ -19,7 +19,7 @@ #include <sys/socket.h> -value unix_listen(value sock, value backlog) +value unix_listen(value sock, value backlog) /* ML */ { if (listen(Int_val(sock), Int_val(backlog)) == -1) uerror("listen", Nothing); return Val_unit; diff --git a/otherlibs/unix/lockf.c b/otherlibs/unix/lockf.c index 88536feb21..5a8ea43690 100644 --- a/otherlibs/unix/lockf.c +++ b/otherlibs/unix/lockf.c @@ -93,7 +93,7 @@ static int lock_command_table[] = { F_ULOCK, F_LOCK, F_TLOCK, F_TEST, F_LOCK, F_TLOCK }; -value unix_lockf(value fd, value cmd, value span) /* ML */ +value unix_lockf(value fd, value cmd, value span) { if (lockf(Int_val(fd), lock_command_table[Int_val(cmd)], Long_val(span)) == -1) uerror("lockf", Nothing); diff --git a/otherlibs/unix/mkfifo.c b/otherlibs/unix/mkfifo.c index 36a812029c..708a751999 100644 --- a/otherlibs/unix/mkfifo.c +++ b/otherlibs/unix/mkfifo.c @@ -19,7 +19,7 @@ #ifdef HAS_MKFIFO -value unix_mkfifo(value path, value mode) +value unix_mkfifo(value path, value mode) /* ML */ { if (mkfifo(String_val(path), Int_val(mode)) == -1) uerror("mkfifo", path); diff --git a/otherlibs/unix/nice.c b/otherlibs/unix/nice.c index 6f38d82138..c9ea811345 100644 --- a/otherlibs/unix/nice.c +++ b/otherlibs/unix/nice.c @@ -22,7 +22,7 @@ #include <sys/time.h> #include <sys/resource.h> -value unix_nice(value incr) +value unix_nice(value incr) /* ML */ { int prio; errno = 0; diff --git a/otherlibs/unix/putenv.c b/otherlibs/unix/putenv.c index bb9462c55f..33ab979a40 100644 --- a/otherlibs/unix/putenv.c +++ b/otherlibs/unix/putenv.c @@ -38,7 +38,7 @@ value unix_putenv(value name, value val) /* ML */ #else -value unix_putenv(value name, value val) /* ML */ +value unix_putenv(value name, value val) { invalid_argument("putenv not implemented"); } #endif diff --git a/otherlibs/unix/sockopt.c b/otherlibs/unix/sockopt.c index 6b46714d4f..3fa4097b05 100644 --- a/otherlibs/unix/sockopt.c +++ b/otherlibs/unix/sockopt.c @@ -33,7 +33,7 @@ static int sockopt[] = { SO_DEBUG, SO_BROADCAST, SO_REUSEADDR, SO_KEEPALIVE, SO_DONTROUTE, SO_OOBINLINE }; -value unix_getsockopt(value socket, value option) +value unix_getsockopt(value socket, value option) /* ML */ { int optval; socklen_param_type optsize; @@ -45,7 +45,7 @@ value unix_getsockopt(value socket, value option) return Val_int(optval); } -value unix_setsockopt(value socket, value option, value status) +value unix_setsockopt(value socket, value option, value status) /* ML */ { int optval = Int_val(status); if (setsockopt(Int_val(socket), SOL_SOCKET, sockopt[Int_val(option)], diff --git a/otherlibs/unix/termios.c b/otherlibs/unix/termios.c index 00138e0297..9a8b586165 100644 --- a/otherlibs/unix/termios.c +++ b/otherlibs/unix/termios.c @@ -229,7 +229,7 @@ static void decode_terminal_status(value *src) } } -value unix_tcgetattr(value fd) +value unix_tcgetattr(value fd) /* ML */ { value res; @@ -244,7 +244,7 @@ static int when_flag_table[] = { TCSANOW, TCSADRAIN, TCSAFLUSH }; -value unix_tcsetattr(value fd, value when, value arg) +value unix_tcsetattr(value fd, value when, value arg) /* ML */ { if (tcgetattr(Int_val(fd), &terminal_status) == -1) uerror("tcsetattr", Nothing); @@ -256,14 +256,14 @@ value unix_tcsetattr(value fd, value when, value arg) return Val_unit; } -value unix_tcsendbreak(value fd, value delay) +value unix_tcsendbreak(value fd, value delay) /* ML */ { if (tcsendbreak(Int_val(fd), Int_val(delay)) == -1) uerror("tcsendbreak", Nothing); return Val_unit; } -value unix_tcdrain(value fd) +value unix_tcdrain(value fd) /* ML */ { if (tcdrain(Int_val(fd)) == -1) uerror("tcdrain", Nothing); return Val_unit; @@ -273,7 +273,7 @@ static int queue_flag_table[] = { TCIFLUSH, TCOFLUSH, TCIOFLUSH }; -value unix_tcflush(value fd, value queue) +value unix_tcflush(value fd, value queue) /* ML */ { if (tcflush(Int_val(fd), queue_flag_table[Int_val(queue)]) == -1) uerror("tcflush", Nothing); @@ -284,7 +284,7 @@ static int action_flag_table[] = { TCOOFF, TCOON, TCIOFF, TCION }; -value unix_tcflow(value fd, value action) +value unix_tcflow(value fd, value action) /* ML */ { if (tcflow(Int_val(fd), action_flag_table[Int_val(action)]) == -1) uerror("tcflow", Nothing); diff --git a/otherlibs/unix/wait.c b/otherlibs/unix/wait.c index e38eba5e8f..9e252a7802 100644 --- a/otherlibs/unix/wait.c +++ b/otherlibs/unix/wait.c @@ -80,7 +80,7 @@ static int wait_flag_table[] = { WNOHANG, WUNTRACED }; -value unix_waitpid(value flags, value pid_req) +value unix_waitpid(value flags, value pid_req) /* ML */ { int pid, status; diff --git a/test/Moretest/graph_example.ml b/test/Moretest/graph_example.ml index f4124fa1fd..dfb923f7bd 100644 --- a/test/Moretest/graph_example.ml +++ b/test/Moretest/graph_example.ml @@ -4,7 +4,7 @@ 2. Drag it to the toplevel window. 3. Watch the colors. 4. Drag the mouse over the graphics window and click here and there. - 5. Type command-period in the toplevel window to stop the program. + 5. Type any key to the graphics window to stop the program. *) open Graphics;; @@ -82,6 +82,7 @@ let caml = make_image [| [|t;t;t;t;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;n;t;t;t;t;t;t;t;t;t;t;t;|]; |];; +(* let x = ref 0 and y = ref 0;; let bg = get_image !x !y 32 32;; while true do @@ -92,6 +93,33 @@ while true do blit_image bg !x !y; draw_image caml !x !y; done;; +*) +set_color (rgb 0 0 0); +remember_mode false; +try while true do + let st = wait_next_event [Mouse_motion; Button_down; Key_pressed] in + synchronize (); + if st.keypressed then raise Exit; + if st.button then begin + remember_mode true; + draw_image caml st.mouse_x st.mouse_y; + remember_mode false; + end; + let x = st.mouse_x + 16 and y = st.mouse_y + 16 in + + moveto 0 y; + lineto (x - 25) y; + moveto 10000 y; + lineto (x + 25) y; + + moveto x 0; + lineto x (y - 25); + moveto x 10000; + lineto x (y + 25); + + draw_image caml st.mouse_x st.mouse_y; +done with Exit -> () +;; (* To run this example: ******************** @@ -99,5 +127,5 @@ done;; 2. Drag it to the toplevel window. 3. Watch the colors. 4. Drag the mouse over the graphics window and click here and there. - 5. Type command-period in the toplevel window to stop the program. + 5. Type any key to the graphics window to stop the program. *) diff --git a/testasmcomp/power-aix.S b/testasmcomp/power-aix.S index 8d8efa4b69..96ed2b92d1 100644 --- a/testasmcomp/power-aix.S +++ b/testasmcomp/power-aix.S @@ -17,28 +17,28 @@ .globl .call_gen_code .call_gen_code: # Save return address - mflr 0 - stw 0, 8(1) + mflr 0 + stw 0, 8(1) # Save all callee-save registers - stw 13,-76(1) - stw 14,-72(1) - stw 15,-68(1) - stw 16,-64(1) - stw 17,-60(1) - stw 18,-56(1) - stw 19,-52(1) - stw 20,-48(1) - stw 21,-44(1) - stw 22,-40(1) - stw 23,-36(1) - stw 24,-32(1) - stw 25,-28(1) - stw 26,-24(1) - stw 27,-20(1) - stw 28,-16(1) - stw 29,-12(1) - stw 30,-8(1) - stw 31,-4(1) + stw 13,-76(1) + stw 14,-72(1) + stw 15,-68(1) + stw 16,-64(1) + stw 17,-60(1) + stw 18,-56(1) + stw 19,-52(1) + stw 20,-48(1) + stw 21,-44(1) + stw 22,-40(1) + stw 23,-36(1) + stw 24,-32(1) + stw 25,-28(1) + stw 26,-24(1) + stw 27,-20(1) + stw 28,-16(1) + stw 29,-12(1) + stw 30,-8(1) + stw 31,-4(1) stfd 14, -224(1) stfd 15, -216(1) stfd 16, -208(1) @@ -58,7 +58,7 @@ stfd 30, -96(1) stfd 31, -88(1) # Allocate and link stack frame - stwu 1, -280(1) + stwu 1, -280(1) # Save global pointer stw 2, 20(1) # Load code to call @@ -75,27 +75,27 @@ # Restore global pointer lwz 2, 20(1) # Deallocate stack frame - addic 1, 1, 280 + addic 1, 1, 280 # Restore callee-save registers - lwz 13,-76(1) - lwz 14,-72(1) - lwz 15,-68(1) - lwz 16,-64(1) - lwz 17,-60(1) - lwz 18,-56(1) - lwz 19,-52(1) - lwz 20,-48(1) - lwz 21,-44(1) - lwz 22,-40(1) - lwz 23,-36(1) - lwz 24,-32(1) - lwz 25,-28(1) - lwz 26,-24(1) - lwz 27,-20(1) - lwz 28,-16(1) - lwz 29,-12(1) - lwz 30,-8(1) - lwz 31,-4(1) + lwz 13,-76(1) + lwz 14,-72(1) + lwz 15,-68(1) + lwz 16,-64(1) + lwz 17,-60(1) + lwz 18,-56(1) + lwz 19,-52(1) + lwz 20,-48(1) + lwz 21,-44(1) + lwz 22,-40(1) + lwz 23,-36(1) + lwz 24,-32(1) + lwz 25,-28(1) + lwz 26,-24(1) + lwz 27,-20(1) + lwz 28,-16(1) + lwz 29,-12(1) + lwz 30,-8(1) + lwz 31,-4(1) lfd 14, -224(1) lfd 15, -216(1) lfd 16, -208(1) @@ -115,8 +115,8 @@ lfd 30, -96(1) lfd 31, -88(1) # Reload return address - lwz 0, 8(1) - mtlr 0 + lwz 0, 8(1) + mtlr 0 # Return blr @@ -126,7 +126,7 @@ # The C function will preserve them, and the Caml code does not # expect them to be preserved # Return address is in 25, RTOC is in 26 - mflr 25 + mflr 25 mr 26, 2 # Call desired function (descriptor in r11) lwz 0, 0(11) @@ -150,4 +150,3 @@ call_gen_code: .csect caml_c_call[DS] caml_c_call: .long .caml_c_call, TOC[tc0], 0 - diff --git a/tools/keywords.r b/tools/keywords.r index 8fc6fce322..08bc01ee09 100644 --- a/tools/keywords.r +++ b/tools/keywords.r @@ -54,7 +54,7 @@ resource 'Odds' (26087, "O'Caml") { }; resource 'Sods' (26087, "O'Caml Keywords") { - "\t\r\n ~!$%^&*()/-+=<>,:[]{};", + "\t\r\n ~!$%^&*()/-+=<>,[]{};", { "(*", openingFill, '(**)', red, "*)", closingFill, '(**)', red, diff --git a/yacc/Makefile.Mac b/yacc/Makefile.Mac index 00bfef15c6..fac410d387 100644 --- a/yacc/Makefile.Mac +++ b/yacc/Makefile.Mac @@ -15,14 +15,14 @@ # Makefile for the parser generator. C = sc -COptions = -d NDEBUG -model far -w 2,35 +COptions = -includes unix -d NDEBUG -model far -w 2,35 LinkOptions = -model far -msg nodup -compact -state nouse -br 68k Libs = "{libraries}IntEnv.far.o" "{libraries}MacRuntime.o" ¶ "{clibraries}StdCLib.far.o" "{libraries}MathLib.far.o" ¶ "{libraries}ToolLibs.o" "{libraries}Interface.o" PPCC = mrc -PPCCOptions = -d NDEBUG -w 2,35 +PPCCOptions = -includes unix -d NDEBUG -w 2,35 PPCLinkOptions = -d PPCLibs = "{sharedlibraries}MathLib" "{ppclibraries}PPCCRuntime.o" ¶ "{ppclibraries}PPCToolLibs.o" "{sharedlibraries}StdCLib" ¶ diff --git a/yacc/defs.h b/yacc/defs.h index 1fc8dc0476..69150826eb 100644 --- a/yacc/defs.h +++ b/yacc/defs.h @@ -20,14 +20,10 @@ #include <limits.h> #include <stdio.h> #include <stdlib.h> -#if macintosh -#include "::config:sm-Mac.h" -#else #include "../config/s.h" -#endif #if macintosh -#include "::byterun:rotatecursor.h" +#include "../byterun/rotatecursor.h" #endif /* machine-dependent definitions */ |
