/[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.21 by wakaba, Sat Dec 2 12:46:18 2006 UTC revision 1.22 by wakaba, Sat Dec 30 12:49:58 2006 UTC
# Line 31  GetOptions ( Line 31  GetOptions (
31      my $i = [split /\s+/, shift, 3];      my $i = [split /\s+/, shift, 3];
32      $i->[3] = 'perl-pm';      $i->[3] = 'perl-pm';
33      push @{$Opt{create_module}}, $i;      push @{$Opt{create_module}}, $i;
34      push @target_modules, [$i->[0], $i->[2]];      push @target_modules, $i->[0];
35    },    },
36    'create-perl-test=s' => sub {    'create-perl-test=s' => sub {
37      shift;      shift;
38      my $i = [split /\s+/, shift, 3];      my $i = [split /\s+/, shift, 3];
39      $i->[3] = 'perl-t';      $i->[3] = 'perl-t';
40      push @{$Opt{create_module}}, $i;      push @{$Opt{create_module}}, $i;
41      push @target_modules, [$i->[0], $i->[2]];      push @target_modules, $i->[0];
42    },    },
43    'debug' => \$Opt{debug},    'debug' => \$Opt{debug},
44    'dis-file-suffix=s' => \$Opt{dis_suffix},    'dis-file-suffix=s' => \$Opt{dis_suffix},
# Line 50  GetOptions ( Line 50  GetOptions (
50    'load-module=s' => sub {    'load-module=s' => sub {
51      shift;      shift;
52      my $i = [split /\s+/, shift, 2];      my $i = [split /\s+/, shift, 2];
53      push @target_modules, [$i->[0], $i->[1]];      push @target_modules, $i->[0];
54    },    },
55    'mod-file-suffix=s' => \$Opt{mod_suffix},    'mod-file-suffix=s' => \$Opt{mod_suffix},
56    'search-path|I=s' => sub {    'search-path|I=s' => sub {
# Line 302  for (@{$Opt{create_module}}) { Line 302  for (@{$Opt{create_module}}) {
302    my ($mod_uri, $out_file_path, $mod_for, $out_type) = @$_;    my ($mod_uri, $out_file_path, $mod_for, $out_type) = @$_;
303    
304    if ($out_type eq 'perl-pm') {    if ($out_type eq 'perl-pm') {
305      daf_perl_pm ($mod_uri, $out_file_path, $mod_for);      daf_perl_pm ($mod_uri, $out_file_path);
306    } elsif ($out_type eq 'perl-t') {    } elsif ($out_type eq 'perl-t') {
307      daf_perl_t ($mod_uri, $out_file_path, $mod_for);      daf_perl_t ($mod_uri, $out_file_path);
308    } elsif ($out_type eq 'dtd-modules') {    } elsif ($out_type eq 'dtd-modules') {
309      daf_dtd_modules ($mod_uri, $out_file_path, $mod_for);      daf_dtd_modules ($mod_uri, $out_file_path, $mod_for);
310    } elsif ($out_type eq 'dtd-driver') {    } elsif ($out_type eq 'dtd-driver') {
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24