String.st
author Stefan Vogel <sv@exept.de>
Fri, 14 Sep 2012 15:31:18 +0200
changeset 14353 97611faada84
parent 14330 be357b5c0adb
child 14384 1082868a753c
permissions -rw-r--r--
changed: #errorPrintCR
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
     1
"
5
67342904af11 *** empty log message ***
claus
parents: 3
diff changeset
     2
 COPYRIGHT (c) 1988 by Claus Gittinger
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
     3
	      All Rights Reserved
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
     4
a27a279701f8 Initial revision
claus
parents:
diff changeset
     5
 This software is furnished under a license and may be used
a27a279701f8 Initial revision
claus
parents:
diff changeset
     6
 only in accordance with the terms of that license and with the
a27a279701f8 Initial revision
claus
parents:
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
a27a279701f8 Initial revision
claus
parents:
diff changeset
     8
 be provided or otherwise made available to, or used by, any
a27a279701f8 Initial revision
claus
parents:
diff changeset
     9
 other person.  No title to or ownership of the software is
a27a279701f8 Initial revision
claus
parents:
diff changeset
    10
 hereby transferred.
a27a279701f8 Initial revision
claus
parents:
diff changeset
    11
"
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
    12
"{ Package: 'stx:libbasic' }"
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
    13
3989
109b4e016f51 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3980
diff changeset
    14
CharacterArray variableByteSubclass:#String
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    15
	instanceVariableNames:''
14330
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
    16
	classVariableNames:'CRLF CR LF TAB'
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    17
	poolDictionaries:''
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    18
	category:'Collections-Text'
88
81dacba7a63a *** empty log message ***
claus
parents: 85
diff changeset
    19
!
81dacba7a63a *** empty log message ***
claus
parents: 85
diff changeset
    20
216
a8abff749575 *** empty log message ***
claus
parents: 209
diff changeset
    21
!String primitiveDefinitions!
88
81dacba7a63a *** empty log message ***
claus
parents: 85
diff changeset
    22
%{
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
    23
3809
dd1df62365ee use threadsafe fprintf (win32)
Claus Gittinger <cg@exept.de>
parents: 3751
diff changeset
    24
#include <stdio.h>
dd1df62365ee use threadsafe fprintf (win32)
Claus Gittinger <cg@exept.de>
parents: 3751
diff changeset
    25
#define _STDIO_H_INCLUDED_
437
claus
parents: 429
diff changeset
    26
88
81dacba7a63a *** empty log message ***
claus
parents: 85
diff changeset
    27
#include <ctype.h>
359
claus
parents: 357
diff changeset
    28
273
f97f3fcf8214 *** empty log message ***
claus
parents: 267
diff changeset
    29
#ifdef LINUX
359
claus
parents: 357
diff changeset
    30
# define __STRINGDEFS__
claus
parents: 357
diff changeset
    31
# include <linuxIntern.h>
273
f97f3fcf8214 *** empty log message ***
claus
parents: 267
diff changeset
    32
#endif
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
    33
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
    34
/*
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
    35
 * old st/x creates strings with spaces in it;
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
    36
 * new st/x will fill it with zeros (for st-80 compatibility)
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
    37
 * the define below sets old behavior.
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
    38
 */
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
    39
#define INITIALIZE_WITH_SPACE
6370
d82742acb152 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6369
diff changeset
    40
d82742acb152 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6369
diff changeset
    41
#ifdef FAST_MEMCHR
d82742acb152 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6369
diff changeset
    42
 char *memchr();
d82742acb152 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6369
diff changeset
    43
#endif
88
81dacba7a63a *** empty log message ***
claus
parents: 85
diff changeset
    44
%}
216
a8abff749575 *** empty log message ***
claus
parents: 209
diff changeset
    45
! !
88
81dacba7a63a *** empty log message ***
claus
parents: 85
diff changeset
    46
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    47
!String primitiveFunctions!
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    48
%{
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    49
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
    50
static int
10371
7d23f24d0598 fix compiler warnings
Stefan Vogel <sv@exept.de>
parents: 10370
diff changeset
    51
nextOnKeyboard(char1, char2)
7d23f24d0598 fix compiler warnings
Stefan Vogel <sv@exept.de>
parents: 10370
diff changeset
    52
{
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    53
    /* compare two characters if they are next to each other on a (US-) keyboard */
10370
b7b777d9599d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10352
diff changeset
    54
b7b777d9599d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10352
diff changeset
    55
    static char *us_keys[] = { "1234567890-",
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    56
			    "*qwertyuiop",
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    57
			    "**asdfghjkl:",
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    58
			    "***zxcvbnm",
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    59
			    0 };
10370
b7b777d9599d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10352
diff changeset
    60
    static char *de_keys[] = { "1234567890-",
b7b777d9599d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10352
diff changeset
    61
			    "*qwertzuiop",
b7b777d9599d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10352
diff changeset
    62
			    "**asdfghjkl:",
b7b777d9599d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10352
diff changeset
    63
			    "***yxcvbnm",
b7b777d9599d *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10352
diff changeset
    64
			    0 };
10371
7d23f24d0598 fix compiler warnings
Stefan Vogel <sv@exept.de>
parents: 10370
diff changeset
    65
    char **keys = us_keys;
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    66
    char **line1, **line2;
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    67
    char *col1, *col2;
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    68
    int diff;
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    69
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    70
    for (line1 = keys; *line1 != 0; line1++) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    71
	for (col1 = *line1; *col1 != 0 && *col1 != char1; col1++)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    72
	    continue;
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    73
    }
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    74
    if (*col1 == 0)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    75
	return(0);
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    76
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    77
    for (line2 = keys; *line2 != 0; line2++) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    78
	for (col2 = *line2; *col2 != 0 && *col2 != char2; col2++)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    79
	    continue;
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    80
    }
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    81
    if (*col2 == 0)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    82
	return(0);
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    83
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    84
    diff = col1 - col2;
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    85
    if (diff > 1 || diff < -1)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    86
	return(0);
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    87
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    88
    diff = line1 - line2;
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    89
    if (diff > 1 || diff < -1)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
    90
	return(0);
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    91
    return(1);
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    92
}
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    93
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    94
%}
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    95
! !
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
    96
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
    97
!String class methodsFor:'documentation'!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
    98
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
    99
copyright
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   100
"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   101
 COPYRIGHT (c) 1988 by Claus Gittinger
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   102
	      All Rights Reserved
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   103
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   104
 This software is furnished under a license and may be used
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   105
 only in accordance with the terms of that license and with the
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   106
 inclusion of the above copyright notice.   This software may not
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   107
 be provided or otherwise made available to, or used by, any
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   108
 other person.  No title to or ownership of the software is
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   109
 hereby transferred.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   110
"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   111
!
3
24d81bf47225 *** empty log message ***
claus
parents: 2
diff changeset
   112
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   113
documentation
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   114
"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   115
    Strings are ByteArrays storing Characters.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   116
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   117
    Strings are kind of kludgy: to allow for easy handling by c-functions,
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   118
    there is always one 0-byte added at the end, which is not counted
4800
118dff933bf3 docu fixed - yes, String does allow storing 0-bytes.
Claus Gittinger <cg@exept.de>
parents: 4745
diff changeset
   119
    in the strings size, and is not accessable from the smalltalk level.
118dff933bf3 docu fixed - yes, String does allow storing 0-bytes.
Claus Gittinger <cg@exept.de>
parents: 4745
diff changeset
   120
    This guarantees, that a smalltalk string can always be passed to a
118dff933bf3 docu fixed - yes, String does allow storing 0-bytes.
Claus Gittinger <cg@exept.de>
parents: 4745
diff changeset
   121
    C- or a system api function without danger (of course, this does not
118dff933bf3 docu fixed - yes, String does allow storing 0-bytes.
Claus Gittinger <cg@exept.de>
parents: 4745
diff changeset
   122
    prevent a nonsense contents ...)
3
24d81bf47225 *** empty log message ***
claus
parents: 2
diff changeset
   123
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   124
    You cannot add any instvars to String, since the the run time system & compiler
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   125
    creates literal strings and knows that strings have no named instvars.
3809
dd1df62365ee use threadsafe fprintf (win32)
Claus Gittinger <cg@exept.de>
parents: 3751
diff changeset
   126
    If you really need strings with instVars, you have to create a subclass
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   127
    of String (the access functions defined here can handle this).
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   128
    A little warning though: not all smalltalk systems allow subclassing String,
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   129
    so your program may become unportable if you do so.
1290
15ba3221b89b documentation
Claus Gittinger <cg@exept.de>
parents: 1264
diff changeset
   130
7895
Claus Gittinger <cg@exept.de>
parents: 7891
diff changeset
   131
    Strings have an implicit (assumed) encoding of iso8859-1.
Claus Gittinger <cg@exept.de>
parents: 7891
diff changeset
   132
    For strings with other encodings, either keep the encoding separately,
Claus Gittinger <cg@exept.de>
parents: 7891
diff changeset
   133
    or use instances of encodedString.
Claus Gittinger <cg@exept.de>
parents: 7891
diff changeset
   134
1290
15ba3221b89b documentation
Claus Gittinger <cg@exept.de>
parents: 1264
diff changeset
   135
    [author:]
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   136
	Claus Gittinger
1310
e910406fbecf commentary
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
   137
e910406fbecf commentary
Claus Gittinger <cg@exept.de>
parents: 1290
diff changeset
   138
    [see also:]
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   139
	Text StringCollection TwoByteString JISEncodedString
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   140
	Symbol
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   141
"
3
24d81bf47225 *** empty log message ***
claus
parents: 2
diff changeset
   142
! !
24d81bf47225 *** empty log message ***
claus
parents: 2
diff changeset
   143
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   144
!String class methodsFor:'instance creation'!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   145
a27a279701f8 Initial revision
claus
parents:
diff changeset
   146
basicNew:anInteger
4802
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   147
    "return a new empty string with anInteger characters.
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   148
     In contrast to other smalltalks, this returns a string filled
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   149
     with spaces (instead of a string filled with 0-bytes).
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   150
     This makes much more sense, in that a freshly created string
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   151
     can be directly used as separator or for formatting."
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   152
a27a279701f8 Initial revision
claus
parents:
diff changeset
   153
