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
40 lines
1.3 KiB
Ada
Executable File
40 lines
1.3 KiB
Ada
Executable File
-- part of AdaYaml, (c) 2017 Felix Krause
|
|
-- released under the terms of the MIT license, see the file "copying.txt"
|
|
|
|
with Ada.Containers;
|
|
with Ada.Finalization;
|
|
with Text.Pool;
|
|
|
|
generic
|
|
type Value_Type is private;
|
|
package Yaml.Text_Set is
|
|
type Reference is new Ada.Finalization.Limited_Controlled with private;
|
|
|
|
type Holder is record
|
|
Hash : Ada.Containers.Hash_Type;
|
|
Key : Text.Reference;
|
|
Value : Value_Type;
|
|
end record;
|
|
|
|
function Get (Object : in out Reference; S : Standard.String;
|
|
Create : Boolean) return not null access Holder;
|
|
function Set (Object : in out Reference; S : Standard.String;
|
|
Value : Value_Type) return Boolean;
|
|
|
|
procedure Init (Object : in out Reference; Pool : Text.Pool.Reference;
|
|
Initial_Size : Positive);
|
|
procedure Clear (Object : in out Reference);
|
|
private
|
|
type Holder_Access is access all Holder;
|
|
type Holder_Array is array (Natural range <>) of aliased Holder;
|
|
type Holder_Array_Access is access Holder_Array;
|
|
|
|
type Reference is new Ada.Finalization.Limited_Controlled with record
|
|
Count : Natural;
|
|
Elements : Holder_Array_Access;
|
|
Pool : Text.Pool.Reference;
|
|
end record;
|
|
|
|
overriding procedure Finalize (Object : in out Reference);
|
|
end Yaml.Text_Set;
|