parser3/www/htdocs/_bug.html - diff

Return to _bug.html CVS log

Up to [parser3project] / parser3 / www / htdocs

-version 1.49, 2004/06/22 14:12:57
+version 1.92, 2005/07/29 06:17:38
  Line 1
- @main[]
+ @USE
- ^connect[oracle://mts_imprimatur2:imp2@mts]{
+ /_bug_derived.p
- #    ^in[]
+ #/_bug.p
-         ^out[]
-         OK
- }
- @inp[]
- create or replace procedure paf(a in integer) as begin
- insert into pif (a) values (:a);
- end;
- /
- @in[]
- #    ^void:sql{create table paf(a clob)}
- #    ^void:sql{insert into paf (a) values (/**a**/'a')}
- #    ^void:sql{insert into paf (a) values (:unk)}
-         ^void:sql{delete from pif}
-         ^void:sql{call paf(:a)}[
-                 $.bind[
-                         $.a[2]
-                 ]
-         ]
-         ^int:sql{select count(*) from pif}
-         "^string:sql{select a from pif}"
- #       ^string:sql{select a from paf}
+ @main[]
+ $bug[^bug_derived::create[value from ctor]]
- @outp[]
+ read:$bug.paf<br>
- create or replace procedure pafm(ai in integer,ao out integer) as begin
+ write:$bug.paf[works]<br>
- ao:=ai;
+ read:$bug.paf<br>
- end;
- /
- @out[]
-     $vars[
-         $.ai(2222)
-         $.ao[sad]
-     ]
-         ^void:sql{call pafm(:ai,:ao)}[
-                 $.bind[$vars]
-         ]
-         "$vars.ai"
-         "$vars.ao"
- #       ^string:sql{select a from paf}

E-mail: