Changeset 3518
- Timestamp:
- Jan 17, 2013 10:26:48 PM (4 months ago)
- File:
-
- 1 edited
-
ofw/inet/telnetd.fth (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
ofw/inet/telnetd.fth
r748 r3518 209 209 210 210 211 0 value old-in212 0 value old-out213 211 0 value telnet-ih 214 212 … … 217 215 218 216 : exit-telnet ( -- ) 217 telnet-ih remove-output 218 telnet-ih remove-input 219 219 telnet-ih close-dev 220 old-out stdout !221 old-in stdin !222 220 ['] = to getchar-hook 223 221 ; … … 238 236 " telnetd" open-dev dup 0= abort" Can't open telnet" ( ih ) 239 237 to telnet-ih 240 stdin @ to old-in stdout @ to old-out 241 telnet-ih dup stdin ! stdout ! 238 telnet-ih add-output 239 telnet-ih add-input 240 \ hint: use " screen-ih remove-output " to speed up your telnet output 242 241 ['] ?telnet-closed to getchar-hook 243 242 ;
Note: See TracChangeset
for help on using the changeset viewer.
