home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
k95
/
hostcom.ksc
< prev
next >
Wrap
Text File
|
2002-03-10
|
2KB
|
65 lines
; Kermit 95 host mode for direct serial connections.
;
; The following code was added to accomodate the new Windows multi-user
; friendly directory layouts introduced with version 1.1.21. We have
; check several locations for the directories that hostmode uses and
; create them in \v(appdata) if the do not exist at all.
if directory \v(exedir)USERS {
asg _hostroot \v(exedir)
forward FOUNDDIRS
}
if directory \v(startup)INCOMING {
asg _hostroot \v(startup)
forward FOUNDDIRS
}
if directory \v(appdata)USERS {
asg _hostroot \v(appdata)
}
:FOUNDDIRS
asg _configfile \freplace(\m(_hostroot)host.cfg,/,\\)
def MAKEVAR2 if def \%2 _assign \%1 \%2, else _assign \%1
def MAKEVAR -
if = \findex(=,\%1,1) 0 end, -
asg \%9 _\freplace(\%1,=,\32), -
makevar2 \%9
open read \m(_configfile)
if fail forward noconfig
while true { read \%a, if fail break, makevar \%a }
:NOCONFIG
set modem type none
xif def _commport { -
set port \m(_commport),-
if fail stop 1 "\m(_commport)" - Invalid port -
}
xif def _comspeed { -
set speed \m(_comspeed), -
if fail stop 1 "\m(_comspeed)" - Invalid speed -
}
if not eq "\v(connection)" "serial" -
fail stop 1 -
"\v(line)" - Inappropriate connection type: "\v(connection)"
set carrier off
set flow rts/cts
take host.ksc
;
; There's no point in looping on direct connections, since you are probably
; in the same room with both computers and can set up the connection any
; time you want it. Since we don't wait on carrier, issuing the prompt when
; there is nothing on the other end results in lost data, "getty babble", or
; worse.
;
;; goto loop
end