Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Open sidebar
nebogeo
symbai
Commits
a3ebe991
Commit
a3ebe991
authored
Jul 09, 2014
by
Dave Griffiths
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
changes for db admin app
parent
96bd706f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
22 additions
and
0 deletions
+22
-0
android/assets/dbsync.scm
android/assets/dbsync.scm
+13
-0
eavdb/eavdb.ss
eavdb/eavdb.ss
+9
-0
No files found.
android/assets/dbsync.scm
View file @
a3ebe991
...
...
@@ -123,6 +123,19 @@
(
entity-add-value-create!
key
type
value
))
)))
;; version to check the entity has the key
(
define
(
entity-set-value-mem!
key
type
value
)
(
when
(
not
(
check-type
type
value
))
(
msg
"INCORRECT TYPE FOR"
key
":"
type
":"
value
))
;; then save to memory
(
set-current!
'entity-values
(
ktv-set
(
get-current
'entity-values
'
())
(
ktv
key
type
value
))))
(
define
(
date-time->string
dt
)
(
string-append
...
...
eavdb/eavdb.ss
View file @
a3ebe991
...
...
@@ -79,3 +79,12 @@
(
alog
"get-entity-only"
)
(
get-entity-only
db
table
i
kt-list
))
(
filter-entities
db
table
type
filter
)))
;; only return (eg. name and photo)
(
define
(
db-filter-only-inc-deleted
db
table
type
filter
kt-list
)
(
alog
"db-filter-only"
)
(
map
(
lambda
(
i
)
(
alog
"get-entity-only"
)
(
get-entity-only
db
table
i
kt-list
))
(
filter-entities-inc-deleted
db
table
type
filter
)))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment