/ Serialize a JSON Object. */ /
| 711 | /* Serialize a JSON Object. */ |
| 712 | /***********************************************************************/ |
| 713 | bool BDOC::SerializeObject(OFFSET obp) |
| 714 | { |
| 715 | bool first = true; |
| 716 | PBPR prp = MPP(obp); |
| 717 | |
| 718 | if (jp->WriteChr('{')) |
| 719 | return true; |
| 720 | |
| 721 | for (; prp; prp = GetNext(prp)) { |
| 722 | if (first) |
| 723 | first = false; |
| 724 | else if (jp->WriteChr(',')) |
| 725 | return true; |
| 726 | |
| 727 | if (jp->WriteChr('"') || |
| 728 | jp->WriteStr(MZP(prp->Key)) || |
| 729 | jp->WriteChr('"') || |
| 730 | jp->WriteChr(':') || |
| 731 | SerializeValue(GetVlp(prp))) |
| 732 | return true; |
| 733 | |
| 734 | } // endfor i |
| 735 | |
| 736 | return jp->WriteChr('}'); |
| 737 | } // end of SerializeObject |
| 738 | |
| 739 | /***********************************************************************/ |
| 740 | /* Serialize a JSON Value. */ |