- \ Tor specific words.
-
- require libs/parser/parser.4th
-
- create proxyline-parser PARSER_SIZE allot
-
- : (expect&skip) ( str -- )
- tuck parser>>string invert abort" parsing exception" parser>> ;
- : (extract-before) ( str -- )
- parser-mark (expect&skip) 1 parser<< parser-extract 1 parser>> ;
- : (hexstr>value) ( str -- n )
- hex 2>r 0 0 2r> >number 2drop d>s decimal ;
- : (parse-circuitid) ( -- circuitid-n )
- s" :" (extract-before) pad place
- s" " (extract-before) pad +place
- pad count (hexstr>value) ;
- : proxyline>circuitid ( line-str -- circuitid-n remaining-str )
- proxyline-parser new-parser
- s" PROXY TCP6 fc00:dead:beef:4dad::" (expect&skip) (parse-circuitid)
- s\" \r\n" (expect&skip) parser-remaining ;
-
- \ TODO: removeme
- : proxyline-test1 ( -- )
- s\" PROXY TCP6 fc00:dead:beef:4dad::ffff:ffff ::1 65535 42\r\n" proxyline>circuitid
- 2drop 4294967295 <> abort" ASDF" ;
-
- : proxyline-test2 ( -- )
- s\" PROXY TCP6 fc00:dead:beef:4dad::AABB:CCDD ::1 65535 42\r\n" proxyline>circuitid
- 2drop 2864434397 <> abort" ASDF" ;
-
- proxyline-test1
- proxyline-test2
|
