This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?php | |
/** | |
* concerts | |
*/ | |
class Concert extends ORMBase { | |
/** | |
* INT(10) | |
*/ |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
FILE "siedler2.iso" BINARY | |
TRACK 01 MODE1/2048 | |
INDEX 01 00:00:00 | |
FILE "track02.ogg" MP3 | |
TRACK 02 AUDIO | |
PREGAP 00:02:00 | |
INDEX 01 00:00:00 | |
FILE "track03.ogg" MP3 | |
TRACK 03 AUDIO | |
INDEX 01 00:00:00 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
class A { | |
void method(A someObj) { | |
// .. do something here | |
} | |
} | |
class B extends A { | |
// .. declare something here | |
} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
generic | |
-- defines maximum depth of tree | |
type Node_Level is <>; | |
package Tree is | |
-- it's a binary tree. for now. | |
type Tree_Direction is (Left, Right); | |
type Direction_Array is array (Node_Level range <>) of Tree_Direction; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
with Ada.Containers.Hashed_Maps; | |
with Interfaces.C; | |
package Example is | |
type UInt is new Interfaces.C.unsigned; | |
type Whatever is new Integer; | |
function Hash (Key : UInt) return Ada.Containers.Hash_Type; | |
package My_Maps is new Ada.Containers.Hashed_Maps ( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?php | |
$arr = array(); | |
$arr[0] = "hurr"; | |
$arr[2] = "warbl"; | |
$arr[1] = "durr"; | |
foreach($arr as $item) { | |
echo $item; | |
} | |
?> |
OlderNewer