home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / perl / Perl / vms / genconfig.pl < prev    next >
Encoding:
Perl Script  |  1995-03-12  |  4.5 KB  |  151 lines
  1. #!/usr/bin/perl
  2. # Habit . . .
  3. #
  4. # Extract info from Config.VMS, and add extra data here, to generate Config.sh
  5. # Edit the static information after __END__ to reflect your site and options
  6. # that went into your perl binary.  In addition, values which change from run
  7. # to run may be supplied on the command line as key=val pairs.
  8. #
  9. # Rev. 08-Mar-1995  Charles Bailey  bailey@genetics.upenn.edu
  10. #
  11.  
  12. unshift(@INC,'lib');  # In case someone didn't define Perl_Root
  13.                       # before the build
  14. require 'ctime.pl' || die "Couldn't execute ctime.pl: $!\n";
  15.  
  16. if (-f "config.vms") { $infile = "config.vms"; $outdir = "[-]"; }
  17. elsif (-f "[.vms]config.vms") { $infile = "[.vms]config.vms"; $outdir = "[]"; }
  18. elsif (-f "config.h") { $infile = "config.h"; $outdir = "[]";}
  19.  
  20. if ($infile) { print "Generating Config.sh from $infile . . .\n"; }
  21. else { die <<EndOfGasp;
  22. Can't find config.vms or config.h to read!
  23.     Please run this script from the perl source directory or
  24.     the VMS subdirectory in the distribution.
  25. EndOfGasp
  26. }
  27. $outdir = '';
  28. open(IN,"$infile") || die "Can't open $infile: $!\n";
  29. open(OUT,">${outdir}Config.sh") || die "Can't open ${outdir}Config.sh: $!\n";
  30.  
  31. $time = &ctime(time());
  32. print OUT <<EndOfIntro;
  33. # This file generated by GenConfig.pl on a VMS system.
  34. # Input obtained from:
  35. #     $infile
  36. #     $0
  37. # Time: $time
  38.  
  39. EndOfIntro
  40.  
  41. foreach (@ARGV) {
  42.   ($key,$val) = split('=',$_,2);
  43.   print OUT "$key=\'$val\'\n";
  44.   if ($val =~/VMS_DO_SOCKETS/) { $dosock = 1; }
  45. }
  46.  
  47. while (<IN>) {  # roll through the comment header in Config.VMS
  48.   last if /^#define _config_h_/;
  49. }
  50.  
  51. while (<IN>) {
  52.   chop;
  53.   while (/\\\s*$/) {  # pick up contination lines
  54.     my $line = $_;
  55.     $line =~ s/\\\s*$//;
  56.     $_ = <IN>;
  57.     s/^\s*//;
  58.     $_ = $line . $_;
  59.   }              
  60.   next unless my ($blocked,$un,$token,$val) = m%(\/\*)?\s*\#\s*(un)?def\w*\s*([A-za-z0-9]\w+)\S*\s*(.*)%;
  61.   next if /config-skip/;
  62.   $state = ($blocked || $un) ? 'undef' : 'define';
  63.   $token =~ tr/A-Z/a-z/;
  64.   $val =~ s%/\*.*\*/\s*%%g;  $val =~ s/\s*$//;  # strip off trailing comment
  65.   $val =~ s/^"//; $val =~ s/"$//;               # remove end quotes
  66.   $val =~ s/","/ /g;                            # make signal list look nice
  67.   if ($val) { print OUT "$token=\'$val\'\n"; }
  68.   else {
  69.     $token = "d_$token" unless $token =~ /^i_/;
  70.     print OUT "$token=\'$state\'\n";
  71.   }
  72. }
  73. close IN;
  74.  
  75. while (<DATA>) {
  76.   next if /^\s*#/ or /^\s*$/;
  77.   s/#.*$//;  s/\s*$//;
  78.   ($key,$val) = split('=',$_,2);
  79.   print OUT "$key='$val'\n";
  80.   eval "\$$key = '$val'";
  81. }
  82. # Add in some of the architecture-dependent stuff which has to be consistent
  83. print OUT "d_vms_do_sockets=",$dosock ? "'define'\n" : "'undef'\n";
  84. print OUT "d_has_sockets=",$dosock ? "'define'\n" : "'undef'\n";
  85. $osvers = `Write Sys\$Output F\$GetSyi("VERSION")`;
  86. chomp $osvers;
  87. $osvers =~ s/^V//;
  88. print OUT "osvers='$osvers'\n";
  89. $hw_model = `Write Sys\$Output F\$GetSyi("HW_MODEL")`;
  90. chomp $hw_model;
  91. if ($hw_model > 1024) {
  92.   print OUT "arch='VMS_AXP'\n";
  93.   print OUT "archname='VMS_AXP'\n";
  94.   $archsufx = "AXP";
  95. }
  96. else {
  97.   print OUT "arch='VMS_VAX'\n";
  98.   print OUT "archname='VMS_VAX'\n";
  99.   $archsufx = 'VAX';
  100. }
  101. $archlib = &VMS::Filespec::vmspath($privlib);
  102. $archlib =~ s#\]#.VMS_$archsufx\]#;
  103. $installarchlib = &VMS::Filespec::vmspath($installprivlib);
  104. $installarchlib =~ s#\]#.VMS_$archsufx\]#;
  105. print OUT "archlib='$archlib'\n";
  106. print OUT "installarchlib='$installarchlib'\n";
  107.  
  108. __END__
  109.  
  110. # This list is incomplete in comparison to what ends up in config.sh, but
  111. # should contain the essentials.  Some of these definitions reflect
  112. # options chosen when building perl or site-specific data; these should
  113. # be hand-edited appropriately.  Someday, perhaps, we'll get this automated.
  114.  
  115. # The definitions in this block are constant across most systems, and
  116. # should only rarely need to be changed.
  117. osname=VMS  # DO NOT CHANGE THIS! Tests elsewhere depend on this to identify
  118.             # VMS.  Use the 'arch' item below to specify hardware version.
  119. CONFIG=true
  120. PATCHLEVEL=001
  121. ld=Link
  122. lddlflags=/Share
  123. ccdlflags=
  124. cccdlflags=
  125. libc=
  126. ranlib=
  127. eunicefix=:
  128. usedl=true
  129. dldir=/ext/dl
  130. dlobj=dl_vms.obj
  131. dlsrc=dl_vms.c
  132. so=exe
  133. dlext=exe
  134. libpth=/sys$share /sys$library
  135. hintfile=
  136. intsize=4
  137. alignbytes=8
  138. shrplib=define
  139. signal_t=void
  140. timetype=long
  141. usemymalloc=n
  142. builddir=perl_root:[000000]
  143. installprivlib=perl_root:[lib]
  144. privlib=perl_root:[lib]
  145. installbin=perl_root:[000000]
  146.  
  147. # The definitions in this block are site-specific, and will probably need to
  148. # be changed on most systems.
  149. myhostname=nowhere.loopback.edu
  150. libs=  # This should list RTLs other than the C RTL and IMAGELIB (e.g. socket RTL)
  151.