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
33 lines
1.0 KiB
Ada
33 lines
1.0 KiB
Ada
-- part of AdaYaml, (c) 2017 Felix Krause
|
|
-- released under the terms of the MIT license, see the file "copying.txt"
|
|
|
|
with Ada.Unchecked_Deallocation;
|
|
|
|
package body Yaml.Events is
|
|
procedure Free is new Ada.Unchecked_Deallocation
|
|
(Event_Array, Event_Array_Access);
|
|
|
|
procedure Finalize (Object : in out Event_Holder) is
|
|
Ptr : Event_Array_Access := Object.Data;
|
|
begin
|
|
Free (Ptr);
|
|
end Finalize;
|
|
|
|
procedure Copy_Data (Source : Event_Holder;
|
|
Target : not null Event_Array_Access) is
|
|
begin
|
|
Target (Target.all'First .. Target.all'First + Source.Data.all'Length - 1)
|
|
:= Source.Data.all;
|
|
end Copy_Data;
|
|
|
|
procedure Grow (Object : in out Event_Holder'Class) is
|
|
New_Data : constant not null Event_Array_Access := new Event_Array
|
|
(1 .. Object.Data.all'Length * 2);
|
|
Old_Data : Event_Array_Access := Object.Data;
|
|
begin
|
|
Object.Copy_Data (New_Data); -- dispatches
|
|
Object.Data := New_Data;
|
|
Free (Old_Data);
|
|
end Grow;
|
|
end Yaml.Events;
|