133 lines
4.5 KiB
Scheme
133 lines
4.5 KiB
Scheme
;;Konstanten.
|
|
;Funktion um die Oktal-Zahlen aus der Headerdatei in scheme-integer
|
|
;zu konvertieren
|
|
(define make-oct-int
|
|
(lambda (i)
|
|
(string->number (string-append "#o"
|
|
(number->string i)))))
|
|
;
|
|
;
|
|
;;Farben
|
|
;
|
|
(define color-black 0)
|
|
(define color-red 1)
|
|
(define color-green 2)
|
|
(define color-yellow 3)
|
|
(define color-blue 4)
|
|
(define color-magenta 5)
|
|
(define color-cyan 6)
|
|
(define color-white 7)
|
|
;
|
|
;
|
|
;;Sondertasten
|
|
;
|
|
(define key-code-yes (make-oct-int 0400))
|
|
(define key-min (make-oct-int 0401))
|
|
(define key-break (make-oct-int 0401))
|
|
(define key-sreset (make-oct-int 0530))
|
|
(define key-reset (make-oct-int 0531))
|
|
;
|
|
(define key-down (make-oct-int 0402))
|
|
(define key-up (make-oct-int 0403))
|
|
(define key-left (make-oct-int 0404))
|
|
(define key-right (make-oct-int 0405))
|
|
(define key-home (make-oct-int 0406))
|
|
(define key-backspace (make-oct-int 0407))
|
|
(define key-f0 (make-oct-int 0410))
|
|
;
|
|
(define key-f1 (+ (make-oct-int 0410) 1))
|
|
(define key-f2 (+ (make-oct-int 0410) 2))
|
|
(define key-f3 (+ (make-oct-int 0410) 3))
|
|
(define key-f4 (+ (make-oct-int 0410) 4))
|
|
(define key-f5 (+ (make-oct-int 0410) 5))
|
|
(define key-f6 (+ (make-oct-int 0410) 6))
|
|
(define key-f7 (+ (make-oct-int 0410) 7))
|
|
(define key-f8 (+ (make-oct-int 0410) 8))
|
|
(define key-f9 (+ (make-oct-int 0410) 9))
|
|
(define key-f10 (+ (make-oct-int 0410) 10))
|
|
(define key-f11 (+ (make-oct-int 0410) 11))
|
|
(define key-f12 (+ (make-oct-int 0410) 12))
|
|
;
|
|
(define key-dl (make-oct-int 0510))
|
|
(define key-il (make-oct-int 0511))
|
|
(define key-dc (make-oct-int 0512))
|
|
(define key-ic (make-oct-int 0513))
|
|
(define key-eic (make-oct-int 0514))
|
|
(define key-clear (make-oct-int 0515))
|
|
(define key-eos (make-oct-int 0516))
|
|
(define key-eol (make-oct-int 0517))
|
|
(define key-sf (make-oct-int 0520))
|
|
(define key-sr (make-oct-int 0521))
|
|
(define key-npage (make-oct-int 0522))
|
|
(define key-ppage (make-oct-int 0523))
|
|
(define key-stab (make-oct-int 0524))
|
|
(define key-ctab (make-oct-int 0525))
|
|
(define key-catab (make-oct-int 0526))
|
|
(define key-enter (make-oct-int 0527))
|
|
(define key-print (make-oct-int 0532))
|
|
(define key-ll (make-oct-int 0533))
|
|
(define key-a1 (make-oct-int 0534))
|
|
(define key-a3 (make-oct-int 0535))
|
|
(define key-b2 (make-oct-int 0536))
|
|
(define key-c1 (make-oct-int 0537))
|
|
(define key-c3 (make-oct-int 0540))
|
|
(define key-btab (make-oct-int 0541))
|
|
(define key-beg (make-oct-int 0542))
|
|
(define key-cancel (make-oct-int 0543))
|
|
(define key-close (make-oct-int 0544))
|
|
(define key-command (make-oct-int 0545))
|
|
(define key-copy (make-oct-int 0546))
|
|
(define key-create (make-oct-int 0547))
|
|
(define key-end (make-oct-int 0550))
|
|
(define key-exit (make-oct-int 0551))
|
|
(define key-find (make-oct-int 0552))
|
|
(define key-help (make-oct-int 0553))
|
|
(define key-mark (make-oct-int 0554))
|
|
(define key-message (make-oct-int 0555))
|
|
(define key-move (make-oct-int 0556))
|
|
(define key-next (make-oct-int 0557))
|
|
(define key-open (make-oct-int 0560))
|
|
(define key-options (make-oct-int 0561))
|
|
(define key-previous (make-oct-int 0562))
|
|
(define key-redo (make-oct-int 0563))
|
|
(define key-reference (make-oct-int 0564))
|
|
(define key-refresh (make-oct-int 0565))
|
|
(define key-replace (make-oct-int 0566))
|
|
(define key-restart (make-oct-int 0567))
|
|
(define key-resume (make-oct-int 0570))
|
|
(define key-save (make-oct-int 0571))
|
|
(define key-sbeg (make-oct-int 0572))
|
|
(define key-scancel (make-oct-int 0573))
|
|
(define key-scommand (make-oct-int 0574))
|
|
(define key-scopy (make-oct-int 0575))
|
|
(define key-screate (make-oct-int 0576))
|
|
(define key-sdc (make-oct-int 0577))
|
|
(define key-sdl (make-oct-int 0600))
|
|
(define key-select (make-oct-int 0601))
|
|
(define key-send (make-oct-int 0602))
|
|
(define key-seol (make-oct-int 0603))
|
|
(define key-sexit (make-oct-int 0604))
|
|
(define key-sfind (make-oct-int 0605))
|
|
(define key-shelp (make-oct-int 0606))
|
|
(define key-shome (make-oct-int 0607))
|
|
(define key-sic (make-oct-int 0610))
|
|
(define key-sleft (make-oct-int 0611))
|
|
(define key-smessage (make-oct-int 0612))
|
|
(define key-smove (make-oct-int 0613))
|
|
(define key-snext (make-oct-int 0614))
|
|
(define key-soptions (make-oct-int 0615))
|
|
(define key-sprevious (make-oct-int 0616))
|
|
(define key-sprint (make-oct-int 0617))
|
|
(define key-sredo (make-oct-int 0620))
|
|
(define key-sreplace (make-oct-int 0621))
|
|
(define key-sright (make-oct-int 0622))
|
|
(define key-srsume (make-oct-int 0623))
|
|
(define key-ssave (make-oct-int 0624))
|
|
(define key-ssuspend (make-oct-int 0625))
|
|
(define key-sundo (make-oct-int 0626))
|
|
(define key-suspend (make-oct-int 0627))
|
|
(define key-undo (make-oct-int 0630))
|
|
(define key-mouse (make-oct-int 0631))
|
|
(define key-resize (make-oct-int 0632))
|
|
(define key-event (make-oct-int 0633))
|