[BACK]Return to 129.html CVS log [TXT] [DIR] Up to [parser3project] / parser3 / tests

Diff for /parser3/tests/129.html between versions 1.2 and 1.5

version 1.2, 2003/07/24 11:25:58 version 1.5, 2009/07/08 00:08:18
Line 1 Line 1
 $table[^table::create{group     name  
 first   a  
 first   b  
 second  c  
 third   d  
 third   e  
 }]  
           
 $distinct_tables[^table.hash[group][  
         $.distinct[tables]  
 ]]  
   
 ^distinct_tables.foreach[key;table]{  
         $key ^table.menu{$table.name}[,]<br>  
 }  
   
   @main[]
   $table[^table::create{group     name
   first   a
   first   b
   second  c
   third   d
   third   e
   }]
   
   
   ^do[unique key, no value columns, no options]{
           ^table.hash[name]
   }
   
   
   ^do[non-unique key, no value columns, no options]{
           ^table.hash[group]
   }[if key not unique ^$.distinct(1) must be specified]
   
   
   ^do[non-unique key, no value columns, options: ^$.distinct[tables] (backward)]{
           ^table.hash[group][
                   $.distinct[tables]
           ]
   }
   
   
   ^do[non-unique key, no value columns, options: ^$.distinct[tables], ^$.type[hash] ]{
           ^table.hash[group][
                   $.distinct[tables]
                   $.type[hash]
           ]
   }[^$.distinct[tables] and ^$.type[...] can't be specified together]
   
   
   ^do[non-unique key, no value columns, options: ^$.distinct(1) ^$.type[table]]{
           ^table.hash[group][
                   $.distinct(1)
                   $.type[table]
           ]
   }
   
   
   ^do[non-unique key, no value columns, options: ^$.distinct(1) ^$.type[table]]{
           ^table.hash[group][
                   $.type[table]
           ]
   }[non unique key without distinct option]
   
   
   ^do[unique key, no value columns, options: ^$.type[table]]{
           ^table.hash[name][
                   $.type[table]
           ]
   }
   
   
   ^do[non-unique key, no value columns, options: ^$.distinct(1) ^$.type[hash]]{
           ^table.hash[group][
                   $.distinct(1)
                   $.type[hash]
           ]
   }
   
   
   ^do[non-unique key, no value columns, options: ^$.distinct(1) (as above because ^$.type[hash] == default)]{
           ^table.hash[group][
                   $.distinct(1)
           ]
   }
   
   
   ^do[non-unique key, no value columns, options: ^$.distinct(1) ^$.type[string]]{
           ^table.hash[group][
                   $.distinct(1)
                   $.type[string]
           ]
   }[with ^$.type[string] only one field must be specified]
   
   
   ^do[non-unique key, one value column (name), options: ^$.distinct(1) ^$.type[string]]{
           ^table.hash[group;name][
                   $.distinct(1)
                   $.type[string]
           ]
   }
   
   
   
   
   @do[sTitle;jCode;sExceptionComment][h]
   <h3>$sTitle</h3>
   ^try{
           $h[$jCode]
           ^print[$h]
   }{
           ^if($exception.type eq "parser.runtime"){
                   $exception.handled(1)
                   ^if(def $sExceptionComment){
                           failed, that's OK.<br />
                           $sExceptionComment
                   }{
                           something wrong
                   }
           }
   }
   
   
   
   @print[h][t;v]
   $t[^h._keys[]]
   ^t.sort{$t.key}
   ^t.menu{
           $v[$h.[$t.key]]
           $t.key ^if($v is "table"){^v.menu{$v.name}[,]}{^if($v is "string"){$v}{^if($v is "hash"){<blockquote>^print[$v]</blockquote>}}}<br />
   }
Removed from v.1.2  
changed lines
  Added in v.1.5

E-mail: