home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epm603a.zip / EPMSMP.ZIP / SAVEALL.E < prev    next >
Text File  |  1995-04-12  |  977b  |  30 lines
  1. ; Save all modified files in the ring,
  2. ;   Larry Margolis
  3.  
  4. compile if not defined(SMALL)  -- If being externally compiled...
  5. tryinclude 'MYCNF.E'               -- Include user's configuration
  6. compile if not defined(NLS_LANGUAGE)  -- If no language set,
  7. const
  8.    NLS_LANGUAGE = 'ENGLISH'           -- assume English.
  9. compile endif
  10. include NLS_LANGUAGE'.e'              -- Need this to get UNNAMED_FILE_NAME
  11.  
  12. defmain                        --  ... set up so can be implicitly executed.
  13.    'saveall'
  14. compile endif
  15.  
  16. defc saveall =
  17.    getfileid startid
  18.    do i = 1 to FilesInRing(2)     -- Prevent looping forever.
  19.       if .modify then
  20.          if .filename = UNNAMED_FILE_NAME then
  21.             refresh  -- Show file, because Save As dialog will be presented.
  22.          endif
  23.          'save'
  24.       endif
  25.       nextfile
  26.       getfileid fid
  27.       if fid=startid then leave; endif
  28.    enddo
  29.    activatefile startid  -- Make sure we're back where we started
  30.