mirror of
https://github.com/PDP-10/its.git
synced 2026-01-13 07:19:57 +00:00
25 lines
761 B
Plaintext
25 lines
761 B
Plaintext
'<PCODE "RSPARS">
|
|
|
|
<PACKAGE "CHARAC">
|
|
|
|
<ENTRY LETTERP DIGITP UPPER-CASE LOWER-CASE ANY-LOWER-CASE?>
|
|
|
|
<SETG ANY-LOWER-CASE? %<RSUBR!- '[ %<PCODE!- "RSPARS" 0> ANY-LOWER-CASE? #DECL
|
|
("VALUE" <OR FALSE FIX> STRING)]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,ANY-LOWER-CASE? PGLUE ![0!]>>
|
|
|
|
|
|
<SETG LETTERP %<RSUBR-ENTRY '[ANY-LOWER-CASE? LETTERP #DECL ("VALUE" <OR FALSE
|
|
CHARACTER> CHARACTER)] 19>>
|
|
|
|
<SETG DIGITP %<RSUBR-ENTRY '[ANY-LOWER-CASE? DIGITP #DECL ("VALUE" <OR FALSE
|
|
CHARACTER> CHARACTER)] 35>>
|
|
|
|
<SETG UPPER-CASE %<RSUBR-ENTRY '[ANY-LOWER-CASE? UPPER-CASE #DECL ("VALUE" <
|
|
PRIMTYPE STRING> <PRIMTYPE STRING>)] 49>>
|
|
|
|
<SETG LOWER-CASE %<RSUBR-ENTRY '[ANY-LOWER-CASE? LOWER-CASE #DECL ("VALUE" <
|
|
PRIMTYPE STRING> <PRIMTYPE STRING>)] 68>>
|
|
|
|
<ENDPACKAGE>
|