[BACK]Return to _bug.html CVS log [TXT] [DIR] Up to [parser3project] / parser3 / www / htdocs

Diff for /parser3/www/htdocs/Attic/_bug.html between versions 1.29 and 1.50

version 1.29, 2004/03/09 14:49:47 version 1.50, 2004/06/22 14:15:57
Line 1 Line 1
 @main[]  @main[]
 $request:charset[windows-1251]  ^connect[oracle://mts_imprimatur2:imp2@mts]{
 $response:charset[windows-1251]  #    ^in[]
 $response:content-type[text/html]  #       ^out[]
           ^inout[]
 ^if(def $form:param){          OK
         ^$form:param=$form:param<br>  }
   
         $several[$form:tables.several]  @inp[]
         ^$form:tables.several=^several.menu{  create table pif(a integer);
                 $several.field  create or replace procedure paf(a in integer) as begin
         }[,]  insert into pif (a) values (:a);
 }{  end;
   /
 $f[^file::load[text;http://parser3/_bug.html;  
 #       $.method[POST]  @in[]
         $.form[  #    ^void:sql{create table paf(a clob)}
                 $.param[pass=ed  #    ^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]
                 ]                  ]
                 $.several[^table::create[nameless]{1^#0A2}]  
         ]          ]
         $.any-status(1)          ^int:sql{select count(*) from pif}
 ]]          "^string:sql{select a from pif}"
   
 =$f.text=  #       ^string:sql{select a from paf}
   
   @outp[]
   create or replace procedure pafm(ai in integer,ao out integer) as begin
   ao:=ai;
   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}
   
   @inoutp[]
   create or replace procedure pafio(aio in out integer) as begin
   aio:=aio*2;
   end;
   /
   @inout[]
       $vars[
           $.aio(2222)
       ]
           before "$vars.aio"<br>
           ^void:sql{call pafio(:aio)}[
                   $.bind[$vars]
           ]
           after "$vars.aio"
   
 }  
   
   #       ^string:sql{select a from paf}
Removed from v.1.29  
changed lines
  Added in v.1.50

E-mail: