RE: [tcltk-perl] Patch to build tcl-perl against Tcl.framework on Mac OS X

[Konovalov, V. <vko...@sp...>]

Thank you, I'll try making CPAN release within 1-2 weeks and will include
your changes.

Best regards,
Vadim.

> -----Original Message-----
> From: Daniel A. Steffen [mailto:st...@ic...]
> Sent: Wednesday, August 11, 2004 7:12 PM
> To: tcl...@li...
> Subject: [tcltk-perl] Patch to build tcl-perl against Tcl.framework on
> Mac OS X
> 
> 
> All,
> 
> attached a patch to get the Tcl perl module to build against 
> Tcl.framework on Mac OS X (with --tclconfig 
> /Library/Frameworks/Tcl.framework/tclConfig.sh), both with 
> and without 
> stubs.
> 
> Tcl::Tk will have to wait until [package require Tk] works with 
> TkAqua...
> 
> Cheers,
> 
> Daniel
> 
> -- 
> ** Daniel A. Steffen     **  "And now for something completely
> ** Dept. of Mathematics  **   different"    Monty Python
> ** Macquarie University  **  <mailto:st...@ma...>
> ** NSW 2109 Australia    **  <http://www.maths.mq.edu.au/~steffen/>
> 
> 
> Index: Makefile.PL
> ===================================================================
> RCS file: /cvsroot/tcltkce/Tcl/Makefile.PL,v
> retrieving revision 1.9
> diff -u -p -r1.9 Makefile.PL
> --- Makefile.PL	8 May 2004 02:11:12 -0000	1.9
> +++ Makefile.PL	11 Aug 2004 14:43:24 -0000
> @@ -16,6 +16,7 @@ my $usestubs;
>   my $libpath;
>   my $incpath;
>   my $wince;
> +my @extraargs;
> 
>   GetOptions("tclsh=s", \$tclsh,
>   	   "tclconfig=s", \$tclconfig,
> @@ -80,10 +81,17 @@ if ($tclconfig) {
>   	if ($^O eq 'MSWin32') {
>   	    $defs .= " 
> -DLIB_RUNTIME_DIR=\\\"$tclcfg{'TCL_EXEC_PREFIX'}/bin\\\"";
>   	    $defs .= " -DTCL_LIB_FILE=\\\"$tclcfg{'TCL_DLL_FILE'}\\\"";
> +	} elsif ($^O eq 'darwin' && $tclcfg{'TCL_STUB_LIB_PATH'} =~ 
> /\.framework/ ) {
> +	    (my $fmk = $tclcfg{'TCL_STUB_LIB_PATH'}) =~ 
> s/(?<=\.framework).*//;
> +	    $defs .= " -DLIB_RUNTIME_DIR=\\\"$fmk\\\"";
> +	    $defs .= " -DTCL_LIB_FILE=\\\"$tclcfg{'TCL_LIB_FILE'}\\\"";
>   	} else {
>   	    $defs .= " 
> -DLIB_RUNTIME_DIR=\\\"$tclcfg{'TCL_EXEC_PREFIX'}/lib\\\"";
>   	    $defs .= " -DTCL_LIB_FILE=\\\"$tclcfg{'TCL_LIB_FILE'}\\\"";
>   	}
> +    } elsif ($^O eq 'darwin' && $libpath =~ /-framework/ ) {
> +	@extraargs = (dynamic_lib => {OTHERLDFLAGS => $libpath});
> +	$libpath = "";
>       }
>   } else {
>       open(TCLSH, "$tclsh tclcfg.tcl |") or die "error 
> starting tclsh: 
> $!\n";
> @@ -138,6 +146,7 @@ WriteMakefile(
>       LIBS => ["$libpath"],
>       INC => "$incpath",
>       DEFINE => $defs,
> +    @extraargs,
>   );
> 
>   #EOS
> 
> 
> 
> -------------------------------------------------------
> SF.Net email is sponsored by Shop4tech.com-Lowest price on Blank Media
> 100pk Sonic DVD-R 4x for only $29 -100pk Sonic DVD+R for only $33
> Save 50% off Retail on Ink & Toner - Free Shipping and Free Gift.
> http://www.shop4tech.com/z/Inkjet_Cartridges/9_108_r285
> _______________________________________________
> Tcltk-perl mailing list
> Tcl...@li...
> https://lists.sourceforge.net/lists/listinfo/tcltk-perl
>