mirror of
https://github.com/SHOGGOTH-SECTOR/sica-fondt.git
synced 2026-08-01 00:23:15 +00:00
24f816b6a3
Place useful parts of the surrounding repos into sica-fondt by layer, per the
body model (Ada = membrane; brain/endocrine/capabilities/knowledge non-Ada):
- brain/ LLM reasoning + providers (dapr, hermes, MoMoA)
- capabilities/ REPRAG sidecars: hermes tools/skills, dapr tools, parallel
dispatch, A51 channels, and the OSINT cluster
- knowledge/ LORAG corpus: 754 cyber-skills, agency personas, secure-coding,
MITRE ATT&CK data
- reference/ defensive threat-reference (C3, shhbruh doc) + AdaYaml parser
License handling: AGPL sources (worldosint, advanced_evolution, mercury,
Reticulum) and GPL DeTTECT are SPEC-only clean-room/port descriptions — no
copyleft code copied. MIT/Apache/data parts copied as working trees.
Safety: shhbruh escape/persistence material and C3 covert-C2 kept as reference
only, not wired into the running organism. See CONSOLIDATION.md.
https://claude.ai/code/session_01UehUqEXXJJCsHoA4voCU5c
49 lines
1.6 KiB
Ada
49 lines
1.6 KiB
Ada
-- part of AdaYaml, (c) 2017 Felix Krause
|
|
-- released under the terms of the MIT license, see the file "copying.txt"
|
|
|
|
package body Yaml.Dom.Node_Memory is
|
|
procedure Visit (Object : in out Instance;
|
|
Value : not null access Node.Instance;
|
|
Previously_Visited : out Boolean) is
|
|
begin
|
|
if Object.Data.Contains (Node_Pointer (Value)) then
|
|
Previously_Visited := True;
|
|
else
|
|
Object.Data.Include (Node_Pointer (Value));
|
|
Previously_Visited := False;
|
|
end if;
|
|
end Visit;
|
|
|
|
procedure Forget (Object : in out Instance;
|
|
Value : not null access Node.Instance) is
|
|
begin
|
|
Object.Data.Exclude (Node_Pointer (Value));
|
|
end Forget;
|
|
|
|
function Pop_First (Object : in out Instance)
|
|
return not null access Node.Instance is
|
|
First : Pointer_Sets.Cursor := Object.Data.First;
|
|
begin
|
|
return Ptr : constant not null access Node.Instance :=
|
|
Pointer_Sets.Element (First) do
|
|
Object.Data.Delete (First);
|
|
end return;
|
|
end Pop_First;
|
|
|
|
function Is_Empty (Object : Instance) return Boolean is
|
|
(Object.Data.Is_Empty);
|
|
|
|
procedure Visit (Object : in out Pair_Instance;
|
|
Left, Right : not null access Node.Instance;
|
|
Previously_Visited : out Boolean) is
|
|
Pair : constant Pointer_Pair := (Left => Left, Right => Right);
|
|
begin
|
|
if Object.Data.Contains (Pair) then
|
|
Previously_Visited := True;
|
|
else
|
|
Object.Data.Include (Pair);
|
|
Previously_Visited := False;
|
|
end if;
|
|
end Visit;
|
|
end Yaml.Dom.Node_Memory;
|