/[suikacvs]/messaging/manakai/bin/daf.pl
Suika

Diff of /messaging/manakai/bin/daf.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by wakaba, Fri May 19 11:02:11 2006 UTC revision 1.15 by wakaba, Sat May 20 05:11:37 2006 UTC
# Line 12  use Message::Util::QName::Filter { Line 12  use Message::Util::QName::Filter {
12    Util => q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/>,    Util => q<http://suika.fam.cx/~wakaba/archive/2005/manakai/Util/>,
13  };  };
14    
15    our$VERSION=do{my @r=(q$Revision$=~/\d+/g);sprintf "%d."."%02d" x $#r,@r};
16  use Cwd;  use Cwd;
17  use Getopt::Long;  use Getopt::Long;
18  use Pod::Usage;  use Pod::Usage;
19  my %Opt = (create_module => []);  our %Opt = (create_module => []);
20  my @target_modules;  my @target_modules;
21  GetOptions (  GetOptions (
22    'create-dtd-modules=s' => sub {    'create-dtd-modules=s' => sub {
# Line 49  GetOptions ( Line 50  GetOptions (
50      my $i = [split /\s+/, shift, 2];      my $i = [split /\s+/, shift, 2];
51      push @target_modules, [$i->[0], $i->[1]];      push @target_modules, [$i->[0], $i->[1]];
52    },    },
53      'mod-file-suffix=s' => \$Opt{mod_suffix},
54    'search-path|I=s' => sub {    'search-path|I=s' => sub {
55      shift;      shift;
56      my @value = split /\s+/, shift;      my @value = split /\s+/, shift;
# Line 96  $Opt{dis_suffix} = '.dis' unless defined Line 98  $Opt{dis_suffix} = '.dis' unless defined
98  $Opt{daem_suffix} = '.dafm' unless defined $Opt{daem_suffix};  $Opt{daem_suffix} = '.dafm' unless defined $Opt{daem_suffix};
99  $Opt{dafx_suffix} = '.dafx' unless defined $Opt{dafx_suffix};  $Opt{dafx_suffix} = '.dafx' unless defined $Opt{dafx_suffix};
100  $Opt{dafs_suffix} = '.dafs' unless defined $Opt{dafs_suffix};  $Opt{dafs_suffix} = '.dafs' unless defined $Opt{dafs_suffix};
101    $Opt{mod_suffix} = '.mod' unless defined $Opt{mod_suffix};
102  $Message::DOM::DOMFeature::DEBUG = 1 if $Opt{debug};  $Message::DOM::DOMFeature::DEBUG = 1 if $Opt{debug};
103  require Error;  require Error;
104  $Error::Debug = 1 if $Opt{debug};  $Error::Debug = 1 if $Opt{debug};
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24