Skip to content

Instantly share code, notes, and snippets.

@DTSCode

DTSCode/racketball.rkt

Last active August 29, 2015 14:18
Show Gist options
  • Save DTSCode/9952b3b975672926003a to your computer and use it in GitHub Desktop.
Save DTSCode/9952b3b975672926003a to your computer and use it in GitHub Desktop.
Download ZIP
Racketball - A webserver written in racket
Raw
racketball.rkt
#lang racket
(define (serve port-no)
(define listener
(tcp-listen port-no 5 #t))
(define (loop)
(accept-and-handle listener)
(loop))
(loop))
(define (accept-and-handle listener)
(define-values (in out) (tcp-accept listener))
(handle in out)
(close-input-port in)
(close-output-port out))
(define (handle in out)
(regexp-match #rx"(\r\n|^)\r\n" in)
(display "HTTP/1.0 200 Okay\r\n" out)
(display "Server: k\r\nContent-Type: text/html\r\n\r\n" out)
(display "<html><body>Hello, world!</body></html>" out))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment