| \ See license at end of file |
| purpose: "Finger" command, useful mostly for testing |
| |
| 100 buffer: rbuf |
| : read-one ( -- n ) |
| begin rbuf 100 " read" $call-tcp dup -2 = while drop repeat |
| ; |
| : read-all ( -- ) |
| begin read-one dup -1 <> while rbuf swap list repeat drop |
| ; |
| |
| : $finger ( name$ host$ -- ) |
| d# 79 open-tcp-connection |
| tcp-type " "n" tcp-type read-all |
| close-tcp |
| ; |
| : finger ( "user@host" -- ) |
| safe-parse-word |
| [char] @ left-parse-string 2swap ( user$ host$ ) |
| $finger |
| ; |
| \ LICENSE_BEGIN |
| \ Copyright (c) 2006 FirmWorks |
| \ |
| \ Permission is hereby granted, free of charge, to any person obtaining |
| \ a copy of this software and associated documentation files (the |
| \ "Software"), to deal in the Software without restriction, including |
| \ without limitation the rights to use, copy, modify, merge, publish, |
| \ distribute, sublicense, and/or sell copies of the Software, and to |
| \ permit persons to whom the Software is furnished to do so, subject to |
| \ the following conditions: |
| \ |
| \ The above copyright notice and this permission notice shall be |
| \ included in all copies or substantial portions of the Software. |
| \ |
| \ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, |
| \ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF |
| \ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
| \ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE |
| \ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION |
| \ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION |
| \ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. |
| \ |
| \ LICENSE_END |