;
; main.scm - AtomSpace Learning Chatbot
;
; Entry point. Load all modules and start the shell.
;
; Run with: guile -l main.scm
;
(add-to-load-path (dirname (current-filename)))
;; Core AtomSpace
(use-modules (opencog))
(use-modules (opencog exec))
;; Our layers
(load "layer1.scm")
;; (load "layer2.scm") ; Enable as we build them
;; Shell
(load "shell.scm")
;; Banner
(display "\n")
(display "═══════════════════════════════════════════════════════════════════\n")
(display " AtomSpace Learning Chatbot \n")
(display " Layer 0-7 Methodology Test \n")
(display "═══════════════════════════════════════════════════════════════════\n")
(display "\n")
(display "Talk to me and I'll learn word associations.\n")
(display "Type /help for commands, /quit to exit.\n")
(display "\n")
;; Start the loop
(chatbot-loop)