Changeset 9478 for trunk/source/objc-bridge/name-translation.lisp

Timestamp:

May 14, 2008, 9:51:58 PM (13 years ago)

Author:

mikel

Message:

adding infrastructure for svn updates

File:

• trunk/source/objc-bridge/name-translation.lisp (modified) (2 diffs)

trunk/source/objc-bridge/name-translation.lisp

@@ -16 +16 @@
 
 (in-package "CCL")
+
+(require :split-if)
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -89 +91 @@
 (defun string-cat (&rest strs)
   (apply #'concatenate 'simple-string strs))
-
-
-;;; Split a sequence SEQ at each point where TEST is true 
-;;; DIR should be one of :BEFORE, :AFTER or :ELIDE
-
-(defun split-if (test seq &optional (dir :before))
-  (remove-if
-   #'(lambda (x) (equal x (subseq seq 0 0)))
-   (loop for start fixnum = 0 
-         then (if (eq dir :before) stop (the fixnum (1+ (the fixnum stop))))
-         while (< start (length seq))
-         for stop = (position-if 
-                     test seq 
-                     :start (if (eq dir :elide) start (the fixnum (1+ start))))
-         collect (subseq 
-                  seq start 
-                  (if (and stop (eq dir :after)) 
-                    (the fixnum (1+ (the fixnum stop))) 
-                    stop))
-         while stop)))
-  
-(defun split-if-char (char seq &optional dir)
-  (split-if #'(lambda (ch) (eq ch char)) seq dir))
-
 
 ;;; Collapse all prefixes of L that correspond to known special ObjC words