home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / htmlks10.zip / ImageEAs.cmd < prev    next >
OS/2 REXX Batch file  |  1997-09-10  |  4KB  |  152 lines
  1. /* adds parameters to the EA's of a class*/
  2. PARSE ARG FullFile
  3. CALL RxFuncAdd 'SysGetEA' , 'RexxUtil' , 'SysGetEA'
  4. CALL RxFuncAdd 'SysPutEA' , 'RexxUtil' , 'SysPutEA'
  5. say FullFile
  6.  
  7. altEA=''
  8. aliEA=''
  9. hiEA=''
  10. widEA=''
  11. bordEA=''
  12. hspEA=''
  13. vspEA=''
  14. iMapEA=''
  15. uMapEA=''
  16.  
  17. call SysGetEa FullFile, 'HTMLKEYS_ALT', 'EAval'
  18. if length(EAval) >= 4 then altEA=right(EAval, length(EAval)-4)
  19. call SysGetEa FullFile, 'HTMLKEYS_ALIGN', 'EAval'
  20. if length(EAval) >= 4 then aliEA=right(EAval, length(EAval)-4)
  21. call SysGetEa FullFile, 'HTMLKEYS_HEIGHT', 'EAval'
  22. if length(EAval) >= 4 then hiEA=right(EAval, length(EAval)-4)
  23. call SysGetEa FullFile, 'HTMLKEYS_WIDTH', 'EAval'
  24. if length(EAval) >= 4 then widEA=right(EAval, length(EAval)-4)
  25. call SysGetEa FullFile, 'HTMLKEYS_BORDER', 'EAval'
  26. if length(EAval) >= 4 then bordEA=right(EAval, length(EAval)-4)
  27. call SysGetEA FullFile, 'HTMLKEYS_HSPACE', 'EAval'
  28. if length(EAval)>=4 then hspEa=right(EAval, length(EAval)-4)
  29. call SysGetEA FullFile, 'HTMLKEYS_VSPACE', 'EAval'
  30. if length(EAval)>=4 then vspEa=right(EAval, length(EAval)-4)
  31. call SysGetEA FullFile, 'HTMLKEYS_ISMAP', 'EAval'
  32. if length(EAval)>=4 then iMapEa=right(EAval, length(EAval)-4)
  33. call SysGetEA FullFile, 'HTMLKEYS_USEMAP', 'EAval'
  34. if length(EAval)>=4 then uMapEa=right(EAval, length(EAval)-4)
  35.  
  36.  
  37.  
  38.  
  39. do while Command <> 'X'
  40.  
  41. if Command = 'ALT' then do
  42.     say 'ALT='altEA
  43.     parse pull altEA
  44. end /* do */
  45.  
  46. if Command = 'AL' then do
  47.     say 'ALIGN='aliEA
  48.     say 'Choose: [L]eft [R]ight [T]op [B]ottom [M]iddle'
  49.     pull align
  50.     if align ='L' then aliEA='LEFT'
  51.     else if align ='R' then aliEA='RIGHT'
  52.     else if align ='T' then aliEA='TOP'
  53.     else if align ='B' then aliEA='BOTTOM'
  54.     else if align ='M' then aliEA='MIDDLE'
  55.     else aliEA=''
  56. end /* do */
  57.  
  58. if Command = 'H' then do
  59.     say 'HEIGHT='hiEA
  60.     say 'Enter the height'
  61.     parse pull hiEA
  62. end /* do */
  63.  
  64. if Command = 'W' then do
  65.     say 'WIDTH='widEA
  66.     parse pull widEA
  67. end /* do */
  68.  
  69. if Command = 'B' then do
  70.     say 'BORDER='bordEA
  71.     parse pull bordEA
  72. end /* do */
  73.  
  74. if Command = 'HS' then do
  75.     say 'HSPACE='hspEA
  76.     parse pull hspEA
  77. end /* do */
  78.  
  79. if Command = 'VS' then do
  80.     say 'VSPACE='vspEA
  81.     parse pull vspEA
  82. end /* do */
  83.  
  84. if Command = 'L' then do
  85.     say 'LOWSRC='lowEA
  86.     parse pull lowEA
  87. end /* do */
  88.  
  89. if Command = 'U' then do
  90.     say 'USEMAP='uMapEA
  91.     parse pull UmapEA
  92.     iMapEA='NO'
  93. end /* do */
  94.  
  95. if Command = 'I' then do
  96.     if iMapEA='YES' then iMap='NO'
  97.     else do
  98.         iMapEA='YES'
  99.         uMapEA=''
  100.     end /* do */
  101. end /* do */
  102.  
  103. if Command = 'S' then do
  104.     hob = length(hiEA)%256
  105.     lob = length(hiEA)-hob
  106.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||hiEA
  107.     Call SysPutEA FullFile, 'HTMLKEYS_HEIGHT', EAval
  108.     hob = length(widEA)%256
  109.     lob = length(widEA)-hob
  110.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||widEA
  111.     Call SysPutEA FullFile, 'HTMLKEYS_WIDTH', EAval
  112.     hob = length(hspEA)%256
  113.     lob = length(hspEA)-hob
  114.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||hspEA
  115.     Call SysPutEA FullFile, 'HTMLKEYS_HSPACE', EAval
  116.     hob = length(vspEA)%256
  117.     lob = length(vspEA)-hob
  118.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||vspEA
  119.     Call SysPutEA FullFile, 'HTMLKEYS_VSPACE', EAval
  120.     hob = length(bordEA)%256
  121.     lob = length(bordEA)-hob
  122.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||bordEA
  123.     Call SysPutEA FullFile, 'HTMLKEYS_BORDER', EAval
  124.     hob = length(iMapEA)%256
  125.     lob = length(iMapEA)-hob
  126.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||iMapEA
  127.     Call SysPutEA FullFile, 'HTMLKEYS_ISMAP', EAval
  128.     hob = length(altEA)%256
  129.     lob = length(altEA)-hob
  130.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||altEA
  131.     Call SysPutEA FullFile, 'HTMLKEYS_ALT', EAval
  132.     hob = length(aliEA)%256
  133.     lob = length(aliEA)-hob
  134.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||aliEA
  135.     Call SysPutEA FullFile, 'HTMLKEYS_ALIGN', EAval
  136.     hob = length(uMapEA)%256
  137.     lob = length(uMapEA)-hob
  138.     EAval='fd'x||'ff'x||d2c(lob)||d2c(hob)||uMapEA
  139.     Call SysPutEA FullFile, 'HTMLKEYS_USEMAP', EAval
  140.     
  141. end /* do */
  142.  
  143.  
  144. say
  145. say '[H]EIGHT='hiEA' [W]IDTH='widEA' [HS]PACE='hspEA' [VS]PACE='vspEA' [B]ORDER='bordEA' [I]SMAP='iMapEA
  146. say '[ALT]='altEA' [AL]IGN='aliEA' [U]SEMAP='uMapEA
  147. say '[S]ave e[X]it'
  148. PULL Command
  149. end /* do */
  150.  
  151.  
  152.