home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / os2tex.zip / disk4.zip / concrete.cmd < prev    next >
OS/2 REXX Batch file  |  1996-06-25  |  5KB  |  310 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. cf = 'Erzeuge Ordner'
  36. co = 'Erzeuge Objekt'
  37.  
  38.  
  39. /* OS2TeX Ordner erzeugen */
  40.  
  41.  
  42. classname = 'WPFolder'
  43. title     = 'OS/2-TeX'
  44. location  = '<WP_DESKTOP>'
  45. setup     = 'ICONFILE='target'\bin\folder.ico;OBJECTID=<OS2TEX_FOLDER>;ICONVIEW=NONFLOWED;OPEN=ICON'
  46. duplicate = 'update'
  47.  
  48.  
  49. say cf title
  50.  
  51. rc = SysCreateObject(classname,title,location,setup,duplicate)
  52.  
  53. if rc = 0 then do 
  54.    exit 1
  55. end
  56.  
  57.  
  58.  
  59.  
  60. /* Dokumentations Ordner */
  61.  
  62.  
  63. classname = 'WPFolder'
  64. title     = 'Dokumentation'
  65. location  = '<OS2TEX_FOLDER>'
  66. setup     = 'OBJECTID=<OS2TEX_DOC_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  67. duplicate = 'update'
  68.  
  69. say cf title
  70.  
  71. rc = SysCreateObject(classname,title,location,setup,duplicate)
  72.  
  73. if rc = 0 then do 
  74.    exit 1
  75. end
  76.  
  77.  
  78.  
  79.  
  80. /* Fonts Ordner erzeugen */
  81.  
  82.  
  83.  
  84. classname = 'WPFolder'
  85. title     = 'Schriften'
  86. location  = '<OS2TEX_DOC_FOLDER>'
  87. setup     = 'OBJECTID=<OS2TEX_FONTS_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  88. duplicate = 'update'
  89.  
  90. say cf title
  91.  
  92. rc = SysCreateObject(classname,title,location,setup,duplicate)
  93.  
  94. if rc = 0 then do 
  95.    exit 1
  96. end
  97.  
  98.  
  99.  
  100.  
  101. /* Package Ordner erzeugen */
  102.  
  103.  
  104.  
  105. classname = 'WPFolder'
  106. title     = 'Zusatzpakete/Styles'
  107. location  = '<OS2TEX_DOC_FOLDER>'
  108. setup     = 'OBJECTID=<OS2TEX_PACKAGES_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  109. duplicate = 'update'
  110.  
  111. say cf title
  112.  
  113. rc = SysCreateObject(classname,title,location,setup,duplicate)
  114.  
  115. if rc = 0 then do 
  116.    exit 1
  117. end
  118.  
  119.  
  120.  
  121.  
  122. /* beton.sty im Style Ordner */
  123.  
  124.  
  125. classname = 'WPProgram'
  126. title     = 'beton [Frank Jensen]'
  127. location  = '<OS2TEX_PACKAGES_FOLDER>'
  128. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_BETON>;PARAMETERS='target'\doc\beton.dvi'
  129. duplicate = 'replace'
  130.  
  131. say co title
  132.  
  133. rc = SysCreateObject(classname,title,location,setup,duplicate)
  134.  
  135. if rc = 0 then do 
  136.    exit 1
  137. end
  138.  
  139.  
  140.  
  141. /* beton.sty im Fonts Ordner */
  142.  
  143.  
  144. classname = 'WPProgram'
  145. title     = 'Concrete [D.E. Knuth]'
  146. location  = '<OS2TEX_FONTS_FOLDER>'
  147. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_BETON_FONTS>;PARAMETERS='target'\doc\beton.dvi'
  148. duplicate = 'replace'
  149.  
  150.  
  151. say co title
  152.  
  153. rc = SysCreateObject(classname,title,location,setup,duplicate)
  154.  
  155. if rc = 0 then do 
  156.    exit 1
  157. end
  158.  
  159.  
  160.  
  161. end
  162.  
  163.  
  164.  
  165.  
  166.  
  167. if language = '044' then do
  168.  
  169.  
  170. cf = 'Creating folder'
  171. co = 'Creating object'
  172.  
  173.  
  174. /* OS2TeX Ordner erzeugen */
  175.  
  176.  
  177. classname = 'WPFolder'
  178. title     = 'OS/2-TeX'
  179. location  = '<WP_DESKTOP>'
  180. setup     = 'ICONFILE='target'\bin\folder.ico;OBJECTID=<OS2TEX_FOLDER>;ICONVIEW=NONFLOWED;OPEN=ICON'
  181. duplicate = 'update'
  182.  
  183.  
  184.  
  185. say cf title
  186.  
  187. rc = SysCreateObject(classname,title,location,setup,duplicate)
  188.  
  189. if rc = 0 then do 
  190.    exit 1
  191. end
  192.  
  193.  
  194.  
  195.  
  196. /* Dokumentations Ordner */
  197.  
  198.  
  199. classname = 'WPFolder'
  200. title     = 'Documentation'
  201. location  = '<OS2TEX_FOLDER>'
  202. setup     = 'OBJECTID=<OS2TEX_DOC_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  203. duplicate = 'update'
  204.  
  205.  
  206. say cf title
  207.  
  208. rc = SysCreateObject(classname,title,location,setup,duplicate)
  209.  
  210. if rc = 0 then do 
  211.    exit 1
  212. end
  213.  
  214.  
  215.  
  216.  
  217. /* Fonts Ordner erzeugen */
  218.  
  219.  
  220.  
  221. classname = 'WPFolder'
  222. title     = 'Fonts'
  223. location  = '<OS2TEX_DOC_FOLDER>'
  224. setup     = 'OBJECTID=<OS2TEX_FONTS_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  225. duplicate = 'update'
  226.  
  227. say cf title
  228.  
  229. rc = SysCreateObject(classname,title,location,setup,duplicate)
  230.  
  231. if rc = 0 then do 
  232.    exit 1
  233. end
  234.  
  235.  
  236.  
  237.  
  238. /* Package Ordner erzeugen */
  239.  
  240.  
  241.  
  242. classname = 'WPFolder'
  243. title     = 'Packages/Styles'
  244. location  = '<OS2TEX_DOC_FOLDER>'
  245. setup     = 'OBJECTID=<OS2TEX_PACKAGES_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
  246. duplicate = 'update'
  247.  
  248.  
  249. say cf title
  250.  
  251. rc = SysCreateObject(classname,title,location,setup,duplicate)
  252.  
  253. if rc = 0 then do 
  254.    exit 1
  255. end
  256.  
  257.  
  258.  
  259.  
  260. /* beton.sty im Style Ordner */
  261.  
  262.  
  263. classname = 'WPProgram'
  264. title     = 'beton [Frank Jensen]'
  265. location  = '<OS2TEX_PACKAGES_FOLDER>'
  266. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_BETON>;PARAMETERS=-044 'target'\doc\beton.dvi'
  267. duplicate = 'replace'
  268.  
  269.  
  270. say co title
  271.  
  272.  
  273. rc = SysCreateObject(classname,title,location,setup,duplicate)
  274.  
  275. if rc = 0 then do 
  276.    exit 1
  277. end
  278.  
  279.  
  280.  
  281.  
  282. /* beton.sty im Fonts Ordner */
  283.  
  284.  
  285. classname = 'WPProgram'
  286. title     = 'Concrete [D.E. Knuth]'
  287. location  = '<OS2TEX_FONTS_FOLDER>'
  288. setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_BETON_FONTS>;PARAMETERS=-044 'target'\doc\beton.dvi'
  289. duplicate = 'replace'
  290.  
  291.  
  292.  
  293. say co title
  294.  
  295. rc = SysCreateObject(classname,title,location,setup,duplicate)
  296.  
  297. if rc = 0 then do 
  298.    exit 1
  299. end
  300.  
  301.  
  302.  
  303. end
  304.  
  305.  
  306. exit 0
  307.  
  308.  
  309.  
  310.