mirror of
https://github.com/kanaka/mal.git
synced 2024-09-11 21:57:38 +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)>
|
||
|
]
|
||
|
]
|