Changeset 11650


Ignore:
Timestamp:
Jan 29, 2009, 3:11:16 PM (11 years ago)
Author:
gz
Message:

r11639 from trunk

Location:
branches/working-0711/ccl
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/l0-init.lisp

    r11267 r11650  
    165165(defvar *nx-debug* 1)
    166166
     167(defparameter *case-sensitive-filesystem* t)
     168
    167169;;; end
  • branches/working-0711/ccl/level-0/l0-pred.lisp

    r11069 r11650  
    383383                           (declare (fixnum x-size skip))
    384384                           (when (= x-size (the fixnum (uvsize y)))
    385                              (do* ((i 1 (1+ i)))
    386                                   ((= i x-size) t)
    387                                (declare (fixnum i))
    388                                (unless (or (= i skip)
    389                                            (equal (%svref x i) (%svref y i)))
    390                                  (return)))))))))))))
     385                             (if *case-sensitive-filesystem*
     386                               (do* ((i 1 (1+ i)))
     387                                    ((= i x-size) t)
     388                                 (declare (fixnum i))
     389                                 (unless (or (= i skip)
     390                                             (equal (%svref x i) (%svref y i)))
     391                                   (return)))
     392                                                              (do* ((i 1 (1+ i)))
     393                                    ((= i x-size) t)
     394                                 (declare (fixnum i))
     395                                 (unless (or (= i skip)
     396                                             (equalp (%svref x i) (%svref y i)))
     397                                   (return))))))))))))))
    391398
    392399#+ppc32-target
  • branches/working-0711/ccl/level-1/l1-pathnames.lisp

    r11101 r11650  
    581581                (return)))))))))
    582582
     583
    583584(defun path-str-match-p (pattern str p-start s-start p-end s-end)
    584585  (declare (fixnum p-start s-start p-end s-end)
     
    593594        (return nil))
    594595      (let ((p (%scharcode pattern p-start)))
     596        (unless *case-sensitive-filesystem*
     597          (setq p (%char-code-upcase p)))
    595598        (when (eq p esc)
    596599          (when (eq (setq p-start (1+ p-start)) p-end)
    597600            (return nil))
    598           (setq p (%scharcode pattern p-start)))
    599         (unless (eq p (%scharcode str s-start))
    600           (return nil))
     601          (setq p (%scharcode pattern p-start))
     602          (unless *case-sensitive-filesystem*
     603            (setq p (%char-code-upcase p))))
     604        (let* ((q (%scharcode str s-start)))
     605          (unless *case-sensitive-filesystem*
     606            (setq q (%char-code-upcase q)))
     607          (unless (eq p q)
     608            (return nil)))
    601609        (setq p-start (1+ p-start))
    602610        (setq s-start (1+ s-start))))))
Note: See TracChangeset for help on using the changeset viewer.