Add Ada bindings for the runtime

Closes eng/fuzz/symcc#4.

Author: sebastianpoeplau

runtime/bindings/README

@@ -0,0 +1,9 @@
+
+
+                                Runtime bindings
+
+
+This directory contains bindings to the user-facing functionality of the runtime
+(see runtime/RuntimeCommon.h). The bindings give target programs written in
+different languages access to runtime features like in-memory input or custom
+test-case handlers.

runtime/bindings/ada/README

@@ -0,0 +1,36 @@
+
+
+                                  Ada bindings
+
+
+This directory contains Ada bindings for the SymCC runtime. To use them in your
+Ada code, you can either point gprbuild here directly (e.g., by setting
+GPR_PROJECT_PATH appropriately), or you can install them in the system:
+
+$ gprbuild -Psymcc
+$ gprinstall -Psymcc
+
+Either way, you'll then be able to include SymCC in your project definition
+(i.e., the .gpr file for your project):
+
+  with "symcc";
+
+This will let you use the bindings in your Ada code, for example:
+
+  with SymCC; use SymCC;
+
+  --  ...
+
+  --  Register a procedure that receives new program inputs.
+  SymCC_Set_Test_Case_Handler (My_Handler);
+
+  --  Tell SymCC where to find the input in memory. Note that the variable needs
+  --  to be declared with the "aliased" keyword.
+  SymCC_Make_Symbolic (Input'Address, Input'Size / System.Storage_Unit);
+
+  --  Run your code on the input; SymCC will follow the computations
+  --  symbolically and call My_Handler whenever it produces a new test input.
+  My_Code_Under_Test (Input);
+
+See the doc comments in symcc.ads for details, or generate HTML documentation
+with "gnatdoc -Psymcc".

runtime/bindings/ada/symcc.ads

@@ -0,0 +1,46 @@
+--  This file is part of the SymCC runtime.
+
+--  The SymCC runtime is free software: you can redistribute it and/or modify
+--  it under the terms of the GNU Lesser General Public License as published by
+--  the Free Software Foundation, either version 3 of the License, or (at your
+--  option) any later version.
+
+--  The SymCC runtime is distributed in the hope that it will be useful, but
+--  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+--  or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
+--  License for more details.
+
+with Interfaces.C;
+with System;
+
+--  @summary
+--  Ada bindings to the SymCC runtime API.
+--
+--  @description
+--  This package provides thin bindings to the user-facing functionality of the
+--  SymCC runtime (see RuntimeCommon.h).
+package SymCC is
+
+   procedure SymCC_Make_Symbolic
+     (Address : System.Address; Size : Interfaces.C.size_t) with
+     Import => True, Convention => C, External_Name => "symcc_make_symbolic";
+   --  Mark a memory region as symbolic program input.
+   --  @param Address The start of the region containing the input data.
+   --  @param Size The length in bytes of the region.
+
+   type Test_Case_Handler_Callback_Type is
+     access procedure
+       (Data_Block : System.Address; Size : Interfaces.C.size_t) with
+     Convention => C;
+   --  Type of functions that the runtime can call when it generates new
+   --  program inputs (see SymCC_Set_Test_Case_Handler).
+
+   procedure SymCC_Set_Test_Case_Handler
+     (Callback : Test_Case_Handler_Callback_Type) with
+     Import        => True,
+     Convention    => C,
+     External_Name => "symcc_set_test_case_handler";
+   --  Define a custom handler for new program inputs.
+   --  @param Callback The procedure to be called for each new input.
+
+end SymCC;

runtime/bindings/ada/symcc.gpr

@@ -0,0 +1,21 @@
+--  This file is part of the SymCC runtime.
+
+--  The SymCC runtime is free software: you can redistribute it and/or modify
+--  it under the terms of the GNU Lesser General Public License as published by
+--  the Free Software Foundation, either version 3 of the License, or (at your
+--  option) any later version.
+
+--  The SymCC runtime is distributed in the hope that it will be useful, but
+--  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+--  or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
+--  License for more details.
+
+library project SymCC is
+
+   for Library_Name use "symcc";
+   for Library_Dir use "lib";
+
+   for Languages use ("Ada");
+   for Object_Dir use "obj";
+
+end SymCC;