-
Notifications
You must be signed in to change notification settings - Fork 28
/
dr-roboto.scm
54 lines (40 loc) · 1.26 KB
/
dr-roboto.scm
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
;; File: dr_roboto.scm
;; Author: Eskender Besrat <[email protected]>
;; Dagim Sisay <[email protected]>
;; License: AGPL
;; Date: May, 2018
;;
(setlocale LC_CTYPE "en_US.UTF-8")
(define-public TOPDIR (getcwd))
(add-to-load-path TOPDIR)
(add-to-load-path (string-append TOPDIR "/util/guile-json"))
(setenv "LTDL_LIBRARY_PATH"
(string-append (getenv "LTDL_LIBRARY_PATH") ":" (string-append TOPDIR "/build")))
(chdir "build")
(use-modules (ice-9 hash-table))
(use-modules
(opencog)
(opencog exec)
(opencog query)
(opencog nlp)
(opencog nlp relex2logic)
(opencog attention)
(opencog openpsi)
(opencog ghost)
(opencog ghost procedures))
; Load C++ detector functions
(load-extension "libdr_roboto" "init_dr_roboto")
(c-init-as (cog-atomspace))
;; ---------------------------------------------
;; Define functions used by the rules
(include-from-path "behavior/functions.scm")
; load prof eintein's commands
(include-from-path "act/cmd_einstein.scm")
; Load behavior scripts
(include-from-path "behavior/behavior.scm")
; TODO this should be changed to a practical i/o implementation.
; this is just for testing
(include-from-path "socket/socket.scm")
; load scratch interface
(include-from-path "scratch/scratch.scm")
(c-start-sensors)