From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Wed, 28 Aug 1991 22:38:32 +0000 (+0000)
Subject: Initial revision
X-Git-Tag: 20090517-FFI~10265
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4436ef7927830510f198d1e07f248e6a148ace55;p=mit-scheme.git

Initial revision
---

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
new file mode 100644
index 000000000..19d99088c
--- /dev/null
+++ b/v7/src/runtime/ed-ffi.scm
@@ -0,0 +1,248 @@
+;;; -*- Scheme -*-
+
+(declare (usual-integrations))
+
+(standard-scheme-find-file-initialization
+ '#(
+    ("Sgraph"	(runtime starbase-graphics)
+		syntax-table/system-internal)
+    ("advice"	(runtime advice)
+		syntax-table/system-internal)
+    ("arith"	(runtime number)
+		syntax-table/system-internal)
+    ("bitstr"	()
+		syntax-table/system-internal)
+    ("boole"	()
+		syntax-table/system-internal)
+    ("boot"	()
+		syntax-table/system-internal)
+    ("char"	(runtime character)
+		syntax-table/system-internal)
+    ("chrset"	(runtime character-set)
+		syntax-table/system-internal)
+    ("codwlk"	(runtime scode-walker)
+		syntax-table/system-internal)
+    ("conpar"	(runtime continuation-parser)
+		syntax-table/system-internal)
+    ("contin"	(runtime continuation)
+		syntax-table/system-internal)
+    ("cpoint"	(runtime control-point)
+		syntax-table/system-internal)
+    ("datime"	(runtime date/time)
+		syntax-table/system-internal)
+    ("dbgcmd"	(runtime debugger-command-loop)
+		syntax-table/system-internal)
+    ("dbgutl"	(runtime debugger-utilities)
+		syntax-table/system-internal)
+    ("debug"	(runtime debugger)
+		syntax-table/system-internal)
+    ("defstr"	(runtime defstruct)
+		syntax-table/system-internal)
+    ("dragon4"	(runtime number)
+		syntax-table/system-internal)
+    ("emacs"	(runtime emacs-interface)
+		syntax-table/system-internal)
+    ("equals"	()
+		syntax-table/system-internal)
+    ("error"	(runtime error-handler)
+		syntax-table/system-internal)
+    ("events"	(runtime event-distributor)
+		syntax-table/system-internal)
+    ("filein"	(runtime file-input)
+		syntax-table/system-internal)
+    ("filout"	(runtime file-output)
+		syntax-table/system-internal)
+    ("fixart"	()
+		syntax-table/system-internal)
+    ("format"	(runtime format)
+		syntax-table/system-internal)
+    ("framex"	(runtime debugging-info)
+		syntax-table/system-internal)
+    ("gc"	(runtime garbage-collector)
+		syntax-table/system-internal)
+    ("gcdemn"	(runtime gc-daemons)
+		syntax-table/system-internal)
+    ("gcnote"	(runtime gc-notification)
+		syntax-table/system-internal)
+    ("gcstat"	(runtime gc-statistics)
+		syntax-table/system-internal)
+    ("gdatab"	(runtime global-database)
+		syntax-table/system-internal)
+    ("genin"	(runtime generic-input)
+		syntax-table/system-internal)
+    ("genout"	(runtime generic-output)
+		syntax-table/system-internal)
+    ("gensym"	(runtime gensym)
+		syntax-table/system-internal)
+    ("global"	()
+		syntax-table/system-internal)
+    ("graphics"	(runtime graphics)
+		syntax-table/system-internal)
+    ("hash"	(runtime hash)
+		syntax-table/system-internal)
+    ("hashtb"	(runtime hash-table)
+		syntax-table/system-internal)
+    ("histry"	(runtime history)
+		syntax-table/system-internal)
+    ("infstr"	(runtime compiler-info)
+		syntax-table/system-internal)
+    ("infutl"	(runtime compiler-info)
+		syntax-table/system-internal)
+    ("input"	(runtime input-port)
+		syntax-table/system-internal)
+    ("intrpt"	(runtime interrupt-handler)
+		syntax-table/system-internal)
+    ("io"	(runtime primitive-io)
+		syntax-table/system-internal)
+    ("lambda"	(runtime lambda-abstraction)
+		syntax-table/system-internal)
+    ("lambdx"	()
+		syntax-table/system-internal)
+    ("list"	(runtime list)
+		syntax-table/system-internal)
+    ("load"	(runtime load)
+		syntax-table/system-internal)
+    ("macros"	(runtime macros)
+		syntax-table/system-internal)
+    ("msort"	()
+		syntax-table/system-internal)
+    ("numint"	(runtime number interface)
+		syntax-table/system-internal)
+    ("numpar"	(runtime number-parser)
+		syntax-table/system-internal)
+    ("option"	(runtime options)
+		syntax-table/system-internal)
+    ("output"	(runtime output-port)
+		syntax-table/system-internal)
+    ("packag"	(package)
+		syntax-table/system-internal)
+    ("parse"	(runtime parser)
+		syntax-table/system-internal)
+    ("partab"	(runtime parser-table)
+		syntax-table/system-internal)
+    ("pathnm"	(runtime pathname)
+		syntax-table/system-internal)
+    ("poplat"	(runtime population)
+		syntax-table/system-internal)
+    ("pp"	(runtime pretty-printer)
+		syntax-table/system-internal)
+    ("prgcop"	(runtime program-copier)
+		syntax-table/system-internal)
+    ("process"	(runtime subprocess)
+		syntax-table/system-internal)
+    ("prop1d"	(runtime 1d-property)
+		syntax-table/system-internal)
+    ("prop2d"	(runtime 2D-property)
+		syntax-table/system-internal)
+    ("qsort"	()
+		syntax-table/system-internal)
+    ("queue"	()
+		syntax-table/system-internal)
+    ("random"	(runtime random-number)
+		syntax-table/system-internal)
+    ("record"	(runtime record)
+		syntax-table/system-internal)
+    ("rep"	(runtime rep)
+		syntax-table/system-internal)
+    ("savres"	(runtime save/restore)
+		syntax-table/system-internal)
+    ("scan"	(runtime scode-scan)
+		syntax-table/system-internal)
+    ("scode"	(runtime scode)
+		syntax-table/system-internal)
+    ("scomb"	(runtime scode-combinator)
+		syntax-table/system-internal)
+    ("sdata"	(runtime scode-data)
+		syntax-table/system-internal)
+    ("sfile"	()
+		syntax-table/system-internal)
+    ("socket"	(runtime socket)
+		syntax-table/system-internal)
+    ("starbase"	(runtime starbase-graphics)
+		syntax-table/system-internal)
+    ("stream"	(runtime stream)
+		syntax-table/system-internal)
+    ("string"	()
+		syntax-table/system-internal)
+    ("strnin"	(runtime string-input)
+		syntax-table/system-internal)
+    ("strott"	(runtime truncated-string-output)
+		syntax-table/system-internal)
+    ("strout"	(runtime string-output)
+		syntax-table/system-internal)
+    ("syntab"	(runtime syntax-table)
+		syntax-table/system-internal)
+    ("syntax"	(runtime syntaxer)
+		syntax-table/system-internal)
+    ("sysclk"	(runtime system-clock)
+		syntax-table/system-internal)
+    ("sysmac"	(runtime system-macros)
+		syntax-table/system-internal)
+    ("system"	(runtime system)
+		syntax-table/system-internal)
+    ("tscript"	(runtime transcript)
+		syntax-table/system-internal)
+    ("ttyin"	(runtime console-input)
+		syntax-table/system-internal)
+    ("ttyout"	(runtime console-output)
+		syntax-table/system-internal)
+    ("udata"	()
+		syntax-table/system-internal)
+    ("uenvir"	(runtime environment)
+		syntax-table/system-internal)
+    ("uerror"	(runtime microcode-errors)
+		syntax-table/system-internal)
+    ("unkcwd"	(runtime working-directory)
+		syntax-table/system-internal)
+    ("unkdir"	(runtime directory)
+		syntax-table/system-internal)
+    ("unkpar"	(runtime pathname-parser)
+		syntax-table/system-internal)
+    ("unkpth"	()
+		syntax-table/system-internal)
+    ("unkunp"	(runtime pathname-unparser)
+		syntax-table/system-internal)
+    ("unpars"	(runtime unparser)
+		syntax-table/system-internal)
+    ("unsyn"	(runtime unsyntaxer)
+		syntax-table/system-internal)
+    ("unxcwd"	(runtime working-directory)
+		syntax-table/system-internal)
+    ("unxdir"	(runtime directory)
+		syntax-table/system-internal)
+    ("unxpar"	(runtime pathname-parser)
+		syntax-table/system-internal)
+    ("unxprm"	()
+		syntax-table/system-internal)
+    ("unxpth"	()
+		syntax-table/system-internal)
+    ("unxunp"	(runtime pathname-unparser)
+		syntax-table/system-internal)
+    ("uproc"	(runtime procedure)
+		syntax-table/system-internal)
+    ("urtrap"	(runtime reference-trap)
+		syntax-table/system-internal)
+    ("utabs"	(runtime microcode-tables)
+		syntax-table/system-internal)
+    ("vector"	()
+		syntax-table/system-internal)
+    ("version"	(runtime)
+		syntax-table/system-internal)
+    ("vmscwd"	(runtime working-directory)
+		syntax-table/system-internal)
+    ("vmspar"	(runtime pathname-parser)
+		syntax-table/system-internal)
+    ("vmspth"	()
+		syntax-table/system-internal)
+    ("vmsunp"	(runtime pathname-unparser)
+		syntax-table/system-internal)
+    ("where"	(runtime environment-inspector)
+		syntax-table/system-internal)
+    ("wind"	(runtime state-space)
+		syntax-table/system-internal)
+    ("wrkdir"	(runtime working-directory)
+		syntax-table/system-internal)
+    ("x11graph"	(runtime X-graphics)
+		syntax-table/system-internal)
+    ("xeval"	(runtime extended-scode-eval)
+		syntax-table/system-internal)))
\ No newline at end of file