flyx

template <typename TValue, typename TPred>
BinarySearchTree<TValue, TPred>::BinarySearchTree() {
  //...
}

flyx

type Model is interface;

type Model_Reference is access all Model'Class;

type Container is tagged record
   Contents : Model_Reference;
end record;

procedure Set_Model (Object : in out Container; Value : Model'Class) is
begin

flyx

        IPoint SetDistance (IPoint point, double newDistance) {
            return Dispatcher.Instance.CreatePoint (point.X, point.Y, point.Z, (float)newDistance, point.Heading);
        }

flyx

def authenticated(func):
    def wrapped_func():
        if 'userid' in session:
            return func(user=db_session.query(User).filter(User.id == session['userid']).one())
        else:
            return redirect('/user/login')
    return wrapped_func

@app.route('/')
@authenticated

flyx

module earth() {
    sphere(r=2, $fn=200);
}

module chock() {
    polyhedron(
        points=[[0,0,2], [0,0,-2], [2,0.6,2], [2, 0.6, -2], [2, -0.6, 2],
                [2, -0.6, -2] ],
        triangles=[[0, 1, 2], [1, 3, 2], [0, 4, 1], [1, 4, 5], [2, 3, 5], [2, 5, 4],
                   [0, 2, 4], [1, 5, 3]]

flyx

// kernel

typedef struct {
   int2 offset;
   int2 center;
} viewport;

kernel void renderkernel(viewport vp) {
   // just accessing the struct crashes
   int a = vp.offset;

flyx

with Ada.Finalization; -- package import

generic -- indent++
   Foo : Integer;
package Bar is -- indend--; indent++
   
   package Child is -- indend++
      type T is new Ada.Finalization.Controlled
        with null record; -- NO package import
   end Child; -- indend--

flyx

with Ada.Text_IO;

procedure Test is
   
   type Int_Array is array (1 .. 64) of aliased Integer;
   
   subtype Index is Integer range 1 .. 4;
   
   type Ref_Element (Data : not null access Integer) is limited null record
     with Implicit_Dereference => Data;

flyx

function Calculate_Size return Natural;

-- illegal because call to Calculate_Size is non-static
Size : constant := Calculate_Size;

-- requires Size to be a static constant.
type Some_Type is mod 2 ** Size;

flyx

with Ada.Text_IO;
with Ada.Numerics.Discrete_Random;

procedure Test is
   subtype Random_Range is Integer range -10 .. 10;
   package Random_X is new Ada.Numerics.Discrete_Random(Random_Range);
   use Random_X;
   Gen : Generator;
begin
   loop