mal/impls/picolisp/readline.l

(de load-history (File)
   (when (info File)
      (in File
         (until (eof)
            (native "libreadline.so" "add_history" NIL (line T)) ) ) ) )

(de save-to-history (Input)
   (when Input
      (native "libreadline.so" "add_history" NIL Input)
      (out "+.mal_history"
         (prinl Input) ) ) )

(de readline (Prompt)
   (let Input (native "libreadline.so" "readline" 'N Prompt)
      (if (=0 Input)
         0
         (prog1
            (struct Input 'S)
            (save-to-history @) ) ) ) )
Implement step 0 2016-09-30 11:05:43 +03:00			`(de load-history (File)`
			`(when (info File)`
			`(in File`
			`(until (eof)`
			`(native "libreadline.so" "add_history" NIL (line T)) ) ) ) )`

			`(de save-to-history (Input)`
			`(when Input`
			`(native "libreadline.so" "add_history" NIL Input)`
			`(out "+.mal_history"`
			`(prinl Input) ) ) )`

			`(de readline (Prompt)`
Distinguish EOF from empty input 2016-09-30 11:39:42 +03:00			`(let Input (native "libreadline.so" "readline" 'N Prompt)`
			`(if (=0 Input)`
			`0`
			`(prog1`
			`(struct Input 'S)`
			`(save-to-history @) ) ) ) )`