datarootdir = @datarootdir@
datadir   = $(package)@datadir@
srcdir    = @srcdir@
bindir    = $(package)@bindir@
libdir = $(package)@libdir@
LIBCCDEST = $(libdir)/gforth/$(GFVER)/$(machine)/libcc-named
libccdir = $(subst $(package),,$(LIBCCDEST))
LIBS 	 = keccakp threefish ed25519-donna bdelta
MKDIR	 = mkdir
RMDIR	 = rm -rf
GCC	 = gcc
LIBTOOL	 = @GNU_LIBTOOL@
CFLAGS	 = -O3 -fomit-frame-pointer
HOST     = 
FAST     = @FAST@

 others will follow.
 .
 This package is optional and contains the tests.

Package: @PACKAGE_NAME@-libcc
Version: @PACKAGE_VERSION@
Architecture: any
Depends: gforth (>= @GFDEBVER@), keccakp, threefish, ed25519-prim, bdelta
Description: @PACKAGE_NAME@ protocol stack
 net2o reinvents the Internet.  Applications include file copy, chat, DHT;
 others will follow.
 .
 These are the architectural dependent C bindings

require rec-scope.fs
require unix/cpu.fs

fast-lib [IF]
    require keccakfast.fs false
[ELSE]
    [IFDEF] android
	s" libkeccakp.so" c-lib:open-path-lib drop
    [THEN] true
[THEN]
[IF]
    c-library keccak
	s" keccakp" add-lib
	include keccaklib.fs
    end-c-library
[THEN]

[IFUNDEF] crypto bye [THEN] \ stop here if libcompile only

25 8 * Constant keccak#

\ GNU Affero General Public License for more details.

\ You should have received a copy of the GNU Affero General Public License
\ along with this program.  If not, see <http://www.gnu.org/licenses/>.

require rec-scope.fs
[IFDEF] android
    s" libkeccakpfast.so" c-lib:open-path-lib drop
[THEN]

c-library keccakfast
    s" keccakpfast" add-lib
    include keccaklib.fs
end-c-library

# Automake file for keccak primitives

## Place generated object files (.o) into the same directory as their source
## files, in order to avoid collisions when non-recursive make is used.
AUTOMAKE_OPTIONS = subdir-objects

## Additional flags to pass to aclocal when it is invoked automatically at
## make time. The ${ACLOCAL_FLAGS} variable is picked up from the environment
## to provide a way for the user to supply additional arguments.
ACLOCAL_AMFLAGS = ${ACLOCAL_FLAGS} -I m4

## Set the default command-line flags for the C preprocessor to the value
## obtained from pkg-config via PKG_CHECK_MODULES in configure.ac.  These
## flags are passed to the compiler for both C and C++, in addition to the
## language-specific options.
AM_CPPFLAGS = $(EXAMPLE_CFLAGS)

lib_LTLIBRARIES = libkeccakp.la
if FAST
lib_LTLIBRARIES += libkeccakpfast.la
if ASM
libkeccakpfast_la_SOURCES = KeccakF-1600-@as@.s KeccakF-1600-@plattform@.c
else
libkeccakpfast_la_SOURCES = KeccakF-1600-@ws@.c
endif
libkeccakp_la_SOURCES = KeccakF-1600-@ws@.c
else
if ASM
libkeccakp_la_SOURCES = KeccakF-1600-@as@.s KeccakF-1600-@plattform@.c
else
libkeccakp_la_SOURCES = KeccakF-1600-@ws@.c
endif
endif
include_HEADERS = KeccakF-1600.h
libkeccakp_la_LIBADD = 
libkeccakp_la_LDFLAGS = -version-info ${VERSION} -no-undefined
libkeccakp_la_CFLAGS = @flags@
libkeccakp_la_CCASFLAGS = @asmflags@
libkeccakpfast_la_LIBADD = 
libkeccakpfast_la_CFLAGS = @fastflags@
libkeccakpfast_la_CCASFLAGS = @fastasmflags@
libkeccakpfast_la_LDFLAGS = -version-info ${VERSION} -no-undefined

install-exec-hook:
	-/sbin/ldconfig $(libdir)

