conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cosmetic changes

This commit is contained in:
Sunrim KIM (keen) 2014-08-08 07:16:09 +09:00
parent 8b88b73d74
commit a64439232a
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/10.readline/src/readline.c
View File

@ -6,6 +6,7 @@
forget to use the C++ extern "C" to get it to compile.
*/
#include <editline/readline.h>
#include <editline/history.h>
#include "picrin.h"
#include "picrin/pair.h"
#include "picrin/string.h"
@ -130,7 +131,7 @@ pic_rl_read_history(pic_state *pic)
pic_get_args(pic, "z", &filename);
if(read_history(filename))
pic_errorf(pic, "cannot read history file :%s", filename);
pic_errorf(pic, "cannot read history file : %s", filename);
return pic_undef_value();
}
@ -143,7 +144,7 @@ pic_rl_write_history(pic_state *pic)
pic_get_args(pic, "z", &filename);
if(write_history(filename))
pic_errorf(pic, "cannot write history file:%s", filename);
pic_errorf(pic, "cannot write history file: %s", filename);
return pic_undef_value();
}

17
contrib/10.readline/t/test.scm
View File

@ -20,31 +20,30 @@
;; (readline "prompt")
(define testfile "./picrin_readline_test_file")
(test-begin)
(test 0 (history-length))
(add-history "0")
(add-history "1")
(test 1 (history-length))
(let loop ((n 1))
(if (> 10 n)
(let loop ((n 2))
(if (>= 10 n)
(begin
(add-history (number->string n))
(loop (+ n 1)))))
(test 10 (history-length))
(stifle-history 7)
(test 7 (history-length))
(add-history "10")
(test 10 (history-length))
(add-history "11")
(test 7 (history-length))
(test #t (history-stifled?))
(unstifle-history)
(test #f (history-stifled?))
(test 7 (history-length))
(add-history "11")
(add-history "12")
(test 8 (history-length))
(test "10" (history-get 11))
(test "11" (history-get 11))
(remove-history 1)
(test "10" (history-get 11))
(test "11" (history-get 11))
(test 7 (history-length))
(write-history testfile)
(test 7 (history-length))