mirror of
https://github.com/PDP-10/its.git
synced 2026-02-18 05:34:15 +00:00
50 lines
1.7 KiB
Plaintext
Executable File
50 lines
1.7 KiB
Plaintext
Executable File
; -*-MIDAS-*-
|
||
TITLE EXTMDF -- Midas definitions for CLASS fields
|
||
|
||
DEFINE CDEF index,prefix,parity,long,short
|
||
prefix!short==index
|
||
DEFINE %!long ac1,obj
|
||
h!parity!rz ac1,prefix!short obj
|
||
TERMIN
|
||
DEFINE $!long ac1,obj
|
||
hr!parith!m ac1,prefix!short obj
|
||
TERMIN
|
||
TERMIN
|
||
|
||
IRPW SYMS,,[
|
||
CLASS,CLS ;; CLASS of this CLASS
|
||
MARKER,MRK ;; Marker to distinguish classes from hunks
|
||
SENDI,SND ;; LSUBR-like function to jump to for SENDs to instances
|
||
SENDSYM,SNS ;; Original symbol or LAMBDA the LSUBR came from
|
||
CALLI,CLI ;; Similar to SENDI but for function calling
|
||
CALLSYM,CLS ;; ditto
|
||
MAPMTH,MMT ;; MAP-OVER-METHODS SUBR
|
||
MAPMSYM,MMS ;; MAP-OVER-METHODS SUBR's Symbol
|
||
MAPCLS,MCL ;; MAP-OVER-CLASS SUBR
|
||
MAPCSYM,MCL ;; MAP-OVER-CLASS SUBR's Symbol
|
||
ADMTH,ADM ;; Add method routine. FUNCALLed
|
||
TYPEP,TYP ;; What to return to TYPEP (except in BD MacLisp)
|
||
SUPER,SUP ;; List of superiors, in order of search
|
||
NAME,NAM ;; Name of this class, short form of the var
|
||
METHD,MTH ;; Table (or list) of Methods. Interpreted by SENDI slot.
|
||
ATTRI,ATR ;; PLIST of random information
|
||
]
|
||
IFE .irpcnt&1, CDEF \<.irpcnt/2>,CR$,R,SYMS ;Don't delete this comment
|
||
.ELSE CDEF \<.irpcnt/2>,CL$,L,SYMS ;Or this one either!
|
||
TERMIN
|
||
|
||
IRPW SYMS,,[
|
||
MNEXT,NXT ;; Next method in bucket chain
|
||
MNAME,NAM ;; Method symbol, name of method
|
||
MSUBR,SRB ;; LSUBR property for method, or trampoline to interpreted
|
||
MFSYM,FSY ;; Name of method function, for reference or trampoline
|
||
]
|
||
IFE .irpcnt&1, CDEF \<.irpcnt/2>,MR$,R,SYMS ;This comment required
|
||
.ELSE CDEF \<.irpcnt/2>,ML$,L,SYMS ;Do to MIDAS parsing stuff
|
||
TERMIN
|
||
|
||
;Local Modes: :::
|
||
;Comment Column:17 :::
|
||
;Comment Start:;; :::
|
||
;End: :::
|