home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / viewer / hf-pv204.lha / PicView20 / PicViewAddOne.lha / Rexx / MakeGuideDOpus.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1996-07-30  |  3.0 KB  |  118 lines
  1. /*********************************************************/
  2. /* MakeGuideDOpus.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='Maik Solf'
  25. Titel=Enter || '         @{b}Pictures from' YourName || Enter || '         -----------------------@{ub}' || Enter
  26.  
  27. /* Open PicView */
  28. IF ~SHOW('Ports','PICVIEW.1') THEN DO
  29.     ADDRESS COMMAND 'C:Run >NIL:' PicViewPath
  30.     ADDRESS COMMAND 'REXXC:WaitForPort PICVIEW.1'
  31.     IF ~SHOW('Ports','PICVIEW.1') THEN EXIT 10
  32. END
  33.  
  34. ADDRESS 'PICVIEW.1'
  35.  
  36. /* Katalog laden */
  37. openproject FullName
  38.  
  39. /* number of pictures */
  40. getentries
  41. Number=RESULT
  42. IF Number=0 THEN DO
  43.    SAY 'No pictures in catalog:' ShortName
  44.    EXIT 5
  45. END
  46.  
  47. /* make filename */
  48. ShortNameLen=LENGTH(ShortName)-2                 /* without "" */
  49. ShortName=SUBSTR(ShortName,2,ShortNameLen)
  50.  
  51. ShortNameR=REVERSE(ShortName)
  52. LastPoint=ShortNameLen-INDEX(ShortNameR,'.')
  53. Filename=Quelle || SUBSTR(ShortName,1,LastPoint) || '.guide'
  54.  
  55. /* open file */
  56. IF OPEN(Handle,Filename,'W')=0 THEN DO
  57.    SAY 'Couldnt open file:' Filename
  58.    EXIT 20
  59. END
  60.  
  61. /* write guide-head and titel */
  62. Head='@database "Pictures"' || Enter || '@author "' || YourName || '"' || DEnter || '@node "Main" "MyPictures"'
  63. WRITELN(Handle,Head)
  64. WRITELN(Handle,Titel)
  65.  
  66. DO i=0 TO Number-1
  67. /* get names of picture */
  68.    getpicdata i data name
  69.    Centername=CENTER(RESULT,34)
  70.    line='    ' || '@{"' || Centername || '" link "' || RESULT || '" 0}'
  71.    WRITELN(Handle,line)
  72. END
  73. WRITELN(Handle,'@endnode'||Enter)
  74.  
  75. DO i=0 TO Number-1
  76. /* get data of picture */
  77.    /* no parse because Space */
  78.    getpicdata i data name
  79.    NA=RESULT
  80.    getpicdata i data path
  81.    PA=RESULT
  82.    getpicdata i data file
  83.    FI=RESULT
  84.    getpicdata i data comment
  85.    CM=RESULT
  86.    getpicdata i data modetext
  87.    MT=RESULT
  88.    /* parse possible */
  89.    getpicdata i data weekday date time width height depth size format modeid
  90.    PARSE VAR RESULT WD DA TI WI HE DP SI FM MI
  91. /* convert to output */
  92.    CALL UP_Format
  93. /* write to Guide */
  94.    Line='@node "' || NA || '" "' || NA || '"' || DEnter
  95.    WRITELN(Handle,Line||Entry||'@endnode'||Enter)
  96. END
  97.  
  98. CLOSE(handle)
  99.  
  100. IF Number=1
  101.    THEN Ende=Number 'picture saved as guide from' ShortName || '.'
  102.    ELSE Ende=Number 'pictures saved as guide from' ShortName || '.'
  103.  
  104. SAY Ende
  105.  
  106. EXIT 0
  107.  
  108. UP_Format:
  109. /* chance your output */
  110.     Entry=''
  111.     Entry=Entry || '  Name   :' NA || Enter
  112.     Entry=Entry || '  Width  :' WI || Enter
  113.     Entry=Entry || '  Height :' HE || Enter
  114.     Entry=Entry || '  Depth  :' DP || Enter
  115.     Entry=Entry || '  Size   :' SI || Enter
  116.     Entry=Entry || '  Mode   :' MT || Enter
  117. RETURN
  118.