Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /sml/trunk/src/system/smlnj/MLRISC/makeproxies
ViewVC logotype

View of /sml/trunk/src/system/smlnj/MLRISC/makeproxies

Parent Directory Parent Directory | Revision Log Revision Log

Revision 797 - (download) (annotate)
Fri Mar 16 00:00:17 2001 UTC (18 years, 5 months ago) by leunga
File size: 1715 byte(s)

   x86 optimizations for x := x op y where x is a memory location.
# This script is used to update the CM proxies so that the export lists
# are consistent with the cm files in MLRISC. 
# -- Allen (leunga@cs.nyu.edu)

foreach $filename (@ARGV)
{  process($filename); 

sub process
{  my($filename) = @_;
   my($infile) = "../../../MLRISC/cm/$filename";
   open(CM,$infile) || die ("$!: $infile\n");
   my(@exports) = ();
   while (<CM>)
   {  push @exports, $_ if (/structure (.*)/);
      push @exports, $_ if (/functor (.*)/);
      push @exports, $_ if (/signature (.*)/);
   my($outfile) = "$filename";

   open(CM,">$outfile") || die("$!: $outfile\n");
   print CM <<"END";
(* This file is generated by running 'perl makeproxies $filename' *)

 * This is library \$smlnj/MLRISC/$filename -- a proxy providing the
 * services of \$SMLNJ-MLRISC/$filename.
 *   The path anchor \$SMLNJ-MLRISC points to (implementation of the)
 *   version of MLRISC that is used by SML/NJ.
 *   This proxy takes care of binding path anchors internal to MLRISC
 *   in such a way that they consistently point to the same version
 *   of MLRISC.
 *   Copyright (c) 2000 by Lucent Bell Laboratories
 * author: Matthias Blume (blume\@cs.princeton.edu)
   print CM "Library\n"; 
   foreach $entry (@exports)
   {  print CM $entry;
   print CM "is\n";
   print CM "\t\$SMLNJ-MLRISC/$filename\n";
   print CM <<'END';
                (bind:(anchor:Control.cm value:$SMLNJ-MLRISC)
                 bind:(anchor:Lib.cm value:$SMLNJ-MLRISC)
                 bind:(anchor:MLTREE.cm value:$SMLNJ-MLRISC)
                 bind:(anchor:MLRISC.cm value:$SMLNJ-MLRISC))        
   print STDERR "[ $outfile written ]\n";

ViewVC Help
Powered by ViewVC 1.0.0