home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / AAKXREF.ZIP / STRTPARS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-04-24  |  792 b   |  21 lines
  1.    PROCEDURE Start_Parsing ;
  2.    BEGIN (* NESTED START PARSING *)
  3.       IF f in ['a'..'z','A'..'Z','_']
  4.       THEN BEGIN (* ALPHA *)
  5.               id := f;
  6.               scan := symbol
  7.            END
  8.       ELSE BEGIN (* NOT ALPHA *)
  9.               Add_Line_Ch ( Line , f ) ;
  10.               IF f = '''' THEN scan := quote
  11.               ELSE BEGIN (* NOT ALPHA OR QUOTE *)
  12.                       IF f = '{'
  13.                       THEN BEGIN
  14.                               scan := com1;
  15.                               IF 'I' in switches THEN parsing_for_dollars := true ;
  16.                            END
  17.                       ELSE IF f = '(' THEN scan := pcom2 ;
  18.                    END ; (* NOT ALPHA OR QUOTE *)
  19.            END ; (* NOT ALPHA *)
  20.    END ; (* NESTED START PARSING *)
  21.