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

Diff for /parser3/tests/129.html between versions 1.1.2.1 and 1.3

version 1.1.2.1, 2003/04/11 10:57:24 version 1.3, 2007/08/17 10:51:43
Line 1 Line 1
   @main[]
 $table[^table::create{group     name  $table[^table::create{group     name
 first   a  first   a
 first   b  first   b
Line 5  second c Line 6  second c
 third   d  third   d
 third   e  third   e
 }]  }]
           
 $distinct_tables[^table.hash[group][  
   <b>^$.distinct[tables]</b><br />
   ^print[^table.hash[group][
         $.distinct[tables]          $.distinct[tables]
 ]]  ]]
   
 ^distinct_tables.foreach[key;table]{  
         $key ^table.menu{$table.name}[,]<br>  <hr />
   <b>^$.distinct(1) ^$.type[table]</b><br />
   ^print[^table.hash[group][
           $.distinct(1)
           $.type[table]
   ]]
   
   
   <hr />
   <b>^$.distinct(1) ^$.type[hash]</b><br />
   ^print[^table.hash[group][
           $.distinct(1)
           $.type[hash]
   ]]
   
   
   <hr />
   <b>^$.distinct(1) ^$.type[string]</b><br />
   ^try{
           ^print[^table.hash[group][
                   $.distinct(1)
                   $.type[string]
           ]]
   }{
           ^if($exception.type eq parser.runtime){
                   failed, that's OK.
                   <br />with ^$.type[string] only one field must be specified
                   $exception.handled(1)
           }
   }
   
   
   <hr />
   <b>^$.distinct(1) ^$.type[string]</b><br />
   ^print[^table.hash[group;name][
           $.distinct(1)
           $.type[string]
   ]]
   
   
   @print[hData][sKey;value]
   ^hData.foreach[sKey;value]{
           $sKey ^if($value is "table"){^value.menu{$value.name}[,]}{^if($value is "string"){$value}{^if($value is "hash"){<blockquote>^print[$value]</blockquote>}}}<br />
 }  }
   
Removed from v.1.1.2.1  
changed lines
  Added in v.1.3

E-mail: