plunder

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

demo_telnet_hello_listen.sire (1286B)

      1 ; Copyright 2023 The Plunder Authors
      2 ; Use of this source code is governed by a BSD-style license that can be
      3 ; found in the LICENSE file.
      4 
      5 #### demo_telnet_hello_listen <- demo_smallcheck
      6 
      7 :| sire
      8 :| stew
      9 
     10 
     11 ;;; Telnet Tests ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     12 
     13 ;; TODO Support '(# x)(}...)(}...)
     14 = fav
     15 | x#000001000100101010000100040028010000160000002800000010000000200000000100040000000000800000000000000000000000100000000000000000000000ff840000bfab9500000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001000000000000000010000000000000000000000000010011001000001000000010100200000000000000020100000000000000000000000010000000000000100100020010000001011002000100000010000020010000000000000000001110000000000000000000000000000000000000000000000f200000173000002b3c0000540c000063140000240000002c00000000160000000a000030c0000038a2000018d400001c0800000cf0000000000000
     16 
     17 = servData
     18 ## ={/index.html}  [ {text/plain}   b#hello ]
     19 ## ={/}            [ {text/plain}   b#hello ]
     20 ## ={/favicon.ico} [ {image/x-icon} fav     ]
     21 
     22 (TELNET req)=[0 2 req]
     23 
     24 = (telnetHello selfId)
     25 ^ _ [(TELNET 0)]
     26 ? (loop _ _ handle)
     27 | trk [%got_handle handle]
     28 | loop [(TELNET 0)]
     29 
     30 main=(deepTraceId telnetHello)