File: xxhash.l

package info (click to toggle)
picolisp 26.3-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 7,376 kB
  • sloc: ansic: 3,127; javascript: 1,004; makefile: 108; sh: 2
file content (12 lines) | stat: -rw-r--r-- 393 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
 
# 02nov25 Software Lab. Alexander Burger

(default *Xxh64
   (native "libxxhash.so" "XXH64_createState" 'P) )

(de xxh64 (File)
   (native "libxxhash.so" "XXH64_reset" 'I *Xxh64 0)
   (buf Buf 32768
      (in File
         (while (gt0 (%@ "read" 'I (fd) Buf 32768))
            (native "libxxhash.so" "XXH64_update" 'I *Xxh64 Buf @) ) ) )
   (native "libxxhash.so" "XXH64_digest" 'N *Xxh64) )