Initial revision

diff --git a/v7/src/runtime/ed-ffi.scm b/v7/src/runtime/ed-ffi.scm
new file mode 100644 (file)
index 0000000..19d9908
--- /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