mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 17:50:24 +03:00
8a19f60386
- Reorder README to have implementation list after "learning tool" bullet. - This also moves tests/ and libs/ into impls. It would be preferrable to have these directories at the top level. However, this causes difficulties with the wasm implementations which need pre-open directories and have trouble with paths starting with "../../". So in lieu of that, symlink those directories to the top-level. - Move the run_argv_test.sh script into the tests directory for general hygiene.
57 lines
1.9 KiB
Smalltalk
57 lines
1.9 KiB
Smalltalk
Object subclass: Printer [
|
|
Printer class >> prStr: sexp printReadably: printReadably [
|
|
sexp type = #fn ifTrue: [ ^'#<fn>' ].
|
|
sexp type = #func ifTrue: [ ^'#<func>' ].
|
|
sexp type = #true ifTrue: [ ^'true' ].
|
|
sexp type = #false ifTrue: [ ^'false' ].
|
|
sexp type = #nil ifTrue: [ ^'nil' ].
|
|
|
|
sexp type = #number ifTrue: [ ^sexp value asString ].
|
|
sexp type = #symbol ifTrue: [ ^sexp value asString ].
|
|
sexp type = #keyword ifTrue: [ ^':', sexp value ].
|
|
|
|
sexp type = #string ifTrue: [
|
|
printReadably ifTrue: [
|
|
^sexp value repr
|
|
] ifFalse: [
|
|
^sexp value
|
|
]
|
|
].
|
|
|
|
sexp type = #list ifTrue: [
|
|
^self prList: sexp printReadably: printReadably
|
|
starter: '(' ender: ')'
|
|
].
|
|
sexp type = #vector ifTrue: [
|
|
^self prList: sexp printReadably: printReadably
|
|
starter: '[' ender: ']'
|
|
].
|
|
sexp type = #map ifTrue: [
|
|
^self prMap: sexp printReadably: printReadably
|
|
].
|
|
|
|
sexp type = #atom ifTrue: [
|
|
^'(atom ', (self prStr: sexp value printReadably: printReadably), ')'
|
|
].
|
|
|
|
Error halt: 'unimplemented type'
|
|
]
|
|
|
|
Printer class >> prList: sexp printReadably: printReadably
|
|
starter: starter ender: ender [
|
|
| items |
|
|
items := sexp value collect:
|
|
[ :item | self prStr: item printReadably: printReadably ].
|
|
^starter, (items join: ' ') , ender
|
|
]
|
|
|
|
Printer class >> prMap: sexp printReadably: printReadably [
|
|
| items |
|
|
items := sexp value associations collect:
|
|
[ :item |
|
|
(self prStr: item key printReadably: printReadably), ' ',
|
|
(self prStr: item value printReadably: printReadably) ].
|
|
^'{', (items join: ' '), '}'
|
|
]
|
|
]
|