Changeset 3314
- Timestamp:
- 06/24/08 17:12:08 (7 months ago)
- Files:
-
- trunk/thirdparty/closure-common/.git/FETCH_HEAD (modified) (1 diff)
- trunk/thirdparty/closure-common/.git/index (modified) (previous)
- trunk/thirdparty/closure-common/.git/logs/HEAD (modified) (1 diff)
- trunk/thirdparty/closure-common/.git/logs/refs/heads/master (modified) (1 diff)
- trunk/thirdparty/closure-common/.git/logs/refs/remotes/origin/master (modified) (1 diff)
- trunk/thirdparty/closure-common/.git/objects/0b (added)
- trunk/thirdparty/closure-common/.git/objects/0b/9020bed33003a211acd684ab7f54ab3712860c (added)
- trunk/thirdparty/closure-common/.git/objects/29 (added)
- trunk/thirdparty/closure-common/.git/objects/29/4e93c3a838f9f3feca559666876356bff3c620 (added)
- trunk/thirdparty/closure-common/.git/objects/46 (added)
- trunk/thirdparty/closure-common/.git/objects/46/9511713ae2b6a0016278fef1efd8b986e97f31 (added)
- trunk/thirdparty/closure-common/.git/objects/4d (added)
- trunk/thirdparty/closure-common/.git/objects/4d/a69d832c5995d504f5e8d87fb6603cde402864 (added)
- trunk/thirdparty/closure-common/.git/objects/6a (added)
- trunk/thirdparty/closure-common/.git/objects/6a/d3e0b2a71df35ddd356ae6c898369a6aad9a8c (added)
- trunk/thirdparty/closure-common/.git/objects/dd (added)
- trunk/thirdparty/closure-common/.git/objects/dd/ee7cb7d4ece1334e5ca96ccff713abea1016db (added)
- trunk/thirdparty/closure-common/.git/objects/ea (added)
- trunk/thirdparty/closure-common/.git/objects/ea/fabdc1b12c02ba9660f42e0e995aa18e75db89 (added)
- trunk/thirdparty/closure-common/.git/objects/ec (added)
- trunk/thirdparty/closure-common/.git/objects/ec/24b42f6356e11243b2f17fdc315e755fda4d77 (added)
- trunk/thirdparty/closure-common/.git/objects/f0 (added)
- trunk/thirdparty/closure-common/.git/objects/f0/bf1b26cf5dca0492bb8ec0e439d4936a5ddfa1 (added)
- trunk/thirdparty/closure-common/.git/objects/fc (added)
- trunk/thirdparty/closure-common/.git/objects/fc/832df789ae7bff3c5e26fa4d6a3128e8d7aeb3 (added)
- trunk/thirdparty/closure-common/.git/refs/heads/master (modified) (1 diff)
- trunk/thirdparty/closure-common/.git/refs/remotes/origin/master (modified) (1 diff)
- trunk/thirdparty/closure-common/encodings-data.lisp (modified) (5 diffs)
- trunk/thirdparty/closure-common/package.lisp (modified) (1 diff)
- trunk/thirdparty/closure-common/ystream.lisp (modified) (2 diffs)
- trunk/thirdparty/cxml/.git/FETCH_HEAD (added)
- trunk/thirdparty/cxml/.git/ORIG_HEAD (added)
- trunk/thirdparty/cxml/.git/index (modified) (previous)
- trunk/thirdparty/cxml/.git/logs/HEAD (modified) (1 diff)
- trunk/thirdparty/cxml/.git/logs/refs/heads/master (modified) (1 diff)
- trunk/thirdparty/cxml/.git/logs/refs/remotes/origin/master (modified) (1 diff)
- trunk/thirdparty/cxml/.git/objects/07 (added)
- trunk/thirdparty/cxml/.git/objects/07/37466783c8c2c7871de8a35a864e872792b489 (added)
- trunk/thirdparty/cxml/.git/objects/1a (added)
- trunk/thirdparty/cxml/.git/objects/1a/3e364d942dc7d3b13a171bc873297bf711f7c4 (added)
- trunk/thirdparty/cxml/.git/objects/43 (added)
- trunk/thirdparty/cxml/.git/objects/43/3f8225fea0f2c064eed73cdf26664bb0c3a975 (added)
- trunk/thirdparty/cxml/.git/objects/47 (added)
- trunk/thirdparty/cxml/.git/objects/47/a4a225b32e2924e141a3cded1d4cbd5db3de97 (added)
- trunk/thirdparty/cxml/.git/objects/6d (added)
- trunk/thirdparty/cxml/.git/objects/6d/74906e3d1ef8b0bae6e0b1ce8527dd42196154 (added)
- trunk/thirdparty/cxml/.git/objects/83 (added)
- trunk/thirdparty/cxml/.git/objects/83/fc8c4f47634dc6a65f8f24fff40c2e75493d05 (added)
- trunk/thirdparty/cxml/.git/objects/a1 (added)
- trunk/thirdparty/cxml/.git/objects/a1/a95a4d03701050f71044fd9305d50cd6480c98 (added)
- trunk/thirdparty/cxml/.git/objects/ad (added)
- trunk/thirdparty/cxml/.git/objects/ad/a2943efef4170d26b7ea0332c7c37f9c613c02 (added)
- trunk/thirdparty/cxml/.git/objects/be (added)
- trunk/thirdparty/cxml/.git/objects/be/f1a51b3c794fc178ea036f5f5d1bf0fdcb4a8f (added)
- trunk/thirdparty/cxml/.git/objects/c1 (added)
- trunk/thirdparty/cxml/.git/objects/c1/4833ebbe5ea50889d7ab2dc268597cae25ef2e (added)
- trunk/thirdparty/cxml/.git/objects/cd (added)
- trunk/thirdparty/cxml/.git/objects/cd/b37ac0a97de22f09e97bae93bb245b85e03554 (added)
- trunk/thirdparty/cxml/.git/objects/cf (added)
- trunk/thirdparty/cxml/.git/objects/cf/18cab8ed6e2d8f055bf79ec3e071f198104f07 (added)
- trunk/thirdparty/cxml/.git/objects/cf/5eec2fe9dbf12886012149349df0178e85819a (added)
- trunk/thirdparty/cxml/.git/objects/d4 (added)
- trunk/thirdparty/cxml/.git/objects/d4/c62e9ac57b64cee13a64dc37ce04fae6139aeb (added)
- trunk/thirdparty/cxml/.git/objects/d8 (added)
- trunk/thirdparty/cxml/.git/objects/d8/b24801f61844ec9b72f94d43e2e91beead3c97 (added)
- trunk/thirdparty/cxml/.git/objects/dd (added)
- trunk/thirdparty/cxml/.git/objects/dd/b8bc64d6578516a24475907db9ea406d4ca49a (added)
- trunk/thirdparty/cxml/.git/objects/ea (added)
- trunk/thirdparty/cxml/.git/objects/ea/a1a1d2a220dff3abadd493a4d0d321ecb60cd1 (added)
- trunk/thirdparty/cxml/.git/objects/f6 (added)
- trunk/thirdparty/cxml/.git/objects/f6/c877ad6c54ef66592d4218ec0947cdc0a27cfd (added)
- trunk/thirdparty/cxml/.git/refs/heads/master (modified) (1 diff)
- trunk/thirdparty/cxml/.git/refs/remotes/origin/master (modified) (1 diff)
- trunk/thirdparty/cxml/doc/index.xml (modified) (2 diffs)
- trunk/thirdparty/cxml/test/misc.lisp (modified) (1 diff)
- trunk/thirdparty/cxml/xml/sax-handler.lisp (modified) (2 diffs)
- trunk/thirdparty/cxml/xml/unparse.lisp (modified) (16 diffs)
- trunk/thirdparty/cxml/xml/xml-parse.lisp (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/thirdparty/closure-common/.git/FETCH_HEAD
r3108 r3314 1 1 bab2e05f9c13c2754b936e2ef1f480b0243ee3a2 not-for-merge branch 'dlichteblau' of git://repo.or.cz/closure-common 2 4 ffb7dffe1d40eed89d8ed7186b4cc3f87f7396abranch 'master' of git://repo.or.cz/closure-common2 469511713ae2b6a0016278fef1efd8b986e97f31 branch 'master' of git://repo.or.cz/closure-common 3 3 bc3a666248c0a7aaa72afaea5a065290299eb555 not-for-merge branch 'origin' of git://repo.or.cz/closure-common trunk/thirdparty/closure-common/.git/logs/HEAD
r3108 r3314 1 1 0000000000000000000000000000000000000000 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a Hans Huebner <hans@netzhansa.com> 1210314282 +0000 2 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a 469511713ae2b6a0016278fef1efd8b986e97f31 Hans Huebner <hans@jasmin.headcraft.de> 1214327269 +0000 pull : Fast forward trunk/thirdparty/closure-common/.git/logs/refs/heads/master
r3108 r3314 1 1 0000000000000000000000000000000000000000 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a Hans Huebner <hans@netzhansa.com> 1210314282 +0000 2 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a 469511713ae2b6a0016278fef1efd8b986e97f31 Hans Huebner <hans@jasmin.headcraft.de> 1214327269 +0000 pull : Fast forward trunk/thirdparty/closure-common/.git/logs/refs/remotes/origin/master
r3108 r3314 1 1 0000000000000000000000000000000000000000 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a Hans Huebner <hans@netzhansa.com> 1210314282 +0000 clone: from git://repo.or.cz/closure-common.git 2 4ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a 469511713ae2b6a0016278fef1efd8b986e97f31 Hans Huebner <hans@jasmin.headcraft.de> 1214327269 +0000 pull : fast forward trunk/thirdparty/closure-common/.git/refs/heads/master
r3108 r3314 1 4 ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a1 469511713ae2b6a0016278fef1efd8b986e97f31 trunk/thirdparty/closure-common/.git/refs/remotes/origin/master
r3108 r3314 1 4 ffb7dffe1d40eed89d8ed7186b4cc3f87f7396a1 469511713ae2b6a0016278fef1efd8b986e97f31 trunk/thirdparty/closure-common/encodings-data.lisp
r3108 r3314 89 89 (add-name :iso-8859-9 "csISOLatin5") 90 90 91 (add-name :iso-8859-13 "ISO-8859-13") 92 91 93 (add-name :iso-8859-15 "ISO_8859-15") 92 94 (add-name :iso-8859-15 "ISO-8859-15") 95 (add-name :iso-8859-15 "Latin-9") 93 96 94 97 (add-name :iso-8859-14 "ISO_8859-14") 95 98 (add-name :iso-8859-14 "ISO-8859-14") 99 (add-name :iso-8859-14 "ISO_8859-14:1998") 100 (add-name :iso-8859-14 "iso-ir-199") 101 (add-name :iso-8859-14 "latin8") 102 (add-name :iso-8859-14 "iso-celtic") 103 (add-name :iso-8859-14 "l8") 96 104 97 105 (add-name :koi8-r "KOI8-R") 98 106 (add-name :koi8-r "csKOI8R") 99 107 108 (add-name :windows-1250 "windows-1250") 109 110 (add-name :windows-1251 "windows-1251") 111 112 (add-name :windows-1252 "windows-1252") 113 114 (add-name :windows-1253 "windows-1253") 115 116 (add-name :windows-1254 "windows-1254") 117 118 (add-name :windows-1255 "windows-1255") 119 120 (add-name :windows-1257 "windows-1257") 121 100 122 (add-name :utf-8 "UTF-8") 101 123 … … 142 164 :charset (find-charset :iso-8859-8))) 143 165 166 (define-encoding :iso-8859-13 167 (make-simple-8-bit-encoding 168 :charset (find-charset :iso-8859-13))) 169 144 170 (define-encoding :iso-8859-14 145 171 (make-simple-8-bit-encoding … … 153 179 (make-simple-8-bit-encoding 154 180 :charset (find-charset :koi8-r))) 181 182 (define-encoding :windows-1250 183 (make-simple-8-bit-encoding 184 :charset (find-charset :windows-1250))) 185 186 (define-encoding :windows-1251 187 (make-simple-8-bit-encoding 188 :charset (find-charset :windows-1251))) 189 190 (define-encoding :windows-1252 191 (make-simple-8-bit-encoding 192 :charset (find-charset :windows-1252))) 193 194 (define-encoding :windows-1253 195 (make-simple-8-bit-encoding 196 :charset (find-charset :windows-1253))) 197 198 (define-encoding :windows-1254 199 (make-simple-8-bit-encoding 200 :charset (find-charset :windows-1254))) 201 202 (define-encoding :windows-1255 203 (make-simple-8-bit-encoding 204 :charset (find-charset :windows-1255))) 205 206 (define-encoding :windows-1257 207 (make-simple-8-bit-encoding 208 :charset (find-charset :windows-1257))) 155 209 156 210 (define-encoding :utf-8 :utf-8) … … 463 517 #| #o36x |# #x011F #x00F1 #x00F2 #x00F3 #x00F4 #x00F5 #x00F6 #x00F7 464 518 #| #o37x |# #x00F8 #x00F9 #x00FA #x00FB #x00FC #x0131 #x015F #x00FF) 519 520 (define-8-bit-charset :iso-8859-13 521 #| #o00x |# #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 522 #| #o01x |# #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 523 #| #o02x |# #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 524 #| #o03x |# #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 525 #| #o04x |# #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 526 #| #o05x |# #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 527 #| #o06x |# #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 528 #| #o07x |# #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 529 #| #o10x |# #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 530 #| #o11x |# #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 531 #| #o12x |# #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 532 #| #o13x |# #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 533 #| #o14x |# #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 534 #| #o15x |# #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 535 #| #o16x |# #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 536 #| #o17x |# #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 537 #| #o20x |# #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 538 #| #o21x |# #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 539 #| #o22x |# #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 540 #| #o23x |# #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 541 #| #o24x |# #x00A0 #x201D #x00A2 #x00A3 #x00A4 #x201E #x00A6 #x00A7 542 #| #o25x |# #x00D8 #x00A9 #x0156 #x00AB #x00AC #x00AD #x00AE #x00C6 543 #| #o26x |# #x00B0 #x00B1 #x00B2 #x00B3 #x201C #x00B5 #x00B6 #x00B7 544 #| #o27x |# #x00F8 #x00B9 #x0157 #x00BB #x00BC #x00BD #x00BE #x00E6 545 #| #o30x |# #x0104 #x012E #x0100 #x0106 #x00C4 #x00C5 #x0118 #x0112 546 #| #o31x |# #x010C #x00C9 #x0179 #x0116 #x0122 #x0136 #x012A #x013B 547 #| #o32x |# #x0160 #x0143 #x0145 #x00D3 #x014C #x00D5 #x00D6 #x00D7 548 #| #o33x |# #x0172 #x0141 #x015A #x016A #x00DC #x017B #x017D #x00DF 549 #| #o34x |# #x0105 #x012F #x0101 #x0107 #x00E4 #x00E5 #x0119 #x0113 550 #| #o35x |# #x010D #x00E9 #x017A #x0117 #x0123 #x0137 #x012B #x013C 551 #| #o36x |# #x0161 #x0144 #x0146 #x00F3 #x014D #x00F5 #x00F6 #x00F7 552 #| #o37x |# #x0173 #x0142 #x015B #x016B #x00FC #x017C #x017E #x2019) 465 553 466 554 (define-8-bit-charset :iso-8859-14 … … 565 653 #| #o36x |# #x041F #x042F #x0420 #x0421 #x0422 #x0423 #x0416 #x0412 566 654 #| #o37x |# #x042C #x042B #x0417 #x0428 #x042D #x0429 #x0427 #x042A) 655 656 (define-8-bit-charset :windows-1250 657 #| #o00x |# #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 658 #| #o01x |# #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 659 #| #o02x |# #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 660 #| #o03x |# #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 661 #| #o04x |# #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 662 #| #o05x |# #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 663 #| #o06x |# #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 664 #| #o07x |# #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 665 #| #o10x |# #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 666 #| #o11x |# #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 667 #| #o12x |# #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 668 #| #o13x |# #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 669 #| #o14x |# #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 670 #| #o15x |# #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 671 #| #o16x |# #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 672 #| #o17x |# #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 673 #| #o20x |# #x20AC #xFFFF #x201A #xFFFF #x201E #x2026 #x2020 #x2021 674 #| #o21x |# #xFFFF #x2030 #x0160 #x2039 #x015A #x0164 #x017D #x0179 675 #| #o22x |# #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 676 #| #o23x |# #xFFFF #x2122 #x0161 #x203A #x015B #x0165 #x017E #x017A 677 #| #o24x |# #x00A0 #x02C7 #x02D8 #x0141 #x00A4 #x0104 #x00A6 #x00A7 678 #| #o25x |# #x00A8 #x00A9 #x015E #x00AB #x00AC #x00AD #x00AE #x017B 679 #| #o26x |# #x00B0 #x00B1 #x02DB #x0142 #x00B4 #x00B5 #x00B6 #x00B7 680 #| #o27x |# #x00B8 #x0105 #x015F #x00BB #x013D #x02DD #x013E #x017C 681 #| #o30x |# #x0154 #x00C1 #x00C2 #x0102 #x00C4 #x0139 #x0106 #x00C7 682 #| #o31x |# #x010C #x00C9 #x0118 #x00CB #x011A #x00CD #x00CE #x010E 683 #| #o32x |# #x0110 #x0143 #x0147 #x00D3 #x00D4 #x0150 #x00D6 #x00D7 684 #| #o33x |# #x0158 #x016E #x00DA #x0170 #x00DC #x00DD #x0162 #x00DF 685 #| #o34x |# #x0155 #x00E1 #x00E2 #x0103 #x00E4 #x013A #x0107 #x00E7 686 #| #o35x |# #x010D #x00E9 #x0119 #x00EB #x011B #x00ED #x00EE #x010F 687 #| #o36x |# #x0111 #x0144 #x0148 #x00F3 #x00F4 #x0151 #x00F6 #x00F7 688 #| #o37x |# #x0159 #x016F #x00FA #x0171 #x00FC #x00FD #x0163 #x02D9) 689 690 (define-8-bit-charset :windows-1251 691 #| #o00x |# #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 692 #| #o01x |# #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 693 #| #o02x |# #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 694 #| #o03x |# #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 695 #| #o04x |# #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 696 #| #o05x |# #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 697 #| #o06x |# #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 698 #| #o07x |# #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 699 #| #o10x |# #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 700 #| #o11x |# #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 701 #| #o12x |# #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 702 #| #o13x |# #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 703 #| #o14x |# #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 704 #| #o15x |# #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 705 #| #o16x |# #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 706 #| #o17x |# #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 707 #| #o20x |# #x0402 #x0403 #x201A #x0453 #x201E #x2026 #x2020 #x2021 708 #| #o21x |# #x20AC #x2030 #x0409 #x2039 #x040A #x040C #x040B #x040F 709 #| #o22x |# #x0452 #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 710 #| #o23x |# #xFFFF #x2122 #x0459 #x203A #x045A #x045C #x045B #x045F 711 #| #o24x |# #x00A0 #x040E #x045E #x0408 #x00A4 #x0490 #x00A6 #x00A7 712 #| #o25x |# #x0401 #x00A9 #x0404 #x00AB #x00AC #x00AD #x00AE #x0407 713 #| #o26x |# #x00B0 #x00B1 #x0406 #x0456 #x0491 #x00B5 #x00B6 #x00B7 714 #| #o27x |# #x0451 #x2116 #x0454 #x00BB #x0458 #x0405 #x0455 #x0457 715 #| #o30x |# #x0410 #x0411 #x0412 #x0413 #x0414 #x0415 #x0416 #x0417 716 #| #o31x |# #x0418 #x0419 #x041A #x041B #x041C #x041D #x041E #x041F 717 #| #o32x |# #x0420 #x0421 #x0422 #x0423 #x0424 #x0425 #x0426 #x0427 718 #| #o33x |# #x0428 #x0429 #x042A #x042B #x042C #x042D #x042E #x042F 719 #| #o34x |# #x0430 #x0431 #x0432 #x0433 #x0434 #x0435 #x0436 #x0437 720 #| #o35x |# #x0438 #x0439 #x043A #x043B #x043C #x043D #x043E #x043F 721 #| #o36x |# #x0440 #x0441 #x0442 #x0443 #x0444 #x0445 #x0446 #x0447 722 #| #o37x |# #x0448 #x0449 #x044A #x044B #x044C #x044D #x044E #x044F) 723 724 (define-8-bit-charset :windows-1252 725 #| #o00x |# #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 726 #| #o01x |# #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 727 #| #o02x |# #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 728 #| #o03x |# #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 729 #| #o04x |# #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 730 #| #o05x |# #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 731 #| #o06x |# #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 732 #| #o07x |# #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 733 #| #o10x |# #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 734 #| #o11x |# #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 735 #| #o12x |# #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 736 #| #o13x |# #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 737 #| #o14x |# #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 738 #| #o15x |# #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 739 #| #o16x |# #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 740 #| #o17x |# #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 741 #| #o20x |# #x20AC #xFFFF #x201A #x0192 #x201E #x2026 #x2020 #x2021 742 #| #o21x |# #x02C6 #x2030 #x0160 #x2039 #x0152 #xFFFF #x017D #xFFFF 743 #| #o22x |# #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 744 #| #o23x |# #x02DC #x2122 #x0161 #x203A #x0153 #xFFFF #x017E #x0178 745 #| #o24x |# #x00A0 #x00A1 #x00A2 #x00A3 #x00A4 #x00A5 #x00A6 #x00A7 746 #| #o25x |# #x00A8 #x00A9 #x00AA #x00AB #x00AC #x00AD #x00AE #x00AF 747 #| #o26x |# #x00B0 #x00B1 #x00B2 #x00B3 #x00B4 #x00B5 #x00B6 #x00B7 748 #| #o27x |# #x00B8 #x00B9 #x00BA #x00BB #x00BC #x00BD #x00BE #x00BF 749 #| #o30x |# #x00C0 #x00C1 #x00C2 #x00C3 #x00C4 #x00C5 #x00C6 #x00C7 750 #| #o31x |# #x00C8 #x00C9 #x00CA #x00CB #x00CC #x00CD #x00CE #x00CF 751 #| #o32x |# #x00D0 #x00D1 #x00D2 #x00D3 #x00D4 #x00D5 #x00D6 #x00D7 752 #| #o33x |# #x00D8 #x00D9 #x00DA #x00DB #x00DC #x00DD #x00DE #x00DF 753 #| #o34x |# #x00E0 #x00E1 #x00E2 #x00E3 #x00E4 #x00E5 #x00E6 #x00E7 754 #| #o35x |# #x00E8 #x00E9 #x00EA #x00EB #x00EC #x00ED #x00EE #x00EF 755 #| #o36x |# #x00F0 #x00F1 #x00F2 #x00F3 #x00F4 #x00F5 #x00F6 #x00F7 756 #| #o37x |# #x00F8 #x00F9 #x00FA #x00FB #x00FC #x00FD #x00FE #x00FF) 757 758 (define-8-bit-charset :windows-1253 759 #| #o00x |# #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 760 #| #o01x |# #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 761 #| #o02x |# #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 762 #| #o03x |# #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 763 #| #o04x |# #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 764 #| #o05x |# #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 765 #| #o06x |# #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 766 #| #o07x |# #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 767 #| #o10x |# #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 768 #| #o11x |# #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 769 #| #o12x |# #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 770 #| #o13x |# #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 771 #| #o14x |# #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 772 #| #o15x |# #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 773 #| #o16x |# #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 774 #| #o17x |# #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 775 #| #o20x |# #x20AC #xFFFF #x201A #x0192 #x201E #x2026 #x2020 #x2021 776 #| #o21x |# #xFFFF #x2030 #xFFFF #x2039 #xFFFF #xFFFF #xFFFF #xFFFF 777 #| #o22x |# #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 778 #| #o23x |# #xFFFF #x2122 #xFFFF #x203A #xFFFF #xFFFF #xFFFF #xFFFF 779 #| #o24x |# #x00A0 #x0385 #x0386 #x00A3 #x00A4 #x00A5 #x00A6 #x00A7 780 #| #o25x |# #x00A8 #x00A9 #xFFFF #x00AB #x00AC #x00AD #x00AE #x2015 781 #| #o26x |# #x00B0 #x00B1 #x00B2 #x00B3 #x0384 #x00B5 #x00B6 #x00B7 782 #| #o27x |# #x0388 #x0389 #x038A #x00BB #x038C #x00BD #x038E #x038F 783 #| #o30x |# #x0390 #x0391 #x0392 #x0393 #x0394 #x0395 #x0396 #x0397 784 #| #o31x |# #x0398 #x0399 #x039A #x039B #x039C #x039D #x039E #x039F 785 #| #o32x |# #x03A0 #x03A1 #xFFFF #x03A3 #x03A4 #x03A5 #x03A6 #x03A7 786 #| #o33x |# #x03A8 #x03A9 #x03AA #x03AB #x03AC #x03AD #x03AE #x03AF 787 #| #o34x |# #x03B0 #x03B1 #x03B2 #x03B3 #x03B4 #x03B5 #x03B6 #x03B7 788 #| #o35x |# #x03B8 #x03B9 #x03BA #x03BB #x03BC #x03BD #x03BE #x03BF 789 #| #o36x |# #x03C0 #x03C1 #x03C2 #x03C3 #x03C4 #x03C5 #x03C6 #x03C7 790 #| #o37x |# #x03C8 #x03C9 #x03CA #x03CB #x03CC #x03CD #x03CE #xFFFF) 791 792 (define-8-bit-charset :windows-1254 793 #| #o00x |# #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 794 #| #o01x |# #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 795 #| #o02x |# #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 796 #| #o03x |# #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 797 #| #o04x |# #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 798 #| #o05x |# #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 799 #| #o06x |# #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 800 #| #o07x |# #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 801 #| #o10x |# #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 802 #| #o11x |# #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 803 #| #o12x |# #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 804 #| #o13x |# #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 805 #| #o14x |# #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 806 #| #o15x |# #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 807 #| #o16x |# #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 808 #| #o17x |# #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 809 #| #o20x |# #x20AC #xFFFF #x201A #x0192 #x201E #x2026 #x2020 #x2021 810 #| #o21x |# #x02C6 #x2030 #x0160 #x2039 #x0152 #xFFFF #xFFFF #xFFFF 811 #| #o22x |# #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 812 #| #o23x |# #x02DC #x2122 #x0161 #x203A #x0153 #xFFFF #xFFFF #x0178 813 #| #o24x |# #x00A0 #x00A1 #x00A2 #x00A3 #x00A4 #x00A5 #x00A6 #x00A7 814 #| #o25x |# #x00A8 #x00A9 #x00AA #x00AB #x00AC #x00AD #x00AE #x00AF 815 #| #o26x |# #x00B0 #x00B1 #x00B2 #x00B3 #x00B4 #x00B5 #x00B6 #x00B7 816 #| #o27x |# #x00B8 #x00B9 #x00BA #x00BB #x00BC #x00BD #x00BE #x00BF 817 #| #o30x |# #x00C0 #x00C1 #x00C2 #x00C3 #x00C4 #x00C5 #x00C6 #x00C7 818 #| #o31x |# #x00C8 #x00C9 #x00CA #x00CB #x00CC #x00CD #x00CE #x00CF 819 #| #o32x |# #x011E #x00D1 #x00D2 #x00D3 #x00D4 #x00D5 #x00D6 #x00D7 820 #| #o33x |# #x00D8 #x00D9 #x00DA #x00DB #x00DC #x0130 #x015E #x00DF 821 #| #o34x |# #x00E0 #x00E1 #x00E2 #x00E3 #x00E4 #x00E5 #x00E6 #x00E7 822 #| #o35x |# #x00E8 #x00E9 #x00EA #x00EB #x00EC #x00ED #x00EE #x00EF 823 #| #o36x |# #x011F #x00F1 #x00F2 #x00F3 #x00F4 #x00F5 #x00F6 #x00F7 824 #| #o37x |# #x00F8 #x00F9 #x00FA #x00FB #x00FC #x0131 #x015F #x00FF) 825 826 (define-8-bit-charset :windows-1255 827 #| #o00x |# #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 828 #| #o01x |# #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 829 #| #o02x |# #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 830 #| #o03x |# #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 831 #| #o04x |# #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 832 #| #o05x |# #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 833 #| #o06x |# #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 834 #| #o07x |# #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 835 #| #o10x |# #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 836 #| #o11x |# #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 837 #| #o12x |# #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 838 #| #o13x |# #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 839 #| #o14x |# #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 840 #| #o15x |# #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 841 #| #o16x |# #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 842 #| #o17x |# #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 843 #| #o20x |# #x20AC #xFFFF #x201A #x0192 #x201E #x2026 #x2020 #x2021 844 #| #o21x |# #x02C6 #x2030 #xFFFF #x2039 #xFFFF #xFFFF #xFFFF #xFFFF 845 #| #o22x |# #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 846 #| #o23x |# #x02DC #x2122 #xFFFF #x203A #xFFFF #xFFFF #xFFFF #xFFFF 847 #| #o24x |# #x00A0 #x00A1 #x00A2 #x00A3 #x00AA #x00A5 #x00A6 #x00A7 848 #| #o25x |# #x00A8 #x00A9 #x00D7 #x00AB #x00AC #x00AD #x00AE #x203E 849 #| #o26x |# #x00B0 #x00B1 #x00B2 #x00B3 #x00B4 #x00B5 #x00B6 #x00B7 850 #| #o27x |# #x00B8 #x00B9 #x00F7 #x00BB #x00BC #x00BD #x00BE #x00BF 851 #| #o30x |# #x05B0 #x05B1 #x05B2 #x05B3 #x05B4 #x05B5 #x05B6 #x05B7 852 #| #o31x |# #x05B8 #x05B9 #xFFFF #x05BB #x05BC #x05BD #x05BE #x05BF 853 #| #o32x |# #x05C0 #x05C1 #x05C2 #x05C3 #x05F0 #x05F1 #x05F2 #x05F3 854 #| #o33x |# #x05F4 #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF #xFFFF 855 #| #o34x |# #x05D0 #x05D1 #x05D2 #x05D3 #x05D4 #x05D5 #x05D6 #x05D7 856 #| #o35x |# #x05D8 #x05D9 #x05DA #x05DB #x05DC #x05DD #x05DE #x05DF 857 #| #o36x |# #x05E0 #x05E1 #x05E2 #x05E3 #x05E4 #x05E5 #x05E6 #x05E7 858 #| #o37x |# #x05E8 #x05E9 #x05EA #xFFFF #xFFFF #x200E #x200F #xFFFF) 859 860 (define-8-bit-charset :windows-1257 861 #| #o00x |# #x0000 #x0001 #x0002 #x0003 #x0004 #x0005 #x0006 #x0007 862 #| #o01x |# #x0008 #x0009 #x000A #x000B #x000C #x000A #x000E #x000F 863 #| #o02x |# #x0010 #x0011 #x0012 #x0013 #x0014 #x0015 #x0016 #x0017 864 #| #o03x |# #x0018 #x0019 #x001A #x001B #x001C #x001D #x001E #x001F 865 #| #o04x |# #x0020 #x0021 #x0022 #x0023 #x0024 #x0025 #x0026 #x0027 866 #| #o05x |# #x0028 #x0029 #x002A #x002B #x002C #x002D #x002E #x002F 867 #| #o06x |# #x0030 #x0031 #x0032 #x0033 #x0034 #x0035 #x0036 #x0037 868 #| #o07x |# #x0038 #x0039 #x003A #x003B #x003C #x003D #x003E #x003F 869 #| #o10x |# #x0040 #x0041 #x0042 #x0043 #x0044 #x0045 #x0046 #x0047 870 #| #o11x |# #x0048 #x0049 #x004A #x004B #x004C #x004D #x004E #x004F 871 #| #o12x |# #x0050 #x0051 #x0052 #x0053 #x0054 #x0055 #x0056 #x0057 872 #| #o13x |# #x0058 #x0059 #x005A #x005B #x005C #x005D #x005E #x005F 873 #| #o14x |# #x0060 #x0061 #x0062 #x0063 #x0064 #x0065 #x0066 #x0067 874 #| #o15x |# #x0068 #x0069 #x006A #x006B #x006C #x006D #x006E #x006F 875 #| #o16x |# #x0070 #x0071 #x0072 #x0073 #x0074 #x0075 #x0076 #x0077 876 #| #o17x |# #x0078 #x0079 #x007A #x007B #x007C #x007D #x007E #x007F 877 #| #o20x |# #x20AC #xFFFF #x201A #xFFFF #x201E #x2026 #x2020 #x2021 878 #| #o21x |# #xFFFF #x2030 #xFFFF #x2039 #xFFFF #x00A8 #x02C7 #x00B8 879 #| #o22x |# #xFFFF #x2018 #x2019 #x201C #x201D #x2022 #x2013 #x2014 880 #| #o23x |# #xFFFF #x2122 #xFFFF #x203A #xFFFF #x00AF #x02DB #xFFFF 881 #| #o24x |# #x00A0 #xFFFF #x00A2 #x00A3 #x00A4 #xFFFF #x00A6 #x00A7 882 #| #o25x |# #x00D8 #x00A9 #x0156 #x00AB #x00AC #x00AD #x00AE #x00C6 883 #| #o26x |# #x00B0 #x00B1 #x00B2 #x00B3 #x00B4 #x00B5 #x00B6 #x00B7 884 #| #o27x |# #x00F8 #x00B9 #x0157 #x00BB #x00BC #x00BD #x00BE #x00E6 885 #| #o30x |# #x0104 #x012E #x0100 #x0106 #x00C4 #x00C5 #x0118 #x0112 886 #| #o31x |# #x010C #x00C9 #x0179 #x0116 #x0122 #x0136 #x012A #x013B 887 #| #o32x |# #x0160 #x0143 #x0145 #x00D3 #x014C #x00D5 #x00D6 #x00D7 888 #| #o33x |# #x0172 #x0141 #x015A #x016A #x00DC #x017B #x017D #x00DF 889 #| #o34x |# #x0105 #x012F #x0101 #x0107 #x00E4 #x00E5 #x0119 #x0113 890 #| #o35x |# #x010D #x00E9 #x017A #x0117 #x0123 #x0137 #x012B #x013C 891 #| #o36x |# #x0161 #x0144 #x0146 #x00F3 #x014D #x00F5 #x00F6 #x00F7 892 #| #o37x |# #x0173 #x0142 #x015B #x016B #x00FC #x017C #x017E #x02D9) 567 893 ) 568 894 trunk/thirdparty/closure-common/package.lisp
r3108 r3314 66 66 #:ystream 67 67 #:ystream-encoding 68 #:find-output-encoding 68 69 #:close-ystream 69 70 #:ystream-write-rune trunk/thirdparty/closure-common/ystream.lisp
r3108 r3314 25 25 (defmacro until (test &body body) 26 26 `(do () (,test) ,@body)) 27 28 (defun find-output-encoding (name) 29 (when (stringp name) 30 (setf name (find-symbol (string-upcase name) :keyword))) 31 (cond 32 ((null name) 33 (warn "Unknown encoding ~A, falling back to UTF-8" name) 34 :utf-8) 35 ((find name '(:utf-8 :utf_8 :utf8)) 36 :utf-8) 37 #-rune-is-character 38 (t 39 (warn "Unknown encoding ~A, falling back to UTF-8" name) 40 :utf-8) 41 #+rune-is-character 42 (t 43 (handler-case 44 (babel-encodings:get-character-encoding name) 45 (error () 46 (warn "Unknown encoding ~A, falling back to UTF-8" name) 47 :utf-8))))) 27 48 28 49 ;;; ystream … … 84 105 ;; 85 106 (let ((tmp (make-rod 1))) 86 (setf ( runetmp 0) rune)107 (setf (elt tmp 0) rune) 87 108 (ystream-write-escapable-rod tmp ystream))) 88 109 trunk/thirdparty/cxml/.git/logs/HEAD
r3082 r3314 1 1 0000000000000000000000000000000000000000 77d915505eac84c267f89ab308c61e937a367f45 Hans HÃŒbner <hans@hertha.local> 1210160156 +0200 2 77d915505eac84c267f89ab308c61e937a367f45 a1a95a4d03701050f71044fd9305d50cd6480c98 Hans Huebner <hans@jasmin.headcraft.de> 1214327116 +0000 pull : Fast forward trunk/thirdparty/cxml/.git/logs/refs/heads/master
r3082 r3314 1 1 0000000000000000000000000000000000000000 77d915505eac84c267f89ab308c61e937a367f45 Hans HÃŒbner <hans@hertha.local> 1210160156 +0200 2 77d915505eac84c267f89ab308c61e937a367f45 a1a95a4d03701050f71044fd9305d50cd6480c98 Hans Huebner <hans@jasmin.headcraft.de> 1214327116 +0000 pull : Fast forward trunk/thirdparty/cxml/.git/logs/refs/remotes/origin/master
r3082 r3314 1 1 0000000000000000000000000000000000000000 77d915505eac84c267f89ab308c61e937a367f45 Hans HÃŒbner <hans@hertha.local> 1210160155 +0200 clone: from git://repo.or.cz/cxml.git 2 77d915505eac84c267f89ab308c61e937a367f45 a1a95a4d03701050f71044fd9305d50cd6480c98 Hans Huebner <hans@jasmin.headcraft.de> 1214327096 +0000 pull : fast forward trunk/thirdparty/cxml/.git/refs/heads/master
r3082 r3314 1 77d915505eac84c267f89ab308c61e937a367f45 1 a1a95a4d03701050f71044fd9305d50cd6480c98 trunk/thirdparty/cxml/.git/refs/remotes/origin/master
r3082 r3314 1 77d915505eac84c267f89ab308c61e937a367f45 1 a1a95a4d03701050f71044fd9305d50cd6480c98 trunk/thirdparty/cxml/doc/index.xml
r3082 r3314 49 49 XPath 1.0 50 50 </li> 51 <!-- 52 <li> 53 <a href="http://repo.or.cz/w/xuriella.git">Xuriella</a>: 54 XSLT 1.0 (work in progress) 55 </li> 56 --> 51 <li> 52 <a href="http://common-lisp.net/project/xuriella/">Xuriella</a>: 53 XSLT 1.0 54 </li> 57 55 <li> 58 56 <a href="http://common-lisp.net/project/closure/closure-html/">Closure … … 78 76 Support for user-specified output encodings 79 77 using <a href="http://common-lisp.net/project/babel/">Babel</a>. 78 </li> 79 <li> 80 More support for input encodings, thanks to Pierre Mai. 80 81 </li> 81 82 <li> trunk/thirdparty/cxml/test/misc.lisp
r3082 r3314 28 28 (doit #x10000 char-code-limit) 29 29 (values))) 30 31 ;; <4824D34F.5000002@acceleration.net> 32 (deftest chtml-encoding 33 (with-output-to-string (stream) 34 (let ((doc (dom:create-document 35 'rune-dom:implementation 36 nil nil 37 (dom:create-document-type 38 'rune-dom:implementation 39 "html" 40 "-//W3C//DTD XHTML 1.0 Transitional//EN" 41 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd")))) 42 (dom:map-document (chtml:make-character-stream-sink stream) 43 doc 44 :include-xmlns-attributes nil 45 :include-doctype :full-internal-subset)))) trunk/thirdparty/cxml/xml/sax-handler.lisp
r3082 r3314 293 293 (:method ((handler t) ,@args) 294 294 (declare (ignore ,@args)) 295 (warn "deprecated SAX default method used by a handler~295 (warn "deprecated SAX default method used by handler ~A ~ 296 296 that is not a subclass of SAX:ABSTRACT-HANDLER ~ 297 or HAX:ABSTRACT-HANDLER" )297 or HAX:ABSTRACT-HANDLER" handler) 298 298 nil) 299 299 (:method ((handler abstract-handler) ,@args) … … 422 422 (:method ((handler t) sax-parser) 423 423 (declare (ignore sax-parser)) 424 (warn "deprecated sax default method used by a handler~424 (warn "deprecated sax default method used by handler ~A ~ 425 425 that is not a subclass of sax:abstract-handler ~ 426 or hax:abstract-handler" )426 or hax:abstract-handler" handler) 427 427 nil) 428 428 (:method ((handler hax:abstract-handler) sax-parser) trunk/thirdparty/cxml/xml/unparse.lisp
r3089 r3314 69 69 70 70 71 72 (defvar *suppress-text-newline* nil73 "If t, suppress the next newline at the start of a TEXT node.")74 75 71 ;;;; SINK: an xml output sink 76 72 … … 117 113 :fill-pointer 0)) 118 114 119 (defun find-output-encoding (name)120 (when (stringp name)121 (setf name (find-symbol (string-upcase name) :keyword)))122 (cond123 ((null name)124 (warn "Unknown encoding ~A, falling back to UTF-8" name)125 :utf-8)126 ((find name '(:utf-8 :utf_8 :utf8))127 :utf-8)128 #-rune-is-character129 (t130 (warn "Unknown encoding ~A, falling back to UTF-8" name)131 :utf-8)132 #+rune-is-character133 (t134 (handler-case135 (babel-encodings:get-character-encoding name)136 (error ()137 (warn "Unknown encoding ~A, falling back to UTF-8" name)138 :utf-8)))))139 140 115 ;; bisschen unschoen hier die ganze api zu duplizieren, aber die 141 116 ;; ystreams sind noch undokumentiert … … 146 121 (ystream (,make-ystream ,@args))) 147 122 (setf (ystream-encoding ystream) 148 ( find-output-encoding encoding))123 (runes:find-output-encoding encoding)) 149 124 (apply #'make-instance 150 125 'sink … … 416 391 (unless (zerop (ystream-column (sink-ystream sink))) 417 392 (sink-write-rune #/U+000A sink) ;newline 418 ( setf (ystream-column (sink-ystream sink)) 0)))393 (indent sink))) 419 394 420 395 (defun maybe-close-tag (sink) … … 424 399 (sink-write-rune #/> sink)))) 425 400 426 (defun maybe-indent (sink) 427 (when (zerop (ystream-column (sink-ystream sink))) 428 (indent sink))) 429 430 (defmethod sax:start-element ((sink sink) namespace-uri local-name qname attributes) 401 (defmethod sax:start-element 402 ((sink sink) namespace-uri local-name qname attributes) 431 403 (declare (ignore namespace-uri local-name)) 432 404 (maybe-close-tag sink) … … 436 408 (when (indentation sink) 437 409 (sink-fresh-line sink) 438 (maybe-indent sink)439 410 (start-indentation-block sink)) 440 411 (sink-write-rune #/< sink) … … 468 439 (end-indentation-block sink) 469 440 (unless (zerop (tag-n-children tag)) 470 (sink-fresh-line sink)) 471 (maybe-indent sink)) 441 (sink-fresh-line sink))) 472 442 (cond 473 443 ((tag-have-gt tag) … … 476 446 (sink-write-rod '#.(string-rod ">") sink)) 477 447 (t 478 (sink-write-rod #"/>" sink))) 479 (unless *suppress-text-newline* 480 (sink-fresh-line sink)))) 448 (sink-write-rod #"/>" sink))))) 481 449 482 450 (defmethod sax:processing-instruction ((sink sink) target data) … … 503 471 (not (canonical sink)) 504 472 (not (search #"]]" data))) 505 (maybe-indent sink) 506 (sink-write-rod #"<![CDATA[" sink) 507 ;; XXX signal error if body is unprintable? 508 ;; zzz no, in that case, split into multiple CDATA sections 509 (map nil (lambda (c) (sink-write-rune c sink)) data) 510 (sink-write-rod #"]]>" sink)) 473 (when (indentation sink) 474 (sink-fresh-line sink)) 475 (sink-write-rod #"<![CDATA[" sink) 476 ;; XXX signal error if body is unprintable? 477 ;; zzz no, in that case, split into multiple CDATA sections 478 (map nil (lambda (c) (sink-write-rune c sink)) data) 479 (sink-write-rod #"]]>" sink)) 511 480 (t 512 481 (if (indentation sink) … … 551 520 ((zerop n)) 552 521 (pos 553 (if *suppress-text-newline* 554 (setf *suppress-text-newline* nil) 555 (sink-fresh-line sink)) 556 (maybe-indent sink) 557 (while (< pos n) 558 (let* ((w (or (position-if #'whitespacep data :start (1+ pos)) n)) 559 (next (or (position-if-not #'whitespacep data :start w) n))) 560 (when need-whitespace-p 561 (cond 562 ((< (+ (ystream-column (sink-ystream sink)) w (- pos)) 563
