home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 May / Chip_2003-05_cd1.bin / servis / rkedit / rkEdit.exe / Templates / pascal.xml < prev    next >
Extensible Markup Language  |  2003-03-18  |  5KB  |  200 lines
  1. <?xml version='1.0'?>
  2. <?xml-stylesheet href="e:\templates.xsl" type="text/xsl"?>
  3. <!DOCTYPE templates PUBLIC "-//Slavek Rydval//DTD rkEdit template V1.0//EN"
  4.                            "templates.dtd">
  5.  
  6. <templates>
  7.   <head>
  8.     <templatename>Template for Object Pascal</templatename>
  9.     <highlightersystemname>Object Pascal</highlightersystemname>
  10.   </head>
  11.  
  12.   <template shortcut="arrayd" name="array declaration (var)">
  13.     array[0..|] of ;
  14.   </template>
  15.  
  16.   <template shortcut="arrayc" name="array declaration (const)">
  17.     array[0..|] of = ();
  18.   </template>
  19.  
  20.   <template shortcut="cases" name="case statement">
  21.     case | of
  22.       : ;
  23.       : ;
  24.     end; {case}
  25.   </template>
  26.  
  27.   <template shortcut="casee" name="case statement (with else)">
  28.     case | of
  29.       : ;
  30.       : ;
  31.     else ;
  32.     end;
  33.   </template>
  34.  
  35.   <template shortcut="classf" name="class declaration (all parts)" inputdesc="Enter class' name:">
  36.     //--------------------Created at: %date% %time% ---------  %input% --------
  37.     %input% = class(T|)
  38.     private
  39.       {private declarations}
  40.  
  41.     protected
  42.       {protected declarations}
  43.  
  44.     public
  45.       {public declarations}
  46.  
  47.     published
  48.       {published}
  49.  
  50.     end; {class %input%}
  51.   </template>
  52.  
  53.   <template shortcut="classd" name="class declaration (no parts)" inputdesc="Enter class' name:">
  54.     //--------------------Created at: %date% %time% ---------  %input% --------
  55.     T%input% = class(T|)
  56.  
  57.     end; {class %input%}
  58.   </template>
  59.  
  60.   <template shortcut="classc" name="class declaration (with Create/Destroy overrides)" inputdesc="Enter class' name:">
  61.     //--------------------Created at: %date% %time% ---------  %input% --------
  62.     T%input% = class(T|)
  63.     private
  64.       {private declarations}
  65.  
  66.     protected
  67.       {protected declarations}
  68.  
  69.     public
  70.       {public declarations}
  71.       constructor Create; override;
  72.       destructor Destroy; override;
  73.     published
  74.       {published declarations}
  75.     end; {class %input%}
  76.   </template>
  77.  
  78.   <template shortcut="fors" name="for (no begin/end)">
  79.     for | :=  to  do
  80.   </template>
  81.  
  82.   <template shortcut="forb" name="for statement">
  83.     for | :=  to  do
  84.     begin {for}
  85.  
  86.     end; {for}
  87.   </template>
  88.  
  89.   <template shortcut="function" name="function declaration">
  90.     function |(): ;
  91.     begin {}
  92.  
  93.     end; {}
  94.   </template>
  95.  
  96.   <template shortcut="ifs" name="if (no begin/end)">
  97.     if | then
  98.   </template>
  99.  
  100.   <template shortcut="ifb" name="if statement">
  101.     if | then
  102.     begin
  103.  
  104.     end; {if}
  105.   </template>
  106.  
  107.   <template shortcut="ife" name="if then (no begin/end) else (no begin/end)">
  108.     if | then
  109.  
  110.     else
  111.  
  112.   </template>
  113.  
  114.   <template shortcut="ifeb" name="if then else">
  115.     if | then
  116.     begin
  117.  
  118.     end else begin
  119.  
  120.     end; {if/else}
  121.   </template>
  122.  
  123.   <template shortcut="procedure" name="procedure declaration"  inputdesc="Enter procedure's name:">
  124.     //--------------------Created at: %date% %time% ---------  %input% --------
  125.     procedure %input%();
  126.     begin {%input%}
  127.       |
  128.     end; {%input%}
  129.   </template>
  130.  
  131.   <template shortcut="trye" name="try except">
  132.     try
  133.       |
  134.     except
  135.  
  136.     end; {trye}
  137.   </template>
  138.  
  139.   <template shortcut="tryf" name="try finally">
  140.     try
  141.       |
  142.     finally
  143.  
  144.     end; {tryf}
  145.   </template>
  146.  
  147.   <template shortcut="tryfc" name="try finally (with Create/Free)">
  148.     |variable := typename.Create;
  149.     try
  150.  
  151.     finally
  152.       variable.Free;
  153.     end; {tryf}
  154.   </template>
  155.  
  156.   <template shortcut="whileb" name="while statement">
  157.     while | do
  158.     begin
  159.  
  160.     end; {while}
  161.   </template>
  162.  
  163.   <template shortcut="whiles" name="while (no begin)">
  164.     while | do
  165.   </template>
  166.  
  167.   <template shortcut="withb" name="with statement">
  168.     with | do
  169.     begin
  170.  
  171.     end; {with}
  172.   </template>
  173.  
  174.   <template shortcut="withs" name="with (no begin)">
  175.     with | do
  176.   </template>
  177.  
  178.   <template shortcut="k" name="Comment">
  179.     //-----------------------------------------------------------------------------
  180.     //                                                  |
  181.     //-----------------------------------------------------------------------------
  182.   </template>
  183.  
  184.   <template shortcut="in" name="IntToStr">
  185.     IntToStr (|)
  186.   </template>
  187.  
  188.   <template shortcut="s" name="ShowMessage">
  189.     ShowMessage ('|');
  190.   </template>
  191.  
  192.   <template shortcut="b" name="begin end">
  193.     begin {}
  194.       |
  195.     end; {}
  196.   </template>
  197.  
  198. </templates>
  199.  
  200.