home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / hf-pv204.lha / PicView20 / PicViewAddOne.lha / Rexx / MakeCopyDOpus.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-07-30  |  2.1 KB  |  87 lines
  1. /*********************************************************/
  2. /* MakeCopyDOpus.rexx   $VER: 1.2 (1.8.96)  for PicView  */
  3. /* (C) 1996 Maik Solf            solf@madhouse.boerde.de */
  4. /* Im collecting handdrawn pictures, contact me 2 swap   */
  5. /*********************************************************/
  6.  
  7. OPTIONS RESULTS
  8.  
  9. Argumente=ARG(1)
  10.  
  11. PARSE VAR Argumente FullName ShortName Quelle Rest
  12.  
  13. /* open rexxreqtools.library */
  14. IF ~SHOW('L',"rexxreqtools.library") THEN
  15.    IF ~ADDLIB("rexxreqtools.library", 0, -30, 0) THEN
  16.       EXIT 10
  17.  
  18. /* Vars */
  19. Enter='0a'x
  20. DEnter=Enter || Enter
  21.  
  22. /* User-Options */
  23. PicViewPath='Work:Grafik/PicView/PicView'
  24. YourName='solf@madhouse.boerde.de (Maik Solf)'
  25. DefDir='RAM:'                               /* for copy-file */
  26. OutDir='TEMP:'                              /* copy ... TO OutDir */
  27. Titel=';Pictures for' YourName
  28.  
  29. /* Open PicView */
  30. IF ~SHOW('Ports','PICVIEW.1') THEN DO
  31.     ADDRESS COMMAND 'C:Run >NIL:' PicViewPath
  32.     ADDRESS COMMAND 'REXXC:WaitForPort PICVIEW.1'
  33.     IF ~SHOW('Ports','PICVIEW.1') THEN EXIT 10
  34. END
  35.  
  36. ADDRESS 'PICVIEW.1'
  37.  
  38. /* Katalog laden */
  39. openproject FullName
  40.  
  41. /* number of pictures */
  42. getentries
  43. Number=RESULT
  44. IF Number=0 THEN DO
  45.    SAY 'No pictures in catalog:' ShortName
  46.    EXIT 5
  47. END
  48.  
  49. /* make filename */
  50. ShortNameLen=LENGTH(ShortName)-2                 /* without "" */
  51. ShortName=SUBSTR(ShortName,2,ShortNameLen)
  52.  
  53. ShortNameR=REVERSE(ShortName)
  54. LastPoint=ShortNameLen-INDEX(ShortNameR,'.')
  55. Filename=Quelle || SUBSTR(ShortName,1,LastPoint) || '.copy'
  56.  
  57. /* open file */
  58. IF OPEN(Handle,Filename,'W')=0 THEN DO
  59.    SAY 'Couldnt open file:' Filename
  60.    EXIT 20
  61. END
  62.  
  63. /* write titel */
  64. WRITELN(Handle,Titel)
  65.  
  66. DO i=0 TO Number-1
  67. /* get data of picture */
  68.    /* no parse because Space */
  69.    getpicdata i data file
  70.    OneFile=RESULT
  71. /* write to ascii */
  72.    Entry='copy "' || OneFile || '" "' || OutDir || '"'
  73.    WRITELN(Handle,Entry)
  74. END
  75.  
  76. CLOSE(handle)
  77.  
  78. ADDRESS COMMAND 'Protect "' || Filename || '" S ADD'
  79.  
  80. IF Number=1
  81.    THEN Ende=Number 'picture saved as copy from' ShortName || '.'
  82.    ELSE Ende=Number 'pictures saved as copy from' ShortName || '.'
  83.  
  84. SAY Ende
  85.  
  86. EXIT 0
  87.