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
56 lines
1.9 KiB
Ada
56 lines
1.9 KiB
Ada
-- part of AdaYaml, (c) 2017 Felix Krause
|
|
-- released under the terms of the MIT license, see the file "copying.txt"
|
|
|
|
with Text;
|
|
with Yaml.Tags;
|
|
|
|
package body Yaml.Transformator.Canonical is
|
|
procedure Put (Object : in out Instance; E : Event) is
|
|
use type Text.Reference;
|
|
|
|
function Is_Non_Specific (Tag : Text.Reference) return Boolean is
|
|
(Tag = Text.Empty or Tag = Tags.Exclamation_Mark);
|
|
begin
|
|
if Object.Current_Exists then
|
|
raise Constraint_Error with
|
|
"Must retrieve current event before inputting another one";
|
|
end if;
|
|
Object.Current := E;
|
|
Object.Current_Exists := True;
|
|
|
|
case Object.Current.Kind is
|
|
when Document_Start =>
|
|
Object.Current.Implicit_Start := False;
|
|
when Mapping_Start =>
|
|
if Is_Non_Specific (Object.Current.Collection_Properties.Tag) then
|
|
Object.Current.Collection_Properties.Tag := Tags.Mapping;
|
|
end if;
|
|
Object.Current.Collection_Style := Flow;
|
|
when Sequence_Start =>
|
|
if Is_Non_Specific (Object.Current.Collection_Properties.Tag) then
|
|
Object.Current.Collection_Properties.Tag := Tags.Sequence;
|
|
end if;
|
|
Object.Current.Collection_Style := Flow;
|
|
when Scalar =>
|
|
if Is_Non_Specific (Object.Current.Scalar_Properties.Tag) then
|
|
Object.Current.Scalar_Properties.Tag := Tags.String; -- TODO
|
|
end if;
|
|
Object.Current.Scalar_Style := Double_Quoted;
|
|
when others => null;
|
|
end case;
|
|
end Put;
|
|
|
|
function Has_Next (Object : Instance) return Boolean is
|
|
(Object.Current_Exists);
|
|
|
|
function Next (Object : in out Instance) return Event is
|
|
begin
|
|
if Object.Current_Exists then
|
|
Object.Current_Exists := False;
|
|
return Object.Current;
|
|
else
|
|
raise Constraint_Error with "No next event!";
|
|
end if;
|
|
end Next;
|
|
end Yaml.Transformator.Canonical;
|