%{  /* NOCONTEXT */
a27a279701f8 Initial revision
claus
parents:
diff changeset
   154
a27a279701f8 Initial revision
claus
parents:
diff changeset
   155
    OBJ newString;
a27a279701f8 Initial revision
claus
parents:
diff changeset
   156
    REGISTER int len;
a27a279701f8 Initial revision
claus
parents:
diff changeset
   157
    REGISTER unsigned char *cp;
a27a279701f8 Initial revision
claus
parents:
diff changeset
   158
    REGISTER OBJ *op;
a27a279701f8 Initial revision
claus
parents:
diff changeset
   159
    int nInstVars, instsize;
a27a279701f8 Initial revision
claus
parents:
diff changeset
   160
252
   161
    if (__isSmallInteger(anInteger)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   162
	len = __intVal(anInteger);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   163
	if (len >= 0) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   164
	    instsize = OHDR_SIZE + len + 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   165
	    if (self == String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   166
		if (__CanDoQuickNew(instsize)) {        /* OBJECT ALLOCATION */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   167
		    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   168
		     * the most common case
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   169
		     */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   170
		    __qCheckedNew(newString, instsize);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   171
		    __InstPtr(newString)->o_class = self; /* no need for PROTECT - there was no GC */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   172
		    __qSTORE(newString, self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   173
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   174
		    cp = __stringVal(newString);
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
   175
357
claus
parents: 347
diff changeset
   176
#if defined(memset4) && !defined(NON_ASCII)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   177
		    {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   178
			/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   179
			 * no sizeof(int) here please -
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   180
			 * - memset4 (if defined) fills 4-bytes on ALL machines
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   181
			 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   182
			int l4 = len >> 2;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   183
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   184
			if (len & 3) l4++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   185
			memset4(cp, 0x20202020, l4);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   186
			cp[len] = '\0';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   187
		    }
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   188
#else
357
claus
parents: 347
diff changeset
   189
# ifdef FAST_MEMSET
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   190
		    memset(cp, ' ', len);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   191
		    cp[len] = '\0';
357
claus
parents: 347
diff changeset
   192
# else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   193
		    while (len >= 8) {
3449
84160615c630 oops - basicNew was bad for subclasses of String.
Claus Gittinger <cg@exept.de>
parents: 3403
diff changeset
   194
#  ifndef NON_ASCII       /* i.e. EBCDIC  */
2954
a2f437a0483a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
   195
#   ifdef INT64
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   196
			((INT64 *)cp)[0] = 0x2020202020202020L;
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
   197
#   else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   198
			((int *)cp)[0] = 0x20202020;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   199
			((int *)cp)[1] = 0x20202020;
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
   200
#   endif
357
claus
parents: 347
diff changeset
   201
#  else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   202
			cp[0] = cp[1] = cp[2] = cp[3] = ' ';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   203
			cp[4] = cp[5] = cp[6] = cp[7] = ' ';
357
claus
parents: 347
diff changeset
   204
#  endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   205
			cp += 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   206
			len -= 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   207
		    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   208
		    while (len--)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   209
			*cp++ = ' ';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   210
		    *cp = '\0';
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
   211
# endif /* not FAST_MEMSET */
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
   212
#endif /* not memset4 */
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
   213
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   214
		    RETURN (newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   215
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   216
		nInstVars = 0;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   217
	    } else {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   218
		nInstVars = __intVal(__ClassInstPtr(self)->c_ninstvars);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   219
		instsize += __OBJS2BYTES__(nInstVars);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   220
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   221
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   222
	    __PROTECT_CONTEXT__;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   223
	    __qNew(newString, instsize);        /* OBJECT ALLOCATION */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   224
	    __UNPROTECT_CONTEXT__;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   225
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   226
	    if (newString == nil) goto fail;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   227
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   228
	    __InstPtr(newString)->o_class = self;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   229
	    __qSTORE(newString, self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   230
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   231
	    cp = __stringVal(newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   232
	    if (nInstVars) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   233
		cp += __OBJS2BYTES__(nInstVars);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   234
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   235
		/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   236
		 * nil-out instvars
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   237
		 */
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
   238
#if defined(memset4)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   239
		memset4(__InstPtr(newString)->i_instvars, nil, nInstVars);
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
   240
#else
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
   241
# if defined(FAST_MEMSET) && ! defined(NEGATIVE_ADDRESSES)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   242
		/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   243
		 * knowing that nil is 0
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   244
		 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   245
		memset(__InstPtr(newString)->i_instvars, 0, __OBJS2BYTES__(nInstVars));
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
   246
# else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   247
		op = __InstPtr(newString)->i_instvars;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   248
		do {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   249
		    *op++ = nil;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   250
		} while (--nInstVars);
357
claus
parents: 347
diff changeset
   251
# endif
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   252
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   253
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   254
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   255
	    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   256
	     * fill with spaces
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   257
	     */
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
   258
#ifdef FAST_MEMSET
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   259
	    memset(cp, ' ', len);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   260
	    *(cp + len) = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   261
#else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   262
	    while (len >= 8) {
357
claus
parents: 347
diff changeset
   263
# ifndef NON_ASCII       /* i.e. EBCDIC ;-) */
2954
a2f437a0483a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
   264
#  ifdef INT64
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   265
		((INT64 *)cp)[0] = 0x2020202020202020L;
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
   266
#  else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   267
		((int *)cp)[0] = 0x20202020;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   268
		((int *)cp)[1] = 0x20202020;
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
   269
#  endif
357
claus
parents: 347
diff changeset
   270
# else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   271
		cp[0] = cp[1] = cp[2] = cp[3] = ' ';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   272
		cp[4] = cp[5] = cp[6] = cp[7] = ' ';
357
claus
parents: 347
diff changeset
   273
# endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   274
		cp += 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   275
		len -= 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   276
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   277
	    while (len--)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   278
		*cp++ = ' ';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   279
	    *cp = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   280
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   281
	    RETURN (newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   282
	}
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   283
    }
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   284
fail: ;;
1019
db8afc103e37 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 1015
diff changeset
   285
%}.
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   286
    "
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   287
     invalid argument, or out-of-memory:
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   288
     use error handling in superclass
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   289
    "
6766
a43b97582d4b oops - (String new:-1) did crash the system (atAllPut:)
Michael Beyl <mb@exept.de>
parents: 6599
diff changeset
   290
    (anInteger < 0) ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   291
	"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   292
	 the argument is negative,
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   293
	"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   294
	self error:'bad (negative) argument to new:'.
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   295
	^ nil
6766
a43b97582d4b oops - (String new:-1) did crash the system (atAllPut:)
Michael Beyl <mb@exept.de>
parents: 6599
diff changeset
   296
    ].
a43b97582d4b oops - (String new:-1) did crash the system (atAllPut:)
Michael Beyl <mb@exept.de>
parents: 6599
diff changeset
   297
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   298
    ^ (super basicNew:anInteger+1) atAllPut:(Character space)
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   299
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   300
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   301
new:n
4802
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   302
    "return a new empty string with anInteger characters.
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   303
     In contrast to other smalltalks, this returns a string filled
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   304
     with spaces (instead of a string filled with 0-bytes).
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   305
     This makes much more sense, in that a freshly created string
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   306
     can be directly used as separator or for formatting."
0021d360c891 comments
Claus Gittinger <cg@exept.de>
parents: 4800
diff changeset
   307
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   308
    ^ self basicNew:n
347
claus
parents: 345
diff changeset
   309
!
claus
parents: 345
diff changeset
   310
6599
f4b35853b094 consiostency in #readFrom: - allow string argument
Claus Gittinger <cg@exept.de>
parents: 6588
diff changeset
   311
readFrom:aStreamOrString onError:exceptionBlock
347
claus
parents: 345
diff changeset
   312
    "read & return the next String from the (character-)stream aStream;
claus
parents: 345
diff changeset
   313
     skipping all whitespace first; return the value of exceptionBlock,
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   314
     if no string can be read. The sequence of characters as read from the
347
claus
parents: 345
diff changeset
   315
     stream must be one as stored via storeOn: or storeString."
claus
parents: 345
diff changeset
   316
claus
parents: 345
diff changeset
   317
    "
claus
parents: 345
diff changeset
   318
     this method is not to be inherited
claus
parents: 345
diff changeset
   319
     (i.e. not ok for subclasses; Symbol, for example)
claus
parents: 345
diff changeset
   320
    "
claus
parents: 345
diff changeset
   321
    self ~~ String ifTrue:[
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
   322
	^ super readFrom:aStreamOrString onError:exceptionBlock
347
claus
parents: 345
diff changeset
   323
    ].
9426
1f45fcd79d08 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9367
diff changeset
   324
    ^ self readSmalltalkStringFrom:aStreamOrString onError:exceptionBlock
347
claus
parents: 345
diff changeset
   325
claus
parents: 345
diff changeset
   326
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   327
     String readFrom:('''hello world''' readStream)
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   328
     String readFrom:('''hello '''' world''' readStream)
347
claus
parents: 345
diff changeset
   329
     String readFrom:('1 ''hello'' ' readStream)
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   330
     String readFrom:('1 ''hello'' ' readStream) onError:['foobar']
3376
d007727325da checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3335
diff changeset
   331
    "
d007727325da checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3335
diff changeset
   332
9426
1f45fcd79d08 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9367
diff changeset
   333
    "Modified: / 05-07-2006 / 16:41:29 / cg"
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   334
    "Modified: / 07-08-2006 / 15:03:09 / fm"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   335
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   336
7684
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   337
uninitializedNew:anInteger
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   338
    "return a new string with anInteger characters but undefined contents.
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   339
     Use this, if the string is filled anyway with new data, for example, if
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   340
     used as a stream buffer."
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   341
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   342
%{  /* NOCONTEXT */
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   343
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   344
    OBJ newString;
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   345
    REGISTER int len;
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   346
    REGISTER unsigned char *cp;
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   347
    REGISTER OBJ *op;
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   348
    int nInstVars, instsize;
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   349
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   350
    if (__isSmallInteger(anInteger)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   351
	len = __intVal(anInteger);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   352
	if (len >= 0) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   353
	    instsize = OHDR_SIZE + len + 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   354
	    if (self == String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   355
		if (__CanDoQuickNew(instsize)) {        /* OBJECT ALLOCATION */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   356
		    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   357
		     * the most common case
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   358
		     */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   359
		    __qCheckedNew(newString, instsize);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   360
		    __InstPtr(newString)->o_class = self; /* no need for PROTECT - there was no GC */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   361
		    __qSTORE(newString, self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   362
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   363
		    cp = __stringVal(newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   364
		    cp[len] = '\0';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   365
		    RETURN (newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   366
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   367
		nInstVars = 0;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   368
	    } else {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   369
		nInstVars = __intVal(__ClassInstPtr(self)->c_ninstvars);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   370
		instsize += __OBJS2BYTES__(nInstVars);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   371
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   372
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   373
	    __PROTECT_CONTEXT__;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   374
	    __qNew(newString, instsize);        /* OBJECT ALLOCATION */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   375
	    __UNPROTECT_CONTEXT__;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   376
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   377
	    if (newString == nil) goto fail;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   378
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   379
	    __InstPtr(newString)->o_class = self;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   380
	    __qSTORE(newString, self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   381
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   382
	    if (nInstVars) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   383
		/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   384
		 * nil-out instvars
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   385
		 */
7684
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   386
#if defined(memset4)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   387
		memset4(__InstPtr(newString)->i_instvars, nil, nInstVars);
7684
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   388
#else
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   389
# if defined(FAST_MEMSET) && ! defined(NEGATIVE_ADDRESSES)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   390
		/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   391
		 * knowing that nil is 0
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   392
		 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   393
		memset(__InstPtr(newString)->i_instvars, 0, __OBJS2BYTES__(nInstVars));
7684
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   394
# else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   395
		op = __InstPtr(newString)->i_instvars;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   396
		do {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   397
		    *op++ = nil;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   398
		} while (--nInstVars);
7684
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   399
# endif
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   400
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   401
		cp = __stringVal(newString) + __OBJS2BYTES__(nInstVars);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   402
	    } else {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   403
		cp = __stringVal(newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   404
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   405
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   406
	    *(cp + len) = '\0';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   407
	    RETURN (newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   408
	}
7684
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   409
    }
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   410
fail: ;;
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   411
%}.
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   412
    "
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   413
     invalid argument, or out-of-memory:
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   414
     use error handling in superclass
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   415
    "
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   416
    (anInteger < 0) ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   417
	"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   418
	 the argument is negative,
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   419
	"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   420
	self error:'bad (negative) argument to new:'.
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   421
	^ nil
7684
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   422
    ].
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   423
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   424
    ^ self basicNew:anInteger
7684
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   425
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   426
    "
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   427
     String uninitializedNew:100
01cf232f73e7 added uninitializedNew:
Claus Gittinger <cg@exept.de>
parents: 7599
diff changeset
   428
    "
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   429
! !
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   430
8438
317f70e84d61 Dolphin compatibility method #lineDelimiter
Stefan Vogel <sv@exept.de>
parents: 8415
diff changeset
   431
!String class methodsFor:'Compatibility-Dolphin'!
317f70e84d61 Dolphin compatibility method #lineDelimiter
Stefan Vogel <sv@exept.de>
parents: 8415
diff changeset
   432
317f70e84d61 Dolphin compatibility method #lineDelimiter
Stefan Vogel <sv@exept.de>
parents: 8415
diff changeset
   433
lineDelimiter
317f70e84d61 Dolphin compatibility method #lineDelimiter
Stefan Vogel <sv@exept.de>
parents: 8415
diff changeset
   434
    "Dolphin compatibility: answer CR LF"
317f70e84d61 Dolphin compatibility method #lineDelimiter
Stefan Vogel <sv@exept.de>
parents: 8415
diff changeset
   435
317f70e84d61 Dolphin compatibility method #lineDelimiter
Stefan Vogel <sv@exept.de>
parents: 8415
diff changeset
   436
    ^ self crlf
317f70e84d61 Dolphin compatibility method #lineDelimiter
Stefan Vogel <sv@exept.de>
parents: 8415
diff changeset
   437
! !
317f70e84d61 Dolphin compatibility method #lineDelimiter
Stefan Vogel <sv@exept.de>
parents: 8415
diff changeset
   438
7302
13a053c255bf category
Claus Gittinger <cg@exept.de>
parents: 7283
diff changeset
   439
!String class methodsFor:'Compatibility-Squeak'!
4981
2ee8cd2c4c8e squeak compatibility
ps
parents: 4802
diff changeset
   440
2ee8cd2c4c8e squeak compatibility
ps
parents: 4802
diff changeset
   441
cr
4994
dbeb92c54dc7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4993
diff changeset
   442
    "return a string consisting of the cr-Character"
4993
569d1fa22e91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4981
diff changeset
   443
14330
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
   444
    CR isNil ifTrue:[
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
   445
        CR := String with:Character return
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
   446
    ].
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
   447
    ^ CR
4993
569d1fa22e91 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 4981
diff changeset
   448
4994
dbeb92c54dc7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4993
diff changeset
   449
    "Modified: / 13.11.1999 / 13:53:36 / cg"
7282
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   450
!
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   451
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   452
crlf
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   453
    "return a string consisting of the cr-lf Characters"
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   454
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   455
    CRLF isNil ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   456
	CRLF := String
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   457
		    with:Character return
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   458
		    with:Character linefeed
7282
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   459
    ].
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   460
    ^ CRLF
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   461
!
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   462
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   463
lf
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   464
    "return a string consisting of the lf Character"
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   465
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   466
    LF isNil ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   467
	LF := String with:Character linefeed
7282
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   468
    ].
75a51feb84c8 +crlf / +lf
Claus Gittinger <cg@exept.de>
parents: 7219
diff changeset
   469
    ^ LF
11856
Claus Gittinger <cg@exept.de>
parents: 11824
diff changeset
   470
!
Claus Gittinger <cg@exept.de>
parents: 11824
diff changeset
   471
12344
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   472
stringHash:aString initialHash:speciesHash
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   473
    "for squeak compatibility only; this is NOT the same hash as my instances use"
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   474
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   475
    | stringSize hash low |
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   476
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   477
    stringSize := aString size.
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   478
    hash := speciesHash bitAnd: 16rFFFFFFF.
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   479
    1 to: stringSize do: [:pos |
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   480
        hash := hash + (aString at: pos) asInteger.
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   481
        "Begin hashMultiply"
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   482
        low := hash bitAnd: 16383.
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   483
        hash := (16r260D * low + ((16r260D * (hash bitShift: -14) + (16r0065 * low) bitAnd: 16383) * 16384)) bitAnd: 16r0FFFFFFF.
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   484
    ].
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   485
    ^ hash.
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   486
!
a4cf954bb1e1 added: #stringHash:initialHash:
Claus Gittinger <cg@exept.de>
parents: 12184
diff changeset
   487
11856
Claus Gittinger <cg@exept.de>
parents: 11824
diff changeset
   488
tab
Claus Gittinger <cg@exept.de>
parents: 11824
diff changeset
   489
    "return a string consisting of the tab-Character"
Claus Gittinger <cg@exept.de>
parents: 11824
diff changeset
   490
14330
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
   491
    TAB isNil ifTrue:[
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
   492
        TAB := String with:Character tab
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
   493
    ].
be357b5c0adb changed:
Claus Gittinger <cg@exept.de>
parents: 14301
diff changeset
   494
    ^ TAB
4981
2ee8cd2c4c8e squeak compatibility
ps
parents: 4802
diff changeset
   495
! !
2ee8cd2c4c8e squeak compatibility
ps
parents: 4802
diff changeset
   496
13182
534223d5e690 changed: #browserView:
Stefan Vogel <sv@exept.de>
parents: 13116
diff changeset
   497
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   498
!String class methodsFor:'queries'!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   499
2680
18c85df5d930 #defaultPlatformClass for ST-80 compatibility
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   500
defaultPlatformClass
18c85df5d930 #defaultPlatformClass for ST-80 compatibility
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   501
    "dummy for ST-80 compatibility"
18c85df5d930 #defaultPlatformClass for ST-80 compatibility
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   502
18c85df5d930 #defaultPlatformClass for ST-80 compatibility
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   503
    ^ self
18c85df5d930 #defaultPlatformClass for ST-80 compatibility
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   504
18c85df5d930 #defaultPlatformClass for ST-80 compatibility
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   505
    "Created: 6.6.1997 / 18:25:56 / cg"
18c85df5d930 #defaultPlatformClass for ST-80 compatibility
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   506
!
18c85df5d930 #defaultPlatformClass for ST-80 compatibility
Claus Gittinger <cg@exept.de>
parents: 2670
diff changeset
   507
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   508
isBuiltInClass
1264
8d916aa63bce commentary
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
   509
    "return true if this class is known by the run-time-system.
8d916aa63bce commentary
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
   510
     Here, true is returned for myself, false for subclasses."
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   511
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   512
    ^ self == String
1264
8d916aa63bce commentary
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
   513
8d916aa63bce commentary
Claus Gittinger <cg@exept.de>
parents: 1251
diff changeset
   514
    "Modified: 23.4.1996 / 16:00:38 / cg"
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   515
! !
a27a279701f8 Initial revision
claus
parents:
diff changeset
   516
9182
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   517
!String methodsFor:'Compatibility-VW5.4'!
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   518
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   519
asGUID
13204
12cea2d85706 changed: #asGUID
Claus Gittinger <cg@exept.de>
parents: 13182
diff changeset
   520
    "return self as a GUID (or UUID if not present)"
12cea2d85706 changed: #asGUID
Claus Gittinger <cg@exept.de>
parents: 13182
diff changeset
   521
12cea2d85706 changed: #asGUID
Claus Gittinger <cg@exept.de>
parents: 13182
diff changeset
   522
    GUID notNil ifTrue:[ ^ GUID fromString:self ].
9182
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   523
    ^ self asUUID
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   524
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   525
    "
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   526
     '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}' asGUID
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   527
    "
13204
12cea2d85706 changed: #asGUID
Claus Gittinger <cg@exept.de>
parents: 13182
diff changeset
   528
12cea2d85706 changed: #asGUID
Claus Gittinger <cg@exept.de>
parents: 13182
diff changeset
   529
    "Modified: / 12-01-2011 / 12:33:58 / cg"
9182
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   530
! !
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
   531
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   532
!String methodsFor:'accessing'!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   533
329
claus
parents: 314
diff changeset
   534
at:index
claus
parents: 314
diff changeset
   535
    "return the character at position index, an Integer.
345
claus
parents: 329
diff changeset
   536
     Reimplemented here to avoid the additional at:->basicAt: send
claus
parents: 329
diff changeset
   537
     (which we can do here, since at: is obviously not redefined in a subclass).
329
claus
parents: 314
diff changeset
   538
     This method is the same as at:."
claus
parents: 314
diff changeset
   539
claus
parents: 314
diff changeset
   540
%{  /* NOCONTEXT */
claus
parents: 314
diff changeset
   541
claus
parents: 314
diff changeset
   542
    REGISTER int indx;
1143
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   543
    REGISTER OBJ slf, cls;
329
claus
parents: 314
diff changeset
   544
claus
parents: 314
diff changeset
   545
    if (__isSmallInteger(index)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   546
	slf = self;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   547
	cls = __qClass(slf);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   548
	indx = __intVal(index) - 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   549
	if (cls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   550
	    if (indx < 0) goto badIndex;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   551
	    indx += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   552
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   553
	if ((unsigned)indx < (unsigned)(__stringSize(slf))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   554
	    RETURN ( __MKCHARACTER(__stringVal(slf)[indx] & 0xFF) );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   555
	}
329
claus
parents: 314
diff changeset
   556
    }
4388
b4ca5cf130c7 oops - subclasses with instVars allowed for index-less-than-1-access
Claus Gittinger <cg@exept.de>
parents: 4247
diff changeset
   557
badIndex: ;
329
claus
parents: 314
diff changeset
   558
%}.
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   559
    ^ self basicAt:index
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   560
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   561
329
claus
parents: 314
diff changeset
   562
at:index put:aCharacter
claus
parents: 314
diff changeset
   563
    "store the argument, aCharacter at position index, an Integer.
1218
5ed62714c8d1 commentary; ignoredMethods removed
Claus Gittinger <cg@exept.de>
parents: 1143
diff changeset
   564
     Return aCharacter (sigh).
345
claus
parents: 329
diff changeset
   565
     Reimplemented here to avoid the additional at:put:->basicAt:put: send
claus
parents: 329
diff changeset
   566
     (but only for Strings, since subclasses may redefine basicAt:put:).
329
claus
parents: 314
diff changeset
   567
     This method is the same as basicAt:put:."
claus
parents: 314
diff changeset
   568
claus
parents: 314
diff changeset
   569
%{  /* NOCONTEXT */
claus
parents: 314
diff changeset
   570
claus
parents: 314
diff changeset
   571
    REGISTER int value, indx;
1143
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   572
    REGISTER OBJ slf;
329
claus
parents: 314
diff changeset
   573
1143
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   574
    slf = self;
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   575
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   576
    if (__isString(slf)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   577
	if (__isCharacter(aCharacter)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   578
	    value = __intVal(_characterVal(aCharacter));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   579
	    if (((unsigned)value <= 0xFF)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   580
	     && __isSmallInteger(index)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   581
		indx = __intVal(index) - 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   582
		if ((unsigned)indx < (unsigned)(__stringSize(slf))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   583
		    __stringVal(slf)[indx] = value;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   584
		    RETURN ( aCharacter );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   585
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   586
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   587
	}
329
claus
parents: 314
diff changeset
   588
    }
claus
parents: 314
diff changeset
   589
%}.
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   590
    ^ self basicAt:index put:aCharacter
329
claus
parents: 314
diff changeset
   591
!
claus
parents: 314
diff changeset
   592
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   593
basicAt:index
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   594
    "return the character at position index, an Integer
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   595
     - reimplemented here since we return characters"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   596
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   597
%{  /* NOCONTEXT */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   598
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   599
    REGISTER int indx;
1143
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   600
    REGISTER OBJ slf, cls;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   601
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   602
    if (__isSmallInteger(index)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   603
	slf = self;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   604
	cls = __qClass(slf);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   605
	indx = __intVal(index) - 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   606
	if (cls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   607
	    if (indx < 0) goto badIndex;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   608
	    indx += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   609
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   610
	if ((unsigned)indx < (unsigned)(__stringSize(slf))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   611
	    RETURN ( __MKCHARACTER(__stringVal(slf)[indx] & 0xFF) );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   612
	}
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   613
    }
4388
b4ca5cf130c7 oops - subclasses with instVars allowed for index-less-than-1-access
Claus Gittinger <cg@exept.de>
parents: 4247
diff changeset
   614
badIndex: ;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   615
%}.
3451
be63b5abd89a indexNotInteger error
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   616
    index isInteger ifFalse:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   617
	^ self indexNotInteger:index
3451
be63b5abd89a indexNotInteger error
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   618
    ].
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   619
    index == super basicSize ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   620
	^ self subscriptBoundsError:index
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   621
    ].
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   622
    ^ Character value:(super basicAt:index)
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   623
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   624
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   625
basicAt:index put:aCharacter
1218
5ed62714c8d1 commentary; ignoredMethods removed
Claus Gittinger <cg@exept.de>
parents: 1143
diff changeset
   626
    "store the argument, aCharacter at position index, an Integer.
5ed62714c8d1 commentary; ignoredMethods removed
Claus Gittinger <cg@exept.de>
parents: 1143
diff changeset
   627
     Returns aCharacter (sigh).
1143
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   628
     - reimplemented here since we store characters"
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   629
a27a279701f8 Initial revision
claus
parents:
diff changeset
   630
%{  /* NOCONTEXT */
a27a279701f8 Initial revision
claus
parents:
diff changeset
   631
a27a279701f8 Initial revision
claus
parents:
diff changeset
   632
    REGISTER int value, indx;
1143
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   633
    REGISTER OBJ slf;
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   634
    REGISTER OBJ cls;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   635
1143
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   636
    slf = self;
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   637
27325100bdf4 can check index against low..hi with a single compare&branch
Claus Gittinger <cg@exept.de>
parents: 1138
diff changeset
   638
    if (__isCharacter(aCharacter)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   639
	value = __intVal(_characterVal(aCharacter));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   640
	if (((unsigned)value <= 0xFF)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   641
	 && __isSmallInteger(index)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   642
	    cls = __qClass(slf);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   643
	    indx = __intVal(index) - 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   644
	    if (cls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   645
		if (indx < 0) goto badIndex;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   646
		indx += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   647
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   648
	    if ((unsigned)indx < (unsigned)(__stringSize(slf))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   649
		__stringVal(slf)[indx] = value;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   650
		RETURN ( aCharacter );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   651
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   652
	}
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   653
    }
4388
b4ca5cf130c7 oops - subclasses with instVars allowed for index-less-than-1-access
Claus Gittinger <cg@exept.de>
parents: 4247
diff changeset
   654
badIndex: ;
159
514c749165c3 *** empty log message ***
claus
parents: 95
diff changeset
   655
%}.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   656
    (aCharacter isMemberOf:Character) ifFalse:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   657
	"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   658
	 tried to store something which is not a character
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   659
	"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   660
	^ self elementNotCharacter
299
bc0645db1ab0 *** empty log message ***
claus
parents: 286
diff changeset
   661
    ].
8093
8ca1e24688d8 Use #codePoint instead of deprecated #asciiValue
Stefan Vogel <sv@exept.de>
parents: 8049
diff changeset
   662
    (aCharacter codePoint between:1 and:255) ifFalse:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   663
	"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   664
	 tried to store a multibyte character
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   665
	"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   666
	^ self elementBoundsError:aCharacter
299
bc0645db1ab0 *** empty log message ***
claus
parents: 286
diff changeset
   667
    ].
bc0645db1ab0 *** empty log message ***
claus
parents: 286
diff changeset
   668
    "
bc0645db1ab0 *** empty log message ***
claus
parents: 286
diff changeset
   669
     invalid index
bc0645db1ab0 *** empty log message ***
claus
parents: 286
diff changeset
   670
    "
3451
be63b5abd89a indexNotInteger error
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   671
    index isInteger ifFalse:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   672
	^ self indexNotInteger:index
3451
be63b5abd89a indexNotInteger error
Claus Gittinger <cg@exept.de>
parents: 3449
diff changeset
   673
    ].
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   674
    index == super basicSize ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
   675
	^ self subscriptBoundsError:index
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   676
    ].
8093
8ca1e24688d8 Use #codePoint instead of deprecated #asciiValue
Stefan Vogel <sv@exept.de>
parents: 8049
diff changeset
   677
    super basicAt:index put:aCharacter codePoint.
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   678
    ^ aCharacter
12716
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   679
!
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   680
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   681
first
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   682
    "return the first character.
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   683
     Reimplemented here for speed"
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   684
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   685
%{  /* NOCONTEXT */
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   686
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   687
    REGISTER int indx;
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   688
    REGISTER OBJ slf, cls;
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   689
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   690
    slf = self;
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   691
    cls = __qClass(slf);
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   692
    indx = 0;
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   693
    if (cls != String) {
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   694
        if (indx < 0) goto badIndex;
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   695
        indx += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   696
    }
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   697
    if ((unsigned)indx < (unsigned)(__stringSize(slf))) {
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   698
        RETURN ( __MKCHARACTER(__stringVal(slf)[indx] & 0xFF) );
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   699
    }
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   700
badIndex: ;
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   701
%}.
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   702
    ^ super first
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   703
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   704
    "
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   705
     'abc' first
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   706
     '' first
140435b1ac4e added: #first
Claus Gittinger <cg@exept.de>
parents: 12485
diff changeset
   707
    "
2
claus
parents: 1
diff changeset
   708
! !
claus
parents: 1
diff changeset
   709
13182
534223d5e690 changed: #browserView:
Stefan Vogel <sv@exept.de>
parents: 13116
diff changeset
   710
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
   711
!String methodsFor:'character searching'!
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   712
1950
2378ed1ae467 must fall back to super searchers, when searching
Claus Gittinger <cg@exept.de>
parents: 1804
diff changeset
   713
identityIndexOf:aCharacter
2378ed1ae467 must fall back to super searchers, when searching
Claus Gittinger <cg@exept.de>
parents: 1804
diff changeset
   714
    "return the index of the first occurrences of the argument, aCharacter
2378ed1ae467 must fall back to super searchers, when searching
Claus Gittinger <cg@exept.de>
parents: 1804
diff changeset
   715
     in the receiver or 0 if not found - reimplemented here for speed."
2378ed1ae467 must fall back to super searchers, when searching
Claus Gittinger <cg@exept.de>
parents: 1804
diff changeset
   716
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   717
    ^ self indexOf:aCharacter
1950
2378ed1ae467 must fall back to super searchers, when searching
Claus Gittinger <cg@exept.de>
parents: 1804
diff changeset
   718
2378ed1ae467 must fall back to super searchers, when searching
Claus Gittinger <cg@exept.de>
parents: 1804
diff changeset
   719
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   720
     'hello world' identityIndexOf:(Character space)
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   721
     'hello world' identityIndexOf:$d
6331
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
   722
     'hello world' identityIndexOf:1
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
   723
     #[0 0 1 0 0] asString identityIndexOf:(Character value:1)
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
   724
     #[0 0 1 0 0] asString identityIndexOf:(Character value:0)
1950
2378ed1ae467 must fall back to super searchers, when searching
Claus Gittinger <cg@exept.de>
parents: 1804
diff changeset
   725
    "
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   726
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   727
    "Modified: / 10-01-2012 / 17:07:12 / cg"
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   728
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
   729
13923
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   730
identityIndexOf:aCharacter startingAt:index
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   731
    "return the index of the first occurrences of the argument, aCharacter
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   732
     in the receiver or 0 if not found - reimplemented here for speed."
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   733
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   734
    ^ self indexOf:aCharacter startingAt:index
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   735
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   736
    "
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   737
     'hello world' identityIndexOf:(Character space)
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   738
     'hello world' identityIndexOf:$d
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   739
     'hello world' identityIndexOf:1
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   740
     #[0 0 1 0 0] asString identityIndexOf:(Character value:1)
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   741
     #[0 0 1 0 0] asString identityIndexOf:(Character value:0)
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   742
    "
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   743
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   744
    "Created: / 10-01-2012 / 17:10:54 / cg"
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   745
!
d5c7ee3d3d6a added: #identityIndexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13922
diff changeset
   746
10
claus
parents: 5
diff changeset
   747
includesAny:aCollection
claus
parents: 5
diff changeset
   748
    "return true, if the receiver includes any of the characters in the
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
   749
     argument, aCollection.
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
   750
     - redefined for speed if the argument is a String."
10
claus
parents: 5
diff changeset
   751
claus
parents: 5
diff changeset
   752
%{  /* NOCONTEXT */
claus
parents: 5
diff changeset
   753
claus
parents: 5
diff changeset
   754
    REGISTER unsigned char *cp;
claus
parents: 5
diff changeset
   755
    REGISTER unsigned char *matchP;
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
   756
    OBJ cls;
10
claus
parents: 5
diff changeset
   757
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   758
    if (__isStringLike(aCollection)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   759
        matchP = __stringVal(aCollection);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   760
        cp = __stringVal(self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   761
        if ((cls = __qClass(self)) != String)
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   762
            cp += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   763
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   764
        switch (__stringSize(aCollection)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   765
            case 3:
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   766
                /* three character search */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   767
                if (strchr(cp, matchP[2])) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   768
                    RETURN ( true );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   769
                }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   770
                /* fall into */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   771
            case 2:
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   772
                /* two character search */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   773
                if (strchr(cp, matchP[1])) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   774
                    RETURN ( true );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   775
                }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   776
                /* fall into */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   777
            case 1:
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   778
                /* single character search */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   779
                if (strchr(cp, matchP[0])) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   780
                    RETURN ( true );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   781
                }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   782
                /* fall into */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   783
            case 0:
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   784
                RETURN ( false );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   785
        }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   786
        while (*cp) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   787
            if (strchr(matchP, *cp)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   788
                RETURN ( true );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   789
            }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   790
            cp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   791
        }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
   792
        RETURN ( false );
10
claus
parents: 5
diff changeset
   793
    }
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
   794
%}.
10
claus
parents: 5
diff changeset
   795
    ^ super includesAny:aCollection
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   796
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   797
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   798
     'hello world' includesAny:'abcd'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   799
     'hello world' includesAny:'xyz'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   800
     'hello world' includesAny:'xz'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   801
     'hello world' includesAny:'od'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   802
     'hello world' includesAny:'xd'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   803
     'hello world' includesAny:'dx'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   804
     'hello world' includesAny:(Array with:$a with:$b with:$d)
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   805
     'hello world' includesAny:(Array with:$x with:$y)
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
   806
     'hello world' includesAny:(Array with:1 with:2)
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   807
    "
10
claus
parents: 5
diff changeset
   808
!
claus
parents: 5
diff changeset
   809
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   810
indexOf:aCharacter startingAt:start
a27a279701f8 Initial revision
claus
parents:
diff changeset
   811
    "return the index of the first occurrence of the argument, aCharacter
a27a279701f8 Initial revision
claus
parents:
diff changeset
   812
     in myself starting at start, anInteger or 0 if not found;
a27a279701f8 Initial revision
claus
parents:
diff changeset
   813
     - reimplemented here for speed"
a27a279701f8 Initial revision
claus
parents:
diff changeset
   814
a27a279701f8 Initial revision
claus
parents:
diff changeset
   815
%{  /* NOCONTEXT */
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   816
#undef __UNROLL_LOOPS__
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   817
#undef FAST_MEMCHR
13922
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
   818
#define V2
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   819
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   820
    REGISTER unsigned char *cp;
8923
ba871e13e4f0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8922
diff changeset
   821
#ifdef FAST_MEMCHR
ba871e13e4f0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8922
diff changeset
   822
    REGISTER unsigned char *ncp;
8925
04f0070787ee *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8924
diff changeset
   823
#endif
8913
b9498d27a554 64bit; mkSmallInteger
Claus Gittinger <cg@exept.de>
parents: 8898
diff changeset
   824
    REGISTER INT index;
2858
866ffc52ac8a oops - need unsigned character compares
Claus Gittinger <cg@exept.de>
parents: 2856
diff changeset
   825
    REGISTER unsigned byteValue;
8924
eb2dd7dd459f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8923
diff changeset
   826
    int last;
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
   827
    OBJ cls;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   828
252
   829
    if (__isSmallInteger(start)) {
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   830
        index = __intVal(start);
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   831
        if (index > 0) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   832
            if (__isCharacter(aCharacter)) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   833
                byteValue = __intVal(_characterVal(aCharacter));
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   834
                if (byteValue <= 0xFF) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   835
                    last = __stringSize(self);
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   836
                    cp = __stringVal(self);
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   837
                    if ((cls = __qClass(self)) != String) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   838
                        int numInstBytes = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   839
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   840
                        cp += numInstBytes;
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   841
                        last += numInstBytes;
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   842
                    }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   843
                    if (index <= last) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   844
#ifdef FAST_MEMCHR    
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   845
                        ncp = (unsigned char *) memchr(cp+index-1, byteValue, last+1-index);
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   846
                        if (ncp) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   847
                            RETURN ( __mkSmallInteger(ncp - cp + 1) );
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   848
                        }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   849
#else
8928
e2ca4ffa55b1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8927
diff changeset
   850
# ifdef __UNROLL_LOOPS__
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   851
                        {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   852
                            int last3 = last-3;
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   853
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   854
                            for (; index <= last3; index += 4) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   855
                                if (cp[index-1] == byteValue) { RETURN ( __mkSmallInteger(index) ); }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   856
                                if (cp[index-1+1] == byteValue) { RETURN ( __mkSmallInteger(index+1) ); }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   857
                                if (cp[index-1+2] == byteValue) { RETURN ( __mkSmallInteger(index+2) ); }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   858
                                if (cp[index-1+3] == byteValue) { RETURN ( __mkSmallInteger(index+3) ); }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   859
                            }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   860
                        }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   861
# endif
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   862
# ifdef V1
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   863
                        for (; index <= last; index++) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   864
                            if (cp[index-1] == byteValue) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   865
                                RETURN ( __mkSmallInteger(index) );
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   866
                            }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   867
                        }
8928
e2ca4ffa55b1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8927
diff changeset
   868
# endif
13922
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
   869
# ifdef V2
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   870
                        {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   871
                            // see bit twiddling hacks
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   872
#                           define hasZeroByte(v) (((v) - 0x01010101UL) & ~(v) & 0x80808080UL)
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   873
#                           define hasByteM(v,m)   hasZeroByte( (v) ^ m)
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   874
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   875
                            // the following loop checks four bytes at once
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   876
                            if (((index-1) & 0x3) == 0) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   877
                                int last4 = last-4;
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   878
                                int m = (~0UL/255 * (byteValue));
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   879
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   880
                                while (index <= last4) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   881
                                    unsigned int v = *(unsigned int *)(cp+index-1);
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   882
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   883
                                    if (hasByteM(v,m)) break;
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   884
                                    index += 4;
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   885
                                }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   886
                            }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   887
                            while (index <= last) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   888
                                if (cp[index-1] == byteValue) {
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   889
                                    RETURN ( __mkSmallInteger(index) );
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   890
                                }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   891
                                index++;
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   892
                            }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   893
                        }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   894
# endif
6833
bc361f384f7f care for twoByteChars in all inline-C code
Claus Gittinger <cg@exept.de>
parents: 6830
diff changeset
   895
#endif
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   896
                    }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   897
                }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   898
            }
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   899
            RETURN ( __mkSmallInteger(0) );
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   900
        }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   901
    }
13922
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
   902
#undef V2
370
claus
parents: 368
diff changeset
   903
%}.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
   904
    ^ super indexOf:aCharacter startingAt:start
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
   905
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
   906
    "
13922
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
   907
     'hello world' indexOf:$0 startingAt:1   
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
   908
     'hello world' indexOf:$l startingAt:1   
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
   909
     'hello world' indexOf:$l startingAt:5   
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
   910
     'hello world' indexOf:$d startingAt:5   
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
   911
     #[0 0 1 0 0] asString indexOf:(Character value:1) startingAt:1  
6331
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
   912
     #[0 0 1 0 0] asString indexOf:(Character value:0) startingAt:3
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   913
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   914
     '1234567890123456a' indexOf:$a      
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   915
     '1234567890123456a' indexOf:$b      
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   916
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   917
     |s|
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   918
     s := '12345678901234b'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   919
     self assert:(s indexOf:$x) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   920
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   921
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   922
     self assert:(s indexOf:$3) == 3.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   923
     self assert:(s indexOf:$4) == 4.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   924
     self assert:(s indexOf:$5) == 5.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   925
     self assert:(s indexOf:$0) == 10.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   926
     self assert:(s indexOf:$b) == 15.   
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   927
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   928
     |s|
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   929
     s := ''.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   930
     self assert:(s indexOf:$1) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   931
     s := '1'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   932
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   933
     self assert:(s indexOf:$2) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   934
     s := '12'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   935
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   936
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   937
     self assert:(s indexOf:$3) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   938
     s := '123'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   939
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   940
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   941
     self assert:(s indexOf:$3) == 3.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   942
     self assert:(s indexOf:$4) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   943
     s := '1234'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   944
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   945
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   946
     self assert:(s indexOf:$3) == 3.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   947
     self assert:(s indexOf:$4) == 4.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   948
     self assert:(s indexOf:$5) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   949
     s := '12345'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   950
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   951
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   952
     self assert:(s indexOf:$3) == 3.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   953
     self assert:(s indexOf:$4) == 4.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   954
     self assert:(s indexOf:$5) == 5.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   955
     self assert:(s indexOf:$6) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   956
     s := '123456'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   957
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   958
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   959
     self assert:(s indexOf:$3) == 3.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   960
     self assert:(s indexOf:$4) == 4.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   961
     self assert:(s indexOf:$5) == 5.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   962
     self assert:(s indexOf:$6) == 6.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   963
     self assert:(s indexOf:$7) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   964
     s := '1234567'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   965
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   966
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   967
     self assert:(s indexOf:$3) == 3.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   968
     self assert:(s indexOf:$4) == 4.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   969
     self assert:(s indexOf:$5) == 5.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   970
     self assert:(s indexOf:$6) == 6.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   971
     self assert:(s indexOf:$7) == 7.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   972
     self assert:(s indexOf:$8) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   973
     s := '12345678'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   974
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   975
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   976
     self assert:(s indexOf:$3) == 3.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   977
     self assert:(s indexOf:$4) == 4.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   978
     self assert:(s indexOf:$5) == 5.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   979
     self assert:(s indexOf:$6) == 6.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   980
     self assert:(s indexOf:$7) == 7.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   981
     self assert:(s indexOf:$8) == 8.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   982
     self assert:(s indexOf:$9) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   983
     s := '123456789'.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   984
     self assert:(s indexOf:$1) == 1.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   985
     self assert:(s indexOf:$2) == 2.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   986
     self assert:(s indexOf:$3) == 3.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   987
     self assert:(s indexOf:$4) == 4.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   988
     self assert:(s indexOf:$5) == 5.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   989
     self assert:(s indexOf:$6) == 6.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   990
     self assert:(s indexOf:$7) == 7.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   991
     self assert:(s indexOf:$8) == 8.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   992
     self assert:(s indexOf:$9) == 9.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   993
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   994
     self assert:(s indexOf:$0) == 0.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   995
     self assert:(s indexOf:$b) == 0.   
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   996
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   997
     |s|
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   998
     s := String new:1024.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
   999
     s atAllPut:$a.
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1000
     s at:512 put:(Character space).
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1001
     Time millisecondsToRun:[
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1002
        1000000 timesRepeat:[ s indexOf:(Character space) ]
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1003
     ]         
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1004
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1005
     timing (ms):
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1006
        v1: 1763 normal   
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1007
            2340 +unroll   
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1008
            3308 memsrch !!
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1009
        v2: 1045
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  1010
    "
13920
Claus Gittinger <cg@exept.de>
parents: 13880
diff changeset
  1011
13922
b693795611ea changed: #indexOf:startingAt:
Claus Gittinger <cg@exept.de>
parents: 13921
diff changeset
  1012
    "Modified: / 10-01-2012 / 17:09:34 / cg"
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1013
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1014
516
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1015
indexOfAny:aCollectionOfCharacters startingAt:start
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1016
    "return the index of the first occurrence of any character in aCollectionOfCharacters,
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1017
     in myself starting at start, anInteger or 0 if not found;
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1018
     - reimplemented here for speed if aCollectionOfCharacters is a string."
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1019
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1020
%{  /* NOCONTEXT */
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1021
13116
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1022
    unsigned char *ccp;
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1023
    unsigned char *cp;
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1024
    INT index;
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  1025
    unsigned char *matchP;
8006
04326d8f2410 tuned includesAny
Claus Gittinger <cg@exept.de>
parents: 7895
diff changeset
  1026
    unsigned char c, min, max;
516
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1027
    int len;
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1028
    OBJ cls;
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1029
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1030
    if (__isSmallInteger(start)
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1031
     && __isStringLike(aCollectionOfCharacters)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1032
        matchP = __stringVal(aCollectionOfCharacters);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1033
        index = __intVal(start);
13116
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1034
        if (index > 0) {
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1035
            cp = __stringVal(self) + index - 1;
13116
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1036
            if ((cls = __qClass(self)) != String) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1037
                cp += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1038
            }
13116
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1039
            len = __stringSize(self);
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1040
            if (index <= len) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1041
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1042
                if (matchP[0] == 0) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1043
                    /* matchSet is empty */
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1044
                    RETURN ( __mkSmallInteger(0) );
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1045
                }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1046
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1047
                if (matchP[1] == 0) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1048
                    /* only a single character match */
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1049
                    unsigned char m = matchP[0];
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1050
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1051
    #ifdef FAST_MEMCHR
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1052
                    ccp = (unsigned char *) memchr(cp, m, len+1-index);
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1053
                    if (ccp) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1054
                        RETURN ( __mkSmallInteger((ccp - cp) + index + 1) );
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1055
                    }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1056
    #else
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1057
                    while (c = *cp++) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1058
                        if (c == m) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1059
                            RETURN ( __mkSmallInteger(index) );
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1060
                        }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1061
                        index++;
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1062
                    }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1063
    #endif
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1064
                    RETURN ( __mkSmallInteger(0) );
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1065
                }
13116
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1066
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1067
                if (matchP[2] == 0) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1068
                    /* two character matches */
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1069
                    unsigned char m1 = matchP[0];
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1070
                    unsigned char m2 = matchP[1];
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1071
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1072
                    while (c = *cp++) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1073
                        if ((c == m1) || (c == m2)) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1074
                            RETURN ( __mkSmallInteger(index) );
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1075
                        }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1076
                        index++;
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1077
                    }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1078
                    RETURN ( __mkSmallInteger(0) );
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1079
                }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1080
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1081
                min = max = matchP[0];
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1082
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1083
                for (ccp = matchP+1; *ccp ; ccp++) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1084
                    unsigned char c = *ccp;
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1085
                    if (c < min) min = c;
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1086
                    else if (c > max) max = c;
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1087
                }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1088
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1089
                while (c = *cp++) {
13116
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1090
                    if ((c >= min) && (c <= max)) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1091
                        for (ccp = matchP; *ccp ; ccp++) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1092
                            if (*ccp == c) {
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1093
                                RETURN ( __mkSmallInteger(index) );
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1094
                            }
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1095
                        }
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1096
                    }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1097
                    index++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1098
                }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1099
            }
13116
467e182438ff changed: #indexOfAny:startingAt:
Stefan Vogel <sv@exept.de>
parents: 12763
diff changeset
  1100
            RETURN ( __mkSmallInteger(0) );
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  1101
        }
516
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1102
    }
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1103
%}.
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1104
    "/
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1105
    "/ fallback: 1st argument not a string or error
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1106
    "/
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1107
    ^ super indexOfAny:aCollectionOfCharacters startingAt:start
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1108
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1109
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1110
     'hello world' indexOfAny:'eoa' startingAt:1
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1111
     'hello world' indexOfAny:'eoa' startingAt:6
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1112
     'hello world' indexOfAny:'AOE' startingAt:1
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1113
     'hello world' indexOfAny:'o' startingAt:6
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1114
     'hello world' indexOfAny:'o' startingAt:6
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1115
     'hello world§' indexOfAny:'#§$' startingAt:6
516
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1116
    "
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1117
!
17a170eb1112 speedup indexOfAny:startingAt: if arg is a string
Claus Gittinger <cg@exept.de>
parents: 461
diff changeset
  1118
3668
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1119
indexOfControlCharacterStartingAt:start
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1120
    "return the index of the next control character;
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1121
     that is a character with asciiValue < 32.
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1122
     Return 0 if none is found."
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1123
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1124
%{  /* NOCONTEXT */
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1125
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1126
#ifndef NON_ASCII       /* i.e. not EBCDIC ;-) */
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1127
    REGISTER unsigned char *cp;
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1128
    REGISTER unsigned char c;
3734
5d4e741062bd may not finish search with 0-byte
Claus Gittinger <cg@exept.de>
parents: 3712
diff changeset
  1129
    REGISTER unsigned char *cpEnd;
3668
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1130
    int len, index;
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1131
    OBJ cls;
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1132
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1133
    index = __intVal(start);
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1134
    if (index <= 0) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1135
	index = 1;
3668
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1136
    }
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1137
    if ((cls = __qClass(self)) != String)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1138
	index += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
3668
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1139
    len = __stringSize(self);
3734
5d4e741062bd may not finish search with 0-byte
Claus Gittinger <cg@exept.de>
parents: 3712
diff changeset
  1140
    cpEnd = __stringVal(self) + len;
5d4e741062bd may not finish search with 0-byte
Claus Gittinger <cg@exept.de>
parents: 3712
diff changeset
  1141
    cp = __stringVal(self) + index - 1;
5d4e741062bd may not finish search with 0-byte
Claus Gittinger <cg@exept.de>
parents: 3712
diff changeset
  1142
    if (cp < cpEnd) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1143
	while (cp < cpEnd) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1144
	    if (*cp++ < ' ') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1145
		RETURN ( __mkSmallInteger(cp - __stringVal(self)) );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1146
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1147
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1148
	RETURN ( __mkSmallInteger(0) );
3668
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1149
    }
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1150
#endif
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1151
%}.
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1152
    ^ super indexOfControlCharacterStartingAt:start
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1153
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1154
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1155
     'hello world'             indexOfControlCharacterStartingAt:1
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1156
     'hello world\foo' withCRs indexOfControlCharacterStartingAt:1
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1157
     '1\' withCRs indexOfControlCharacterStartingAt:1
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1158
     '1\' withCRs indexOfControlCharacterStartingAt:2
3668
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1159
    "
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1160
!
76271941f044 added #indexOfControlCharacterStartingAt:
Claus Gittinger <cg@exept.de>
parents: 3651
diff changeset
  1161
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1162
indexOfNonSeparatorStartingAt:start
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1163
    "return the index of the next non-whiteSpace character"
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1164
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1165
%{  /* NOCONTEXT */
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1166
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1167
    REGISTER unsigned char *cp;
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1168
    REGISTER unsigned char c;
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1169
    int len, index;
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1170
    OBJ cls;
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1171
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1172
    index = __intVal(start);
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1173
    if (index <= 0) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1174
	index = 1;
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1175
    }
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1176
    if ((cls = __qClass(self)) != String)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1177
	index += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1178
    len = __stringSize(self);
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1179
    if (index > len) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1180
	RETURN ( __mkSmallInteger(0) );
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1181
    }
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1182
    cp = __stringVal(self) + index - 1;
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1183
    while (c = *cp++) {
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1184
#ifndef NON_ASCII       /* i.e. EBCDIC ;-) */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1185
	if (c > ' ')
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1186
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1187
	if ((c != ' ') && (c != '\t') && (c != '\n')
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1188
	 && (c != '\r') && (c != '\f')) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1189
	    RETURN ( __mkSmallInteger(cp - __stringVal(self)) );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1190
	}
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1191
    }
8913
b9498d27a554 64bit; mkSmallInteger
Claus Gittinger <cg@exept.de>
parents: 8898
diff changeset
  1192
    RETURN ( __mkSmallInteger(0) );
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1193
%}.
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  1194
    ^ super indexOfNonSeparatorStartingAt:start
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1195
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1196
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1197
     'hello world' indexOfNonWhiteSpaceStartingAt:3
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1198
     'hello world' indexOfNonWhiteSpaceStartingAt:7
3403
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1199
    "
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1200
!
904b613bfc7b checkin from browser
ca
parents: 3376
diff changeset
  1201
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1202
indexOfSeparatorStartingAt:start
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1203
    "return the index of the next separator character"
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1204
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1205
%{  /* NOCONTEXT */
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1206
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1207
    REGISTER unsigned char *cp;
2858
866ffc52ac8a oops - need unsigned character compares
Claus Gittinger <cg@exept.de>
parents: 2856
diff changeset
  1208
    REGISTER unsigned char c;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1209
    int len, index;
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  1210
    OBJ cls;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1211
1134
7cb7cd7ebeb8 underline cleanup
Claus Gittinger <cg@exept.de>
parents: 1019
diff changeset
  1212
    index = __intVal(start);
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1213
    if (index <= 0) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1214
	index = 1;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1215
    }
329
claus
parents: 314
diff changeset
  1216
    if ((cls = __qClass(self)) != String)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1217
	index += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
1134
7cb7cd7ebeb8 underline cleanup
Claus Gittinger <cg@exept.de>
parents: 1019
diff changeset
  1218
    len = __stringSize(self);
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1219
    if (index > len) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1220
	RETURN ( __mkSmallInteger(0) );
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1221
    }
1134
7cb7cd7ebeb8 underline cleanup
Claus Gittinger <cg@exept.de>
parents: 1019
diff changeset
  1222
    cp = __stringVal(self) + index - 1;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1223
    while (c = *cp++) {
329
claus
parents: 314
diff changeset
  1224
#ifndef NON_ASCII       /* i.e. EBCDIC ;-) */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1225
	if (c <= ' ')
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1226
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1227
	if ((c == ' ') || (c == '\t') || (c == '\n')
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1228
	 || (c == '\r') || (c == '\f')) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1229
	    RETURN ( __mkSmallInteger(cp - __stringVal(self)) );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1230
	}
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1231
    }
8913
b9498d27a554 64bit; mkSmallInteger
Claus Gittinger <cg@exept.de>
parents: 8898
diff changeset
  1232
    RETURN ( __mkSmallInteger(0) );
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  1233
%}.
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  1234
    ^ super indexOfSeparatorStartingAt:start
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  1235
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  1236
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1237
     'hello world' indexOfSeparatorStartingAt:3
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1238
     'hello world' indexOfSeparatorStartingAt:7
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  1239
    "
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1240
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1241
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1242
occurrencesOf:aCharacter
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1243
    "count the occurrences of the argument, aCharacter in myself
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1244
      - reimplemented here for speed"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1245
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1246
%{  /* NOCONTEXT */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1247
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1248
    REGISTER unsigned char *cp;
2858
866ffc52ac8a oops - need unsigned character compares
Claus Gittinger <cg@exept.de>
parents: 2856
diff changeset
  1249
    REGISTER unsigned byteValue;
8913
b9498d27a554 64bit; mkSmallInteger
Claus Gittinger <cg@exept.de>
parents: 8898
diff changeset
  1250
    REGISTER INT count, limit;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1251
    OBJ cls;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1252
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1253
    if (__isCharacter(aCharacter)) {
11418
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1254
        limit = __stringSize(self);
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1255
        count = 0;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1256
        byteValue = __intVal(_characterVal(aCharacter));
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1257
        if (byteValue <= 0xFF) {
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1258
            cp = __stringVal(self);
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1259
            if ((cls = __qClass(self)) != String) {
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1260
                int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1261
                limit -= n;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1262
                cp += n;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1263
            }
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1264
            /* loop unrolled and software-pipelined 
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1265
             * (gives 30-40% speedup on Intel-DUO using borland bcc55)
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1266
             */
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1267
            while (limit >= 4) {
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1268
                register unsigned char c1, c2;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1269
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1270
                c1 = cp[0];
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1271
                limit -= 4;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1272
                c2 = cp[1];
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1273
                if (c1 == byteValue) count++;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1274
                c1 = cp[2];
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1275
                if (c2 == byteValue) count++;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1276
                c2 = cp[3];
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1277
                if (c1 == byteValue) count++;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1278
                cp += 4;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1279
                if (c2 == byteValue) count++;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1280
            }
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1281
            while (limit > 0) {
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1282
                register unsigned char c1;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1283
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1284
                c1 = cp[0];
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1285
                limit--;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1286
                if (c1 == byteValue) count++;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1287
                cp ++;
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1288
            }
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1289
        }
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1290
        RETURN ( __mkSmallInteger(count) );
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1291
    }
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1292
%}.
1950
2378ed1ae467 must fall back to super searchers, when searching
Claus Gittinger <cg@exept.de>
parents: 1804
diff changeset
  1293
    ^ super occurrencesOf:aCharacter
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1294
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1295
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1296
     'hello world' occurrencesOf:$a
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1297
     'hello world' occurrencesOf:$w
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1298
     'hello world' occurrencesOf:$l
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1299
     'hello world' occurrencesOf:$x
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1300
     'hello world' occurrencesOf:1
11418
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1301
     Time millisecondsToRun:[
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1302
        1000000 timesRepeat:[ 'abcdefghijklmn' occurrencesOf:$x ]
e70fd06cbf38 tuned occurrencesOf:
Claus Gittinger <cg@exept.de>
parents: 11347
diff changeset
  1303
     ]. 219 203 156 203 204 204 219 172 187 187 141
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1304
    "
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  1305
! !
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  1306
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1307
!String methodsFor:'comparing'!
2
claus
parents: 1
diff changeset
  1308
8312
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1309
< aString
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1310
    "Compare the receiver with the argument and return true if the
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1311
     receiver is greater than the argument. Otherwise return false.
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1312
     No national variants are honored; use after: for this.
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1313
     In contrast to ST-80, case differences are NOT ignored, thus
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1314
     'foo' < 'Foo' will return false.
