Mercurial > prosody-hg
comparison tools/erlparse.lua @ 5079:2ab99e239d45
tools/erlparse: Fix erlang string escape sequences.
| author | Waqas Hussain <waqas20@gmail.com> |
|---|---|
| date | Sat, 04 Aug 2012 23:23:49 +0500 |
| parents | ff7f6668b34f |
| children | 52767b1f057b |
comparison
equal
deleted
inserted
replaced
| 5078:cba0b426b542 | 5079:2ab99e239d45 |
|---|---|
| 49 local function isSpace(ch) | 49 local function isSpace(ch) |
| 50 ch = string_byte(ch) or "x"; | 50 ch = string_byte(ch) or "x"; |
| 51 return ch <= _space; | 51 return ch <= _space; |
| 52 end | 52 end |
| 53 | 53 |
| 54 local escapes = {["\\b"]="\b", ["\\d"]="\d", ["\\e"]="\e", ["\\f"]="\f", ["\\n"]="\n", ["\\r"]="\r", ["\\s"]="\s", ["\\t"]="\t", ["\\v"]="\v", ["\\\""]="\"", ["\\'"]="'", ["\\\\"]="\\"}; | 54 local escapes = {["\\b"]="\b", ["\\d"]="\127", ["\\e"]="\27", ["\\f"]="\f", ["\\n"]="\n", ["\\r"]="\r", ["\\s"]=" ", ["\\t"]="\t", ["\\v"]="\v", ["\\\""]="\"", ["\\'"]="'", ["\\\\"]="\\"}; |
| 55 local function readString() | 55 local function readString() |
| 56 read("\""); -- skip quote | 56 read("\""); -- skip quote |
| 57 local slash = nil; | 57 local slash = nil; |
| 58 local str = {}; | 58 local str = {}; |
| 59 while true do | 59 while true do |