mirror of
https://github.com/PDP-10/its.git
synced 2026-01-18 09:12:08 +00:00
60 lines
2.5 KiB
Plaintext
60 lines
2.5 KiB
Plaintext
'<PCODE "CURSOR">
|
||
<RPACKAGE "CURSOR">
|
||
|
||
<USE-TOTAL "EDIT">
|
||
|
||
<SETG CURPRIN %<RSUBR!- '[ %<PCODE!- "CURSOR" 0> CURPRIN #DECL ("VALUE" <OR
|
||
ATOM STRING> CURSOR) ERR INTREAD SAMP INDENT-TO %<TYPE-C CURSOR VECTOR> %<TYPE-W
|
||
CURSOR VECTOR> OUTCHAN "(???)" "| " "ILLEGAL CURSOR" #FALSE () CURSOR T () LIST
|
||
" "
|
||
"GO" INCHAN
|
||
"!\"#$%&'(*+,-./0123456789:;<=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\^_`abcdefghijklmnopqrstuvwxyz{|}"
|
||
SEARCH+ GOTO GETPATH "ERROR, ARG TO GO NOT CURSOR" "PC" "PA" TOP-ITEM "CU"
|
||
"ERROR, ARG TO CU NOT ATOM" NULL CURS "KC" "CURRENTLY UNIMPLEMENTED COMMAND"]>>
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CURPRIN PGLUE ![717225983 -4 0!]>>
|
||
|
||
<PRINTTYPE CURSOR ,CURPRIN>
|
||
|
||
<SETG CURSORS? T>
|
||
|
||
<SETG CUP- %<RSUBR-ENTRY '[CURPRIN CUP- #DECL ("VALUE" <OR FALSE LIST> LOCATIVE
|
||
FIX FIX)] 92>>
|
||
|
||
<SETG CUP+ %<RSUBR-ENTRY '[CURPRIN CUP+ #DECL ("VALUE" <OR FALSE CURSOR>
|
||
LOCATIVE FIX FIX)] 185>>
|
||
|
||
<SETG CUP^ %<RSUBR-ENTRY '[CURPRIN CUP^ #DECL ("VALUE" ANY LOCATIVE FIX <
|
||
PRIMTYPE LIST>)] 270>>
|
||
|
||
<SETG CUP* %<RSUBR-ENTRY '[CURPRIN CUP* #DECL ("VALUE" ANY LOCATIVE FIX FIX <
|
||
PRIMTYPE LIST> "OPTIONAL" ANY)] 407>>
|
||
|
||
<SETG ATTACH %<RSUBR-ENTRY '[CURPRIN ATTACH #DECL ("VALUE" ANY LOCATIVE ANY)]
|
||
553>>
|
||
|
||
<SETG PRINCUR %<RSUBR-ENTRY '[CURPRIN PRINCUR #DECL ("VALUE" ANY LOCATIVE <
|
||
PRIMTYPE LIST> CHANNEL)] 650>>
|
||
|
||
<SETG CUREDIT %<RSUBR-ENTRY '[CURPRIN CUREDIT #DECL ("VALUE" ANY STRING LOCATIVE
|
||
FIX)] 765>>
|
||
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CURPRIN GLUE ![1096024080 5170724979
|
||
-16722952100 -4026253312 4177542720 263175 -8842544128 1074004736 1074791424
|
||
4523328 4097 -2210636032 1073745920 512012 4630855680 4281412 15734720
|
||
1006919548 268505088 283908 4366271424 6375342320 4294967376 17515675648
|
||
15825920 265310229 4198401 17825804 1090523636 17112761360 16777217 1427115508
|
||
16106413948 352391168 18170816 -17164136448 267587 -16167010300 1048577
|
||
4693491728 67337472 1066245 17179869200 3949632 16176397504 -34352133108
|
||
-941343680 12902789568 -17129467663 3237151236 33891026752 -4290265083
|
||
22552772864 20669592912 -4290443908 520880128 15728880 -15988686848 205290496
|
||
277630 17179870207 262148 786532 786625 786710 1048999 1311139 524847 787090
|
||
787205!]>>
|
||
|
||
<SETG CUREDIT-TABLE <MAPF ,VECTOR <FUNCTION (STR) <MAPRET .STR ,CUREDIT>> '["GO"
|
||
"PC" "PA" "CU" "KC"]>>
|
||
|
||
<COND (<GASSIGNED? EDIT-TABLE> <SETG EDIT-TABLE [!,EDIT-TABLE !,CUREDIT-TABLE]>)
|
||
(<SETG EDIT-TABLE ,CUREDIT-TABLE>)>
|
||
|
||
<ENDPACKAGE>
|