mirror of
https://github.com/kanaka/mal.git
synced 2024-09-21 10:37:58 +03:00
21 lines
557 B
Smalltalk
21 lines
557 B
Smalltalk
DLD addLibrary: 'libreadline'.
|
|
DLD addLibrary: 'libhistory'.
|
|
|
|
Object subclass: ReadLine [
|
|
ReadLine class >> readLine: prompt [
|
|
<cCall: 'readline' returning: #stringOut args: #(#string)>
|
|
]
|
|
|
|
ReadLine class >> addHistory: item [
|
|
<cCall: 'add_history' returning: #void args: #(#string)>
|
|
]
|
|
|
|
ReadLine class >> readHistory: filePath [
|
|
<cCall: 'read_history' returning: #int args: #(#string)>
|
|
]
|
|
|
|
ReadLine class >> writeHistory: filePath [
|
|
<cCall: 'write_history' returning: #int args: #(#string)>
|
|
]
|
|
]
|