/********************************************************************/
/* Package  : TeXShell for CMS, version 2.0                         */
/* Author   : Humberto Jose' Bortolossi                             */
/*                                                                  */
/* Bitnet   : hjbortol at brlncc.bitnet, hjbortol at brfuem.bitnet  */
/* Internet : hjbortol at gauss.impa.br                             */
/*                                                                  */
/* Organizations : Instituto de Matematica Pura e Aplicada (IMPA)   */
/*                 Fundacao Universidade Estadual de Maringa'       */
/*                                                                  */
/* Copyright : This program is freely distributable.                */
/*             You can do changes but, please, keep my name.        */
/*                                                                  */
/* Description : Just call TeX plus FMT                             */
/*                                                                  */
/*                                               (C) Copyright 1992 */
/********************************************************************/
 
 parse arg fm .
 
'execio 1 diskr PRIMARY FILE' fm '(FINIS'
 pull fn ft .
 
 
 SAVING:
 extract "/alt"
 if alt.1 /= 0 then do
      say 'Save file? (Y/N)'
      pull Answer
      say answer
      if substr(Answer,1,1) = 'Y' | Answer = '' then 'save'
      if substr(Answer,1,1) = 'N' then call CONTINUE
      else signal SAVING
 end
 
 CONTINUE:
 set emsg off
'listfile TEXSHELL CONFIG * (ALLOC NOHEADER STACK'
 if rc /= 0 then do
    say 'File TEXSHELL CONFIG * not found.'
    say 'Using LaTeX as format.'
    Dropbuf
 end
 else do
    pull . . FileMode . . NumberOfLines .
    DropBuf
   'execio' NumberOfLines 'diskr TEXSHELL CONFIG' FileMode '(FINIS'
    do forever while queued() /= 0
    pull Label Information .
    if Label = 'FORMAT' then do
                          Format = Information
                          DropBuf
                        end
                        else Format = 'LATEX'
    end
 end
 set emsg on
 
 select
 when Format = 'LATEX'  then 'exec latex'  fn ft fm
 when Format = 'TEX'    then 'exec tex'    fn ft fm
 when Format = 'PLATEX' then 'exec platex' fn ft fm
 when Format = 'PTEX'   then 'exec ptex'   fn ft fm
 when Format = 'SLITEX' then 'exec slitex' fn ft fm
 otherwise 'exec latex' fn ft fm
 end
 
 exit 0