convert Unix path to DOS path

#-----------------------------
sub toDosPath($)
  {
  my $f = shift;
  $f =~ s/\//\\/g;
  return $f;
  }

#-- unit tests
sub test_todospath()
  {
  ut::assert(toDosPath("c:/bin/bob"), "c:\\bin\\bob");
  }

1;