mirror of
https://github.com/PDP-10/its.git
synced 2026-01-20 09:55:52 +00:00
47 lines
1.3 KiB
Common Lisp
47 lines
1.3 KiB
Common Lisp
;-*-LISP-*-
|
|
|
|
;This file contains support macros for the STRMRG package.
|
|
|
|
(macsyma-module ERMSGX macro)
|
|
|
|
(eval-when (eval compile)
|
|
(or (get 'defsetf 'version)
|
|
(load '((LISP) defsetf))))
|
|
|
|
;; The fixnum which is stored into for buffering the whole-words we get
|
|
;; back from IN. This fixnum is DEPOSITed into.
|
|
|
|
(defmacro message-file-buffer-pointer (message-file)
|
|
`(sfa-get ,message-file 0))
|
|
|
|
(defmacro message-file-buffer (message-file)
|
|
`(EXAMINE (MAKNUM (message-file-buffer-pointer ,message-file))))
|
|
|
|
;; The file array from which to read. Should be open in FIXNUM IN mode.
|
|
|
|
(defmacro message-file-file (message-file)
|
|
`(sfa-get ,message-file 1))
|
|
|
|
;; The next character out of the fixnum which should be read in response to
|
|
;; TYI. Counted down from the left. When zero, a new word must be read first.
|
|
|
|
(defmacro message-file-charno (message-file)
|
|
`(sfa-get ,message-file 2))
|
|
|
|
(defmacro message-file-header-count (message-file)
|
|
`(sfa-get ,message-file 3))
|
|
|
|
(defmacro message-file-header-offset (message-file)
|
|
`(sfa-get ,message-file 4))
|
|
|
|
(defmacro message-file-text-offset (message-file)
|
|
`(sfa-get ,message-file 5))
|
|
|
|
(defmacro message-file-alist (message-file)
|
|
`(sfa-get ,message-file 6))
|
|
|
|
(defvar message-file-size 7)
|
|
|
|
(defsetf examine ((() loc) val) ()
|
|
`(deposit ,loc ,val))
|