[svn:parrot] r41369 - trunk/tools/dev

[fperrad at svn.parrot.org]

Author: fperrad
Date: Sat Sep 19 20:12:39 2009
New Revision: 41369
URL: https://trac.parrot.org/parrot/changeset/41369

Log:
[languages] add a subdir lang 
(used with the opcode load_language)

Modified:
   trunk/tools/dev/mk_inno_language.pl

Modified: trunk/tools/dev/mk_inno_language.pl
==============================================================================
--- trunk/tools/dev/mk_inno_language.pl	Sat Sep 19 19:37:25 2009	(r41368)
+++ trunk/tools/dev/mk_inno_language.pl	Sat Sep 19 20:12:39 2009	(r41369)
@@ -59,6 +59,9 @@
 my $pbc = <*.pbc>
         ? qq{Source: ".\\*.pbc"; DestDir: "{app}\\lib\\parrot\\languages\\$lang"; Flags:}
         : '; no .pbc';
+my $lng = -d $lang
+        ? qq{Source: ".\\$lang\\*"; DestDir: "{app}\\lib\\parrot\\languages\\$lang"; Flags: ignoreversion recursesubdirs}
+        : '; no lang';
 my $lib = <library/*.pbc>
 #        ? qq{Source: ".\\library\\*.pbc"; DestDir: "{app}\\lib\\parrot\\languages\\$lang\\library"; Flags: ignoreversion recursesubdirs}
         ? qq{Source: ".\\library\\*.pbc"; DestDir: "{app}\\lib\\parrot\\library\\$lang"; Flags: ignoreversion recursesubdirs}
@@ -109,6 +112,7 @@
 [Files]
 $exe
 $pbc
+$lng
 $lib
 $pmc
 $ops