Permalink
Browse files

Removed svn cruft.

  • Loading branch information...
1 parent 1b1b81b commit 07b7605a1e40f79288dbf295418116cc6666544c @wiseman committed May 28, 2009
View
@@ -1,2 +0,0 @@
-This is a Subversion working copy administrative directory.
-Visit http://subversion.tigris.org/ for more information.
View
No changes.
View
@@ -1,49 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<wc-entries
- xmlns="svn:">
-<entry
- committed-rev="19"
- name=""
- committed-date="2004-11-22T00:22:28.000000Z"
- url="svn+ssh://wiseman@heavymeta.org/usr/local/svn-repos/lsp/trunk/lsp/examples"
- last-author="wiseman"
- kind="dir"
- uuid="9353d62f-e9f8-0310-a880-dd480dc0a525"
- revision="22"/>
-<entry
- committed-rev="19"
- name="example-araneida.lisp"
- text-time="2005-06-07T00:56:13.000000Z"
- committed-date="2004-11-22T00:22:28.000000Z"
- checksum="ea5df52c629f16b80fa46adb42277953"
- last-author="wiseman"
- kind="file"
- prop-time="2005-06-07T00:56:13.000000Z"/>
-<entry
- committed-rev="15"
- name="example-aserve.lisp"
- text-time="2005-06-07T00:56:13.000000Z"
- committed-date="2004-11-16T08:22:14.000000Z"
- checksum="5b086dedd8fe1428027666e307e286bc"
- last-author="wiseman"
- kind="file"
- prop-time="2005-06-07T00:56:13.000000Z"/>
-<entry
- committed-rev="17"
- name="example-araneida.lsp"
- text-time="2005-06-07T00:56:13.000000Z"
- committed-date="2004-11-21T23:17:43.000000Z"
- checksum="6511a4f9f11d48830d06f5b61619aed3"
- last-author="wiseman"
- kind="file"
- prop-time="2005-06-07T00:56:13.000000Z"/>
-<entry
- committed-rev="17"
- name="example-aserve.lsp"
- text-time="2005-06-07T00:56:13.000000Z"
- committed-date="2004-11-21T23:17:43.000000Z"
- checksum="4bf0b9ae62e8cca2f233fc9d77067439"
- last-author="wiseman"
- kind="file"
- prop-time="2005-06-07T00:56:13.000000Z"/>
-</wc-entries>
View
@@ -1 +0,0 @@
-4
@@ -1,5 +0,0 @@
-K 15
-cvs2svn:cvs-rev
-V 3
-1.4
-END
@@ -1,5 +0,0 @@
-K 15
-cvs2svn:cvs-rev
-V 3
-1.2
-END
@@ -1,5 +0,0 @@
-K 15
-cvs2svn:cvs-rev
-V 3
-1.4
-END
@@ -1,5 +0,0 @@
-K 15
-cvs2svn:cvs-rev
-V 3
-1.2
-END
@@ -1,5 +0,0 @@
-K 15
-cvs2svn:cvs-rev
-V 3
-1.4
-END
@@ -1,5 +0,0 @@
-K 15
-cvs2svn:cvs-rev
-V 3
-1.2
-END
@@ -1,5 +0,0 @@
-K 15
-cvs2svn:cvs-rev
-V 3
-1.4
-END
@@ -1,5 +0,0 @@
-K 15
-cvs2svn:cvs-rev
-V 3
-1.2
-END
@@ -1,25 +0,0 @@
-(defpackage :example-webapp
- (:use #:common-lisp #:com.lemonodor.lsp))
-
-
-;; Create a new HTTP listener, using threads if we have them,
-;; serve-event otherwise.
-
-(defparameter *listener*
- (make-instance #+araneida-threads 'araneida:threaded-http-listener
- #-araneida-threads 'araneida:serve-event-http-listener
- :port 8000))
-
-
-;; Publish an LSP file at http://localhost:8000/example.lsp
-
-(com.lemonodor.lsp:publish-lsp
- :file (merge-pathnames "example-araneida.lsp"
- *load-pathname*)
- :path "http://localhost:8000/example.lsp"
- :package :example-webapp
- :server *listener*)
-
-
-;; Start the HTTP server.
-(araneida:start-listening *listener*)
@@ -1,43 +0,0 @@
-<html>
-<head>
-<title>LSP Example (Araneida)</title>
-</head>
-<body>
-
-<h1>LSP Example</h1>
-
-<h2>User Agent</h2>
-<%
- (araneida:html-stream (araneida:request-stream request)
- (or (araneida:request-header request :user-agent)
- "None."))
-%>
-
-<h2>Referrer</h2>
-<%
- (araneida:html-stream (araneida:request-stream request)
- (or (araneida:request-header request :referer)
- "None."))
-%>
-
-<h2>Query Variables</h2>
-<table>
-<%
-(let ((queries (araneida:url-query-alist (araneida:request-url request))))
- (if (null queries)
- (araneida:html-stream (araneida:request-stream request)
- `(tr (td "None.")))
- (dolist (query queries)
- (araneida:html-stream (araneida:request-stream request)
- `(tr (td ,(car query))
- (td ,(cdr query)))))))
-%>
-</table>
-
-<h2>Loop Of Dynamism</h2>
-
-<% (dotimes (i (+ (random 10) 1)) %>
- Hi!<br>
-<% ) %>
-</body>
-</html>
@@ -1,16 +0,0 @@
-(defpackage :example-webapp
- (:use #:common-lisp #:com.lemonodor.lsp #:net.aserve #:net.html.generator))
-
-
-;; Start an HTTP server.
-
-(net.aserve:start :port 8000)
-
-
-;; Publish the LSP file at http://localhost:8000/example.lsp
-
-(com.lemonodor.lsp:publish-lsp
- :file (merge-pathnames #p"example-aserve.lsp"
- *load-pathname*)
- :path "/example.lsp"
- :package :example-webapp)
@@ -1,41 +0,0 @@
-<html>
-<head>
-<title>LSP Example (AllegroServe)</title>
-</head>
-<body>
-<h1>LSP Example</h1>
-
-<h2>User Agent</h2>
-<%=
- (:princ-safe (or (net.aserve:header-slot-value request
- :user-agent)
- "None."))
-%>
-
-<h2>Referrer</h2>
-<%=
- (:princ-safe (or (net.aserve:header-slot-value request
- :referer)
- "None."))
-%>
-
-<h2>Query Variables</h2>
-<table>
-<%
-(let ((queries (request-query request)))
- (if (null queries)
- (html (:tr (:td "None.")))
- (dolist (query queries)
- (html
- (:tr (:td (:princ-safe (car query)))
- (:td (:princ-safe (cdr query))))))))
-%>
-</table>
-
-<h2>Loop Of Dynamism</h2>
-
-<% (dotimes (i (+ (random 10) 1)) %>
- Hi!<br>
-<% ) %>
-</body>
-</html>

0 comments on commit 07b7605

Please sign in to comment.