Return to scc CVS log

Up to [UNIX Amiga Emulator] / uae / src / od-amiga

Annotation of uae/src/od-amiga/scc, revision 1.1

1.1     ! root        1: #!/bin/perl
        !             2: #
        !             3: # This is a small perl script that emulates gcc with the
        !             4: # SAS/C compiler. It is mainly created to compile UAE
        !             5: # with SAS/C to test 68060 optimisations.
        !             6: #
        !             7: # (c) 1997 by Samuel Devulder.
        !             8: #
        !             9: 
        !            10: # dir used so that links are properly handled by SAS/C
        !            11: $LNDIR = "scc-idir";
        !            12: 
        !            13: # replace all filenames that actually are links
        !            14: for($i=0;$i<=$#ARGV;++$i) {
        !            15:     $_ = $ARGV[$i];
        !            16:     if(/\/[^\/]+$/ && -l $`) {
        !            17:         $_=readlink($`).$&;
        !            18:     }
        !            19:     $ARGV[$i] = $_;
        !            20: }
        !            21: 
        !            22: # create link-dir so that SAS/C can handle header files stored
        !            23: # in linked directories.
        !            24: if(! -d $LNDIR) {
        !            25:      mkdir($LNDIR,0777);
        !            26:      while(<*>) {
        !            27:          next if ! -l $_;
        !            28:          $linkname = $_;
        !            29:          $realname = readlink($_); $realname =~ s/[.][.]//g;
        !            30:          if(-d $linkname) {
        !            31:              mkdir("$LNDIR/$linkname",0777);
        !            32:              while(<$linkname/*.h>) {
        !            33:                 open(OUT,">$LNDIR/$_");
        !            34:                 s/^.*\///;
        !            35:                 print OUT "#include \"$realname/$_\"\n";
        !            36:                 close OUT;
        !            37:              }
        !            38:          } else {
        !            39:             open(OUT,">$LNDIR/$linkname");
        !            40:             print OUT "#include \"$realname\"\n";
        !            41:             close OUT;
        !            42:          }
        !            43:      }
        !            44: }
        !            45: 
        !            46: # build general command-line
        !            47: $_ = " @ARGV";
        !            48: 
        !            49: # if preprocess, then use gnu/cpp since pponly in SAS/C
        !            50: # does not signal missing .h files.
        !            51: if(/\s+-E/) {
        !            52:          exit system("cpp -DAMIGA -nostdinc -I\/include -D__SASC$_");
        !            53: }
        !            54: 
        !            55: # fast but not perfect unix-to-amiga path translation 
        !            56: s/[.][.]//g;
        !            57: s/[.][\/]//g;
        !            58: 
        !            59: # if no destination, then assume a.out
        !            60: $_ .= " -o a.out" if !/\s-[cEo]/;
        !            61: 
        !            62: # command-line modification
        !            63: s/\s+-I\s*/ IDIR=/g;                # process include dirs
        !            64: s/\s+-o/ OBJNAME/g;                 # process output file
        !            65: s/\s+-g/ DBG FF/g;                  # process debug 
        !            66: s/\s+-lm/ MATH=STD/g;               # math library
        !            67: s/\s+-l\s*(\w+)/ LIB=LIB:$1.lib/g;  # other librarys
        !            68: s/\s+-D\s*/ DEF=/g;                 # preprocessor defines
        !            69: s/\s+-traditional-cpp//g;           # 
        !            70: s/\s+-m(\w+)/ CPU=$1/g;          # specific cpu code generation
        !            71: s/\s+-O./ OPT OPTSCHED OPTTIME/g;   # optimize ?
        !            72: 
        !            73: # use NOLINK (-c was found) or LINK TO ?
        !            74: !s/\s+-E/ PPONLY/g && !s/\s+-c/ NOLINK/g && s/OBJNAME/LINK TO/;
        !            75: 
        !            76: # build amigaos command-line with extra defs
        !            77: $_ = "sc IDIR=$LNDIR$_ DEF=AMIGA DEF=_OFF_T DATA=FAR CODE=FAR PARAM=B NOSTKCHK NOICON NOVERBOSE IGN=64,84,85,93,100,181,306,315,316 BATCH";
        !            78: 
        !            79: # if -d is present, display the executed command-line
        !            80: s/\s+-d//g && print STDERR "=> $_\n";
        !            81: 
        !            82: # call SAS/C
        !            83: $res = system("$_")/256;
        !            84: 
        !            85: # Link failed, say something so that configure script can
        !            86: # see it.
        !            87: if($res == 3) {print STDERR "link failed\n";$res=21;}
        !            88: 
        !            89: exit $res;

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.