sheets/make-sheet

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use English;
   5
   6 my $dir = $ARGV[0];
   7 if (!$dir) {
   8     $dir = $ENV{"PWD"};
   9 }
  10
  11 $dir =~ /([^\/]*)\/?$/;
  12 my $name = $1;
  13
  14 print "<?xml version=\"1.0\" encoding=\"iso-8859-1\"?> <!-- -*- xml -*- -->\n";
  15 print "\n";
  16
  17 print "<sheet xmlns=\"http://www.lysator.liu.se/~alla/dia/dia-sheet-ns\">\n";
  18
  19 print "  <name>$name</name>\n";
  20 print "  <description>DESCRIBE $name</description>\n";
  21
  22 print "  <contents>\n";
  23
  24 opendir(DIR, $dir) || die "can't opendir $dir: $!";
  25 my @shapes = grep { /\.shape$/ && -f "$dir/$_" } readdir(DIR);
  26 closedir DIR;
  27
  28 foreach my $shape (@shapes) {
  29     $shape =~ s/(.*)\.shape$/$1/;
  30     print "    <object name=\"$name - $shape\">\n";
  31     print "      <description>DESCRIBE $shape</description>\n";
  32     print "    </object>\n";
  33 }
  34
  35 print "  </contents>\n";
  36 print "</sheet>\n";