forked from vygr/ChrysaLisp
-
Notifications
You must be signed in to change notification settings - Fork 0
/
install.lisp
32 lines (32 loc) · 880 Bytes
/
install.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
(import "sys/lisp.inc")
(import "lib/task/pipe.inc")
(print)
(print "ChrysaLisp Installer v0.1")
(print "Building platform native boot image.")
(print "Please wait...")
(print)
(while (< (length (mail-nodes)) 8) (task-sleep 100000))
(pipe-run "make all boot | time" (lambda (_)
(while (> (length _) 0)
(cond
((> (length _) 80)
(prin (slice 0 80 _))
(setq _ (slice 80 -1 _)))
(:t (prin _)
(setq _ "")))
(stream-flush (io-stream "stdout")))))
(print)
(print "Install complete.")
(print)
(print "If on MacOS or Linux you may now run:")
(print "TUI with './run_tui.sh'")
(print "GUI with './run.sh'")
(print "stop the network with './stop.sh'")
(print)
(print "If on Windows you may now run:")
(print "TUI with './run_tui.bat'")
(print "GUI with './run.bat'")
(print "stop the network with './stop.bat'")
(print)
(print "Please press CNTRL-C to exit!")
(print)