/ [runasimi] / trunk / src / runasimi / dico.scm
To checkout: svn checkout http://svn.gnu.org.ua/sources/runasimi/trunk/src/runasimi/dico.scm
Puszcza

Diff of /trunk/src/runasimi/dico.scm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 47 by gray, Tue Sep 23 22:39:08 2008 UTC revision 48 by gray, Sun Jun 27 20:05:52 2010 UTC
# Line 142  Line 142 
142     (dbh:conn dbh)     (dbh:conn dbh)
143     (dictdb:build-list-query     (dictdb:build-list-query
144      (dbh:srctab dbh) (dbh:dsttab dbh)      (dbh:srctab dbh) (dbh:dsttab dbh)
145      (string-append "\"" word "\""))))      (string-append "= \"" word "\""))))
146    
147  (define (match-prefix dbh strat word)  (define (match-prefix dbh strat word)
148    (my-sql-query    (my-sql-query
# Line 213  Line 213 
213          (cons "re"  match-extnd-regex)          (cons "re"  match-extnd-regex)
214          (cons "rev-qu" match-reverse)))          (cons "rev-qu" match-reverse)))
215    
216  (define (match-word dbh strat word)  (define (match-word dbh strat key)
217    (let ((sp (assoc (dico-strat-name strat) strategy-list)))    (let ((sp (assoc (dico-strat-name strat) strategy-list)))
218      (let ((res (cond      (let ((res (cond
219                  (sp                  (sp
220                   ((cdr sp) dbh strat word))                   ((cdr sp) dbh strat (dico-key->word key)))
221                  ((dico-strat-selector? strat)                  ((dico-strat-selector? strat)
222                   (match-selector dbh strat word))                   (match-selector dbh strat key))
223                  (else                  (else
224                   (match-prefix dbh strat word)))))                   (match-prefix dbh strat (dico-key->word key))))))
225        (and res (cons #f (map car res))))))        (and res (cons #f (map car res))))))
226    
227  (define (output rh n)  (define (output rh n)

Legend:
Removed from v.47  
changed lines
  Added in v.48

Send suggestions and bug reports to Sergey Poznyakoff
ViewVC Help
Powered by ViewVC 1.1.20