-- Discrete Markov Chain Sample Example 
using io
def main() 
    n = 2000
    niter = 500
    M = get_stocastic(n,n)     -- initialize the matrix
    v = get_distribution(n)    -- initialize the vector of distribution
    >>> M, v                   -- move to desired device
    for i = 1 : niter
       v = mat_mulvec(M, v)    -- compute in device
    end
    <<< v                      -- recovery data from device  
    println(stdout, v)                           
end       

What is Neblina?

Download

Compile and Install

$ ./configure
$ make 
# make install

Getting Started with Neblina

def main()
    n = 4             -- an integer 
    V = float[3]      -- vector of float point variable with 3 elements
    M = int[n,n]      -- integer matrix 4x4 
end

using io
def main()    
    for i = 0 : 10
        if (i % 2) == 0:        
            println( i ) -- print only even numbers from 0 to 10 
        end
    end
end

using io
def main()    
    i = 0
    while i <= 10:    
        if (i % 2) == 0:        
            println( i ) -- print only even numbers from 0 to 10 
        end
        i = i + 1
    end
end

def foo()
    return 1, 2, 3
end

def main()
    a, b, c = foo()
    a, b = b, a  -- swap values
end

    >>> x, y                -- move the vectors to device
    x = vec_add( x, y )     -- compute the vector addition
    <<< x                   -- recovery the vector x from device

Neblina Build-in Functions

C Integration

typedef enum  {
        T_STRING,      // basic string 
        T_INT,         // integer
        T_FLOAT,       // float point
        T_COMPLEX,     // complex numbers
        T_ADDR,        // address 
                       //     (for internal byte code use)
        T_NDEF,        // to inicialize some variable 
                       //      (for internal byte code use)
        T_CFUNC,       // pointer to a C function 
                       //      (for internal byte code use)
        T_VECTOR,      // native neblina vector
        T_MATRIX,      // native neblina matrix
        T_FILE,        // file handler 
        T_ANY          // arbitrary type
} data_type;

void ** neblina_open (void ** input, int * status);    
package_t * getPackage() {
    package_t * pkg = package_init( 1,   // number of functios in package
                                 "io" ); // name of package
    data_type input_type[]  = { T_STRING, T_STRING };
    data_type output_type[] = { T_FILE };
    pkg->functions[0] = 
    package_new_func("open",         // name of function that will be used
                      2,             // number of input parameters
                      1,             // number of output values
                      input_type,    // type of input values  
                      output_type,   // type of output values
                      neblina_open );// callback function that will be called
   return pkg;                                   
}

Become a Neblina developer