Changeset 12004 in project
- Timestamp:
- 09/25/08 22:38:13 (12 years ago)
- Location:
- release/4/uri-generic/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/uri-generic/trunk
- Property svn:mergeinfo changed
/release/3/uri-generic/trunk merged: 12003
- Property svn:mergeinfo changed
-
release/4/uri-generic/trunk/uri-generic.scm
r12001 r12004 729 729 (else c))) 730 730 731 (define (hex-digit-char->integer c)732 (case c733 ((#\1) 1)734 ((#\2) 2)735 ((#\3) 3)736 ((#\4) 4)737 ((#\5) 5)738 ((#\6) 6)739 ((#\7) 7)740 ((#\8) 8)741 ((#\9) 9)742 ((#\A) 10)743 ((#\B) 11)744 ((#\C) 12)745 ((#\D) 13)746 ((#\E) 14)747 ((#\F) 15)748 (else (error 'hex-digit-char->integer "invalid hex char " c))))749 750 731 (define (octet-decode h1 h2) 751 ( + (* 16 (hex-digit-char->integer h1)) (hex-digit-char->integer h2)))732 (string->number (list->string (list h1 h2)) 16)) 752 733 753 734 (define (uri-decode-string str)
Note: See TracChangeset
for help on using the changeset viewer.