sbsv1_os/e32toolp/genutil/genutl.pm
branchRCL_3
changeset 73 22bdd8a90cc4
parent 18 99082257a271
equal deleted inserted replaced
62:7416fe50a180 73:22bdd8a90cc4
    28 	Genutl_StringToVersion
    28 	Genutl_StringToVersion
    29 	Genutl_ParseVersionedName
    29 	Genutl_ParseVersionedName
    30 	Genutl_NormaliseVersionedName
    30 	Genutl_NormaliseVersionedName
    31 );
    31 );
    32 
    32 
    33 use strict;
       
    34 
    33 
    35 sub Genutl_AnyToHex ($) {
    34 sub Genutl_AnyToHex ($) {
    36 # changes decimal and hexadecimal numbers to the required hexadecimal format
    35 # changes decimal and hexadecimal numbers to the required hexadecimal format
    37 	my $Num=$_[0];
    36 	my $Num=$_[0];
    38 	$Num=lc $Num;	# lower casing the x specifying hexadecimal essential
    37 	$Num=lc $Num;	# lower casing the x specifying hexadecimal essential