| … | … | @@ -74,23 +74,21 @@ |
| 74 | 74 | |
| 75 | 75 | ; Dump to files |
| 76 | 76 | (define fsn (FileStorageNode fbase)) |
| 77 | | (cog-open fsn) |
| 78 | | (store-atomspace) |
| 79 | | (cog-close fsn) |
| 77 | (cog-set-value! fsn (*-open-*)) |
| 78 | (cog-set-value! fsn (*-store-atomspace-*) (cog-atomspace)) |
| 79 | (cog-set-value! fsn (*-close-*)) |
| 80 | 80 | |
| 81 | 81 | ; So, let's save the other two parts. |
| 82 | 82 | (define as-one (cog-value (ConceptNode "foo") (Predicate "real life"))) |
| 83 | 83 | (define as-two (cog-value (ConceptNode "foo") (Predicate "repressed mem"))) |
| 84 | 84 | (define fsa (FileStorageNode fsub1)) |
| 85 | 85 | (define fsb (FileStorageNode fsub2)) |
| 86 | | (cog-open fsa) |
| 87 | | (cog-open fsb) |
| 88 | | (cog-set-atomspace! as-one) |
| 89 | | (store-atomspace fsa) |
| 90 | | (cog-close fsa) |
| 91 | | (cog-set-atomspace! as-two) |
| 92 | | (store-atomspace fsb) |
| 93 | | (cog-close fsb) |
| 86 | (cog-set-value! fsa (*-open-*)) |
| 87 | (cog-set-value! fsb (*-open-*)) |
| 88 | (cog-set-value! fsa (*-store-atomspace-*) as-one) |
| 89 | (cog-set-value! fsa (*-close-*)) |
| 90 | (cog-set-value! fsb (*-store-atomspace-*) as-two) |
| 91 | (cog-set-value! fsb (*-close-*)) |
| 94 | 92 | |
| 95 | 93 | ; Return to home base. |
| 96 | 94 | (cog-set-atomspace! base-space) |
| … | … | @@ -118,9 +116,9 @@ |
| 118 | 116 | (define gsa (FileStorageNode fsub1)) |
| 119 | 117 | (define gsb (FileStorageNode fsub2)) |
| 120 | 118 | |
| 121 | | (cog-open gsn) |
| 122 | | (load-atomspace) |
| 123 | | (cog-close gsn) |
| 119 | (cog-set-value! gsn (*-open-*)) |
| 120 | (cog-set-value! gsn (*-load-atomspace-*) (cog-atomspace)) |
| 121 | (cog-set-value! gsn (*-close-*)) |
| 124 | 122 | |
| 125 | 123 | (format #t "Loaded Atom counts ~A ~A ~A\n" |
| 126 | 124 | (count-all) |
| … | … | @@ -139,14 +137,12 @@ |
| 139 | 137 | ; Now, restore the two batches of episodic memories. |
| 140 | 138 | (define as-one (cog-value (ConceptNode "foo") (Predicate "real life"))) |
| 141 | 139 | (define as-two (cog-value (ConceptNode "foo") (Predicate "repressed mem"))) |
| 142 | | (cog-open gsa) |
| 143 | | (cog-open gsb) |
| 144 | | (cog-set-atomspace! as-one) |
| 145 | | (load-atomspace gsa) |
| 146 | | (cog-close gsa) |
| 147 | | (cog-set-atomspace! as-two) |
| 148 | | (load-atomspace gsb) |
| 149 | | (cog-close gsb) |
| 140 | (cog-set-value! gsa (*-open-*)) |
| 141 | (cog-set-value! gsb (*-open-*)) |
| 142 | (cog-set-value! gsa (*-load-atomspace-*) as-one) |
| 143 | (cog-set-value! gsa (*-close-*)) |
| 144 | (cog-set-value! gsb (*-load-atomspace-*) as-two) |
| 145 | (cog-set-value! gsb (*-close-*)) |
| 150 | 146 | |
| 151 | 147 | ; Return to home base. |
| 152 | 148 | (cog-set-atomspace! base-space) |