Natools

Check-in [8fffe1590c]
Login
Overview
Comment:s_expressions-printers-pretty: fix cursor position after writing a quoted string
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8fffe1590c64ca96d7dec0443595cd46bda8bf1e
User & Date: nat on 2014-07-27 17:32:51
Other Links: manifest | tags
Context
2014-07-28
20:18
s_expressions-printers-pretty: fix cursor position after two-byte newlines in quoted strings check-in: ce1e6e8edb user: nat tags: trunk
2014-07-27
17:32
s_expressions-printers-pretty: fix cursor position after writing a quoted string check-in: 8fffe1590c user: nat tags: trunk
2014-07-25
20:07
s_expressions-printers-pretty: add an assert on final cursor position after writing quoted strings check-in: e66be760b0 user: nat tags: trunk
Changes

Modified src/natools-s_expressions-printers-pretty.adb from [0e61f6dceb] to [e858dfbb7a].

748
749
750
751
752
753
754

755
756
757
758
759
760
761
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762







+







               O := O + Output_Delta;
               Output.Cursor := New_Cursor;
            end if;
         end loop;

         pragma Assert (O = Result'Last);
         Result (O) := Encodings.Quoted_Atom_End;
         Output.Cursor := Output.Cursor + 1;

         Write_Raw (Printer'Class (Output), Result);
      end;

      pragma Assert (Output.Cursor = Expected_Cursor);
   end Write_Quoted;