cajscript.html

Delphi script parser

<i><tt>Name</tt></i><tt> The name of the uses.</tt><br>
<tt>This function should return ENoError when no error has
occured.</tt></p>

<hr>

<p><a name="tregisteredproc"></a><tt>TRegisteredProc = </tt><b><tt>Function
</tt></b><tt>(</tt><br>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ID
: Pointer;</tt><br>
<b><tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Const
</tt></b><tt>ProcName : </tt><b><tt>String</tt></b><tt>;</tt><br>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Params
:&nbsp; VariableManager;</tt><br>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;res
: PCajVariant</tt><br>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;)
: TCS2Error;</tt><br>
<tt>This function is triggered when some external function is
called.</tt></p>

<p><i><tt>Id</tt></i><tt> The id passed to the </tt><b><tt>TCs2PascalScript.Create</tt></b><tt>.
Can be used when using more scripts at once.</tt><br>
<i><tt>ProcName</tt></i><tt> The name of the uses.</tt><br>
<i><tt>Params</tt></i><tt> an array of parameters, use VM_Get to
receive.</tt><br>
<i><tt>Res</tt></i><tt> when your function returns something, put
it in here.</tt><br>
<tt>This function should return ENoError.</tt></p>

<hr>

<pre>TOnRunLine = <strong>Function </strong>(
                       Id : Pointer;
                       Sender : PCs2PascalScript; 
                       Position : Longint
                      ) : TCs2Error;
This function is triggered when the script engine has passed a command.</pre>

<p><i><tt>Id</tt></i><tt> The id passed to the </tt><b><tt>TCs2PascalScript.Create</tt></b><tt>.
Can be used when using more scripts at once.</tt><font
face="Times New Roman"><br>
</font><i><tt>Sender</tt></i><tt> The </tt><b><tt>TCs2PascalScript</tt></b><tt>.</tt><br>
<em>Position</em> The current position in the script, usefull for
script debugging.</p>

<hr>

<p><br>
<a name="pcajvariant"></a><b>TCajVariant</b><br>
CajVariant is used for storing variables.<br>
<b><tt>Type<br>
</tt></b><tt>&nbsp; PCajVariant = ^TCajVariant;<br>
&nbsp; TCajVariant = </tt><b><tt>Packed Record<br>
</tt></b><tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;VType
: Word;<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Flags
: Byte; {Readonly(Const) = 1}<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</tt><b><tt>Case
</tt></b><tt>Word </tt><b><tt>of<br>
</tt></b><tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_UByte&nbsp;&nbsp;&nbsp;
: (CV_UByte&nbsp;&nbsp;&nbsp; : Byte);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_SByte&nbsp;&nbsp;&nbsp;
: (CV_SByte&nbsp;&nbsp;&nbsp; : ShortInt);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_Char&nbsp;&nbsp;&nbsp;&nbsp;
: (CV_Char&nbsp;&nbsp;&nbsp;&nbsp; : Char);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_UInt16&nbsp;&nbsp;
: (CV_UInt16&nbsp;&nbsp; : Word);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_SInt16&nbsp;&nbsp;
: (CV_SInt16&nbsp;&nbsp; : </tt><i><tt>{$IFDEF DELPHI}</tt></i><tt>SmallInt</tt><i><tt>{$ELSE}</tt></i><tt>
Integer</tt><i><tt>{$ENDIF}</tt></i><tt> );<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_UInt32&nbsp;&nbsp;
: (CV_UInt32&nbsp;&nbsp; : </tt><i><tt>{$IFDEF DELPHI} </tt></i><tt>Cardinal</tt><i><tt>{$ELSE}</tt></i><tt>LongInt</tt><i><tt>{$ENDIF}</tt></i><tt>
);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_SInt32&nbsp;&nbsp;
: (CV_SInt32&nbsp;&nbsp; : LongInt);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_String&nbsp;&nbsp;
: (CV_Str&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; : </tt><b><tt>String</tt></b><tt>);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_Real&nbsp;&nbsp;&nbsp;&nbsp;
: (CV_Real&nbsp;&nbsp;&nbsp;&nbsp; : Real);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_Single&nbsp;&nbsp;
: (CV_Single&nbsp;&nbsp; : Single);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_Double&nbsp;&nbsp;
: (CV_Double&nbsp;&nbsp; : Double);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_Extended
: (CV_Extended : Extended);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_Comp&nbsp;&nbsp;&nbsp;&nbsp;
: (CV_Comp&nbsp;&nbsp;&nbsp;&nbsp; : Comp);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_Bool&nbsp;&nbsp;&nbsp;&nbsp;
: (CV_Bool&nbsp;&nbsp;&nbsp;&nbsp; : Boolean);<br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CSV_Var&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
: (cv_Var&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;: Pointer);</tt><br>
<tt>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</tt><b><tt>End;</tt></b><br>
Variable type (TCajVariant.VType):</p>

