equal
deleted
inserted
replaced
36 Generic_WhatCleanTargets |
36 Generic_WhatCleanTargets |
37 Generic_WhatTargets |
37 Generic_WhatTargets |
38 Generic_CleanTargets |
38 Generic_CleanTargets |
39 ); |
39 ); |
40 |
40 |
41 use strict; |
|
42 use File::Basename; |
41 use File::Basename; |
43 use lockit_info; |
42 use lockit_info; |
44 use CheckSource; |
43 use CheckSource; |
45 use E32Variant; |
44 use E32Variant; |
46 |
45 |
331 |
330 |
332 sub Generic_CopyAction($) { |
331 sub Generic_CopyAction($) { |
333 my ($target) = @_; |
332 my ($target) = @_; |
334 my $source = '$?'; |
333 my $source = '$?'; |
335 $target = '$@' if (!defined $target); |
334 $target = '$@' if (!defined $target); |
336 return "perl -w -S ecopyfile.pl $source $target\n"; |
335 return "perl -S ecopyfile.pl $source $target\n"; |
337 } |
336 } |
338 |
337 |
339 # Record necessary directories, for eventual emkdir.pl rules |
338 # Record necessary directories, for eventual emkdir.pl rules |
340 # Also need to record related defines, to eliminate duplicates |
339 # Also need to record related defines, to eliminate duplicates |
341 |
340 |
635 ); |
634 ); |
636 } |
635 } |
637 } |
636 } |
638 &main::Output( |
637 &main::Output( |
639 ":\n", |
638 ":\n", |
640 "\tperl -w -S emkdir.pl \$\@\n", |
639 "\tperl -S emkdir.pl \$\@\n", |
641 "\n" |
640 "\n" |
642 ); |
641 ); |
643 |
642 |
644 &main::Output( |
643 &main::Output( |
645 "CHECKSOURCE :\n", |
644 "CHECKSOURCE :\n", |
787 " \\\n ", &Generic_Quote($$SrcRef{Src}) |
786 " \\\n ", &Generic_Quote($$SrcRef{Src}) |
788 ); |
787 ); |
789 } |
788 } |
790 &main::Output( |
789 &main::Output( |
791 "\n", |
790 "\n", |
792 "\tperl -w -S epocmbm.pl -h\"$TmpBitMapHdr\"", |
791 "\tperl -S epocmbm.pl -h\"$TmpBitMapHdr\"", |
793 "\t-o\"$$BitMapRef{GenericTrg}\"", |
792 "\t-o\"$$BitMapRef{GenericTrg}\"", |
794 "\t-l\"\\$$BitMapRef{TrgPath}:$WorkPath\"", |
793 "\t-l\"\\$$BitMapRef{TrgPath}:$WorkPath\"", |
795 "\\\n\t\t" |
794 "\\\n\t\t" |
796 ); |
795 ); |
797 &main::Output( |
796 &main::Output( |
812 " -l\"\\$$BitMapRef{TrgPath}:$WorkPath\"\n" |
811 " -l\"\\$$BitMapRef{TrgPath}:$WorkPath\"\n" |
813 ); |
812 ); |
814 |
813 |
815 if ($$BitMapRef{Hdr}) { |
814 if ($$BitMapRef{Hdr}) { |
816 &main::Output( |
815 &main::Output( |
817 "\tperl -w -S ecopyfile.pl \"$TmpBitMapHdr\" \"$BitMapHdr\"\n", |
816 "\tperl -S ecopyfile.pl \"$TmpBitMapHdr\" \"$BitMapHdr\"\n", |
818 ); |
817 ); |
819 } |
818 } |
820 &main::Output( |
819 &main::Output( |
821 "\n" |
820 "\n" |
822 ); |
821 ); |
875 my $HeaderOption = ""; |
874 my $HeaderOption = ""; |
876 my $HeaderCopyCmd = ""; |
875 my $HeaderCopyCmd = ""; |
877 if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) { |
876 if (defined $ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} && ($ENV{ABLD_TOOLSMOD_COMPATIBILITY_MODE} eq 'alpha')) { |
878 if ($$ResourceRef{Hdr} || $$ResourceRef{Hdronly}) { |
877 if ($$ResourceRef{Hdr} || $$ResourceRef{Hdronly}) { |
879 $HeaderOption = " -h\"$SavedBldPath\\$BaseResrc$$ResourceRef{Lang}.rsg\""; |
878 $HeaderOption = " -h\"$SavedBldPath\\$BaseResrc$$ResourceRef{Lang}.rsg\""; |
880 $HeaderCopyCmd = "\tperl -w -S ecopyfile.pl \"$SavedBldPath\\$BaseResrc$$ResourceRef{Lang}.rsg\" \"$ResrcHdr\"\n"; |
879 $HeaderCopyCmd = "\tperl -S ecopyfile.pl \"$SavedBldPath\\$BaseResrc$$ResourceRef{Lang}.rsg\" \"$ResrcHdr\"\n"; |
881 } |
880 } |
882 |
881 |
883 } |
882 } |
884 else { |
883 else { |
885 if ($$ResourceRef{Hdr} || $$ResourceRef{Hdronly}) { |
884 if ($$ResourceRef{Hdr} || $$ResourceRef{Hdronly}) { |
886 $HeaderOption = " -h\"$SavedBldPath\\$BaseResrc.rsg\""; |
885 $HeaderOption = " -h\"$SavedBldPath\\$BaseResrc.rsg\""; |
887 $HeaderCopyCmd = "\tperl -w -S ecopyfile.pl \"$SavedBldPath\\$BaseResrc.rsg\" \"$ResrcHdr\"\n"; |
886 $HeaderCopyCmd = "\tperl -S ecopyfile.pl \"$SavedBldPath\\$BaseResrc.rsg\" \"$ResrcHdr\"\n"; |
888 } |
887 } |
889 } |
888 } |
890 if (! $$ResourceRef{Hdronly}) { |
889 if (! $$ResourceRef{Hdronly}) { |
891 $RscOption = " -o\$\@ "; |
890 $RscOption = " -o\$\@ "; |
892 } |
891 } |
910 my $quotedTrg=&Generic_Quote($$ResourceRef{GenericTrg}); |
909 my $quotedTrg=&Generic_Quote($$ResourceRef{GenericTrg}); |
911 &main::Output( |
910 &main::Output( |
912 "GENERIC_RESOURCE : $quotedTrg\n", |
911 "GENERIC_RESOURCE : $quotedTrg\n", |
913 "\n", |
912 "\n", |
914 "$quotedTrg : ", &Generic_Quote($AbsSrc), " \$(DEPEND)\n", |
913 "$quotedTrg : ", &Generic_Quote($AbsSrc), " \$(DEPEND)\n", |
915 "\tperl -w -S epocrc.pl -m045,046,047 -I \"$ChopAbsSrcPath\"" |
914 "\tperl -S epocrc.pl -m045,046,047 -I \"$ChopAbsSrcPath\"" |
916 ); |
915 ); |
917 foreach (@ChopAbsUserIncPaths) { |
916 foreach (@ChopAbsUserIncPaths) { |
918 &main::Output( |
917 &main::Output( |
919 " -I \"$_\"" |
918 " -I \"$_\"" |
920 ); |
919 ); |
1041 } |
1040 } |
1042 $bitmapArg .= "\" "; |
1041 $bitmapArg .= "\" "; |
1043 } |
1042 } |
1044 &main::Output( |
1043 &main::Output( |
1045 "\n", |
1044 "\n", |
1046 "\tperl -w -S epocaif.pl -o\$\@ ", |
1045 "\tperl -S epocaif.pl -o\$\@ ", |
1047 "\"$$AifRef{Source}\" ", |
1046 "\"$$AifRef{Source}\" ", |
1048 "\\\n\t\t", |
1047 "\\\n\t\t", |
1049 "-t\"$SavedBldPath\" ", |
1048 "-t\"$SavedBldPath\" ", |
1050 " -l\"\$(TRGDIR):$WorkPath\"", |
1049 " -l\"\$(TRGDIR):$WorkPath\"", |
1051 $bitmapArg, |
1050 $bitmapArg, |