Please enable JavaScript to use RhodeCode Enterprise
##// END OF EJS Templates
naryl
- Thu, 25 Jun 2020 16:11:27
Show More
INSTALL.md
0
created
644
+4
0
@@
-0,0
+1,4
b''
1
2
1. Install sbcl using your distribution's package manager, or download it from https://sbcl.org
3
2. Install quicklisp from https://quicklisp.org E.g. `wget https://beta.quicklisp.org/quicklisp.lisp && sbcl --load quicklisp.org` then follow instructions.
4
3. `make`
.hgignore
0
+3
-2
@@
-2,6
+2,7
b''
2
2
.qlot
3
3
.html
4
4
.png
5
.orig
5
6
tests
6
sugar-qsp
7
sugar-qsp.tar.xz
7
txt2web
8
txt2web.tar.xz
Makefile
0
+5
-12
@@
-11,12
+11,6
b' graphs: diagrams.png'
11
11
$(BIN) : *. asd src /*. lisp src /*. ps strings /*. sexp
12
12
sbcl --load build.lisp -- $( BIN )
13
13
14
install-deps :
15
sbcl --load install-deps.lisp
16
17
update-deps :
18
sbcl --load update-deps.lisp
19
20
14
%.png : %. dot
21
15
dot $< -T png -o $@
22
16
@@
-27,13
+21,12
b' upload: $(DIST)'
27
21
curl --upload-file $( DIST ) https://transfer.sh/ $( DIST )
28
22
@echo
29
23
30
distclean : clean clean - deps
31
32
24
clean :
33
25
rm -f $( BIN ) $( DIST )
34
26
35
clean-deps :
36
-rm qlfile.lock
37
-rm -rf .qlot
27
clean-cache :
28
-rm -rf ~/.cache/common-lisp
38
29
39
.PHONY : all graphs install - deps update - deps clean upload
30
fresh : clean clean - cache all
31
32
.PHONY : all graphs upload clean clean - cache fresh
build.lisp
0
+1
-7
@@
-1,10
+1,4
b''
1
( let (( root ( asdf:system-source-directory :txt2web )))
2
( asdf:initialize-source-registry
3
` ( :source-registry
4
:ignore-inherited-configuration
5
( :directory , root )
6
( :tree , ( format nil "~A~A" root ".qlot/dists" )))))
1
( ql:quickload :txt2web )
7
2
8
( asdf:load-system :txt2web )
9
3
( uiop:register-image-restore-hook 'txt2web::entry-point-no-args nil )
10
4
( uiop:dump-image "txt2web" :executable t )
src/api.ps
0
+3
-3
@@
-212,9
+212,9
b''
212
212
;;; "Syntax"
213
213
214
214
(defun qspfor (name index from to step body)
215
(for ((i from))
216
((< i to))
217
((incf i step))
215
(ps: for ((i from))
216
((< i to))
217
((incf i step))
218
218
(set-var name index :num i)
219
219
(unless (await (funcall body))
220
220
(return-from qspfor))))
src/main.lisp
0
+1
-1
@@
-96,7
+96,7
b''
96
96
( flute:h
97
97
( html
98
98
( head
99
( title "SugarQSP" ))
99
( title "txt2web " ))
100
100
( body
101
101
body-template
102
102
( style css )
install-deps.lisp
0
removed
0
-4
1
NO CONTENT: file was removed
qlfile
0
removed
0
-13
1
NO CONTENT: file was removed
qlfile.lock
0
removed
0
-52
1
NO CONTENT: file was removed
update-deps.lisp
0
removed
0
-4
1
NO CONTENT: file was removed
Site-wide shortcuts
/
Use quick search box
g h
Goto home page
g g
Goto my private gists page
g G
Goto my public gists page
g 0-9
Goto bookmarked items from 0-9
n r
New repository page
n g
New gist page
Repositories
g s
Goto summary page
g c
Goto changelog page
g f
Goto files page
g F
Goto files page with file search activated
g p
Goto pull requests page
g o
Goto repository settings
g O
Goto repository access permissions settings
t s
Toggle sidebar on some pages