/[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.15 by wakaba, Sat May 20 05:11:37 2006 UTC revision 1.17 by wakaba, Sun Sep 10 11:19:23 2006 UTC
# Line 19  use Pod::Usage; Line 19  use Pod::Usage;
19  our %Opt = (create_module => []);  our %Opt = (create_module => []);
20  my @target_modules;  my @target_modules;
21  GetOptions (  GetOptions (
22      'create-dtd-driver=s' => sub {
23        shift;
24        my $i = [split /\s+/, shift, 3];
25        $i->[3] = 'dtd-driver';
26        push @{$Opt{create_module}}, $i;
27      },
28    'create-dtd-modules=s' => sub {    'create-dtd-modules=s' => sub {
29      shift;      shift;
30      my $i = [split /\s+/, shift, 3];      my $i = [split /\s+/, shift, 3];
# Line 44  GetOptions ( Line 50  GetOptions (
50    'daem-file-suffix=s' => \$Opt{daem_suffix},    'daem-file-suffix=s' => \$Opt{daem_suffix},
51    'dafs-file-suffix=s' => \$Opt{dafs_suffix},    'dafs-file-suffix=s' => \$Opt{dafs_suffix},
52    'dafx-file-suffix=s' => \$Opt{dafx_suffix},    'dafx-file-suffix=s' => \$Opt{dafx_suffix},
53      'dtd-file-suffix=s' => \$Opt{dtd_suffix},
54    'help' => \$Opt{help},    'help' => \$Opt{help},
55    'load-module=s' => sub {    'load-module=s' => sub {
56      shift;      shift;
# Line 98  $Opt{dis_suffix} = '.dis' unless defined Line 105  $Opt{dis_suffix} = '.dis' unless defined
105  $Opt{daem_suffix} = '.dafm' unless defined $Opt{daem_suffix};  $Opt{daem_suffix} = '.dafm' unless defined $Opt{daem_suffix};
106  $Opt{dafx_suffix} = '.dafx' unless defined $Opt{dafx_suffix};  $Opt{dafx_suffix} = '.dafx' unless defined $Opt{dafx_suffix};
107  $Opt{dafs_suffix} = '.dafs' unless defined $Opt{dafs_suffix};  $Opt{dafs_suffix} = '.dafs' unless defined $Opt{dafs_suffix};
108    $Opt{dtd_suffix} = '.dtd' unless defined $Opt{dtd_suffix};
109  $Opt{mod_suffix} = '.mod' unless defined $Opt{mod_suffix};  $Opt{mod_suffix} = '.mod' unless defined $Opt{mod_suffix};
110  $Message::DOM::DOMFeature::DEBUG = 1 if $Opt{debug};  $Message::DOM::DOMFeature::DEBUG = 1 if $Opt{debug};
111  require Error;  require Error;
# Line 150  for (@{$Opt{create_module}}) { Line 158  for (@{$Opt{create_module}}) {
158      require 'manakai/daf-dtd-modules.pl';      require 'manakai/daf-dtd-modules.pl';
159      $feature{ExpandedURI q<fe:GenericLS>} = '3.0';      $feature{ExpandedURI q<fe:GenericLS>} = '3.0';
160      $feature{'+' . ExpandedURI q<fe:XDP>} = '3.0';      $feature{'+' . ExpandedURI q<fe:XDP>} = '3.0';
161      } elsif ($out_type eq 'dtd-driver') {
162        require 'manakai/daf-dtd-modules.pl';
163        $feature{ExpandedURI q<fe:GenericLS>} = '3.0';
164        $feature{'+' . ExpandedURI q<fe:XDP>} = '3.0';
165    }    }
166  }  }
167    
# Line 262  $db->read_properties (on_resource_read = Line 274  $db->read_properties (on_resource_read =
274      status_msg_ " " if ($ResourceCount % (10 * 10)) == 0;      status_msg_ " " if ($ResourceCount % (10 * 10)) == 0;
275      status_msg '' if ($ResourceCount % (10 * 50)) == 0;      status_msg '' if ($ResourceCount % (10 * 50)) == 0;
276    }    }
277  });  }, implementation => $impl);
278  status_msg '';  status_msg '';
279  status_msg "done";  status_msg "done";
280    
# Line 311  for (@{$Opt{create_module}}) { Line 323  for (@{$Opt{create_module}}) {
323      daf_perl_t ($mod_uri, $out_file_path, $mod_for);      daf_perl_t ($mod_uri, $out_file_path, $mod_for);
324    } elsif ($out_type eq 'dtd-modules') {    } elsif ($out_type eq 'dtd-modules') {
325      daf_dtd_modules ($mod_uri, $out_file_path, $mod_for);      daf_dtd_modules ($mod_uri, $out_file_path, $mod_for);
326      } elsif ($out_type eq 'dtd-driver') {
327        daf_dtd_driver ($mod_uri, $out_file_path, $mod_for);
328    }    }
329  }  }
330    
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.17
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24