home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / sonstiges / picview20 / rexx / makeguide.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1986-07-25  |  2.6 KB  |  98 lines
  1. /*******************************************************/
  2. /* MakeGuide.rexx   $VER: 1.0 (18.03.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. ADDRESS 'PICVIEW.1'
  9.  
  10. /* open rexxreqtools.library */
  11. IF ~SHOW('L',"rexxreqtools.library") THEN
  12.    IF ~ADDLIB("rexxreqtools.library", 0, -30, 0) THEN
  13.       EXIT 10
  14.  
  15. /* Vars */
  16. Enter='0a'x
  17. DEnter=Enter || Enter
  18.  
  19. /* User-Options */
  20. YourName='Maik Solf'
  21. DefDir='RAM:'
  22. Titel=Enter || '         @{b}Pictures from' YourName || Enter || '         -----------------------@{ub}' || Enter
  23.  
  24. /* number of pictures */
  25. getentries
  26. Number=RESULT
  27. IF Number=0 THEN DO
  28.    rtezrequest('No pictures in current catalog.' , , 'MakeGuide.rexx' )
  29.    EXIT 5
  30. END
  31.  
  32. /* get filename */
  33. Filename=rtfilerequest(DefDir, , "Select File" , , , )
  34.  
  35. /* open file */
  36. IF OPEN(Handle,Filename,'W')=0 THEN DO
  37.    rtezrequest('Couldnt open file.' , , 'MakeGuide.rexx' )
  38.    EXIT 20
  39. END
  40.  
  41. /* write guide-head and titel */
  42. Head='@database "Pictures"' || Enter || '@master "' || Filename || '"' || Enter || '@author "' || YourName || '"' || DEnter || '@node "Main" "MyPictures"'
  43. WRITELN(Handle,Head)
  44. WRITELN(Handle,Titel)
  45.  
  46. DO i=0 TO Number-1
  47. /* get names of picture */
  48.    getpicdata i data name
  49.    Centername=CENTER(RESULT,34)
  50.    line='    ' || '@{"' || Centername || '" link "' || RESULT || '" 0}'
  51.    WRITELN(Handle,line)
  52. END
  53. WRITELN(Handle,'@endnode'||Enter)
  54.  
  55. DO i=0 TO Number-1
  56. /* get data of picture */
  57.    /* no parse because Space */
  58.    getpicdata i data name
  59.    NA=RESULT
  60.    getpicdata i data path
  61.    PA=RESULT
  62.    getpicdata i data file
  63.    FI=RESULT
  64.    getpicdata i data comment
  65.    CM=RESULT
  66.    getpicdata i data modetext
  67.    MT=RESULT
  68.    /* parse possible */
  69.    getpicdata i data weekday date time width height depth size format modeid
  70.    PARSE VAR RESULT WD DA TI WI HE DP SI FM MI
  71. /* convert to output */
  72.    CALL UP_Format
  73. /* write to Guide */
  74.     Line='@node "' || NA || '" "' || NA || '"' || DEnter
  75.     WRITELN(Handle,Line||Entry||'@endnode'||Enter)
  76. END
  77.  
  78. CLOSE(handle)
  79.  
  80. IF Number=1
  81.    THEN Ende=Number 'picture saved as Guide.'
  82.    ELSE Ende=Number 'pictures saved as Guide.'
  83.  
  84. rtezrequest(Ende , , 'MakeGuide.rexx' )
  85.  
  86. EXIT 0
  87.  
  88. UP_Format:
  89. /* chance your output */
  90.     Entry=''
  91.     Entry=Entry || '  Name   :' NA || Enter
  92.     Entry=Entry || '  Width  :' WI || Enter
  93.     Entry=Entry || '  Height :' HE || Enter
  94.     Entry=Entry || '  Depth  :' DP || Enter
  95.     Entry=Entry || '  Size   :' SI || Enter
  96.     Entry=Entry || '  Mode   :' MT || Enter
  97. RETURN
  98.