3 ;;; Configuration and definitions for Kermit.
5 assign _profile @profile@/
6 assign _dot \v(home).kermit/
9 set escape-character ^]
10 set flow-control /direct-serial rts/cts
11 set flow-control /modem rts/cts
13 set options directory /brief
14 set terminal trigger KERMIT READY TO SERVE...
17 ;; Dialling parameters.
18 set dial country-code 44
19 set dial area-code 1223
21 set dial toll-free-area-code 800
23 set dial intl-prefix 00
32 for \%i 1 \v(argc)-1 1 {
34 if def list assign list \m(list) \%1
39 assign awful { set \m(what) directory \m(list) }
43 \m(_profile)kermit/net.shared -
46 \m(_profile)kermit/dial.shared -
49 ;; If my terminal is UTF8 then try to use that consistently. This may not
50 ;; work, but in my world as it is it's quite likely to.
52 if not def _lc_ctype if def \$(LC_ALL) assign _lc_ctype \$(LC_ALL)
53 if not def _lc_ctype if def \$(LC_CTYPE) assign _lc_ctype \$(LC_CTYPE)
54 if not def _lc_ctype if def \$(LANG) assign _lc_ctype \$(LANG)
55 if match \m(_lc_ctype) *.utf8 {
56 set file character-set utf8
57 set terminal character-set utf8
60 ;; Set the HTTP proxy from the environment.
61 if def \$(http_proxy) {
62 assign \%n \fsplit(\$(http_proxy),&v,/)
63 set tcp http-proxy \&v[2]
66 ;; Guest virtual consoles are frequently presented as Unix-domain sockets.
69 end 1 Usage: UNIX socket
73 ;; Connect to a kermit SSH subsystem.
76 end 1 Usage: KERMSSH [options] [user@]host
78 pty ssh -enone -st \%* kermit
81 ;; Console over null-modem cable.
83 if > \v(argc) 1 set speed \%1
84 if > \v(argc) 2 set serial \%2
92 ;; Synchronize remote terminal size with local window.
93 def syncwinsz output stty rows \v(rows) columns \v(cols)\13
95 ;; Local configuration.
96 if exist \m(_dot)config take \m(_dot)config