File: dict.l

package info (click to toggle)
euslisp 9.27%2Bdfsg-7
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye
  • size: 55,344 kB
  • sloc: ansic: 41,162; lisp: 3,339; makefile: 256; sh: 208; asm: 138; python: 53
file content (11 lines) | stat: -rw-r--r-- 349 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
(defvar *dict-file* "/usr/share/lib/dict/words")
(defvar *dict-htab* (make-hash-table :size 1000))

(defun read-dict (&optional (dict-file *dict-file*))
   (with-open-file (f dict-file)
      (let* ((eof (cons nil nil))(w (read f nil eof)))
         (while (not (eq w eof))
	    (setf (gethash w *dict-htab*) w)
	    (setq w (read f nil eof)))
)))