anchor.diff:   	    end
       end.
   
  -
   idu(User) ->
  -    erl_ddll:load_driver(filename:dirname(code:which(?MODULE)) ++ 
  - 			 "/../priv/", "setuid_drv"),
  +    load_setuid_drv(),
       P = open_port({spawn, "setuid_drv " ++ [$u|User]}, []),
       receive
    	{P, {data, "ok " ++ IntList}} ->
  
positive.code:  	{win32, _} ->
   	    {ok, "XXX"};
   	_ ->
   	    erl_ddll:load_driver(filename:dirname(code:which(?MODULE)) ++ 
   				 "/../priv/", "setuid_drv"),
   	    P = open_port({spawn, "setuid_drv g"},[]),
   	    receive
   		{P, {data, "ok " ++ IntList}} ->
  
negative.code:     end.
  
  user_to_home(User) ->
      load_setuid_drv(),
      P = open_port({spawn, "setuid_drv " ++ [$h|User]}, []),
      receive
  	{P, {data, "ok " ++ Home}} ->
  