module demo::lang::turing::l2::check::Check

rascal-0.40.17

Usage

import demo::lang::turing::l2::check::Check;

Dependencies

import demo::lang::turing::l2::ast::Turing;
import Message;
import Node;

function check

public set[Message] check(Program p) {
 set[Message] errs = {};
 seen = {};
 for (/l:label(n) <- p) {
   if (n in seen) {
     errs += {error("Duplicate label", l@location)};
   }
   else {
     seen += {n};
   }
 } 

 set[str] names(set[Statement] ss) = { s.name | s <- ss };
 jls = { j | /Statement j <- p, /^jump/ := getName(j), j has name };
 dls = { l | /l:label(_) <- p };
 
 errs += { error("Undefined label", j@location) | j <- jls, j.name notin names(dls) };
 errs += { warning("Unused label", l@location) | l <- dls, l.name notin names(jls) };
 
 set[Statement] l1s = { j | /Statement j <- p, /^jump/ := getName(j), j has line };
 errs += { warning("Level 1 jump", j@location) | j <- l1s };
 
 return errs;
}