summaryrefslogtreecommitdiffstats
path: root/libxml2/dbgenattr.pl
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2016-10-19 18:26:52 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2016-10-19 18:26:52 (GMT)
commit818fd731f62993dc8aa5d07b82e1d1b2c04aae7d (patch)
tree41a61b0a1b18ed5ffeeb028e986b3586f9063628 /libxml2/dbgenattr.pl
parentd72feaf69933b069cff3c0cb20a5f5f03ecba77b (diff)
downloadblt-818fd731f62993dc8aa5d07b82e1d1b2c04aae7d.zip
blt-818fd731f62993dc8aa5d07b82e1d1b2c04aae7d.tar.gz
blt-818fd731f62993dc8aa5d07b82e1d1b2c04aae7d.tar.bz2
update libxml2
Diffstat (limited to 'libxml2/dbgenattr.pl')
-rwxr-xr-xlibxml2/dbgenattr.pl42
1 files changed, 0 insertions, 42 deletions
diff --git a/libxml2/dbgenattr.pl b/libxml2/dbgenattr.pl
deleted file mode 100755
index dce11cd..0000000
--- a/libxml2/dbgenattr.pl
+++ /dev/null
@@ -1,42 +0,0 @@
-#!/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'\n", $i;
- printf " firstname='$first'\n", $i;
- printf " lastname='$last'\n", $i;
- printf " street='%d Any St.'\n", ($i % 100) + 1;
- printf " city='Anytown'\n";
- printf " state='$state'\n";
- printf " zip='%d'/>\n", $zip;
-}
-
-print "</table>\n";
-