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

Diff of /src/code/string.lisp

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

revision 1.27 by rtoy, Mon Sep 20 23:01:15 2010 UTC revision 1.28 by rtoy, Wed Oct 13 18:00:44 2010 UTC
# Line 990  Line 990 
990              (when widep (incf index)))))))              (when widep (incf index)))))))
991    
992  (defun string-left-trim (char-bag string)  (defun string-left-trim (char-bag string)
993    "Given a set of characters (a list or string) and a string, returns    _N"Given a set of characters (a list or string) and a string, returns
994    a copy of the string with the characters in the set removed from the    a copy of the string with the characters in the set removed from the
995    left end.  If the set of characters is a string, surrogates will be    left end.  If the set of characters is a string, surrogates will be
996    properly handled."    properly handled."
# Line 1038  Line 1038 
1038              (when widep (decf index)))))))              (when widep (decf index)))))))
1039    
1040  (defun string-right-trim (char-bag string)  (defun string-right-trim (char-bag string)
1041    "Given a set of characters (a list or string) and a string, returns    _N"Given a set of characters (a list or string) and a string, returns
1042    a copy of the string with the characters in the set removed from the    a copy of the string with the characters in the set removed from the
1043    right end.  If the set of characters is a string, surrogates will be    right end.  If the set of characters is a string, surrogates will be
1044    properly handled."    properly handled."
# Line 1048  Line 1048 
1048        (subseq string start stop))))        (subseq string start stop))))
1049    
1050  (defun string-trim (char-bag string)  (defun string-trim (char-bag string)
1051    "Given a set of characters (a list or string) and a string, returns a    _N"Given a set of characters (a list or string) and a string, returns a
1052    copy of the string with the characters in the set removed from both    copy of the string with the characters in the set removed from both
1053    ends.  If the set of characters is a string, surrogates will be    ends.  If the set of characters is a string, surrogates will be
1054    properly handled."    properly handled."
# Line 1352  Line 1352 
1352          (shrink-vector target comp-pos)))))          (shrink-vector target comp-pos)))))
1353    
1354  (defun string-to-nfd (string)  (defun string-to-nfd (string)
1355    "Convert String to Unicode Normalization Form D (NFD) using the    _N"Convert String to Unicode Normalization Form D (NFD) using the
1356    canonical decomposition.  The NFD string is returned"    canonical decomposition.  The NFD string is returned"
1357    (decompose string nil))    (decompose string nil))
1358    
1359  (defun string-to-nfkd (string)  (defun string-to-nfkd (string)
1360    "Convert String to Unicode Normalization Form KD (NFKD) uisng the    _N"Convert String to Unicode Normalization Form KD (NFKD) uisng the
1361    compatible decomposition form.  The NFKD string is returned."    compatible decomposition form.  The NFKD string is returned."
1362    (decompose string t))    (decompose string t))
1363    
1364  (defun string-to-nfc (string)  (defun string-to-nfc (string)
1365    "Convert String to Unicode Normalization Form C (NFC).  If the    _N"Convert String to Unicode Normalization Form C (NFC).  If the
1366    string a simple string and is already normalized, the original    string a simple string and is already normalized, the original
1367    string is returned."    string is returned."
1368    (if (normalized-form-p string :nfc)    (if (normalized-form-p string :nfc)
# Line 1373  Line 1373 
1373                'simple-string)))                'simple-string)))
1374    
1375  (defun string-to-nfkc (string)  (defun string-to-nfkc (string)
1376    "Convert String to Unicode Normalization Form KC (NFKC).  If the    _N"Convert String to Unicode Normalization Form KC (NFKC).  If the
1377    string is a simple string and is already normalized, the original    string is a simple string and is already normalized, the original
1378    string is returned."    string is returned."
1379    (if (normalized-form-p string :nfkc)    (if (normalized-form-p string :nfkc)

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5