~edwargix/tallyard

5a618bc5d22b5c5b587f8723e62caea602de4ff0 — David Florness 5 years ago 06ed953
Officially rename project to "tallyard"
3 files changed, 10 insertions(+), 10 deletions(-)

M info.rkt
M main.rkt
R scribblings/{vohea.scrbl => tallyard.scrbl}
M info.rkt => info.rkt +2 -2
@@ 1,8 1,8 @@
#lang info
(define collection "vohea")
(define collection "tallyard")
(define deps '("base" "crypto"))
(define build-deps '("scribble-lib" "racket-doc" "rackunit-lib"))
(define scribblings '(("scribblings/vohea.scrbl" ())))
(define scribblings '(("scribblings/tallyard.scrbl" ())))
(define pkg-desc "Description Here")
(define version "0.0")
(define pkg-authors '(edwargix))

M main.rkt => main.rkt +5 -5
@@ 6,11 6,11 @@
(require math/number-theory)
(require "crypto.rkt")

(define/contract (vohea-url path)
(define/contract (tallyard-url path)
  (-> string? url?)
  (string->url (string-append "http://localhost:5598" path)))

(define candidates (read-json (get-pure-port (vohea-url "/candidates"))))
(define candidates (read-json (get-pure-port (tallyard-url "/candidates"))))

(define/contract (displayln-und s)
  (-> string? void?)


@@ 32,7 32,7 @@
(display "Your ranking: ")
(define ranking (string-split (read-line)))

(define n (bytes->integer (port->bytes (get-pure-port (vohea-url "/key"))) #f))
(define n (bytes->integer (port->bytes (get-pure-port (tallyard-url "/key"))) #f))

(define m (bytes->integer (string->bytes/utf-8 (string-join ranking ":")) #f))



@@ 50,7 50,7 @@
(displayln "asking for blinded signature...")

(define S (bytes->integer
           (port->bytes (post-pure-port (vohea-url "/sign")
           (port->bytes (post-pure-port (tallyard-url "/sign")
                                        (integer->bytes M (/ keylen 8) #f)))
           #f))



@@ 62,7 62,7 @@

(define result (bytes->string/utf-8
                (port->bytes
                 (post-pure-port (vohea-url "/vote")
                 (post-pure-port (tallyard-url "/vote")
                                 (bytes-append (integer->bytes m (/ keylen 8) #f)
                                               (integer->bytes s (/ keylen 8) #f)
                                               )))))

R scribblings/vohea.scrbl => scribblings/tallyard.scrbl +3 -3
@@ 1,10 1,10 @@
#lang scribble/manual
@require[@for-label[vohea
@require[@for-label[tallyard
                    racket/base]]

@title{vohea}
@title{tallyard}
@author{edwargix}

@defmodule[vohea]
@defmodule[tallyard]

Package Description Here