home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
os2tex.zip
/
disk4.zip
/
gothic.cmd
< prev
next >
Wrap
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