Annotation of OpenXM_contrib/gmp/macos/configure, Revision 1.1
1.1 ! maekawa 1: # This is a simple configure script for MacOS and MPW.
! 2: # Note that this script can't be run directly from MPW perl
! 3: # because it has the wrong end-of-line characters. See README.
! 4:
! 5: # Copyright (C) 2000 Free Software Foundation, Inc.
! 6: #
! 7: # This file is part of the GNU MP Library.
! 8: #
! 9: # The GNU MP Library is free software; you can redistribute it and/or modify
! 10: # it under the terms of the GNU Lesser General Public License as published by
! 11: # the Free Software Foundation; either version 2.1 of the License, or (at your
! 12: # option) any later version.
! 13: #
! 14: # The GNU MP Library is distributed in the hope that it will be useful, but
! 15: # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
! 16: # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
! 17: # License for more details.
! 18: #
! 19: # You should have received a copy of the GNU Lesser General Public License
! 20: # along with the GNU MP Library; see the file COPYING.LIB. If not, write to
! 21: # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
! 22: # MA 02111-1307, USA.
! 23:
! 24: # ***************************** NOTE **************************************
! 25: # This script try to figure out things about this release but has a hard
! 26: # time doing it. It reads some lines in "configure", "Makefile.am" and
! 27: # "mp*/Makefile.am" and try to guess things. With every new release
! 28: # this script has to be tested.
! 29: # ***************************** NOTE **************************************
! 30:
! 31: use strict;
! 32:
! 33: ###########################################################################
! 34: #
! 35: # Platform dependent
! 36: #
! 37: ###########################################################################
! 38:
! 39: $/ = "\012" # Input files use Unix end-of-line chars
! 40: if $^O eq 'MacOS';
! 41:
! 42: ###########################################################################
! 43: #
! 44: # Constants
! 45: #
! 46: ###########################################################################
! 47:
! 48: # Directories to create
! 49:
! 50: my @dirs =
! 51: (
! 52: 'MpfObj',
! 53: 'MpnObj',
! 54: 'MpqObj',
! 55: 'MpzObj',
! 56: 'CmnObj',
! 57: 'AsmObj',
! 58: 'Asm',
! 59: 'MpfBin',
! 60: 'MpqBin',
! 61: 'MpzBin',
! 62: );
! 63:
! 64: my $cfg; # Will point to %cfg_apple or %cfg_cw
! 65:
! 66: my %cfg_apple =
! 67: (
! 68: 'cc' => 'MrC',
! 69: 'coptions' => ['-ansi on -i : -i :: -i ::mpn:powerpc32 -i ::mpz',
! 70: '-opt speed -inline on -d random=rand -d srandom=srand'],
! 71: 'link' => 'PPCLink',
! 72: 'linkoptions' => '-sym on -xm library',
! 73: 'tooloptions' => "-t 'MPST' -c 'MPS'",
! 74: 'asm' => 'PPCAsm',
! 75: 'aoptions' => '-sym on',
! 76: 'syslibs' => [
! 77: '"{SharedLibraries}"StdCLib',
! 78: '"{SharedLibraries}"InterfaceLib',
! 79: '"{SharedLibraries}"MathLib',
! 80: '"{PPCLibraries}"StdCRuntime.o',
! 81: '"{PPCLibraries}"PPCCRuntime.o',
! 82: ],
! 83: );
! 84:
! 85: my %cfg_cw =
! 86: (
! 87: 'cc' => 'MWCPPC',
! 88: 'coptions' => [
! 89: '-opt all -w nounusedvar,noextended',
! 90: '-i :: -i ::mpn:powerpc32 -i ::mpz',
! 91: '-sym full -d random=rand -d srandom=srand',
! 92: ],
! 93: 'link' => 'MWLinkPPC',
! 94: 'linkoptions' => '-sym fullpath -library',
! 95: 'tooloptions' => '-mpwtool',
! 96: 'asm' => 'PPCAsm',
! 97: 'aoptions' => '-sym on',
! 98: 'syslibs' => [
! 99: '"{SharedLibraries}"InterfaceLib',
! 100: '"{MWPPCLibraries}MSL MPWCRuntime.Lib"',
! 101: '"{MWPPCLibraries}MSL C.PPC MPW(NL).Lib"',
! 102: '"{SharedLibraries}"MathLib',
! 103: ],
! 104: );
! 105:
! 106:
! 107: my $make_in = 'Makefile.in';
! 108: my $make = 'Makefile';
! 109: my $configure = mf("../configure");
! 110: my $configure_in = mf("../configure.in");
! 111: my $config_in = mf("../config.in");
! 112: my $mpn_asm_dir = "../mpn/powerpc32";
! 113: my $mpn_gen_dir = "../mpn/generic";
! 114: my $config_h = 'config.h';
! 115:
! 116: my $asm_start = "\ttoc"; # No dot, like ".dot"?
! 117:
! 118: ###########################################################################
! 119: #
! 120: # Read command line
! 121: #
! 122: ###########################################################################
! 123:
! 124: $cfg = \%cfg_apple; # Default
! 125:
! 126: if (@ARGV and $ARGV[0] =~ /^cw|co/) {
! 127: $cfg = \%cfg_cw;
! 128: $make .= '.cw';
! 129: }
! 130:
! 131: ###########################################################################
! 132: #
! 133: # Parse top configure file for mpn files
! 134: #
! 135: ###########################################################################
! 136:
! 137: my ($files,$optional,$package,$version) = parse_top_configure($configure);
! 138: my %mpn_objects = map {$_ => 1} (@$files,@$optional);
! 139: my %mpn_optional = map {$_ => 1} @$optional;
! 140:
! 141: ###########################################################################
! 142: #
! 143: # Create config.h from ../config.in
! 144: #
! 145: ###########################################################################
! 146:
! 147: my @asm_files;
! 148:
! 149: open(CONFIG_IN, $config_in)
! 150: or die "Can't open \"$config_in\"\n";
! 151: open(CONFIG_H, ">$config_h")
! 152: or die "Can't create \"$config_h\"\n";
! 153:
! 154: while (<CONFIG_IN>) {
! 155: chomp;
! 156:
! 157: if (/^\s*#\s*undef\s+HAVE_NATIVE_mpn_(\w+)/ and
! 158: -r mf("$mpn_asm_dir/$1.asm")) {
! 159:
! 160: if (defined delete $mpn_objects{$1}) {
! 161: push(@asm_files, $1);
! 162: print CONFIG_H "\#define HAVE_NATIVE_mpn_$1 1\n";
! 163: } else {
! 164: print STDERR "Warning: Found asm file \"$1\" but no corresponding C file - ignoring\n";
! 165: }
! 166:
! 167: } elsif (/^\s*#\s*undef\s+PACKAGE/) {
! 168: print CONFIG_H "\#define PACKAGE \"$package\"\n";
! 169: } elsif (/^\s*#\s*undef\s+VERSION/) {
! 170: print CONFIG_H "\#define VERSION \"$version\"\n";
! 171: } elsif (/^\s*#\s*undef\s+STDC_HEADERS/) {
! 172: print CONFIG_H "\#define STDC_HEADERS 1\n";
! 173: } else { # Blank line, leave it
! 174: print CONFIG_H "$_\n";
! 175: }
! 176: }
! 177:
! 178: close CONFIG_H;
! 179: close CONFIG_IN;
! 180:
! 181: ###########################################################################
! 182: #
! 183: # Create directories
! 184: #
! 185: ###########################################################################
! 186:
! 187: foreach (@dirs) {
! 188: -d $_ or mkdir $_, 0775
! 189: or die "Can't create directory \"$_\"\n";
! 190: }
! 191:
! 192: ###########################################################################
! 193: #
! 194: # Parse the *.asm files found and convert them to MPW format
! 195: #
! 196: ###########################################################################
! 197:
! 198: my $file;
! 199:
! 200: foreach $file (@asm_files) {
! 201: my $ifile = mf("$mpn_asm_dir/$file.asm");
! 202: my $ofile = mf("Asm/$file.s");
! 203:
! 204: open(ASM, $ifile)
! 205: or die "Can't read file \"$ifile\"\n";
! 206: open(NEW, ">$ofile")
! 207: or die "Can't create file \"$ofile\"\n";
! 208:
! 209: while (<ASM>) {
! 210: chomp; # Remove whatever ending it was
! 211:
! 212: s/\bdnl\b/;/ or s/\bC\b/;/; # Use ; comments
! 213:
! 214: s/include\s*\(.*?\)//; # Don't use include macro
! 215:
! 216: s/ASM_START\s*\(.*?\)/$asm_start/;
! 217:
! 218: s/PROLOGUE\s*\(\s*(.*?)\s*\)/asm_prologue($1)/e;
! 219:
! 220: s/EPILOGUE\s*\(\s*(.*?)\s*\)/asm_epilogue($1)/e;
! 221:
! 222: s/\n/\x0D/g;
! 223: print NEW "$_\x0D"; # Use MacOS end-of-line character
! 224: }
! 225:
! 226: close ASM;
! 227: close NEW;
! 228: }
! 229:
! 230:
! 231: ###########################################################################
! 232: #
! 233: # Parse the Makefile.in and produce the Makefile
! 234: #
! 235: ###########################################################################
! 236:
! 237: # Check if we have optional left in C directory
! 238:
! 239: foreach (keys %mpn_objects) {
! 240: delete $mpn_objects{$_}
! 241: if $mpn_optional{$_} and !-r mf("$mpn_gen_dir/$_.c");
! 242: }
! 243:
! 244: my $mpn_objects = join(' ', map {"{MpnObjDir}$_.o"} sort keys %mpn_objects);
! 245: $mpn_objects =~ s/(.{1,66})\s/$1 \xB6\x0D\t/g;
! 246:
! 247: my @asm_objects = @asm_files;
! 248: my @asm_sources = @asm_files;
! 249:
! 250: # Adjust configuration
! 251:
! 252: foreach (keys %{$cfg}) {
! 253: $$cfg{$_} = join(" \xB6\x0D\t\t", @{$$cfg{$_}})
! 254: if ref $$cfg{$_};
! 255: }
! 256:
! 257: my %config =
! 258: (
! 259: 'version' => $version,
! 260: 'package' => $package,
! 261: 'c' => "\xB6",
! 262: 'dep' => "\xC4",
! 263: 'wildcard'=> "\xC5",
! 264: 'asm_objects' =>
! 265: join(" \xB6\x0D\t",map {$_ = "{AsmObjDir}$_.o"} sort @asm_objects),
! 266: 'asm_sources' =>
! 267: join(" \xB6\x0D\t",map {$_ = "{AsmSrcDir}$_.s"} sort @asm_sources),
! 268: 'mpn_objects' => $mpn_objects,
! 269: 'mpz_objects' => what_objects("mpz","../mpz","{MpzObjDir}"),
! 270: 'mpf_objects' => what_objects("mpf","../mpf","{MpfObjDir}"),
! 271: 'mpq_objects' => what_objects("mpq","../mpq","{MpqObjDir}"),
! 272: 'gmp_objects' => what_objects("gmp","..", "{CmnObjDir}"),
! 273: %{$cfg},
! 274: );
! 275:
! 276:
! 277: open(IN, $make_in)
! 278: or die "Can't read file \"$make_in\"\n";
! 279: open(OUT, ">$make")
! 280: or die "Can't create file \"$make\"\n";
! 281:
! 282: while (<IN>) {
! 283: chomp; # Remove whatever ending it was
! 284:
! 285: # Do the variable substitution
! 286:
! 287: s/\@([^\@]+)\@/exists $config{$1} ? $config{$1} : ''/ge;
! 288:
! 289: print OUT "$_\x0D"; # Use MacOS end-of-line character
! 290: }
! 291:
! 292: close IN;
! 293: close OUT;
! 294:
! 295: ###########################################################################
! 296: #
! 297: # Parse the configure.in file to find the mpn files to compile and link
! 298: # Find package name and version
! 299: #
! 300: ###########################################################################
! 301:
! 302: sub parse_top_configure {
! 303: my $cfg = shift;
! 304:
! 305: open(CONFIGURE, $cfg)
! 306: or die "Can't open \"$cfg\"\n";
! 307: my $old_eol = $/;
! 308: undef $/;
! 309: my $text = <CONFIGURE>;
! 310: $/ = $old_eol;
! 311: close CONFIGURE;
! 312:
! 313: my ($package) = $text =~ /(?:\n|\r)PACKAGE\s*=\s*(\S+)/;
! 314: my ($version) = $text =~ /(?:\n|\r)VERSION\s*=\s*(\S+)/;
! 315:
! 316: my $files = join(' ',$text =~ /(?:\n|\r)gmp_mpn_functions\s*=\s*\"([^\"]+)/);
! 317: $files =~ s/\\/ /g;
! 318: $files =~ s/\$\{?\w*\}?//g;
! 319: my @files = sort split(' ',$files);
! 320:
! 321: $files = join(' ',$text =~ /(?:\n|\r)gmp_mpn_functions_optional\s*=\s*\"([^\"]+)/);
! 322: $files =~ s/\\/ /g;
! 323: $files =~ s/\$\{?\w*\}?//g;
! 324: my @optional = sort split(' ',$files);
! 325:
! 326: @files > 30 or die "Can't find mpn files in \"$cfg\"\n";
! 327: defined $package or die "Can't find package name in \"$cfg\"\n";
! 328: defined $version or die "Can't find version name in \"$cfg\"\n";
! 329: return (\@files,\@optional,$package,$version);
! 330: }
! 331:
! 332: ###########################################################################
! 333: #
! 334: # Find the C files for mpz, mpf .....
! 335: #
! 336: ###########################################################################
! 337:
! 338: sub what_objects {
! 339: my $part = shift;
! 340: my $srcdir = shift;
! 341: my $dstdir = shift;
! 342:
! 343: my $makefile_am = mf("$srcdir/Makefile.am");
! 344:
! 345: # We look in the Makefile.am file
! 346: open(MAKEFILE_AM, $makefile_am)
! 347: or die "Can't open file \"$makefile_am\"\n";
! 348:
! 349: # I had as short version of this using more advanced
! 350: # regular expressions on the whole file content but
! 351: # MacPerl freezes my Mac every time..... :-(
! 352:
! 353: my $line;
! 354: my $text = '';
! 355:
! 356: while (defined($line = <MAKEFILE_AM>) ) {
! 357: chomp $line;
! 358:
! 359: if ($line =~ s/^lib${part}_la_SOURCES\s*=//) {
! 360: do {
! 361: chomp $line;
! 362: if ($line =~ s/\\\s*$//) {
! 363: $text .= " $line";
! 364: } else {
! 365: $text .= " $line";
! 366: next;
! 367: }
! 368: } while (defined($line = <MAKEFILE_AM>));
! 369: }
! 370:
! 371: if ($line =~ s/^nodist_lib${part}_la_SOURCES\s*=//) {
! 372: do {
! 373: chomp $line;
! 374: if ($line =~ s/\\\s*$//) {
! 375: $text .= " $line";
! 376: } else {
! 377: $text .= " $line";
! 378: last;
! 379: }
! 380: } while (defined($line = <MAKEFILE_AM>));
! 381: }
! 382: }
! 383: close MAKEFILE_AM;
! 384:
! 385: my @ofiles = split(' ',$text);
! 386: @ofiles > 10 or die "Can't find $part files in \"$makefile_am\"\n";
! 387: my $ofiles = join(' ', map {/^(.+)\.c$/ and $_ = "$dstdir$1.o"} @ofiles);
! 388: $ofiles =~ s/(.{1,66})\s/$1 \xB6\x0D\t/g;
! 389:
! 390: return $ofiles;
! 391: }
! 392:
! 393: ###########################################################################
! 394: #
! 395: # Assembler
! 396: #
! 397: ###########################################################################
! 398:
! 399: sub asm_epilogue {
! 400: my $func = shift;
! 401: return "\tcsect .__g$func\[pr]";
! 402: }
! 403:
! 404: sub asm_prologue {
! 405: my $func = shift;
! 406:
! 407: my $asm = <<HERE;
! 408: EXPORT __g$func\[DS]
! 409: EXPORT .__g$func\[PR]
! 410:
! 411: TC __g$func\[TC], __g$func\[DS]
! 412:
! 413: CSECT __g$func\[DS]
! 414: DC.L .__g$func\[PR]
! 415: DC.L TOC[tc0]
! 416:
! 417: CSECT .__g$func\[PR]
! 418: FUNCTION .__g$func\[PR]
! 419: HERE
! 420: return $asm;
! 421: }
! 422:
! 423:
! 424: ###########################################################################
! 425: #
! 426: # Platform dependent filename conversion
! 427: #
! 428: ###########################################################################
! 429:
! 430: sub mf {
! 431: my $path = shift;
! 432:
! 433: return $path unless $^O eq 'MacOS';
! 434:
! 435: $path =~ /:/ and die "File name already converted to mac format: $path\n";
! 436:
! 437: if ($path =~ s&^/&&) {
! 438: # Absolute path
! 439: unless ($path =~ s&/&:&g) {
! 440: # This is a drive name
! 441: $path .= ':';
! 442: }
! 443: } else {
! 444: # Relative path
! 445: if ($path =~ s&/&:&g) {
! 446: # Contains slash
! 447: $path = ":$path";
! 448: $path =~ s&\.\.:&:&g;
! 449: } else {
! 450: # Plain file name, no directory part
! 451: }
! 452: }
! 453: return $path;
! 454: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to configure CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / macos