[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.6 and 1.49

version 1.6, 2004/02/18 13:07:55 version 1.49, 2004/06/22 14:12:57
Line 1 Line 1
 @main[]  
 $request:charset[UTF-8]  
 #$response:charset[UTF-8]  
 $response:charset[windows-1251]  
 $response:content-type[$.value[text/html]$.charset[$response:charset]]  
 $xdoc[^xdoc::create{<?xml version="1.0" encoding="$request:charset"?>  
 <doc>  
 исходный  
 </doc>  
 }]  
 $xdoc[^xdoc.transform[_bug.xsl]]  
 ^xdoc.string[]  
 ^xdoc.save[_bug.xml;$.encoding[koi8-r]]  
 <hr>  
 $request:charset/$response:charset  
   
   @main[]
   ^connect[oracle://mts_imprimatur2:imp2@mts]{
   #    ^in[]
           ^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}
   
   @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}
Removed from v.1.6  
changed lines
  Added in v.1.49

E-mail: