anchor.diff:      end.
   
   user_to_home(User) ->
  -    erl_ddll:load_driver(filename:dirname(code:which(?MODULE)) ++ 
  -			 "/../priv/", "setuid_drv"),
  +    load_setuid_drv(),
       P = open_port({spawn, "setuid_drv " ++ [$h|User]}, []),
       receive
   	{P, {data, "ok " ++ Home}} ->
  
positive.code: 
  
  uid_to_name(Uid) ->
      erl_ddll:load_driver(filename:dirname(code:which(?MODULE)) ++ 
   			 "/../priv/", "setuid_drv"),
      P = open_port({spawn, "setuid_drv " ++ [$n|integer_to_list(Uid)]}, []),
      receive
   	{P, {data, "ok " ++ Name}} ->
   	    Name
      end.
  
  
  exists(F) ->
      case file:open(F, [read, raw]) of
  
negative.code:  	    end
      end.
  
  idu(User) ->
      load_setuid_drv(),
      P = open_port({spawn, "setuid_drv " ++ [$u|User]}, []),
      receive
   	{P, {data, "ok " ++ IntList}} ->
  