cvs commit: ponie/src/pmc perl5av.pmc perl5xpvhv.pmc

cvsuser     04/04/16 09:44:06

  Modified:    .        Configure.pl
               src/pmc  perl5av.pmc perl5xpvhv.pmc
  Log:
  Changes to make ponie work with ICU:
    Link ICU's libs
    Force an absolute path on ICU's data file
    Change parameters to string_make in ponie's PMCs
  
  Revision  Changes    Path
  1.16      +4 -2      ponie/Configure.pl
  
  Index: Configure.pl
  ===================================================================
  RCS file: /cvs/public/ponie/Configure.pl,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -w -r1.15 -r1.16
  --- Configure.pl	22 Mar 2004 09:32:50 -0000	1.15
  +++ Configure.pl	16 Apr 2004 16:44:06 -0000	1.16
  @@ -47,7 +47,9 @@
       system('ln','-s','../../src/pmc/perl5xpvhv.pmc') && die "error";
       chdir('..') || die;
       system($^X,'Configure.pl', "--gc=libc",
  -	   "--ccflags= :add{ -I$dir/perl}") && die "error";
  +	   "--ccflags= :add{ -I$dir/perl}",
  +	   "--icudatadir=$FindBin::Bin/parrot/blib/lib/icu/2.6.1")
  +      && die "error";
       system('make')  && die "error";
       chdir('..') || die;
   }
  @@ -66,7 +68,7 @@
   my %munge;
   $munge{cppflags} = $munge{ccflags} = " -I${inc_path}";
   $munge{ldflags} = $munge{lddlflags} = " -L${lib_path}";
  -$munge{libs} = $munge{perllibs} = " -lparrot";
  +$munge{libs} = $munge{perllibs} = " -lparrot -licuuc -licudata ";
   $munge{libpth} = $lib_path;
   
   while (my ($key, $value) = each %munge) {
  
  
  
  1.3       +2 -2      ponie/src/pmc/perl5av.pmc
  
  Index: perl5av.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5av.pmc,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- perl5av.pmc	25 Feb 2004 16:08:15 -0000	1.2
  +++ perl5av.pmc	16 Apr 2004 16:44:06 -0000	1.3
  @@ -1,7 +1,7 @@
   /* Perl5AV.pmc
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: perl5av.pmc,v 1.2 2004/02/25 16:08:15 sky Exp $
  + *     $Id: perl5av.pmc,v 1.3 2004/04/16 16:44:06 nicholas Exp $
    *  Overview:
    *     These are the vtable functions for the Perl5AV base class
    *  Data Structure and Algorithms:
  @@ -138,7 +138,7 @@
   
       STRING* get_string () {
   	printf("Get string is called!\n");
  -        return (STRING*) string_make(interpreter, "true", 4, 0, 0, 0);
  +        return (STRING*) string_make(interpreter, "true", 4, "iso-88591-1", 0);
       }
   
       STRING* get_string_keyed (PMC* key) {
  
  
  
  1.2       +2 -2      ponie/src/pmc/perl5xpvhv.pmc
  
  Index: perl5xpvhv.pmc
  ===================================================================
  RCS file: /cvs/public/ponie/src/pmc/perl5xpvhv.pmc,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- perl5xpvhv.pmc	27 Feb 2004 14:23:40 -0000	1.1
  +++ perl5xpvhv.pmc	16 Apr 2004 16:44:06 -0000	1.2
  @@ -1,7 +1,7 @@
   /* Perl5AV.pmc
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: perl5xpvhv.pmc,v 1.1 2004/02/27 14:23:40 sky Exp $
  + *     $Id: perl5xpvhv.pmc,v 1.2 2004/04/16 16:44:06 nicholas Exp $
    *  Overview:
    *     These are the vtable functions for the Perl5AV base class
    *  Data Structure and Algorithms:
  @@ -138,7 +138,7 @@
   
       STRING* get_string () {
   	printf("Get string is called!\n");
  -        return (STRING*) string_make(interpreter, "true", 4, 0, 0, 0);
  +        return (STRING*) string_make(interpreter, "true", 4, "iso-8859-1", 0);
       }
   
       STRING* get_string_keyed (PMC* key) {