8312
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1315
     This may change."
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1316
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1317
%{  /* NOCONTEXT */
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1318
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1319
    int len1, len2, cmp;
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1320
    REGISTER OBJ s = aString;
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1321
    unsigned char *cp1, *cp2;
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1322
    OBJ cls;
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1323
    OBJ myCls;
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1324
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1325
    if (__isNonNilObject(s)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1326
	cls = __qClass(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1327
	myCls = __qClass(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1328
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1329
	if ((cls == String) || (cls == Symbol) || (cls == myCls)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1330
	    cp2 = __stringVal(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1331
	    len2 = __stringSize(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1332
	    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1333
	     * care for instances of subclasses ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1334
	     */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1335
	    if (cls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1336
		int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1337
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1338
		cp2 += n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1339
		len2 -= n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1340
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1341
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1342
	    cp1 = __stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1343
	    len1 = __stringSize(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1344
	    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1345
	     * care for instances of subclasses ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1346
	     */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1347
	    if (myCls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1348
		int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(myCls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1349
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1350
		cp1 += n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1351
		len1 -= n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1352
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1353
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1354
	    if (len1 <= len2)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1355
		cmp = strncmp(cp1, cp2, len1);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1356
	    else
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1357
		cmp = strncmp(cp1, cp2, len2);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1358
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1359
	    if (cmp < 0) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1360
		RETURN ( true );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1361
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1362
	    if ((cmp == 0) && (len1 < len2)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1363
		RETURN ( true );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1364
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1365
	    RETURN ( false );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1366
	}
8312
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1367
    }
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1368
%}.
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1369
    ^ super < aString
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1370
!
c7a80959b9a1 Define #<
Stefan Vogel <sv@exept.de>
parents: 8295
diff changeset
  1371
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1372
= aString
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1373
    "Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1374
     receiver is equal to the argument. Otherwise return false.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1375
     This compare is case-sensitive (i.e. 'Foo' is NOT = 'foo').
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1376
     Use sameAs: to compare with case ignored."
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1377
375
claus
parents: 370
diff changeset
  1378
%{  /* NOCONTEXT */
claus
parents: 370
diff changeset
  1379
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1380
    int l1, l2;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1381
    REGISTER OBJ s = aString;
3314
94046261fba0 tuned #~= , #= and #startsWith:
Claus Gittinger <cg@exept.de>
parents: 3281
diff changeset
  1382
    unsigned char *cp1, *cp2;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1383
    OBJ cls;
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1384
    OBJ myCls;
3335
054b52565a69 oops - need INT for delta
Claus Gittinger <cg@exept.de>
parents: 3314
diff changeset
  1385
    INT addrDelta;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1386
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1387
    if (s == self) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1388
	RETURN ( true );
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1389
    }
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1390
    if (! __isNonNilObject(s)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1391
	RETURN ( false );
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1392
    }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1393
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1394
    cls = __qClass(s);
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1395
    myCls = __qClass(self);
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1396
7868
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1397
    if ((cls == myCls) || (cls == String) || (cls == Symbol)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1398
	cp2 = __stringVal(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1399
	l2 = __stringSize(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1400
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1401
	 * care for instances of subclasses ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1402
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1403
	if (cls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1404
	    int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1405
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1406
	    cp2 += n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1407
	    l2 -= n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1408
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1409
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1410
	cp1 = __stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1411
	l1 = __stringSize(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1412
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1413
	 * care for instances of subclasses ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1414
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1415
	if (myCls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1416
	    int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(myCls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1417
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1418
	    cp1 += n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1419
	    l1 -= n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1420
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1421
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1422
	if (l1 != l2) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1423
	    RETURN ( false );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1424
	}
6331
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
  1425
#ifdef FAST_MEMCMP
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1426
	RETURN ( (memcmp(cp1, cp2, l1) == 0) ? true : false );
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1427
#else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1428
	addrDelta = cp2 - cp1;
8919
707a9ff7f9b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8917
diff changeset
  1429
# ifdef __UNROLL_LOOPS__
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1430
	while (l1 >= (sizeof(unsigned INT)*4)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1431
	    if (((unsigned INT *)cp1)[0] != ((unsigned INT *)(cp1+addrDelta))[0]) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1432
		RETURN (false);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1433
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1434
	    if (((unsigned INT *)cp1)[1] != ((unsigned INT *)(cp1+addrDelta))[1]) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1435
		RETURN (false);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1436
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1437
	    if (((unsigned INT *)cp1)[2] != ((unsigned INT *)(cp1+addrDelta))[2]) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1438
		RETURN (false);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1439
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1440
	    if (((unsigned INT *)cp1)[3] != ((unsigned INT *)(cp1+addrDelta))[3]) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1441
		RETURN (false);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1442
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1443
	    l1 -= (sizeof(unsigned INT) * 4);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1444
	    cp1 += (sizeof(unsigned INT) * 4);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1445
	}
8919
707a9ff7f9b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8917
diff changeset
  1446
# endif /* __UNROLL_LOOPS__ */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1447
	while (l1 >= sizeof(unsigned INT)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1448
	    if (*((unsigned INT *)cp1) != *((unsigned INT *)(cp1+addrDelta))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1449
		RETURN (false);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1450
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1451
	    l1 -= sizeof(unsigned INT);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1452
	    cp1 += sizeof(unsigned INT);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1453
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1454
	if (l1 >= sizeof(unsigned short)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1455
	    if (*((unsigned short *)cp1) != *((unsigned short *)(cp1+addrDelta))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1456
		RETURN (false);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1457
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1458
	    l1 -= sizeof(unsigned short);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1459
	    cp1 += sizeof(unsigned short);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1460
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1461
	while (l1) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1462
	    if (*cp1 != *(cp1+addrDelta)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1463
		RETURN (false);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1464
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1465
	    l1--;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1466
	    cp1++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1467
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1468
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1469
	RETURN (true);
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1470
#endif
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1471
    }
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1472
%}.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1473
    ^ super = aString
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1474
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  1475
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1476
     'foo' = 'Foo'
6331
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
  1477
     'foo' sameAs: 'Foo'
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
  1478
     #[0 0 1 0 0] asString = #[0 0 1 0 0] asString
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  1479
    "
7868
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1480
    "
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1481
     |tEmpty tCmp|
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1482
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1483
     tEmpty := Time millisecondsToRun:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1484
	 1000000 timesRepeat:[]
7868
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1485
     ].
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1486
     tCmp := Time millisecondsToRun:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1487
	 1000000 timesRepeat:[ '1234567890' = '1234567890' ]
7868
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1488
     ].
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1489
     tCmp - tEmpty
7868
15204449d62c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7867
diff changeset
  1490
    "
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1491
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1492
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1493
> aString
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1494
    "Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1495
     receiver is greater than the argument. Otherwise return false.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1496
     No national variants are honored; use after: for this.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1497
     In contrast to ST-80, case differences are NOT ignored, thus
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1498
     'foo' > 'Foo' will return true.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1499
     This may change."
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1500
375
claus
parents: 370
diff changeset
  1501
%{  /* NOCONTEXT */
claus
parents: 370
diff changeset
  1502
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1503
    int len1, len2, cmp;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1504
    REGISTER OBJ s = aString;
2858
866ffc52ac8a oops - need unsigned character compares
Claus Gittinger <cg@exept.de>
parents: 2856
diff changeset
  1505
    unsigned char *cp1, *cp2;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1506
    OBJ cls;
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1507
    OBJ myCls;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1508
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1509
    if (__isNonNilObject(s)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1510
	cls = __qClass(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1511
	myCls = __qClass(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1512
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1513
	if ((cls == String) || (cls == Symbol) || (cls == myCls)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1514
	    cp2 = __stringVal(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1515
	    len2 = __stringSize(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1516
	    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1517
	     * care for instances of subclasses ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1518
	     */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1519
	    if (cls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1520
		int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1521
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1522
		cp2 += n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1523
		len2 -= n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1524
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1525
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1526
	    cp1 = __stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1527
	    len1 = __stringSize(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1528
	    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1529
	     * care for instances of subclasses ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1530
	     */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1531
	    if (myCls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1532
		int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(myCls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1533
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1534
		cp1 += n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1535
		len1 -= n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1536
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1537
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1538
	    if (len1 <= len2)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1539
		cmp = strncmp(cp1, cp2, len1);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1540
	    else
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1541
		cmp = strncmp(cp1, cp2, len2);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1542
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1543
	    if (cmp > 0) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1544
		RETURN ( true );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1545
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1546
	    if ((cmp == 0) && (len1 > len2)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1547
		RETURN ( true );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1548
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1549
	    RETURN ( false );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1550
	}
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1551
    }
370
claus
parents: 368
diff changeset
  1552
%}.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1553
    ^ super > aString
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1554
!
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1555
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1556
after:aString
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1557
    "Compare the receiver with the argument and return true if the
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1558
     receiver should come after the argument in a sorted list.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1559
     Otherwise return false.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1560
     The comparison is language specific, depending on the value of
1368
2b21ccc98e5e comment in #after:
Claus Gittinger <cg@exept.de>
parents: 1311
diff changeset
  1561
     LC_COLLATE, which is initialized from the environment.
2b21ccc98e5e comment in #after:
Claus Gittinger <cg@exept.de>
parents: 1311
diff changeset
  1562
2b21ccc98e5e comment in #after:
Claus Gittinger <cg@exept.de>
parents: 1311
diff changeset
  1563
     STUPID:
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1564
	#after has a completely different meaning in SeqColl ..."
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1565
1251
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1566
    ^ (self compareCollatingWith:aString) > 0
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1567
1368
2b21ccc98e5e comment in #after:
Claus Gittinger <cg@exept.de>
parents: 1311
diff changeset
  1568
    "Modified: 10.5.1996 / 14:02:45 / cg"
1251
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1569
!
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1570
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1571
compareCollatingWith:aString
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1572
    "Compare the receiver with the argument and return 1 if the receiver is
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  1573
     greater, 0 if equal and -1 if less than the argument in a sorted list.
1251
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1574
     The comparison is language specific, depending on the value of
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1575
     LC_COLLATE, which is in the shell environment."
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1576
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1577
%{  /* NOCONTEXT */
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1578
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1579
    int cmp;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1580
    REGISTER OBJ s = aString;
2858
866ffc52ac8a oops - need unsigned character compares
Claus Gittinger <cg@exept.de>
parents: 2856
diff changeset
  1581
    unsigned char *cp1, *cp2;
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  1582
    OBJ cls;
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1583
    OBJ myCls;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1584
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1585
    if (__isNonNilObject(s)) {
12763
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1586
        cls = __qClass(s);
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1587
        myCls = __qClass(self);
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1588
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1589
        if (__isStringLike(s) || (cls == myCls)) {
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1590
            cp1 = __stringVal(self);
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1591
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1592
            /*
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1593
             * care for instances of subclasses ...
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1594
             */
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1595
            if (myCls != String) {
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1596
                int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(myCls)->c_ninstvars));
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1597
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1598
                cp1 += n;
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1599
            }
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1600
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1601
            cp2 = __stringVal(s);
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1602
            /*
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1603
             * care for instances of subclasses ...
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1604
             */
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1605
            if (cls != String) {
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1606
                int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1607
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1608
                cp2 += n;
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1609
            }
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1610
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1611
#ifdef HAS_STRCOLL
12763
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1612
            cmp = strcoll(cp1, cp2);
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1613
#else
12763
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1614
            cmp = strcmp(cp1, cp2);
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1615
#endif
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1616
12763
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1617
            if (cmp > 0) {
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1618
                RETURN ( __mkSmallInteger(1) );
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1619
            }
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1620
            if (cmp < 0) {
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1621
                RETURN ( __mkSmallInteger(-1) );
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1622
            }
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1623
            RETURN ( __mkSmallInteger(0) );
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1624
        }
370
claus
parents: 368
diff changeset
  1625
    }
329
claus
parents: 314
diff changeset
  1626
%}.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1627
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1628
     currently, this operation is only defined for strings, symbols
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1629
     and subclasses.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1630
    "
1251
9a76f8683400 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1246
diff changeset
  1631
    ^ self primitiveFailed
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1632
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1633
13880
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1634
hash_dragonBook
10697
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1635
    "return an integer useful as a hash-key"
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1636
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1637
%{  /* NOCONTEXT */
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1638
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1639
    REGISTER unsigned g, val;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1640
    REGISTER unsigned char *cp, *cp0;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1641
    int l;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1642
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1643
    cp = __stringVal(self);
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1644
    l = __stringSize(self);
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1645
    if (__qClass(self) != @global(String)) {
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1646
        int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1647
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1648
        cp += n;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1649
        l -= n;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1650
    }
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1651
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1652
    /*
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1653
     * this is the dragon-book algorithm
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1654
     */
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1655
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1656
    val = 0;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1657
    switch (l) {
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1658
    default:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1659
        for (cp0 = cp, cp += l - 1; cp >= cp0; cp--) {
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1660
            val = (val << 4) + *cp;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1661
            if (g = (val & 0xF0000000)) {
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1662
                val ^= g >> 24;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1663
                val ^= g;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1664
            }
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1665
        }
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1666
        break;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1667
    case 7:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1668
        val = cp[6] << 4;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1669
    case 6:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1670
        val = (val + cp[5]) << 4;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1671
    case 5:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1672
        val = (val + cp[4]) << 4;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1673
    case 4:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1674
        val = (val + cp[3]) << 4;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1675
    case 3:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1676
        val = (val + cp[2]) << 4;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1677
    case 2:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1678
        val = (val + cp[1]) << 4;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1679
    case 1:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1680
        val = val + cp[0];
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1681
    case 0:
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1682
        break;
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1683
    }
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1684
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1685
    /*
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1686
     * multiply by large prime to spread values
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1687
     * This speeds up Set and Dictionary by a factor of 10!
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1688
     */
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1689
    val *= 31415821;
12763
e19933d3e188 changed:
Stefan Vogel <sv@exept.de>
parents: 12727
diff changeset
  1690
    RETURN ( __mkSmallInteger(val & _MAX_INT));
10697
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1691
%}
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1692
!
77ab35cd09a5 oops: Unicode16String-hash returned different value from
sr
parents: 10677
diff changeset
  1693
13880
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1694
hash_sdbm
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1695
    "return an integer useful as a hash-key"
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1696
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1697
%{  /* NOCONTEXT */
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1698
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1699
    REGISTER unsigned ch, val;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1700
    REGISTER unsigned char *cp;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1701
    int l;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1702
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1703
    cp = __stringVal(self);
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1704
    l = __stringSize(self);
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1705
    if (__qClass(self) != @global(String)) {
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1706
        int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1707
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1708
        cp += n;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1709
        l -= n;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1710
    }
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1711
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1712
    /*
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1713
     * this is the sdbm algorithm
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1714
     */
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1715
    val = 0;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1716
    while (l >= 4) {
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1717
        l -= 4;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1718
        ch = cp[0];
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1719
        val = (val * 65599) + ch;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1720
        ch = cp[1];
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1721
        val = (val * 65599) + ch;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1722
        ch = cp[2];
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1723
        val = (val * 65599) + ch;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1724
        ch = cp[3];
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1725
        val = (val * 65599) + ch;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1726
        cp += 4;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1727
    }
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1728
    while (l) {
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1729
        l--;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1730
        ch = *cp++;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1731
        val = (val * 65599) + ch;
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1732
    }
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1733
    RETURN ( __mkSmallInteger(val & _MAX_INT));
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1734
%}
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1735
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1736
    "
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1737
     'a' hash_sdbm
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1738
     'ab' hash_sdbm 
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1739
     'ab' asUnicode16String hash_sdbm
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1740
    "
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1741
    
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1742
    "Created: / 26-12-2011 / 13:53:09 / cg"
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1743
!
Claus Gittinger <cg@exept.de>
parents: 13205
diff changeset
  1744
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1745
~= aString
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1746
    "Compare the receiver with the argument and return true if the
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1747
     receiver is not equal to the argument. Otherwise return false.
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1748
     This compare is case-sensitive (i.e. 'Foo' is NOT = 'foo').
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1749
     Actually, there is no need to redefine that method here,
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1750
     the default (= not as inherited) works ok.
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1751
     However, this may be heavily used and the redefinition saves an
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1752
     extra message send."
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1753
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1754
%{  /* NOCONTEXT */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1755
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1756
    int l1, l2;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1757
    REGISTER OBJ s = aString;
3314
94046261fba0 tuned #~= , #= and #startsWith:
Claus Gittinger <cg@exept.de>
parents: 3281
diff changeset
  1758
    unsigned char *cp1, *cp2;
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1759
    OBJ cls, myCls;
3335
054b52565a69 oops - need INT for delta
Claus Gittinger <cg@exept.de>
parents: 3314
diff changeset
  1760
    INT addrDelta;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  1761
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1762
    if (s == self) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1763
	RETURN ( false );
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1764
    }
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1765
    if (! __isNonNilObject(s)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1766
	RETURN ( true );
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1767
    }
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1768
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1769
    cls = __qClass(s);
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1770
    myCls = __qClass(self);
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1771
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1772
    if ((cls == String) || (cls == Symbol) || (cls == myCls)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1773
	cp1 = __stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1774
	l1 = __stringSize(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1775
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1776
	 * care for instances of subclasses ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1777
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1778
	if (myCls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1779
	    int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(myCls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1780
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1781
	    cp1 += n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1782
	    l1 -= n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1783
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1784
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1785
	cp2 = __stringVal(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1786
	l2 = __stringSize(s);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1787
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1788
	 * care for instances of subclasses ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1789
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1790
	if (cls != String) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1791
	    int n = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1792
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1793
	    cp2 += n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1794
	    l2 -= n;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1795
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1796
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1797
	if (l1 != l2) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1798
	    RETURN ( true );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1799
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1800
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1801
	addrDelta = cp2 - cp1;
8919
707a9ff7f9b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8917
diff changeset
  1802
# ifdef __UNROLL_LOOPS__
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1803
	while (l1 >= (sizeof(unsigned INT)*4)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1804
	    if (((unsigned INT *)cp1)[0] != ((unsigned INT *)(cp1+addrDelta))[0]) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1805
		RETURN (true);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1806
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1807
	    if (((unsigned INT *)cp1)[1] != ((unsigned INT *)(cp1+addrDelta))[1]) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1808
		RETURN (true);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1809
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1810
	    if (((unsigned INT *)cp1)[2] != ((unsigned INT *)(cp1+addrDelta))[2]) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1811
		RETURN (true);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1812
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1813
	    if (((unsigned INT *)cp1)[3] != ((unsigned INT *)(cp1+addrDelta))[3]) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1814
		RETURN (true);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1815
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1816
	    l1 -= (sizeof(unsigned INT) * 4);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1817
	    cp1 += (sizeof(unsigned INT) * 4);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1818
	}
8919
707a9ff7f9b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8917
diff changeset
  1819
# endif /* __UNROLL_LOOPS__ */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1820
	while (l1 >= sizeof(unsigned INT)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1821
	    if (*((unsigned INT *)cp1) != *((unsigned INT *)(cp1+addrDelta))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1822
		RETURN (true);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1823
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1824
	    l1 -= sizeof(unsigned INT);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1825
	    cp1 += sizeof(unsigned INT);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1826
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1827
	if (l1 >= sizeof(unsigned short)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1828
	    if (*((unsigned short *)cp1) != *((unsigned short *)(cp1+addrDelta))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1829
		RETURN (true);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1830
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1831
	    l1 -= sizeof(unsigned short);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1832
	    cp1 += sizeof(unsigned short);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1833
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1834
	while (l1) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1835
	    if (*cp1 != *(cp1+addrDelta)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1836
		RETURN (true);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1837
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1838
	    l1--;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1839
	    cp1++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1840
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1841
	RETURN (false);
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1842
    }
3111
a23fa6d08ce7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3085
diff changeset
  1843
%}.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1844
    ^ super ~= aString
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1845
! !
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1846
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1847
!String methodsFor:'converting'!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1848
6830
97b046007438 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6828
diff changeset
  1849
asArrayOfSubstrings
11906
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1850
    "Answer an array with all the substrings of the receiver separated by
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1851
     separator characters (space, cr, tab, linefeed, formfeed, etc).
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1852
     CG: This is ported Squeak code, and I am not sure if it is more efficient than
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1853
         the inherited one... after all: who added it anyway ?"
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1854
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1855
    | substrings start end |
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1856
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1857
    substrings := OrderedCollection new.
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1858
    start := 1.
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1859
    [start <= self size] whileTrue: [
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1860
        (self at: start) isSeparator ifFalse: [
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1861
            end := start + 1.
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1862
            [end <= self size and: [(self at: end) isSeparator not]]
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1863
                whileTrue: [end := end + 1].
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1864
            substrings add: (self copyFrom: start to: end - 1).
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1865
            start := end - 1
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1866
        ].
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1867
        start := start + 1
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1868
    ].
b6decf7e7d52 comment
Claus Gittinger <cg@exept.de>
parents: 11883
diff changeset
  1869
    ^ substrings asArray
6830
97b046007438 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6828
diff changeset
  1870
!
97b046007438 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 6828
diff changeset
  1871
11882
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1872
asAsciiZ
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1873
    "if the receiver does not end with a 0-valued character, return a copy of it,
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1874
     with an additional 0-character. Otherwise return the receiver. This is sometimes
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1875
     needed when a string has to be passed to C, which needs 0-terminated strings.
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1876
     Notice, that all singleByte strings are already 0-terminated in ST/X, whereas wide
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1877
     strings are not."
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1878
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1879
    ^ self 
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1880
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1881
    "
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1882
     'abc' asAsciiZ               
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1883
     'abc' asWideString asAsciiZ
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1884
    "
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1885
!
95aac982923e +asAsciiZ
Claus Gittinger <cg@exept.de>
parents: 11856
diff changeset
  1886
3281
d108dee000f7 #asBoldText added for often used bold texts in dialogs, etc.
tz
parents: 3234
diff changeset
  1887
asBoldText
d108dee000f7 #asBoldText added for often used bold texts in dialogs, etc.
tz
parents: 3234
diff changeset
  1888
    "return self as a bold text"
d108dee000f7 #asBoldText added for often used bold texts in dialogs, etc.
tz
parents: 3234
diff changeset
  1889
d108dee000f7 #asBoldText added for often used bold texts in dialogs, etc.
tz
parents: 3234
diff changeset
  1890
    ^Text string: self emphasis: #bold
d108dee000f7 #asBoldText added for often used bold texts in dialogs, etc.
tz
parents: 3234
diff changeset
  1891
!
d108dee000f7 #asBoldText added for often used bold texts in dialogs, etc.
tz
parents: 3234
diff changeset
  1892
10594
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1893
asByteArray
14260
c8e2fa654d6d comment/format in: #asByteArray
Claus Gittinger <cg@exept.de>
parents: 14217
diff changeset
  1894
    "this is faster than Collection>>#asByteArray"
10594
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1895
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1896
    |bytes sz|
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1897
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1898
    sz := self size.
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1899
    bytes := ByteArray new:sz .
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1900
    bytes replaceFrom:1 to:sz with:self startingAt:1.
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1901
    ^ bytes
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1902
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1903
    "
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1904
     'fooBar' asByteArray.
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1905
    "
14260
c8e2fa654d6d comment/format in: #asByteArray
Claus Gittinger <cg@exept.de>
parents: 14217
diff changeset
  1906
c8e2fa654d6d comment/format in: #asByteArray
Claus Gittinger <cg@exept.de>
parents: 14217
diff changeset
  1907
    "Modified (comment): / 26-07-2012 / 22:55:26 / cg"
10594
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1908
!
b659646164b5 *** empty log message ***
Stefan Vogel <sv@exept.de>
parents: 10371
diff changeset
  1909
9472
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1910
asExternalBytes
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1911
    |bytes sz|
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1912
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1913
    sz := self size.
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1914
    bytes := ExternalBytes new:(sz + 1).
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1915
    bytes replaceFrom:1 to:sz with:self startingAt:1.
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1916
    bytes at:(sz + 1) put:0.
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1917
    ^ bytes
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1918
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1919
    "
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1920
     |x|
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1921
     x := 'fooBar' asExternalBytes.
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1922
     x unprotectFromGC.
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1923
     ObjectMemory garbageCollect
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1924
    "
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1925
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1926
    "Modified: / 03-08-2006 / 14:45:32 / fm"
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1927
!
866785637314 +asExternalBytes
fm
parents: 9426
diff changeset
  1928
14156
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1929
asExternalBytesUnprotected
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1930
    "Like asExternalBytes, but does not register the bytes so
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1931
     bytes are NOT GARBAGE-COLLECTED. You have to free then yourself!!!!!!
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1932
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1933
     Use with care!!
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1934
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1935
     "
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1936
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1937
    |bytes sz|
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1938
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1939
    sz := self size.
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1940
    bytes := ExternalBytes basicNew allocateBytes:sz + 1.
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1941
    bytes replaceFrom:1 to:sz with:self startingAt:1.
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1942
    bytes at:(sz + 1) put:0.
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1943
    ^ bytes
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1944
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1945
    "
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1946
     |x|
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1947
     x := 'fooBar' asExternalBytesUnprotected.
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1948
     ObjectMemory garbageCollect
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1949
    "
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1950
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1951
    "Created: / 05-06-2012 / 14:12:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1952
!
e68cbbe6d070 added: #asExternalBytesUnprotected
vrany
parents: 14074
diff changeset
  1953
12454
02a4a461f56f added: #asImmutableString
Claus Gittinger <cg@exept.de>
parents: 12344
diff changeset
  1954
asImmutableString
02a4a461f56f added: #asImmutableString
Claus Gittinger <cg@exept.de>
parents: 12344
diff changeset
  1955
    "return a write-protected copy of myself"
02a4a461f56f added: #asImmutableString
Claus Gittinger <cg@exept.de>
parents: 12344
diff changeset
  1956
02a4a461f56f added: #asImmutableString
Claus Gittinger <cg@exept.de>
parents: 12344
diff changeset
  1957
    ^ self copy changeClassTo:ImmutableString
02a4a461f56f added: #asImmutableString
Claus Gittinger <cg@exept.de>
parents: 12344
diff changeset
  1958
!
02a4a461f56f added: #asImmutableString
Claus Gittinger <cg@exept.de>
parents: 12344
diff changeset
  1959
9574
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1960
asPackageId
12184
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  1961
    "given a package-string as receiver, return a packageId object. 
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  1962
     packageIds hide the details of module/directory handling inside the path"
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  1963
9574
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1964
    ^ PackageId from: self asSymbol
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1965
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1966
    "
12184
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  1967
     'stx:libbasic' asPackageId  
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  1968
     'stx:goodies/net/ssl' asPackageId  
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  1969
     'stx:hello' asPackageId  
9574
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1970
    "
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1971
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1972
    "Created: / 18-08-2006 / 12:19:54 / cg"
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1973
!
b2cd1336fea0 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9573
diff changeset
  1974
7877
bef56f06d2f8 asOneByteString -> asSingleByteString
Claus Gittinger <cg@exept.de>
parents: 7869
diff changeset
  1975
asSingleByteString
5760
00f393f89464 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5746
diff changeset
  1976
    "I am a string"
00f393f89464 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5746
diff changeset
  1977
00f393f89464 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5746
diff changeset
  1978
    ^ self
00f393f89464 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5746
diff changeset
  1979
!
00f393f89464 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5746
diff changeset
  1980
11287
b1f83c793f6b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11267
diff changeset
  1981
asSingleByteStringIfPossible
b1f83c793f6b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11267
diff changeset
  1982
    "I am a single-byte string"
b1f83c793f6b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11267
diff changeset
  1983
b1f83c793f6b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11267
diff changeset
  1984
    ^ self
b1f83c793f6b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11267
diff changeset
  1985
!
b1f83c793f6b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11267
diff changeset
  1986
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1987
asSingleByteStringReplaceInvalidWith:replacementCharacter
11883
36c27310fd24 comment
Claus Gittinger <cg@exept.de>
parents: 11882
diff changeset
  1988
    "return the receiver converted to a 'normal' string,
36c27310fd24 comment
Claus Gittinger <cg@exept.de>
parents: 11882
diff changeset
  1989
     with invalid characters replaced by replacementCharacter.
36c27310fd24 comment
Claus Gittinger <cg@exept.de>
parents: 11882
diff changeset
  1990
     Can be used to convert from 16-bit strings to 8-bit strings
36c27310fd24 comment
Claus Gittinger <cg@exept.de>
parents: 11882
diff changeset
  1991
     and replace characters above code-255 with some replacement.
36c27310fd24 comment
Claus Gittinger <cg@exept.de>
parents: 11882
diff changeset
  1992
     Dummy here, because I am already a single byte string."
36c27310fd24 comment
Claus Gittinger <cg@exept.de>
parents: 11882
diff changeset
  1993
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1994
    ^ self
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1995
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1996
    "Modified: / 07-08-2006 / 15:04:45 / fm"
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1997
!
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  1998
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  1999
asSymbol
9233
d6ecec348ca9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9182
diff changeset
  2000
    "Return a unique symbol with the name taken from the receivers characters."
7869
597a8faaf603 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7868
diff changeset
  2001
597a8faaf603 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7868
diff changeset
  2002
%{  /* NOCONTEXT */
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2003
    OBJ newSymbol;
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2004
    OBJ cls;
7869
597a8faaf603 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7868
diff changeset
  2005
    char *cp = __stringVal(self);
597a8faaf603 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7868
diff changeset
  2006
597a8faaf603 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7868
diff changeset
  2007
    /* care for instances of a subclass with instVars */
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2008
    cls = __qClass(self);
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2009
    if (cls != String) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2010
	cp += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2011
    }
7869
597a8faaf603 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7868
diff changeset
  2012
    newSymbol = __MKSYMBOL(cp, (OBJ *)0);
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2013
    if (newSymbol) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2014
	RETURN ( newSymbol);
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2015
    }
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2016
%}.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2017
    ^ ObjectMemory allocationFailureSignal raise.
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2018
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2019
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2020
     'hello' asSymbol
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2021
    "
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2022
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2023
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2024
asSymbolIfInterned
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2025
    "If a symbol with the receivers characters is already known, return it. Otherwise, return nil.
9233
d6ecec348ca9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9182
diff changeset
  2026
     This can be used to query for an existing symbol and is the same as:
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2027
	self knownAsSymbol ifTrue:[self asSymbol] ifFalse:[nil]
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2028
     but slightly faster, since the symbol lookup operation is only
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2029
     performed once."
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2030
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2031
%{  /* NOCONTEXT */
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2032
    OBJ cls;
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2033
    int indx;
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2034
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2035
    cls = __qClass(self);
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2036
    if (cls != String) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2037
	indx = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2038
    } else {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2039
	indx = 0;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2040
    }
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2041
    RETURN ( __SYMBOL_OR_NIL(__stringVal(self) + indx));
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  2042
%}.
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  2043
    self primitiveFailed
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2044
    "
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2045
     'hello' asSymbolIfInterned
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2046
     'fooBarBaz' asSymbolIfInterned
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  2047
    "
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2048
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2049
9182
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2050
asUUID
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2051
    "return self as a UUID"
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2052
14297
f00d2d9c6c83 changed: #asUUID
Stefan Vogel <sv@exept.de>
parents: 14260
diff changeset
  2053
    ^ UUID readFrom:self
9182
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2054
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2055
    "
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2056
     '{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}' asUUID
10677
97c2b50e6d94 comment in #asUUID
Claus Gittinger <cg@exept.de>
parents: 10594
diff changeset
  2057
     'EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B' asUUID
9182
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2058
    "
10677
97c2b50e6d94 comment in #asUUID
Claus Gittinger <cg@exept.de>
parents: 10594
diff changeset
  2059
97c2b50e6d94 comment in #asUUID
Claus Gittinger <cg@exept.de>
parents: 10594
diff changeset
  2060
    "Modified: / 02-08-2007 / 16:43:29 / cg"
9182
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2061
!
bb8b1eeb08b6 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8932
diff changeset
  2062
5742
7c02fc4de0ae added #withTabsExpanded: (i.e. arg to specify tab-column width)
Claus Gittinger <cg@exept.de>
parents: 5710
diff changeset
  2063
withTabsExpanded:numSpaces
735
362ce9e28d89 expandTabs now handles multiline strings
Claus Gittinger <cg@exept.de>
parents: 633
diff changeset
  2064
    "return a string with the characters of the receiver where all tabulator characters
5742
7c02fc4de0ae added #withTabsExpanded: (i.e. arg to specify tab-column width)
Claus Gittinger <cg@exept.de>
parents: 5710
diff changeset
  2065
     are expanded into spaces (assuming numSpaces-col tabs).
735
362ce9e28d89 expandTabs now handles multiline strings
Claus Gittinger <cg@exept.de>
parents: 633
diff changeset
  2066
     Notice: if the receiver does not contain any tabs, it is returned unchanged;
362ce9e28d89 expandTabs now handles multiline strings
Claus Gittinger <cg@exept.de>
parents: 633
diff changeset
  2067
     otherwise a new string is returned.
362ce9e28d89 expandTabs now handles multiline strings
Claus Gittinger <cg@exept.de>
parents: 633
diff changeset
  2068
     This does handle multiline strings.
362ce9e28d89 expandTabs now handles multiline strings
Claus Gittinger <cg@exept.de>
parents: 633
diff changeset
  2069
     Rewritten for speed - because this is very heavily used when reading
362ce9e28d89 expandTabs now handles multiline strings
Claus Gittinger <cg@exept.de>
parents: 633
diff changeset
  2070
     big files in the FileBrowser (and therefore speeds up fileReading considerably)."
1138
993e6ffdbf51 removed external decls for VM functions (should look for more)
Claus Gittinger <cg@exept.de>
parents: 1134
diff changeset
  2071
993e6ffdbf51 removed external decls for VM functions (should look for more)
Claus Gittinger <cg@exept.de>
parents: 1134
diff changeset
  2072
%{  /* STACK:700 */
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2073
    unsigned char buffer[80*8 + 10];
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2074
    unsigned char *srcP, *dstP, *cp0;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2075
    int idx, sz;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2076
    int any = 0;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2077
    OBJ newString;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2078
    char c;
5742
7c02fc4de0ae added #withTabsExpanded: (i.e. arg to specify tab-column width)
Claus Gittinger <cg@exept.de>
parents: 5710
diff changeset
  2079
    int n;
7c02fc4de0ae added #withTabsExpanded: (i.e. arg to specify tab-column width)
Claus Gittinger <cg@exept.de>
parents: 5710
diff changeset
  2080
7c02fc4de0ae added #withTabsExpanded: (i.e. arg to specify tab-column width)
Claus Gittinger <cg@exept.de>
parents: 5710
diff changeset
  2081
    if ((__qClass(self) == String)
7c02fc4de0ae added #withTabsExpanded: (i.e. arg to specify tab-column width)
Claus Gittinger <cg@exept.de>
parents: 5710
diff changeset
  2082
     && __isSmallInteger(numSpaces)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2083
	n = __intVal(numSpaces);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2084
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2085
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2086
	 * for small strings (< 80), do it without a prescan ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2087
	 * the buffer is large enough to even convert a
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2088
	 * receiver consisting fully of tabs.
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2089
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2090
	if (__stringSize(self) < 80) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2091
	    idx = 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2092
	    for (srcP = __stringVal(self), dstP = buffer; (c = *srcP); srcP++) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2093
		if (c == '\t') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2094
		    any = 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2095
		    while (idx % n) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2096
			idx++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2097
			*dstP++ = ' ';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2098
		    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2099
		    idx++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2100
		    *dstP++ = ' ';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2101
		} else {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2102
		    *dstP++ = c;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2103
		    idx++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2104
		    if (c == '\n') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2105
			idx = 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2106
		    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2107
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2108
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2109
	    if (! any) RETURN(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2110
	    *dstP = '\0';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2111
	    RETURN (__MKSTRING_L(buffer, (dstP-buffer)));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2112
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2113
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2114
	 * for large strings, we compute the new size, allocate a new string
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2115
	 * and expand it.
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2116
	 *
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2117
	 * first, scan for size ...
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2118
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2119
	idx = 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2120
	for (srcP = __stringVal(self), sz = 0; (c = *srcP); srcP++) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2121
	    if (c == '\t') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2122
		any = 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2123
		while (idx % n) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2124
		    idx++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2125
		    sz++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2126
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2127
		idx++; sz ++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2128
	    } else {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2129
		sz++; idx++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2130
		if (c == '\n') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2131
		    idx = 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2132
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2133
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2134
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2135
	if (! any) RETURN(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2136
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2137
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2138
	 * get the string
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2139
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2140
	sz = OHDR_SIZE + sz + 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2141
	__qNew(newString, sz);  /* OBJECT ALLOCATION */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2142
	if (newString != nil) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2143
	    __InstPtr(newString)->o_class = String;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2144
	    __qSTORE(newString, String);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2145
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2146
	    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2147
	     * expand
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2148
	     */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2149
	    idx = 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2150
	    for (srcP = __stringVal(self), dstP = cp0 = __stringVal(newString); (c = *srcP); srcP++) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2151
		if (c == '\t') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2152
		    while (idx % n) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2153
			idx++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2154
			*dstP++ = ' ';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2155
		    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2156
		    idx++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2157
		    *dstP++ = ' ';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2158
		} else {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2159
		    *dstP++ = c; idx++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2160
		    if (c == '\n') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2161
			idx = 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2162
		    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2163
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2164
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2165
	    *dstP++ = '\0';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2166
	    RETURN (newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2167
	}
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2168
    }
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2169
%}.
5742
7c02fc4de0ae added #withTabsExpanded: (i.e. arg to specify tab-column width)
Claus Gittinger <cg@exept.de>
parents: 5710
diff changeset
  2170
    ^ super withTabsExpanded:numSpaces
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2171
! !
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2172
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2173
!String methodsFor:'copying'!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2174
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2175
, aString
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2176
    "return the concatenation of myself and the argument, aString as a String.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2177
     - reimplemented here for speed"
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2178
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2179
%{
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  2180
    int l1, l2, sz;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2181
    REGISTER OBJ s = aString;
329
claus
parents: 314
diff changeset
  2182
    REGISTER OBJ _string = String;
13
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2183
    OBJ myClass, argClass, newString;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2184
329
claus
parents: 314
diff changeset
  2185
    if (__isNonNilObject(s)) {
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2186
        myClass = __qClass(self);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2187
        argClass = __qClass(s);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2188
        /*
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2189
         * can do it here if both are Strings/Symbols:
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2190
         */
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2191
        if (((myClass == _string) || (myClass == Symbol))
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2192
         && ((argClass == _string) || (argClass == Symbol))) {
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2193
            l1 = __stringSize(self);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2194
            l2 = __stringSize(s);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2195
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2196
            sz = OHDR_SIZE + l1 + l2 + 1;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2197
            __qNew(newString, sz);      /* OBJECT ALLOCATION */
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2198
            if (newString != nil) {
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2199
                char *cp1, *cp2;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2200
                REGISTER unsigned char *dstp;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2201
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2202
                __InstPtr(newString)->o_class = String;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2203
                __qSTORE(newString, String);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2204
                dstp = __stringVal(newString);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2205
                cp1 = (char *) __stringVal(self);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2206
                cp2 = (char *) __stringVal(aString);
3651
265d1c30eff5 tuned comma (concatenation) for i386.
Claus Gittinger <cg@exept.de>
parents: 3579
diff changeset
  2207
265d1c30eff5 tuned comma (concatenation) for i386.
Claus Gittinger <cg@exept.de>
parents: 3579
diff changeset
  2208
#ifdef bcopy4
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2209
                /* knowing that allocation is 4-byte aligned and
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2210
                 * size rounded up to next 4-byte, the first copy
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2211
                 * can be done word-wise.
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2212
                 * that speeds up size-10-string , size-10-string
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2213
                 * by 10% on a P5/200.
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2214
                 */
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2215
                {
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2216
                    int nw = l1 >> 2;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2217
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2218
                    if (l1 & 3) nw++;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2219
                    bcopy4(cp1, dstp, nw);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2220
                    dstp += l1;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2221
                }
3673
bf7c72c9037b tuned string concatenation
Claus Gittinger <cg@exept.de>
parents: 3668
diff changeset
  2222
#else
bf7c72c9037b tuned string concatenation
Claus Gittinger <cg@exept.de>
parents: 3668
diff changeset
  2223
# ifdef FAST_MEMCPY
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2224
                memcpy(dstp, cp1, l1);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2225
                dstp += l1;
3673
bf7c72c9037b tuned string concatenation
Claus Gittinger <cg@exept.de>
parents: 3668
diff changeset
  2226
# else
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2227
                while (l1 >= 4) {
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2228
                    *(int *)dstp = *(int *)cp1;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2229
                    dstp += 4; cp1 += 4;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2230
                    l1 -= 4;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2231
                }
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2232
                while (l1--) *dstp++ = *cp1++;
3673
bf7c72c9037b tuned string concatenation
Claus Gittinger <cg@exept.de>
parents: 3668
diff changeset
  2233
# endif
3651
265d1c30eff5 tuned comma (concatenation) for i386.
Claus Gittinger <cg@exept.de>
parents: 3579
diff changeset
  2234
#endif
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2235
3673
bf7c72c9037b tuned string concatenation
Claus Gittinger <cg@exept.de>
parents: 3668
diff changeset
  2236
#ifdef bcopy4
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2237
                if (((INT)dstp & 3) == 0) {
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2238
                    int nw = l2 >> 2;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2239
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2240
                    if (l2 & 3) nw++;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2241
                    bcopy4(cp2, dstp, nw);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2242
                    *(dstp + l2) = '\0';
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2243
                    RETURN ( newString );
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2244
                }
3673
bf7c72c9037b tuned string concatenation
Claus Gittinger <cg@exept.de>
parents: 3668
diff changeset
  2245
#endif
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2246
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2247
#ifdef FAST_MEMCPY
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2248
                memcpy(dstp, cp2, l2+1);
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2249
                dstp[l2] = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2250
#else
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2251
                while (l2--) *dstp++ = *cp2++;
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2252
                *dstp = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2253
#endif
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2254
                RETURN ( newString );
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2255
            }
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2256
        }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2257
    }
519
0ab6612e060b expand tabs slightly rewritten (no real change)
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
  2258
%}.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2259
    ^ super , aString
6331
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
  2260
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
  2261
    "
7867
1de4b6e5ef92 comment only
Claus Gittinger <cg@exept.de>
parents: 7856
diff changeset
  2262
     'hello' , 'world'
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2263
     #[0 0 0 1] asString, #[0 0 0 2 0] asString
6331
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
  2264
    "
14074
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2265
04be30a447df comment/format in: #,
Claus Gittinger <cg@exept.de>
parents: 13923
diff changeset
  2266
    "Modified: / 01-04-2012 / 13:19:44 / cg"
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2267
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2268
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2269
concatenate:string1 and:string2
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2270
    "return the concatenation of myself and the arguments, string1 and string2.
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2271
     This is equivalent to self , string1 , string2
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2272
     - generated by compiler when such a construct is detected"
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2273
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2274
    |newString|
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2275
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2276
%{
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  2277
    int len1, len2, len3, sz;
6331
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
  2278
#if !defined(FAST_MEMCPY)
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2279
    REGISTER unsigned char *srcp;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2280
#endif
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2281
    REGISTER unsigned char *dstp;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2282
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2283
    if (__isStringLike(self) 
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2284
            && __isStringLike(string1)
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2285
            && __isStringLike(string2)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2286
        len1 = __stringSize(self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2287
        len2 = __stringSize(string1);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2288
        len3 = __stringSize(string2);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2289
        sz = OHDR_SIZE + len1 + len2 + len3 + 1;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2290
        __qNew(newString, sz);  /* OBJECT ALLOCATION */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2291
        if (newString != nil) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2292
            __InstPtr(newString)->o_class = String;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2293
            __qSTORE(newString, String);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2294
            dstp = __stringVal(newString);
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2295
#ifdef FAST_MEMCPY
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2296
            memcpy(dstp, __stringVal(self), len1);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2297
            memcpy(dstp + len1, __stringVal(string1), len2);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2298
            memcpy(dstp + len1 + len2, __stringVal(string2), len3+1);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2299
            *(dstp + len1 + len2 + len3) = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2300
#else
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2301
            srcp = __stringVal(self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2302
            while (len1--) *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2303
            srcp = __stringVal(string1);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2304
            while (len2--) *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2305
            srcp = __stringVal(string2);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2306
            while (len3--) *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2307
            *dstp = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2308
#endif
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2309
            RETURN ( newString );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2310
        }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2311
    }
519
0ab6612e060b expand tabs slightly rewritten (no real change)
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
  2312
%}.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2313
    ^ super , string1 , string2
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2314
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2315
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2316
concatenate:string1 and:string2 and:string3
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2317
    "return the concatenation of myself and the string arguments.
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2318
     This is equivalent to self , string1 , string2 , string3
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2319
     - generated by compiler when such a construct is detected"
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2320
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2321
    |newString|
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2322
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2323
%{
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  2324
    int len1, len2, len3, len4, sz;
6331
3cb5595cf170 Strings do not treat 0-bytes as end of string.
Stefan Vogel <sv@exept.de>
parents: 6007
diff changeset
  2325
#if !defined(FAST_MEMCPY)
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2326
    REGISTER unsigned char *srcp;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2327
#endif
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2328
    REGISTER unsigned char *dstp;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2329
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2330
    if (__isStringLike(self) 
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2331
     && __isStringLike(string1)
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2332
     && __isStringLike(string2)
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2333
     && __isStringLike(string3)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2334
        len1 = __stringSize(self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2335
        len2 = __stringSize(string1);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2336
        len3 = __stringSize(string2);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2337
        len4 = __stringSize(string3);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2338
        sz = OHDR_SIZE + len1 + len2 + len3 + len4 + 1;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2339
        __qNew(newString, sz);  /* OBJECT ALLOCATION */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2340
        if (newString != nil) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2341
            __InstPtr(newString)->o_class = String;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2342
            __qSTORE(newString, String);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2343
            dstp = __stringVal(newString);
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2344
#ifdef FAST_MEMCPY
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2345
            memcpy(dstp, __stringVal(self), len1);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2346
            memcpy(dstp + len1, __stringVal(string1), len2);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2347
            memcpy(dstp + len1 + len2, __stringVal(string2), len3);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2348
            memcpy(dstp + len1 + len2 + len3, __stringVal(string3), len4+1);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2349
            *(dstp + len1 + len2 + len3 + len4) = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2350
#else
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2351
            srcp = __stringVal(self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2352
            while (len1--) *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2353
            srcp = __stringVal(string1);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2354
            while (len2--) *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2355
            srcp = __stringVal(string2);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2356
            while (len3--) *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2357
            srcp = __stringVal(string3);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2358
            while (len4--) *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2359
            *dstp = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2360
#endif
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2361
            RETURN ( newString );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2362
        }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2363
    }
519
0ab6612e060b expand tabs slightly rewritten (no real change)
Claus Gittinger <cg@exept.de>
parents: 516
diff changeset
  2364
%}.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2365
    ^ super , string1 , string2 , string3
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2366
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2367
4745
4d2460ed35a7 added #copy
Claus Gittinger <cg@exept.de>
parents: 4682
diff changeset
  2368
copy
4d2460ed35a7 added #copy
Claus Gittinger <cg@exept.de>
parents: 4682
diff changeset
  2369
    "return a copy of the receiver"
4d2460ed35a7 added #copy
Claus Gittinger <cg@exept.de>
parents: 4682
diff changeset
  2370
4d2460ed35a7 added #copy
Claus Gittinger <cg@exept.de>
parents: 4682
diff changeset
  2371
    (self isMemberOf:String) ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2372
	^ self copyFrom:1
4745
4d2460ed35a7 added #copy
Claus Gittinger <cg@exept.de>
parents: 4682
diff changeset
  2373
    ].
4d2460ed35a7 added #copy
Claus Gittinger <cg@exept.de>
parents: 4682
diff changeset
  2374
    ^ super copy
4d2460ed35a7 added #copy
Claus Gittinger <cg@exept.de>
parents: 4682
diff changeset
  2375
!
4d2460ed35a7 added #copy
Claus Gittinger <cg@exept.de>
parents: 4682
diff changeset
  2376
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2377
copyFrom:start
9233
d6ecec348ca9 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9182
diff changeset
  2378
    "return a new collection consisting of receivers elements from startIndex to the end of the collection.
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2379
     This method will always return a string, even if the receiver
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2380
     is a subclass-instance. This might change if there is a need.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2381
     - reimplemented here for speed"
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2382
13
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2383
%{  /* NOCONTEXT */
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2384
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2385
#if !defined(FAST_MEMCPY)
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2386
    REGISTER unsigned char *srcp;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2387
#endif
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2388
    REGISTER unsigned char *dstp;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2389
    REGISTER int count;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2390
    int len, index1, sz;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2391
    OBJ newString;
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2392
    OBJ myClass;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2393
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2394
    myClass = __qClass(self);
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2395
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2396
#ifndef NO_PRIM_STRING
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2397
    if (__isSmallInteger(start)
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2398
     && ((myClass==String) || (myClass==Symbol))) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2399
	len = __stringSize(self);
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2400
	index1 = __intVal(start);
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2401
	if (index1 > 0) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2402
	    if (index1 <= len) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2403
		count = len - index1 + 1;
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2404
		sz = OHDR_SIZE + count + 1;
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2405
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2406
		__PROTECT_CONTEXT__
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2407
		__qNew(newString, sz);  /* OBJECT ALLOCATION */
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2408
		__UNPROTECT_CONTEXT__
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2409
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2410
		if (newString != nil) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2411
		    __InstPtr(newString)->o_class = String;
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2412
		    __qSTORE(newString, String);
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2413
		    dstp = __stringVal(newString);
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2414
#ifdef FAST_MEMCPY
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2415
		    memcpy(dstp, __stringVal(self) + index1 - 1, count);
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2416
		    dstp[count] = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2417
#else
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2418
		    srcp = __stringVal(self) + index1 - 1;
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2419
		    while (count--) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2420
			*dstp++ = *srcp++;
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2421
		    }
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2422
		    *dstp = '\0';
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2423
#endif
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2424
		    RETURN ( newString );
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2425
		}
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2426
	    }
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  2427
	}
13
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2428
    }
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2429
#endif
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2430
%}.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2431
    "fall back in case of non-integer index or out-of-bound index;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2432
     will eventually lead to an out-of-bound signal raise"
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2433
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2434
    ^ super copyFrom:start
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2435
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2436
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2437
copyFrom:start to:stop
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2438
    "return the substring starting at index start, anInteger and ending
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  2439
     at stop, anInteger. This method will always return a string, even
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  2440
     if the receiver is a subclass-instance. This might change if there is a need.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2441
     - reimplemented here for speed"
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2442
13
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2443
%{  /* NOCONTEXT */
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2444
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2445
    REGISTER unsigned char *srcp;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2446
    REGISTER unsigned char *dstp;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2447
    REGISTER int count;
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  2448
    int len, sz, index1, index2;
13
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2449
    OBJ newString;
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2450
    OBJ myClass;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2451
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2452
    myClass = __qClass(self);
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2453
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2454
#ifndef NO_PRIM_STRING
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2455
    if (__bothSmallInteger(start, stop)
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2456
     && ((myClass==String) || (myClass==Symbol))) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2457
	len = __stringSize(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2458
	index1 = __intVal(start);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2459
	index2 = __intVal(stop);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2460
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2461
	if ((index1 <= index2) && (index1 > 0)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2462
	    if (index2 <= len) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2463
		count = index2 - index1 + 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2464
		sz = OHDR_SIZE + count + 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2465
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2466
		__PROTECT_CONTEXT__
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2467
		__qNew(newString, sz);  /* OBJECT ALLOCATION */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2468
		__UNPROTECT_CONTEXT__
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2469
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2470
		if (newString != nil) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2471
		    __InstPtr(newString)->o_class = String;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2472
		    __qSTORE(newString, String);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2473
		    dstp = __stringVal(newString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2474
		    srcp = __stringVal(self) + index1 - 1;
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2475
#ifdef bcopy4
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2476
		    {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2477
			int nw = count >> 2;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2478
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2479
			if (count & 3) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2480
			    nw++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2481
			}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2482
			bcopy4(srcp, dstp, nw);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2483
			dstp[count] = '\0';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2484
		    }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2485
#else
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2486
# ifdef FAST_MEMCPY
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2487
		    memcpy(dstp, srcp, count);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2488
		    dstp[count] = '\0';
209
ecc004f196e6 fixed concatenate bug (crash)
claus
parents: 202
diff changeset
  2489
# else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2490
		    while (count--) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2491
			*dstp++ = *srcp++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2492
		    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2493
		    *dstp = '\0';
209
ecc004f196e6 fixed concatenate bug (crash)
claus
parents: 202
diff changeset
  2494
# endif
13
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2495
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2496
		    RETURN ( newString );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2497
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2498
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2499
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2500
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2501
	 * allow empty copy
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2502
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2503
	if (index1 > index2) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2504
	    __PROTECT_CONTEXT__
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2505
	    __qNew(newString, OHDR_SIZE+1);     /* OBJECT ALLOCATION */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2506
	    __UNPROTECT_CONTEXT__
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2507
	    if (newString != nil) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2508
		__InstPtr(newString)->o_class = String;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2509
		(__stringVal(newString))[0] = '\0';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2510
		RETURN ( newString );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2511
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2512
	}
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2513
    }
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2514
#endif
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2515
%}.
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2516
    "fall back in case of non-integer index or out-of-bound index;
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2517
     will eventually lead to an out-of-bound signal raise"
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2518
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2519
    ^ super copyFrom:start to:stop
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2520
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2521
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2522
copyWith:aCharacter
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2523
    "return a new string containing the receivers characters
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2524
     and the single new character, aCharacter.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2525
     This is different from concatentation, which expects another string
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2526
     as argument, but equivalent to copy-and-addLast.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2527
     Reimplemented here for more speed"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2528
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2529
%{  /* NOCONTEXT */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2530
2887
4523d179636e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2886
diff changeset
  2531
    int count;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2532
    int sz;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2533
    REGISTER unsigned char *dstp;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2534
    OBJ cls, newString;
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2535
    OBJ myClass;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2536
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2537
    myClass = __qClass(self);
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2538
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2539
#ifndef NO_PRIM_STRING
6833
bc361f384f7f care for twoByteChars in all inline-C code
Claus Gittinger <cg@exept.de>
parents: 6830
diff changeset
  2540
    if (__isCharacter(aCharacter)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2541
	unsigned int cVal = __intVal(__characterVal(aCharacter));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2542
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2543
	if ((cVal <= 0xFF)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2544
	 && ((myClass==String) || (myClass==Symbol))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2545
	    count = __stringSize(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2546
	    sz = OHDR_SIZE + count + 1 + 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2547
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2548
	    __PROTECT_CONTEXT__
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2549
	    __qNew(newString, sz);  /* OBJECT ALLOCATION */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2550
	    __UNPROTECT_CONTEXT__
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2551
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2552
	    if (newString) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2553
		__InstPtr(newString)->o_class = String;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2554
		__qSTORE(newString, String);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2555
		dstp = __stringVal(newString);
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2556
2887
4523d179636e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2886
diff changeset
  2557
#ifdef bcopy4
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2558
		{
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2559
		    int nw = count >> 2;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2560
		    char *srcp = (char *)__stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2561
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2562
		    if (count & 3) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2563
			nw++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2564
		    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2565
		    bcopy4(srcp, dstp, nw);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2566
		    dstp += count;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2567
		}
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2568
#else
2887
4523d179636e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2886
diff changeset
  2569
# ifdef FAST_MEMCPY
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2570
		memcpy(dstp, __stringVal(self), count);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2571
		dstp += count;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2572
# else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2573
		{
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2574
		    REGISTER unsigned char *srcp;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2575
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2576
		    srcp = __stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2577
		    while ((*dstp = *srcp++) != '\0')
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2578
			dstp++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2579
		}
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2580
# endif
2887
4523d179636e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2886
diff changeset
  2581
# endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2582
		*dstp++ = cVal;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2583
		*dstp = '\0';
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2584
		RETURN (newString );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2585
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2586
	}
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2587
    }
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2588
#endif
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2589
%}.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2590
    "fall back in case of non-character arg;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2591
     will eventually lead to an bad element signal raise"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2592
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2593
    ^ super copyWith:aCharacter
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2594
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2595
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  2596
deepCopy
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  2597
    "return a copy of the receiver"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2598
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2599
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2600
     could be an instance of a subclass which needs deepCopy
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2601
     of its named instvars ...
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2602
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2603
    (self isMemberOf:String) ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2604
	^ self copyFrom:1
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2605
    ].
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2606
    ^ super deepCopy
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2607
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2608
10951
9f56be18d1dd deepCopy change
ab
parents: 10822
diff changeset
  2609
deepCopyUsing:aDictionary postCopySelector:postCopySelector
8383
dea5311899c5 comments in copy methods
Claus Gittinger <cg@exept.de>
parents: 8312
diff changeset
  2610
    "return a deep copy of the receiver - reimplemented to be a bit faster"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2611
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2612
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2613
     could be an instance of a subclass which needs deepCopy
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2614
     of its named instvars ...
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2615
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2616
    (self isMemberOf:String) ifTrue:[
10951
9f56be18d1dd deepCopy change
ab
parents: 10822
diff changeset
  2617
        ^ self copyFrom:1
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2618
    ].
10951
9f56be18d1dd deepCopy change
ab
parents: 10822
diff changeset
  2619
    ^ super deepCopyUsing:aDictionary postCopySelector:postCopySelector
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2620
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2621
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  2622
shallowCopy
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  2623
    "return a copy of the receiver"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2624
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2625
    (self isMemberOf:String) ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2626
	^ self copyFrom:1
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2627
    ].
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2628
    ^ super shallowCopy
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2629
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2630
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  2631
simpleDeepCopy
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  2632
    "return a copy of the receiver"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2633
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2634
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2635
     could be an instance of a subclass which needs deepCopy
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2636
     of its named instvars ...
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2637
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2638
    (self isMemberOf:String) ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2639
	^ self copyFrom:1
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2640
    ].
7881
26b22247f5f1 deepCopyUsing fixed.
martin
parents: 7878
diff changeset
  2641
    ^ super simpleDeepCopy
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2642
! !
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2643
4154
6938d9274ee4 category rename
Claus Gittinger <cg@exept.de>
parents: 4123
diff changeset
  2644
!String methodsFor:'filling & replacing'!
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2645
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  2646
atAllPut:aCharacter
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2647
    "replace all elements with aCharacter
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2648
     - reimplemented here for speed"
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2649
13
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2650
%{  /* NOCONTEXT */
62303f84ff5f *** empty log message ***
claus
parents: 10
diff changeset
  2651
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2652
#ifndef FAST_MEMSET
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2653
    REGISTER unsigned char *dst;
6766
a43b97582d4b oops - (String new:-1) did crash the system (atAllPut:)
Michael Beyl <mb@exept.de>
parents: 6599
diff changeset
  2654
#endif
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2655
    REGISTER int l;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2656
    REGISTER int byteValue;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2657
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2658
    if (__isCharacter(aCharacter) && __isString(self)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2659
	byteValue = __intVal(_characterVal(aCharacter));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2660
	if ((unsigned)byteValue <= 0xFF) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2661
	    l = __stringSize(self);
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2662
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2663
#ifdef FAST_MEMSET
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2664
	    if (l > 0) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2665
		memset(__stringVal(self), byteValue, l);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2666
	    }
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2667
#else
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2668
	    {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2669
		INT v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2670
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2671
		v = (byteValue << 8) | byteValue;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2672
		v = (v << 16) | v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2673
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2674
		dst = __stringVal(self);
3712
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2675
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2676
# ifdef FAST_MEMSET4 /* sorry intel: your stosd instruction is slower ... */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2677
		if (l > 0) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2678
		    memset4(dst, v, l>>2);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2679
		    l = l & 3;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2680
		}
3712
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2681
# else
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2682
#  ifdef UINT64
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2683
		{
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2684
		    UINT64 v64;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2685
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2686
		    v64 = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2687
		    v64 = (v64 << 32) | v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2688
		    while (l >= 8) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2689
			((UINT64 *)dst)[0] = v64;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2690
			dst += 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2691
			l -= 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2692
		    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2693
		}
3712
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2694
#  else /* no UINT64 */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2695
		while (l >= 16) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2696
		    ((int *)dst)[0] = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2697
		    ((int *)dst)[1] = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2698
		    ((int *)dst)[2] = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2699
		    ((int *)dst)[3] = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2700
		    dst += 16;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2701
		    l -= 16;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2702
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2703
		if (l >= 8) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2704
		    ((int *)dst)[0] = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2705
		    ((int *)dst)[1] = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2706
		    dst += 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2707
		    l -= 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2708
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2709
		if (l >= 4) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2710
		    ((int *)dst)[0] = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2711
		    dst += 4;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2712
		    l -= 4;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2713
		}
3712
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2714
#   if 0
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2715
		if (l >= 2) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2716
		    ((short *)dst)[0] = v;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2717
		    dst += 2;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2718
		    l -= 2;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2719
		}
3712
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2720
#   endif
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2721
5648
5bc58204662e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5557
diff changeset
  2722
#  endif /* UINT64 */
5bc58204662e *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5557
diff changeset
  2723
# endif /* FAST_MEMSET4 */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2724
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2725
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2726
	    /*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2727
	     * remaining bytes
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2728
	     */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2729
	    while (l-- > 0)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2730
		*dst++ = byteValue;
3712
f93cb659b10d checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3711
diff changeset
  2731
3711
bdb2e9d06d33 20% speedup (p6/266) in #atAllPut:
Claus Gittinger <cg@exept.de>
parents: 3710
diff changeset
  2732
#endif /* no FAST_MEMSET */
bdb2e9d06d33 20% speedup (p6/266) in #atAllPut:
Claus Gittinger <cg@exept.de>
parents: 3710
diff changeset
  2733
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2734
	    RETURN ( self );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2735
	}
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2736
    }
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2737
%}.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2738
    ^ super atAllPut:aCharacter
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2739
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2740
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2741
     (String new:10) atAllPut:$*
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2742
     String new:10 withAll:$*
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2743
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2744
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2745
2929
ca74fdc386cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2898
diff changeset
  2746
replaceAll:oldCharacter with:newCharacter
4120
5ad76c8d8e77 comment
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  2747
    "replace all oldCharacters by newCharacter in the receiver.
5ad76c8d8e77 comment
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  2748
5ad76c8d8e77 comment
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  2749
     Notice: This operation modifies the receiver, NOT a copy;
5ad76c8d8e77 comment
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  2750
     therefore the change may affect all others referencing the receiver."
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2751
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2752
%{  /* NOCONTEXT */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2753
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2754
    REGISTER unsigned char *srcp;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2755
    REGISTER unsigned oldVal, newVal;
4120
5ad76c8d8e77 comment
Claus Gittinger <cg@exept.de>
parents: 3989
diff changeset
  2756
    unsigned char c, cNext;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2757
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2758
    if (__isCharacter(oldCharacter)
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2759
     && __isCharacter(newCharacter)
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2760
     && __isString(self)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2761
	srcp = (unsigned char *)__stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2762
	oldVal = __intVal(_characterVal(oldCharacter));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2763
	newVal = __intVal(_characterVal(newCharacter));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2764
	if ((oldVal <= 0xFF)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2765
	 && (newVal <= 0xFF)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2766
	    cNext = *srcp;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2767
	    while ((c = cNext) != '\0') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2768
		cNext = srcp[1];
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2769
		if (c == oldVal)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2770
		    *srcp = newVal;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2771
		srcp++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2772
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2773
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2774
	RETURN ( self );
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2775
    }
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2776
%}.
2929
ca74fdc386cc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2898
diff changeset
  2777
    ^ super replaceAll:oldCharacter with:newCharacter
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2778
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2779
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2780
     'helloWorld' copy replaceAll:$o with:$O
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2781
     'helloWorld' copy replaceAll:$d with:$*
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2782
     'helloWorld' copy replaceAll:$h with:$*
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2783
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2784
!
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2785
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  2786
replaceFrom:start to:stop with:aString startingAt:repStart
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2787
    "replace the characters starting at index start, anInteger and ending
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2788
     at stop, anInteger with characters from aString starting at repStart.
3234
4cc58bc6a8ed comment
Claus Gittinger <cg@exept.de>
parents: 3227
diff changeset
  2789
     Return the receiver.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2790
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2791
     - reimplemented here for speed"
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2792
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2793
%{  /* NOCONTEXT */
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2794
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2795
    REGISTER unsigned char *srcp, *dstp;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2796
    REGISTER int count;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2797
    int len, index1, index2;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2798
    int repLen, repIndex;
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2799
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2800
#ifndef NO_PRIM_STRING
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2801
    if (__isStringLike(aString)
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  2802
     && __isString(self)
252
  2803
     && __bothSmallInteger(start, stop)) {
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2804
        len = __stringSize(self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2805
        index1 = __intVal(start);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2806
        index2 = __intVal(stop);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2807
        count = index2 - index1 + 1;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2808
        if (count <= 0) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2809
             RETURN (self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2810
        }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2811
        if ((index2 <= len) && (index1 > 0)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2812
            repLen = __stringSize(aString);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2813
            repIndex = __intVal(repStart);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2814
            if ((repIndex > 0) && ((repIndex + count - 1) <= repLen)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2815
                srcp = __stringVal(aString) + repIndex - 1;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2816
                dstp = __stringVal(self) + index1 - 1;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2817
                if (aString == self) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2818
                    /* take care of overlapping copy */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2819
                    if (srcp < dstp) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2820
                        /* must do a reverse copy */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2821
                        srcp += count;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2822
                        dstp += count;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2823
                        while (count-- > 0) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2824
                            *--dstp = *--srcp;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2825
                        }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2826
                        RETURN (self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2827
                    }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2828
                }
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
  2829
#ifdef bcopy4
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2830
                /* copy quadbytes if pointers are aligned */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2831
                /*
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2832
                 * no sizeof(int) here please -
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2833
                 * - bcopy4 (if defined) copies 4-bytes on ALL machines
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2834
                 */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2835
                if ((count > 12)
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2836
                 && (((unsigned INT)srcp & 3) == 0)
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2837
                 && (((unsigned INT)dstp & 3) == 0)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2838
                    int n;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2839
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2840
                    n = count >> 2;        /* make it quads */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2841
                    bcopy4(srcp, dstp, n);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2842
                    n <<= 2;               /* back to chars */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2843
                    dstp += n;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2844
                    srcp += n;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2845
                    count -= n;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2846
                }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2847
                while (count-- > 0) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2848
                    *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2849
                }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2850
#else
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
  2851
# ifdef FAST_MEMCPY
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2852
                bcopy(srcp, dstp, count);
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
  2853
# else
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2854
                /* copy longs if pointers are aligned */
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2855
                if ((((unsigned INT)srcp & (sizeof(INT)-1)) == 0)
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2856
                 && (((unsigned INT)dstp & (sizeof(INT)-1)) == 0)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2857
                    while (count >= sizeof(INT)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2858
                        *((unsigned INT *)dstp) = *((unsigned INT *)srcp);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2859
                        dstp += sizeof(INT);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2860
                        srcp += sizeof(INT);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2861
                        count -= sizeof(INT);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2862
                    }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2863
                }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2864
                while (count-- > 0) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2865
                    *dstp++ = *srcp++;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2866
                }
2867
015574e235fd tuned replaceFrom:to:with:startingAt:
Claus Gittinger <cg@exept.de>
parents: 2862
diff changeset
  2867
# endif
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2868
#endif
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2869
                RETURN (self);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2870
            }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  2871
        }
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2872
    }
2894
344aec8ba014 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2887
diff changeset
  2873
#endif
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2874
%}.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2875
    ^ super replaceFrom:start to:stop with:aString startingAt:repStart
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2876
!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2877
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2878
withoutSeparators
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2879
    "return a string containing the chars of myself
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2880
     without leading and trailing whitespace.
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2881
     If there is no whitespace, the receiver is returned.
95
d22739a0c6e9 *** empty log message ***
claus
parents: 88
diff changeset
  2882
     Notice, this is different from String>>withoutSpaces."
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2883
42
e33491f6f260 *** empty log message ***
claus
parents: 41
diff changeset
  2884
    |startIndex "{ Class: SmallInteger }"
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2885
     endIndex   "{ Class: SmallInteger }"
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2886
     sz|
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2887
53
77ed1ef5c018 *** empty log message ***
claus
parents: 51
diff changeset
  2888
    startIndex := 0.
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2889
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2890
%{
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2891
    REGISTER unsigned char *cp;
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2892
    REGISTER unsigned char *ep;
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2893
    REGISTER unsigned char c;
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2894
    REGISTER unsigned char *cp0;
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2895
    REGISTER unsigned char *ep0;
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2896
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2897
    /* ignore instances of subclasses ... */
329
claus
parents: 314
diff changeset
  2898
    if (__qClass(self) == String) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2899
	cp = cp0 = __stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2900
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2901
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2902
	 * find first non-whiteSpace from beginning
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2903
	 */
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2904
#ifndef NON_ASCII
2954
a2f437a0483a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
  2905
# ifdef UINT64
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2906
	while (*((UINT64 *)cp) == 0x2020202020202020L) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2907
	    cp += 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2908
	}
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2909
# endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2910
	while (*((unsigned *)cp) == 0x20202020) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2911
	    cp += 4;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2912
	}
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2913
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2914
	while ((c = *cp)
329
claus
parents: 314
diff changeset
  2915
#ifndef NON_ASCII       /* i.e. EBCDIC ;-) */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2916
	 && (c <= ' ')
329
claus
parents: 314
diff changeset
  2917
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2918
	 && ((c == ' ') || (c == '\n') || (c == '\t')
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2919
			|| (c == '\r') || (c == '\f'))
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2920
	) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2921
	    cp++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2922
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2923
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2924
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2925
	 * find first non-whiteSpace from end
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2926
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2927
	ep = ep0 = cp0 + __stringSize(self) - 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2928
	while ((ep >= cp) && (*ep == ' ')) ep--;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2929
	c = *ep;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2930
	while ((ep >= cp) &&
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2931
#ifndef NON_ASCII
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2932
	       (c <= ' ') &&
329
claus
parents: 314
diff changeset
  2933
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2934
	       ((c == ' ') || (c == '\n') || (c == '\t')
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2935
			   || (c == '\r') || (c == '\f'))) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2936
	    ep--;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2937
	    c = *ep;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2938
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2939
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2940
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2941
	 * no whiteSpace ?
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2942
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2943
	if ((cp == cp0) && (ep == ep0)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2944
	    RETURN(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2945
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2946
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2947
	startIndex = __mkSmallInteger(cp - cp0 + 1);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2948
	endIndex = __mkSmallInteger(ep - cp0 + 1);
51
9b7ae5e18f3e *** empty log message ***
claus
parents: 42
diff changeset
  2949
    }
202
40ca7cc6fb9c *** empty log message ***
claus
parents: 186
diff changeset
  2950
%}.
40ca7cc6fb9c *** empty log message ***
claus
parents: 186
diff changeset
  2951
    startIndex == 0 ifTrue:[^ super withoutSeparators].
40ca7cc6fb9c *** empty log message ***
claus
parents: 186
diff changeset
  2952
40ca7cc6fb9c *** empty log message ***
claus
parents: 186
diff changeset
  2953
    startIndex > endIndex ifTrue:[^ ''].
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  2954
    ^ self copyFrom:startIndex to:endIndex
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2955
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2956
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2957
     'hello' withoutSeparators
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2958
     '    hello' withoutSeparators
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2959
     '    hello ' withoutSeparators
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2960
     '    hello  ' withoutSeparators
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2961
     '    hello   ' withoutSeparators
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2962
     '    hello    ' withoutSeparators
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2963
     '        ' withoutSeparators
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2964
    "
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2965
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2966
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2967
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2968
withoutSpaces
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2969
    "return a string containing the characters of myself
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2970
     without leading and trailing spaces.
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2971
     If there are no spaces, the receiver is returned unchanged.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2972
     Notice, this is different from String>>withoutSeparators."
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2973
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2974
    |startIndex "{ Class: SmallInteger }"
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  2975
     endIndex   "{ Class: SmallInteger }"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2976
     sz blank|
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2977
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2978
    startIndex := 0.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2979
%{
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2980
    REGISTER unsigned char *cp;
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2981
    REGISTER unsigned char *ep;
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2982
    unsigned char *cp0;
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  2983
    unsigned char *ep0;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2984
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2985
    /* ignore instances of subclasses ... */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  2986
    if (__qClass(self) == String) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2987
	cp = cp0 = __stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2988
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2989
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2990
	 * find first non-blank from beginning
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2991
	 */
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  2992
#ifndef NON_ASCII
2954
a2f437a0483a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
  2993
# ifdef UINT64
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2994
	while (*((UINT64 *)cp) == 0x2020202020202020L) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2995
	    cp += 8;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2996
	}
2954
a2f437a0483a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
  2997
# endif /* UINT64 */
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2998
	while (*((unsigned *)cp) == 0x20202020) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  2999
	    cp += 4;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3000
	}
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3001
#endif
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3002
	while (*cp == ' ') cp++;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3003
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3004
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3005
	 * find first non-blank from end
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3006
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3007
	ep = ep0 = cp0 + __stringSize(self) - 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3008
	while ((ep >= cp) && (*ep == ' ')) ep--;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3009
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3010
	/*
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3011
	 * no blanks ?
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3012
	 */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3013
	if ((cp == cp0) && (ep == ep0)) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3014
	    RETURN(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3015
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3016
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3017
	startIndex = __mkSmallInteger(cp - cp0 + 1);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3018
	endIndex = __mkSmallInteger(ep - cp0 + 1);
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3019
    }
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3020
%}.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3021
    startIndex == 0 ifTrue:[^ super withoutSpaces].
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3022
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3023
    startIndex > endIndex ifTrue:[^ ''].
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3024
    ((startIndex == 1) and:[endIndex == self size]) ifTrue:[^ self].
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3025
    ^ self copyFrom:startIndex to:endIndex
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  3026
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  3027
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3028
     '    hello' withoutSpaces
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3029
     '    hello ' withoutSpaces
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3030
     '    hello  ' withoutSpaces
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3031
     '    hello   ' withoutSpaces
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  3032
     '    hello    ' withoutSpaces
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3033
     '        ' withoutSpaces
2884
1e0bdf34b3b2 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2867
diff changeset
  3034
    "
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3035
! !
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3036
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3037
!String methodsFor:'printing & storing'!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3038
14163
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3039
errorPrint
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3040
    "print the receiver on standard output.
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3041
     This method does NOT (by purpose) use the stream classes and
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3042
     will therefore work even in case of emergency (but only, if Stdout is nil)."
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3043
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3044
%{  /* NOCONTEXT */
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3045
14164
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3046
    if (__isStringLike(self) == String) {
14163
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3047
        if (@global(Stderr) == nil) {
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3048
            console_fprintf(stderr, "%s" , __stringVal(self));
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3049
            console_fflush(stderr);
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3050
            RETURN (self);
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3051
        }
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3052
    }
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3053
%}.
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3054
    ^ super errorPrint
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3055
!
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3056
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3057
errorPrintCR
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3058
    "print the receiver on standard output, followed by a cr.
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3059
     This method does NOT (by purpose) use the stream classes and
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3060
     will therefore work even in case of emergency (but only, if Stdout is nil)."
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3061
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3062
%{  /* NOCONTEXT */
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3063
14353
97611faada84 changed: #errorPrintCR
Stefan Vogel <sv@exept.de>
parents: 14330
diff changeset
  3064
    if (__isStringLike(self)) {
14163
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3065
        if (@global(Stderr) == nil) {
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3066
            console_fprintf(stderr, "%s\n" , __stringVal(self));
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3067
            console_fflush(stderr);
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3068
            RETURN (self);
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3069
        }
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3070
    }
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3071
%}.
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3072
    ^ super errorPrintCR
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3073
!
Stefan Vogel <sv@exept.de>
parents: 14156
diff changeset
  3074
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3075
print
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3076
    "print the receiver on standard output.
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3077
     This method does NOT (by purpose) use the stream classes and
5746
cf5e42cb72ef do not overwrite the standard printing conventions
Claus Gittinger <cg@exept.de>
parents: 5742
diff changeset
  3078
     will therefore work even in case of emergency (but only, if Stdout is nil)."
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3079
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3080
%{  /* NOCONTEXT */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3081
14201
c73c503ae8ef Fix #print and #printCR
Stefan Vogel <sv@exept.de>
parents: 14164
diff changeset
  3082
    if (__isStringLike(self)) {
14164
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3083
        if (@global(Stdout) == nil) {
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3084
            console_fprintf(stdout, "%s" , __stringVal(self));
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3085
            console_fflush(stdout);
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3086
            RETURN (self);
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3087
        }
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3088
    }
3751
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3089
%}.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3090
    ^ super print
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3091
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3092
3751
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3093
printCR
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3094
    "print the receiver on standard output, followed by a cr.
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3095
     This method does NOT (by purpose) use the stream classes and
5746
cf5e42cb72ef do not overwrite the standard printing conventions
Claus Gittinger <cg@exept.de>
parents: 5742
diff changeset
  3096
     will therefore work even in case of emergency (but only, if Stdout is nil)."
3751
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3097
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3098
%{  /* NOCONTEXT */
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3099
14201
c73c503ae8ef Fix #print and #printCR
Stefan Vogel <sv@exept.de>
parents: 14164
diff changeset
  3100
    if (__isStringLike(self)) {
14164
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3101
        if (@global(Stdout) == nil) {
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3102
            console_fprintf(stdout, "%s\n" , __stringVal(self));
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3103
            console_fflush(stdout);
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3104
            RETURN (self);
697104e031bf changed:
Stefan Vogel <sv@exept.de>
parents: 14163
diff changeset
  3105
        }
3751
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3106
    }
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3107
%}.
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3108
    ^ super printCR
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3109
!
e2913a6c124b checkin from browser
Claus Gittinger <cg@exept.de>
parents: 3734
diff changeset
  3110
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3111
printfPrintString:formatString
7746
4a4208ef7699 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 7685
diff changeset
  3112
    "non-standard but sometimes useful.
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3113
     Return a printed representation of the receiver as specified by formatString,
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3114
     which is defined by printf.
11921
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3115
     This method is NONSTANDARD and may be removed without notice.
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3116
     WARNNG: this goes directly to the C-printf function and may therefore me inherently unsafe.
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3117
     Please use the printf: method, which is safe as it is completely implemented in Smalltalk."
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3118
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3119
%{  /* STACK: 1000 */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3120
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3121
    char buffer[800];
8415
7e0f1105bc9f Security: use snprintf() instead of sprintf()
Stefan Vogel <sv@exept.de>
parents: 8383
diff changeset
  3122
    char *buf = buffer;
7e0f1105bc9f Security: use snprintf() instead of sprintf()
Stefan Vogel <sv@exept.de>
parents: 8383
diff changeset
  3123
    int bufsize = sizeof(buffer);
7e0f1105bc9f Security: use snprintf() instead of sprintf()
Stefan Vogel <sv@exept.de>
parents: 8383
diff changeset
  3124
    char *mallocbuf = NULL;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3125
    char *cp;
8415
7e0f1105bc9f Security: use snprintf() instead of sprintf()
Stefan Vogel <sv@exept.de>
parents: 8383
diff changeset
  3126
    int len;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3127
    OBJ s;
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3128
    extern void *malloc();
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3129
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3130
    if (__isStringLike(formatString)) {
11921
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3131
        cp = (char *)__stringVal(self);
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3132
        if (__qClass(self) != String) {
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3133
            cp += __OBJS2BYTES__(__intVal(__ClassInstPtr(__qClass(self))->c_ninstvars));
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3134
        }
8415
7e0f1105bc9f Security: use snprintf() instead of sprintf()
Stefan Vogel <sv@exept.de>
parents: 8383
diff changeset
  3135
again:
11921
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3136
        /*
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3137
         * actually only needed on sparc: since thisContext is
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3138
         * in a global register, which gets destroyed by printf,
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3139
         * manually save it here - very stupid ...
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3140
         */
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3141
        __BEGIN_PROTECT_REGISTERS__
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3142
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3143
        len = snprintf(buf, bufsize, (char *)__stringVal(formatString), cp);
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3144
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3145
        __END_PROTECT_REGISTERS__
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3146
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3147
        if ((len < 0) || (len > bufsize)) {
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3148
            if (len < 0) {
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3149
                bufsize = bufsize * 2;
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3150
            } else {
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3151
                bufsize = len + 1;
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3152
            }
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3153
            if (mallocbuf)
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3154
                free(mallocbuf);
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3155
            buf = mallocbuf = malloc(bufsize);
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3156
            if (buf == NULL)
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3157
                goto fail;
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3158
            goto again;
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3159
        }
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3160
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3161
        s = __MKSTRING_L(buf, len);
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3162
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3163
        if (mallocbuf)
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3164
            free(mallocbuf);
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3165
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3166
        if (s != nil) {
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3167
            RETURN (s);
e2c2786daab1 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11906
diff changeset
  3168
        }
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3169
    }
8415
7e0f1105bc9f Security: use snprintf() instead of sprintf()
Stefan Vogel <sv@exept.de>
parents: 8383
diff changeset
  3170
fail:;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3171
%}.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3172
    self primitiveFailed
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3173
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3174
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3175
     'hello' printfPrintString:'%%s -> %s'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3176
     (String new:900) printfPrintString:'%%s -> %s'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3177
     'hello' printfPrintString:'%%10s -> %10s'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3178
     'hello' printfPrintString:'%%-10s -> %-10s'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3179
     'hello' printfPrintString:'%%900s -> %900s'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3180
     'hello' printfPrintString:'%%-900s -> %-900s'
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3181
    "
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3182
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3183
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3184
storeOn:aStream
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3185
    "put the storeString of myself on aStream"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3186
7599
188489aaaacd #storeString - omit # from Symbols and Arrays that are elements of an array.
Stefan Vogel <sv@exept.de>
parents: 7338
diff changeset
  3187
    aStream nextPut:$'.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3188
    (self includes:$') ifTrue:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3189
	self printWithQuotesDoubledOn:aStream
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3190
    ] ifFalse:[
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3191
	aStream nextPutAll:self
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3192
    ].
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3193
    aStream nextPut:$'
3579
7d9a4ec2be4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3546
diff changeset
  3194
7d9a4ec2be4f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 3546
diff changeset
  3195
    "Modified: / 15.6.1998 / 17:21:51 / cg"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3196
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3197
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3198
storeString
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3199
    "return a String for storing myself"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3200
8049
ccd0e8f26439 printing - migrating towards unicodeSupport in ST-code
Claus Gittinger <cg@exept.de>
parents: 8038
diff changeset
  3201
    ^ self basicStoreString.
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  3202
! !
a27a279701f8 Initial revision
claus
parents:
diff changeset
  3203
a27a279701f8 Initial revision
claus
parents:
diff changeset
  3204
!String methodsFor:'queries'!
a27a279701f8 Initial revision
claus
parents:
diff changeset
  3205
5557
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3206
basicSize
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3207
    "return the number of characters in myself.
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3208
     Redefined here to exclude the 0-byte at the end."
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3209
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3210
%{  /* NOCONTEXT */
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3211
    REGISTER OBJ slf, cls;
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3212
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3213
    slf = self;
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3214
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3215
    cls = __qClass(slf);
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3216
    if (cls == String) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3217
	RETURN ( __mkSmallInteger(__stringSize(slf)) );
5557
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3218
    }
8913
b9498d27a554 64bit; mkSmallInteger
Claus Gittinger <cg@exept.de>
parents: 8898
diff changeset
  3219
    RETURN ( __mkSmallInteger(__stringSize(slf)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3220
			  - __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars))));
5557
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3221
%}.
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3222
    ^ super basicSize - 1
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3223
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3224
!
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3225
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3226
bitsPerCharacter
1239
91a688ac83de commentary
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  3227
    "return the number of bits each character has.
91a688ac83de commentary
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  3228
     Here, 8 is returned (storing single byte characters)."
91a688ac83de commentary
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  3229
1218
5ed62714c8d1 commentary; ignoredMethods removed
Claus Gittinger <cg@exept.de>
parents: 1143
diff changeset
  3230
    ^ 8
1239
91a688ac83de commentary
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  3231
91a688ac83de commentary
Claus Gittinger <cg@exept.de>
parents: 1218
diff changeset
  3232
    "Modified: 20.4.1996 / 23:08:42 / cg"
1218
5ed62714c8d1 commentary; ignoredMethods removed
Claus Gittinger <cg@exept.de>
parents: 1143
diff changeset
  3233
!
5ed62714c8d1 commentary; ignoredMethods removed
Claus Gittinger <cg@exept.de>
parents: 1143
diff changeset
  3234
8458
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3235
contains8BitCharacters
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3236
    "return true, if the underlying string contains 8BitCharacters (or widers)
8458
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3237
     (i.e. if it is non-ascii)"
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3238
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3239
%{  /* NOCONTEXT */
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3240
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3241
    REGISTER unsigned char *cp;
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3242
    REGISTER unsigned char *last;
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3243
    OBJ cls;
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3244
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3245
    cp = __stringVal(self);
8915
eb2652ce257d fixed includes/indexOf for subclasses of string with instVars;
Claus Gittinger <cg@exept.de>
parents: 8913
diff changeset
  3246
    last = cp + __stringSize(self);
8458
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3247
    if ((cls = __qClass(self)) != String) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3248
	cp += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
9268
0d06a0818b52 contains8BitChars int-size indep.
Claus Gittinger <cg@exept.de>
parents: 9233
diff changeset
  3249
    }
10371
7d23f24d0598 fix compiler warnings
Stefan Vogel <sv@exept.de>
parents: 10370
diff changeset
  3250
#if __POINTER_SIZE__ == 8
7d23f24d0598 fix compiler warnings
Stefan Vogel <sv@exept.de>
parents: 10370
diff changeset
  3251
    /* assume sizeof(long) == 4
7d23f24d0598 fix compiler warnings
Stefan Vogel <sv@exept.de>
parents: 10370
diff changeset
  3252
     * if __POINTER_SIZE__ == 4
7d23f24d0598 fix compiler warnings
Stefan Vogel <sv@exept.de>
parents: 10370
diff changeset
  3253
     */
9268
0d06a0818b52 contains8BitChars int-size indep.
Claus Gittinger <cg@exept.de>
parents: 9233
diff changeset
  3254
    if (sizeof(long) == 8) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3255
	while ((cp+8) <= last) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3256
	    if (*(unsigned long *)cp & 0x8080808080808080) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3257
		RETURN ( true );
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3258
	    }
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3259
	    cp += 8;
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3260
	}
8458
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3261
    }
10371
7d23f24d0598 fix compiler warnings
Stefan Vogel <sv@exept.de>
parents: 10370
diff changeset
  3262
#endif
9268
0d06a0818b52 contains8BitChars int-size indep.
Claus Gittinger <cg@exept.de>
parents: 9233
diff changeset
  3263
    if (sizeof(int) == 4) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3264
	while ((cp+4) <= last) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3265
	    if (*(unsigned int *)cp & 0x80808080) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3266
		RETURN ( true );
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3267
	    }
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3268
	    cp += 4;
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3269
	}
9268
0d06a0818b52 contains8BitChars int-size indep.
Claus Gittinger <cg@exept.de>
parents: 9233
diff changeset
  3270
    }
0d06a0818b52 contains8BitChars int-size indep.
Claus Gittinger <cg@exept.de>
parents: 9233
diff changeset
  3271
    while ((cp+2) <= last) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3272
	if (*(unsigned short *)cp & 0x8080) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3273
	    RETURN ( true );
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3274
	}
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3275
	cp += 2;
8915
eb2652ce257d fixed includes/indexOf for subclasses of string with instVars;
Claus Gittinger <cg@exept.de>
parents: 8913
diff changeset
  3276
    }
eb2652ce257d fixed includes/indexOf for subclasses of string with instVars;
Claus Gittinger <cg@exept.de>
parents: 8913
diff changeset
  3277
    while (cp < last) {
10352
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3278
	if (*cp & 0x80) {
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3279
	    RETURN ( true );
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3280
	}
f2e9bb8906db *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 9665
diff changeset
  3281
	cp++;
8458
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3282
    }
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3283
    RETURN (false);
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3284
%}.
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3285
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3286
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3287
     'hello world' contains8BitCharacters
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3288
     'hello world' asTwoByteString contains8BitCharacters
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3289
     ('hello world' , (Character value:16r88) asString) contains8BitCharacters
8458
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3290
    "
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3291
!
b10d8cb3ab00 *** empty log message ***
penk
parents: 8457
diff changeset
  3292
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3293
knownAsSymbol
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3294
    "return true, if there is a symbol with same characters in the
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3295
     system.
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3296
     Can be used to check for existance of a symbol without creating one"
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3297
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3298
%{  /* NOCONTEXT */
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3299
    OBJ cls;
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3300
    int indx;
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3301
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3302
    cls = __qClass(self);
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3303
    if (cls != String) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3304
	indx = __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3305
    } else {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3306
	indx = 0;
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3307
    }
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3308
    RETURN ( __KNOWNASSYMBOL(__stringVal(self) + indx) );
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  3309
%}.
6007
f55ba7370814 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 5762
diff changeset
  3310
"/    ^ self asSymbolIfInterned notNil.
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  3311
    self primitiveFailed
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3312
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3313
    "
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3314
     'hello' knownAsSymbol
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3315
     'fooBarBaz' knownAsSymbol
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3316
    "
5557
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3317
!
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3318
10820
e4282ad95f90 faster referencesAny
Claus Gittinger <cg@exept.de>
parents: 10697
diff changeset
  3319
referencesAny:aCollection
10822
a4e4c094df33 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10820
diff changeset
  3320
    "redefined to speed up searching when many string instances are present"
a4e4c094df33 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 10820
diff changeset
  3321
10820
e4282ad95f90 faster referencesAny
Claus Gittinger <cg@exept.de>
parents: 10697
diff changeset
  3322
    self class == String ifTrue:[^ false].
e4282ad95f90 faster referencesAny
Claus Gittinger <cg@exept.de>
parents: 10697
diff changeset
  3323
    ^ super referencesAny:aCollection
e4282ad95f90 faster referencesAny
Claus Gittinger <cg@exept.de>
parents: 10697
diff changeset
  3324
!
e4282ad95f90 faster referencesAny
Claus Gittinger <cg@exept.de>
parents: 10697
diff changeset
  3325
5557
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3326
size
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3327
    "return the number of characters in myself.
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3328
     Reimplemented here to avoid the additional size->basicSize send
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3329
     (which we can do here, since size is obviously not redefined in a subclass).
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3330
     This method is the same as basicSize."
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3331
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3332
%{  /* NOCONTEXT */
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3333
    REGISTER OBJ cls, slf;
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3334
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3335
    slf = self;
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3336
    cls = __qClass(slf);
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3337
    if (cls == String) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3338
	RETURN ( __mkSmallInteger(__stringSize(slf)) );
5557
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3339
    }
8913
b9498d27a554 64bit; mkSmallInteger
Claus Gittinger <cg@exept.de>
parents: 8898
diff changeset
  3340
    RETURN ( __mkSmallInteger(__stringSize(slf)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3341
			 - __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars))));
