51     Some heavily used Characters are kept as singletons; i.e. for every asciiValue (0..N), 

    51     Some heavily used Characters are kept as singletons; i.e. for every asciiValue (0..N),

    58     i.e. these my or may not be created as required. 

    58     i.e. these my or may not be created as required.

    63         This means: you may compare characters using #== ONLY IFF you are certain,

    63 	This means: you may compare characters using #== ONLY IFF you are certain,

    64         that the characters ranges is 0..255.

    64 	that the characters ranges is 0..255.

    65         Otherwise, you HAVE TO compare using #=. (if in doubt, always compare using #=).

    65 	Otherwise, you HAVE TO compare using #=. (if in doubt, always compare using #=).

    66         Sorry for this inconvenience, but it is (practically) impossible to keep

    66 	Sorry for this inconvenience, but it is (practically) impossible to keep

    67         the possible maximum of 2^32 characters (Unicode) around, for that convenience alone.

    67 	the possible maximum of 2^32 characters (Unicode) around, for that convenience alone.

    80              do not change the instance layout.

    80 	     do not change the instance layout.

    89         There are a number of complications to case mappings that occur once the repertoire

    89 	There are a number of complications to case mappings that occur once the repertoire

    90         of characters is expanded beyond ASCII.

    90 	of characters is expanded beyond ASCII.

    91 

    91 

    92         * Because of the inclusion of certain composite characters for compatibility,

    92 	* Because of the inclusion of certain composite characters for compatibility,

    93           such as U+01F1 'DZ' capital dz, there is a third case, called titlecase,

    93 	  such as U+01F1 'DZ' capital dz, there is a third case, called titlecase,

    94           which is used where the first letter of a word is to be capitalized

    94 	  which is used where the first letter of a word is to be capitalized

    95           (e.g. Titlecase, vs. UPPERCASE, or lowercase).

    95 	  (e.g. Titlecase, vs. UPPERCASE, or lowercase).

    96           For example, the title case of the example character is U+01F2 'Dz' capital d with small z.

    96 	  For example, the title case of the example character is U+01F2 'Dz' capital d with small z.

    97 

    97 

    98         * Case mappings may produce strings of different length than the original.

    98 	* Case mappings may produce strings of different length than the original.

    99           For example, the German character U+00DF small letter sharp s expands when uppercased to

    99 	  For example, the German character U+00DF small letter sharp s expands when uppercased to

   100           the sequence of two characters 'SS'.

   100 	  the sequence of two characters 'SS'.

   101           This also occurs where there is no precomposed character corresponding to a case mapping.

   101 	  This also occurs where there is no precomposed character corresponding to a case mapping.

   102           *** This is not yet implemented (in 5.2) ***

   102 	  *** This is not yet implemented (in 5.2) ***

   103 

   103 

   104         * Characters may also have different case mappings, depending on the context.

   104 	* Characters may also have different case mappings, depending on the context.

   105           For example, U+03A3 capital sigma lowercases to U+03C3 small sigma if it is not followed

   105 	  For example, U+03A3 capital sigma lowercases to U+03C3 small sigma if it is not followed

   106           by another letter, but lowercases to 03C2 small final sigma if it is.

   106 	  by another letter, but lowercases to 03C2 small final sigma if it is.

   107           *** This is not yet implemented (in 5.2) ***

   107 	  *** This is not yet implemented (in 5.2) ***

   108 

   108 

   109         * Characters may have case mappings that depend on the locale.

   109 	* Characters may have case mappings that depend on the locale.

   110           For example, in Turkish the letter 0049 'I' capital letter i lowercases to 0131 small dotless i.

   110 	  For example, in Turkish the letter 0049 'I' capital letter i lowercases to 0131 small dotless i.

   111           *** This is not yet implemented (in 5.2) ***

   111 	  *** This is not yet implemented (in 5.2) ***

   112 

   112 

   113         * Case mappings are not, in general, reversible.

   113 	* Case mappings are not, in general, reversible.

   114           For example, once the string 'McGowan' has been uppercased, lowercased or titlecased,

   114 	  For example, once the string 'McGowan' has been uppercased, lowercased or titlecased,

   115           the original cannot be recovered by applying another uppercase, lowercase, or titlecase operation.

   115 	  the original cannot be recovered by applying another uppercase, lowercase, or titlecase operation.

   118         *** This is not yet implemented (in 5.2) ***

   118 	*** This is not yet implemented (in 5.2) ***

   121         Claus Gittinger

   121 	Claus Gittinger

   124         String TwoByteString Unicode16String Unicode32String

   124 	String TwoByteString Unicode16String Unicode32String

   125         StringCollection Text

   125 	StringCollection Text

   141 

   141 #ifdef __JAVA__

   142     {

   143 	char ch = (char)(context.stArg(0).intValue("[codePoint:]"));

   144 

   145 	return context._RETURN(STCharacter._new(ch));

   146     }

   147     /* NOTREACHED */

   148 #else

   587         Separators := Array

   595 	Separators := Array

   588             with:Character space

   596 	    with:Character space

   589             with:Character return

   597 	    with:Character return

   590             "/ with:Character cr

   598 	    "/ with:Character cr

   591             with:Character tab

   599 	    with:Character tab

   592             with:Character lf

   600 	    with:Character lf

   593             with:Character ff

   601 	    with:Character ff

   739         $A = (Character value:65)       

   747 	$A = (Character value:65)

   740         $A = (Character codePoint:65)       

   748 	$A = (Character codePoint:65)

   741         $A = ($B-1)                   

   749 	$A = ($B-1)

   742         $A = 65                       

   750 	$A = 65

  1448         if (__isCharacter(aStringOrCharacter)) {

  1476 	if (__isCharacter(aStringOrCharacter)) {

  1449             unsigned INT val2 = __intVal(__characterVal(aStringOrCharacter));

  1477 	    unsigned INT val2 = __intVal(__characterVal(aStringOrCharacter));

  1450 

  1478 

  1451             if (val2 <= 0xFF) {

  1479 	    if (val2 <= 0xFF) {

  1452                 char buffer[2];

  1480 		char buffer[2];

  1453 

  1481 

  1454                 buffer[0] = val;

  1482 		buffer[0] = val;

  1455                 buffer[1] = val2;

  1483 		buffer[1] = val2;

  1456                 s = __MKSTRING_L(buffer, 2);

  1484 		s = __MKSTRING_L(buffer, 2);

  1457                 if (s != nil) {

  1485 		if (s != nil) {

  1458                     RETURN (s);

  1486 		    RETURN (s);

  1459                 }

  1487 		}

  1460             }

  1488 	    }

  1461         } else {

  1489 	} else {

  1462             if (__isString(aStringOrCharacter)) {

  1490 	    if (__isString(aStringOrCharacter)) {

  1463                 int strSize = __stringSize(aStringOrCharacter);

  1491 		int strSize = __stringSize(aStringOrCharacter);

  1464 

  1492 

  1465                 s = __MKEMPTYSTRING(strSize+1);

  1493 		s = __MKEMPTYSTRING(strSize+1);

  1466                 if (s != nil) {

  1494 		if (s != nil) {

  1467                     __StringInstPtr(s)->s_element[0] = val;

  1495 		    __StringInstPtr(s)->s_element[0] = val;

  1468                     memcpy(__StringInstPtr(s)->s_element+1, __stringVal(aStringOrCharacter), strSize+1); // copies 0-byte too

  1496 		    memcpy(__StringInstPtr(s)->s_element+1, __stringVal(aStringOrCharacter), strSize+1); // copies 0-byte too

  1469                     RETURN (s);

  1497 		    RETURN (s);

  1470                 }

  1498 		}

  1471             }

  1499 	    }

  1472         }

  1500 	}

  1595         ^ super displayOn:aGCOrStream

  1623 	^ super displayOn:aGCOrStream

  2387         for now, this method is only correct for unicode characters up to u+2FF,

  2415 	for now, this method is only correct for unicode characters up to u+2FF,

  2388         i.e. latin languages"

  2416 	i.e. latin languages"

  2397         case 0x00:

  2425 	case 0x00:

  2398             if (val < 0xC0) { RETURN(self); }

  2426 	    if (val < 0xC0) { RETURN(self); }

  2399             if (val <= 0xC6) { val = 'A'; break; }

  2427 	    if (val <= 0xC6) { val = 'A'; break; }

  2400             if (val == 0xC7) { val = 'C'; break; }

  2428 	    if (val == 0xC7) { val = 'C'; break; }

  2401             if (val <= 0xCB) { val = 'E'; break; }

  2429 	    if (val <= 0xCB) { val = 'E'; break; }

  2402             if (val <= 0xCF) { val = 'I'; break; }

  2430 	    if (val <= 0xCF) { val = 'I'; break; }

  2403             if (val == 0xD0) { val = 'D'; break; }

  2431 	    if (val == 0xD0) { val = 'D'; break; }

  2404             if (val == 0xD1) { val = 'N'; break; }

  2432 	    if (val == 0xD1) { val = 'N'; break; }

  2405             if (val <= 0xD6) { val = 'O'; break; }

  2433 	    if (val <= 0xD6) { val = 'O'; break; }

  2406             if (val == 0xD7) { RETURN(self) }

  2434 	    if (val == 0xD7) { RETURN(self) }

  2407             if (val == 0xD8) { val = 'O'; break; }

  2435 	    if (val == 0xD8) { val = 'O'; break; }

  2408             if (val <= 0xDC) { val = 'U'; break; }

  2436 	    if (val <= 0xDC) { val = 'U'; break; }

  2409             if (val == 0xDD) { val = 'Y'; break; }

  2437 	    if (val == 0xDD) { val = 'Y'; break; }

  2410 

  2438 

  2411             if (val < 0xE0) { RETURN(self) }

  2439 	    if (val < 0xE0) { RETURN(self) }

  2412             if (val <= 0xE6) { val = 'a'; break; }

  2440 	    if (val <= 0xE6) { val = 'a'; break; }

  2413             if (val == 0xE7) { val = 'c'; break; }

  2441 	    if (val == 0xE7) { val = 'c'; break; }

  2414             if (val <= 0xEB) { val = 'e'; break; }

  2442 	    if (val <= 0xEB) { val = 'e'; break; }

  2415             if (val <= 0xEF) { val = 'i'; break; }

  2443 	    if (val <= 0xEF) { val = 'i'; break; }

  2416             if (val == 0xF0) { val = 'd'; break; }

  2444 	    if (val == 0xF0) { val = 'd'; break; }

  2417             if (val == 0xF1) { val = 'n'; break; }

  2445 	    if (val == 0xF1) { val = 'n'; break; }

  2418             if (val <= 0xF6) { val = 'o'; break; }

  2446 	    if (val <= 0xF6) { val = 'o'; break; }

  2419             if (val == 0xF7) { RETURN(self) }

  2447 	    if (val == 0xF7) { RETURN(self) }

  2420             if (val == 0xF8) { val = 'o'; break; }

  2448 	    if (val == 0xF8) { val = 'o'; break; }

  2421             if (val <= 0xFC) { val = 'u'; break; }

  2449 	    if (val <= 0xFC) { val = 'u'; break; }

  2422             if (val == 0xFD) { val = 'y'; break; }

  2450 	    if (val == 0xFD) { val = 'y'; break; }

  2423             if (val == 0xFF) { val = 'y'; break; }

  2451 	    if (val == 0xFF) { val = 'y'; break; }

  2424             RETURN (self);

  2452 	    RETURN (self);

  2425 

  2453 

  2426         case 0x01:

  2454 	case 0x01:

  2427             if (val <= 0x105) { val = (val & 1) ? 'a' : 'A'; break; }

  2455 	    if (val <= 0x105) { val = (val & 1) ? 'a' : 'A'; break; }

  2428             if (val <= 0x10D) { val = (val & 1) ? 'c' : 'C'; break; }

  2456 	    if (val <= 0x10D) { val = (val & 1) ? 'c' : 'C'; break; }

  2429             if (val <= 0x111) { val = (val & 1) ? 'd' : 'D'; break; }

  2457 	    if (val <= 0x111) { val = (val & 1) ? 'd' : 'D'; break; }

  2430             if (val <= 0x11B) { val = (val & 1) ? 'e' : 'E'; break; }

  2458 	    if (val <= 0x11B) { val = (val & 1) ? 'e' : 'E'; break; }

  2431             if (val <= 0x123) { val = (val & 1) ? 'g' : 'G'; break; }

  2459 	    if (val <= 0x123) { val = (val & 1) ? 'g' : 'G'; break; }

  2432             if (val <= 0x127) { val = (val & 1) ? 'h' : 'H'; break; }

  2460 	    if (val <= 0x127) { val = (val & 1) ? 'h' : 'H'; break; }

  2433             if (val <= 0x133) { val = (val & 1) ? 'i' : 'I'; break; }

  2461 	    if (val <= 0x133) { val = (val & 1) ? 'i' : 'I'; break; }

  2434             if (val <= 0x137) { val = (val & 1) ? 'k' : 'K'; break; }

  2462 	    if (val <= 0x137) { val = (val & 1) ? 'k' : 'K'; break; }

  2435             if (val == 0x138) { val = 'K'; break; }

  2463 	    if (val == 0x138) { val = 'K'; break; }

  2436             if (val <= 0x142) { val = (val & 1) ? 'L' : 'l'; break; }

  2464 	    if (val <= 0x142) { val = (val & 1) ? 'L' : 'l'; break; }

  2437             if (val <= 0x148) { val = (val & 1) ? 'N' : 'n'; break; }

  2465 	    if (val <= 0x148) { val = (val & 1) ? 'N' : 'n'; break; }

  2438             if (val <= 0x14B) { val = (val & 1) ? 'n' : 'N'; break; }

  2466 	    if (val <= 0x14B) { val = (val & 1) ? 'n' : 'N'; break; }

  2439             if (val <= 0x153) { val = (val & 1) ? 'o' : 'O'; break; }

  2467 	    if (val <= 0x153) { val = (val & 1) ? 'o' : 'O'; break; }

  2440             if (val <= 0x159) { val = (val & 1) ? 'r' : 'R'; break; }

  2468 	    if (val <= 0x159) { val = (val & 1) ? 'r' : 'R'; break; }

  2441             if (val <= 0x161) { val = (val & 1) ? 's' : 'S'; break; }

  2469 	    if (val <= 0x161) { val = (val & 1) ? 's' : 'S'; break; }

  2442             if (val <= 0x167) { val = (val & 1) ? 't' : 'T'; break; }

  2470 	    if (val <= 0x167) { val = (val & 1) ? 't' : 'T'; break; }

  2443             if (val <= 0x173) { val = (val & 1) ? 'u' : 'U'; break; }

  2471 	    if (val <= 0x173) { val = (val & 1) ? 'u' : 'U'; break; }

  2444             if (val <= 0x175) { val = (val & 1) ? 'w' : 'W'; break; }

  2472 	    if (val <= 0x175) { val = (val & 1) ? 'w' : 'W'; break; }

  2445             if (val <= 0x178) { val = (val & 1) ? 'y' : 'Y'; break; }

  2473 	    if (val <= 0x178) { val = (val & 1) ? 'y' : 'Y'; break; }

  2446             if (val <= 0x17E) { val = (val & 1) ? 'Z' : 'z'; break; }

  2474 	    if (val <= 0x17E) { val = (val & 1) ? 'Z' : 'z'; break; }

  2447             RETURN (self);

  2475 	    RETURN (self);

  2448 

  2476 

  2449         case 0x02:

  2477 	case 0x02:

  2450             if (val <= 0x203) { val = (val & 1) ? 'a' : 'A'; break; }

  2478 	    if (val <= 0x203) { val = (val & 1) ? 'a' : 'A'; break; }

  2451             if (val <= 0x207) { val = (val & 1) ? 'e' : 'E'; break; }

  2479 	    if (val <= 0x207) { val = (val & 1) ? 'e' : 'E'; break; }

  2452             if (val <= 0x20B) { val = (val & 1) ? 'i' : 'I'; break; }

  2480 	    if (val <= 0x20B) { val = (val & 1) ? 'i' : 'I'; break; }

  2453             if (val <= 0x20F) { val = (val & 1) ? 'o' : 'O'; break; }

  2481 	    if (val <= 0x20F) { val = (val & 1) ? 'o' : 'O'; break; }

  2454             if (val <= 0x213) { val = (val & 1) ? 'r' : 'R'; break; }

  2482 	    if (val <= 0x213) { val = (val & 1) ? 'r' : 'R'; break; }

  2455             if (val <= 0x217) { val = (val & 1) ? 'u' : 'U'; break; }

  2483 	    if (val <= 0x217) { val = (val & 1) ? 'u' : 'U'; break; }

  2456             if (val <= 0x219) { val = (val & 1) ? 's' : 'S'; break; }

  2484 	    if (val <= 0x219) { val = (val & 1) ? 's' : 'S'; break; }

  2457             if (val <= 0x21B) { val = (val & 1) ? 't' : 'T'; break; }

  2485 	    if (val <= 0x21B) { val = (val & 1) ? 't' : 'T'; break; }

  2458             RETURN (self);

  2486 	    RETURN (self);

  2459 

  2487 

  2460         case 0x03:

  2488 	case 0x03:

  2461             // to be done

  2489 	    // to be done

  2462             RETURN (self);

  2490 	    RETURN (self);

  2463 

  2491 

  2464         case 0x04:

  2492 	case 0x04:

  2465             // to be done

  2493 	    // to be done

  2466             RETURN (self);

  2494 	    RETURN (self);

  2469         RETURN (__MKCHARACTER(val)) ;

  2497 	RETURN (__MKCHARACTER(val)) ;

  3010     ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.159 2015-02-07 15:36:49 cg Exp $'

  3038     ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.160 2015-04-15 00:30:56 cg Exp $'

  3014     ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.159 2015-02-07 15:36:49 cg Exp $'

  3042     ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.160 2015-04-15 00:30:56 cg Exp $'