;* SCHEME.INI ; these are here just for portabability purposes. ; (define t #T) ; (define nil #F) ; history.ini is a computer-generated file updated ; at each (exit) call with errorlevel 0. ; it is supposed to look like: ; (%push-history (quote ("(exit)" "..." "..."))) (if (file-exists? "HISTORY.INI") (load "HISTORY.INI")) ; an sample io error handler, more friendly than INSPECT (load (%system-file-name "errhand.fsl")) ; this is how to create a scheme editor running under PCS/Gva ; uncomment this line if you want to use it ; (define ed (make-scheme-editor)) ; Now define macro keys ; 59 -> 68 are function keys F1 -> F10 (define pcs-macro-keys '( (59 "(display \"not in edwin\")") ; F1: eval/print sexp (60 "(display \"not in edwin\")") ; F2: eval/print region (61 "(display \"not in edwin\")") ; F3: eval/print buffer (62 "(display \"not defined\")") ; F4: (63 "(edwin)") ; F5: switch editor/console (64 "(display \"not defined\")") ; F6: resize console (65 "(display \"not defined\")") ; F7: (66 "(display \"not defined\")") ; F8: (67 "(display \"defined in edwin\")") ; F9: split screen (68 "(window-clear 'console)"))) ; F10: clear console ; This is how to teach PCS/GE ; to complete with TAB symbols neither ; bounds in global environment, nor ; autoloadable, nor having properties (pcs-learn-symbols '(CONSOLE TEXT-ATTRIBUTES BORDER-ATTRIBUTES)) (window-set-attribute! 'console 'text-attributes #h70) (window-set-size! 'console 24 80) (window-set-size! pcs-status-window 1 80) (window-set-position! pcs-status-window 24 0) (set-car! max-console 24) (window-clear 'console) (writeln "SCHEME.INI loaded") (set! pcs-debug-mode #F) ; (text-mode 3) (dos-call "c:/rbin/cursor.com") (edwin)