184 lines
11 KiB
ObjectPascal
184 lines
11 KiB
ObjectPascal
|
|
{******************************************}
|
|
{ }
|
|
{ FastScript v1.9 }
|
|
{ C++ grammar }
|
|
{ }
|
|
{ (c) 2003-2007 by Alexander Tzyganenko, }
|
|
{ Fast Reports Inc }
|
|
{ }
|
|
{******************************************}
|
|
|
|
//VCL uses section
|
|
{$IFNDEF FMX}
|
|
unit fs_icpp;
|
|
|
|
interface
|
|
|
|
{$i fs.inc}
|
|
|
|
uses
|
|
SysUtils, Classes, fs_itools{$IFDEF DELPHI16}, Controls{$ENDIF};
|
|
{$ELSE}
|
|
|
|
interface
|
|
|
|
{$i fs.inc}
|
|
|
|
uses
|
|
System.SysUtils, System.Classes, FMX.fs_itools, FMX.Types;
|
|
{$ENDIF}
|
|
|
|
type
|
|
{$i frxPlatformsAttribute.inc}
|
|
TfsCPP = class(TComponent);
|
|
|
|
|
|
implementation
|
|
|
|
const
|
|
CPP_GRAMMAR =
|
|
'<?xml version="1.0"?><language text="C++Script"><parser><commentline1 te' +
|
|
'xt="//"/><commentblock1 text="/*,*/"/><commentblock2 text="/*,*/"/><stri' +
|
|
'ngquotes text="""/><hexsequence text="0x"/><specstrchar text="1"/>' +
|
|
'<casesensitive text="1"/>' +
|
|
'<keywords><break/><case/><continue/><define/><default/><delete/><do/><el' +
|
|
'se/><except/><finally/><for/><in/><is/><if/><new/><return/><switch/><try' +
|
|
'/><while/></keywords><errors><err1 text="Identifier expected"/><err2 tex' +
|
|
't="Expression expected"/><err3 text="Statement expected"/><err4 text="''' +
|
|
':'' expected"/><err5 text="'';'' expected"/><err6 text="''.'' expected"/' +
|
|
'><err7 text="'')'' expected"/><err8 text="'']'' expected"/><err9 text="' +
|
|
'''='' expected"/><err10 text="''{'' expected"/><err11 text="''}'' expect' +
|
|
'ed"/><err12 text="''('' expected"/><err13 text="''DEFINE'' expected"/><e' +
|
|
'rr14 text="''WHILE'' expected"/><err17 text="''FINALLY'' or ''EXCEPT'' e' +
|
|
'xpected"/><err18 text="''['' expected"/><err19 text="''..'' expected"/><' +
|
|
'err20 text="''>'' expected"/></errors></parser><types><int type="int' +
|
|
'eger"/><long type="integer"/><void type="integer"/><bool type="boolean"/' +
|
|
'><float type="extended"/></types><empty/><program><optional><usesclause/' +
|
|
'></optional><optionalloop><declsection/></optionalloop><compoundstmt err' +
|
|
'="err10"/></program><usesclause node="uses"><char text="#"/><keyword tex' +
|
|
't="INCLUDE"/><loop text=","><string add="file" err="err1"/></loop></uses' +
|
|
'clause><declsection><switch><constsection/><functiondecl/><sequence><var' +
|
|
'stmt/><char text=";" err="err5"/></sequence></switch></declsection><cons' +
|
|
'tsection><char text="#"/><keyword text="DEFINE" err="err13"/><constantde' +
|
|
'cl/></constsection><constantdecl node="const"><ident add="ident" err="er' +
|
|
'r1"/><expression err="err2"/></constantdecl><varstmt node="var"><ident a' +
|
|
'dd="type"/><loop text=","><ident add="ident"/><optional><array/></option' +
|
|
'al><optional><initvalue/></optional></loop></varstmt><array node="array"' +
|
|
'><loop><char text="["/><optionalloop text=","><arraydim err="err2"/></op' +
|
|
'tionalloop><char text="]" err="err8"/></loop></array><arraydim node="dim' +
|
|
'"><expression/></arraydim><initvalue node="init"><char text="="/><expres' +
|
|
'sion err="err2"/></initvalue><expression node="expr"><simpleexpression/>' +
|
|
'<optionalloop><relop/><simpleexpression/></optionalloop></expression><si' +
|
|
'mpleexpression><optional><char text="-" add="op" addtext="unminus"/></op' +
|
|
'tional><term/><optionalloop><addop/><term/></optionalloop></simpleexpres' +
|
|
'sion><term><factor/><optionalloop><mulop/><factor/></optionalloop></term' +
|
|
'><factor><switch><designator/><number add="number"/><string add="string"' +
|
|
'/><sequence><char text="(" add="op"/><expression err="err2"/><char text=' +
|
|
'")" add="op" err="err7"/></sequence><sequence><char text="!" add="op" ad' +
|
|
'dtext="not"/><factor err="err2"/></sequence><sequence><char text="["/><s' +
|
|
'etconstructor err="err2"/><char text="]" err="err8"/></sequence><newoper' +
|
|
'ator/><sequence><char text="<"/><frstring/><char text=">" err="e' +
|
|
'rr20"/></sequence></switch></factor><setconstructor node="set"><loop tex' +
|
|
't=","><setnode/></loop></setconstructor><setnode><expression/><optional>' +
|
|
'<char text="."/><char text="." add="range"/><expression/></optional></se' +
|
|
'tnode><newoperator node="new"><keyword text="NEW"/><designator err="err2' +
|
|
'"/></newoperator><relop><switch><sequence><char text=">"/><char text' +
|
|
'="=" skip="0" add="op" addtext=">="/></sequence><sequence><char text' +
|
|
'="<"/><char text="=" skip="0" add="op" addtext="<="/></sequence>' +
|
|
'<char text=">" add="op" addtext=">"/><char text="<" add="op"' +
|
|
' addtext="<"/><sequence><char text="="/><char text="=" skip="0" add=' +
|
|
'"op" addtext="="/></sequence><sequence><char text="!"/><char text="=" sk' +
|
|
'ip="0" add="op" addtext="<>"/></sequence><keyword text="IN" add=' +
|
|
'"op" addtext="in"/><keyword text="IS" add="op" addtext="is"/></switch></' +
|
|
'relop><addop><switch><char text="+" add="op"/><char text="-" add="op"/><' +
|
|
'sequence><char text="|"/><char text="|" add="op" addtext="or"/></sequenc' +
|
|
'e><char text="^" add="op" addtext="xor"/></switch></addop><mulop><switch' +
|
|
'><char text="*" add="op"/><char text="/" add="op"/><keyword text="DIV" a' +
|
|
'dd="op" addtext="div"/><char text="%" add="op" addtext="mod"/><sequence>' +
|
|
'<char text="&"/><char text="&" add="op" addtext="and"/></sequenc' +
|
|
'e><sequence><char text="<"/><char text="<" skip="0" add="op" add' +
|
|
'text="shl"/></sequence><sequence><char text=">"/><char text=">" ' +
|
|
'skip="0" add="op" addtext="shr"/></sequence></switch></mulop><designator' +
|
|
' node="dsgn"><optional><char text="&" add="addr"/></optional><ident ' +
|
|
'add="node"/><optionalloop><switch><sequence><char text="."/><keyword add' +
|
|
'="node"/></sequence><sequence><char text="[" add="node"/><exprlist err="' +
|
|
'err2"/><char text="]" err="err8"/><optionalloop><char text="["/><exprlis' +
|
|
't err="err2"/><char text="]" err="err8"/></optionalloop></sequence><sequ' +
|
|
'ence><char text="("/><optional><exprlist/></optional><char text=")" err=' +
|
|
'"err7"/></sequence></switch></optionalloop></designator><exprlist><loop ' +
|
|
'text=","><expression/></loop></exprlist><statement><optionalswitch><sequ' +
|
|
'ence><simplestatement/><char text=";" err="err5"/></sequence><structstmt' +
|
|
'/><emptystmt/></optionalswitch></statement><emptystmt node="empty"><char' +
|
|
' text=";"/></emptystmt><stmtlist><loop><statement/></loop></stmtlist><si' +
|
|
'mplestatement><switch><deletestmt/><varstmt/><returnstmt/><keyword text=' +
|
|
'"BREAK" node="break"/><keyword text="CONTINUE" node="continue"/><keyword' +
|
|
' text="EXIT" node="exit"/><assignstmt/><callstmt/></switch></simplestate' +
|
|
'ment><deletestmt node="delete"><keyword text="DELETE"/><designator err="' +
|
|
'err2"/></deletestmt><assignstmt node="assignstmt"><designator/><switch><' +
|
|
'sequence><char text="+" opt="1" add="modificator"/><char text="=" skip="' +
|
|
'0"/></sequence><sequence><char text="-" opt="1" add="modificator"/><char' +
|
|
' text="=" skip="0"/></sequence><sequence><char text="*" opt="1" add="mod' +
|
|
'ificator"/><char text="=" skip="0"/></sequence><sequence><char text="/" ' +
|
|
'opt="1" add="modificator"/><char text="=" skip="0"/></sequence><char tex' +
|
|
't="="/></switch><expression err="err2"/></assignstmt><callstmt node="cal' +
|
|
'lstmt"><designator/><optionalswitch><sequence><char text="+"/><char text' +
|
|
'="+" skip="0" add="modificator"/></sequence><sequence><char text="-"/><c' +
|
|
'har text="-" skip="0" add="modificator"/></sequence></optionalswitch></c' +
|
|
'allstmt><returnstmt node="return"><keyword text="RETURN"/><optional><exp' +
|
|
'ression/></optional></returnstmt><structstmt><switch><compoundstmt/><con' +
|
|
'ditionalstmt/><loopstmt/><trystmt/></switch></structstmt><compoundstmt n' +
|
|
'ode="compoundstmt"><char text="{"/><optional><stmtlist/></optional><char' +
|
|
' text="}" err="err11"/></compoundstmt><conditionalstmt><switch><ifstmt/>' +
|
|
'<casestmt/></switch></conditionalstmt><ifstmt node="ifstmt"><keyword tex' +
|
|
't="IF"/><char text="(" err="err12"/><expression err="err2"/><char text="' +
|
|
')" err="err7"/><statement node="thenstmt"/><optional><keyword text="ELSE' +
|
|
'"/><statement node="elsestmt"/></optional></ifstmt><casestmt node="cases' +
|
|
'tmt"><keyword text="SWITCH"/><char text="(" err="err12"/><expression err' +
|
|
'="err2"/><char text=")" err="err7"/><char text="{" err="err10"/><loop><c' +
|
|
'aseselector/></loop><optional><keyword text="DEFAULT"/><char text=":" er' +
|
|
'r="err4"/><statement/></optional><char text="}" err="err11"/></casestmt>' +
|
|
'<caseselector node="caseselector"><keyword text="CASE"/><setconstructor ' +
|
|
'err="err2"/><char text=":" err="err4"/><statement/></caseselector><loops' +
|
|
'tmt><switch><repeatstmt/><whilestmt/><forstmt/></switch></loopstmt><repe' +
|
|
'atstmt node="repeatstmt"><keyword text="DO"/><statement/><optional><char' +
|
|
' text=";"/></optional><keyword text="WHILE" err="err14"/><char text="(" ' +
|
|
'err="err12"/><expression err="err2"/><empty add="inverse"/><char text=")' +
|
|
'" err="err7"/><char text=";" err="err5"/></repeatstmt><whilestmt node="w' +
|
|
'hilestmt"><keyword text="WHILE"/><char text="(" err="err12"/><expression' +
|
|
' err="err2"/><char text=")" err="err7"/><statement/></whilestmt><forstmt' +
|
|
' node="cppforstmt"><keyword text="FOR"/><char text="(" err="err12"/><for' +
|
|
'compoundstmt/><char text=";" err="err5"/><expression err="err2"/><char t' +
|
|
'ext=";" err="err5"/><forcompoundstmt/><char text=")" err="err7"/><statem' +
|
|
'ent/></forstmt><forcompoundstmt node="compoundstmt"><loop text=","><fors' +
|
|
'tmtitem/></loop></forcompoundstmt><forstmtitem><switch><assignstmt/><var' +
|
|
'stmt/><callstmt/><empty node="empty"/></switch></forstmtitem><trystmt no' +
|
|
'de="trystmt"><keyword text="TRY"/><compoundstmt/><switch err="err17"><se' +
|
|
'quence><keyword text="FINALLY"/><compoundstmt node="finallystmt"/></sequ' +
|
|
'ence><sequence><keyword text="EXCEPT"/><compoundstmt node="exceptstmt"/>' +
|
|
'</sequence></switch></trystmt><functiondecl node="function"><functionhea' +
|
|
'ding/><compoundstmt/></functiondecl><functionheading><ident add="type"/>' +
|
|
'<ident add="name"/><formalparameters/></functionheading><formalparameter' +
|
|
's node="parameters"><char text="("/><optionalloop text=","><formalparam/' +
|
|
'></optionalloop><char text=")" err="err7"/></formalparameters><formalpar' +
|
|
'am node="var"><ident add="type"/><optional><char text="&" add="varpa' +
|
|
'ram"/></optional><ident add="ident" err="err1"/><optional><initvalue/></' +
|
|
'optional></formalparam></language>';
|
|
|
|
|
|
initialization
|
|
{$IFDEF DELPHI16}
|
|
{$IFDEF FMX}
|
|
StartClassGroup(TFmxObject);
|
|
ActivateClassGroup(TFmxObject);
|
|
GroupDescendentsWith(TfsCPP, TFmxObject);
|
|
{$ELSE}
|
|
StartClassGroup(TControl);
|
|
ActivateClassGroup(TControl);
|
|
GroupDescendentsWith(TfsCPP, TControl);
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
fsRegisterLanguage('C++Script', CPP_GRAMMAR);
|
|
|
|
end.
|