// ************************************************************************** //
//                                                                            //
//    eses                   eses                                             //
//   eses                     eses                                            //
//  eses    eseses  esesese    eses   Embedded Systems Group                  //
//  ese    ese  ese ese         ese                                           //
//  ese    eseseses eseseses    ese   Department of Computer Science          //
//  eses   eses          ese   eses                                           //
//   eses   eseses  eseseses  eses    University of Kaiserslautern            //
//    eses                   eses                                             //
//                                                                            //
// ************************************************************************** //
// The following implements a functional node that increments the values of   //
// its input stream.                                                          //
// ************************************************************************** //

macro val(x) = x.0;
macro clk(x) = x.1;

module Inc(event(int* bool) x,y) {
    loop {
        // await trigger event
        if(clk(x) | clk(y)) {
            // ensure clock consistency
            emit(clk(x));
            emit(clk(y));
            // produce output values
            val(y) = val(x) + 1;
        }
        // negative clock information
        if(!clk(x) or !clk(y)) {
            // ensure clock consistency
            clk(x) = false;
            clk(y) = false;
        }
        pause;
    }
}