/[cmucl]/src/hemlock/table.lisp
ViewVC logotype

Diff of /src/hemlock/table.lisp

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

revision 1.1 by ram, Wed May 9 13:06:29 1990 UTC revision 1.1.1.1 by wlott, Fri Aug 3 10:17:52 1990 UTC
# Line 70  Line 70 
70              (:print-function print-string-table))              (:print-function print-string-table))
71    "This structure is used to implement the Hemlock string-table type."    "This structure is used to implement the Hemlock string-table type."
72    ;; Character used to    ;; Character used to
73    (separator #\Space :type string-char)    ; character used for word separator    (separator #\Space :type base-character) ; character used for word separator
74    (num-nodes 0 :type fixnum)               ; number of nodes in string table    (num-nodes 0 :type fixnum)               ; number of nodes in string table
75    (value-nodes (make-array initial-string-table-size)) ; value node array    (value-nodes (make-array initial-string-table-size)) ; value node array
76    (first-word-table (make-word-table)))    ; pointer to first WORD-TABLE    (first-word-table (make-word-table)))    ; pointer to first WORD-TABLE
# Line 83  Line 83 
83    "Creates and returns a Hemlock string-table.  If Intitial-Contents is    "Creates and returns a Hemlock string-table.  If Intitial-Contents is
84    supplied in the form of an A-list of string-value pairs, these pairs    supplied in the form of an A-list of string-value pairs, these pairs
85    will be used to initialize the table.  If Separator, which must be a    will be used to initialize the table.  If Separator, which must be a
86    string-char, is specified then it will be used to distinguish word    base-character, is specified then it will be used to distinguish word
87    boundaries."    boundaries."
88    (let ((table (%make-string-table separator)))    (let ((table (%make-string-table separator)))
89      (dolist (x initial-contents)      (dolist (x initial-contents)
# Line 261  Line 261 
261  ) ; eval-when  ) ; eval-when
262    
263  (defun with-folded-munge-string (str separator)  (defun with-folded-munge-string (str separator)
264    (declare (simple-string str) (string-char separator))    (declare (simple-string str) (base-character separator))
265    (let ((str-len (length str))    (let ((str-len (length str))
266          (sep-pos nil)          (sep-pos nil)
267          (buf-pos 0))          (buf-pos 0))
# Line 567  Line 567 
567    (values nil nil))    (values nil nil))
568    
569  (defun compute-field-pos (given best separator)  (defun compute-field-pos (given best separator)
570    (declare (simple-string given best) (string-char separator))    (declare (simple-string given best) (base-character separator))
571    (let ((give-pos 0)    (let ((give-pos 0)
572          (best-pos 0))          (best-pos 0))
573      (loop      (loop
# Line 581  Line 581 
581  ;;;; Find-Longest-Completion  ;;;; Find-Longest-Completion
582    
583  (defun find-longest-completion (strings separator)  (defun find-longest-completion (strings separator)
584    (declare (string-char separator))    (declare (base-character separator))
585    (let ((first (car strings))    (let ((first (car strings))
586          (rest-strings (cdr strings))          (rest-strings (cdr strings))
587          (punt-p nil)          (punt-p nil)

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.1.1.1

  ViewVC Help
Powered by ViewVC 1.1.5