dakedres/ronin
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add symbol syntax

Browse Source
This commit is contained in:
Quentin Leonetti 2019-07-20 20:16:36 +02:00
parent 2574ad297b
commit 371615a899
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
desktop/sources/scripts/lisp.js
View File

@ -115,6 +115,8 @@ function Lisp (input, lib) {
return { type: TYPES.number, value: parseFloat(input) } return { type: TYPES.number, value: parseFloat(input) }
} else if (input[0] === '"' && input.slice(-1) === '"') { } else if (input[0] === '"' && input.slice(-1) === '"') {
return { type: TYPES.string, value: input.slice(1, -1) } return { type: TYPES.string, value: input.slice(1, -1) }
} else if (input[0] === ':') {
return { type: TYPES.string, value: input.slice(1) }
} else if (input === 'true' || input === 'false') { } else if (input === 'true' || input === 'false') {
return { type: TYPES.bool, value: input === 'true' } return { type: TYPES.bool, value: input === 'true' }
} else { } else {

12
examples/objects.lisp
View File

@ -1,11 +1,15 @@
; objects ; objects
(def ob {"a" 1 "b" 2}) (test "symbols" :a "a")
(echo (of ob "a")) (def ob {:a "fantastic" :b 2})
((of (js) :console :log) ob)
(echo (of ob :a))
(echo (keys ob)) (echo (keys ob))
(echo (values ob)) (echo (values ob))
(set ob "a" 4) (set ob :a 4)
(echo (of ob "a")) (echo (of ob :a))