OSCL/CLASH
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Modernize silly example somewhat.

Browse Source
This commit is contained in:
Pierre R. Mai
2016-09-15 11:51:37 +02:00
parent 1395705040
commit 531e905389
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
examples/silly-test.lisp
View File

@ -1,7 +1,10 @@
(cl:defpackage :TEST-CLASH (:USE :CL :CLASH))
(cl:in-package :TEST-CLASH)
(eval-when (:compile-toplevel :load-toplevel :execute) (enable-clash-syntax))
(defvar *my-server* (make-instance 'http-server/1.0))
(defparameter *my-server* (make-instance 'http-server/1.0))
(apply #'export-files *my-server* "image/jpeg" #u"/img/"
(let ((*default-pathname-defaults* (merge-pathnames #P"../doc/" *load-pathname*)))
(directory "*.jpg")))
(export-resource
*my-server* #u"/index.html"
'static-resource
@ -9,13 +12,15 @@
(make-instance 'string-entity
:body
(format nil
"<HTML>~
<HEAD><TITLE>Simple CLASH Test Page on ~A ~A</TITLE></HEAD>~
<BODY BGCOLOR='#eeeeff'>~
<H1>Test Page on ~2:*~A ~A</H1>~
<P>Hi!</P>~
</BODY>~
</HTML>"
"<!DOCTYPE html>~%~
<html>~
<head><title>Simple CLASH Test Page on ~A ~A</title></head>~
<body style='background-color: #000000; color: #ffffff'>~
<img src='img/logo2.jpg'/>~
<h1>Test Page on ~2:*~A ~A</h1>~
<p>Hi!</p>~
</body>~
</html>"
(lisp-implementation-type)
(lisp-implementation-version))))
(start-http-listener 3080 *my-server*)