home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
texed133.zip
/
Deutsch.zip
/
Install.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-05-17
|
6KB
|
188 lines
/* Install.cmd */
call RxFuncAdd SysLoadFuncs, RexxUtil, SysLoadFuncs
call SysLoadFuncs
/*
* Ermitteln der Environments von EmTeX und setzen der Installations-
* Pfade für TeXEdit
*/
env = VALUE('emtexdir',,'OS2ENVIRONMENT')
env2 = Left( env, 2)
Pfad.0 = 3
if SysIni( "USER", "TeXEditor", "Pfad" ) \= 'ERROR:' then
Pfad.1 = SysIni( "USER", "TeXEditor", "Pfad" )
else
Pfad.1 = env2||"\TeXEdit"
Pfad.2 = env"\DLL"
Pfad.3 = env||'\book\german'
/*
* Installationsprozedur
*/
cls
say ' FSS - TeX Editor'
say ' Installation '
say ' '
say ' '
say 'Willkommen im FSS - Tex Editor.'
say ' '
say 'Im Laufe der Installationsprozedur müssen einige Angaben zu den'
say 'gewünschten Installationsverzeichnissen gemacht werden. Bitte'
say 'geben Sie diese ohne abschließenden Backslash (\) ein und ver-.'
say 'gessen Sie nicht die Laufwerksangabe vor dem Pfad'
say ' '
say ' '
say 'In welches Verzeichnis soll TeXEdit Installiert werden? Achten'
say 'Sie hier bitte auf eine Laufwerksangabe vor dem Pfad (LW:\Pfad)'
say '[ENTER für :'||Pfad.1||']'
pull tmp
if tmp \= '' then Pfad.1 = tmp
ok = SysIni( "USER", "TeXEditor", "Pfad", Pfad.1 )
say ' '
say 'In welches Verzeichnis soll die DLL-Datei installiert werden?'
say '[ENTER für :'||Pfad.2||']'
pull tmp
if tmp \= '' then Pfad.2 = tmp
say ' '
say 'In welches Verzeichnis sollen die INF-Dateien installiert werden?'
say '[ENTER für :'||Pfad.3||']'
pull tmp
if tmp \= '' then Pfad.3 = tmp
do i = 1 to Pfad.0
call SysFileTree Pfad.i, 'tmp', 'D'
if tmp.0 = 0 then do
ok = SysMkDir(Pfad.i)
if ok \= 0 then do
say 'FEHLER: Verzeichnis '||Pfad.i||'konnte nicht erstellt werden.'
exit
end
end
end
say ' '
say 'Ist TeXEdit der Version 0.97 oder kleiner bereits auf Ihrem Rechner'
say 'Installiert? [j|n]'
pull char
call SysIni 'USER', 'TeXEditor', 'SW_17pos', 'DELETE:'
call SysIni 'USER', 'TeXEditor', 'set_SL', 'DELETE:'
if char = 'j' then do
W.0 = 6
W.1 = '2'
W.2 = '5'
W.3 = '6'
W.4 = '7'
W.5 = '13'
W.6 = '16'
do i = 1 to W.0
call SysIni 'USER', 'TeXEditor', 'SW_'||W.i||'pos', 'DELETE:'
end
end
Datei.0 = 6
Datei.1 = '*.exe'
Datei.2 = '*.txt'
Datei.3 = '*.cmd'
Datei.4 = '*.ico'
Datei.5 = '*.TeV'
Datei.6 = '*.cmd'
do i = 1 to Datei.0
'@copy '||Datei.i||' '||Pfad.1
end
'@copy *.dll '||Pfad.2
'@copy *.inf '||Pfad.3
/*
* Anlegen der Objekte auf dem Desktop
*/
say ' '
say 'Aus welchem Verzeichnis soll TeXEdit starten? [ENTER für keines]'
pull StartUpDir
object.0 = 6
object.1 = 'EXENAME='||Pfad.1||'\TeXEdit.exe;STARTUPDIR='||StartUpDir
object.2 = 'EXENAME='||Pfad.1||'\TeXEdit.exe;STARTUPDIR='||StartUpDir||';PARAMETERS=-p'
object.3 = 'EXENAME=View.exe;PARAMETERS=TeXEdit.INF'
object.4 = 'EXENAME=e.exe;PARAMETERS='||Pfad.1||'\Neu.txt'
object.5 = 'EXENAME='||Pfad.1||'\Register.exe'
object.6 = 'EXENAME=e.exe;PARAMETERS='||Pfad.1||'\Register.txt'
caption.1 = 'TeXEditor'
caption.2 = 'PreLoad'
caption.3 = 'Hilfe'
caption.4 = 'Neu'
caption.5 = 'Registrieren'
caption.6 = 'Registrationsformular'
if SysCreateObject("WPFolder", "FSS-TeXEditor", "<WP_DESKTOP>",,
"OBJECTID=<MEINORDNER>") Then nop
do i = 1 to object.0
If SysCreateObject("WPProgram", caption.i, "<MEINORDNER>",,
object.i) Then a = 1
end
If SysCreateObject("WPProgram", "TeXEditor", "<MEINORDNER>",,
'ASSOCFILTER=*.TEX,*.TEV', "update" ) Then a = 1
say ' '
say 'Folgende Umgebungen müssen in der CONFIG.SYS gesetzt sein:'
say ' '||Pfad.1||' muß in <path>.'
say ' '||Pfad.2||' muß in <libpath>.'
say ' '||Pfad.3||' muß in <bookshelf>.'
say 'Sollen die Änderungen automatisch durchgeführt werden? [j|n]'
pull char
if (char = 'n') | (char = 'N') then exit
/*
* Ändern der CONFIG.SYS
*/
env = VALUE('USER_INI',,'OS2ENVIRONMENT')
env = Left( env, 2)
search.0 = 3
search.1 = 'SET PATH'
search.3 = 'SET BOOKSHELF'
search.2 = 'LIBPATH'
do while lines( env||'\config.sys') > 0
line = LineIn( env||'\config.sys')
tmp = TRANSLATE( line)
do i = 1 to search.0
if pos( search.i, tmp) > 0 then do
pos = Pos( TRANSLATE( Pfad.i)||';', tmp)
if pos = 0 then do
do while (Right( tmp, 1) = ' ') | (Right( tmp, 1) = ';')
l = length(tmp)
tmp = SubStr(tmp, 1, l - 1)
line = SubStr(line, 1, l - 1)
end
line = line||';'||Pfad.i||';'
end
end
end
call LineOut env||'\config.new', line
end
call LineOut env||'\config.sys'
call LineOut env||'\config.new'
'@copy '||env||'\config.sys '||env||'\config.old'
'@copy '||env||'\config.new '||env||'\config.sys'
'@del '||env||'\config.new'
cls
say ' '
say 'Die Installation wurde erfolgreich beendet. Die ursprüngliche'
say 'CONFIG.SYS wurde als CONFIG.OLD gesichert.'
say ' '
say 'Bitte führen Sie einen Systemabschluß durch, um die Änderungen'
say 'wirksam werden zu lassen.'