Adding presentation materials

Author: luisquintanilla

Reactor022021-Racket-Web-Services/code/.dockerignore

@@ -0,0 +1 @@
+hello-world*

Reactor022021-Racket-Web-Services/code/.gitignore

@@ -0,0 +1 @@
+*.bak

Reactor022021-Racket-Web-Services/code/full.Dockerfile

@@ -0,0 +1,8 @@
+# 1. Build Stage
+#https://hub.docker.com/r/racket/racket-ci
+FROM racket/racket:8.0-full AS builder
+WORKDIR /app
+COPY . /app
+RUN raco exe server.rkt
+ENV "FUNCTIONS_HTTPWORKER_PORT" 7071
+ENTRYPOINT [ "./server" ]

Reactor022021-Racket-Web-Services/code/hello-world-blog.rkt

@@ -0,0 +1,40 @@
+#lang web-server/insta
+ 
+; A blog is a (listof post)
+; and a post is a (post title body)
+(struct post (title body))
+ 
+; BLOG: blog
+; The static blog.
+(define BLOG
+  (list (post "Second Post" "This is another post")
+        (post "First Post" "This is my first post")))
+ 
+; start: request -> response
+; Consumes a request, and produces a page that displays all of the
+; web content.
+(define (start request)
+  (render-blog-page BLOG request))
+ 
+; render-blog-page: blog request -> response
+; Consumes a blog and a request, and produces an HTML page
+; of the content of the blog.
+(define (render-blog-page a-blog request)
+  (response/xexpr
+   `(html (head (title "My Blog"))
+          (body (h1 "My Blog")
+                ,(render-posts a-blog)))))
+ 
+; render-post: post -> xexpr
+; Consumes a post, produces an xexpr fragment of the post.
+(define (render-post a-post)
+  `(div ((class "post"))
+        ,(post-title a-post)
+        (p ,(post-body a-post))))
+ 
+; render-posts: blog -> xexpr
+; Consumes a blog, produces an xexpr fragment
+; of all its posts.
+(define (render-posts a-blog)
+  `(div ((class "posts"))
+        ,@(map render-post a-blog)))

Reactor022021-Racket-Web-Services/code/hello-world-server.rkt

@@ -0,0 +1,7 @@
+#lang web-server/insta
+
+(define (start request)
+  (response/xexpr
+   '(html
+     (head (title "My Blog"))
+     (body (h1 "Under construction")))))

Reactor022021-Racket-Web-Services/code/hello-world.rkt

@@ -0,0 +1,81 @@
+#lang racket
+
+;;; This is a comment
+
+
+;;; Literals
+(println "Literals")
+
+1
+"Hello World"
+
+;;; Assign / Store values
+
+(printf "~n")
+(println "Assign / Store Values")
+(define x 3)
+(println x)
+(printf "The values of x is ~v ~n" x)
+
+;;; Operations
+
+(printf "~n")
+(println "Operations")
+(+ 1 1)
+(/ 8 2)
+(+ x 2)
+
+(define four
+  (+ 3 1))
+
+;;; Functions
+(printf "~n")
+(println "Functions")
+
+;;; Define function
+(define (double n)
+  (* n 2))
+
+;;; Call function
+(double 3)
+
+;;;Define function
+(define (make-animal-sound animal sound)
+  (printf "The ~a says ~a ~n" animal sound))
+
+;;; Partially apply function
+(define dog (curry make-animal-sound "dog"))
+(define cat (curry make-animal-sound "cat"))
+
+;;; Partially apply
+(dog "woof")
+(cat "meow")
+
+;;; Collections
+(printf "~n")
+(println "Collections")
+
+;;; Pairs
+(cons 1 2) ;;; Pairs
+(define myPair '(1 2))
+(car myPair)
+(cdr myPair)
+
+;;; List
+'(1 2 3 4)
+(define list1 (list 1 2 3 4))
+
+;;; List operations
+(length list1)
+(map double list1)
+(filter
+ (lambda (n)
+   (= 0 (modulo n 2)))
+ list1)
+
+;;; Structs
+(printf "~n")
+(println "Structs")
+(struct point (x y))
+(define myPoint (point 1 2))
+(printf "x: ~a, y: ~a ~n" (point-x myPoint) (point-y myPoint))

Reactor022021-Racket-Web-Services/code/host.json

@@ -0,0 +1,8 @@
+{
+    "version": "2.0",
+    "httpWorker": {
+        "description": {
+            "defaultExecutablePath": "server.exe"
+        }
+    }
+  }

Reactor022021-Racket-Web-Services/code/lite.Dockerfile

@@ -0,0 +1,14 @@
+# 1. Build Stage
+#https://hub.docker.com/r/racket/racket-ci
+FROM racket/racket:8.0-full AS builder
+WORKDIR /app
+COPY . /app
+RUN raco exe server.rkt
+
+
+# 2. Deployment
+FROM racket/racket:8.0
+WORKDIR /home
+COPY --from=builder /app/server .
+ENV "FUNCTIONS_HTTPWORKER_PORT" 7071
+ENTRYPOINT [ "./server" ]

Reactor022021-Racket-Web-Services/code/server.exe

@@ -0,0 +1,49 @@
+#lang racket
+(require json)
+(require web-server/servlet)
+(require web-server/servlet-env)
+
+;;; Define utility functions
+
+;;; Convert raw request body to jsexrp
+(define (parse-json-body req)
+    (bytes->jsexpr (request-post-data/raw req)))
+
+;;; Function to get value from hash given a key
+(define (get-hash-value h v)
+    (hash-ref h v))
+
+;;; Define PORT
+(define PORT (string->number (getenv "FUNCTIONS_HTTPWORKER_PORT")))
+
+;;; Define handlers
+(define (get-values req)
+    (response/jsexpr 
+            (hasheq 
+                'values '(1 2 3))))
+
+(define (post-values req)
+    (define get-property 
+        (curry get-hash-value (parse-json-body req)))
+
+    (define x (string->number (get-property 'x)))
+    (define y (string->number (get-property 'y)))
+    
+    (response/jsexpr
+        (hasheq 'sum (+ x y))))
+
+;;; Define router
+(define-values (dispatch req)
+    (dispatch-rules
+        [("values") #:method "get" get-values]
+        [("values") #:method "post" post-values]
+        [else (error "Route does not exist")]))
+
+;; Define and start server
+(serve/servlet
+    (lambda (req) (dispatch req))
+    #:launch-browser? #f
+    #:quit? #f
+    #:port PORT
+    #:servlet-path "/"
+    #:servlet-regexp #rx"")

Reactor022021-Racket-Web-Services/code/server.rkt

@@ -0,0 +1,15 @@
+{
+    "bindings": [
+      {
+        "type": "httpTrigger",
+        "direction": "in",
+        "name": "req",
+        "methods": ["get","post"]
+      },
+      {
+        "type": "http",
+        "direction": "out",
+        "name": "res"
+      }
+    ]
+}