enum sig-wrong
enum sig-ok
drop

: early/late? ( n64 min64 max64 -- sig-error )
    64>r 64over 64r> 64u>= sig-late and >r 64u< sig-early and r> min ;

: check-exact-date ( addr u -- addr u flag )
    2dup + 1- c@ keysize <> sig-keysize and ?dup-IF  EXIT  THEN
    2dup enddate@ 64>r 2dup startdate@ 64>r
    ticks 64r> 64r> early/late? ;
: check-date ( addr u -- addr u flag )
    2dup + 1- c@ keysize <> sig-keysize and ?dup-IF  EXIT  THEN
    2dup enddate@ 64>r 2dup startdate@ 64>r
    ticks fuzzedtime# 64+ 64r> 64r>
    64dup 64#-1 64<> IF  fuzzedtime# 64-2* 64+  THEN
    early/late?
    msg( dup IF  <err> ." sig out of date: " ticks .ticks ."  sigdate: "

    2swap 2 pick d#c, 2swap
    2over rot umin dup >r move r> /string ;
: d#id, ( addr u -- addr' u' )
    0 d#c, dht-hash $@ d#$, ;
: d#values, ( addr u mask -- addr' u' ) { mask }
    k#size cell/ 1 DO
	mask 1 and IF
	    dht-hash I cells + I
	    dht( ." access dht: " over hex. dup . forth:cr )
	    [{: k# :}l check-exact-date
		0= IF  k# d#c, d#$,  ELSE  2drop  THEN ;] $[]map
	THEN  mask 2/ to mask
    LOOP ;

:noname 64#-1 64dup to fs-limit to fs-size ;
dht-file-class to fs-open

:noname ( addr u -- n )  dup >r

: http-rec ( addr u -- )
    2dup "https://" string-prefix? >r
    2dup "http://" string-prefix? r> or IF
	over ?flush-text 2dup + to last->in
	[: $, msg-url ;] rectype-name
    ELSE  2drop rectype-null  THEN ;

forward hash-in

: jpeg? ( addr u -- flag )
    dup 4 - 0 max safe/string ".jpg" str= ;
: img-rec ( addr u -- )
    2dup "img:" string-prefix? IF
	over ?flush-text 2dup + to last->in
	2dup jpeg? IF
	    2dup >thumbnail
	    ?dup-IF  over >r hash-in r> free throw  THEN
	ELSE  #0.  THEN
	2swap slurp-file over >r hash-in r> free throw
	[: type dup IF  type img-orient 1- 0 max emit  ELSE  2drop  THEN ;] $tmp
	[: tuck $, >r msg:thumbnail# msg:image# r> $20 u> select ulit,
	    msg-object ;] rectype-name
    ELSE  2drop rectype-null  THEN ;

$Variable msg-recognizer
depth >r
' text-rec ' img-rec ' http-rec ' chain-rec ' tag-rec ' pk-rec
depth r> - msg-recognizer set-stack

: parse-text ( addr u -- ) last# >r  forth-recognizer >r
    0 to last->in
    msg-recognizer to forth-recognizer 2dup evaluate
    last->in IF  + last->in tuck -  THEN  dup IF
	\ ." text: '" forth:type ''' forth:emit forth:cr
	$, msg-text

require keccak.fs
require threefish.fs
keccak-o crypto-o !
require rng.fs
require ed25519-donna.fs
require hash-table.fs
require bdelta.fs
require minos2/jpeg-exif.fs

\ random initializer for hash

: hash-init-rng ( -- )  $10 rng$ hashinit swap move ;

hash-init-rng