mirror of
https://github.com/rvtr/TwlIPL.git
synced 2025-10-31 06:01:12 -04:00
f70a9e8fd3
git-svn-id: file:///Users/lillianskinner/Downloads/platinum/twl/TwlIPL/trunk@2448 b08762b0-b915-fc4b-9d8c-17b2551a87ff
111 lines
2.8 KiB
Perl
Executable File
111 lines
2.8 KiB
Perl
Executable File
|
|
package util;
|
|
|
|
#-----------------------------------------------------------------------
|
|
# name : get_title_version
|
|
# function : get the title version from the specified tad file
|
|
#-----------------------------------------------------------------------
|
|
sub get_title_version {
|
|
|
|
my $titleVersion = 0 ;
|
|
my $cmdPython = "/usr/bin/python.exe";
|
|
my $scrpPython = "/usr/local/bin/mkcls.py";
|
|
$tad = $_[0];
|
|
|
|
open(PY, "$cmdPython $scrpPython $tad | ") or die "$!";
|
|
$titleVersion = $1 if ( <PY> =~ /([0-9]{1,})/) ;
|
|
close(PY);
|
|
|
|
$titleVersion;
|
|
}
|
|
|
|
#-----------------------------------------------------------------------
|
|
# name : get_nlist
|
|
# function : get the list of the specified directory except "." and ".."
|
|
#-----------------------------------------------------------------------
|
|
sub get_nlist {
|
|
my $dirname = ( $#_ < 0) ? "." : $_[0];
|
|
my @list;
|
|
|
|
unless ( opendir(DIR, "$dirname") ) {
|
|
print "Can't open directory: $dirname\n";
|
|
return "";
|
|
}
|
|
|
|
foreach $node ( readdir(DIR) ) {
|
|
push(@list, $node) unless ( $node =~ /^\.{1,2}$/ );
|
|
}
|
|
closedir(DIR);
|
|
|
|
@list;
|
|
}
|
|
|
|
|
|
#-----------------------------------------------------------------------
|
|
# name : fecheck
|
|
# function : check the specified file existence (Error if no file)
|
|
#-----------------------------------------------------------------------
|
|
sub fecheck {
|
|
my $filename = $_[0];
|
|
unless ( -e $filename ) {
|
|
print <<ERROR_NO_FILE;
|
|
[ # Error] No such file : $filename
|
|
ERROR_NO_FILE
|
|
return 0;
|
|
}
|
|
1;
|
|
}
|
|
|
|
#-----------------------------------------------------------------------
|
|
# name : fwcheck
|
|
# function : check the specified file existence (Warning if no file)
|
|
#-----------------------------------------------------------------------
|
|
sub fwcheck {
|
|
my $filename = $_[0];
|
|
unless ( -e $filename ) {
|
|
print <<WARN_NO_FILE;
|
|
[ = Warn ] No such file : $filename
|
|
WARN_NO_FILE
|
|
return 0;
|
|
}
|
|
1;
|
|
}
|
|
|
|
sub get_filebody {
|
|
my ($filename_body) = @_;
|
|
$filename_body = $1 if ( $filename_body =~ /(.{1,})\.[^.]{1,}$/);
|
|
$filename_body;
|
|
}
|
|
|
|
sub get_fileext {
|
|
my ($filename_ext) = @_;
|
|
$filename_ext = $1 if ( $filename_ext =~ /.{1,}\.([^.]{1,})$/);
|
|
$filename_ext;
|
|
}
|
|
|
|
#-----------------------------------------------------------------------
|
|
# name : cnv_str2hex
|
|
# function : check the specified file existence (Warning if no file)
|
|
#-----------------------------------------------------------------------
|
|
sub cnv_str2hex {
|
|
my $instr = $_[0];
|
|
my $outstr = "" ;
|
|
my $i;
|
|
|
|
my $len = ($#_<1) ? 1 : $_[1];
|
|
|
|
#print (substr($instr, 0, 1));
|
|
#print (substr($instr, 1, 1));
|
|
for ( $i=0; $i<$len; $i++) {
|
|
$outstr .= chr ( (hex(substr($_[0], $i*2, 1))<<4)
|
|
| (hex(substr($_[0], $i*2+1, 1)) ) );
|
|
#print $outstr."\n";
|
|
}
|
|
return $outstr;
|
|
}
|
|
|
|
return 1;
|
|
|
|
__END__
|
|
|