home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / os2tex.zip / disk4.zip / suet.cmd < prev    next >
OS/2 REXX Batch file  |  1996-06-25  |  4KB  |  278 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. if language = '' then do
  15.    exit 1
  16. end
  17.  
  18.  
  19.  
  20. if target = '' then do
  21.    exit 1
  22. end
  23.  
  24.  
  25.  
  26. /* SysDestroyObject('<TEX_SHELL_FOLDER>') */
  27.  
  28.  
  29.  
  30.  
  31. if language = '049' then do
  32.  
  33.  
  34.  
  35.  
  36.  
  37. cf = 'Erzeuge Ordner'
  38. co = 'Erzeuge Objekt'
  39.  
  40.  
  41.  
  42.  
  43.  
  44. /* OS2TeX Ordner erzeugen */
  45.  
  46.  
  47.  
  48.  
  49.  
  50. classname = 'WPFolder'
  51. title     = 'OS/2-TeX'
  52. location  = '<WP_DESKTOP>'
  53. setup     = 'ICONFILE='target'\bin\folder.ico;OBJECTID=<OS2TEX_FOLDER>;ICONVIEW=NONFLOWED;OPEN=ICON'
  54. duplicate = 'update'
  55.  
  56. say cf title
  57.  
  58. rc = SysCreateObject(classname,title,location,setup,duplicate)
  59.  
  60. if rc = 0 then do 
  61.    exit 1
  62. end
  63.  
  64.  
  65.  
  66.  
  67. /* Dokumentations Ordner */
  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.  
  78. say cf title
  79.  
  80.  
  81. rc = SysCreateObject(classname,title,location,setup,duplicate)
  82.  
  83. if rc = 0 then do 
  84.    exit 1
  85. end
  86.  
  87.  
  88.  
  89.  
  90. /* Fonts Ordner erzeugen */
  91.  
  92.  
  93.  
  94. classname = 'WPFolder'
  95. title     = 'Schriften'
  96. location  = '<OS2TEX_DOC_FOLDER>'
  97. setup     = 'OBJECTID=<OS2TEX_FONTS_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  98. duplicate = 'update'
  99.  
  100.  
  101. say cf title
  102.  
  103.  
  104. rc = SysCreateObject(classname,title,location,setup,duplicate)
  105.  
  106. if rc = 0 then do 
  107.    exit 1
  108. end
  109.  
  110.  
  111.  
  112.  
  113. /* Package Ordner erzeugen */
  114.  
  115.  
  116. classname = 'WPFolder'
  117. title     = 'Zusatzpakete/Styles'
  118. location  = '<OS2TEX_DOC_FOLDER>'
  119. setup     = 'OBJECTID=<OS2TEX_PACKAGES_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  120. duplicate = 'update'
  121.  
  122.  
  123. say cf title
  124.  
  125.  
  126. rc = SysCreateObject(classname,title,location,setup,duplicate)
  127.  
  128. if rc = 0 then do 
  129.    exit 1
  130. end
  131.  
  132.  
  133.  
  134. /* Schreibschrift im Fonts Ordner */
  135.  
  136.  
  137. classname = 'WPProgram'
  138. title     = 'Deutsche Schreibschrift (Süterlin)'
  139. location  = '<OS2TEX_FONTS_FOLDER>'
  140. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_SUETERLIN_FONTS>;PARAMETERS='target'\doc\suet.dvi'
  141. duplicate = 'replace'
  142.  
  143.  
  144.  
  145. say co title
  146.  
  147. rc = SysCreateObject(classname,title,location,setup,duplicate)
  148.  
  149. if rc = 0 then do 
  150.    exit 1
  151. end
  152.  
  153.  
  154. end
  155.  
  156.  
  157.  
  158.  
  159.  
  160. if language = '044' then do
  161.  
  162.  
  163.  
  164.  
  165. cf = 'Creating folder'
  166. co = 'Creating object'
  167.  
  168.  
  169. /* OS2TeX Ordner erzeugen */
  170.  
  171.  
  172. classname = 'WPFolder'
  173. title     = 'OS/2-TeX'
  174. location  = '<WP_DESKTOP>'
  175. setup     = 'ICONFILE='target'\bin\folder.ico;OBJECTID=<OS2TEX_FOLDER>;ICONVIEW=NONFLOWED;OPEN=ICON'
  176. duplicate = 'update'
  177.  
  178.  
  179. say cf title
  180.  
  181. rc = SysCreateObject(classname,title,location,setup,duplicate)
  182.  
  183. if rc = 0 then do 
  184.    exit 1
  185. end
  186.  
  187.  
  188.  
  189.  
  190. /* Dokumentations Ordner */
  191.  
  192.  
  193. classname = 'WPFolder'
  194. title     = 'Documentation'
  195. location  = '<OS2TEX_FOLDER>'
  196. setup     = 'OBJECTID=<OS2TEX_DOC_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  197. duplicate = 'update'
  198.  
  199. say cf title
  200.  
  201. rc = SysCreateObject(classname,title,location,setup,duplicate)
  202.  
  203. if rc = 0 then do 
  204.    exit 1
  205. end
  206.  
  207.  
  208.  
  209.  
  210. /* Fonts Ordner erzeugen */
  211.  
  212.  
  213.  
  214. classname = 'WPFolder'
  215. title     = 'Fonts'
  216. location  = '<OS2TEX_DOC_FOLDER>'
  217. setup     = 'OBJECTID=<OS2TEX_FONTS_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  218. duplicate = 'update'
  219.  
  220. say cf title
  221.  
  222. rc = SysCreateObject(classname,title,location,setup,duplicate)
  223.  
  224. if rc = 0 then do 
  225.    exit 1
  226. end
  227.  
  228.  
  229.  
  230.  
  231. /* Package Ordner erzeugen */
  232.  
  233.  
  234.  
  235. classname = 'WPFolder'
  236. title     = 'Packages/Styles'
  237. location  = '<OS2TEX_DOC_FOLDER>'
  238. setup     = 'OBJECTID=<OS2TEX_PACKAGES_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  239. duplicate = 'update'
  240.  
  241. say cf 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. /* Schreibschrift im Fonts Ordner */
  253.  
  254.  
  255. classname = 'WPProgram'
  256. title     = 'German Schreibschrift (Sueterlin)'
  257. location  = '<OS2TEX_FONTS_FOLDER>'
  258. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_SUETERLIN_FONTS>;PARAMETERS=-044 'target'\doc\suet.dvi'
  259. duplicate = 'replace'
  260.  
  261.  
  262. say co title
  263.  
  264. rc = SysCreateObject(classname,title,location,setup,duplicate)
  265.  
  266. if rc = 0 then do 
  267.    exit 1
  268. end
  269.  
  270.  
  271. end
  272.  
  273.  
  274. exit 0
  275.  
  276.  
  277.  
  278.