! @(#)compile.all 17.1.1.1 (ESO-IPG) 01/25/02 17:46:05 ! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! ! MIDAS procedure compile.all ! K. Banse 910103, 920312, 920511, 920908, 921216, 950814 ! IPG, ESO - Garching ! ! execute inside Midas via @ compile.all ! the next time you type "gomidas" everything should be o.k. ! ! the protection of file `internall.cod' is set to read only ! so the commands TRANSLATE/... will not work ! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ! if ididev(1) .ge. 0 then delete/display all !delete/display -> @% xwindow (trouble) endif ! if aux_mode(1) .le. 1 then !fork for VMS or UNIX $ DELETE/NOCONF MID_PROC:internal.kod.* else -DELETE MID_PROC:internal.kod -DELETE MID_PROC:internal.cod endif ! action = "INIT" run MID_MONIT:internal !initialize init.cod + create internal.kod ! define/local oldusr/i/1/1 {error(2)} !save user level set/midas user=super !set to super user transla/close transla/open KOD ! @ init.cod !compile all internal procedures ! transla/close ! ! copy temporary file to real internal.cod ! -COPY MID_PROC:internal.kod MID_PROC:internal.cod ! if aux_mode(1) .le. 1 then !fork for VMS or UNIX $ SET PROT=(G:RE,W:RE) MID_PROC:internal.cod write/out "Enter GOMIDAS to continue with updated @% stuff ..." $ DELETE/NOCONF MID_PROC:internal.kod.* $ PURGE MID_PROC:internal.cod else $ chmod 444 $MID_PROC/internal.cod $rm $MID_PROC/internal.kod write/out "Enter gomidas to continue with updated @% stuff ..." endif ! error(2) = oldusr !reset user level bye !now we are out of MIDAS...