home *** CD-ROM | disk | FTP | other *** search
/ Dream 45 / Amiga_Dream_45.iso / Amiga / Magazine / Dossier-LaTeX / tex_scripts.lha / print.edge < prev    next >
Text File  |  1995-10-11  |  650b  |  27 lines
  1. /*Print It*/
  2. Options Results
  3. getenvvar _FE_Name
  4.  
  5. /* Essentially the same comments as for view.edge apply here.  See that file
  6. for more details. */
  7.  
  8. fenam=result
  9. ch=upper(right(fenam,4))
  10. if compare(ch,'.TEX')==0 then name=left(fenam,length(fenam)-4)
  11.     else name=fenam
  12. nam=name||'.dvi'
  13. getenvvar _FE_Path
  14. fepath=result
  15. name=fepath||nam
  16. address command 'rename' name name
  17. if ~(rc==0) then exit
  18. getenvvar _FE_Changes
  19. number=result
  20. if ~(number==0) then do
  21.     requestnotify title ERROR string 'You have modified the file.  TeX it first.'
  22.   end
  23. else do
  24.     address command 'TeX:bin/TeXPrt SCREEN=EDGE FILE='name
  25.     address command delete 'TeX:bin/DVIPrint.log'
  26. end
  27.