diff --git a/browser-evaluate.rkt b/browser-evaluate.rkt new file mode 100644 index 0000000..56e3f40 --- /dev/null +++ b/browser-evaluate.rkt @@ -0,0 +1,125 @@ +#lang racket/base + +(require net/sendurl + racket/list + web-server/servlet + web-server/servlet-env + "package.rkt") + +;; A hacky way to test the evaluation. + + +;; Channel's meant to serialize use of the web server. +(define ch (make-channel)) + + +;; start up the web server +;; The web server responds to two types of requests +;; ?p Inputting a program +;; ?r Getting a response +(void + (thread (lambda () + (define (start req) + (cond + [(exists-binding? 'p (request-bindings req)) + ;; Create a web page whose content contains + ;; the script. + (let ([program (channel-get ch)] + [op (open-output-bytes)]) + (fprintf op #< + + + + + +

Running program.

+ + +EOF + ) + (response/full 200 #"Okay" + (current-seconds) + TEXT/HTML-MIME-TYPE + empty + (list #"" (get-output-bytes op))))] + + + + [(exists-binding? 'r (request-bindings req)) + (channel-put ch (extract-binding/single 'r (request-bindings req))) + `(html (body (p "ok")))] + [else + `(html (body (p "Loaded")))])) + + (serve/servlet start + #:banner? #f + #:launch-browser? #f + #:quit? #f + #:port 8080 + #:servlet-path "/eval")))) + + +;; A little driver to test the evalution of expressions, using a browser to help. +(define (evaluate e) + ;; Send the program to the web browser, and wait for the thread to send back + (send-url "http://localhost:8080/eval?p=t" #f) + (channel-put ch e) + (channel-get ch)) \ No newline at end of file diff --git a/experiments/gauss/notes.txt b/experiments/gauss/notes.txt new file mode 100644 index 0000000..38870c4 --- /dev/null +++ b/experiments/gauss/notes.txt @@ -0,0 +1,3 @@ +Racket is about 20 times slower than C on gauss. + +My compiled output is about 60 times slower than a raw JavaScript loop. diff --git a/package.rkt b/package.rkt index a86f14f..f715ff1 100644 --- a/package.rkt +++ b/package.rkt @@ -6,6 +6,9 @@ "typed-parse.rkt" racket/runtime-path racket/port) + +(provide package) + ;; Packager: produce single .js files to be included. (define-runtime-path runtime.js "runtime.js") @@ -24,32 +27,3 @@ (fprintf op ";\n")) - -(define (test s-exp) - (package s-exp (current-output-port))) - - -(test '(define (factorial n) - (if (= n 0) - 1 - (* (factorial (- n 1)) - n)))) -#;(test '(begin - (define (factorial n) - (fact-iter n 1)) - (define (fact-iter n acc) - (if (= n 0) - acc - (fact-iter (- n 1) (* acc n)))))) - -#;(test '(define (gauss n) - (if (= n 0) - 0 - (+ (gauss (- n 1)) - n)))) - -#;(test '(define (fib n) - (if (< n 2) - 1 - (+ (fib (- n 1)) - (fib (- n 2)))))) \ No newline at end of file