From 4436ef7927830510f198d1e07f248e6a148ace55 Mon Sep 17 00:00:00 2001 From: Arthur Gleckler Date: Wed, 28 Aug 1991 22:38:32 +0000 Subject: [PATCH] Initial revision --- v7/src/runtime/ed-ffi.scm | 248 ++++++++++++++++++++++++++++++++++++++ 1 file changed, 248 insertions(+) create mode 100644 v7/src/runtime/ed-ffi.scm 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 -- 2.25.1