5557
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3342
%}.
f5f8d236027c category change
Claus Gittinger <cg@exept.de>
parents: 5556
diff changeset
  3343
    ^ self basicSize
8038
d2884b02987c stringSpecies query
Claus Gittinger <cg@exept.de>
parents: 8006
diff changeset
  3344
!
d2884b02987c stringSpecies query
Claus Gittinger <cg@exept.de>
parents: 8006
diff changeset
  3345
d2884b02987c stringSpecies query
Claus Gittinger <cg@exept.de>
parents: 8006
diff changeset
  3346
stringSpecies
d2884b02987c stringSpecies query
Claus Gittinger <cg@exept.de>
parents: 8006
diff changeset
  3347
    ^ String
1
a27a279701f8 Initial revision
claus
parents:
diff changeset
  3348
! !
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3349
11267
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3350
!String methodsFor:'sorting & reordering'!
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3351
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3352
reverse
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3353
    "in-place reverse the characters of the string.
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3354
     WARNING: this is a destructive operation, which modifies the receiver.
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3355
              Please use reversed (with a d) for a functional version."
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3356
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3357
    "Q: is there a need to redefine it here ?"
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3358
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3359
%{  /* NOCONTEXT */
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3360
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3361
    REGISTER char c;
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3362
    REGISTER unsigned char *hip, *lowp;
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3363
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3364
    if (__isString(self)) {
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3365
        lowp = __stringVal(self);
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3366
        hip = lowp + __stringSize(self) - 1;
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3367
        while (lowp < hip) {
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3368
            c = *lowp;
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3369
            *lowp = *hip;
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3370
            *hip = c;
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3371
            lowp++;
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3372
            hip--;
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3373
        }
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3374
        RETURN ( self );
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3375
    }
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3376
%}.
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3377
    ^ super reverse
