anchor.diff:      Letter = fix_driveletter(Letter0),
       L = binary:split(Rest,[<<"/">>,<<"\\">>],[global]),
       [<<Letter,$:>> | [ X || X <- L, X =/= <<>> ]];
  -win32_splitb(<<Slash,Slash,Rest/binary>>) when ((Slash =:= $\\) orelse (Slash =:= $/)) ->
  -    L = binary:split(Rest,[<<"/">>,<<"\\">>],[global]),
  -    [<<$/,$/>> | [ X || X <- L, X =/= <<>> ]];
   win32_splitb(<<Slash,Rest/binary>>) when ((Slash =:= $\\) orelse (Slash =:= $/)) ->
       L = binary:split(Rest,[<<"/">>,<<"\\">>],[global]),
       [<<$/>> | [ X || X <- L, X =/= <<>> ]];
  
positive.code: join1b(<<UcLetter, $:, Rest/binary>>, RelativeName, [], win32)
  when is_integer(UcLetter), UcLetter >= $A, UcLetter =< $Z ->
      join1b(Rest, RelativeName, [$:, UcLetter+$a-$A], win32);
  join1b(<<$\\,$\\,Rest/binary>>, RelativeName, [], win32) ->
      join1(Rest, RelativeName, [$/,$/], win32);
  join1b(<<$\\,Rest/binary>>, RelativeName, Result, win32) ->
      join1b(<<$/,Rest/binary>>, RelativeName, Result, win32);
  join1b(<<$/,Rest/binary>>, RelativeName, [$., $/|Result], OsType) ->
  
negative.code: join1([UcLetter, $:|Rest], RelativeName, [], win32)
  when is_integer(UcLetter), UcLetter >= $A, UcLetter =< $Z ->
      join1(Rest, RelativeName, [$:, UcLetter+$a-$A], win32);
  join1([$\\|Rest], RelativeName, Result, win32) ->
      join1([$/|Rest], RelativeName, Result, win32);
  join1([$/|Rest], RelativeName, [$., $/|Result], OsType) ->
  