PASCAL.doc

{***************************TIParser****************************}

constructorTIParser.Create;
begin
inheritedCreate;
FHistory:=TStringList.Create;
HistorySize:=10;
Style:=psPascal;
end;

destructorTIParser.Destroy;
begin
FHistory.Free;
inheritedDestroy;
end;

functionTIParser.Token:string;
var
P,F:PChar;
const
{$IFDEFRA_D}
StSkip=['',#10,#13];
{$ENDIFRA_D}
{$IFDEFRA_B}
StSkip=''#10#13;
{$ENDIFRA_B}

procedureSkipComments;
begin
caseP[0]of
'{':
ifFStyle=psPascalthen
begin
F:=StrScan(P+1,'}');
ifF=nilthenIParserError(ieBadRemark,P-FpcProgram);
P:=F+1;
end;
'}':
ifFStyle=psPascalthenIParserError(ieBadRemark,P-FpcProgram);
'(':
if(FStyle=psPascal)and(P[1]='*')then
begin
F:=P+2;
whiletruedo
begin
F:=StrScan(F,'*');
ifF=nilthenIParserError(ieBadRemark,P-FpcProgram);
ifF[1]=')'then
begin
inc(F);
break;
end;
inc(F);
end;
P:=F+1;
end;
'*':
ifFStyle=psPascalthen
begin
if(P[1]=')')then
IParserError(ieBadRemark,P-FpcProgram)
end
elseifFStyle=psCppthen
if(P[1]='/')thenIParserError(ieBadRemark,P-FpcProgram);
'/':
if(FStylein[psPascal,psCpp])and(P[1]='/')then
begin
F:=StrScan(P+1,#13);
ifF=nilthenF:=StrEnd(P+1);
P:=F;
end
elseif(FStyle=psCpp)and(P[1]='*')then
begin
F:=P+2;
whiletruedo
begin
F:=StrScan(F,'*');
ifF=nilthenIParserError(ieBadRemark,P-FpcProgram);
ifF[1]='/'then
begin
inc(F);
break;
end;
inc(F);
end;
P:=F+1;
end;
'#':
if(FStylein[psPython,psPerl]){and
((P=FpcProgram)or(P[-1]in[#10,#13]))}then
begin
F:=StrScan(P+1,#13);
ifF=nilthenF:=StrEnd(P+1);
P:=F;
end;
'''':
ifFStyle=psVBthen
begin
F:=StrScan(P+1,#13);
ifF=nilthenF:=StrEnd(P+1);
P:=F;
end;
end;
end;