anchor.diff:      end.
   
   each_module(F, [{module,_,M,Data}|Rest], Dir) ->
  -    [{module, binary_to_list(M), F(Data, Dir)} | each_module(F, Rest, Dir)];
  +    Ms = binary_to_list(M),
  +    [{module, Ms, F(Data, Dir, Ms)} | each_module(F, Rest, Dir)];
   each_module(F, [_|Rest], Dir) ->
       each_module(F, Rest, Dir);
   each_module(_, [], _) ->
       [].
   
  -to_json_rpc(Data, Dir) ->
  +to_json_rpc(Data, Dir, M) ->
       Imports = imports(Data, Dir),
       Data1 = augment(Data, Imports),
       lists:foldr(
         fun({rpc,_,N,InOut}, Acc) ->
  -	      [{binary_to_list(N), mk_rpc_pair(InOut, N, Data1, Imports)} | Acc];
  +	      Ns = M++":"++binary_to_list(N),
  +	      [{Ns, mk_rpc_pair(InOut, Ns, Data1, Imports)} | Acc];
   	 ({notification,_,N,Elems}, Acc) ->
  -	      [{binary_to_list(N), notification(N, Elems, Data1, Imports)} | Acc];
  +	      Ns = M++":"++binary_to_list(N),
  +	      [{Ns, notification(Ns, Elems, Data1, Imports)} | Acc];
   	 (_, Acc) ->
   	      Acc
         end, [], Data1).
  
positive.code:     {notification,
       descr(Elems),
       {struct, [{"json-rpc", "2.0"},
  	       {"method", binary_to_list(N)},
  	       {"params", {struct, rpc_params(Elems, Data, Imports)}}]}}.
  
  mk_rpc_pair(InOut, N, Data, Imports) ->
  
negative.code:     Dir = filename:dirname(YangFile),
      case read(YangFile) of
  	{{ok, Y}, Ext} ->
  	    each_module(fun to_json_rpc/3, Y, {Dir, Ext});
  	{Error, _} ->
  	    Error
      end.
  