SCAN(ID:4362/sca010)

Conversational programming language for text analysis 

MODULE Cat_To_Fox;
     TOKEN Char_Pattern { 'cat' };
     MACRO Token_Pattern TRIGGER { Char_Pattern };
          ANSWER 'fox';
     END MACRO /* Token_Pattern */;
     PROCEDURE Director MAIN;
     START SCAN
     INPUT STRING
     'The quick brown cat jumps over the lazy dog'
     OUTPUT FILE 'TT:' END PROCEDURE /* Director */;
END MODULE /* Cat_To_Fox */;

Close
Listing 1
DECLARE t : TREEPTR( STRING ) TO INTEGER;
t = FIRST( Language_Users );
WHILE t <> NIL;
     WRITE SUBSCRIPT( t ), ' ', VALUE (t);
     t = NEXT( t );
END WHILE;

Close
Listing 3
MODULE WordCount;
     SET Alpha ( 'a' .. 'z' );
     TOKEN Word CASELESS { Alpha... };
     DECLARE N_Words : INTEGER;
     MACRO Get_Word TRIGGER { Word };
          N_Words = N_Words + 1;
     END MACRO /* Get_Word */;
     PROCEDURE Director MAIN;
          START SCAN
               INPUT FILE 'SCN$INPUT'
               OUTPUT FILE 'NL:';
          WRITE 'Total Word Count = ', N_Words;
     END PROCEDURE /* Director */;
END MODULE /* Word-Count */;
Close
Listing 2
MODULE Fox_Count;
     SET Alpha { 'a' .. 'z' );
     TOKEN Cat_Key CASELESS { 'cat' };
     TOKEN Single_Char CASELESS { Alpha };
     DECLARE Char_Tree : TREE (STRING) OF INTEGER;
     MACRO Cat_To_Fox TRIGGER { Cat_Key };
     ANSWER TRIGGER 'fox';
     END MACRO /* Cat_To_Fox */;
     MACRO Char_Count TRIGGER { This_Char : Single_Char };
     This_Char = LOWER{ This_Char );
     Char_Tree( This_Char ) = Char_Tree( This_Char ) + 1;
     END MACRO /* Char_Count */;
     PROCEDURE Director MAIN;
          DECLARE t : TREEPTR( STRING ) TO INTEGER;
     START SCAN
          INPUT STRING
               'The quick brown cat jumps over the lazy dog'
          OUTPUT FILE 'TT:';
          t = FIRST( Char_Tree };
          WHILE t <> NIL;
               WRITE SUBSCRIPT t ), ' ', VALUE (t);
               t = NEXT( t );
          END WHILE;
     END PROCEDURE /* Director */;
END MODULE /* Fox-Count */;


Close
Listing 4