core/trunk/extensions.st
changeset 3 7909b6680107
parent 2 06f508a6f55c
child 7 1cd26cd6e378
equal deleted inserted replaced
2:06f508a6f55c 3:7909b6680107
     1 "{ Package: 'stx:goodies/xmlsuite' }"
     1 "{ Package: 'stx:goodies/xmlsuite/core' }"
       
     2 
     2 !
     3 !
     3 
     4 
     4 !Character methodsFor:'testing - XML'!
     5 !Character methodsFor:'testing - XML'!
     5 
     6 
     6 isInXMLCharSpec:aSelector
     7 isInXMLCharSpec:aSelector
    15     ].
    16     ].
    16     ^false
    17     ^false
    17 
    18 
    18     "Created: / 09-04-2005 / 08:19:12 / janfrog"
    19     "Created: / 09-04-2005 / 08:19:12 / janfrog"
    19 ! !
    20 ! !
    20 
       
    21 !Character methodsFor:'testing - XML'!
    21 !Character methodsFor:'testing - XML'!
    22 
    22 
    23 isXMLBaseChar
    23 isXMLBaseChar
    24 
    24 
    25     "See XML 1.1 grammar rule #85"
    25     "See XML 1.1 grammar rule #85"
    33     "
    33     "
    34 
    34 
    35     "Created: / 01-04-2005 / 18:35:18 / janfrog"
    35     "Created: / 01-04-2005 / 18:35:18 / janfrog"
    36     "Modified: / 09-04-2005 / 08:21:35 / janfrog"
    36     "Modified: / 09-04-2005 / 08:21:35 / janfrog"
    37 ! !
    37 ! !
    38 
       
    39 !Character methodsFor:'testing - XML'!
    38 !Character methodsFor:'testing - XML'!
    40 
    39 
    41 isXMLChar
    40 isXMLChar
    42     "
    41     "
    43         From XML grammar
    42         From XML grammar
    52     (self codePoint between:16r10000 and:16r10FFFF) ifTrue:[^true].
    51     (self codePoint between:16r10000 and:16r10FFFF) ifTrue:[^true].
    53     ^false
    52     ^false
    54 
    53 
    55     "Created: / 12-03-2005 / 11:21:33 / janfrog"
    54     "Created: / 12-03-2005 / 11:21:33 / janfrog"
    56 ! !
    55 ! !
    57 
       
    58 !Character methodsFor:'testing - XML'!
    56 !Character methodsFor:'testing - XML'!
    59 
    57 
    60 isXMLCombiningChar
    58 isXMLCombiningChar
    61 
    59 
    62 
    60 
    63     ^self isInXMLCharSpec:#xmlCombiningCharValues
    61     ^self isInXMLCharSpec:#xmlCombiningCharValues
    64 
    62 
    65     "Created: / 09-04-2005 / 08:15:10 / janfrog"
    63     "Created: / 09-04-2005 / 08:15:10 / janfrog"
    66 ! !
    64 ! !
    67 
       
    68 !Character methodsFor:'testing - XML'!
    65 !Character methodsFor:'testing - XML'!
    69 
    66 
    70 isXMLDigit
    67 isXMLDigit
    71 
    68 
    72 
    69 
    77         $s isXMLDigit 
    74         $s isXMLDigit 
    78     "
    75     "
    79 
    76 
    80     "Created: / 09-04-2005 / 08:23:38 / janfrog"
    77     "Created: / 09-04-2005 / 08:23:38 / janfrog"
    81 ! !
    78 ! !
    82 
       
    83 !Character methodsFor:'testing - XML'!
    79 !Character methodsFor:'testing - XML'!
    84 
    80 
    85 isXMLExtender
    81 isXMLExtender
    86 
    82 
    87 
    83 
    91 
    87 
    92     "
    88     "
    93 
    89 
    94     "Created: / 09-04-2005 / 08:25:56 / janfrog"
    90     "Created: / 09-04-2005 / 08:25:56 / janfrog"
    95 ! !
    91 ! !
    96 
       
    97 !Character methodsFor:'testing - XML'!
    92 !Character methodsFor:'testing - XML'!
    98 
    93 
    99 isXMLIdeographic
    94 isXMLIdeographic
   100 
    95 
   101     "From XML grammar
    96     "From XML grammar
   107     (self codePoint = 16r3007) ifTrue:[^true].
   102     (self codePoint = 16r3007) ifTrue:[^true].
   108     ^false
   103     ^false
   109 
   104 
   110     "Created: / 01-04-2005 / 18:38:30 / janfrog"
   105     "Created: / 01-04-2005 / 18:38:30 / janfrog"
   111 ! !
   106 ! !
   112 
       
   113 !Character methodsFor:'testing - XML'!
   107 !Character methodsFor:'testing - XML'!
   114 
   108 
   115 isXMLLetter
   109 isXMLLetter
   116 
   110 
   117     "From XML grammar
   111     "From XML grammar
   120 
   114 
   121     ^self isXMLBaseChar or:[self isXMLIdeographic]
   115     ^self isXMLBaseChar or:[self isXMLIdeographic]
   122 
   116 
   123     "Created: / 01-04-2005 / 18:39:15 / janfrog"
   117     "Created: / 01-04-2005 / 18:39:15 / janfrog"
   124 ! !
   118 ! !
   125 
       
   126 !Character methodsFor:'testing - XML'!
   119 !Character methodsFor:'testing - XML'!
   127 
   120 
   128 isXMLPubidChar
   121 isXMLPubidChar
   129     "
   122     "
   130         From XML grammar
   123         From XML grammar
   137     ('-''()+,./:=?;!!*#@$_%' includes:self) ifTrue:[^true].
   130     ('-''()+,./:=?;!!*#@$_%' includes:self) ifTrue:[^true].
   138     ^false
   131     ^false
   139 
   132 
   140     "Created: / 01-04-2005 / 17:45:16 / janfrog"
   133     "Created: / 01-04-2005 / 17:45:16 / janfrog"
   141 ! !
   134 ! !
   142 
       
   143 !Character methodsFor:'testing - XML'!
   135 !Character methodsFor:'testing - XML'!
   144 
   136 
   145 isXMLWhiteSpace
   137 isXMLWhiteSpace
   146 
   138 
   147     "From XML grammar
   139     "From XML grammar
   150 
   142 
   151     ^ #(16r20 16r09 16r0D 16r0A) includes:self codePoint
   143     ^ #(16r20 16r09 16r0D 16r0A) includes:self codePoint
   152 
   144 
   153     "Created: / 01-04-2005 / 17:37:12 / janfrog"
   145     "Created: / 01-04-2005 / 17:37:12 / janfrog"
   154 ! !
   146 ! !
   155 
       
   156 !Character class methodsFor:'XML character specs'!
   147 !Character class methodsFor:'XML character specs'!
   157 
   148 
   158 xmlBaseCharValues
   149 xmlBaseCharValues
   159     ^ #( #(16r0041 16r005A) #(16r0061 16r007A) #(16r00C0 16r00D6) #(16r00D8 16r00F6) #(16r00F8 16r00FF) #(16r0100 16r0131) #(16r0134 16r013E) #(16r0141 16r0148) #(16r014A 16r017E) #(16r0180 16r01C3) #(16r01CD 16r01F0) #(16r01F4 16r01F5) #(16r01FA 16r0217) #(16r0250 16r02A8) #(16r02BB 16r02C1) 16r0386 #(16r0388 16r038A) 16r038C #(16r038E 16r03A1) #(16r03A3 16r03CE) #(16r03D0 16r03D6) 16r03DA 16r03DC 16r03DE 16r03E0 #(16r03E2 16r03F3) #(16r0401 16r040C) #(16r040E 16r044F) #(16r0451 16r045C) #(16r045E 16r0481) #(16r0490 16r04C4) #(16r04C7 16r04C8) #(16r04CB 16r04CC) #(16r04D0 16r04EB) #(16r04EE 16r04F5) #(16r04F8 16r04F9) #(16r0531 16r0556) 16r0559 #(16r0561 16r0586) #(16r05D0 16r05EA) #(16r05F0 16r05F2) #(16r0621 16r063A) #(16r0641 16r064A) #(16r0671 16r06B7) #(16r06BA 16r06BE) #(16r06C0 16r06CE) #(16r06D0 16r06D3) 16r06D5 #(16r06E5 16r06E6) #(16r0905 16r0939) 16r093D #(16r0958 16r0961) #(16r0985 16r098C) #(16r098F 16r0990) #(16r0993 16r09A8) #(16r09AA 16r09B0) 16r09B2 #(16r09B6 16r09B9) #(16r09DC 16r09DD) #(16r09DF 16r09E1) #(16r09F0 16r09F1) #(16r0A05 16r0A0A) #(16r0A0F 16r0A10) #(16r0A13 16r0A28) #(16r0A2A 16r0A30) #(16r0A32 16r0A33) #(16r0A35 16r0A36) #(16r0A38 16r0A39) #(16r0A59 16r0A5C) 16r0A5E #(16r0A72 16r0A74) #(16r0A85 16r0A8B) 16r0A8D #(16r0A8F 16r0A91) #(16r0A93 16r0AA8) #(16r0AAA 16r0AB0) #(16r0AB2 16r0AB3) #(16r0AB5 16r0AB9) 16r0ABD 16r0AE0 #(16r0B05 16r0B0C) #(16r0B0F 16r0B10) #(16r0B13 16r0B28) #(16r0B2A 16r0B30) #(16r0B32 16r0B33) #(16r0B36 16r0B39) 16r0B3D #(16r0B5C 16r0B5D) #(16r0B5F 16r0B61) #(16r0B85 16r0B8A) #(16r0B8E 16r0B90) #(16r0B92 16r0B95) #(16r0B99 16r0B9A) 16r0B9C #(16r0B9E 16r0B9F) #(16r0BA3 16r0BA4) #(16r0BA8 16r0BAA) #(16r0BAE 16r0BB5) #(16r0BB7 16r0BB9) #(16r0C05 16r0C0C) #(16r0C0E 16r0C10) #(16r0C12 16r0C28) #(16r0C2A 16r0C33) #(16r0C35 16r0C39) #(16r0C60 16r0C61) #(16r0C85 16r0C8C) #(16r0C8E 16r0C90) #(16r0C92 16r0CA8) #(16r0CAA 16r0CB3) #(16r0CB5 16r0CB9) 16r0CDE #(16r0CE0 16r0CE1) #(16r0D05 16r0D0C) #(16r0D0E 16r0D10) #(16r0D12 16r0D28) #(16r0D2A 16r0D39) #(16r0D60 16r0D61) #(16r0E01 16r0E2E) 16r0E30 #(16r0E32 16r0E33) #(16r0E40 16r0E45) #(16r0E81 16r0E82) 16r0E84 #(16r0E87 16r0E88) 16r0E8A 16r0E8D #(16r0E94 16r0E97) #(16r0E99 16r0E9F) #(16r0EA1 16r0EA3) 16r0EA5 16r0EA7 #(16r0EAA 16r0EAB) #(16r0EAD 16r0EAE) 16r0EB0 #(16r0EB2 16r0EB3) 16r0EBD #(16r0EC0 16r0EC4) #(16r0F40 16r0F47) #(16r0F49 16r0F69) #(16r10A0 16r10C5) #(16r10D0 16r10F6) 16r1100 #(16r1102 16r1103) #(16r1105 16r1107) 16r1109 #(16r110B 16r110C) #(16r110E 16r1112) 16r113C 16r113E 16r1140 16r114C 16r114E 16r1150 #(16r1154 16r1155) 16r1159 #(16r115F 16r1161) 16r1163 16r1165 16r1167 16r1169 #(16r116D 16r116E) #(16r1172 16r1173) 16r1175 16r119E 16r11A8 16r11AB #(16r11AE 16r11AF) #(16r11B7 16r11B8) 16r11BA #(16r11BC 16r11C2) 16r11EB 16r11F0 16r11F9 #(16r1E00 16r1E9B) #(16r1EA0 16r1EF9) #(16r1F00 16r1F15) #(16r1F18 16r1F1D) #(16r1F20 16r1F45) #(16r1F48 16r1F4D) #(16r1F50 16r1F57) 16r1F59 16r1F5B 16r1F5D #(16r1F5F 16r1F7D) #(16r1F80 16r1FB4) #(16r1FB6 16r1FBC) 16r1FBE #(16r1FC2 16r1FC4) #(16r1FC6 16r1FCC) #(16r1FD0 16r1FD3) #(16r1FD6 16r1FDB) #(16r1FE0 16r1FEC) #(16r1FF2 16r1FF4) #(16r1FF6 16r1FFC) 16r2126 #(16r212A 16r212B) 16r212E #(16r2180 16r2182) #(16r3041 16r3094) #(16r30A1 16r30FA) #(16r3105 16r312C) #(16rAC00 16rD7A3) )
   150     ^ #( #(16r0041 16r005A) #(16r0061 16r007A) #(16r00C0 16r00D6) #(16r00D8 16r00F6) #(16r00F8 16r00FF) #(16r0100 16r0131) #(16r0134 16r013E) #(16r0141 16r0148) #(16r014A 16r017E) #(16r0180 16r01C3) #(16r01CD 16r01F0) #(16r01F4 16r01F5) #(16r01FA 16r0217) #(16r0250 16r02A8) #(16r02BB 16r02C1) 16r0386 #(16r0388 16r038A) 16r038C #(16r038E 16r03A1) #(16r03A3 16r03CE) #(16r03D0 16r03D6) 16r03DA 16r03DC 16r03DE 16r03E0 #(16r03E2 16r03F3) #(16r0401 16r040C) #(16r040E 16r044F) #(16r0451 16r045C) #(16r045E 16r0481) #(16r0490 16r04C4) #(16r04C7 16r04C8) #(16r04CB 16r04CC) #(16r04D0 16r04EB) #(16r04EE 16r04F5) #(16r04F8 16r04F9) #(16r0531 16r0556) 16r0559 #(16r0561 16r0586) #(16r05D0 16r05EA) #(16r05F0 16r05F2) #(16r0621 16r063A) #(16r0641 16r064A) #(16r0671 16r06B7) #(16r06BA 16r06BE) #(16r06C0 16r06CE) #(16r06D0 16r06D3) 16r06D5 #(16r06E5 16r06E6) #(16r0905 16r0939) 16r093D #(16r0958 16r0961) #(16r0985 16r098C) #(16r098F 16r0990) #(16r0993 16r09A8) #(16r09AA 16r09B0) 16r09B2 #(16r09B6 16r09B9) #(16r09DC 16r09DD) #(16r09DF 16r09E1) #(16r09F0 16r09F1) #(16r0A05 16r0A0A) #(16r0A0F 16r0A10) #(16r0A13 16r0A28) #(16r0A2A 16r0A30) #(16r0A32 16r0A33) #(16r0A35 16r0A36) #(16r0A38 16r0A39) #(16r0A59 16r0A5C) 16r0A5E #(16r0A72 16r0A74) #(16r0A85 16r0A8B) 16r0A8D #(16r0A8F 16r0A91) #(16r0A93 16r0AA8) #(16r0AAA 16r0AB0) #(16r0AB2 16r0AB3) #(16r0AB5 16r0AB9) 16r0ABD 16r0AE0 #(16r0B05 16r0B0C) #(16r0B0F 16r0B10) #(16r0B13 16r0B28) #(16r0B2A 16r0B30) #(16r0B32 16r0B33) #(16r0B36 16r0B39) 16r0B3D #(16r0B5C 16r0B5D) #(16r0B5F 16r0B61) #(16r0B85 16r0B8A) #(16r0B8E 16r0B90) #(16r0B92 16r0B95) #(16r0B99 16r0B9A) 16r0B9C #(16r0B9E 16r0B9F) #(16r0BA3 16r0BA4) #(16r0BA8 16r0BAA) #(16r0BAE 16r0BB5) #(16r0BB7 16r0BB9) #(16r0C05 16r0C0C) #(16r0C0E 16r0C10) #(16r0C12 16r0C28) #(16r0C2A 16r0C33) #(16r0C35 16r0C39) #(16r0C60 16r0C61) #(16r0C85 16r0C8C) #(16r0C8E 16r0C90) #(16r0C92 16r0CA8) #(16r0CAA 16r0CB3) #(16r0CB5 16r0CB9) 16r0CDE #(16r0CE0 16r0CE1) #(16r0D05 16r0D0C) #(16r0D0E 16r0D10) #(16r0D12 16r0D28) #(16r0D2A 16r0D39) #(16r0D60 16r0D61) #(16r0E01 16r0E2E) 16r0E30 #(16r0E32 16r0E33) #(16r0E40 16r0E45) #(16r0E81 16r0E82) 16r0E84 #(16r0E87 16r0E88) 16r0E8A 16r0E8D #(16r0E94 16r0E97) #(16r0E99 16r0E9F) #(16r0EA1 16r0EA3) 16r0EA5 16r0EA7 #(16r0EAA 16r0EAB) #(16r0EAD 16r0EAE) 16r0EB0 #(16r0EB2 16r0EB3) 16r0EBD #(16r0EC0 16r0EC4) #(16r0F40 16r0F47) #(16r0F49 16r0F69) #(16r10A0 16r10C5) #(16r10D0 16r10F6) 16r1100 #(16r1102 16r1103) #(16r1105 16r1107) 16r1109 #(16r110B 16r110C) #(16r110E 16r1112) 16r113C 16r113E 16r1140 16r114C 16r114E 16r1150 #(16r1154 16r1155) 16r1159 #(16r115F 16r1161) 16r1163 16r1165 16r1167 16r1169 #(16r116D 16r116E) #(16r1172 16r1173) 16r1175 16r119E 16r11A8 16r11AB #(16r11AE 16r11AF) #(16r11B7 16r11B8) 16r11BA #(16r11BC 16r11C2) 16r11EB 16r11F0 16r11F9 #(16r1E00 16r1E9B) #(16r1EA0 16r1EF9) #(16r1F00 16r1F15) #(16r1F18 16r1F1D) #(16r1F20 16r1F45) #(16r1F48 16r1F4D) #(16r1F50 16r1F57) 16r1F59 16r1F5B 16r1F5D #(16r1F5F 16r1F7D) #(16r1F80 16r1FB4) #(16r1FB6 16r1FBC) 16r1FBE #(16r1FC2 16r1FC4) #(16r1FC6 16r1FCC) #(16r1FD0 16r1FD3) #(16r1FD6 16r1FDB) #(16r1FE0 16r1FEC) #(16r1FF2 16r1FF4) #(16r1FF6 16r1FFC) 16r2126 #(16r212A 16r212B) 16r212E #(16r2180 16r2182) #(16r3041 16r3094) #(16r30A1 16r30FA) #(16r3105 16r312C) #(16rAC00 16rD7A3) )
   160 
   151 
   161     "Created: / 08-03-2006 / 09:35:13 / janfrog"
   152     "Created: / 08-03-2006 / 09:35:13 / janfrog"
   162 ! !
   153 ! !
   163 
       
   164 !Character class methodsFor:'XML character specs'!
   154 !Character class methodsFor:'XML character specs'!
   165 
   155 
   166 xmlCombiningCharValues
   156 xmlCombiningCharValues
   167     ^ #(
   157     ^ #(
   168     #(16r0300 16r0345)  #(16r0360 16r0361)  #(16r0483 16r0486)  #(16r0591 16r05A1)  #(16r05A3 16r05B9)  #(16r05BB 16r05BD)  16r05BF  #(16r05C1 16r05C2)  16r05C4  #(16r064B 16r0652)  16r0670  #(16r06D6 16r06DC)  #(16r06DD 16r06DF)  #(16r06E0 16r06E4)  #(16r06E7 16r06E8)  #(16r06EA 16r06ED)  #(16r0901 16r0903)  16r093C  #(16r093E 16r094C)  16r094D  #(16r0951 16r0954)  #(16r0962 16r0963)  #(16r0981 16r0983)  16r09BC  16r09BE  16r09BF  #(16r09C0 16r09C4)  #(16r09C7 16r09C8)  #(16r09CB 16r09CD)  16r09D7  #(16r09E2 16r09E3)  16r0A02  16r0A3C  16r0A3E  16r0A3F  #(16r0A40 16r0A42)  #(16r0A47 16r0A48)  #(16r0A4B 16r0A4D)  #(16r0A70 16r0A71)  #(16r0A81 16r0A83)  16r0ABC  #(16r0ABE 16r0AC5)  #(16r0AC7 16r0AC9)  #(16r0ACB 16r0ACD)  #(16r0B01 16r0B03)  16r0B3C  #(16r0B3E 16r0B43)  #(16r0B47 16r0B48)  #(16r0B4B 16r0B4D)  #(16r0B56 16r0B57)  #(16r0B82 16r0B83)  #(16r0BBE 16r0BC2)  #(16r0BC6 16r0BC8)  #(16r0BCA 16r0BCD)  16r0BD7  #(16r0C01 16r0C03)  #(16r0C3E 16r0C44)  #(16r0C46 16r0C48)  #(16r0C4A 16r0C4D)  #(16r0C55 16r0C56)  #(16r0C82 16r0C83)  #(16r0CBE 16r0CC4)  #(16r0CC6 16r0CC8)  #(16r0CCA 16r0CCD)  #(16r0CD5 16r0CD6)  #(16r0D02 16r0D03)  #(16r0D3E 16r0D43)  #(16r0D46 16r0D48)  #(16r0D4A 16r0D4D)  16r0D57  16r0E31  #(16r0E34 16r0E3A)  #(16r0E47 16r0E4E)  16r0EB1  #(16r0EB4 16r0EB9)  #(16r0EBB 16r0EBC)  #(16r0EC8 16r0ECD)  #(16r0F18 16r0F19)  16r0F35  16r0F37  16r0F39  16r0F3E  16r0F3F  #(16r0F71 16r0F84)  #(16r0F86 16r0F8B)  #(16r0F90 16r0F95)  16r0F97  #(16r0F99 16r0FAD)  #(16r0FB1 16r0FB7)  16r0FB9  #(16r20D0 16r20DC)  16r20E1  #(16r302A 16r302F)  16r3099  16r309A
   158     #(16r0300 16r0345)  #(16r0360 16r0361)  #(16r0483 16r0486)  #(16r0591 16r05A1)  #(16r05A3 16r05B9)  #(16r05BB 16r05BD)  16r05BF  #(16r05C1 16r05C2)  16r05C4  #(16r064B 16r0652)  16r0670  #(16r06D6 16r06DC)  #(16r06DD 16r06DF)  #(16r06E0 16r06E4)  #(16r06E7 16r06E8)  #(16r06EA 16r06ED)  #(16r0901 16r0903)  16r093C  #(16r093E 16r094C)  16r094D  #(16r0951 16r0954)  #(16r0962 16r0963)  #(16r0981 16r0983)  16r09BC  16r09BE  16r09BF  #(16r09C0 16r09C4)  #(16r09C7 16r09C8)  #(16r09CB 16r09CD)  16r09D7  #(16r09E2 16r09E3)  16r0A02  16r0A3C  16r0A3E  16r0A3F  #(16r0A40 16r0A42)  #(16r0A47 16r0A48)  #(16r0A4B 16r0A4D)  #(16r0A70 16r0A71)  #(16r0A81 16r0A83)  16r0ABC  #(16r0ABE 16r0AC5)  #(16r0AC7 16r0AC9)  #(16r0ACB 16r0ACD)  #(16r0B01 16r0B03)  16r0B3C  #(16r0B3E 16r0B43)  #(16r0B47 16r0B48)  #(16r0B4B 16r0B4D)  #(16r0B56 16r0B57)  #(16r0B82 16r0B83)  #(16r0BBE 16r0BC2)  #(16r0BC6 16r0BC8)  #(16r0BCA 16r0BCD)  16r0BD7  #(16r0C01 16r0C03)  #(16r0C3E 16r0C44)  #(16r0C46 16r0C48)  #(16r0C4A 16r0C4D)  #(16r0C55 16r0C56)  #(16r0C82 16r0C83)  #(16r0CBE 16r0CC4)  #(16r0CC6 16r0CC8)  #(16r0CCA 16r0CCD)  #(16r0CD5 16r0CD6)  #(16r0D02 16r0D03)  #(16r0D3E 16r0D43)  #(16r0D46 16r0D48)  #(16r0D4A 16r0D4D)  16r0D57  16r0E31  #(16r0E34 16r0E3A)  #(16r0E47 16r0E4E)  16r0EB1  #(16r0EB4 16r0EB9)  #(16r0EBB 16r0EBC)  #(16r0EC8 16r0ECD)  #(16r0F18 16r0F19)  16r0F35  16r0F37  16r0F39  16r0F3E  16r0F3F  #(16r0F71 16r0F84)  #(16r0F86 16r0F8B)  #(16r0F90 16r0F95)  16r0F97  #(16r0F99 16r0FAD)  #(16r0FB1 16r0FB7)  16r0FB9  #(16r20D0 16r20DC)  16r20E1  #(16r302A 16r302F)  16r3099  16r309A
   169         )
   159         )
   170 
   160 
   171     "Created: / 08-03-2006 / 09:36:37 / janfrog"
   161     "Created: / 08-03-2006 / 09:36:37 / janfrog"
   172 ! !
   162 ! !
   173 
       
   174 !Character class methodsFor:'XML character specs'!
   163 !Character class methodsFor:'XML character specs'!
   175 
   164 
   176 xmlDigitValues
   165 xmlDigitValues
   177     ^ #( (16r0030 16r0039) #(16r0660 16r0669) #(16r06F0 16r06F9) #(16r0966 16r096F) #(16r09E6 16r09EF) #(16r0A66 16r0A6F) #(16r0AE6 16r0AEF) #(16r0B66 16r0B6F) #(16r0BE7 16r0BEF) #(16r0C66 16r0C6F) #(16r0CE6 16r0CEF) #(16r0D66 16r0D6F) #(16r0E50 16r0E59) #(16r0ED0 16r0ED9) #(16r0F20 16r0F29) )
   166     ^ #( (16r0030 16r0039) #(16r0660 16r0669) #(16r06F0 16r06F9) #(16r0966 16r096F) #(16r09E6 16r09EF) #(16r0A66 16r0A6F) #(16r0AE6 16r0AEF) #(16r0B66 16r0B6F) #(16r0BE7 16r0BEF) #(16r0C66 16r0C6F) #(16r0CE6 16r0CEF) #(16r0D66 16r0D6F) #(16r0E50 16r0E59) #(16r0ED0 16r0ED9) #(16r0F20 16r0F29) )
   178 
   167 
   179     "Created: / 08-03-2006 / 09:38:10 / janfrog"
   168     "Created: / 08-03-2006 / 09:38:10 / janfrog"
   180 ! !
   169 ! !
   181 
       
   182 !Character class methodsFor:'XML character specs'!
   170 !Character class methodsFor:'XML character specs'!
   183 
   171 
   184 xmlExtenderValues
   172 xmlExtenderValues
   185     ^ #( 
   173     ^ #( 
   186             16r00B7  16r02D0  16r02D1  16r0387  16r0640  16r0E46  16r0EC6  16r3005  #(16r3031 16r3035)  #(16r309D 16r309E)  #(16r30FC 16r30FE)
   174             16r00B7  16r02D0  16r02D1  16r0387  16r0640  16r0E46  16r0EC6  16r3005  #(16r3031 16r3035)  #(16r309D 16r309E)  #(16r30FC 16r30FE)
   187     )
   175     )
   188 
   176 
   189     "Created: / 08-03-2006 / 09:37:48 / janfrog"
   177     "Created: / 08-03-2006 / 09:37:48 / janfrog"
   190 ! !
   178 ! !
   191 
       
   192 !CharacterArray methodsFor:'converting'!
   179 !CharacterArray methodsFor:'converting'!
   193 
   180 
   194 asJamesClarkCanonicalXMLEscapedString
   181 asJamesClarkCanonicalXMLEscapedString
   195 
   182 
   196     | output |
   183     | output |
   213     ].
   200     ].
   214     ^output contents
   201     ^output contents
   215 
   202 
   216     "Created: / 21-10-2005 / 15:10:25 / janfrog"
   203     "Created: / 21-10-2005 / 15:10:25 / janfrog"
   217 ! !
   204 ! !
   218 
       
   219 !CharacterArray methodsFor:'converting'!
   205 !CharacterArray methodsFor:'converting'!
   220 
   206 
   221 asXMLEscapedString
   207 asXMLEscapedString
   222 
   208 
   223     | output |
   209     | output |
   238     ^output contents
   224     ^output contents
   239 
   225 
   240     "Created: / 24-06-2005 / 12:12:02 / masca"
   226     "Created: / 24-06-2005 / 12:12:02 / masca"
   241     "Modified: / 21-10-2005 / 15:00:36 / janfrog"
   227     "Modified: / 21-10-2005 / 15:00:36 / janfrog"
   242 ! !
   228 ! !
   243 
       
   244 !CharacterArray class methodsFor:'instance creation'!
   229 !CharacterArray class methodsFor:'instance creation'!
   245 
   230 
   246 fromXMLEscapedString:aString
   231 fromXMLEscapedString:aString
   247 
   232 
   248     | input output next entity|
   233     | input output next entity|
   263     ].
   248     ].
   264     ^output contents.
   249     ^output contents.
   265 
   250 
   266     "Created: / 24-06-2005 / 12:12:24 / masca"
   251     "Created: / 24-06-2005 / 12:12:24 / masca"
   267 ! !
   252 ! !
   268 
   253 !XMLv2::XMLFormatter class methodsFor:'documentation'!
   269 !XML::Comment methodsFor:'accessing'!
   254 
   270 
   255 version
   271 xPath
   256     ^ '$Header: /opt/data/cvs/stx/goodies/xmlsuite/XMLv2__XMLFormatter.st,v 1.1.1.1 2005-11-01 22:07:10 vranyj1 Exp $'
   272     ^ parent xPath
   257 ! !
   273 
       
   274     "Created: / 23-04-2005 / 23:15:32 / janfrog"
       
   275 ! !
       
   276 
       
   277 !XML::NodeTag methodsFor:'accessing'!
       
   278 
       
   279 qualifiedName
       
   280 
       
   281     ^self qualifier isEmpty
       
   282         ifTrue:[self type]
       
   283         ifFalse:[self qualifier , ':' , self type]
       
   284 
       
   285     "Created: / 23-04-2005 / 09:35:39 / janfrog"
       
   286 ! !
       
   287 
       
   288 !XML::NodeTag methodsFor:'accessing'!
       
   289 
       
   290 qualifier:aString
       
   291 
       
   292         qualifier := aString
       
   293 
       
   294     "Created: / 11-05-2005 / 19:52:02 / janfrog"
       
   295 ! !
       
   296