Home
last modified time | relevance | path

Searched refs:tokL (Results 1 – 10 of 10) sorted by relevance

/dports/editors/picpas/PicPas-7940bc3/txpres/Demo5 - Interprete basico/
H A Dparser.pas43 if cIn.tokL = 'var' then begin
45 while (cIn.tokL <>'begin') and (cIn.tokL <>'const') and
46 (cIn.tokL <>'type') and (cIn.tokL <>'var') do begin
51 if cIn.tokL = 'begin' then begin
56 while not cIn.Eof and (cIn.tokL<>'end') do begin
72 if cIn.tokL <> 'end' then begin //verifica si termina el programa
/dports/editors/picpas/PicPas-7940bc3/txpres/Demo6 - IDE con compilador a ASM8086/
H A DParser.pas68 if cIn.tokL = 'var' then begin
70 while (cIn.tokL <>'begin') and (cIn.tokL <>'const') and
71 (cIn.tokL <>'type') and (cIn.tokL <>'var') do begin
76 if cIn.tokL = 'begin' then begin
81 while not cIn.Eof and (cIn.tokL<>'end') do begin
96 if cIn.tokL <> 'end' then begin //verifica si termina el programa
H A Dparser.pas86 if cIn.tokL = 'var' then begin
88 while (cIn.tokL <>'begin') and (cIn.tokL <>'const') and
89 (cIn.tokL <>'type') and (cIn.tokL <>'var') do begin
94 if cIn.tokL = 'begin' then begin
99 while not cIn.Eof and (cIn.tokL<>'end') do begin
114 if cIn.tokL <> 'end' then begin //verifica si termina el programa
/dports/editors/picpas/PicPas-7940bc3/Source/
H A DCompiler_PIC16.pas119 Result := (cIn.tokL ='var') or (cIn.tokL ='const') or
120 (cIn.tokL ='type') or (cIn.tokL ='procedure');
261 if cIn.tokL = 'else' then begin
535 if cIn.tokL = 'else' then begin
1556 if cIn.tokL = 'var' then begin
1612 if cIn.tokL='begin' then begin
1728 if cIn.tokL = 'unit' then begin
1768 if cIn.tokL = 'var' then begin
1866 if cIn.tokL = 'uses' then begin
1934 if cIn.tokL = 'unit' then begin
[all …]
H A DCompilerPIC16.pas100 Result := (cIn.tokL ='var') or (cIn.tokL ='const') or
101 (cIn.tokL ='type') or (cIn.tokL ='procedure');
242 if cIn.tokL = 'else' then begin
515 if cIn.tokL = 'else' then begin
1534 if cIn.tokL = 'var' then begin
1590 if cIn.tokL='begin' then begin
1705 if cIn.tokL = 'unit' then begin
1745 if cIn.tokL = 'var' then begin
1845 if cIn.tokL = 'uses' then begin
1913 if cIn.tokL = 'unit' then begin
[all …]
H A DCompiler_PIC17.pas116 Result := (cIn.tokL ='var') or (cIn.tokL ='const') or
117 (cIn.tokL ='type') or (cIn.tokL ='procedure');
258 if cIn.tokL = 'else' then begin
532 if cIn.tokL = 'else' then begin
1553 if cIn.tokL = 'var' then begin
1609 if cIn.tokL='begin' then begin
1724 if cIn.tokL = 'unit' then begin
1764 if cIn.tokL = 'var' then begin
1864 if cIn.tokL = 'uses' then begin
1932 if cIn.tokL = 'unit' then begin
[all …]
H A DCompiler_PIC10.pas117 Result := (cIn.tokL ='var') or (cIn.tokL ='const') or
118 (cIn.tokL ='type') or (cIn.tokL ='procedure');
259 if cIn.tokL = 'else' then begin
533 if cIn.tokL = 'else' then begin
1554 if cIn.tokL = 'var' then begin
1610 if cIn.tokL='begin' then begin
1725 if cIn.tokL = 'unit' then begin
1765 if cIn.tokL = 'var' then begin
1865 if cIn.tokL = 'uses' then begin
1933 if cIn.tokL = 'unit' then begin
[all …]
H A DParser.pas554 if cIn.tokL<>str then begin
683 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"
/dports/editors/picpas/PicPas-7940bc3/_libraries/Xpres-1.3.2/
H A DXpresBas.pas159 function tokL: string; //token actual en minúscula in tokL() function
595 function TContexts.tokL: string; inline; in tokL() function
/dports/editors/picpas/PicPas-7940bc3/txpres/
H A DXpresBas.pas159 function tokL: string; //token actual en minúscula in tokL() function
595 function TContexts.tokL: string; inline; in tokL() function