msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

First (hacky) working version of FastCGI JSON morphology server.

Browse Source
This commit is contained in:
bjorn
2008-08-24 19:31:12 +00:00
parent f8487ec6b9
commit 85bfb64e2a
6 changed files with 605 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/morpho-server/URLEncoding.hs Normal file
View File

@@ -0,0 +1,18 @@
module URLEncoding where
import Data.Bits (shiftL, (.|.))
import Data.Char (chr,digitToInt,isHexDigit)
urlDecodeUnicode :: String -> String
urlDecodeUnicode [] = ""
urlDecodeUnicode ('%':'u':x1:x2:x3:x4:s)
| all isHexDigit [x1,x2,x3,x4] =
chr ( digitToInt x1 `shiftL` 12
.|. digitToInt x2 `shiftL` 8
.|. digitToInt x3 `shiftL` 4
.|. digitToInt x4) : urlDecodeUnicode s
urlDecodeUnicode ('%':x1:x2:s) | isHexDigit x1 && isHexDigit x2 =
chr ( digitToInt x1 `shiftL` 4
.|. digitToInt x2) : urlDecodeUnicode s
urlDecodeUnicode (c:s) = c : urlDecodeUnicode s