Searched refs:tokL (Results 1 – 10 of 10) sorted by relevance
43 if cIn.tokL = 'var' then begin45 while (cIn.tokL <>'begin') and (cIn.tokL <>'const') and46 (cIn.tokL <>'type') and (cIn.tokL <>'var') do begin51 if cIn.tokL = 'begin' then begin56 while not cIn.Eof and (cIn.tokL<>'end') do begin72 if cIn.tokL <> 'end' then begin //verifica si termina el programa
68 if cIn.tokL = 'var' then begin70 while (cIn.tokL <>'begin') and (cIn.tokL <>'const') and71 (cIn.tokL <>'type') and (cIn.tokL <>'var') do begin76 if cIn.tokL = 'begin' then begin81 while not cIn.Eof and (cIn.tokL<>'end') do begin96 if cIn.tokL <> 'end' then begin //verifica si termina el programa
86 if cIn.tokL = 'var' then begin88 while (cIn.tokL <>'begin') and (cIn.tokL <>'const') and89 (cIn.tokL <>'type') and (cIn.tokL <>'var') do begin94 if cIn.tokL = 'begin' then begin99 while not cIn.Eof and (cIn.tokL<>'end') do begin114 if cIn.tokL <> 'end' then begin //verifica si termina el programa
119 Result := (cIn.tokL ='var') or (cIn.tokL ='const') or120 (cIn.tokL ='type') or (cIn.tokL ='procedure');261 if cIn.tokL = 'else' then begin535 if cIn.tokL = 'else' then begin1556 if cIn.tokL = 'var' then begin1612 if cIn.tokL='begin' then begin1728 if cIn.tokL = 'unit' then begin1768 if cIn.tokL = 'var' then begin1866 if cIn.tokL = 'uses' then begin1934 if cIn.tokL = 'unit' then begin[all …]
100 Result := (cIn.tokL ='var') or (cIn.tokL ='const') or101 (cIn.tokL ='type') or (cIn.tokL ='procedure');242 if cIn.tokL = 'else' then begin515 if cIn.tokL = 'else' then begin1534 if cIn.tokL = 'var' then begin1590 if cIn.tokL='begin' then begin1705 if cIn.tokL = 'unit' then begin1745 if cIn.tokL = 'var' then begin1845 if cIn.tokL = 'uses' then begin1913 if cIn.tokL = 'unit' then begin[all …]
116 Result := (cIn.tokL ='var') or (cIn.tokL ='const') or117 (cIn.tokL ='type') or (cIn.tokL ='procedure');258 if cIn.tokL = 'else' then begin532 if cIn.tokL = 'else' then begin1553 if cIn.tokL = 'var' then begin1609 if cIn.tokL='begin' then begin1724 if cIn.tokL = 'unit' then begin1764 if cIn.tokL = 'var' then begin1864 if cIn.tokL = 'uses' then begin1932 if cIn.tokL = 'unit' then begin[all …]
117 Result := (cIn.tokL ='var') or (cIn.tokL ='const') or118 (cIn.tokL ='type') or (cIn.tokL ='procedure');259 if cIn.tokL = 'else' then begin533 if cIn.tokL = 'else' then begin1554 if cIn.tokL = 'var' then begin1610 if cIn.tokL='begin' then begin1725 if cIn.tokL = 'unit' then begin1765 if cIn.tokL = 'var' then begin1865 if cIn.tokL = 'uses' then begin1933 if cIn.tokL = 'unit' then begin[all …]
554 if cIn.tokL<>str then begin683 identif := cIn.tokL;883 (cIn.tokL = 'bit') or //"bit" es de tipo "tnType"884 (cIn.tokL = 'boolean') or //"boolean" es de tipo "tnType"885 (cIn.tokL = 'byte') or //"byte" es de tipo "tnType"886 (cIn.tokL = 'word') or //"word" es de tipo "tnType"887 (cIn.tokL = 'dword') then begin //"dword" es de tipo "tnType"
159 function tokL: string; //token actual en minúscula in tokL() function595 function TContexts.tokL: string; inline; in tokL() function