chaos baby

Makefile

@@ -10,7 +10,7 @@ ls9:	ls9.c
 ls9.image:	ls9 ls9.ls9
 	rm -f ls9.image
 	echo "(dump-image \"ls9.image\")" | ./ls9 -q
-	echo "(save)" | ./ls9 -l src/help.ls9 -l src/disasm.ls9 -l src/grind.ls9 -l src/repl.ls9
+	echo "(save)" | ./ls9 -l src/help.ls9 -l src/disasm.ls9 -l src/grind.ls9 -l src/repl.ls9 -l src/boottools.ls9 -l src/profile.ls9
 
 lisp9.tr:	lisp9.txt
 	./ls9 src/print.ls9 -T -C -p 60 -l 6 -m -4 -t "LISP9 REFERENCE MANUAL" \

src/boottools.ls9

@@ -1,6 +1,7 @@
-(defun (boot)
+;; the "boot" sequence for local logins
+(defun (local-boot)
        (print 'starting 'LISP 'userspace)
-       (def user 'fulton) ;; maybe allow some user name setting for pure ease of use
-       (def mode 'local) ;;you are on a local machine
+       ;; TODO: put a proper init system here
        ;;connect to a remote machine and pull needed init files -- or pull stuff from NVRAM
-       (start-repl)) ;; single user mode - can do anything - local user
+       (profile 'local)
+       (start-repl))

src/man.ls9

@@ -0,0 +1,2 @@
+(defun (man term))
+(defun (look-man term))

src/profile.ls9

@@ -0,0 +1,8 @@
+(def user 'fulton) ;; Username as a default for remote log in's
+;; Put user functions and macros here
+;; edit the profile function to edit what runs on a new session
+;; edit the prompt function to change the way the prompt of FREPL operates
+(defun (profile mode)
+       (print 'Login 'user: user)
+       (print 'Login 'mode: mode)
+       (print 'for 'help 'use 'the '(man) 'function))

src/repl.ls9

@@ -14,6 +14,4 @@
 	(print (catch-errors () (eval in)))
 	(repl))
 (defun (start-repl)
-	(print 'FREPLv1.0)
-    (profile)
-(repl))
+(repl)) ;; maybe I'll need this one day