Commit 11f44e4e authored by Bechir Zalila's avatar Bechir Zalila

* (ocarina-output.ad?): Write_Quoted_Str: new subprogram

parent b719f735
......@@ -273,4 +273,13 @@ package body Ocarina.Output is
end loop;
end Write_Str;
----------------------
-- Write_Quoted_Str --
----------------------
procedure Write_Quoted_Str (S : String) is
begin
Write_Str ('"' & S & '"');
end Write_Quoted_Str;
end Ocarina.Output;
......@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2009 Telecom ParisTech, 2010-2015 ESA & ISAE. --
-- Copyright (C) 1992-2009 Telecom ParisTech, 2010-2016 ESA & ISAE. --
-- --
-- Ocarina is free software; you can redistribute it and/or modify under --
-- terms of the GNU General Public License as published by the Free Soft- --
......@@ -85,6 +85,9 @@ package Ocarina.Output is
procedure Write_Line (S : String);
-- Equivalent to Write_Str (S) followed by Write_Eol;
procedure Write_Quoted_Str (S : String);
-- Same as above but with S quoted between two '"'
function Column return Nat;
pragma Inline (Column);
-- Returns the number of the column about to be written (e.g. a value
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment