home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbopas / tlist11.lbr / SETUPHSH.PQS / setuphsh.pas
Pascal/Delphi Source File  |  1985-11-08  |  2KB  |  50 lines
  1. PROCEDURE Set_up_hash_tables;
  2. {
  3. This procedure sets up the hash tables for each symbol found in the "reserved
  4. words", "standard identifiers", and "dedicated identifiers" symbol tables.
  5. The symbols are read from and written to the same symbol tables so that the
  6. hash routines may be lifted "en masse" and used elsewhere where the
  7. tables (including the symbol tables) must be built one word at a time.
  8. }
  9.  
  10. BEGIN
  11.  Count := 0;
  12.  FOR I := 1 TO Res_Word_Hsh_size DO Reserved_Word_HT[I] := 0;
  13.  FOR I := 1 TO No_Reserved_Words DO Reserved_Word_CT[I] := 0;
  14.  FOR I := 1 TO No_Reserved_Words DO
  15.   BEGIN
  16.    Symbol := Reserved_Word_ST[I];
  17.    Store_Symbol(Symbol, Reserved_Word_HT, Reserved_Word_CT, Reserved_Word_ST,
  18.     Res_Word_Hsh_size, FALSE, Count);
  19.   END;
  20.  Count := 0;
  21.  FOR I := 1 TO Stan_Ident_Hsh_size DO Standard_Identifier_HT[I] := 0;
  22.  FOR I := 1 TO No_Standard_Identifiers DO Standard_Identifier_CT[I] := 0;
  23.  FOR I := 1 TO No_Standard_Identifiers DO
  24.   BEGIN
  25.    Symbol := Standard_Identifier_ST[I];
  26.    Find_Symbol(Symbol, Reserved_Word_HT, Reserved_Word_CT, Reserved_Word_ST,
  27.     Res_Word_Hsh_size, Found, Dummy);
  28.    IF NOT Found THEN
  29.     Store_Symbol(Symbol, Standard_Identifier_HT, Standard_Identifier_CT,
  30.      Standard_Identifier_ST, Stan_Ident_Hsh_size, FALSE, Count);
  31.   END;
  32.  Count := 0;
  33.  FOR I := 1 TO Ded_Ident_Hsh_size DO Dedicated_Identifier_HT[I] := 0;
  34.  FOR I := 1 TO No_Dedicated_Identifiers DO Dedicated_Identifier_HT[I] :=0;
  35.  FOR I := 1 TO No_Dedicated_Identifiers DO
  36.   BEGIN
  37.    Symbol := Dedicated_Identifier_ST[I];
  38.    Find_Symbol(Symbol, Reserved_Word_HT, Reserved_Word_CT, Reserved_Word_ST,
  39.     Res_Word_Hsh_size, Found, Dummy);
  40.    IF NOT Found THEN
  41.     BEGIN
  42.      Find_Symbol(Symbol, Standard_Identifier_HT, Standard_Identifier_CT,
  43.       Standard_Identifier_ST, Stan_Ident_Hsh_size, Found, Dummy);
  44.      IF NOT Found THEN
  45.       Store_Symbol(Symbol, Dedicated_Identifier_HT, Dedicated_Identifier_CT,
  46.        Dedicated_Identifier_ST, Ded_Ident_Hsh_size, FALSE, Count);
  47.     END;
  48.   END;
  49. END;
  50.