-- 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
    for i = 1 : niter
       v = mat_mulvec(M, v)    -- compute on the device
    end
    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

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 functions 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