d9f1462b8c1e comment
Claus Gittinger <cg@exept.de>
parents: 11061
diff changeset
  3378
! !
10820
e4282ad95f90 faster referencesAny
Claus Gittinger <cg@exept.de>
parents: 10697
diff changeset
  3379
11346
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3380
!String methodsFor:'substring searching'!
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3381
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3382
indexOfSubCollection:aSubString startingAt:startIndex ifAbsent:exceptionValue caseSensitive:caseSensitive
11347
7819f5148ca1 Boyer Moore algorithm for fast string search.
Claus Gittinger <cg@exept.de>
parents: 11346
diff changeset
  3383
    "redefined as primitive for maximum speed (BM)"
11346
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3384
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3385
    |notFound|
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3386
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3387
%{
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3388
    if (__isStringLike(self) 
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3389
     && __isStringLike(aSubString)
11346
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3390
     && (caseSensitive == true)
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3391
     && (__isSmallInteger(startIndex))
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3392
     && (__intVal(startIndex) > 0)
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3393
    ) {
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3394
        unsigned char *y = __stringVal(self);
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3395
        unsigned char *x = __stringVal(aSubString);
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3396
        int m = __stringSize(aSubString);
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3397
        int n = __stringSize(self);
14301
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3398
#       define MAX_PATTERN_SIZE 128
11346
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3399
#       define XSIZE 256
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3400
#       define ASIZE 256
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3401
#       define MAX(a,b) (a>b ? a : b)
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3402
11824
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3403
        if (m == 0) {
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3404
#if 1
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3405
            /* empty string does not match */
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3406
            RETURN(__mkSmallInteger(0));
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3407
#else
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3408
            /* empty string matches */
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3409
            RETURN(startIndex);
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3410
#endif
20754d2d3b37 includesString: emptyString should return false
Claus Gittinger <cg@exept.de>
parents: 11418
diff changeset
  3411
        }
11346
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3412
        if (m <= XSIZE) {
14301
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3413
            int i, j;
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3414
            static int lastPatternSize = 0;
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3415
            static char lastPattern[MAX_PATTERN_SIZE+1] = { 0 };
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3416
            static int bmGs[XSIZE+1], bmBc[ASIZE];
11346
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3417
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3418
#           define preBmBc(x, m, bmBc) {          \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3419
               int i;                             \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3420
                                                  \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3421
               for (i = 0; i < ASIZE; ++i)        \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3422
                  bmBc[i] = m;                    \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3423
               for (i = 0; i < m - 1; ++i)        \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3424
                  bmBc[x[i]] = m - i - 1;         \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3425
            }
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3426
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3427
#           define suffixes(x, m, suff) {                       \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3428
               int f, g, i;                                     \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3429
                                                                \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3430
               suff[m - 1] = m;                                 \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3431
               g = m - 1;                                       \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3432
               for (i = m - 2; i >= 0; --i) {                   \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3433
                  if (i > g && suff[i + m - 1 - f] < i - g)     \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3434
                     suff[i] = suff[i + m - 1 - f];             \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3435
                  else {                                        \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3436
                     if (i < g)                                 \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3437
                        g = i;                                  \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3438
                     f = i;                                     \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3439
                     while (g >= 0 && x[g] == x[g + m - 1 - f]) \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3440
                        --g;                                    \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3441
                     suff[i] = f - g;                           \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3442
                  }                                             \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3443
               }                                                \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3444
            }
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3445
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3446
#           define preBmGs(x, m, bmGs) {                        \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3447
               int i, j, suff[XSIZE];                           \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3448
                                                                \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3449
               suffixes(x, m, suff);                            \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3450
                                                                \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3451
               for (i = 0; i < m; ++i)                          \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3452
                  bmGs[i] = m;                                  \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3453
               j = 0;                                           \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3454
               for (i = m - 1; i >= 0; --i)                     \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3455
                  if (suff[i] == i + 1)                         \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3456
                     for (; j < m - 1 - i; ++j)                 \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3457
                        if (bmGs[j] == m)                       \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3458
                           bmGs[j] = m - 1 - i;                 \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3459
               for (i = 0; i <= m - 2; ++i)                     \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3460
                  bmGs[m - 1 - suff[i]] = m - 1 - i;            \
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3461
            }
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3462
14301
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3463
            /* tables only depend on pattern; so we can cache them in case the same string is searched again */
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3464
            if ((m == lastPatternSize)
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3465
             && (strcmp(lastPattern, x) == 0)) {
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3466
                /* tables are still valid */
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3467
                // printf("valid: \"%s\"\n", lastPattern);
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3468
            } else {                
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3469
                /* Preprocessing */
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3470
                // printf("compute: \"%s\"\n", lastPattern);
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3471
                preBmGs(x, m, bmGs);
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3472
                preBmBc(x, m, bmBc);
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3473
                if (m <= MAX_PATTERN_SIZE) {
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3474
                    // printf("cache for: \"%s\"\n", lastPattern);
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3475
                    strcpy(lastPattern, x);
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3476
                    lastPatternSize = m;
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3477
                }
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3478
            }
