78 lines
1.3 KiB
Plaintext
78 lines
1.3 KiB
Plaintext
note
|
|
description: ""
|
|
author: "jvelilla"
|
|
date: "2008/08/24"
|
|
revision: "0.1"
|
|
|
|
class
|
|
JSON_TOKENS
|
|
|
|
feature -- Access
|
|
|
|
j_OBJECT_OPEN: CHARACTER = '{'
|
|
j_ARRAY_OPEN: CHARACTER = '['
|
|
j_OBJECT_CLOSE: CHARACTER = '}'
|
|
j_ARRAY_CLOSE: CHARACTER = ']'
|
|
|
|
j_STRING: CHARACTER = '"'
|
|
j_PLUS: CHARACTER = '+'
|
|
j_MINUS: CHARACTER = '-'
|
|
j_DOT: CHARACTER = '.'
|
|
|
|
feature -- Status report
|
|
|
|
is_open_token (c: CHARACTER): BOOLEAN
|
|
-- Characters which open a type
|
|
do
|
|
inspect c
|
|
when j_OBJECT_OPEN, j_ARRAY_OPEN, j_STRING, j_PLUS, j_MINUS, j_DOT then
|
|
Result := True
|
|
else
|
|
|
|
end
|
|
end
|
|
|
|
is_close_token (c: CHARACTER): BOOLEAN
|
|
-- Characters which close a type
|
|
do
|
|
inspect c
|
|
when j_OBJECT_CLOSE, j_ARRAY_CLOSE, j_STRING then
|
|
Result := True
|
|
else
|
|
|
|
end
|
|
end
|
|
|
|
is_special_character (c: CHARACTER): BOOLEAN
|
|
-- Control Characters
|
|
-- %F Form feed
|
|
-- %H backslasH
|
|
-- %N Newline
|
|
-- %R carriage Return
|
|
-- %T horizontal Tab
|
|
-- %B Backspace
|
|
-- / Solidus
|
|
-- " Quotation
|
|
do
|
|
inspect c
|
|
when '%F', '%H', '%N', '%R', '%T', '%B', '/', '"' then
|
|
Result := True
|
|
else
|
|
|
|
end
|
|
end
|
|
|
|
is_special_control (c: CHARACTER): BOOLEAN
|
|
--Control Characters
|
|
-- \b\f\n\r\t
|
|
do
|
|
inspect c
|
|
when 'b', 'f', 'n', 'r', 't' then
|
|
Result := True
|
|
else
|
|
|
|
end
|
|
end
|
|
|
|
end
|