Skip to content
Snippets Groups Projects
Select Git revision
  • cmac-layout
  • master default
  • master-updates
  • wip-slh-dsa-sha2-128s
  • release-3.10-fixes
  • getopt-prototype
  • fix-bcrypt-warning
  • refactor-hmac
  • wip-use-alignas
  • trim-sha3-context
  • fix-gitlab-ci
  • check-fat-emulate
  • delete-digest_func-size
  • slh-dsa-shake-128f-nettle
  • slh-dsa-shake-128s-nettle
  • slh-dsa-shake-128s
  • delete-openpgp
  • ppc64-sha512
  • delete-md5-compat
  • cleanup-hmac-tests
  • ppc64-sha256
  • nettle_3.10.2_release_20250626
  • nettle_3.10.1_release_20241230
  • nettle_3.10_release_20240616
  • nettle_3.10rc2
  • nettle_3.10rc1
  • nettle_3.9.1_release_20230601
  • nettle_3.9_release_20230514
  • nettle_3.8.1_release_20220727
  • nettle_3.8_release_20220602
  • nettle_3.7.3_release_20210606
  • nettle_3.7.2_release_20210321
  • nettle_3.7.1_release_20210217
  • nettle_3.7_release_20210104
  • nettle_3.7rc1
  • nettle_3.6_release_20200429
  • nettle_3.6rc3
  • nettle_3.6rc2
  • nettle_3.6rc1
  • nettle_3.5.1_release_20190627
  • nettle_3.5_release_20190626
41 results

base16-encode.c

Blame
  • util.scm 972 B
    (define-module (util)
      :export (*unspecified* signum cross-product pi tau int)
      :replace (set!)
      :use-module (srfi srfi-1)
      )
    
    (define-public *unspecified* ((@ (guile) if) #f #f))
    
    (define-syntax set!
      (syntax-rules (=)
        ((_) *unspecified*)
    
        ((_ field = (op args ...) rest ...)
         (begin ((@ (guile) set!) field (op field args ...))
                (set! rest ...)))
    
        ((_ field proc)
         ((@ (guile) set!) field proc))
    
        ((_ field proc rest ...)
         (begin ((@ (guile) set!) field proc) (set! rest ...)))))
    
    (define (signum x)
      (cond ((zero? x) 0)
            ((positive? x) 1)
            (else -1)))
    
    (define-public sgn signum)
    
    (define (cross-product l1 l2)
      (concatenate
       (map (lambda (a)
              (map (lambda (b) (list a b))
                   l2))
            l1)))
    
    (define-public (decimals x)
      (- x (truncate x)))
    
    (define pi 3.141592653589793)
    (define tau (* 2 pi))
    
    (define int (compose inexact->exact truncate))
    
    (define-public (cot a)
      (/ (tan a)))