flyx

aggregate project OpenCLAda is
   type Toggle is ("Enabled", "Disabled");
   GL_Support : Toggle := external ("GL_BINDING"; "Disabled");
   case GL_Support is
      when "Enabled" =>
         for Project_Files use ("openclada_gl_binding.gpr");
      when "Disabled" =>
         for Project_Files use ("openclada_core.gpr");
   end case;
end OpenCLAda;

flyx

<?php

/**
 * concerts
 */
class Concert extends ORMBase {
   
   /**
    * INT(10)
    */

flyx

with Interfaces.C;

package Whatev is
   package C renames Interfaces.C;
   
   type Vector_Index is (X, Y, Z, W);
   type Vector is array (Vector_Index range <>) of aliased C.double;
   pragma Convention (C, Vector);

   procedure Vertex (Value : Vector);

flyx

package Foo is
end Foo;

package Foo.Bar is
   type Hurz is (Kol, Ra, Bi);
   for Hurz use (Kol => 1, Ra => 2, Bi => 3);
end Foo.Bar;

flyx

with Ada.Unchecked_Conversion;
with Interfaces.C;
with Ada.Text_IO;

procedure Foo is
   type Bar is (Kol, Ra, Bi);
   for Bar use (Kol => 1, Ra => 2, Bi => 3);
   for Bar'Size use Interfaces.C.int'Size;
   
   subtype Cocktail_Bar is Bar range Kol .. Ra;