Skip to content

Commit 1ca0d16

Browse files
committed
Fixed an error when converting \f and \r
1 parent e5dbc4e commit 1ca0d16

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

json_parser.pkb

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -311,9 +311,9 @@ begin
311311
--tabulator t = U+0009
312312
case buf
313313
when 'b' then varbuf := varbuf || chr(8);
314-
when 'f' then varbuf := varbuf || chr(13);
314+
when 'f' then varbuf := varbuf || chr(12);
315315
when 'n' then varbuf := varbuf || chr(10);
316-
when 'r' then varbuf := varbuf || chr(14);
316+
when 'r' then varbuf := varbuf || chr(13);
317317
when 't' then varbuf := varbuf || chr(9);
318318
end case;
319319
--varbuf := varbuf || buf;

json_utils.pkb

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -759,8 +759,8 @@ BEGIN
759759
WHEN CHR( 8) THEN buf := '\b'; -- backspace b = U+0008
760760
WHEN CHR( 9) THEN buf := '\t'; -- tabulator t = U+0009
761761
WHEN CHR(10) THEN buf := '\n'; -- newline n = U+000A
762-
WHEN CHR(13) THEN buf := '\f'; -- formfeed f = U+000C
763-
WHEN CHR(14) THEN buf := '\r'; -- carret r = U+000D
762+
WHEN CHR(12) THEN buf := '\f'; -- formfeed f = U+000C
763+
WHEN CHR(13) THEN buf := '\r'; -- carret r = U+000D
764764
WHEN CHR(34) THEN buf := '\"';
765765
WHEN CHR(47) THEN -- slash
766766
IF (theEscapeSolitus) THEN

0 commit comments

Comments
 (0)