fs_icpp.pas

报表源码 FastReport 3 is new generation of the report generators components. It consists of report engin

{******************************************}
{                                          }
{             FastScript v1.8              }
{               C++ grammar                }
{                                          }
{  (c) 2003-2005 by Alexander Tzyganenko,  }
{             Fast Reports Inc             }
{                                          }
{******************************************}

unit fs_icpp;

interface

{$i fs.inc}

uses
  SysUtils, Classes, fs_itools;

type
  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="&#34;"/><hexsequence text="0x"/><keywords><break/><case/>' +
  '<continue/><define/><default/><delete/><do/><else/><except/><finally/><f' +
  'or/><in/><is/><if/><new/><return/><switch/><try/><while/></keywords><err' +
  'ors><err1 text="Identifier expected"/><err2 text="Expression expected"/>' +
  '<err3 text="Statement expected"/><err4 text="'':'' expected"/><err5 text' +
  '="'';'' expected"/><err6 text="''.'' expected"/><err7 text="'')'' expect' +
  'ed"/><err8 text="'']'' expected"/><err9 text="''='' expected"/><err10 te' +
  'xt="''{'' expected"/><err11 text="''}'' expected"/><err12 text="''('' ex' +
  'pected"/><err13 text="''DEFINE'' expected"/><err14 text="''WHILE'' expec' +
  'ted"/><err17 text="''FINALLY'' or ''EXCEPT'' expected"/><err18 text="''[' +
  ''' expected"/><err19 text="''..'' expected"/><err20 text="''&#62;'' expe' +
  'cted"/></errors></parser><types><int type="integer"/><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><usesc' +
  'lause node="uses"><char text="#"/><keyword text="INCLUDE"/><loop text=",' +
  '"><string add="file" err="err1"/></loop></usesclause><declsection><switc' +
  'h><constsection/><functiondecl/><sequence><varstmt/><char text=";" err="' +
  'err5"/></sequence></switch></declsection><constsection><char text="#"/><' +
  'keyword text="DEFINE" err="err13"/><constantdecl/></constsection><consta' +
  'ntdecl node="const"><ident add="ident" err="err1"/><expression err="err2' +
  '"/></constantdecl><varstmt node="var"><ident add="type"/><loop text=",">' +
  '<ident add="ident"/><optional><array/></optional><optional><initvalue/><' +
  '/optional></loop></varstmt><array node="array"><loop><char text="["/><op' +
  'tionalloop text=","><arraydim err="err2"/></optionalloop><char text="]" ' +
  'err="err8"/></loop></array><arraydim node="dim"><expression/></arraydim>' +
  '<initvalue node="init"><char text="="/><expression err="err2"/></initval' +
  'ue><expression node="expr"><simpleexpression/><optionalloop><relop/><sim' +
  'pleexpression/></optionalloop></expression><simpleexpression><optional><' +
  'char text="-" add="op" addtext="unminus"/></optional><term/><optionalloo' +
  'p><addop/><term/></optionalloop></simpleexpression><term><factor/><optio' +
  'nalloop><mulop/><factor/></optionalloop></term><factor><switch><designat' +
  'or/><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" addtext="not"/><factor err="' +
  'err2"/></sequence><sequence><char text="["/><setconstructor err="err2"/>' +
  '<char text="]" err="err8"/></sequence><newoperator/><sequence><char text' +
  '="&#60;"/><frstring/><char text="&#62;" err="err20"/></sequence></switch' +
  '></factor><setconstructor node="set"><loop text=","><setnode/></loop></s' +
  'etconstructor><setnode><expression/><optional><char text="."/><char text' +
  '="." add="range"/><expression/></optional></setnode><newoperator node="n' +
  'ew"><keyword text="NEW"/><designator err="err2"/></newoperator><relop><s' +
  'witch><sequence><char text="&#62;"/><char text="=" skip="0" add="op" add' +
  'text="&#62;="/></sequence><sequence><char text="&#60;"/><char text="=" s' +
  'kip="0" add="op" addtext="&#60;="/></sequence><char text="&#62;" add="op' +
  '" addtext="&#62;"/><char text="&#60;" add="op" addtext="&#60;"/><sequenc' +
  'e><char text="="/><char text="=" skip="0" add="op" addtext="="/></sequen' +
  'ce><sequence><char text="!"/><char text="=" skip="0" add="op" addtext="&' +
  '#60;&#62;"/></sequence><keyword text="IN" add="op" addtext="in"/><keywor' +
  'd 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"/></sequence><char text="^" add="op" ' +
  'addtext="xor"/></switch></addop><mulop><switch><char text="*" add="op"/>' +
  '<char text="/" add="op"/><keyword text="DIV" add="op" addtext="div"/><ch' +
  'ar text="%" add="op" addtext="mod"/><sequence><char text="&#38;"/><char ' +
  'text="&#38;" add="op" addtext="and"/></sequence><sequence><char text="&#' +
  '60;"/><char text="&#60;" skip="0" add="op" addtext="shl"/></sequence><se' +
  'quence><char text="&#62;"/><char text="&#62;" skip="0" add="op" addtext=' +
  '"shr"/></sequence></switch></mulop><designator node="dsgn"><optional><ch' +
  'ar text="&#38;" add="addr"/></optional><ident add="node"/><optionalloop>' +
  '<switch><sequence><char text="."/><ident add="node"/></sequence><sequenc' +
  'e><char text="[" add="node"/><exprlist err="err2"/><char text="]" err="e' +
  'rr8"/><optionalloop><char text="["/><exprlist err="err2"/><char text="]"' +
  ' err="err8"/></optionalloop></sequence><sequence><char text="("/><option' +
  'al><exprlist/></optional><char text=")" err="err7"/></sequence></switch>' +
  '</optionalloop></designator><exprlist><loop text=","><expression/></loop' +
  '></exprlist><statement><optionalswitch><sequence><simplestatement/><char' +
  ' text=";" err="err5"/></sequence><structstmt/><emptystmt/></optionalswit' +
  'ch></statement><emptystmt node="empty"><char text=";"/></emptystmt><stmt' +
  'list><loop><statement/></loop></stmtlist><simplestatement><switch><delet' +
  'estmt/><varstmt/><returnstmt/><keyword text="BREAK" node="break"/><keywo' +
  'rd text="CONTINUE" node="continue"/><keyword text="EXIT" node="exit"/><a' +
  'ssignstmt/><callstmt/></switch></simplestatement><deletestmt node="delet' +
  'e"><keyword text="DELETE"/><designator err="err2"/></deletestmt><assigns' +
  'tmt node="assignstmt"><designator/><switch><sequence><char text="+" opt=' +
  '"1" add="modificator"/><char text="=" skip="0"/></sequence><sequence><ch' +
  'ar text="-" opt="1" add="modificator"/><char text="=" skip="0"/></sequen' +
  'ce><sequence><char text="*" opt="1" add="modificator"/><char text="=" sk' +
  'ip="0"/></sequence><sequence><char text="/" opt="1" add="modificator"/><' +
  'char text="=" skip="0"/></sequence><char text="="/></switch><expression ' +
  'err="err2"/></assignstmt><callstmt node="callstmt"><designator/><optiona' +
  'lswitch><sequence><char text="+"/><char text="+" skip="0" add="modificat' +
  'or"/></sequence><sequence><char text="-"/><char text="-" skip="0" add="m' +
  'odificator"/></sequence></optionalswitch></callstmt><returnstmt node="re' +
  'turn"><keyword text="RETURN"/><optional><expression/></optional></return' +
  'stmt><structstmt><switch><compoundstmt/><conditionalstmt/><loopstmt/><tr' +
  'ystmt/></switch></structstmt><compoundstmt node="compoundstmt"><char tex' +
  't="{"/><optional><stmtlist/></optional><char text="}" err="err11"/></com' +
  'poundstmt><conditionalstmt><switch><ifstmt/><casestmt/></switch></condit' +
  'ionalstmt><ifstmt node="ifstmt"><keyword text="IF"/><char text="(" err="' +
  'err12"/><expression err="err2"/><char text=")" err="err7"/><statement no' +
  'de="thenstmt"/><optional><keyword text="ELSE"/><statement node="elsestmt' +
  '"/></optional></ifstmt><casestmt node="casestmt"><keyword text="SWITCH"/' +
  '><char text="(" err="err12"/><expression err="err2"/><char text=")" err=' +
  '"err7"/><char text="{" err="err10"/><loop><caseselector/></loop><optiona' +
  'l><keyword text="DEFAULT"/><char text=":" err="err4"/><statement/></opti' +
  'onal><char text="}" err="err11"/></casestmt><caseselector node="casesele' +
  'ctor"><keyword text="CASE"/><setconstructor err="err2"/><char text=":" e' +
  'rr="err4"/><statement/></caseselector><loopstmt><switch><repeatstmt/><wh' +
  'ilestmt/><forstmt/></switch></loopstmt><repeatstmt node="repeatstmt"><ke' +
  'yword text="DO"/><statement/><optional><char text=";"/></optional><keywo' +
  'rd 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="whilestmt"><keyword text="WHI' +
  'LE"/><char text="(" err="err12"/><expression err="err2"/><char text=")" ' +
  'err="err7"/><statement/></whilestmt><forstmt node="cppforstmt"><keyword ' +
  'text="FOR"/><char text="(" err="err12"/><forcompoundstmt/><char text=";"' +
  ' err="err5"/><expression err="err2"/><char text=";" err="err5"/><forcomp' +
  'oundstmt/><char text=")" err="err7"/><statement/></forstmt><forcompounds' +
  'tmt node="compoundstmt"><loop text=","><forstmtitem/></loop></forcompoun' +
  'dstmt><forstmtitem><switch><assignstmt/><varstmt/><callstmt/><empty node' +
  '="empty"/></switch></forstmtitem><trystmt node="trystmt"><keyword text="' +
  'TRY"/><compoundstmt/><switch err="err17"><sequence><keyword text="FINALL' +
  'Y"/><compoundstmt node="finallystmt"/></sequence><sequence><keyword text' +
  '="EXCEPT"/><compoundstmt node="exceptstmt"/></sequence></switch></trystm' +
  't><functiondecl node="function"><functionheading/><compoundstmt/></funct' +
  'iondecl><functionheading><ident add="type"/><ident add="name"/><formalpa' +
  'rameters/></functionheading><formalparameters node="parameters"><char te' +
  'xt="("/><optionalloop text=","><formalparam/></optionalloop><char text="' +
  ')" err="err7"/></formalparameters><formalparam node="var"><ident add="ty' +
  'pe"/><optional><char text="&#38;" add="varparam"/></optional><ident add=' +
  '"ident" err="err1"/><optional><initvalue/></optional></formalparam></lan' +
  'guage>';

initialization
  fsRegisterLanguage('C++Script', CPP_GRAMMAR);

end.