source: trunk/j/src/org/armedbear/lisp/strings.lisp @ 2707

Last change on this file since 2707 was 2707, checked in by piso, 18 years ago

Moved internal string functions into PACKAGE_SYS.

File size: 4.9 KB
Line 
1;;; strings.lisp
2;;;
3;;; Copyright (C) 2003 Peter Graves
4;;; $Id: strings.lisp,v 1.5 2003-07-02 15:27:43 piso Exp $
5;;;
6;;; This program is free software; you can redistribute it and/or
7;;; modify it under the terms of the GNU General Public License
8;;; as published by the Free Software Foundation; either version 2
9;;; of the License, or (at your option) any later version.
10;;;
11;;; This program is distributed in the hope that it will be useful,
12;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14;;; GNU General Public License for more details.
15;;;
16;;; You should have received a copy of the GNU General Public License
17;;; along with this program; if not, write to the Free Software
18;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
19
20(in-package "SYSTEM")
21
22(defun string-upcase (string &key (start 0) end)
23  (%string-upcase string start end))
24
25(defun string-downcase (string &key (start 0) end)
26  (%string-downcase string start end))
27
28(defun string-capitalize (string &key (start 0) end)
29  (%string-capitalize string start end))
30
31(defun nstring-upcase (string &key (start 0) end)
32  (%nstring-upcase string start end))
33
34(defun nstring-downcase (string &key (start 0) end)
35  (%nstring-downcase string start end))
36
37(defun nstring-capitalize (string &key (start 0) end)
38  (%nstring-capitalize string start end))
39
40(defun string= (string1 string2 &key (start1 0) end1 (start2 0) end2)
41  (let* ((string1 (string string1))
42         (string2 (string string2))
43         (end1 (or end1 (length string1)))
44         (end2 (or end2 (length string2))))
45    (%string= string1 string2 start1 end1 start2 end2)))
46
47(defun string/= (string1 string2 &key (start1 0) end1 (start2 0) end2)
48  (let* ((string1 (string string1))
49         (string2 (string string2))
50         (end1 (or end1 (length string1)))
51         (end2 (or end2 (length string2))))
52    (%string/= string1 string2 start1 end1 start2 end2)))
53
54(defun string-equal (string1 string2 &key (start1 0) end1 (start2 0) end2)
55  (let* ((string1 (string string1))
56         (string2 (string string2))
57         (end1 (or end1 (length string1)))
58         (end2 (or end2 (length string2))))
59    (%string-equal string1 string2 start1 end1 start2 end2)))
60
61(defun string-not-equal (string1 string2 &key (start1 0) end1 (start2 0) end2)
62  (let* ((string1 (string string1))
63         (string2 (string string2))
64         (end1 (or end1 (length string1)))
65         (end2 (or end2 (length string2))))
66    (%string-not-equal string1 string2 start1 end1 start2 end2)))
67
68(defun string< (string1 string2 &key (start1 0) end1 (start2 0) end2)
69  (let* ((string1 (string string1))
70         (string2 (string string2))
71         (end1 (or end1 (length string1)))
72         (end2 (or end2 (length string2))))
73    (%string< string1 string2 start1 end1 start2 end2)))
74
75(defun string> (string1 string2 &key (start1 0) end1 (start2 0) end2)
76  (let* ((string1 (string string1))
77         (string2 (string string2))
78         (end1 (or end1 (length string1)))
79         (end2 (or end2 (length string2))))
80    (%string> string1 string2 start1 end1 start2 end2)))
81
82(defun string<= (string1 string2 &key (start1 0) end1 (start2 0) end2)
83  (let* ((string1 (string string1))
84         (string2 (string string2))
85         (end1 (or end1 (length string1)))
86         (end2 (or end2 (length string2))))
87    (%string<= string1 string2 start1 end1 start2 end2)))
88
89(defun string>= (string1 string2 &key (start1 0) end1 (start2 0) end2)
90  (let* ((string1 (string string1))
91         (string2 (string string2))
92         (end1 (or end1 (length string1)))
93         (end2 (or end2 (length string2))))
94    (%string>= string1 string2 start1 end1 start2 end2)))
95
96(defun string-lessp (string1 string2 &key (start1 0) end1 (start2 0) end2)
97  (let* ((string1 (string string1))
98         (string2 (string string2))
99         (end1 (or end1 (length string1)))
100         (end2 (or end2 (length string2))))
101    (%string-lessp string1 string2 start1 end1 start2 end2)))
102
103(defun string-greaterp (string1 string2 &key (start1 0) end1 (start2 0) end2)
104  (let* ((string1 (string string1))
105         (string2 (string string2))
106         (end1 (or end1 (length string1)))
107         (end2 (or end2 (length string2))))
108    (%string-greaterp string1 string2 start1 end1 start2 end2)))
109
110(defun string-not-lessp (string1 string2 &key (start1 0) end1 (start2 0) end2)
111  (let* ((string1 (string string1))
112         (string2 (string string2))
113         (end1 (or end1 (length string1)))
114         (end2 (or end2 (length string2))))
115    (%string-not-lessp string1 string2 start1 end1 start2 end2)))
116
117(defun string-not-greaterp (string1 string2 &key (start1 0) end1 (start2 0) end2)
118  (let* ((string1 (string string1))
119         (string2 (string string2))
120         (end1 (or end1 (length string1)))
121         (end2 (or end2 (length string2))))
122    (%string-not-greaterp string1 string2 start1 end1 start2 end2)))
Note: See TracBrowser for help on using the repository browser.