| version 1.1 | | version 1.2 |
|---|
| | |
| # Empty directive to prevent warnings below | | # Empty directive to prevent warnings below |
| } elsif( $file =~ /.*\.arc$/) { # ARCHETYPE | | } elsif( $file =~ /.*\.arc$/) { # ARCHETYPE |
| $archsNum++; | | $archsNum++; |
| push(@archs,$file); | | push(@archs,$file);n |
| } elsif( $file =~ /.*$faceExt$/) { # FACE | | } elsif( $name =~ /(\S+)\.base($faceExt)\.png$/) { # FACE |
| | | |
| $facesNum++; | | $facesNum++; |
| &warn("duplicate face ".$name." in ".$dir." and $faces{$name}") | | $im_name = "$1$2"; |
| if $faces{$name}; | | &warn("duplicate face $im_name in ".$dir." and $faces{$im_name}") |
| $faces{$name} = $file; | | if $faces{$im_name}; |
| # &warn($file." has no archetype") | | $faces{$im_name} = $im_name; |
| # if ! -r $dir."/".&basename($file,$faceExt).".arc"; | | |
| } elsif( $file =~ /.*$faceExt.xpm$/ || $file =~ /.$faceExt.png$/ ) { # FACE | | |
| # Empty directive to prevent warnings below | | |
| } elsif ( $file =~ /.*\.face$/) { # Face information file | | } elsif ( $file =~ /.*\.face$/) { # Face information file |
| $facesFileNum++; | | $facesFileNum++; |
| push(@face_files, $file); | | push(@face_files, $file); |
| } | | } |
| | | elsif ( $file =~ /\.png$/ || $file =~ /\.xpm$/ || $file =~ /$faceExt$/) { |
| | | # we cover many files we probably shouldn't, but oh well. |
| | | # we just don't want complaints about all of these. |
| | | } |
| # ignore a couple of the more common 'junk' files that are not | | # ignore a couple of the more common 'junk' files that are not |
| # really junk. | | # really junk. |
| elsif (($name ne "README") && ($name ne "CVS")) { | | elsif (($name ne "README") && ($name ne "CVS")) { |