Return to config-gcc.com CVS log

Up to [GCC 2.x] / gcc

Annotation of gcc/config-gcc.com, revision 1.1

1.1     ! root        1: $ !
        !             2: $ !    Set up to compile GCC on VMS
        !             3: $ !
        !             4: $ echo = "write sys$output"
        !             5: $ !
        !             6: $ if f$search("config.h") .nes. "" then delete config.h.*
        !             7: $ copy [.config]xm-vms.h []config.h
        !             8: $ echo "Linked `config.h' to `[.config]xm-vms.h'.
        !             9: $ !
        !            10: $ if f$search("tm.h") .nes. "" then delete tm.h.*
        !            11: $ copy [.config]vms.h []tm.h
        !            12: $ echo "Linked `tm.h' to `[.config]vms.h'.
        !            13: $ !
        !            14: $ if f$search("md.") .nes. "" then delete md..*
        !            15: $ copy [.config]vax.md []md.
        !            16: $ echo "Linked `md' to `[.config]vax.md'.
        !            17: $ !
        !            18: $ if f$search("aux-output.c") .nes. "" then delete aux-output.c.*
        !            19: $ copy [.config]vax.c []aux-output.c
        !            20: $ echo "Linked `aux-output.c' to `[.config]vax.c'.
        !            21: $ !
        !            22: $!
        !            23: $!
        !            24: $! Create the file version.opt, which helps identify the executable.
        !            25: $!
        !            26: $search version.c version_string,"="/match=and/output=t.tmp
        !            27: $open ifile$ t.tmp
        !            28: $read ifile$ line
        !            29: $close ifile$
        !            30: $delete/nolog t.tmp;
        !            31: $ijk=f$locate("""",line)+1
        !            32: $line=f$extract(ijk,f$length(line)-ijk,line)
        !            33: $ijk=f$locate("""",line)
        !            34: $line=f$extract(0,ijk,line)
        !            35: $ijk=f$locate("\n",line)
        !            36: $line=f$extract(0,ijk,line)
        !            37: $!
        !            38: $i=0
        !            39: $loop:
        !            40: $elm=f$element(i," ",line)
        !            41: $if elm.eqs."" then goto no_ident
        !            42: $if (elm.les."9").and.(elm.ges."0") then goto write_ident
        !            43: $i=i+1
        !            44: $goto loop
        !            45: $!
        !            46: $no_ident:
        !            47: $elm="?.??"
        !            48: $!
        !            49: $!
        !            50: $write_ident:
        !            51: $open ifile$ version.opt/write
        !            52: $write ifile$ "ident="+""""+elm+""""
        !            53: $close ifile$
        !            54: $pur version.opt/nolog
        !            55: $!
        !            56: $!
        !            57: $ if f$search("config.status") .nes. "" then delete config.status.*
        !            58: $ open/write file config.status
        !            59: $ write file "Links are now set up for use with a vax running VMS."
        !            60: $ close file
        !            61: $ type config.status

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