picolisp

commit 564cb1c6c7ed6bbbc2f6de6d82872857471a19b6
parent b4d63b2e58aca351901a208688f4fce20c93302e
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat, 14 May 2011 13:22:20 +0200

Obsolete favicon.ico
Diffstat:
M
app/main.l
 | 
4
++--
M
doc/app.html
 | 
9
++++-----
M
doc/refA.html
 | 
10
+++++-----
D
favicon.ico
 | 
0

M
misc/calc.l
 | 
4
++--
M
test/lib/misc.l
 | 
8
++++----

6 files changed, 17 insertions(+), 18 deletions(-)
diff --git a/app/main.l b/app/main.l
@@ -1,8 +1,8 @@
-# 06may11abu
+# 14may11abu
 # (c) Software Lab. Alexander Burger
 
 (allowed ("app/" "@img/")
-   "!start" "!stop" "favicon.ico" "@lib.css" "!psh" )
+   "!start" "!stop" "@lib.css" "!psh" )
 
 (load "@lib/http.l" "@lib/xhtml.l" "@lib/form.l" "@lib/ps.l" "@lib/adm.l")
 
diff --git a/doc/app.html b/doc/app.html
@@ -263,13 +263,12 @@ href="refA.html#allow">allow</a></code> functions
 
 <pre><code>
 (allowed ("img/")
-   "favicon.ico" "@lib.css"
-   "!start" "customer.l" "article.l")
+   "!start" "@lib.css" "customer.l" "article.l" )
 </code></pre>
 
 <p>This is usually called in the beginning of an application, and allows access
-to the directory "img/", to the function 'start', and to the files
-"favicon.ico", "@lib.css", "customer.l" and "article.l".
+to the directory "img/", to the function 'start', and to the files "@lib.css",
+"customer.l" and "article.l".
 
 <p>Later in the program, <code>*Allow</code> may be dynamically extended with
 <code>allow</code>
@@ -1123,7 +1122,7 @@ needed once the calculator is running.
 recommended by the <a href="#security">Security</a> chapter)
 
 <pre><code>
-(allowed NIL "!calculator" "favicon.ico" "@lib.css")
+(allowed NIL "!calculator" "@lib.css")
 </code></pre>
 
 <p>at the beginning of "misc/calc.l". This will restrict external access to that
diff --git a/doc/refA.html b/doc/refA.html
@@ -49,7 +49,7 @@ href="refP.html#pre?">pre?</a></code>.
 
 <pre><code>
 : (allowed ("app/" "img/")  # Initialize
-   "!start" "!stop" "favicon.ico" "lib.css" "!psh" )
+   "!start" "!stop" "lib.css" "!psh" )
 -> NIL
 : (allow "!myFoo")  # additional item
 -> "!myFoo"
@@ -57,10 +57,10 @@ href="refP.html#pre?">pre?</a></code>.
 -> "myDir/"
 
 : *Allow
--> (("!stop" ("!psh" ("!myFoo") "!start") "favicon.ico" NIL "lib.css") "app/" "img/" "myDir/")
+-> (("!start" ("!psh" ("!myFoo")) "!stop" NIL "lib.css") "app/" "img/" "myDir/")
 
 : (idx *Allow)  # items
--> ("!myFoo" "!psh" "!start" "!stop" "favicon.ico" "lib.css")
+-> ("!myFoo" "!psh" "!start" "!stop" "lib.css")
 : (cdr *Allow)  # prefixes
 -> ("app/" "img/" "myDir/")
 </code></pre>
@@ -241,7 +241,7 @@ href="refA.html#allowed">allowed</a></code>.
 
 <pre><code>
 : *Allow
--> (("!stop" ("!psh" NIL "!start") "favicon.ico" NIL "lib.css") "app/" "img/")
+-> (("!start" ("!psh") "!stop" NIL "lib.css") "app/" "img/")
 : (allow "!myFoo")  # additionally allowed item
 -> "!myFoo"
 : (allow "myDir/" T)  # additionally allowed prefix
@@ -258,7 +258,7 @@ href="refA.html#allow">allow</a></code>.
 
 <pre><code>
 : (allowed ("app/" "img/")  # allowed prefixes
-   "!start" "!stop" "favicon.ico" "lib.css" "!psh" )  # allowed items
+   "!start" "!stop" "lib.css" "!psh" )  # allowed items
 -> NIL
 </code></pre>
 
diff --git a/favicon.ico b/favicon.ico
Binary files differ.
diff --git a/misc/calc.l b/misc/calc.l
@@ -1,9 +1,9 @@
-# 09may11abu
+# 14may11abu
 # (c) Software Lab. Alexander Burger
 
 # *Init *Accu *Stack
 
-(allowed NIL "!calculator" "favicon.ico" "@lib.css")
+(allowed NIL "!calculator" "@lib.css")
 (load "@lib/http.l" "@lib/xhtml.l" "@lib/form.l")
 
 # Calculator logic
diff --git a/test/lib/misc.l b/test/lib/misc.l
@@ -1,4 +1,4 @@
-# 10jan11abu
+# 14may11abu
 # (c) Software Lab. Alexander Burger
 
 ### locale ###
@@ -92,14 +92,14 @@
 
 ### *Allow allowed allow ###
 (allowed ("app/" "img/")
-   "start" "stop" "favicon.ico" "lib.css" "psh" )
+   "start" "stop" "lib.css" "psh" )
 (allow "myFoo")
 (allow "myDir/" T)
 
-(test '(("psh" ("favicon.ico" NIL "lib.css" NIL "myFoo") "start" NIL "stop") "app/" "img/" "myDir/")
+(test '(("psh" ("lib.css" NIL "myFoo") "start" NIL "stop") "app/" "img/" "myDir/")
    *Allow )
 
-(test '("favicon.ico" "lib.css" "myFoo" "psh" "start" "stop")
+(test '("lib.css" "myFoo" "psh" "start" "stop")
    (idx *Allow) )
 
 (test '("app/" "img/" "myDir/")