mirror of
https://gitlab.gnome.org/GNOME/libxslt
synced 2025-09-11 16:10:45 +03:00
fb0a57cf03
- configure.in tests/Makefile.am tests/XSLTMark/* tests/multiple: added the XSLTMark in the regression tests as well as multiple output test from Ankh - libxslt/functions.c libxslt/keys.c libxslt/transform.c libxslt/variables.c libxslt/xsltutils.c: applied William M. Brack patches and fixed a memory leak - tests/docbook/result/html/*.html : updated the results after William's patch - tests/xmlspec/REC-xml-20001006-review.html tests/xmlspec/REC-xml-20001006.html: libxml now don't invent an HTML doctype when serializing HTML result, but adds the encoding in ALT Daniel
44 lines
1.3 KiB
Raku
Executable File
44 lines
1.3 KiB
Raku
Executable File
#!/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";
|
|
|