updated lazarus.dci

git-svn-id: trunk@6735 -

ide/lazarus_dci.lrs

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

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;