/********************************************************************/
/* 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 : Verify if a TEXLOG file exists. If  yes,  edit  it */
/*               using XEDIT with AUX xedit profile.                */
/*                                                                  */
/*                                               (C) Copyright 1992 */
/********************************************************************/
 parse arg fm .
 
'execio 1 diskr PRIMARY FILE' fm '(FINIS'
 pull fn ft .
 
 set emsg off
'listfile' fn 'TEXLOG * (ALLOC NOHEADER STACK'
 if rc /= 0 then do
      say 'File' fn 'TEXLOG * not found.'
     'set emsg on'
      exit 0
 end
 else do
      DropBuf
 end
 DropBuf
 
 
'screen 2'
'pre off'
'sos tabcmdf'
 
'listfile TEXSHELL XEDIT * (ALLOC NOHEADER STACK'
 if rc /= 0 then do
      DropBuf
      say
      say center('File AUX XEDIT not found.',80,' ')
      say
      set emsg on
      exit 0
 end
 set emsg off
'xedit' fn 'texlog (prof aux'
'pre off'
 
 exit 0