<table border="1">
    <tr>
        <td>CSV_None</td>
        <td>0</td>
        <td>No result, used with procedures</td>
    </tr>
    <tr>
        <td>CSV_UByte</td>
        <td>1</td>
        <td><b>CajScript/Pascal/Delphi</b>: Byte</td>
    </tr>
    <tr>
        <td>CSV_SByte</td>
        <td>2</td>
        <td><b>CajScript/Pascal/Delphi</b>: ShortInt</td>
    </tr>
    <tr>
        <td>CSV_UInt16</td>
        <td>3</td>
        <td><b>CajScript</b>:<b> </b>SmallInt <b>Pascal</b>:
        Integer <b>Delphi</b>: SmallInt</td>
    </tr>
    <tr>
        <td>CSV_SInt16</td>
        <td>4</td>
        <td><b>CajScript/Pascal/Delphi</b>: Word</td>
    </tr>
    <tr>
        <td>CSV_UInt32</td>
        <td>5</td>
        <td><b>CajScript/Delphi</b>: Integer/Longint <b>Pascal</b>:
        Longint</td>
    </tr>
    <tr>
        <td>CSV_SInt32</td>
        <td>6</td>
        <td><b>CajScript/Delphi</b>: Cardinal <b>Pascal</b>:Longint</td>
    </tr>
    <tr>
        <td>CSV_Char</td>
        <td>7</td>
        <td><b>Cajscript/Pascal/Delphi</b>: Char</td>
    </tr>
    <tr>
        <td>CSV_String</td>
        <td>8</td>
        <td><b>CajScript/Pascal/Delphi</b>: String</td>
    </tr>
    <tr>
        <td>CSV_Real</td>
        <td>9</td>
        <td><b>CajScript/Pascal/Delphi</b>: Real</td>
    </tr>
    <tr>
        <td>CSV_Single:</td>
        <td>10</td>
        <td><b>CajScript/Pascal/Delphi</b>: Single</td>
    </tr>
    <tr>
        <td>CSV_Double</td>
        <td>11</td>
        <td><b>CajScript/Pascal/Delphi</b>: Double</td>
    </tr>
    <tr>
        <td>CSV_Extended</td>
        <td>12</td>
        <td><b>CajScript/Pascal/Delphi</b>: Extended</td>
    </tr>
    <tr>
        <td>CSV_Comp</td>
        <td>13</td>
        <td><b>CajScript/Pascal/Delphi</b>: Comp</td>
    </tr>
    <tr>
        <td>CSV_Bool</td>
        <td>14</td>
        <td><b>CajScript/Pascal/Delphi</b>: Boolean</td>
    </tr>
    <tr>
        <td>CSV_Var</td>
        <td>15</td>
        <td>Variable, <b>CV_Var</b> points to an other <b>TCajVariant</b>.<br>
        Use <i>GetVarLink</i> to resolve links.</td>
    </tr>
    <tr>
        <td>CSV_Array</td>
        <td>16</td>
        <td>Array of CV_ArrVType points to the array type.<br>
        Does only work with one demensional arrays.</td>
    </tr>
</table>
</body>
</html>