Changeset 9478


Ignore:
Timestamp:
May 14, 2008, 9:51:58 PM (11 years ago)
Author:
mikel
Message:

adding infrastructure for svn updates

Location:
trunk/source
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/name-translation.lisp

    r9130 r9478  
    1616
    1717(in-package "CCL")
     18
     19(require :split-if)
    1820
    1921;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
     
    8991(defun string-cat (&rest strs)
    9092  (apply #'concatenate 'simple-string strs))
    91 
    92 
    93 ;;; Split a sequence SEQ at each point where TEST is true
    94 ;;; DIR should be one of :BEFORE, :AFTER or :ELIDE
    95 
    96 (defun split-if (test seq &optional (dir :before))
    97   (remove-if
    98    #'(lambda (x) (equal x (subseq seq 0 0)))
    99    (loop for start fixnum = 0
    100          then (if (eq dir :before) stop (the fixnum (1+ (the fixnum stop))))
    101          while (< start (length seq))
    102          for stop = (position-if
    103                      test seq
    104                      :start (if (eq dir :elide) start (the fixnum (1+ start))))
    105          collect (subseq
    106                   seq start
    107                   (if (and stop (eq dir :after))
    108                     (the fixnum (1+ (the fixnum stop)))
    109                     stop))
    110          while stop)))
    111  
    112 (defun split-if-char (char seq &optional dir)
    113   (split-if #'(lambda (ch) (eq ch char)) seq dir))
    114 
    11593
    11694;;; Collapse all prefixes of L that correspond to known special ObjC words
  • trunk/source/objc-bridge/objc-clos.lisp

    r9141 r9478  
    3737  (use-interface-dir :gnustep))
    3838
     39(require :split-if)
    3940;;; We need OBJC-FOREIGN-ARG-TYPE from the bridge to process ivar types
    40 
    4141(require "BRIDGE")
    4242
Note: See TracChangeset for help on using the changeset viewer.