| version 1.4 | | version 1.5 |
|---|
| | |
| | | |
| require "util.pl"; | | require "util.pl"; |
| | | |
| if ($#ARGV != 0 || ($ARGV[0] =~ m/^--?[hH](elp)?$/)){ | | if ($#ARGV >= 0) { |
| | | if ($ARGV[0] =~ m/^--?[hH](elp)?$/){ |
| die ("\nUSAGE: perl collect.pl ARCHDIR\n". | | die ("\nUSAGE: perl collect.pl ARCHDIR\n". |
| "\nWhere ARCHDIR is the directory where you stored the ". | | "\nWhere ARCHDIR is the directory where you stored the ". |
| "raw archetypes.\n". | | "raw archetypes.\n". |
| | |
| "archetypes,bmaps,bmaps.paths,faces,animations.\n" | | "archetypes,bmaps,bmaps.paths,faces,animations.\n" |
| ) | | ) |
| } | | } |
| | | } |
| | | |
| | | # archonly is used to only build the archetypes. I find this |
| | | # very handy if I know I've only changed .arc files - I don't want |
| | | # to rebuild the other files, because now cvs tries to do diffs |
| | | # on them as well as commit them, even if there are no changes. |
| | | $archonly = 0; |
| | | if ($#ARGV >= 1) { |
| | | if ($ARGV[1] eq "ARCHONLY") { $archonly = 1; } |
| | | else {print "Ignoring unknown option: $ARGV[1]\n"; } |
| | | } |
| | | |
| | | |
| $root = $ARGV[0]; | | $root = $ARGV[0]; |
| | |
| &archsOut; | | &archsOut; |
| close(ARCH); | | close(ARCH); |
| | | |
| | | |
| | | if (!$archonly) { |
| &info("$bmaps"); | | &info("$bmaps"); |
| open(BMAPS,">".$bmaps) || &die("cannot open ".$bmaps); | | open(BMAPS,">".$bmaps) || &die("cannot open ".$bmaps); |
| &bmapsOut; | | &bmapsOut; |
| close(BMAPS); | | close(BMAPS); |
| | | |
| open(BMAPS,">".$paths) || &die("cannot open ".$paths); | | open(BMAPS,">".$paths) || &die("cannot open ".$paths); |
| &pathsOut; | | &pathsOut; |
| close(BMAPS); | | close(BMAPS); |
| | |
| open(ANIM,">".$animations) || &die("cannot open ".$animations); | | open(ANIM,">".$animations) || &die("cannot open ".$animations); |
| &animOut; | | &animOut; |
| close(ANIM); | | close(ANIM); |
| | | } |
| | | |
| | | |
| &stats; | | &stats; |
| exit 0; | | exit 0; |