add src/wsgi.tcl

src/wsgi.tcl

@@ -0,0 +1,74 @@
+
+#------------------------------------------------------------#
+# Client/Framework                                           #
+#------------------------------------------------------------#
+proc application {environ reponse} {
+  set status "200 OK"
+  dict set headers "Content-Type" "text/plain"
+
+  $response $status $headers
+
+  return "Hello World!"
+}
+
+
+#------------------------------------------------------------#
+# Server/Gateway                                             #
+#------------------------------------------------------------#
+
+namespace eval wsgi {
+
+  proc run {application} {
+    set environ [array get ::env]
+
+    dict set environ "wsgi.input"        stdin
+    dict set environ "wsgi.erros"        stderr
+    dict set environ "wsgi.version"      [list 1 0]
+    dict set environ "wsgi.multithread"  0
+    dict set environ "wsgi.multiprocess" 1
+    dict set environ "wsgi.run_once"     1
+
+    dict set environ "wsgi.url_scheme"   "http"
+
+    dict set environ REQUEST_METHOD   ""
+    dict set environ SCRIPT_NAME      ""
+    dict set environ PATH_INFO        ""
+    dict set environ QUERY_STRING     ""
+    dict set environ CONTENT_TYPE     ""
+    dict set environ CONTENT_LENGTH   ""
+    dict set environ SERVER_NAME      ""
+    dict set environ SERVER_PORT      ""
+    dict set environ SERVER_PROTOCOL  "HTTP/1.1"
+    dict set environ HTTP_*           ""
+
+    set result [$application $environ [namespace current]::response] 
+
+    foreach data $result {
+      write $data
+    }
+  }
+
+  proc send_header {status headers} {
+    puts "Status: $status"
+    dict for {name value} $headers {
+      puts "$name:  $value"
+    }
+    puts ""
+    fconfigure stdout -encoding binary -translation binary
+  }
+
+  proc write {data} {
+    puts -nonewline $data
+    flush
+  }
+
+  proc response {status headers} {
+    send_header $status $headers  
+  }
+}
+
+#------------------------------------------------------------#
+# Middleware                                                 #
+#------------------------------------------------------------#
+
+TODO