Return to config-gcc.com CVS log

Up to [GCC 2.x] / gcc

Annotation of gcc/config-gcc.com, revision 1.1.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.