home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d8xx / d827 / aztecerr.lha / AztecErr / Rexx / TTX_AztecError.ttx < prev   
Text File  |  2001-02-25  |  2KB  |  74 lines
  1. /*RX
  2. **
  3. ** TTX_AztecError.ttx (C) 1992 by H.P.G
  4. **
  5. ** This is a support program for AzecErr
  6. **
  7. ** Here are some examples Keyassigns for TTX that should be inserted in the
  8. ** Startup.dfn file:
  9. **
  10. ** ALT-f ExecArexxString "options results; address AZTECERR FIRST; rs=getenv('AZTECERRLASTLINE');sr=getenv('AZTECERRLASTCOLUMN'); Move FOLDS rs sr"
  11. ** ALT-n ExecArexxString "options results; address AZTECERR NEXT ; rs=getenv('AZTECERRLASTLINE');sr=getenv('AZTECERRLASTCOLUMN'); Move FOLDS rs sr"
  12. ** ALT-p ExecArexxString "options results; address AZTECERR PREV ; rs=getenv('AZTECERRLASTLINE');sr=getenv('AZTECERRLASTCOLUMN'); Move FOLDS rs sr"
  13. ** ALT-l ExecArexxString "options results; address AZTECERR LAST ; rs=getenv('AZTECERRLASTLINE');sr=getenv('AZTECERRLASTCOLUMN'); Move FOLDS rs sr"
  14. ** ALT-q ExecArexxString "options results; address AZTECERR QUIT ; rs=getenv('AZTECERRLASTLINE');sr=getenv('AZTECERRLASTCOLUMN'); Move FOLDS rs sr"
  15. **
  16. **/
  17.  
  18.  
  19. Options RESULTS
  20.  
  21. cmd=''
  22.  
  23. Parse Arg cmd
  24.  
  25. If cmd =='ERROR' Then Do;
  26.     Address command 'AztecErr 0 AZTECERR SCREEN TURBOTEXT"
  27.     return;
  28.  
  29. If ~(Show('P','AZTECERR')) Then Do; /* AztecErr is not currently running */
  30.     /* the user wants to dmake */
  31.     df=GetEnv('CCEDIT');
  32.     if df~=='' then do; /* clears out the CCEDIT envvar */
  33.         address command 'Mset *"CCEDIT=*"'
  34.     end;
  35.  
  36.     address command 'Mset *"CCEDTI="rx *"address TURBOTEXT execarexxcommand TTX_AztecError ERROR*"*"'
  37.  
  38.     CON="NewShell CON:0/10/1000/65/Compiling.../close/SCREENTURBOTEXT from "
  39.     OPTIONS RESULTS
  40.     GETFILEPATH
  41.  
  42.     path=RESULT
  43.     ps=lastpos('/',path)
  44.     dir=left(path,ps)
  45.  
  46.     order="cd" dir
  47.  
  48.     do while ~EXISTS(dir || "DMakefile")
  49.         ps=lastpos('/',dir,length(dir)-1)
  50.         if ps == 0 then return 5
  51.         dir=left(dir,ps)
  52.         order="cd" dir
  53.     end
  54.  
  55.     GETFILEINFO
  56.  
  57.     name="t:" || strip(WORD(RESULT,3),'B','"') || ".tmp"
  58.  
  59.     if ~open(out,name,'w') then return 10
  60.     Call writeln(out,"stack 10000")
  61.     Call writeln(out,order)             /* cd $dir */
  62.     Call writeln(out,"Dmake")
  63.     Call writeln(out,"C:WaitReturn")
  64.     Call writeln(out,"Endcli >NIL:")
  65.     Call close(out)
  66.  
  67.     CON=CON || name
  68.     address command CON
  69.  
  70. End
  71.  
  72. Address AZTECERR
  73.  
  74.