|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1426 (0x592)
Types: TextFile
Names: »CHARCLASSTABLE.S«
└─⟦b8af24a88⟧ Bits:30005796 CR80 Disc Pack ( MINICAMPS )
└─ ⟦this⟧ »GENS.D!D_PARSE.D!CHARCLASSTABLE.S«
"-----------------------------------------------------------------------
"
"
" MODULE NAME: CHARACTER CLASS TABLE
" MODULE ID NMB: CSS/210
" MODULE VERSION: 1
" MODULE TYPE: LINK (SUB)MODULE
" MERGE FILES: -
"
" SPECIFICATIONS: -
" AUTHOR/DATE: LKN/810102
"
" DELIVERABLE: YES
" SOURCE LANGUAGE: SWELL
" COMPILE COMPUTER: CR80
" TARGET COMPUTER: CR80
" OPER. SYSTEM: -
"
"-----------------------------------------------------------------------
"
" CHANGE RECORD
"
" VERSION AUTHOR/DATE DESCRIPTION OF CHANGE
" ------- ----------- ---------------------
"
"-----------------------------------------------------------------------
"PAGE«ff»
SUBMODULE CHAR_CLASS_TABLE;
" CHARACTER CLASSES
TYPE
CHARCLASS =
( SKIP,
ALFA,
NUMERIC,
DELIMITER,
COMMENTCHAR,
STRINGCHAR,
HEXCHAR,
IGNORE,
ESCAPE );
EXPORT VAR
CHARCLASSTABLE: ARRAY [0..127] OF BYTE;
INIT
CHARCLASSTABLE = DELIMITER;
CHARCLASSTABLE ['A'..'Z'] = ALFA;
CHARCLASSTABLE ['a'..'z'] = ALFA;
CHARCLASSTABLE ['_'..'_'] = ALFA;
CHARCLASSTABLE ['0'..'9'] = NUMERIC;
CHARCLASSTABLE ['"'..'"'] = COMMENTCHAR;
CHARCLASSTABLE [''''..''''] = STRINGCHAR;
CHARCLASSTABLE ['#'..'#'] = HEXCHAR;
CHARCLASSTABLE ['%'..'%'] = ESCAPE;
CHARCLASSTABLE [0..0] = SKIP;
CHARCLASSTABLE [1..32] = IGNORE;
CHARCLASSTABLE [10..10] = DELIMITER;
ENDMODULE; «a5»