home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / os2tex.zip / disk1.zip / doc.cmd < prev    next >
OS/2 REXX Batch file  |  1996-06-17  |  5KB  |  261 lines
  1. /* Rexx-Script zur Erzeugung der OS2TeX-Objekte */
  2.  
  3.  
  4.  
  5.  
  6.  
  7. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  8. call SysLoadFuncs
  9.  
  10.  
  11. parse arg language target
  12.  
  13.  
  14.  
  15. if language = '' then do
  16.    exit 1
  17. end  
  18.  
  19.  
  20.  
  21. if target = '' then do
  22.    exit 1
  23. end
  24.  
  25.  
  26.  
  27.  
  28. /* SysDestroyObject('<TEX_SHELL_FOLDER>') */
  29.  
  30.  
  31.  
  32.  
  33. if language = '049' then do
  34.  
  35.  
  36.  
  37. cf = 'Erzeuge Ordner'
  38. co = 'Erzeuge Objekt'
  39.  
  40.  
  41.  
  42. /* OS2TeX Ordner erzeugen */
  43.  
  44.  
  45.  
  46.  
  47. classname = 'WPFolder'
  48. title     = 'OS/2-TeX'
  49. location  = '<WP_DESKTOP>'
  50. setup     = 'ICONFILE='target'\bin\folder.ico;OBJECTID=<OS2TEX_FOLDER>;ICONVIEW=NONFLOWED;OPEN=ICON'
  51. duplicate = 'update'
  52.  
  53. say cf title
  54.  
  55.  
  56. rc = SysCreateObject(classname,title,location,setup,duplicate)
  57.  
  58. if rc = 0 then do 
  59.    exit 1
  60. end
  61.  
  62.  
  63.  
  64.  
  65. /* Dokumentations Ordner */
  66.  
  67.  
  68.  
  69.  
  70.  
  71. classname = 'WPFolder'
  72. title     = 'Dokumentation'
  73. location  = '<OS2TEX_FOLDER>'
  74. setup     = 'OBJECTID=<OS2TEX_DOC_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  75. duplicate = 'update'
  76.  
  77. say cf title
  78.  
  79. rc = SysCreateObject(classname,title,location,setup,duplicate)
  80.  
  81. if rc = 0 then do 
  82.    exit 1
  83. end
  84.  
  85.  
  86.  
  87.  
  88.  
  89. /* Sonstige Dokumentationen */
  90.  
  91.  
  92.  
  93.  
  94.  
  95. classname = 'WPProgram'
  96. title     = 'Merkblatt zur Grafikeinbindung'
  97. location  = '<OS2TEX_DOC_FOLDER>'
  98. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_IMAGENOTE>;PARAMETERS='target'\doc\os2tex-image-note.dvi'
  99. duplicate = 'replace'
  100.  
  101. say co title
  102.  
  103. rc = SysCreateObject(classname,title,location,setup,duplicate)
  104.  
  105. if rc = 0 then do 
  106.    exit 1
  107. end
  108.  
  109.  
  110.  
  111.  
  112. classname = 'WPProgram'
  113. title     = 'Merkblatt zur Server Konfiguration'
  114. location  = '<OS2TEX_DOC_FOLDER>'
  115. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_FONTSERVICENOTE>;PARAMETERS='target'\doc\os2tex-fontservice-note.dvi'
  116. duplicate = 'replace'
  117.  
  118. say co title
  119.  
  120.  
  121. rc = SysCreateObject(classname,title,location,setup,duplicate)
  122.  
  123. if rc = 0 then do 
  124.    exit 1
  125. end
  126.  
  127.  
  128.  
  129. classname = 'WPProgram'
  130. title     = 'Merkblatt zu Problemen mit OS2TeX'
  131. location  = '<OS2TEX_DOC_FOLDER>'
  132. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_PROBLEMSNOTE>;PARAMETERS='target'\doc\os2tex-problems-note.dvi'
  133. duplicate = 'replace'
  134.  
  135. say co title
  136.  
  137. rc = SysCreateObject(classname,title,location,setup,duplicate)
  138.  
  139. if rc = 0 then do 
  140.    exit 1
  141. end
  142.  
  143.  
  144. end
  145.  
  146.  
  147.  
  148. if language = 044 then do
  149.  
  150.  
  151.  
  152. cf = 'Creating folder'
  153. co = 'Creating object'
  154.  
  155.  
  156.  
  157.  
  158.  
  159. /* OS2TeX Ordner erzeugen */
  160.  
  161.  
  162. classname = 'WPFolder'
  163. title     = 'OS/2-TeX'
  164. location  = '<WP_DESKTOP>'
  165. setup     = 'ICONFILE='target'\bin\folder.ico;OBJECTID=<OS2TEX_FOLDER>;ICONVIEW=NONFLOWED;OPEN=ICON'
  166. duplicate = 'update'
  167.  
  168.  
  169. say cf title
  170.  
  171. rc = SysCreateObject(classname,title,location,setup,duplicate)
  172.  
  173. if rc = 0 then do 
  174.    exit 1
  175. end
  176.  
  177.  
  178.  
  179.  
  180. /* Dokumentations Ordner */
  181.  
  182.  
  183. classname = 'WPFolder'
  184. title     = 'Documentation'
  185. location  = '<OS2TEX_FOLDER>'
  186. setup     = 'OBJECTID=<OS2TEX_DOC_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  187. duplicate = 'update'
  188.  
  189. say cf title
  190.  
  191. rc = SysCreateObject(classname,title,location,setup,duplicate)
  192.  
  193. if rc = 0 then do 
  194.    exit 1
  195. end
  196.  
  197.  
  198.  
  199.  
  200.  
  201. /* Sonstige Dokumentationen */
  202.  
  203.  
  204.  
  205. classname = 'WPProgram'
  206. title     = 'Notes about integrating graphics'
  207. location  = '<OS2TEX_DOC_FOLDER>'
  208. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_IMAGENOTE>;PARAMETERS=-044 'target'\doc\os2tex-image-note.dvi'
  209. duplicate = 'replace'
  210.  
  211. say co title
  212.  
  213. rc = SysCreateObject(classname,title,location,setup,duplicate)
  214.  
  215. if rc = 0 then do 
  216.    exit 1
  217. end
  218.  
  219.  
  220. classname = 'WPProgram'
  221. title     = 'Notes about server configuration'
  222. location  = '<OS2TEX_DOC_FOLDER>'
  223. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_FONTSERVICENOTE>;PARAMETERS=-044 'target'\doc\os2tex-fontservice-note.dvi'
  224. duplicate = 'replace'
  225.  
  226. say co title
  227.  
  228. rc = SysCreateObject(classname,title,location,setup,duplicate)
  229.  
  230. if rc = 0 then do 
  231.    exit 1
  232. end
  233.  
  234.  
  235. classname = 'WPProgram'
  236. title     = 'Notes about problems'
  237. location  = '<OS2TEX_DOC_FOLDER>'
  238. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_PROBLEMSNOTE>;PARAMETERS=-044 'target'\doc\os2tex-problems-note.dvi'
  239. duplicate = 'replace'
  240.  
  241. say co title
  242.  
  243. rc = SysCreateObject(classname,title,location,setup,duplicate)
  244.  
  245. if rc = 0 then do 
  246.    exit 1
  247. end
  248.  
  249.  
  250.  
  251.  
  252.  
  253. end 
  254.  
  255.  
  256.  
  257.  
  258. exit 0
  259.  
  260.  
  261.