OS/2 Shareware BBS: 5 Edit/05-Edit.zip/os2tex.zip/disk2.zip/bin.cmd

OS/2 REXX Batch file | 1996-11-27 | 6KB | 342 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




cf = 'Erzeuge Ordner'
co = 'Erzeuge Objekt'



/* 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




/* Programmobjekte erzeugen */




classname = 'WPProgram'
title     = 'Shell'
location  = '<OS2TEX_FOLDER>'
setup     = 'EXENAME='target'\bin\shell.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_SHELL>;ASSOCFILTER=*.txp;'
duplicate = 'replace'

say co title

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

if rc = 0 then do
   exit 1
end





classname = 'WPProgram'
title     = 'Server Konfiguration'
location  = '<OS2TEX_FOLDER>'
setup     = 'EXENAME='target'\bin\service.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_SERVICE>'
duplicate = 'replace'

say co title

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

if rc = 0 then do
   exit 1
end





classname = 'WPProgram'
title     = 'Dvi Previewer'
location  = '<OS2TEX_FOLDER>'
setup     = 'EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_PREVIEWER>;ASSOCFILTER=*.dvi;'
duplicate = 'replace'

say co title

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

if rc = 0 then do
   exit 1
end





classname = 'WPProgram'
title     = 'Image'
location  = '<OS2TEX_FOLDER>'
setup     = 'EXENAME='target'\bin\image.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_IMAGE>'
duplicate = 'replace'

say co title

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

if rc = 0 then do
   exit 1
end


/* Referenz auf das projects-Verzeichnis erzeugen */



say "Erzeuge Referenz auf das Verzeichnis projects"


classname = 'WPShadow'
title     = 'Projekte'
location  = '<OS2TEX_FOLDER>'
setup     = 'SHADOWID='target'\projects;OBJECTID=<OS2TEX_PROJECTS>'
duplicate = 'replace'

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

if rc = 0 then do
   exit 1
end



/* Schablonenobjekt fuer OS2TeX-Projekte erzeugen */





say "Erzeuge Schablonenobjekt os2tex.txp"


objectid = target || "\bin\os2tex.txp"


rc = SysSetObjectData(objectid,'TEMPLATE=YES')


classname = 'WPShadow'
title     = 'os2tex.txp'
location  = '<OS2TEX_FOLDER>'
setup     = "OBJECTID=<OS2TEX_TEMPLATE>;SHADOWID=" || target || "\bin\os2tex.txp"
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




/* Programmobjekte erzeugen */


classname = 'WPProgram'
title     = 'Shell'
location  = '<OS2TEX_FOLDER>'
setup     = 'PARAMETERS=-044;EXENAME='target'\bin\shell.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_SHELL>;ASSOCFILTER=*.txp;'
duplicate = 'replace'


say co title


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

if rc = 0 then do
   exit 1
end


classname = 'WPProgram'
title     = 'Server Configuration'
location  = '<OS2TEX_FOLDER>'
setup     = 'PARAMETERS=-044;EXENAME='target'\bin\service.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_SERVICE>'
duplicate = 'replace'

say co title

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

if rc = 0 then do
   exit 1
end


classname = 'WPProgram'
title     = 'Dvi Previewer'
location  = '<OS2TEX_FOLDER>'
setup     = 'PARAMETERS=-044;EXENAME='target'\bin\dvi.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_PREVIEWER>;ASSOCFILTER=*.dvi;'
duplicate = 'replace'

say co title

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

if rc = 0 then do
   exit 1
end


classname = 'WPProgram'
title     = 'Image'
location  = '<OS2TEX_FOLDER>'
setup     = 'PARAMETERS=-044;EXENAME='target'\bin\image.exe;PROGTYPE=PM;STARTUPDIR='target'\bin;OBJECTID=<OS2TEX_IMAGE>'
duplicate = 'replace'

say co title

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

if rc = 0 then do
   exit 1
end


/* Referenz auf das projects-Verzeichnis erzeugen */


classname = 'WPShadow'
title     = 'Projects'
location  = '<OS2TEX_FOLDER>'
setup     = 'SHADOWID='target'\projects;OBJECTID=<OS2TEX_PROJECTS>'
duplicate = 'replace'


say co title

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

if rc = 0 then do
   exit 1
end



/* Schablonenobjekt fuer OS2TeX-Projekte erzeugen */



objectid = target || "\bin\os2tex.txp"


rc = SysSetObjectData(objectid,'TEMPLATE=YES')


classname = 'WPShadow'
title     = 'os2tex.txp'
location  = '<OS2TEX_FOLDER>'
setup     = 'SHADOWID='target'\bin\os2tex.txp;OBJECTID=<OS2TEX_TEMPLATE>'
duplicate = 'replace'

say co title

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




if rc = 0 then do
   exit 1
end


end


exit 0