11346
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3479
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3480
            /* Searching */
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3481
            j = __intVal(startIndex) - 1;
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3482
            while (j <= n - m) {
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3483
               for (i = m - 1; i >= 0 && x[i] == y[i + j]; --i);
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3484
               if (i < 0) {
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3485
                  RETURN (__mkSmallInteger(j+1));
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3486
                  j += bmGs[0];  
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3487
               } else {
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3488
                  int s1 = bmGs[i];
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3489
                  int s2 = bmBc[y[i + j]] - m + 1 + i;
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3490
                  j += MAX(s1, s2);
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3491
               }
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3492
            }
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3493
            notFound = true;
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3494
        }
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3495
    }
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3496
%}.
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3497
    notFound == true ifTrue:[
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3498
        ^ exceptionValue value.
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3499
    ].
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3500
    ^ super indexOfSubCollection:aSubString startingAt:startIndex ifAbsent:exceptionValue caseSensitive:caseSensitive
14301
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3501
d8e7b4196d5e changed: #indexOfSubCollection:startingAt:ifAbsent:caseSensitive:
Claus Gittinger <cg@exept.de>
parents: 14297
diff changeset
  3502
    "Modified: / 05-08-2012 / 12:27:31 / cg"
11346
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3503
! !
c2d4de8e644f *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 11287
diff changeset
  3504
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3505
!String methodsFor:'testing'!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3506
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3507
endsWith:aStringOrChar
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3508
    "return true, if the receiver ends with something, aStringOrChar."
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3509
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3510
%{  /* NOCONTEXT */
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3511
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3512
    int len1, len2;
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3513
    REGISTER unsigned char *src1, *src2;
2858
866ffc52ac8a oops - need unsigned character compares
Claus Gittinger <cg@exept.de>
parents: 2856
diff changeset
  3514
    unsigned char c;
3545
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3515
    REGISTER OBJ slf = self;
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3516
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3517
    if (__isStringLike(slf) && __isStringLike(aStringOrChar)) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3518
        len1 = __qSize(slf);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3519
        len2 = __qSize(aStringOrChar);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3520
        if (len1 < len2) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3521
            RETURN ( false );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3522
        }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3523
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3524
        src1 = __stringVal(slf) + (len1 - len2);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3525
        src2 = __stringVal(aStringOrChar);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3526
        while (c = *src2++) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3527
            if (c != *src1++) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3528
                RETURN ( false );
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3529
            }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3530
        }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3531
        RETURN (true);
