/[cmucl]/src/code/intl.lisp
ViewVC logotype

Diff of /src/code/intl.lisp

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

revision 1.3 by rtoy, Wed Apr 14 16:39:52 2010 UTC revision 1.4 by rtoy, Sun Apr 18 16:47:37 2010 UTC
# Line 558  Line 558 
558  (defvar *translator-comment* nil)  (defvar *translator-comment* nil)
559    
560  #-runtime  #-runtime
561  (defvar *translations* (make-hash-table :test 'equal))  (defvar *translations* nil)
562    
563    #-runtime
564    (defun translation-enable ()
565      (setq *translations* (or *translations* (make-hash-table :test 'equal)))
566      t)
567    
568    #-runtime
569    (defun translation-disable ()
570      (setq *translations* nil))
571    
572  #-runtime  #-runtime
573  (defun note-translatable (domain string &optional plural)  (defun note-translatable (domain string &optional plural)
574    (when domain    (when (and domain *translations*)
575      (let* ((hash (or (gethash domain *translations*)      (let* ((hash (or (gethash domain *translations*)
576                       (setf (gethash domain *translations*)                       (setf (gethash domain *translations*)
577                             (make-hash-table :test 'equal))))                             (make-hash-table :test 'equal))))
578             (key (if plural (cons string plural) string))             (key (if plural (cons string plural) string))
579             (val (or (gethash key hash) (cons nil nil))))             (val (or (gethash key hash) (cons nil nil))))
580        (pushnew *translator-comment* (car val) :test #'equal)        (pushnew *translator-comment* (car val) :test #'equal)
581        (pushnew (enough-namestring *compile-file-truename*) (cdr val) :test #'equal)        (pushnew (and *compile-file-truename* (enough-namestring *compile-file-truename*))
582                   (cdr val) :test #'equal)
583        ;; FIXME: How does this happen?  Need to figure this out and get        ;; FIXME: How does this happen?  Need to figure this out and get
584        ;; rid of this!        ;; rid of this!
585        (unless key        (unless key

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5