entry_point
void mknod_char (pathname path, fileperm perm, uint64 major, uint64 minor)
<<
  if (mknod (path, S_IFCHR | perm, makedev (major, minor)) == -1) {
    error_errno ("mknod: %s", path);
    return -1;
  }
  return 0;
>>

;;

(*
mknod_block
mkfifo
mknod_socket
*)