3545
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3532
    }
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3533
    if (__isCharacter(aStringOrChar)) {
12485
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3534
        int val;
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3535
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3536
        val = __intVal(_characterVal(aStringOrChar));
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3537
        if ((unsigned)val <= 0xFF) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3538
            len1 = __stringSize(slf);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3539
            if (len1 > 0) {
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3540
                RETURN ( (__stringVal(slf)[len1-1] == val) ? true : false);
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3541
            }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3542
        }
121288c11396 change __isString() to __isStringLike() in primitive code
Stefan Vogel <sv@exept.de>
parents: 12454
diff changeset
  3543
        RETURN ( false );
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3544
    }
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3545
%}.
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3546
    ^ super endsWith:aStringOrChar
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3547
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3548
    "
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3549
     'hello world' endsWith:'world'
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3550
     'hello world' endsWith:'earth'
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3551
     'hello world' endsWith:$d
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3552
     'hello world' endsWith:$e
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3553
     '' endsWith:$d
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3554
     'hello world' endsWith:#($r $l $d)
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3555
     'hello world' endsWith:''
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3556
    "
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3557
!
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3558
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3559
isBlank
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3560
    "return true, if the receivers size is 0 or if it contains only spaces.
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3561
     Q: should we care for whiteSpace in general here ?"
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3562
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3563
%{  /* NOCONTEXT */
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3564
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3565
    REGISTER unsigned char *src;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3566
    REGISTER unsigned char c;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3567
    OBJ cls;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3568
1134
7cb7cd7ebeb8 underline cleanup
Claus Gittinger <cg@exept.de>
parents: 1019
diff changeset
  3569
    src = __stringVal(self);
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3570
    if ((cls = __qClass(self)) != String)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3571
	src += __OBJS2BYTES__(__intVal(__ClassInstPtr(cls)->c_ninstvars));
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3572
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3573
#ifndef NON_ASCII
2954
a2f437a0483a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
  3574
# ifdef UINT64
a2f437a0483a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
  3575
    while (*((UINT64 *)src) == 0x2020202020202020L) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3576
	src += 8;
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3577
    }
2954
a2f437a0483a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2929
diff changeset
  3578
# endif /* UINT64 */
3710
6ee8b3c37d09 allow subclass-insts of String
Claus Gittinger <cg@exept.de>
parents: 3673
diff changeset
  3579
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3580
    while (*((unsigned *)src) == 0x20202020) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3581
	src += 4;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3582
    }
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3583
#endif /* ascii */
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3584
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3585
    while (c = *src++) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3586
	if (c != ' ') {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3587
	    RETURN ( false );
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3588
	}
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3589
    }
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  3590
    RETURN ( true );
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3591
%}.
5407
d6729266a95b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 5312
diff changeset
  3592
    ^ super isBlank
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3593
!
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3594
5556
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3595
isEmpty
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3596
    "return true if the receiver is empty (i.e. if size == 0)
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3597
     Redefined here for performance"
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3598
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3599
%{  /* NOCONTEXT */
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3600
    OBJ cls;
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3601
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3602
    cls = __qClass(self);
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3603
    if ((cls == String) || (cls == Symbol)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3604
	RETURN ( (__stringSize(self) == 0) ? true : false);
5556
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3605
    }
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3606
%}.
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3607
    ^ self size == 0
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3608
!
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3609
10958
100f639fdb0f category change: #isLiteral
Stefan Vogel <sv@exept.de>
parents: 10951
diff changeset
  3610
isLiteral
100f639fdb0f category change: #isLiteral
Stefan Vogel <sv@exept.de>
parents: 10951
diff changeset
  3611
    "return true, if the receiver can be used as a literal constant in ST syntax
100f639fdb0f category change: #isLiteral
Stefan Vogel <sv@exept.de>
parents: 10951
diff changeset
  3612
     (i.e. can be used in constant arrays)"
100f639fdb0f category change: #isLiteral
Stefan Vogel <sv@exept.de>
parents: 10951
diff changeset
  3613
100f639fdb0f category change: #isLiteral
Stefan Vogel <sv@exept.de>
parents: 10951
diff changeset
  3614
    ^ true
100f639fdb0f category change: #isLiteral
Stefan Vogel <sv@exept.de>
parents: 10951
diff changeset
  3615
!
100f639fdb0f category change: #isLiteral
Stefan Vogel <sv@exept.de>
parents: 10951
diff changeset
  3616
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3617
levenshteinTo:aString s:substWeight k:kbdTypoWeight c:caseWeight i:insrtWeight d:deleteWeight
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3618
    "parametrized levenshtein. arguments are the costs for
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3619
     substitution, case-change, insertion and deletion of a character."
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3620
1138
993e6ffdbf51 removed external decls for VM functions (should look for more)
Claus Gittinger <cg@exept.de>
parents: 1134
diff changeset
  3621
%{  /* STACK: 2000 */
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3622
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3623
    /*
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3624
     * this is very heavy used when correcting errors
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3625
     * (all symbols are searched for best match) - therefore it must be fast
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3626
     */
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3627
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3628
    unsigned short *data;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3629
    int l1, l2;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3630
    REGISTER int sz;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3631
    unsigned char *s1, *s2;
8913
b9498d27a554 64bit; mkSmallInteger
Claus Gittinger <cg@exept.de>
parents: 8898
diff changeset
  3632
    int v1, v2, v3;
b9498d27a554 64bit; mkSmallInteger
Claus Gittinger <cg@exept.de>
parents: 8898
diff changeset
  3633
    INT m;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3634
    REGISTER unsigned short *dp;
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3635
    REGISTER int rowDelta;
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3636
    REGISTER int j;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3637
    int i;
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3638
    int iW, cW, sW, kW, dW;
1486
60c770ac10eb dont access stdout on WIN32
Claus Gittinger <cg@exept.de>
parents: 1399
diff changeset
  3639
#   define FASTSIZE 30  /* increase STACK if you increase this ... */
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3640
    unsigned short fastData[(FASTSIZE + 1) * (FASTSIZE + 1)];
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3641
    extern void *malloc();
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3642
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3643
    if (__isStringLike(self) && __isStringLike(aString)
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3644
	&& __bothSmallInteger(insrtWeight, caseWeight)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3645
	&& __bothSmallInteger(substWeight, deleteWeight)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3646
	&& __isSmallInteger(kbdTypoWeight)
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3647
    ) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3648
	iW = __intVal(insrtWeight);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3649
	cW = __intVal(caseWeight);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3650
	sW = __intVal(substWeight);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3651
	kW = __intVal(kbdTypoWeight);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3652
	dW = __intVal(deleteWeight);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3653
	s1 = __stringVal(self);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3654
	s2 = __stringVal(aString);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3655
	l1 = strlen(s1);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3656
	l2 = strlen(s2);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3657
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3658
	sz = (l1 < l2) ? l2 : l1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3659
	rowDelta = sz + 1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3660
	if (sz <= FASTSIZE) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3661
	    data = fastData;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3662
	} else {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3663
	    /* add ifdef ALLOCA here ... */
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3664
	    data = (unsigned short *)malloc(rowDelta * rowDelta * sizeof(short));
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3665
	    if (! data) goto mallocFailed;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3666
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3667
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3668
	data[0] = 0;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3669
	for (j=1, dp=data+1; j<=sz; j++, dp++)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3670
	    *dp = dp[-1] + iW;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3671
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3672
	for (i=1, dp=data+rowDelta; i<=sz; i++, dp+=rowDelta)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3673
	    *dp = dp[-rowDelta] + dW;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3674
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3675
	for (i=0; i<l1; i++) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3676
	    for (j=0; j<l2; j++) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3677
		if (s1[i] == s2[j])
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3678
		    m = 0;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3679
		else if (tolower(s1[i]) == tolower(s2[j]))
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3680
		    m = cW;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3681
		else if (sW != kW && nextOnKeyboard(tolower(s1[i]), tolower(s2[j])))
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3682
		    m = kW;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3683
		else
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3684
		    m = sW;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3685
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3686
		dp = data + ((i+1)*rowDelta) + j;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3687
		v2 = dp[0] + iW;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3688
		v1 = dp[-rowDelta] + m;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3689
		v3 = dp[-rowDelta+1] + dW;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3690
		if (v1 < v2) {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3691
		    if (v1 < v3)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3692
			m = v1;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3693
		    else
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3694
			m = v3;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3695
		} else {
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3696
		    if (v2 < v3)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3697
			m = v2;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3698
		    else
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3699
			m = v3;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3700
		}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3701
		dp[1] = m;
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3702
	    }
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3703
	}
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3704
	m = data[l1*rowDelta + l2];
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3705
	if (sz > FASTSIZE)
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3706
	    free(data);
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3707
	RETURN ( __mkSmallInteger(m) );
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3708
    }
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3709
mallocFailed: ;
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3710
%}.
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3711
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3712
    ^ super levenshteinTo:aString
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3713
			s:substWeight k:kbdTypoWeight c:caseWeight
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3714
			i:insrtWeight d:deleteWeight
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3715
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3716
    "
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3717
     'ocmprt' levenshteinTo:'computer'
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3718
     'computer' levenshteinTo:'computer'
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3719
     'ocmputer' levenshteinTo:'computer'
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3720
     'cmputer' levenshteinTo:'computer'
8647
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3721
     'computer' levenshteinTo:'cmputer'
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3722
     'computer' levenshteinTo:'vomputer'
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3723
     'computer' levenshteinTo:'bomputer'
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3724
     'Computer' levenshteinTo:'computer'
2f59b57bcc4d Fix #levenshtein:... C-code.
Stefan Vogel <sv@exept.de>
parents: 8458
diff changeset
  3725
    "
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3726
!
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3727
5556
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3728
notEmpty
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3729
    "return true if the receiver is not empty (i.e. if size ~~ 0)
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3730
     Redefined here for performance"
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3731
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3732
%{  /* NOCONTEXT */
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3733
    OBJ cls;
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3734
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3735
    cls = __qClass(self);
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3736
    if ((cls == String) || (cls == Symbol)) {
9473
bb7785acb9d5 *** empty log message ***
fm
parents: 9472
diff changeset
  3737
	RETURN ( (__stringSize(self) != 0) ? true : false);
5556
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3738
    }
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3739
%}.
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3740
    ^ self size ~~ 0
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3741
!
1056cc5d6ce0 category change
Claus Gittinger <cg@exept.de>
parents: 5407
diff changeset
  3742
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3743
startsWith:aStringOrChar
4389
3655a0fea430 definite (true) return for zero-length arg in #startsWith:
Claus Gittinger <cg@exept.de>
parents: 4388
diff changeset
  3744
    "return true, if the receiver starts with something, aStringOrChar.
3655a0fea430 definite (true) return for zero-length arg in #startsWith:
Claus Gittinger <cg@exept.de>
parents: 4388
diff changeset
  3745
     If the argument is empty, true is returned."
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3746
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3747
%{  /* NOCONTEXT */
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3748
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3749
    int len1, len2;
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3750
    REGISTER unsigned char *src1, *src2;
2858
866ffc52ac8a oops - need unsigned character compares
Claus Gittinger <cg@exept.de>
parents: 2856
diff changeset
  3751
    unsigned char c;
3545
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3752
    REGISTER OBJ slf = self;
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3753
14217
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3754
    if (__qIsStringLike(slf) &&__isStringLike(aStringOrChar)) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3755
        src1 = __stringVal(slf);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3756
        src2 = __stringVal(aStringOrChar);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3757
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3758
        if (src1[0] != src2[0]) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3759
            if (__qSize(aStringOrChar) == (OHDR_SIZE+1) /* 1 for the 0-byte */) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3760
                RETURN (true);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3761
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3762
            RETURN ( false );
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3763
        }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3764
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3765
        len1 = __qSize(slf);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3766
        len2 = __qSize(aStringOrChar);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3767
        if (len1 < len2) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3768
            RETURN ( false );
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3769
        }
3545
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3770
4247
42504c49fe2a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4205
diff changeset
  3771
#ifdef UINT64
14217
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3772
        while (len2 > (OHDR_SIZE+sizeof(UINT64))) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3773
            if ( ((UINT64 *)src1)[0] != ((UINT64 *)src2)[0] ) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3774
                RETURN (false);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3775
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3776
            len2 -= sizeof(UINT64);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3777
            src1 += sizeof(UINT64);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3778
            src2 += sizeof(UINT64);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3779
        }
4247
42504c49fe2a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4205
diff changeset
  3780
#else
8919
707a9ff7f9b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8917
diff changeset
  3781
# ifdef __UNROLL_LOOPS__
14217
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3782
        while (len2 > (OHDR_SIZE+sizeof(INT)*4)) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3783
            if ( ((unsigned INT *)src1)[0] != ((unsigned INT *)src2)[0]) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3784
                RETURN (false);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3785
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3786
            if ( ((unsigned INT *)src1)[1] != ((unsigned INT *)src2)[1]) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3787
                RETURN (false);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3788
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3789
            if ( ((unsigned INT *)src1)[2] != ((unsigned INT *)src2)[2]) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3790
                RETURN (false);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3791
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3792
            if ( ((unsigned INT *)src1)[3] != ((unsigned INT *)src2)[3]) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3793
                RETURN (false);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3794
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3795
            len2 -= sizeof(INT)*4;
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3796
            src1 += sizeof(INT)*4;
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3797
            src2 += sizeof(INT)*4;
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3798
        }
8919
707a9ff7f9b2 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8917
diff changeset
  3799
# endif /* __UNROLL_LOOPS__ */
4247
42504c49fe2a *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4205
diff changeset
  3800
#endif /* UINT64 */
3546
00984e13534a 8-byte compares (if possible) in startsWith:
Claus Gittinger <cg@exept.de>
parents: 3545
diff changeset
  3801
14217
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3802
        while (len2 > (OHDR_SIZE+sizeof(INT))) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3803
            if ( ((unsigned INT *)src1)[0] != ((unsigned INT *)src2)[0]) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3804
                RETURN (false);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3805
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3806
            len2 -= sizeof(INT);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3807
            src1 += sizeof(INT);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3808
            src2 += sizeof(INT);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3809
        }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3810
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3811
        while (c = *src2++) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3812
            if (c != *src1) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3813
                RETURN ( false );
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3814
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3815
            src1++;
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3816
        }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3817
        RETURN (true);
3545
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3818
    }
5238e4d15d64 better code for endsWith: / startsWith: for single-character arg.
Claus Gittinger <cg@exept.de>
parents: 3451
diff changeset
  3819
    if (__isCharacter(aStringOrChar)) {
14217
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3820
        int val;
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3821
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3822
        val = __intVal(_characterVal(aStringOrChar));
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3823
        if ((unsigned)val <= 0xFF) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3824
            len1 = __stringSize(slf);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3825
            if (len1 > 0) {
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3826
                RETURN ( (__stringVal(slf)[0] == val) ? true : false);
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3827
            }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3828
        }
d399ca31088f changed: #startsWith:
Stefan Vogel <sv@exept.de>
parents: 14201
diff changeset
  3829
        RETURN ( false );
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3830
    }
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3831
%}.
2862
5cf60c544968 faster withoutSpaces
Claus Gittinger <cg@exept.de>
parents: 2858
diff changeset
  3832
    ^ super startsWith:aStringOrChar
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3833
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3834
    "
3314
94046261fba0 tuned #~= , #= and #startsWith:
Claus Gittinger <cg@exept.de>
parents: 3281
diff changeset
  3835
     'hello world' startsWith:'hello'
94046261fba0 tuned #~= , #= and #startsWith:
Claus Gittinger <cg@exept.de>
parents: 3281
diff changeset
  3836
     'hello world' startsWith:'hella'
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3837
     'hello world' startsWith:'hi'
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3838
     'hello world' startsWith:$h
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3839
     'hello world' startsWith:$H
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3840
     'hello world' startsWith:(Character value:16rFF00)
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3841
     'hello world' startsWith:60
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3842
     'hello world' startsWith:#($h $e $l)
8898
de2d00a37ae7 *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 8861
diff changeset
  3843
     'hello world' startsWith:''
1380
9873f7ae0785 category change
Claus Gittinger <cg@exept.de>
parents: 1368
diff changeset
  3844
    "
608
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3845
! !
cd5ac440fa95 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
  3846
4660
eec23cd7c7ed Added tracing support.
Claus Gittinger <cg@exept.de>
parents: 4631
diff changeset
  3847
!String methodsFor:'tracing'!
eec23cd7c7ed Added tracing support.
Claus Gittinger <cg@exept.de>
parents: 4631
diff changeset
  3848
4682
4158042a9c8c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4660
diff changeset
  3849
traceInto:aRequestor level:level from:referrer
4660
eec23cd7c7ed Added tracing support.
Claus Gittinger <cg@exept.de>
parents: 4631
diff changeset
  3850
    "double dispatch into tracer, passing my type implicitely in the selector"
eec23cd7c7ed Added tracing support.
Claus Gittinger <cg@exept.de>
parents: 4631
diff changeset
  3851
4682
4158042a9c8c *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 4660
diff changeset
  3852
    ^ aRequestor traceString:self level:level from:referrer
4660
eec23cd7c7ed Added tracing support.
Claus Gittinger <cg@exept.de>
parents: 4631
diff changeset
  3853
eec23cd7c7ed Added tracing support.
Claus Gittinger <cg@exept.de>
parents: 4631
diff changeset
  3854
eec23cd7c7ed Added tracing support.
Claus Gittinger <cg@exept.de>
parents: 4631
diff changeset
  3855
! !
eec23cd7c7ed Added tracing support.
Claus Gittinger <cg@exept.de>
parents: 4631
diff changeset
  3856
633
46e996b3c18f version at the end
Claus Gittinger <cg@exept.de>
parents: 608
diff changeset
  3857
!String class methodsFor:'documentation'!
46e996b3c18f version at the end
Claus Gittinger <cg@exept.de>
parents: 608
diff changeset
  3858
2886
aa4d70a6717e repaired bad checking
Claus Gittinger <cg@exept.de>
parents: 2885
diff changeset
  3859
version
14353
97611faada84 changed: #errorPrintCR
Stefan Vogel <sv@exept.de>
parents: 14330
diff changeset
  3860
    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.291 2012-09-14 13:31:18 stefan Exp $'
12184
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  3861
!
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  3862
e91c375c7ea9 comment/format in: #asPackageId
Claus Gittinger <cg@exept.de>
parents: 11922
diff changeset
  3863
version_CVS
14353
97611faada84 changed: #errorPrintCR
Stefan Vogel <sv@exept.de>
parents: 14330
diff changeset
  3864
    ^ '$Header: /cvs/stx/stx/libbasic/String.st,v 1.291 2012-09-14 13:31:18 stefan Exp $'
633
46e996b3c18f version at the end
Claus Gittinger <cg@exept.de>
parents: 608
diff changeset
  3865
! !