Organize code structure

Author: Eskender-B

behavior/behavior.scm

@@ -25,7 +25,7 @@
 ;; Parse ghost topic files. 
 ;; Ghost rules handle speech interactions.
 
-(ghost-parse-file "test.top")
+(ghost-parse-file (string-append TOPDIR "behavior/" "test.top"))
 
 
 ;; ----------------------------------------------

behavior/dr_roboto.scm renamed to dr-roboto.scm

@@ -8,21 +8,25 @@
 
 (setlocale LC_CTYPE "C")
 
-(define PATH "../build/")
-;; (setenv "LTDL_LIBRARY_PATH" (string-append (getenv "LTDL_LIBRARY_PATH") ":"))
+(define-public TOPDIR (current-filename))
+(set! TOPDIR (string-drop-right TOPDIR
+	(-
+		(- (string-length TOPDIR) 1)
+		(string-rindex TOPDIR #\/)
+	))
+)
 
-(load-extension "libdr_roboto" "init_dr_roboto")
 
-(add-to-load-path "/usr/local/share/opencog/scm")
 (add-to-load-path ".")
-;(use-modules (ice-9 readline)) (activate-readline)
-(use-modules (opencog))
-(use-modules (opencog query))
-(use-modules (opencog exec))
-(load-from-path "opencog.scm")
+(add-to-load-path "./behavior/")
+(add-to-load-path "/usr/local/share/opencog/scm")
+
+; Load C++ detector functions
+(load-extension "libdr_roboto" "init_dr_roboto")
 
-(include "behavior.scm")
 
+; Load behavior scripts
+(include "behavior/behavior.scm")
 
 ; TODO this should be changed to a practical i/o implementation.
 ; this is just for testing

dr-roboto/dr-roboto.cpp.in

@@ -140,7 +140,8 @@ void say(char *data)
     tts.setSpeaker(FestivalTTS::speaker::DON);
     tts.speak(data);
 }
-SCM scm_say(SCM txt)
+
+void scm_say(SCM txt)
 {
     say(scm_to_locale_string(txt));
 }

run.sh

@@ -1,4 +1,3 @@
 #!/bin/bash
-cd build
-export LTDL_LIBRARY_PATH=$(pwd)
-guile -l ../behavior/dr_roboto.scm
+export LTDL_LIBRARY_PATH=$(pwd)/build
+guile -l dr-roboto.scm