Ignore:
Timestamp:
09/25/08 22:18:36 (12 years ago)
Author:
sjamaan
Message:

Fix octet decoding - remove case sensitivity and simplify code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/uri-generic/trunk/uri-generic.scm

    r11993 r12003  
    737737         (else c)))
    738738
    739 (define (hex-digit-char->integer c)
    740   (case c
    741          ((#\1)  1)
    742          ((#\2)  2)
    743          ((#\3)  3)
    744          ((#\4)  4)
    745          ((#\5)  5)
    746          ((#\6)  6)
    747          ((#\7)  7)
    748          ((#\8)  8)
    749          ((#\9)  9)
    750          ((#\A)  10)
    751          ((#\B)  11)
    752          ((#\C)  12)
    753          ((#\D)  13)
    754          ((#\E)  14)
    755          ((#\F)  15)
    756          (else  (error 'hex-digit-char->integer "invalid hex char " c))))
    757 
    758739(define (octet-decode h1 h2)
    759   (+ (* 16 (hex-digit-char->integer h1)) (hex-digit-char->integer h2)))
     740  (string->number (list->string (list h1 h2)) 16))
    760741
    761742(define (uri-decode-string str)
Note: See TracChangeset for help on using the changeset viewer.