kc3-lang/libxml2/dbgen.pl

• Show log

  Commit

• Hash : f6bc7c24
  Author :
  Date : 2003-09-17T22:33:22
  

  add a Timingtests target to check bad behaviour from the streaming engine
  
  * Makefile.am: add a Timingtests target to check bad behaviour
    from the streaming engine
  * dbgen.pl dbgenattr.pl: perl script to generate big instances
  * xmlreader.c: fix a bad behaviour on large buffer inputs
  Daniel
  

Download

• dbgen.pl

• #!/usr/bin/perl
  
  $size = shift;
  
  if ($size eq "") 
  {
      die "usage:  dbgen.pl [size]\n";
  }
  
  @firstnames = ("Al", "Bob", "Charles", "David", "Egon", "Farbood", 
                 "George", "Hank", "Inki", "James");
  @lastnames = ("Aranow", "Barker", "Corsetti", "Dershowitz", "Engleman", 
                "Franklin", "Grice", "Haverford", "Ilvedson", "Jones");
  @states = ("AL", "AK", "AZ", "AR", "CA", "CO", "CT", "DE", "FL", "GA", 
             "HI", "ID", "IL", "IN", "IA", "KS", "KY", "LA", "ME", "MD", 
             "MA", "MI", "MN", "MS", "MO", "MT", "NE", "NV", "NH", "NJ", 
             "NM", "NY", "NC", "ND", "OH", "OK", "OR", "PA", "RI", "SC", 
             "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV", "WI", "WY");
  
  print "<?xml version=\"1.0\"?>\n";
  print "\n";
  print "<table>\n";
  
  for ($i=0; $i<$size; $i++)
  {
      $first = $firstnames [$i % 10];
      $last = $lastnames [($i / 10) % 10];
      $state = $states [($i / 100) % 50];
      $zip = 22000 + $i / 5000;
  
      printf "  <row>\n";
      printf "    <id>%04d</id>\n", $i;
      printf "    <firstname>$first</firstname>\n", $i;
      printf "    <lastname>$last</lastname>\n", $i;
      printf "    <street>%d Any St.</street>\n", ($i % 100) + 1;
      printf "    <city>Anytown</city>\n";
      printf "    <state>$state</state>\n";
      printf "    <zip>%d</zip>\n", $zip;
      printf "  </row>\n";
  }
  
  print "</table>\n";
  
  

Download