Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
abcl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
0
Issues
0
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
abcl
abcl
Commits
fd0da69f
Commit
fd0da69f
authored
Feb 14, 2010
by
vvoutilainen@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Stack friendliness.
parent
ca24a4d9
Changes
1
Show whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
210 additions
and
89 deletions
+210
-89
src/org/armedbear/lisp/StringFunctions.java
src/org/armedbear/lisp/StringFunctions.java
+210
-89
No files found.
src/org/armedbear/lisp/StringFunctions.java
View file @
fd0da69f
...
...
@@ -39,9 +39,13 @@ public final class StringFunctions
{
// ### %string=
// Case sensitive.
private
static
final
Primitive
_STRING_EQUAL
=
new
Primitive
(
"%string="
,
PACKAGE_SYS
,
false
)
private
static
final
Primitive
_STRING_EQUAL
=
new
pf__string_equal
();
private
static
final
class
pf__string_equal
extends
Primitive
{
pf__string_equal
()
{
super
(
"%string="
,
PACKAGE_SYS
,
false
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
,
LispObject
fourth
,
...
...
@@ -82,9 +86,13 @@ public final class StringFunctions
// ### %%string=
// Case sensitive.
private
static
final
Primitive
__STRING_EQUAL
=
new
Primitive
(
"%%string="
,
PACKAGE_SYS
,
false
)
private
static
final
Primitive
__STRING_EQUAL
=
new
pf___string_equal
();
private
static
final
class
pf___string_equal
extends
Primitive
{
pf___string_equal
()
{
super
(
"%%string="
,
PACKAGE_SYS
,
false
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
...
...
@@ -103,9 +111,13 @@ public final class StringFunctions
// ### %string/=
// Case sensitive.
private
static
final
Primitive
_STRING_NOT_EQUAL
=
new
Primitive
(
"%string/="
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_NOT_EQUAL
=
new
pf__string_not_equal
();
private
static
final
class
pf__string_not_equal
extends
Primitive
{
pf__string_not_equal
()
{
super
(
"%string/="
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -140,9 +152,13 @@ public final class StringFunctions
// ### %string-equal
// Case insensitive.
private
static
final
Primitive
_STRING_EQUAL_IGNORE_CASE
=
new
Primitive
(
"%string-equal"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_EQUAL_IGNORE_CASE
=
new
pf__string_equal_ignore_case
();
private
static
final
class
pf__string_equal_ignore_case
extends
Primitive
{
pf__string_equal_ignore_case
()
{
super
(
"%string-equal"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
,
LispObject
fourth
,
...
...
@@ -175,9 +191,13 @@ public final class StringFunctions
// ### %string-not-equal
// Case sensitive.
private
static
final
Primitive
_STRING_NOT_EQUAL_IGNORE_CASE
=
new
Primitive
(
"%string-not-equal"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_NOT_EQUAL_IGNORE_CASE
=
new
pf__string_not_equal_ignore_case
();
private
static
final
class
pf__string_not_equal_ignore_case
extends
Primitive
{
pf__string_not_equal_ignore_case
()
{
super
(
"%string-not-equal"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -219,9 +239,13 @@ public final class StringFunctions
// ### %string<
// Case sensitive.
private
static
final
Primitive
_STRING_LESS_THAN
=
new
Primitive
(
"%string<"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_LESS_THAN
=
new
pf__string_less_than
();
private
static
final
class
pf__string_less_than
extends
Primitive
{
pf__string_less_than
()
{
super
(
"%string<"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -263,9 +287,13 @@ public final class StringFunctions
// ### %string<=
// Case sensitive.
private
static
final
Primitive
_STRING_GREATER_THAN
=
new
Primitive
(
"%string>"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_GREATER_THAN
=
new
pf__string_greater_than
();
private
static
final
class
pf__string_greater_than
extends
Primitive
{
pf__string_greater_than
()
{
super
(
"%string>"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -305,9 +333,13 @@ public final class StringFunctions
// ### %string<=
// Case sensitive.
private
static
final
Primitive
_STRING_LE
=
new
Primitive
(
"%string<="
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_LE
=
new
pf__string_le
();
private
static
final
class
pf__string_le
extends
Primitive
{
pf__string_le
()
{
super
(
"%string<="
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -347,9 +379,13 @@ public final class StringFunctions
// ### %string<=
// Case sensitive.
private
static
final
Primitive
_STRING_GE
=
new
Primitive
(
"%string>="
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_GE
=
new
pf__string_ge
();
private
static
final
class
pf__string_ge
extends
Primitive
{
pf__string_ge
()
{
super
(
"%string>="
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -391,9 +427,13 @@ public final class StringFunctions
// ### %string-lessp
// Case insensitive.
private
static
final
Primitive
_STRING_LESSP
=
new
Primitive
(
"%string-lessp"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_LESSP
=
new
pf__string_lessp
();
private
static
final
class
pf__string_lessp
extends
Primitive
{
pf__string_lessp
()
{
super
(
"%string-lessp"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -435,9 +475,13 @@ public final class StringFunctions
// ### %string-greaterp
// Case insensitive.
private
static
final
Primitive
_STRING_GREATERP
=
new
Primitive
(
"%string-greaterp"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_GREATERP
=
new
pf__string_greaterp
();
private
static
final
class
pf__string_greaterp
extends
Primitive
{
pf__string_greaterp
()
{
super
(
"%string-greaterp"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -477,9 +521,13 @@ public final class StringFunctions
// ### %string-not-lessp
// Case insensitive.
private
static
final
Primitive
_STRING_NOT_LESSP
=
new
Primitive
(
"%string-not-lessp"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_NOT_LESSP
=
new
pf__string_not_lessp
();
private
static
final
class
pf__string_not_lessp
extends
Primitive
{
pf__string_not_lessp
()
{
super
(
"%string-not-lessp"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -521,9 +569,13 @@ public final class StringFunctions
// ### %string-not-greaterp
// Case insensitive.
private
static
final
Primitive
_STRING_NOT_GREATERP
=
new
Primitive
(
"%string-not-greaterp"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_NOT_GREATERP
=
new
pf__string_not_greaterp
();
private
static
final
class
pf__string_not_greaterp
extends
Primitive
{
pf__string_not_greaterp
()
{
super
(
"%string-not-greaterp"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
[]
args
)
{
...
...
@@ -562,9 +614,13 @@ public final class StringFunctions
};
// ### %string-upcase
private
static
final
Primitive
_STRING_UPCASE
=
new
Primitive
(
"%string-upcase"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_UPCASE
=
new
pf__string_upcase
();
private
static
final
class
pf__string_upcase
extends
Primitive
{
pf__string_upcase
()
{
super
(
"%string-upcase"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -598,9 +654,13 @@ public final class StringFunctions
};
// ### %string-downcase
private
static
final
Primitive
_STRING_DOWNCASE
=
new
Primitive
(
"%string-downcase"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_DOWNCASE
=
new
pf__string_downcase
();
private
static
final
class
pf__string_downcase
extends
Primitive
{
pf__string_downcase
()
{
super
(
"%string-downcase"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -633,9 +693,13 @@ public final class StringFunctions
};
// ### %string-capitalize
private
static
final
Primitive
_STRING_CAPITALIZE
=
new
Primitive
(
"%string-capitalize"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_STRING_CAPITALIZE
=
new
pf__string_capitalize
();
private
static
final
class
pf__string_capitalize
extends
Primitive
{
pf__string_capitalize
()
{
super
(
"%string-capitalize"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -681,9 +745,13 @@ public final class StringFunctions
};
// ### %nstring-upcase
private
static
final
Primitive
_NSTRING_UPCASE
=
new
Primitive
(
"%nstring-upcase"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_NSTRING_UPCASE
=
new
pf__nstring_upcase
();
private
static
final
class
pf__nstring_upcase
extends
Primitive
{
pf__nstring_upcase
()
{
super
(
"%nstring-upcase"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -710,9 +778,13 @@ public final class StringFunctions
};
// ### %nstring-downcase
private
static
final
Primitive
_NSTRING_DOWNCASE
=
new
Primitive
(
"%nstring-downcase"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_NSTRING_DOWNCASE
=
new
pf__nstring_downcase
();
private
static
final
class
pf__nstring_downcase
extends
Primitive
{
pf__nstring_downcase
()
{
super
(
"%nstring-downcase"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -739,9 +811,13 @@ public final class StringFunctions
};
// ### %nstring-capitalize
private
static
final
Primitive
_NSTRING_CAPITALIZE
=
new
Primitive
(
"%nstring-capitalize"
,
PACKAGE_SYS
,
true
)
private
static
final
Primitive
_NSTRING_CAPITALIZE
=
new
pf__nstring_capitalize
();
private
static
final
class
pf__nstring_capitalize
extends
Primitive
{
pf__nstring_capitalize
()
{
super
(
"%nstring-capitalize"
,
PACKAGE_SYS
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -780,8 +856,13 @@ public final class StringFunctions
};
// ### stringp
public
static
final
Primitive
STRINGP
=
new
Primitive
(
"stringp"
,
"object"
)
public
static
final
Primitive
STRINGP
=
new
pf_stringp
();
private
static
final
class
pf_stringp
extends
Primitive
{
pf_stringp
()
{
super
(
"stringp"
,
"object"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
...
...
@@ -790,9 +871,13 @@ public final class StringFunctions
};
// ### simple-string-p
public
static
final
Primitive
SIMPLE_STRING_P
=
new
Primitive
(
"simple-string-p"
,
"object"
)
public
static
final
Primitive
SIMPLE_STRING_P
=
new
pf_simple_string_p
();
private
static
final
class
pf_simple_string_p
extends
Primitive
{
pf_simple_string_p
()
{
super
(
"simple-string-p"
,
"object"
);
}
@Override
public
LispObject
execute
(
LispObject
arg
)
{
...
...
@@ -803,9 +888,13 @@ public final class StringFunctions
// ### %make-string
// %make-string size initial-element element-type => string
// Returns a simple string.
private
static
final
Primitive
_MAKE_STRING
=
new
Primitive
(
"%make-string"
,
PACKAGE_SYS
,
false
)
private
static
final
Primitive
_MAKE_STRING
=
new
pf__make_string
();
private
static
final
class
pf__make_string
extends
Primitive
{
pf__make_string
()
{
super
(
"%make-string"
,
PACKAGE_SYS
,
false
);
}
@Override
public
LispObject
execute
(
LispObject
size
,
LispObject
initialElement
,
LispObject
elementType
)
...
...
@@ -837,9 +926,13 @@ public final class StringFunctions
};
// ### char
private
static
final
Primitive
CHAR
=
new
Primitive
(
Symbol
.
CHAR
,
"string index"
)
private
static
final
Primitive
CHAR
=
new
pf_char
();
private
static
final
class
pf_char
extends
Primitive
{
pf_char
()
{
super
(
Symbol
.
CHAR
,
"string index"
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
...
...
@@ -849,9 +942,13 @@ public final class StringFunctions
};
// ### schar
private
static
final
Primitive
SCHAR
=
new
Primitive
(
Symbol
.
SCHAR
,
"string index"
)
private
static
final
Primitive
SCHAR
=
new
pf_schar
();
private
static
final
class
pf_schar
extends
Primitive
{
pf_schar
()
{
super
(
Symbol
.
SCHAR
,
"string index"
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
...
...
@@ -861,9 +958,13 @@ public final class StringFunctions
};
// ### set-char
private
static
final
Primitive
SET_CHAR
=
new
Primitive
(
Symbol
.
SET_CHAR
,
"string index character"
)
private
static
final
Primitive
SET_CHAR
=
new
pf_set_char
();
private
static
final
class
pf_set_char
extends
Primitive
{
pf_set_char
()
{
super
(
Symbol
.
SET_CHAR
,
"string index character"
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -876,9 +977,13 @@ public final class StringFunctions
};
// ### set-schar
private
static
final
Primitive
SET_SCHAR
=
new
Primitive
(
Symbol
.
SET_SCHAR
,
"string index character"
)
private
static
final
Primitive
SET_SCHAR
=
new
pf_set_schar
();
private
static
final
class
pf_set_schar
extends
Primitive
{
pf_set_schar
()
{
super
(
Symbol
.
SET_SCHAR
,
"string index character"
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -894,9 +999,13 @@ public final class StringFunctions
};
// ### string-position
private
static
final
Primitive
STRING_POSITION
=
new
Primitive
(
"string-position"
,
PACKAGE_EXT
,
true
)
private
static
final
Primitive
STRING_POSITION
=
new
pf_string_position
();
private
static
final
class
pf_string_position
extends
Primitive
{
pf_string_position
()
{
super
(
"string-position"
,
PACKAGE_EXT
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
,
LispObject
third
)
...
...
@@ -914,9 +1023,13 @@ public final class StringFunctions
};
// ### string-find
private
static
final
Primitive
STRING_FIND
=
new
Primitive
(
"string-find"
,
PACKAGE_EXT
,
true
,
"char string"
)
private
static
final
Primitive
STRING_FIND
=
new
pf_string_find
();
private
static
final
class
pf_string_find
extends
Primitive
{
pf_string_find
()
{
super
(
"string-find"
,
PACKAGE_EXT
,
true
,
"char string"
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
...
...
@@ -936,9 +1049,13 @@ public final class StringFunctions
// ### simple-string-search pattern string => position
// Searches string for a substring that matches pattern.
private
static
final
Primitive
SIMPLE_STRING_SEARCH
=
new
Primitive
(
"simple-string-search"
,
PACKAGE_EXT
,
true
)
private
static
final
Primitive
SIMPLE_STRING_SEARCH
=
new
pf_simple_string_search
();
private
static
final
class
pf_simple_string_search
extends
Primitive
{
pf_simple_string_search
()
{
super
(
"simple-string-search"
,
PACKAGE_EXT
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
...
...
@@ -950,9 +1067,13 @@ public final class StringFunctions
};
// ### simple-string-fill string character => string
private
static
final
Primitive
STRING_FILL
=
new
Primitive
(
"simple-string-fill"
,
PACKAGE_EXT
,
true
)
private
static
final
Primitive
STRING_FILL
=
new
pf_string_fill
();
private
static
final
class
pf_string_fill
extends
Primitive
{
pf_string_fill
()
{
super
(
"simple-string-fill"
,
PACKAGE_EXT
,
true
);
}
@Override
public
LispObject
execute
(
LispObject
first
,
LispObject
second
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment