// **************************************************************************
//
//    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
//
// **************************************************************************

package Theseus;

macro line = 6;
macro column = 6;

// Simply checks if (l,c) is outside the maze

module HasWon(
    nat{line+1} l,
    nat{column+1} c,
    event !has_won
) {
    if ( (l<1) | (l>line) | (c<1) | (c>column()) )
        emit(has_won);
}