home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: InfoMgt
/
InfoMgt.zip
/
kim21.zip
/
INSTALL.KIM
< prev
next >
Wrap
Text File
|
1995-12-31
|
21KB
|
632 lines
rem Datum : JUL 1995
rem Version : 1.2
rem Programm : Installationsprogramm
rem Programmierer : JK
deffloat a,i,t,flag,taste,ok
defstring objekt, _suchtext, _tauschtext,ostyp
deffloat _case , _tausch_key
defstring _pfad_kim , _pfad_demo
deffloat _def_prompt_len
_def_prompt_len=-1
def_palette 1,4,15
def_palette 2,1,15
loadfont "H10","Helv" ,24
loadfont "H8" ,"Helv",8
loadfont "T24","Times New Roman Bold Italic",12
loadfont "C8","Courier" ,8
set_keymap "F1",10001,1
set_keymap "F2",10002,2
set_keymap "F3",10003,3
set_keymap "F4",10004,4
set_keymap "F5",10005,5
set_keymap "F6",10006,6
set_keymap "F7",10007,7
set_keymap "F8",10008,8
call install()
end
rem ---------------------------------------------------------------------
rem U N T E R P R O G R A M M E
rem ---------------------------------------------------------------------
modul install()
deffloat y,t,ok,laenge
defstring meier,kennung,version
laenge=35
exist "install.cfg",ok
if ok=1 then
open 2,"install.cfg","r"
gets 2,kennung
gets 2,version
gets 2,_pfad_kim
gets 2,_pfad_demo
close 2
if kennung<>"KIM" then
msgbox "Dies ist keine KIM-Installationsdiskette !",0,ok,""
exitmod
endif
else
msgbox "Wechseln Sie zuerst auf das Installationslaufwerk",0,ok,""
exitmod
endif
rem Laden der INSTALL.CFG
call lade_cfg("install.cfg",0)
def_window "pfad",2,1, 70,11,"","",10;"modal","move off"
def_border "pfad_border"
def_titel "pfad_titel",version
def_prompt "pfad_pr1",5,1,"KIM 2.1 Installation ";"H10","color on"
def_button "pfad_button1",5 ,8,15,""," &Installieren"
def_button "pfad_button2",23,8,15,""," &Abbruch "
def_prompt "pfad_pr2",5,3,"KIM Programme "
def_string "pfad_in",5,4,laenge,_pfad_kim ;"border"
def_bitmap "pfad_bild",320,1,150,200,"logo.bmp"
def_prompt "pfad_pr3",5,5,"KIM Beispiele "
def_string "pfad_in2",5,6,laenge,_pfad_demo ;"border"
def_prompt "pfad_pr4",42,7," "
def_string "pfad_pr5",42,8,25," ";"view only","current off"
color_item "pfad_pr1",1
add_item "pfad",..
"pfad_pr1",..
"pfad_border",..
"pfad_titel",..
"pfad_pr2",..
"pfad_in",..
"pfad_pr3",..
"pfad_pr4",..
"pfad_in2",..
"pfad_bild",..
"pfad_button1",..
"pfad_button2",..
"pfad_pr5"
win_paint "pfad"
while y<>1000
win_ev y
get_item_pos meier,t
if t=13 then
if meier="pfad_button1" then
call install_start()
y=1000
endif
if meier="pfad_button2" then
y=1000
endif
endif
wend
event_on_item "pfad","end"
endmod
modul lade_cfg(char datei, float flag)
defstring kennung,version,zeile,dummy
dim _pfadA,1,50
dim _pfadB,1,50
deffloat _anzA, _anzB
open 2,datei,"r"
gets 2,kennung
gets 2,version
if flag=0 then
gets 2,_pfad_kim
gets 2,_pfad_demo
else
gets 2,dummy
gets 2,dummy
endif
rem Hier [1]
gets 2,zeile
while zeile<>"[2]"
gets 2,zeile
if zeile<>"[2]" then
_anzA=_anzA+1
_pfadA[_anzA]=zeile
endif
wend
while zeile<>"EOF"
gets 2,zeile
if zeile<>"EOF" then
_anzB=_anzB+1
_pfadB[_anzB]=zeile
endif
wend
close 2
endmod
modul install_start()
deffloat i,ok,a
defstring quelle,ziel,zeile,drive
get_item "pfad_in",_pfad_kim
get_item "pfad_in2",_pfad_demo
mkdir _pfad_kim,ok
if ok=-1 then
msgbox "Verzeichnis konnte nicht neu erstellt werden.",0,ok,""
exitmod
endif
mkdir _pfad_demo,ok
if ok=-1 then
msgbox "Verzeichnis 2 konnte nicht neu erstellt werden.",0,ok,""
exitmod
endif
rem call msg_box ("Bitte legen Sie die KIM 2.1 Programmdiskette ein ",ok)
call kopiere_disk()
rem Prüfen ob eine weitere Diskette kopiert werden muß
ok=0
exist "install2.cfg",a
if a<>1 then
i=0
while i=0
beep
call msg_box ("Bitte legen Sie die KIM 2.1 Zusatzdiskette ein ",ok)
if ok=1 then
exist "install2.cfg",a
if a=1 then
i=1
ok=0
endif
else
call msg_box ("Installation nicht vollständig",ok)
i=1
ok=-1
endif
wend
endif
if ok=0 then
call lade_cfg("install2.cfg",1)
call kopiere_disk()
endif
exist "install.cfg",a
if a<>1 then
a=0
while a<>1
exist "install.cfg",a
msgbox "Legen Sie bitte die Programmdisk ein.",0,ok,""
wend
endif
rem Programmteil für REXX-Icon Erstellung
call icon()
call show_datei("read.me")
endmod
modul icon()
kill "c:\tt001.cmd"
open 8,"c:\tt001.cmd"
puts 8,"/* KIM - Installation */"
puts 8,"CALL Rxfuncadd 'sysloadfuncs','rexxutil','sysloadfuncs'"
puts 8,"CALL sysloadfuncs"
puts 8,"CALL SysCls"
puts 8,'SAY "***************************************************************************"'
puts 8,'SAY "* KIM 2.1 R2.00 OS/2 WP-Installations-Progamm *"'
puts 8,'SAY "* *"'
puts 8,'SAY "* ICONS + ORDNER WERDEN ANGELEGT ! *"'
puts 8,'SAY "* *"'
puts 8,'SAY "***************************************************************************"'
puts 8,""
puts 8,"/* Ordner erstellen */"
puts 8,""
puts 8,'titel = "KIM 2.1 Datenbanksystem"'
puts 8,"klasse = 'WPFolder'"
puts 8,"ort = '<WP_DESKTOP>'"
puts 8,"eigenschaften='OBJECTID=<KIM_21>;OPEN=default;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8,'ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften,"u")'
puts 8,"IF ergebnis <> 1 THEN DO"
puts 8,' SAY ""'
puts 8,' SAY "***************************************************************************"'
puts 8,' SAY "* ABRUCH KIM/2 1.01 OS/2 WP-Installations-Programm *"'
puts 8,' SAY "***************************************************************************"'
puts 8," EXIT"
puts 8,"END"
puts 8,""
puts 8,'ProgLW=""'
puts 8,'ProgPATH="',_pfad_kim,'\"'
puts 8,'ProgEXE="kim.exe"'
puts 8,'PROG="edit.kim"'
puts 8,"ProgICON=",'"',_pfad_kim,"\kim.ico",'"'
puts 8,""
puts 8,"filespec=",'"',_pfad_kim,"\KIM.EXE",'"'
puts 8,"call SysFileTree filespec, 'file', 'F'"
puts 8," IF file.0 = 0 THEN DO"
puts 8,' SAY file.0" ... "'
puts 8,' SAY filespec" nicht gefunden."'
puts 8,' SAY ""'
puts 8,' SAY "***************************************************************************"'
puts 8,' SAY "* ABRUCH KIM/2 1.01 OS/2 WP-Installations-Programm *"'
puts 8,' SAY "***************************************************************************"'
puts 8," EXIT"
puts 8," END"
puts 8,""
puts 8,' titel = "KIM-Editor"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''ProgPATH';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8," ProgICON=",'"',_pfad_kim,"\kmask.ico",'"'
puts 8,' titel = "KMASK"'
puts 8,' PROG = "KMASK.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''ProgPATH';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=no'0"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' titel = "Produkt"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"produkt.ico"'
puts 8,' PROG = "PRODUKT.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,""
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' titel = "MEMO"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"memo.ico"'
puts 8,' PROG = "MEMO.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,""
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' titel = "KUNDEN"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"kunden.ico"'
puts 8,' PROG = "KUNDEN.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' ProgEXE="kim.exe"'
puts 8,' titel = "TERMIN"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"termin.ico"'
puts 8,' PROG = "TERMIN.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' ProgEXE="kim.exe"'
puts 8,' titel = "BITMAP"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"bitmap.ico"'
puts 8,' PROG = "bitmap.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' ProgEXE="kim.exe"'
puts 8,' titel = "TIMER"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"allg.ico"'
puts 8,' PROG = "timer.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' ProgEXE="kim.exe"'
puts 8,' titel = "NOTEBOOK"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"allg.ico"'
puts 8,' PROG = "note.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' ProgEXE="kim.exe"'
puts 8,' titel = "TABLE"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"allg.ico"'
puts 8,' PROG = "table.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,' ProgPATHDEMO="',_pfad_demo,'\"'
puts 8,' ProgEXE="kim.exe"'
puts 8,' titel = "DRAG&DROP"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8,' start ="',_pfad_demo,'\"'
puts 8," ProgICON=ProgLW''ProgPATHDEMO",'"allg.ico"'
puts 8,' PROG = "drag.KIM"'
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,'ProgLW=""'
puts 8,'ProgPATH="c:\os2\"'
puts 8,'ProgEXE="view.exe"'
puts 8,'PROG="kim21.inf"'
puts 8,"ProgICON=ProgLW","''ProgPATH",'"hand.ico"'
puts 8,'start ="',_pfad_kim,'\"'
puts 8,""
puts 8,"filespec=ProgLW''ProgPATH''ProgEXE"
puts 8,"call SysFileTree filespec, 'file', 'F'"
puts 8," IF file.0 = 0 THEN DO"
puts 8,' SAY file.0" ... "'
puts 8,' SAY filespec" nicht gefunden."'
puts 8,' SAY ""'
puts 8,' SAY "***************************************************************************"'
puts 8,' SAY "* ABRUCH KIM/2.1 R2.00 OS/2 WP-Installations-Programm *"'
puts 8,' SAY "***************************************************************************"'
puts 8," EXIT"
puts 8," END"
puts 8,""
puts 8,' titel = "Handbuch"'
puts 8," klasse = 'WPProgram'"
puts 8," ort = '<KIM_21>'"
puts 8," eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1"
puts 8," ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)"
puts 8,""
puts 8,"CALL SysCls"
puts 8,'SAY "***************************************************************************"'
puts 8,'SAY "* KIM 2.1 R2.00 OS/2 WP-Installations-Progamm *"'
puts 8,'SAY "* *"'
puts 8,'SAY "* KIM WURDE ORDNUNGSGEMÄß INSTALLIERT ! *"'
puts 8,'SAY "* *"'
puts 8,'SAY "***************************************************************************"'
close 8
endmod
modul kopiere_disk()
deffloat i,x,ok
defstring ziel
set_item "pfad_pr4","Kopiere ..."
for i=1 to _anzA
compress _pfadA[i]
if _pfadA[i]<>"" then
set_item "pfad_pr5",_pfadA[i]
ziel=_pfad_kim+"\"+_pfadA[i]
filecopy _pfadA[i],ziel
set_attrib ziel,0,ok
endif
next
set_item "pfad_pr4","Kopiere ..."
for i=1 to _anzB
set_item "pfad_pr5",_pfadB[i]
ziel=_pfad_demo+"\"+_pfadB[i]
filecopy _pfadB[i],ziel
set_attrib ziel,0,ok
next
endmod
MODUL msg_fenster()
def_window "msg",4,12, 55,8 ;"move off","modal"
def_border "msg_border"
def_titel "msg_titel","Meldung" ;"center"
def_button "msg_button1",5,5,20,"ok","OK";"auto size"
def_button "msg_button2",26,5,20,"x","Abbruch";"auto size"
def_prompt "msg_pr",5,1," "
def_icon "icon1",30,1,"frage2","" ;"auto size","select off","view only"
add_item "msg",..
"msg_border",..
"msg_titel",..
"msg_pr",..
"icon1",..
"msg_button1",..
"msg_button2"
ENDMOD
MODUL msg_box(char text,float flag)
deffloat y,t
defstring obj
call msg_fenster()
win_paint "msg"
set_item "msg_pr",text
while y<>1000
win_ev y
get_item_pos obj,t
if t=13 then
if obj="msg_button1" then y=1000 : flag=1 :endif
if obj="msg_button2" then y=1000 : flag=2 :endif
endif
wend
event_on_item "msg","end"
ENDMOD
MODUL show_datei(char datei)
defstring objekt,id$,i$,zeile
deffloat ok,i,taste
def_window_st "tmp_window",10,5,30,3,"Meldung"
def_prompt "tmp_pr",1,0,"READ.ME Datei wird geladen..."
add_item "tmp_window","tmp_pr"
win_paint "tmp_window"
def_window "win_info",0,2, 91,18 ;"modal"
def_border "win_info_border"
def_titel "win_info_titel","Ausgabe" ;"center"
def_max_button "win_max_b"
add_item "win_info","win_info_border","win_max_b","win_info_titel"
DEF_TOOLBAR "tool_info",0,0,0,0;"region off","border"
DEF_SCROLLBAR "scroll_info",1,0,0,0,0
DEF_BUTTON "PushButton1",3,1,15,"","&Quit";""
DEF_BUTTON "PushButton2",13,1,15,"","Druck LPT1";""
DEF_BUTTON "PushButton3",23,1,15,"","Druck LPT2";""
DEF_LIST "text_info",0,1,0,87,15,0,0 ;"border","C8","select off"
add_item "text_info","scroll_info"
add_item "tool_info","PushButton1","PushButton2","PushButton3"
ADD_ITEM "win_info","tool_info","text_info"
i=1
open 11,datei,"r"
gets 11,zeile
gets 11,zeile
while zeile<>"EOF"
form i,i$,0,1
id$="text"+i$
def_string id$,1,0,80,zeile
add_item "text_info",id$
rem event_on_item "text_info","redisplay"
gets 11,zeile
i=i+1
wend
close 11
event_on_item "tmp_window","end"
win_paint "win_info"
while i<>1000
win_ev i
get_item_pos objekt,taste
if taste=13 and objekt="PushButton1" then
i=1000
endif
if taste=13 and objekt="PushButton2" then
call info_druck(datei,"lpt1")
i=1000
endif
if taste=13 and objekt="PushButton3" then
call info_druck(datei,"lpt2")
i=1000
endif
wend
event_on_item "win_info","end"
ENDMOD
MODUL info_druck(char datei_send,char datei_empf)
defstring zeile
call tmp_fenster(1)
open 11,datei_send,"r"
open 12,datei_empf
gets 11,zeile
while zeile <> "EOF"
puts 12,zeile
gets 11,zeile
wend
close 11
close 12
call tmp_fenster(0)
ENDMOD
MODUL tmp_fenster(float flag)
if flag=1 then
def_window "msg_be",30,7,26,6 ;"move off","modal"
def_border "msg_border_be"
def_titel "msg_titel_be","Meldung" ;"center"
def_prompt "msg_pr1_be",1,1,"Daten werden gedruckt"
def_prompt "msg_pr2_be",5,2,"Bitte warten !"
add_item "msg_be",..
"msg_border_be",..
"msg_titel_be",..
"msg_pr1_be",..
"msg_pr2_be"
win_paint "msg_be"
else
event_on_item "msg_be","end"
endif
ENDMOD