/
default.expect.txt
17 lines (12 loc) · 1023 Bytes
/
default.expect.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
<span class="hljs-keyword">package</span> <span class="hljs-keyword">body</span> <span class="hljs-title">Sqlite.Simple </span><span class="hljs-keyword">is</span>
Foo : <span class="hljs-type">int</span> := int<span class="hljs-symbol">'Size</span>;
Bar : <span class="hljs-type">int</span> := long<span class="hljs-symbol">'Size</span>;
Error_Message_C : <span class="hljs-type">chars_ptr</span> := Sqlite_Errstr (Error);
Error_Message : <span class="hljs-type">String</span> := Null_Ignore_Value (Error_Message_C);
<span class="hljs-keyword">begin</span>
Named : <span class="hljs-keyword">for</span> Index <span class="hljs-keyword">in</span> Foo..Bar <span class="hljs-keyword">loop</span>
Put (<span class="hljs-string">"Hi[]{}"</span>);
<span class="hljs-keyword">end</span> <span class="hljs-keyword">loop</span> Named;
Foo := Bar;
<span class="hljs-keyword">end</span> Message;
<span class="hljs-keyword">end</span> Sqlite.Simple;