Changes have been pushed for the repository "fawkes.git". (Fawkes Robotics Software Framework)
Clone: g...@git.fawkesrobotics.org:fawkes.git Gitweb: http://git.fawkesrobotics.org/fawkes.git Trac: http://trac.fawkesrobotics.org The branch, common/cx-wm-robmem-types has been created at 95a782ccb5b178be938297f6e325109b4dab6918 (commit) http://git.fawkesrobotics.org/fawkes.git/common/cx-wm-robmem-types - *Log* --------------------------------------------------------------- commit 95a782ccb5b178be938297f6e325109b4dab6918 Author: Till Hofmann <hofm...@kbsg.rwth-aachen.de> AuthorDate: Sat Jun 16 12:01:11 2018 -0400 Commit: Till Hofmann <hofm...@kbsg.rwth-aachen.de> CommitDate: Sat Jun 16 12:01:11 2018 -0400 clips-executive: properly handle bools in robot memory Similar to symbols, we need to cast the value from robot memory to a symbol if it is a bool. http://git.fawkesrobotics.org/fawkes.git/commit/95a782c http://trac.fawkesrobotics.org/changeset/95a782c - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - *Summary* ----------------------------------------------------------- - *Diffs* ------------------------------------------------------------- - *commit* 95a782ccb5b178be938297f6e325109b4dab6918 - - - - - - - - - - Author: Till Hofmann <hofm...@kbsg.rwth-aachen.de> Date: Sat Jun 16 12:01:11 2018 -0400 Subject: clips-executive: properly handle bools in robot memory .../clips-executive/clips/wm-robmem-sync.clp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) _Diff for modified files_: diff --git a/src/plugins/clips-executive/clips/wm-robmem-sync.clp b/src/plugins/clips-executive/clips/wm-robmem-sync.clp index 5a14ad8..4a7438d 100644 --- a/src/plugins/clips-executive/clips/wm-robmem-sync.clp +++ b/src/plugins/clips-executive/clips/wm-robmem-sync.clp @@ -112,7 +112,7 @@ (bind ?is-list (sym-cat (bson-get ?doc "is-list"))) (bind ?value (if (eq ?is-list TRUE) then nil else (bson-get ?doc "value"))) (bind ?values (if (eq ?is-list TRUE) then (bson-get-array ?doc "values") else (create$))) - (if (eq ?type SYMBOL) then + (if (or (eq ?type SYMBOL) (eq ?type BOOL)) then (bind ?value (sym-cat ?value)) (bind ?new-values (create$)) (foreach ?v ?values (bind ?new-values (append$ ?new-values (sym-cat ?v)))) @@ -270,7 +270,7 @@ else (bind ?value (bson-get ?obj "o.value")) ) - (if (eq ?type SYMBOL) then + (if (or (eq ?type SYMBOL) (eq ?type BOOL)) then (bind ?value (sym-cat ?value)) (bind ?new-values (create$)) (foreach ?v ?values (bind ?new-values (append$ ?new-values (sym-cat ?v)))) -- Fawkes Robotics Framework http://www.fawkesrobotics.org _______________________________________________ fawkes-commits mailing list fawkes-commits@lists.kbsg.rwth-aachen.de https://lists.kbsg.rwth-aachen.de/listinfo/fawkes-commits