/********************************************************************/
/* 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 : Case sensitive help.                               */
/*                                                                  */
/*                                               (C) Copyright 1992 */
/********************************************************************/
PARSE ARG FM .
ERROR_MESSAGE = 'String not found.'
/* trace all */
'SAVE'
'CP TERMINAL APL ON'
'EXTRACT %CURSOR%EFNAME%EFTYPE%EFMODE'
 
  'LISTF LATEX HELP * (STACK'
   IF RC /= 0 THEN DO
       say 'File LATEX HELP not found.'
       exit 0
   END
 
   pull . . helpfm .
   dropbuf
 
 
   IF CURSOR.3 <= 0 THEN DO
        'COMMAND HELP CMS TEXSHELL'
 /*     'CP TERMINAL APL OFF'
         PUSH 'SET APL ON'
         PUSH 'CURSOR FILE' CURSOR.1 CURSOR.2  */
         EXIT 0
   END
 
'EXECIO 1 DISKR' EFNAME.1 EFTYPE.1 EFMODE.1 CURSOR.3
 PARSE PULL CL
 TEST_C = SUBSTR(CL,CURSOR.4,1)
   IF TEST_C = ' ' THEN DO
        'COMMAND HELP CMS TEXSHELL'
/*      'CP TERMINAL APL OFF'
         PUSH 'SET APL ON'
         PUSH 'CURSOR FILE' CURSOR.1 CURSOR.2  */
         EXIT 0
   END
 CLOUT = SUBWORD(CL,WORDS(DELSTR(CL,CURSOR.4 + 1)),1)
 
 DROPBUF
 
 CLOUT = '==>  'CLOUT
 
'EXECIO * DISKR LATEX HELP' helpfm '1 (FINIS LOCATE /'CLOUT'/ FIFO'
 
 IF RC /= 0 THEN DO
      'SET EMSG OFF'; 'ERASE TEXHELP FILE' FM; 'SET EMSG ON'
      'EXECIO 1 DISKW TEXHELP FILE' FM '(FINIS ST 'ERROR_MESSAGE
/*     PUSH 'SET PRE OFF'
      'COMMAND XEDIT TEXHELP FILE'
       PUSH 'SET APL ON'
       PUSH 'CURSOR FILE' CURSOR.1 CURSOR.2 */
      'EXEC BACK' CURSOR.1 CURSOR.2
       EXIT 0
END
 PARSE PULL KEY
 
 PARSE PULL LINE  .
 
 
'EXECIO * DISKR LATEX HELP ' helpfm LINE
 
 PARSE PULL JUNK
 
'SET EMSG OFF'; 'ERASE TEXHELP FILE' FM; 'SET EMSG ON'
 
'EXECIO 1 DISKW TEXHELP FILE' FM '(FINIS ST' KEY
 
 OUT = ' '
 
DO WHILE SUBWORD(OUT,1,1)  /= '==>'
     'EXECIO 1 DISKW TEXHELP FILE' FM '(FINIS ST' OUT
      PARSE PULL OUT
END
 
DROPBUF
 
/*
PUSH 'SET PRE OFF'
'COMMAND XEDIT TEXHELP FILE'
PUSH 'SET APL ON'
PUSH 'CURSOR FILE' CURSOR.1 CURSOR.2
*/
'EXEC BACK' CURSOR.1 CURSOR.2
EXIT 0