OS/2 Shareware BBS: 5 Edit/05-Edit.zip/os2tex.zip/disk4.zip/gothic.cmd

OS/2 REXX Batch file | 1996-06-25 | 5KB | 309 lines

/* Rexx-Script zur Erzeugung der OS2TeX-Objekte */





call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
call SysLoadFuncs


parse arg language target


if language = '' then do
   exit 1
end



if target = '' then do
   exit 1
end



/* SysDestroyObject('<TEX_SHELL_FOLDER>') */




if language = '049' then do



/* OS2TeX Ordner erzeugen */



say "Erzeuge Ordner OS/2-TeX"


classname = 'WPFolder'
title     = 'OS/2-TeX'
location  = '<WP_DESKTOP>'
setup     = 'ICONFILE='target'\bin\folder.ico;OBJECTID=<OS2TEX_FOLDER>;ICONVIEW=NONFLOWED;OPEN=ICON'
duplicate = 'update'

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




/* Dokumentations Ordner */



say "Erzeuge Ordner Dokumentation"



classname = 'WPFolder'
title     = 'Dokumentation'
location  = '<OS2TEX_FOLDER>'
setup     = 'OBJECTID=<OS2TEX_DOC_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
duplicate = 'update'

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




/* Fonts Ordner erzeugen */


say "Erzeuge Ordner Schriften"


classname = 'WPFolder'
title     = 'Schriften'
location  = '<OS2TEX_DOC_FOLDER>'
setup     = 'OBJECTID=<OS2TEX_FONTS_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
duplicate = 'update'

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




/* Package Ordner erzeugen */



say "Erzeuge Ordner Zusatzpakete/Styles"


classname = 'WPFolder'
title     = 'Zusatzpakete/Styles'
location  = '<OS2TEX_DOC_FOLDER>'
setup     = 'OBJECTID=<OS2TEX_PACKAGES_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
duplicate = 'update'

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end



/* oldgerm.sty im Style Ordner */



say "Erzeuge Objekt oldgerm"


classname = 'WPProgram'
title     = 'oldgerm [Frank Mittelbach]'
location  = '<OS2TEX_PACKAGES_FOLDER>'
setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_OLDGERM>;PARAMETERS='target'\doc\oldgerm.dvi'
duplicate = 'replace'

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




/* oldgerm.sty im Fonts Ordner */



say "Erzeuge Objekt Altdeutsche Schriften"

classname = 'WPProgram'
title     = 'Altdeutsche Schriften [Yannis Haralambous]'
location  = '<OS2TEX_FONTS_FOLDER>'
setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_OLDGERM_FONTS>;PARAMETERS='target'\doc\oldgerm.dvi'
duplicate = 'replace'

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end



end





if language = '044' then do



cf = 'Creating folder'
co = 'Creating object'



/* OS2TeX Ordner erzeugen */


classname = 'WPFolder'
title     = 'OS/2-TeX'
location  = '<WP_DESKTOP>'
setup     = 'ICONFILE='target'\bin\folder.ico;OBJECTID=<OS2TEX_FOLDER>;ICONVIEW=NONFLOWED;OPEN=ICON'
duplicate = 'update'


say cf title

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




/* Dokumentations Ordner */


classname = 'WPFolder'
title     = 'Documentation'
location  = '<OS2TEX_FOLDER>'
setup     = 'OBJECTID=<OS2TEX_DOC_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
duplicate = 'update'

say cf title

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




/* Fonts Ordner erzeugen */



classname = 'WPFolder'
title     = 'Fonts'
location  = '<OS2TEX_DOC_FOLDER>'
setup     = 'OBJECTID=<OS2TEX_FONTS_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
duplicate = 'update'

say cf title


rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




/* Package Ordner erzeugen */



classname = 'WPFolder'
title     = 'Packages/Styles'
location  = '<OS2TEX_DOC_FOLDER>'
setup     = 'OBJECTID=<OS2TEX_PACKAGES_FOLDER>;ICONVIEW=NONFLOWED,MINI;OPEN=ICON'
duplicate = 'update'

say cf title

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end



/* oldgerm.sty im Style Ordner */


classname = 'WPProgram'
title     = 'oldgerm [Frank Mittelbach]'
location  = '<OS2TEX_PACKAGES_FOLDER>'
setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_OLDGERM>;PARAMETERS=-044 'target'\doc\oldgerm.dvi'
duplicate = 'replace'

say co title

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




/* oldgerm.sty im Fonts Ordner */


classname = 'WPProgram'
title     = 'Old german fonts [Yannis Haralambous]'
location  = '<OS2TEX_FONTS_FOLDER>'
setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_OLDGERM_FONTS>;PARAMETERS=-044 'target'\doc\oldgerm.dvi'
duplicate = 'replace'

say co title

rc = SysCreateObject(classname,title,location,setup,duplicate)

if rc = 0 then do
   exit 1
end




end


exit 0