Mercurial > hg > Applications > Calcon

comparison pool.pl @ 12:b55c65241693

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author kono
date Thu, 23 Mar 2006 21:56:08 +0900
parents 1a68139a269f
children
comparison
equal deleted inserted replaced
11:d8035079fa42 12:b55c65241693
63 63
64 my $mode = "input"; 64 my $mode = "input";
65 my $type = "file"; 65 my $type = "file";
66 my $pool = Calcon::Pool->new(); 66 my $pool = Calcon::Pool->new();
67 my $last_flag = 0; 67 my $last_flag = 0;
68 my $first_flag = 1;
68 69
69 while(my $file = shift( @ARGV )) { 70 while(my $file = shift( @ARGV )) {
70 my ($obj,$out,$opt); 71 my ($obj,$out,$opt);
71 72
72 if ($file =~ /^-([^-]*)-([^-]*)((-[^-]*)*)/) { 73 if ($file =~ /^-([^-]*)-([^-]*)((-[^-]*)*)/) {
73 $mode = $1; 74 $mode = $1;
74 $type = $2; 75 $type = $2;
75 $opt = $3; 76 $opt = $3;
76 $file = shift(@ARGV); 77 $file = shift(@ARGV);
78 $first_flag = 0;
77 } else { 79 } else {
78 &usage_die(); 80 &usage_die();
81
82 #
83 # decode を呼び出しても処理は繰り返し行われないらしい
84 #
85 # if ($first_flag) {
86 # &usage_die();
87 # } else {
88 # $file = shift(@ARGV);
89 # }
79 } 90 }
80 91
81 if (0 && $#ARGV==1 && $ARGV[0]=~/^-output/) { 92 if (0 && $#ARGV==1 && $ARGV[0]=~/^-output/) {
82 # we need not pool interface for this case 93 # we need not pool interface for this case
83 # It does not help speed so we abandon it. 94 # It does not help speed so we abandon it.