Re: Running a preprocessor from GPS?

[gautier_niouzes@hotmail.com]

Le jeudi 30 juillet 2015 22:53:28 UTC+2, EGarrulo a écrit :

> I am not thinking in C++ terms.  I am thinking in terms of patterns
> that I know for managing resources.  So far, I only know the "shared/weak
> pointer" idiom.  If Ada offers something else, besides manual reclamation, I am
> eager to learn about it.

Fantastic, then the example below is for you!
Of course it is a trivial example. You can add a field of type Text to a window type for instance, and the memory will be automatically freed when the window itself is finalized. No pointer, no manual reclamation, no garbage waiting to be collected!... Magic, isn't it ?

--  This test program reads an entire text file into a variable
--  of type Text which is a vector of unbounded strings.

with Ada.Text_IO.Unbounded_IO; use Ada.Text_IO, Ada.Text_IO.Unbounded_IO;
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
with Ada.Containers.Vectors;

procedure Text_Container is

  package Text_Pkg is new Ada.Containers.Vectors(Positive, Unbounded_String);
  
  ---------------------
  --  Text container --
  ---------------------
  subtype Text is Text_Pkg.Vector;
  --
  name: constant String:= "text_container.adb";
  t: Text;
  f: File_Type;
begin
  Open(f, In_File, name);
  while not End_of_File(f) loop
    t.Append(Get_Line(f));
  end loop;
  Close(f);
  --
  Create(f, Out_File, "copy_of_" & name);
  for line of t loop
    Put_Line(f, line);
  end loop;
  Close(f);
end;
_________________________
Gautier's Ada programming
http://gautiersblog.blogspot.com/search/label/Ada
NB: follow the above link for a valid e-mail address