diff --git a/ide/lazarus_dci.lrs b/ide/lazarus_dci.lrs index 05f7727776..3db934aa92 100644 --- a/ide/lazarus_dci.lrs +++ b/ide/lazarus_dci.lrs @@ -1,33 +1,31 @@ - LazarusResources.Add('lazarus_dci_file','DCI', - '[arrayd | array declaration (var)]'#13#10'array[0..|] of ;'#13#10#13#10'[' - +'arrayc | array declaration (const)]'#13#10'array[0..|] of = ();'#13#10#13 - +#10'[cases | case statement]'#13#10'case | of'#13#10' : ;'#13#10' : ;' - +#13#10'end;'#13#10' '#13#10'[casee | case statement (with else)]'#13#10 - +'case | of'#13#10' : ;'#13#10' : ;'#13#10'else ;'#13#10'end;'#13#10' ' - +#13#10'[classf | class declaration (all parts)]'#13#10'T| = class(T)'#13 - +#10'private'#13#10#13#10'protected'#13#10#13#10'public'#13#10#13#10'publi' - +'shed '#13#10#13#10'end;'#13#10#13#10'[classd | class declaration (no par' - +'ts)]'#13#10'T| = class(T)'#13#10#13#10'end;'#13#10#13#10'[classc | class' - +' declaration (with Create/Destroy overrides)]'#13#10'T| = class(T)'#13#10 - +'private'#13#10#13#10'protected'#13#10#13#10'public'#13#10' constructor ' - +'Create; override;'#13#10' destructor Destroy; override;'#13#10'publishe' - +'d '#13#10#13#10'end;'#13#10#13#10'[fors | for (no begin/end)]'#13#10'for' - +' | := to do'#13#10#13#10'[forb | for statement]'#13#10'for | := to d' - +'o'#13#10'begin'#13#10#13#10'end;'#13#10#13#10'[function | function decla' - +'ration]'#13#10'function |(): ;'#13#10'begin'#13#10#13#10'end;'#13#10#13 - +#10'[ifs | if (no begin/end)]'#13#10'if | then'#13#10#13#10'[ifb | if sta' - +'tement]'#13#10'if | then'#13#10'begin'#13#10#13#10'end;'#13#10#13#10'[if' - +'e | if then (no begin/end) else (no begin/end)]'#13#10'if | then'#13#10 - +#13#10'else'#13#10#13#10'[ifeb | if then else]'#13#10'if | then'#13#10'be' - +'gin'#13#10#13#10'end'#13#10'else'#13#10'begin'#13#10#13#10'end;'#13#10#13 - +#10'[procedure | procedure declaration]'#13#10'procedure |();'#13#10'begi' - +'n'#13#10#13#10'end;'#13#10#13#10'[trye | try except]'#13#10'try'#13#10' ' - +' | '#13#10'except'#13#10#13#10'end;'#13#10#13#10'[tryf | try finally]'#13 - +#10'try'#13#10' | '#13#10'finally'#13#10#13#10'end;'#13#10#13#10'[trycf ' - +'| try finally (with Create/Free)]'#13#10'|variable := typename.Create; ' - +#13#10'try'#13#10#13#10'finally'#13#10' variable.Free;'#13#10'end;'#13#10 - +#13#10'[whileb | while statement]'#13#10'while | do'#13#10'begin'#13#10#13 - +#10'end;'#13#10#13#10'[whiles | while (no begin)]'#13#10'while | do'#13#10 - +#13#10'[withb | with statement]'#13#10'with | do'#13#10'begin'#13#10#13#10 - +'end;'#13#10#13#10'[withs | with (no begin)]'#13#10'with | do'#13#10 - ); +LazarusResources.Add('lazarus_dci_file','DCI',[ + '[arrayd | array declaration (var)]'#10'array[0..|] of ;'#10'[arrayc | array ' + +'declaration (const)]'#10'array[0..|] of = ();'#10'[cases | case statement]' + +#10'case | of'#10' : ;'#10' : ;'#10'end;'#10'[casee | case statement (with' + +' else)]'#10'case | of'#10' : ;'#10' : ;'#10'else ;'#10'end;'#10'[classf |' + +' class declaration (all parts)]'#10'T| = class(T)'#10'private'#10#10'public' + +#10' constructor Create;'#10' destructor Destroy; override;'#10'end;'#10'[' + +'classd | class declaration (no parts)]'#10'T| = class(T)'#10#10'end;'#10'[c' + +'lassc | class declaration (with Create/Destroy overrides)]'#10'T| = class(T' + +')'#10'private'#10#10'protected'#10#10'public'#10' constructor Create; over' + +'ride;'#10' destructor Destroy; override;'#10'published '#10#10'end;'#10'[f' + +'ors | for (no begin/end)]'#10'for | := to do'#10'[forb | for statement]' + +#10'for | := to do'#10'begin'#10#10'end;'#10'[function | function declarat' + +'ion]'#10'function |(): ;'#10'begin'#10#10'end;'#10'[ifs | if (no begin/end)' + +']'#10'if | then'#10'[ifb | if statement]'#10'if | then begin'#10#10'end;'#10 + +'[ife | if then (no begin/end) else (no begin/end)]'#10'if | then'#10#10'els' + +'e'#10'[ifeb | if then else]'#10'if | then begin'#10#10'end'#10'else begin' + +#10#10'end;'#10'[procedure | procedure declaration]'#10'procedure |();'#10'b' + +'egin'#10#10'end;'#10'[trye | try except]'#10'try'#10' | '#10'except'#10#10 + +'end;'#10'[tryf | try finally]'#10'try'#10' | '#10'finally'#10#10'end;'#10 + +'[trycf | try finally (with Create/Free)]'#10'|variable := typename.Create; ' + +#10'try'#10#10'finally'#10' variable.Free;'#10'end;'#10'[whileb | while sta' + +'tement]'#10'while | do begin'#10#10'end;'#10'[whiles | while (no begin)]'#10 + +'while | do'#10'[withb | with statement]'#10'with | do begin'#10#10'end;'#10 + +'[b | begin end]'#10'begin'#10' |'#10'end;'#10'[withs | with (no begin)]'#10 + +'with | do'#10'[hexc | HexStr(Cardinal(),8)]'#10'HexStr(Cardinal(|),8)'#10'[' + +'be | begin end else begin end]'#10'begin'#10' |'#10'end else begin'#10#10 + +'end;'#10'[withc | with for components]'#10'with | do begin'#10' Name:=''''' + +';'#10' Parent:=;'#10' Left:=;'#10' Top:=;'#10' Width:=;'#10' Height:=;' + +#10' Caption:='''';'#10'end;'#10 +]); diff --git a/ide/lazarus_dci_file.dci b/ide/lazarus_dci_file.dci new file mode 100644 index 0000000000..b19de0609e --- /dev/null +++ b/ide/lazarus_dci_file.dci @@ -0,0 +1,126 @@ +[arrayd | array declaration (var)] +array[0..|] of ; +[arrayc | array declaration (const)] +array[0..|] of = (); +[cases | case statement] +case | of + : ; + : ; +end; +[casee | case statement (with else)] +case | of + : ; + : ; +else ; +end; +[classf | class declaration (all parts)] +T| = class(T) +private + +public + constructor Create; + destructor Destroy; override; +end; +[classd | class declaration (no parts)] +T| = class(T) + +end; +[classc | class declaration (with Create/Destroy overrides)] +T| = class(T) +private + +protected + +public + constructor Create; override; + destructor Destroy; override; +published + +end; +[fors | for (no begin/end)] +for | := to do +[forb | for statement] +for | := to do +begin + +end; +[function | function declaration] +function |(): ; +begin + +end; +[ifs | if (no begin/end)] +if | then +[ifb | if statement] +if | then begin + +end; +[ife | if then (no begin/end) else (no begin/end)] +if | then + +else +[ifeb | if then else] +if | then begin + +end +else begin + +end; +[procedure | procedure declaration] +procedure |(); +begin + +end; +[trye | try except] +try + | +except + +end; +[tryf | try finally] +try + | +finally + +end; +[trycf | try finally (with Create/Free)] +|variable := typename.Create; +try + +finally + variable.Free; +end; +[whileb | while statement] +while | do begin + +end; +[whiles | while (no begin)] +while | do +[withb | with statement] +with | do begin + +end; +[b | begin end] +begin + | +end; +[withs | with (no begin)] +with | do +[hexc | HexStr(Cardinal(),8)] +HexStr(Cardinal(|),8) +[be | begin end else begin end] +begin + | +end else begin + +end; +[withc | with for components] +with | do begin + Name:=''; + Parent:=; + Left:=; + Top:=; + Width:=; + Height:=; + Caption:=''; +end;