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
citizen-science
symbai
Commits
f2e7fb9e
Commit
f2e7fb9e
authored
Jul 11, 2014
by
dave griffiths
Browse files
Options
Browse Files
Download
Plain Diff
merged
parents
651e57f3
90a6d104
Changes
80
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
75 changed files
with
7257 additions
and
782 deletions
+7257
-782
android/AndroidManifest.xml
android/AndroidManifest.xml
+2
-2
android/README.md
android/README.md
+2
-4
android/assets/dbsync.scm
android/assets/dbsync.scm
+92
-26
android/assets/lib.scm
android/assets/lib.scm
+4
-2
android/assets/starwisp.scm
android/assets/starwisp.scm
+463
-261
android/assets/translations.csv
android/assets/translations.csv
+266
-223
android/assets/translations.scm
android/assets/translations.scm
+279
-257
android/src/foam/symbai/starwisp.java
android/src/foam/symbai/starwisp.java
+3
-1
eavdb/eavdb.ss
eavdb/eavdb.ss
+7
-0
eavdb/entity-filter.ss
eavdb/entity-filter.ss
+40
-1
eavdb/entity-insert.ss
eavdb/entity-insert.ss
+1
-1
eavdb/entity-sync.ss
eavdb/entity-sync.ss
+2
-1
eavdb/entity-values.ss
eavdb/entity-values.ss
+3
-3
eavdb/ktv-list.ss
eavdb/ktv-list.ss
+7
-0
symbaidb/.dump
symbaidb/.dump
+0
-0
symbaidb/AndroidManifest.xml
symbaidb/AndroidManifest.xml
+36
-0
symbaidb/README.md
symbaidb/README.md
+2
-0
symbaidb/ant.properties
symbaidb/ant.properties
+7
-0
symbaidb/assets/.#dbsync.scm
symbaidb/assets/.#dbsync.scm
+1
-0
symbaidb/assets/dbsync.scm
symbaidb/assets/dbsync.scm
+1141
-0
symbaidb/assets/eavdb
symbaidb/assets/eavdb
+1
-0
symbaidb/assets/eavdb.scm
symbaidb/assets/eavdb.scm
+765
-0
symbaidb/assets/eavdb_/eavdb.ss
symbaidb/assets/eavdb_/eavdb.ss
+81
-0
symbaidb/assets/eavdb_/entity-csv.ss
symbaidb/assets/eavdb_/entity-csv.ss
+71
-0
symbaidb/assets/eavdb_/entity-filter.ss
symbaidb/assets/eavdb_/entity-filter.ss
+97
-0
symbaidb/assets/eavdb_/entity-get.ss
symbaidb/assets/eavdb_/entity-get.ss
+178
-0
symbaidb/assets/eavdb_/entity-insert.ss
symbaidb/assets/eavdb_/entity-insert.ss
+62
-0
symbaidb/assets/eavdb_/entity-sync.ss
symbaidb/assets/eavdb_/entity-sync.ss
+169
-0
symbaidb/assets/eavdb_/entity-update.ss
symbaidb/assets/eavdb_/entity-update.ss
+159
-0
symbaidb/assets/eavdb_/entity-values.ss
symbaidb/assets/eavdb_/entity-values.ss
+123
-0
symbaidb/assets/eavdb_/ktv-list.ss
symbaidb/assets/eavdb_/ktv-list.ss
+40
-0
symbaidb/assets/eavdb_/ktv.ss
symbaidb/assets/eavdb_/ktv.ss
+66
-0
symbaidb/assets/fonts/DejaVuSans.ttf
symbaidb/assets/fonts/DejaVuSans.ttf
+0
-0
symbaidb/assets/fonts/DejaVuSerif.ttf
symbaidb/assets/fonts/DejaVuSerif.ttf
+0
-0
symbaidb/assets/fonts/Ginger-Light.otf
symbaidb/assets/fonts/Ginger-Light.otf
+0
-0
symbaidb/assets/fonts/Ginger-Regular.otf
symbaidb/assets/fonts/Ginger-Regular.otf
+0
-0
symbaidb/assets/fonts/Pfennig.ttf
symbaidb/assets/fonts/Pfennig.ttf
+0
-0
symbaidb/assets/fonts/RobotoCondensed-Regular.ttf
symbaidb/assets/fonts/RobotoCondensed-Regular.ttf
+0
-0
symbaidb/assets/fonts/grobold.ttf
symbaidb/assets/fonts/grobold.ttf
+0
-0
symbaidb/assets/fonts/grstylus.ttf
symbaidb/assets/fonts/grstylus.ttf
+0
-0
symbaidb/assets/fonts/starwisp.ttf
symbaidb/assets/fonts/starwisp.ttf
+0
-0
symbaidb/assets/init.scm
symbaidb/assets/init.scm
+700
-0
symbaidb/assets/json.scm
symbaidb/assets/json.scm
+41
-0
symbaidb/assets/lib.scm
symbaidb/assets/lib.scm
+948
-0
symbaidb/assets/racket-fix.scm
symbaidb/assets/racket-fix.scm
+28
-0
symbaidb/assets/starwisp.scm
symbaidb/assets/starwisp.scm
+246
-0
symbaidb/assets/test.scm
symbaidb/assets/test.scm
+100
-0
symbaidb/assets/testing.scm
symbaidb/assets/testing.scm
+1
-0
symbaidb/assets/translations.csv
symbaidb/assets/translations.csv
+266
-0
symbaidb/assets/translations.scm
symbaidb/assets/translations.scm
+281
-0
symbaidb/assets/unit-tests.scm
symbaidb/assets/unit-tests.scm
+189
-0
symbaidb/build.xml
symbaidb/build.xml
+92
-0
symbaidb/local.properties
symbaidb/local.properties
+10
-0
symbaidb/proguard-project.txt
symbaidb/proguard-project.txt
+20
-0
symbaidb/project.properties
symbaidb/project.properties
+15
-0
symbaidb/res/animator/card_flip_left_in.xml
symbaidb/res/animator/card_flip_left_in.xml
+24
-0
symbaidb/res/animator/card_flip_left_out.xml
symbaidb/res/animator/card_flip_left_out.xml
+17
-0
symbaidb/res/animator/card_flip_right_in.xml
symbaidb/res/animator/card_flip_right_in.xml
+24
-0
symbaidb/res/animator/card_flip_right_out.xml
symbaidb/res/animator/card_flip_right_out.xml
+17
-0
symbaidb/res/drawable-hdpi/ic_launcher.png
symbaidb/res/drawable-hdpi/ic_launcher.png
+0
-0
symbaidb/res/drawable-ldpi/ic_launcher.png
symbaidb/res/drawable-ldpi/ic_launcher.png
+0
-0
symbaidb/res/drawable-mdpi/ic_launcher.png
symbaidb/res/drawable-mdpi/ic_launcher.png
+0
-0
symbaidb/res/drawable-xhdpi/ic_launcher.png
symbaidb/res/drawable-xhdpi/ic_launcher.png
+0
-0
symbaidb/res/drawable/bg.png
symbaidb/res/drawable/bg.png
+0
-0
symbaidb/res/drawable/bg_style.xml
symbaidb/res/drawable/bg_style.xml
+5
-0
symbaidb/res/drawable/bgpaw.png
symbaidb/res/drawable/bgpaw.png
+0
-0
symbaidb/res/drawable/cross.png
symbaidb/res/drawable/cross.png
+0
-0
symbaidb/res/drawable/face.png
symbaidb/res/drawable/face.png
+0
-0
symbaidb/res/drawable/logo.png
symbaidb/res/drawable/logo.png
+0
-0
symbaidb/res/drawable/swarmbutton.xml
symbaidb/res/drawable/swarmbutton.xml
+40
-0
symbaidb/res/drawable/swarmspinner.xml
symbaidb/res/drawable/swarmspinner.xml
+15
-0
symbaidb/res/drawable/tick.png
symbaidb/res/drawable/tick.png
+0
-0
symbaidb/res/layout/spinner_item.xml
symbaidb/res/layout/spinner_item.xml
+8
-0
symbaidb/res/raw/active.wav
symbaidb/res/raw/active.wav
+0
-0
symbaidb/res/raw/ping.wav
symbaidb/res/raw/ping.wav
+0
-0
No files found.
android/AndroidManifest.xml
View file @
f2e7fb9e
<?xml version="1.0" encoding="utf-8"?>
<?xml version="1.0" encoding="utf-8"?>
<manifest
xmlns:android=
"http://schemas.android.com/apk/res/android"
<manifest
xmlns:android=
"http://schemas.android.com/apk/res/android"
package=
"foam.symbai"
package=
"foam.symbai"
android:versionCode=
"
8
"
android:versionCode=
"
10
"
android:versionName=
"1.0"
>
android:versionName=
"1.0"
>
<application
android:label=
"@string/app_name"
<application
android:label=
"@string/app_name"
android:icon=
"@drawable/logo"
android:icon=
"@drawable/logo"
...
@@ -26,7 +26,7 @@
...
@@ -26,7 +26,7 @@
<activity
android:name=
"foam.symbai.FamilyActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.FamilyActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.MigrationActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.MigrationActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.IncomeActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.IncomeActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.Genea
o
logyActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.GenealogyActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.SocialActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.SocialActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.FriendshipActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.FriendshipActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.AgreementActivity"
android:configChanges=
"orientation"
></activity>
<activity
android:name=
"foam.symbai.AgreementActivity"
android:configChanges=
"orientation"
></activity>
...
...
android/README.md
View file @
f2e7fb9e
Open Sauces Notebook
Symbai android app
====================
==================
A structured notebook for recipes
android/assets/dbsync.scm
View file @
f2e7fb9e
...
@@ -17,6 +17,8 @@
...
@@ -17,6 +17,8 @@
(
msg
"dbsync.scm"
)
(
msg
"dbsync.scm"
)
(
define
unset-int
2147483647
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; stuff in memory
;; stuff in memory
...
@@ -88,22 +90,51 @@
...
@@ -88,22 +90,51 @@
(
define
(
entity-get-value
key
)
(
define
(
entity-get-value
key
)
(
ktv-get
(
get-current
'entity-values
'
())
key
))
(
ktv-get
(
get-current
'entity-values
'
())
key
))
(
define
(
check-type
type
value
)
(
cond
((
equal?
type
"varchar"
)
(
string?
value
))
((
equal?
type
"file"
)
(
string?
value
))
((
equal?
type
"int"
)
(
number?
value
))
((
equal?
type
"real"
)
(
number?
value
))))
;; version to check the entity has the key
;; version to check the entity has the key
(
define
(
entity-set-value!
key
type
value
)
(
define
(
entity-set-value!
key
type
value
)
(
when
(
not
(
check-type
type
value
))
(
msg
"INCORRECT TYPE FOR"
key
":"
type
":"
value
))
(
let
((
existing-type
(
ktv-get-type
(
get-current
'entity-values
'
())
key
)))
(
let
((
existing-type
(
ktv-get-type
(
get-current
'entity-values
'
())
key
)))
(
if
(
equal?
existing-type
type
)
(
cond
(
set-current!
((
equal?
existing-type
type
)
'entity-values
;; save straight to local db every time (checks for modification)
(
ktv-set
(
entity-update-single-value!
(
list
key
type
value
))
(
get-current
'entity-values
'
())
;; then save to memory
(
ktv
key
type
value
)))
(
set-current!
;;
'entity-values
(
begin
(
ktv-set
(
msg
"entity-set-value! - adding new "
key
"of type"
type
"to entity"
)
(
get-current
'entity-values
'
())
(
entity-add-value-create!
key
type
value
)))
(
ktv
key
type
value
))))
;; save straight to local db every time
;;
(
entity-update-single-value!
(
list
key
type
value
))
(
else
))
(
msg
"entity-set-value! - adding new "
key
"of type"
type
"to entity"
)
(
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
)
(
define
(
date-time->string
dt
)
...
@@ -163,6 +194,8 @@
...
@@ -163,6 +194,8 @@
(
table
(
get-current
'table
#f
))
(
table
(
get-current
'table
#f
))
(
unique-id
(
ktv-get
(
get-current
'entity-values
'
())
"unique_id"
)))
(
unique-id
(
ktv-get
(
get-current
'entity-values
'
())
"unique_id"
)))
(
cond
(
cond
((
ktv-eq?
(
ktv-get-whole
(
get-current
'entity-values
'
())
(
ktv-key
ktv
))
ktv
)
(
msg
"eusv: no change for"
(
ktv-key
ktv
)))
(
unique-id
(
unique-id
(
update-entity
db
table
(
entity-id-from-unique
db
table
unique-id
)
(
list
ktv
)))
(
update-entity
db
table
(
entity-id-from-unique
db
table
unique-id
)
(
list
ktv
)))
(
else
(
else
...
@@ -455,7 +488,7 @@
...
@@ -455,7 +488,7 @@
(
list
(
list
(
network-connect
(
network-connect
"network"
"network"
"
mongoose
-web"
"
symbai
-web"
(
lambda
(
state
)
(
lambda
(
state
)
(
debug!
(
string-append
"Raspberry Pi connection state now: "
state
))
(
debug!
(
string-append
"Raspberry Pi connection state now: "
state
))
(
append
(
append
...
@@ -575,11 +608,25 @@
...
@@ -575,11 +608,25 @@
(
layout
'fill-parent
'wrap-content
1
'centre
0
)
(
layout
'fill-parent
'wrap-content
1
'centre
0
)
fn
))))
fn
))))
(
define
(
medit-text-large
id
type
fn
)
(
linear-layout
(
make-id
(
string-append
(
symbol->string
id
)
"-container"
))
'vertical
(
layout
'fill-parent
'wrap-content
1
'centre
20
)
(
list
0
0
0
0
)
(
list
(
text-view
0
(
mtext-lookup
id
)
30
(
layout
'wrap-content
'wrap-content
-1
'centre
0
))
(
edit-text
(
symbol->id
id
)
""
30
type
(
layout
'fill-parent
300
-1
'left
0
)
fn
))))
(
define
(
mspinner
id
types
fn
)
(
define
(
mspinner
id
types
fn
)
(
vert
(
vert
(
text-view
(
symbol->id
id
)
(
text-view
(
symbol->id
id
)
(
mtext-lookup
id
)
(
mtext-lookup
id
)
30
(
layout
'wrap-content
'wrap-content
1
'centre
1
0
))
30
(
layout
'wrap-content
'wrap-content
1
'centre
0
))
(
spinner
(
make-id
(
string-append
(
symbol->string
id
)
"-spinner"
))
(
spinner
(
make-id
(
string-append
(
symbol->string
id
)
"-spinner"
))
(
map
mtext-lookup
types
)
(
map
mtext-lookup
types
)
(
layout
'wrap-content
'wrap-content
1
'centre
0
)
(
layout
'wrap-content
'wrap-content
1
'centre
0
)
...
@@ -650,15 +697,19 @@
...
@@ -650,15 +697,19 @@
(
define
(
image-invalid?
image-name
)
(
define
(
image-invalid?
image-name
)
(
or
(
null?
image-name
)
(
or
(
null?
image-name
)
(
not
image-name
)
(
not
image-name
)
(
equal?
image-name
"none"
)))
(
equal?
image-name
"none"
)
(
equal?
image-name
""
)))
;; fill out the widget from the current entity in the memory store
;; fill out the widget from the current entity in the memory store
;; dispatches based on widget type
;; dispatches based on widget type
(
define
(
mupdate
widget-type
id-symbol
key
)
(
define
(
mupdate
widget-type
id-symbol
key
)
(
cond
(
cond
((
or
(
eq?
widget-type
'edit-text
)
(
eq?
widget-type
'text-view
))
((
or
(
eq?
widget-type
'edit-text
)
(
eq?
widget-type
'text-view
))
(
update-widget
widget-type
(
get-symbol-id
id-symbol
)
'text
(
let
((
v
(
entity-get-value
key
)))
(
entity-get-value
key
)))
(
update-widget
widget-type
(
get-symbol-id
id-symbol
)
'text
;; hide -1 as it represents unset
(
if
(
and
(
number?
v
)
(
eqv?
v
-1
))
""
v
))))
((
eq?
widget-type
'toggle-button
)
((
eq?
widget-type
'toggle-button
)
(
update-widget
widget-type
(
get-symbol-id
id-symbol
)
'checked
(
update-widget
widget-type
(
get-symbol-id
id-symbol
)
'checked
(
entity-get-value
key
)))
(
entity-get-value
key
)))
...
@@ -779,7 +830,7 @@
...
@@ -779,7 +830,7 @@
;; a standard builder for list widgets of entities and a
;; a standard builder for list widgets of entities and a
;; make new button, to add defaults to the list
;; make new button, to add defaults to the list
(
define
(
build-list-widget
db
table
title
entity-type
edit-activity
parent-fn
ktv-default-fn
)
(
define
(
build-list-widget
db
table
title
title-ids
entity-type
edit-activity
parent-fn
ktv-default-fn
)
(
vert-colour
(
vert-colour
colour-two
colour-two
(
horiz
(
horiz
...
@@ -794,7 +845,7 @@
...
@@ -794,7 +845,7 @@
(
ktvlist-merge
(
ktvlist-merge
(
ktv-default-fn
)
(
ktv-default-fn
)
(
list
(
ktv
"parent"
"varchar"
(
parent-fn
)))))
(
list
(
ktv
"parent"
"varchar"
(
parent-fn
)))))
(
list
(
update-list-widget
db
table
entity-type
edit-activity
(
parent-fn
))))))
(
list
(
update-list-widget
db
table
title-ids
entity-type
edit-activity
(
parent-fn
))))))
(
linear-layout
(
linear-layout
(
make-id
(
string-append
entity-type
"-list"
))
(
make-id
(
string-append
entity-type
"-list"
))
'vertical
'vertical
...
@@ -802,13 +853,28 @@
...
@@ -802,13 +853,28 @@
(
list
0
0
0
0
)
(
list
0
0
0
0
)
(
list
))))
(
list
))))
(
define
(
make-list-widget-title
e
title-ids
)
(
if
(
eqv?
(
length
title-ids
)
1
)
(
ktv-get
e
(
car
title-ids
))
(
string-append
(
ktv-get
e
(
car
title-ids
))
"\n"
(
foldl
(
lambda
(
id
r
)
(
if
(
equal?
r
""
)
(
ktv-get
e
id
)
(
string-append
r
" "
(
ktv-get
e
id
))))
""
(
cdr
title-ids
)))))
;; pull db data into list of button widgets
;; pull db data into list of button widgets
(
define
(
update-list-widget
db
table
entity-type
edit-activity
parent
)
(
define
(
update-list-widget
db
table
title-ids
entity-type
edit-activity
parent
)
(
let
((
search-results
(
let
((
search-results
(
if
parent
(
if
parent
(
db-filter-only
db
table
entity-type
(
db-filter-only
db
table
entity-type
(
list
(
list
"parent"
"varchar"
"="
parent
))
(
list
(
list
"parent"
"varchar"
"="
parent
))
(
list
(
list
"name"
"varchar"
)))
(
map
(
lambda
(
id
)
(
list
id
"varchar"
))
title-ids
))
(
db-all
db
table
entity-type
))))
(
db-all
db
table
entity-type
))))
(
update-widget
(
update-widget
'linear-layout
'linear-layout
...
@@ -820,8 +886,8 @@
...
@@ -820,8 +886,8 @@
(
lambda
(
e
)
(
lambda
(
e
)
(
button
(
button
(
make-id
(
string-append
"list-button-"
(
ktv-get
e
"unique_id"
)))
(
make-id
(
string-append
"list-button-"
(
ktv-get
e
"unique_id"
)))
(
or
(
ktv-get
e
"name"
)
"Unamed item"
)
(
make-list-widget-title
e
title-ids
)
4
0
(
layout
'fill-parent
'wrap-content
1
'centre
5
)
3
0
(
layout
'fill-parent
'wrap-content
1
'centre
5
)
(
lambda
()
(
lambda
()
(
list
(
start-activity
edit-activity
0
(
ktv-get
e
"unique_id"
))))))
(
list
(
start-activity
edit-activity
0
(
ktv-get
e
"unique_id"
))))))
search-results
)))))
search-results
)))))
...
@@ -1029,13 +1095,13 @@
...
@@ -1029,13 +1095,13 @@
(
msg
"making village"
i
)
(
msg
"making village"
i
)
(
let
((
village
(
simpsons-village
db
table
village-ktvlist
)))
(
let
((
village
(
simpsons-village
db
table
village-ktvlist
)))
(
looper!
(
looper!
3
15
(
lambda
(
i
)
(
lambda
(
i
)
(
alog
"household"
)
(
alog
"household"
)
(
msg
"making household"
i
)
(
msg
"making household"
i
)
(
let
((
household
(
simpsons-household
db
table
village
household-ktvlist
)))
(
let
((
household
(
simpsons-household
db
table
village
household-ktvlist
)))
(
looper!
(
looper!
(
random
10
)
(
+
2
(
random
5
)
)
(
lambda
(
i
)
(
lambda
(
i
)
(
msg
"making individual"
i
)
(
msg
"making individual"
i
)
(
simpsons-individual
db
table
household
individual-ktvlist
))))))))))
(
simpsons-individual
db
table
household
individual-ktvlist
))))))))))
...
...
android/assets/lib.scm
View file @
f2e7fb9e
...
@@ -706,7 +706,7 @@
...
@@ -706,7 +706,7 @@
(
define
(
relative
rules
colour
.
l
)
(
define
(
relative
rules
colour
.
l
)
(
relative-layout
(
relative-layout
0
(
rlayout
'fill-parent
'wrap-content
20
rules
)
0
(
rlayout
'fill-parent
'wrap-content
(
list
20
20
20
20
)
rules
)
colour
colour
l
))
l
))
...
@@ -795,7 +795,8 @@
...
@@ -795,7 +795,8 @@
((
null?
w
)
#f
)
((
null?
w
)
#f
)
;; drill deeper
;; drill deeper
((
eq?
(
update-widget-token
w
)
'contents
)
((
eq?
(
update-widget-token
w
)
'contents
)
(
msg
"updateing contents from callback"
)
(
update-callbacks!
(
update-widget-value
w
)))
((
eq?
(
update-widget-token
w
)
'contents-add
)
(
update-callbacks!
(
update-widget-value
w
)))
(
update-callbacks!
(
update-widget-value
w
)))
((
eq?
(
update-widget-token
w
)
'grid-buttons
)
((
eq?
(
update-widget-token
w
)
'grid-buttons
)
(
add-callback!
(
callback
(
update-widget-id
w
)
(
add-callback!
(
callback
(
update-widget-id
w
)
...
@@ -862,6 +863,7 @@
...
@@ -862,6 +863,7 @@
(
begin
(
display
"no dialog called "
)(
display
name
)(
newline
))
(
begin
(
display
"no dialog called "
)(
display
name
)(
newline
))
(
let
((
events
(
apply
(
dialog-fn
dialog
)
args
)))
(
let
((
events
(
apply
(
dialog-fn
dialog
)
args
)))
(
update-dialogs!
events
)
(
update-dialogs!
events
)
(
update-callbacks-from-update!
events
)
(
send
(
scheme->json
events
))))))
(
send
(
scheme->json
events
))))))
;; called by java
;; called by java
...
...
android/assets/starwisp.scm
View file @
f2e7fb9e
This diff is collapsed.
Click to expand it.
android/assets/translations.csv
View file @
f2e7fb9e
test-num,1,1,1,
"Code (don't change these)","English","Khasi","Hindi",
test-text, I am test text, I am test text, I am test text,
"start","Symbai",,,
one, one, ,,
"next","Next",,,
two, two, ,,
"yes","Yes",,,
three, three, ,,
"no","No",,,
village, Village, ,,
"unanswered","Unanswered",,,
household, Household, ,,
"not-set","Not set",,,
households, Households, ,,
"details-next","Next",,,
individual, Individual, ,,
"family-next","Next",,,
individuals, Individuals, ,,
"migration-next","Next",,,
add-item-to-list,0, ,,
"income-next","Next",,,
default-village-name, New village, ,,
"gene-next","Next",,,
title, Symbai, Symbai, Symbai,
"social-next","Next",,,
sync, Sync, Sync, Sync,
"friendship-next","Next",,,
languages, Choose language, Choose language, Choose language,
"agreement-next","Next",,,
english, English, English, English,
"village"," Village"," ",,
khasi, Khasi, Khasi, Khasi,
"household"," Household"," ",,
hindi, Hindi, Hindi, Hindi,
"households"," Households"," ",,
user-id, Your user ID, User ID, User ID,
"individual"," Individual"," ",,
save, Save, Save, Save,
"individuals"," Individuals"," ",,
back, Back, Back, Back,
"add-item-to-list",0," ",,
off, Off, Off, Off,
"default-village-name"," New village"," ",,
villages, Villages, Villages, Villages,
"title"," Symbai"," Symbai"," Symbai"," "
list-empty, List empty, ,,
"sync"," Sync"," Sync"," Sync"," "
delete, Delete, ,,
"languages"," Choose language"," Choose language"," Choose language"," "
delete-are-you-sure, Are you sure you want to delete this?, ,,
"english"," English"," English"," English"," "
save-are-you-sure, Are you sure you want to save changes?, ,,
"khasi"," Khasi"," Khasi"," Khasi"," "
quick-name, New person name, ,,
"hindi"," Hindi"," Hindi"," Hindi"," "
quick-add, Quick add, ,,
"user-id"," User ID"," User ID"," User ID"," "
find-individual, Find individual, ,,
"save"," Save"," Save"," Save"," "
filter, Filter, ,,
"back"," Back"," Back"," Back"," "
off, Off, Off, Off,
"off"," Off"," Off"," Off"," "
name, Name, ,,
"villages"," Villages"," Villages"," Villages"," "
sync-all, Sync me!, ,,
"list-empty"," List empty"," ",,
sync-syncall, Sync everything, ,,
"delete"," Delete"," ",,
export-data, Exporting data, ,,
"delete-are-you-sure"," Are you sure you want to delete this?"," ",,
sync-download, Download main DB, ,,
"save-are-you-sure"," Are you sure you want to save changes?"," ",,
sync-export, Email main DB, ,,
"quick-name"," New person name"," ",,
email-local, Email local DB, ,,
"quick-add"," Quick add"," ",,
debug, Debug, ,,
"find-individual"," Find individual"," ",,
sync-back, Back, ,,
"filter"," Filter"," ",,
sync-prof, Profile, ,,
"filter-switch","Run filter",,,
village-name, Village name, Village name, Village name,
"off"," Off"," Off"," Off"," "
block, Block, Block, Block,
"name"," Name","Kyrteng",,
district, District, District, District,
"sync-all"," Sync me!"," ",,
car, Accessible by car, ,,
"sync-syncall"," Sync everything"," ",,
household-list, Household list, ,,
"export-data"," Exporting data"," ",,
amenities, Amenities, ,,
"sync-download"," Download main DB"," ",,
school, School, ,,
"sync-export"," Email main DB"," ",,
present, Present, ,,
"email-local"," Email local DB"," ",,
closest-access, Closest place of access, ,,
"debug"," Debug"," ",,
house-gps, GPS, ,,
"sync-back"," Back"," ",,
toilet-gps, GPS, ,,
"sync-prof"," Profile"," ",,
school, School, ,,
"village-name"," Village name"," Village name"," Village name"," "
school-closest-access, Closest access, ,,
"block"," Block"," Block"," Block"," "
school-gps, GPS, ,,
"district"," District"," District"," District"," "
hospital, Hospital/Health care centre, ,,
"car"," Accessible by car"," ",,
hospital-closest-access, Closest access, ,,
"household-list"," Household list"," ",,
hospital-gps, GPS, ,,
"amenities"," Amenities"," ",,
post-office, Post Office, ,,
"school"," School"," ",,
post-office-closest-access, Closest access, ,,
"present"," Present"," ",,
post-office-gps, GPS, ,,
"closest-access"," Closest place of access"," ",,
railway-station, Railway station, ,,
"house-gps"," GPS"," ",,
railway-station-closest-access, Closest access, ,,
"toilet-gps"," GPS"," ",,
railway-station-gps, GPS, ,,
"school-in-village","In Village",,,
state-bus-service, Inter-state bus service, ,,
"school"," School"," ",,
state-bus-service-closest-access, Closest access, ,,
"school-closest-access"," Closest access"," ",,
state-bus-service-gps, GPS, ,,
"school-gps"," GPS"," ",,
district-bus-service, Inter-village/district bus service, ,,
"hospital-in-village","In Village",,,
district-bus-service-closest-access, Closest access, ,,
"hospital"," Hospital/Health care centre"," ",,
district-bus-service-gps, GPS, ,,
"hospital-closest-access"," Closest access"," ",,
panchayat, Village Panchayat Office, ,,
"hospital-gps"," GPS"," ",,
panchayat-closest-access, Closest access, ,,
"Post-office-in-village","In Village",,,
panchayat-gps, GPS, ,,
"post-office"," Post Office"," ",,
NGO, Presence of NGO's working with them, ,,
"post-office-closest-access"," Closest access"," ",,
NGO-closest-access, Closest access, ,,
"post-office-gps"," GPS"," ",,
NGO-gps, GPS, ,,
"railway-station-in-village","In Village",,,
market, Market, ,,
"railway-station"," Railway station"," ",,
market-closest-access, Closest access, ,,
"railway-station-closest-access"," Closest access"," ",,
market-gps, GPS, ,,
"railway-station-gps"," GPS"," ",,
household-name, Household name, ,,
"State-bus-service-in-village","In Village",,,
default-household-name, A household, ,,
"state-bus-service"," Inter-state bus service"," ",,
location, House location, ,,
"state-bus-service-closest-access"," Closest access"," ",,
elevation, Elevation, ,,
"state-bus-service-gps"," GPS"," ",,
toilet-location, Toilet location, ,,
"District-bus-service-in-village","In Village",,,
children, Children, ,,
"district-bus-service"," Inter-village/district bus service"," ",,
male, Male, ,,
"district-bus-service-closest-access"," Closest access"," ",,
female, Female, ,,
"district-bus-service-gps"," GPS"," ",,
num-pots, Number of pots, ,,
"Panchayat-in-village","In Village",,,
adults, Adults, ,,
"panchayat"," Village Panchayat Office"," ",,
add-individual, Add individual, ,,
"panchayat-closest-access"," Closest access"," ",,
default-individual-name, A person, ,,
"panchayat-gps"," GPS"," ",,
default-family-name, A family, ,,
"NGO-in-village","In Village",,,
default-photo-id, ???, ,,
"NGO"," Presence of NGO's working with them"," ",,
name-display, Name, ,,
"NGO-closest-access"," Closest access"," ",,
photo-id-display, Photo ID, ,,
"NGO-gps"," GPS"," ",,
family-display, Family, ,,
"market-in-village","In Village",,,
details-button, Details, ,,
"market"," Market"," ",,
family-button, Family, ,,
"market-closest-access"," Closest access"," ",,
migration-button, Migration, ,,
"market-gps"," GPS"," ",,
income-button, Income, ,,
"household-name"," Household name"," ",,
geneaology-button, Geneaology, ,,
"default-household-name"," A household"," ",,
social-button, Social, ,,
"location"," House location"," ",,
agreement-button, Agreement, ,,
"elevation"," Elevation"," ",,
is-a-child, Child, ,,
"toilet-location"," Toilet location"," ",,
change-photo, Change photo, ,,
"children"," Children"," ",,
details-name, Name, ,,
"male"," Male","Shynrang",,
details-photo-id, Photo ID, ,,
"female"," Female","Kynthei",,
details-family, Family, ,,
"num-pots"," Number of pots"," ",,
tribe, Tribe, ,,
"adults"," Adults"," ",,
sub-tribe, Sub tribe, ,,
"add-individual"," Add individual"," ",,
khasi, Khasi, ,,
"default-individual-name"," A person"," ",,
khynriam, Khynriam, ,,
"default-family-name"," A family"," ",,
pnar, Pnar, ,,
"default-photo-id"," ???"," ",,
bhoi, Bhoi, ,,
"name-display"," Name","Kyrteng",,
war, War, ,,
"photo-id-display"," Photo ID","Nombor dur ID",,
other, Other, ,,
"family-display"," Family","Family/Clan",,
age, Age, ,,
"details-button"," Details"," ",,
gender, Gender, ,,
"family-button"," Family","Family/Clan",,
education, Education, ,,
"migration-button"," Migration"," ",,
illiterate, Illiterate, ,,
"friendship-button","Friendship",,,
literate, Literate, ,,
"income-button"," Income"," ",,
primary, Primary 1-5, ,,
"genealogy-button"," Genealogy"," ",,
middle, Middle 6-8, ,,
"social-button"," Social"," ",,
high, High 9-10, ,,
"agreement-button"," Agreement"," ",,
secondary, Higher Secondary, ,,
"is-a-child"," Child"," ",,
university, University, ,,
"change-photo"," Change photo"," ",,
spouse, Spouse, ,,
"details-name"," Name","Kyrteng",,
change-id, Change, ,,
"details-first-name","Name","Kyrteng",,
head-of-house, Head of house, ,,
"details-photo-id"," Photo ID","Nombor dur ID",,
marital-status, Marital status, ,,
"details-family"," Family"," ",,
ever-married, Ever married, ,,
"tribe"," Tribe","Jaidbynriew:",,
currently-married, Currently married, ,,