! @(#)ascii_bin.prg	13.1.1.6 (ESO-DMD) 02/10/99 15:43:53
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
!  MIDAS procedure ascii_bin.prg 
!  to build necessary Font files
!  and to convert ascii LUT + ITT files to binary MIDAS tables
!  and to create viewluts.aux (needed for VIEW/IMA)
!  K. Banse	ESO - Garching		910506, 981028, 990712, 000419
! 
!  use via @ ascii_bin
! 
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! prepare the different directory names 
! 
if aux_mode(1) .le. 1 then              ! VMS
   define/local ascdir/c/1/60 -
     "MID_DISK:[&MIDASHOME.&MIDVERS.SYSTAB.ASCII.DISPLAY] " ? +lower
   define/local bindir/c/1/60 -
     "MID_DISK:[&MIDASHOME.&MIDVERS.SYSTAB.BIN] " ? +lower
   define/local defdir/c/1/2 "[]" ? +lower
   write/out "trying to create new FORGRdrs.KEY in MID_MONIT..."
   $ copy MID_WORK:FORGR00.KEY MID_MONIT:FORGRdrs.KEY 
else                                    ! UNIX
   define/local ascdir/c/1/60 "$MID_HOME/systab/ascii/display/ " ? +lower
   define/local bindir/c/1/60 "$MID_HOME/systab/bin/ " ? +lower
   define/local defdir/c/1/2 "./" ? +lower
   in_a = m$symbol("MID_WORK") // "/FORGR00.KEY"
   if m$exist(in_a) .eq. 1 then
      write/out "trying to create new FORGRdrs.KEY in MID_MONIT..."
      $ cp $MID_WORK/FORGR00.KEY $MID_HOME/monit/FORGRdrs.KEY
   endif
endif
!
!  first the LUTs
write/out Creating LUTs ...
@ asciilut
write/out -----------------------------------------------------
!
!  then the ITTs
write/out Creating ITTs ...
@ asciiitt
write/out -----------------------------------------------------
!
!  and also create the frame idisave.dat in $MIDASHOME/$MIDVERS/incl
write/out Creating auxiliary file idisave.dat ...
@ idisave
write/out -----------------------------------------------------
! 
!  and also create the frame viewluts.aux in $MID_SYSTAB
write/out Creating auxiliary file viewluts.aux ...
@ viewluts
write/out -----------------------------------------------------
! 
!  and also create the file FORGRdrs.KEY in $MID_MONIT
if aux_mode .ne. 1 then				!only for Unix
   write/out "Creating binary keyword file FORGRdrs.KEY in $MID_MONIT ..."
  $ cp $MID_WORK/FORGR{mid$sess(11:12)}.KEY $MID_MONIT/FORGRdrs.KEY
endif
write/out -----------------------------------------------------
! 
!  and finally build x11fonts.dat for $MID_SYSTAB 
inputc = m$symbol("DISPLAY")
if inputc(1:4) .eq. "DISP" then
   write/out Using Fonts file "x11fonts.dat as is in $MID_SYSTAB..."
else
   write/out Creating Fonts file x11fonts.dat ...
   @a showfonts all new nn >Null
   if aux_mode(1) .le. 1 then              !delete Fontfile in current dir.
      $ DELETE/NOCONF x11fonts.dat.*
   else                                    ! UNIX
      $ rm -f x11fonts.dat
   endif
endif
write/out -----------------------------------------------------
!