mirror of
https://github.com/PDP-10/its.git
synced 2026-01-14 15:45:47 +00:00
2.5 KiB
2.5 KiB
'<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>
<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>