voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

wip

This commit is contained in:
voidlizard 2025-02-21 13:33:58 +03:00
parent 978478f753
commit fdce8aee8e
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/dns-example-1/dns.ss
View File

@ -47,6 +47,7 @@
;; created once by create-refchan ;; created once by create-refchan
(define REFCHAN :Aze8PNNexhfz629UfaE79oyRW8Rf7fTGSVoJW4qD95Z7) (define REFCHAN :Aze8PNNexhfz629UfaE79oyRW8Rf7fTGSVoJW4qD95Z7)
(define HOST [car [car [call:proc hostname]]])
(define (update-refchan) (define (update-refchan)
[hbs2:refchan:head:update REFCHAN my-refchan-head] [hbs2:refchan:head:update REFCHAN my-refchan-head]
@ -60,22 +61,27 @@
) )
) )
(define (post:name:update refchan host) (define (post:name:update refchan)
(begin (begin
(local tx (create:name:update host)) (local tx (create:name:update HOST))
(hbs2:refchan:tx:propose refchan tx) (hbs2:refchan:tx:propose refchan tx)
) )
) )
(define (state:get) (define (state:get)
(begin (begin
(local self [sym [car [cdr [car [ grep peer-key [hbs2:peer:poke] ]]]]]) ; won't work on ipv6 address 'cause of their stupid : as separator
(local (strip x) [sym [car [split :: [last [split :// x]]]]] )
(local self [list [sym [car [cdr [car [ grep peer-key [hbs2:peer:poke] ]]]]] :127.0.0.1])
(local txs (grep :propose (hbs2:refchan:tx:raw:list REFCHAN))) (local txs (grep :propose (hbs2:refchan:tx:raw:list REFCHAN)))
(local (hostname e) (car (cdr (car (top:string (bytes:decode [nth 4 _1]))))) ) (local (hostname e) (car (cdr (car (top:string (bytes:decode [nth 4 _1]))))) )
(local peers (call:proc hbs2-peer do peer-info)) (local peers (map (lambda [x] [car [cdr x]]) (car (call:proc hbs2-peer do peer-info))))
peers (local peers2 (map [fn 1 [list (lookup:uw :key _1) (strip (lookup:uw :addr _1))]] peers))
; self (local state (map [fn 1 [list [nth 2 _1] [hostname _1] ]] txs))
; (map [fn 1 [list [nth 2 _1] [hostname _1] ]] txs)
(local (entry e) [list [lookup:uw [nth 0 e] (cons self peers2)] [nth 1 e] ])
(local res [map [fn 1 [entry _1]] state])
res
) )
) )