home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 13 / MA_Cover_13.bin / source / c / stefanb_src / texdme2 / rexx / copytexfiles.dme next >
Encoding:
Text File  |  1992-09-06  |  789 b   |  29 lines
  1. /* CopyTeXfiles.dme V2.00 18.12.1989 SB */
  2. PARSE ARG file
  3. ext=RetrieveExtension(file)
  4. IF UPPER(ext)~='TEX' THEN RETURN 10
  5. ddir=GetFile(50,50,'',file,'Select destination directory')
  6. IF ddir='' THEN RETURN 0
  7. IF LASTPOS('//',ddir)=LASTPOS('/',ddir)-1 THEN /* Bug in GetFile()?!? */
  8.  ddir=DELSTR(ddir,LASTPOS('/',ddir),1)
  9. ddir=LEFT(ddir,LASTPOS(file,ddir)-1)
  10. file=LEFT(file,LENGTH(file)-4)
  11. files=FileList('RAM:TeXDME'file'*',filenames,'F')
  12. DO i=1 TO files
  13.  ext=RetrieveExtension(filenames.i)
  14.  dfile=ddir||file'.'ext
  15.  UPPER ext
  16.  SELECT
  17.   WHEN ext='TEX' THEN NOP
  18.   WHEN ext='LOG' THEN NOP
  19.   OTHERWISE ADDRESS COMMAND 'Copy CLONE' filenames.i dfile
  20.  END
  21. END
  22. RETURN 0
  23.  
  24. RetrieveExtension:
  25.  PARSE ARG name
  26.  epos=LASTPOS('.',name)
  27.  IF epos>0 THEN RETURN DELSTR(name,1,epos)
  28.            ELSE RETURN ''
  29.