/usr/share/doc/libtemplates-parser-doc/examples/matrix.adb is in libtemplates-parser-doc 11.10-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | with Ada.Text_IO;
with Templates_Parser;
procedure Matrix is
package TP renames Templates_Parser;
use type TP.Tag;
V1 : constant TP.Vector_Tag := +"A1.1" & "A1.2";
V2 : constant TP.Vector_Tag := +"A2.1" & "A2.2";
V3 : constant TP.Vector_Tag := +"A3.1" & "A3.2";
M : constant TP.Matrix_Tag := +V1 & V2 & V3;
begin
Ada.Text_IO.Put_Line
(TP.Parse ("matrix.tmplt",
TP.Translate_Table'(1 => TP.Assoc ("MAT", M))));
end Matrix;
|