Author: iratqq
Date: Tue Mar 24 02:30:41 2009
New Revision: 5935
Modified:
trunk/scm/look.scm
trunk/uim/look.c
Log:
* scm/look.scm (look-look):
- Sync api.
* uim/look.c (uim_look_look):
- Add argument case? and dict?.
There is corresponding to look command line flags '-f' and '-d'.
- Change api.
Modified: trunk/scm/look.scm
==============================================================================
--- trunk/scm/look.scm (original)
+++ trunk/scm/look.scm Tue Mar 24 02:30:41 2009
@@ -394,7 +394,7 @@
(define (look-look lc look-dict str)
(let* ((learned (look-search-learned lc str))
- (looked (look-lib-look look-dict str)))
+ (looked (look-lib-look #t #t look-dict str)))
(look-context-set-dictlen! lc (length learned))
(append learned looked)))
Modified: trunk/uim/look.c
==============================================================================
--- trunk/uim/look.c (original)
+++ trunk/uim/look.c Tue Mar 24 02:30:41 2009
@@ -42,7 +42,7 @@
#include "bsdlook.h"
static uim_lisp
-uim_look_look(uim_lisp dict_, uim_lisp str_)
+uim_look_look(uim_lisp isdict_, uim_lisp iscase_, uim_lisp dict_, uim_lisp
str_)
{
const char *dict = REFER_C_STR(dict_);
const char *str = REFER_C_STR(str_);
@@ -53,6 +53,10 @@
uim_lisp ret_ = uim_scm_f();
ctx = uim_look_init();
+
+ uim_look_set_option_dictionary_order(C_BOOL(isdict_), ctx);
+ uim_look_set_option_ignore_case(C_BOOL(iscase_), ctx);
+
if (!ctx)
uim_fatal_error("uim_look_init() failed");
@@ -83,7 +87,7 @@
void
uim_plugin_instance_init(void)
{
- uim_scm_init_proc2("look-lib-look", uim_look_look);
+ uim_scm_init_proc4("look-lib-look", uim_look_look);
}
void