## keccac Autoconf

AC_INIT([keccakp], [3:4], [bernd@net2o.de], [keccak primitives],
        [http://keccak.noekeon.org/])
AC_PREREQ([2.59])
AM_INIT_AUTOMAKE([1.10 -Wall no-define])
AC_CONFIG_MACRO_DIR([m4])
AC_CONFIG_HEADERS([config.h])

CFLAGS=${CFLAGS--O3}

keccakp (3.4) stable; urgency=low

  * Initial Release

 -- Bernd Paysan <bernd@net2o.de>  Fri, 08 Jan 2016 00:15:15 +0100

Source: keccakp
Section: programming
Priority: optional
Maintainer: Bernd Paysan <bernd@net2o.de>
Build-Depends: debhelper, build-essential, gcc, autoconf, automake, libtool, libtool-bin, libc

Package: keccakp
Version: 3.2
Architecture: any
Depends: ${shlibs:Depends}
Multi-Arch: same
Description: Keccak Primitives
 Keccak is the crypto primitive for SHA-3, but also can be used for
 authenticated en- and decryption (AEAD).

event: :>hash-finished { d: hash -- }
    hash fetch-finish# #@ IF
	@ >r hash r@ execute r> >addr free throw
	last# bucket-off
    ELSE  drop  THEN
    hash >ihave  hash drop free throw ;

: fetch-queue 0 .pk.host $make { tsk w^ want# w^ pk$ -- }
    want# tsk pk$ [{: tsk pk$ :}l { item }
	item $@ $8 $E pk-connect? IF  +resend +flow-control
	    { | hashs }
	    item cell+ $@ bounds U+DO
		net2o-code expect+slurp $10 blocksize! $A blockalign!
		I' I U+DO
		    I keysize ihave# $@ dup IF
			0 -rot bounds U+DO
			    I $@ pk$ $@ str= or
			cell +LOOP
		    ELSE  2drop true  THEN
		    IF
			I keysize net2o:copy#
			I keysize save-mem tsk [{: d: hash tsk :}h
			    <event hash e$, :>hash-finished tsk event> ;]
			lastfile@ >o to file-xt o>
			1 +to hashs
		    THEN
		    hashs $10 u>= ?LEAVE
		keysize +LOOP
		end-code| net2o:close-all
	    keysize hashs *  0 to hashs  +LOOP
	    disconnect-me
	THEN ;] #map
    want# #frees
    pk$ $free ;

event: :>fetch-queue fetch-queue ;

: transmit-queue ( queue -- )
    { w^ queue[] | w^ want# }
    queue[] want# [{: want# :}l 2dup ihave# #@ dup IF
	    bounds U+DO
		2dup I $@ want# #+!
	    cell +LOOP  2drop
	ELSE  2drop 2drop  THEN ;] $[]map
    queue[] $[]free
    <event up@ elit, want# @ elit, :>fetch-queue ?query-task event> ;

Variable queue?
event: :>queued ( queue -- )
    [: 0 fetch-queue[] !@ queue? off ;] resize-sema c-section

' context-table is gen-table

also }scope

\ serialize hashes

: msg-serialize-hash ( -- )
    0 .pk.host $make { w^ pk$ | w^ want# }
    ?hashs[] want# pk$ [{: want# pk$ :}l
	2dup need-hashed? 0= IF
	    pk$ $@ 2over ihave# #!ins[]
	    2dup pk$ $@ want# #+!
	THEN
	2dup ihave# #@ dup IF
	    bounds U+DO
		2dup I $@ want# #+!
	    cell +LOOP
	ELSE  2drop  THEN
	2drop





    ;] $[]map
    want# [:
	msg( dup $@ .@host.id ." : " dup cell+ $@ 85type forth:cr )
	dup cell+ $@ $, $@ $, msg-ihave ;] #map
    ?hashs[] $[]free
    want# #frees
    pk$ $free ;

msging-table $save

: msg-reply ( tag -- )
    ." got reply " hex. pubkey $@ key>nick forth:type forth:cr ;
: expect-msg ( o:connection -- )
    reply( ['] msg-reply )else( ['] drop ) expect-reply-xt +chat-control ;