Project

General

Profile

Revision f6923c9e src/machine_code.ml

View differences:

src/machine_code.ml
436 436
  let nodes = get_nodes decls in 
437 437
   (* What to do with Imported/Sensor/Actuators ? *)
438 438
   arrow_machine ::  List.map translate_decl nodes
439
 
439

  
440
let get_machine_opt name machines =  
441
  List.fold_left 
442
    (fun res m -> 
443
      match res with 
444
      | Some _ -> res 
445
      | None -> if m.mname.node_id = name then Some m else None)
446
    None machines
447
    
440 448

  
441 449
(* Local Variables: *)
442 450
(* compile-command:"make -C .." *)

Also available in: Unified diff