0b879a2010-06-10Arne Goedeke // $Id: JSON.pmod.in,v 1.4 2010/06/10 15:19:51 arne Exp $
df4c9a2010-05-28Martin Stjernholm 
9eb5022010-05-28Martin Stjernholm #pike __REAL_VERSION__
df4c9a2010-05-28Martin Stjernholm 
9eb5022010-05-28Martin Stjernholm //! @ignore
df4c9a2010-05-28Martin Stjernholm #if !constant (@module@) constant this_program_does_not_exist = 1; #else inherit @module@; //! @endignore
9eb5022010-05-28Martin Stjernholm //! @appears Standards.JSON module //! //! Tools for handling the JSON structured data format. See //! @url{http://www.json.org/@} and RFC 4627.
df4c9a2010-05-28Martin Stjernholm True true = True(); False false = False(); Null null = Null(); //! Objects representing the three JSON literals @expr{true@}, //! @expr{false@} and @expr{null@}. @expr{true@} and @expr{false@}
7e4eb32010-05-30Martin Stjernholm //! should behave as expected in boolean contexts. @expr{null@} is //! false in a boolean context.
df4c9a2010-05-28Martin Stjernholm  class True //! Type for the @[true] object. { string encode_json() {return "true";} protected string _sprintf (int flag) {return flag == 'O' && "JSON.true";} } class False //! Type for the @[false] object. { int `!() {return 1;} string encode_json() {return "false";} protected string _sprintf (int flag) {return flag == 'O' && "JSON.false";} } class Null //! Type for the @[null] object. {
7e4eb32010-05-30Martin Stjernholm  int `!() {return 1;}
df4c9a2010-05-28Martin Stjernholm  string encode_json() {return "null";} protected string _sprintf (int flag) {return flag == 'O' && "JSON.null";} }
0b879a2010-06-10Arne Goedeke //! Error thrown when JSON decode fails. class DecodeError { inherit Error.Generic; constant error_type = "json_decode"; constant is_json_decode_error = 1; //! The string that failed to be decoded. string err_str; //! The failing position in @[err_str]. int err_pos; protected void create(string err_str, int err_pos, void|string reason, void|array bt) { this_program::err_str = err_str; this_program::err_pos = err_pos; string pre_context = err_pos > 13 ? sprintf ("...%O", err_str[err_pos - 10..err_pos - 1]) : err_pos > 0 ? sprintf ("%O", err_str[..err_pos - 1]) : ""; string post_context = err_pos < sizeof (err_str) - 14 ? sprintf ("%O...", err_str[err_pos + 1..err_pos + 10]) : err_pos + 1 < sizeof (err_str) ? sprintf ("%O", err_str[err_pos + 1..]) : ""; err_str = sprintf ("%s->[%c]<-%s", pre_context, err_str[err_pos], post_context); if (reason) ::create(sprintf("Error decoding JSON at position %d %s: %s.\n", err_pos, err_str, reason), bt); else ::create(sprintf("Error decoding JSON at position %d %s\n", err_pos, err_str), bt); } } void decode_error(string err_str, int err_pos, void|string reason, void|mixed ... args) { if (sizeof(args)) reason = sprintf(reason, @args); throw(DecodeError(err_str, err_pos, reason, backtrace()[..<1])); }
df4c9a2010-05-28Martin Stjernholm #endif // constant (@module@)