2N/A/* getroot.c - Get root device */
2N/A/*
2N/A * GRUB -- GRand Unified Bootloader
2N/A * Copyright (C) 1999,2000,2001,2002,2003,2006,2007,2008,2009,2010,2011 Free Software Foundation, Inc.
2N/A * Copyright (c) 2010, 2012, Oracle and/or its affiliates. All rights reserved.
2N/A *
2N/A * GRUB is free software: you can redistribute it and/or modify
2N/A * it under the terms of the GNU General Public License as published by
2N/A * the Free Software Foundation, either version 3 of the License, or
2N/A * (at your option) any later version.
2N/A *
2N/A * GRUB is distributed in the hope that it will be useful,
2N/A * but WITHOUT ANY WARRANTY; without even the implied warranty of
2N/A * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2N/A * GNU General Public License for more details.
2N/A *
2N/A * You should have received a copy of the GNU General Public License
2N/A * along with GRUB. If not, see <http://www.gnu.org/licenses/>.
2N/A */
2N/A#define FORCE_INCLUDE_CONFIG_UTIL_H
2N/A#include <config.h>
2N/A
2N/A#include <sys/stat.h>
2N/A#include <sys/types.h>
2N/A#include <assert.h>
2N/A#include <fcntl.h>
2N/A#include <unistd.h>
2N/A#include <string.h>
2N/A#include <dirent.h>
2N/A#include <errno.h>
2N/A#include <error.h>
2N/A#include <stdio.h>
2N/A#include <stdlib.h>
2N/A#include <stdint.h>
2N/A#ifdef HAVE_LIMITS_H
2N/A#include <limits.h>
2N/A#endif
2N/A#include <grub/util/misc.h>
2N/A#include <grub/util/lvm.h>
2N/A#include <grub/cryptodisk.h>
2N/A#include <grub/i18n.h>
2N/A
2N/A#ifdef HAVE_DEVICE_MAPPER
2N/A# include <libdevmapper.h>
2N/A#endif
2N/A
2N/A#ifdef __GNU__
2N/A#include <hurd.h>
2N/A#include <hurd/lookup.h>
2N/A#include <hurd/fs.h>
2N/A#include <sys/mman.h>
2N/A#endif
2N/A
2N/A#ifdef __linux__
2N/A# include <sys/types.h>
2N/A# include <sys/wait.h>
2N/A#endif
2N/A
2N/A#ifdef __sun__
2N/A#include <sys/mkdev.h>
2N/A#endif
2N/A
2N/A#if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
2N/A# include <sys/mount.h>
2N/A#endif
2N/A
2N/A#if defined(HAVE_LIBZFS) && defined(HAVE_LIBNVPAIR)
2N/A# include <grub/util/libzfs.h>
2N/A# include <grub/util/libnvpair.h>
2N/A#endif
2N/A
2N/A#ifdef __sun__
2N/A# include <sys/types.h>
2N/A# include <sys/mkdev.h>
2N/A#endif
2N/A
2N/A#include <grub/mm.h>
2N/A#include <grub/misc.h>
2N/A#include <grub/emu/misc.h>
2N/A#include <grub/emu/hostdisk.h>
2N/A#include <grub/emu/getroot.h>
2N/A
2N/A#if ! defined(__sun__)
2N/Astatic void
2N/Astrip_extra_slashes (char *dir)
2N/A{
2N/A char *p = dir;
2N/A
2N/A while ((p = strchr (p, '/')) != 0)
2N/A {
2N/A if (p[1] == '/')
2N/A {
2N/A memmove (p, p + 1, strlen (p));
2N/A continue;
2N/A }
2N/A else if (p[1] == '\0')
2N/A {
2N/A if (p > dir)
2N/A p[0] = '\0';
2N/A break;
2N/A }
2N/A
2N/A p++;
2N/A }
2N/A}
2N/A
2N/Astatic char *
2N/Axgetcwd (void)
2N/A{
2N/A size_t size = 10;
2N/A char *path;
2N/A
2N/A path = xmalloc (size);
2N/A while (! getcwd (path, size))
2N/A {
2N/A size <<= 1;
2N/A path = xrealloc (path, size);
2N/A }
2N/A
2N/A return path;
2N/A}
2N/A#endif
2N/A
2N/A#ifdef __linux__
2N/A
2N/A#define ESCAPED_PATH_MAX (4 * PATH_MAX)
2N/Astruct mountinfo_entry
2N/A{
2N/A int id;
2N/A int major, minor;
2N/A char enc_root[ESCAPED_PATH_MAX + 1], enc_path[ESCAPED_PATH_MAX + 1];
2N/A char fstype[ESCAPED_PATH_MAX + 1], device[ESCAPED_PATH_MAX + 1];
2N/A};
2N/A
2N/A/* Statting something on a btrfs filesystem always returns a virtual device
2N/A major/minor pair rather than the real underlying device, because btrfs
2N/A can span multiple underlying devices (and even if it's currently only
2N/A using a single device it can be dynamically extended onto another). We
2N/A can't deal with the multiple-device case yet, but in the meantime, we can
2N/A at least cope with the single-device case by scanning
2N/A /proc/self/mountinfo. */
2N/Astatic void
2N/Aunescape (char *str)
2N/A{
2N/A char *optr;
2N/A const char *iptr;
2N/A for (iptr = optr = str; *iptr; optr++)
2N/A {
2N/A if (iptr[0] == '\\' && iptr[1] >= '0' && iptr[1] < '8'
2N/A && iptr[2] >= '0' && iptr[2] < '8'
2N/A && iptr[3] >= '0' && iptr[3] < '8')
2N/A {
2N/A *optr = (((iptr[1] - '0') << 6) | ((iptr[2] - '0') << 3)
2N/A | (iptr[3] - '0'));
2N/A iptr += 4;
2N/A }
2N/A else
2N/A *optr = *iptr++;
2N/A }
2N/A *optr = 0;
2N/A}
2N/A
2N/Achar *
2N/Agrub_find_root_device_from_mountinfo (const char *dir, char **relroot)
2N/A{
2N/A FILE *fp;
2N/A char *buf = NULL;
2N/A size_t len = 0;
2N/A char *ret = NULL;
2N/A int entry_len = 0, entry_max = 4;
2N/A struct mountinfo_entry *entries;
2N/A struct mountinfo_entry parent_entry = { 0, 0, 0, "", "", "", "" };
2N/A int i;
2N/A
2N/A if (! *dir)
2N/A dir = "/";
2N/A if (relroot)
2N/A *relroot = NULL;
2N/A
2N/A fp = fopen ("/proc/self/mountinfo", "r");
2N/A if (! fp)
2N/A return NULL; /* fall through to other methods */
2N/A
2N/A entries = xmalloc (entry_max * sizeof (*entries));
2N/A
2N/A /* First, build a list of relevant visible mounts. */
2N/A while (getline (&buf, &len, fp) > 0)
2N/A {
2N/A struct mountinfo_entry entry;
2N/A int count;
2N/A size_t enc_path_len;
2N/A const char *sep;
2N/A
2N/A if (sscanf (buf, "%d %d %u:%u %s %s%n",
2N/A &entry.id, &parent_entry.id, &entry.major, &entry.minor,
2N/A entry.enc_root, entry.enc_path, &count) < 6)
2N/A continue;
2N/A
2N/A unescape (entry.enc_root);
2N/A unescape (entry.enc_path);
2N/A
2N/A enc_path_len = strlen (entry.enc_path);
2N/A /* Check that enc_path is a prefix of dir. The prefix must either be
2N/A the entire string, or end with a slash, or be immediately followed
2N/A by a slash. */
2N/A if (strncmp (dir, entry.enc_path, enc_path_len) != 0 ||
2N/A (enc_path_len && dir[enc_path_len - 1] != '/' &&
2N/A dir[enc_path_len] && dir[enc_path_len] != '/'))
2N/A continue;
2N/A
2N/A sep = strstr (buf + count, " - ");
2N/A if (!sep)
2N/A continue;
2N/A
2N/A sep += sizeof (" - ") - 1;
2N/A if (sscanf (sep, "%s %s", entry.fstype, entry.device) != 2)
2N/A continue;
2N/A
2N/A /* Using the mount IDs, find out where this fits in the list of
2N/A visible mount entries we've seen so far. There are three
2N/A interesting cases. Firstly, it may be inserted at the end: this is
2N/A the usual case of /foo/bar being mounted after /foo. Secondly, it
2N/A may be inserted at the start: for example, this can happen for
2N/A filesystems that are mounted before / and later moved under it.
2N/A Thirdly, it may occlude part or all of the existing filesystem
2N/A tree, in which case the end of the list needs to be pruned and this
2N/A new entry will be inserted at the end. */
2N/A if (entry_len >= entry_max)
2N/A {
2N/A entry_max <<= 1;
2N/A entries = xrealloc (entries, entry_max * sizeof (*entries));
2N/A }
2N/A
2N/A if (!entry_len)
2N/A {
2N/A /* Initialise list. */
2N/A entry_len = 2;
2N/A entries[0] = parent_entry;
2N/A entries[1] = entry;
2N/A }
2N/A else
2N/A {
2N/A for (i = entry_len - 1; i >= 0; i--)
2N/A {
2N/A if (entries[i].id == parent_entry.id)
2N/A {
2N/A /* Insert at end, pruning anything previously above this. */
2N/A entry_len = i + 2;
2N/A entries[i + 1] = entry;
2N/A break;
2N/A }
2N/A else if (i == 0 && entries[i].id == entry.id)
2N/A {
2N/A /* Insert at start. */
2N/A entry_len++;
2N/A memmove (entries + 1, entries,
2N/A (entry_len - 1) * sizeof (*entries));
2N/A entries[0] = parent_entry;
2N/A entries[1] = entry;
2N/A break;
2N/A }
2N/A }
2N/A }
2N/A }
2N/A
2N/A /* Now scan visible mounts for the ones we're interested in. */
2N/A for (i = entry_len - 1; i >= 0; i--)
2N/A {
2N/A if (!*entries[i].device)
2N/A continue;
2N/A
2N/A ret = strdup (entries[i].device);
2N/A if (relroot)
2N/A *relroot = strdup (entries[i].enc_root);
2N/A break;
2N/A }
2N/A
2N/A free (buf);
2N/A free (entries);
2N/A fclose (fp);
2N/A return ret;
2N/A}
2N/A
2N/A#elif defined(__sun__)
2N/Astatic char *grub_find_root_device_from_solaris_mountinfo (const char *dir);
2N/Astatic char *
2N/Agrub_find_root_device_from_solaris_mountinfo (const char *dir)
2N/A{
2N/A struct stat st, specialst;
2N/A struct extmnttab mnt;
2N/A char *device = NULL;
2N/A
2N/A if (stat (dir, &st) != 0)
2N/A return NULL;
2N/A
2N/A FILE *mnttab = fopen ("/etc/mnttab", "r");
2N/A if (! mnttab)
2N/A return NULL;
2N/A
2N/A while (getextmntent (mnttab, &mnt, sizeof (mnt)) == 0)
2N/A {
2N/A if (stat(mnt.mnt_special, &specialst) != 0 ||
2N/A (!S_ISCHR(specialst.st_mode) && !S_ISBLK(specialst.st_mode)))
2N/A continue;
2N/A
2N/A if (st.st_dev == specialst.st_rdev) {
2N/A if (strncmp(mnt.mnt_special, "/dev/dsk/", 9) == 0) {
2N/A device = xasprintf("/dev/rdsk/%s", mnt.mnt_special + 9);
2N/A break;
2N/A } else if (strncmp(mnt.mnt_special, "/dev/lofi/", 10) == 0) {
2N/A device = xasprintf("/dev/rlofi/%s", mnt.mnt_special + 10);
2N/A break;
2N/A } else if (strncmp(mnt.mnt_special, "/dev/ramdisk/", 13) == 0) {
2N/A device = xasprintf("/dev/rramdisk/%s", mnt.mnt_special + 13);
2N/A break;
2N/A } else if (strncmp(mnt.mnt_special, "/devices/ramdisk:", 17) == 0) {
2N/A device = xasprintf("/dev/rramdisk/%s", mnt.mnt_special + 17);
2N/A break;
2N/A } else if (strncmp(mnt.mnt_special, "/devices/pseudo/ramdisk@",
2N/A 24) == 0) {
2N/A /* To find the minor name, we need to skip the instance # */
2N/A char *minor_name = mnt.mnt_special + 24;
2N/A while (*minor_name != 0 && *minor_name != ':')
2N/A minor_name++;
2N/A if (*minor_name == ':') {
2N/A minor_name++;
2N/A device = xasprintf("/dev/rramdisk/%s", minor_name);
2N/A }
2N/A break;
2N/A }
2N/A }
2N/A }
2N/A
2N/A fclose (mnttab);
2N/A return (device);
2N/A}
2N/A#endif /* __linux__ */
2N/A
2N/A#if defined(HAVE_LIBZFS) && defined(HAVE_LIBNVPAIR)
2N/Astatic int
2N/Avdev_validate (nvlist_t *nv)
2N/A{
2N/A uint64_t ival = 0;
2N/A
2N/A (void) nvlist_lookup_uint64 (nv, ZPOOL_CONFIG_OFFLINE, &ival);
2N/A if (ival)
2N/A {
2N/A grub_util_info ("ZPOOL_CONFIG_OFFLINE");
2N/A return (1);
2N/A }
2N/A (void) nvlist_lookup_uint64 (nv, ZPOOL_CONFIG_FAULTED, &ival);
2N/A if (ival)
2N/A {
2N/A grub_util_info ("ZPOOL_CONFIG_FAULTED");
2N/A return (1);
2N/A }
2N/A (void) nvlist_lookup_uint64 (nv, ZPOOL_CONFIG_REMOVED, &ival);
2N/A if (ival)
2N/A {
2N/A grub_util_info ("ZPOOL_CONFIG_REMOVED");
2N/A return (1);
2N/A }
2N/A
2N/A return (0);
2N/A}
2N/A
2N/Astatic int
2N/Avdev_get_bootdevice (nvlist_t *nv, char **pdevice)
2N/A{
2N/A char *type = NULL;
2N/A
2N/A if (nvlist_lookup_string (nv, ZPOOL_CONFIG_TYPE, &type))
2N/A {
2N/A error (1, errno, "nvlist_lookup_string(\"type\")");
2N/A return (1);
2N/A }
2N/A grub_util_info("device type = %s", type);
2N/A
2N/A if (strcmp (type, VDEV_TYPE_DISK) == 0)
2N/A {
2N/A struct stat st;
2N/A
2N/A if (vdev_validate (nv) != 0)
2N/A return (1);
2N/A if (nvlist_lookup_string (nv, ZPOOL_CONFIG_PATH, pdevice) != 0)
2N/A {
2N/A error (1, errno, "nvlist_lookup_string (\"path\")");
2N/A return (1);
2N/A }
2N/A
2N/A grub_util_info ("device -> %s", *pdevice);
2N/A
2N/A if (stat (*pdevice, &st) == 0)
2N/A {
2N/A *pdevice = xstrdup (*pdevice);
2N/A return (0);
2N/A } else {
2N/A *pdevice = NULL;
2N/A return (1);
2N/A }
2N/A } else if (strcmp (type, VDEV_TYPE_MIRROR) == 0 ||
2N/A strcmp (type, VDEV_TYPE_REPLACING) == 0 ||
2N/A strcmp (type, VDEV_TYPE_ROOT) == 0)
2N/A {
2N/A unsigned int nelm, i;
2N/A nvlist_t **child;
2N/A
2N/A if (nvlist_lookup_nvlist_array (nv, ZPOOL_CONFIG_CHILDREN, &child, &nelm))
2N/A {
2N/A error (1, errno, "nvlist_lookup_nvlist_array (\"children\")");
2N/A return (1);
2N/A }
2N/A grub_util_info ("number of child = %d", nelm);
2N/A
2N/A for (i = 0; i < nelm; i++)
2N/A {
2N/A if (vdev_get_bootdevice (child[i], pdevice) == 0)
2N/A return (0);
2N/A }
2N/A }
2N/A
2N/A return (1);
2N/A}
2N/A#endif
2N/A
2N/Astatic char *
2N/Afind_root_device_from_libzfs (const char *dir)
2N/A{
2N/A char *device = NULL;
2N/A char *poolname;
2N/A char *poolfs;
2N/A
2N/A grub_find_zpool_from_dir (dir, &poolname, &poolfs);
2N/A if (! poolname)
2N/A return NULL;
2N/A grub_util_info("poolname = %s; poolfs = %s", poolname, poolfs);
2N/A
2N/A#if defined(HAVE_LIBZFS) && defined(HAVE_LIBNVPAIR)
2N/A {
2N/A zpool_handle_t *zpool;
2N/A libzfs_handle_t *libzfs;
2N/A nvlist_t *config, *vdev_tree = NULL;
2N/A
2N/A libzfs = grub_get_libzfs_handle ();
2N/A if (! libzfs)
2N/A return NULL;
2N/A
2N/A zpool = zpool_open (libzfs, poolname);
2N/A config = zpool_get_config (zpool, NULL);
2N/A
2N/A /* get the root vdev */
2N/A if (nvlist_lookup_nvlist (config, "vdev_tree", &vdev_tree) != 0)
2N/A grub_util_error ("nvlist_lookup_nvlist (\"vdev_tree\")");
2N/A
2N/A (void) vdev_get_bootdevice (vdev_tree, &device);
2N/A
2N/A zpool_close (zpool);
2N/A }
2N/A#else
2N/A {
2N/A char *cmd;
2N/A FILE *fp;
2N/A int ret;
2N/A char *line;
2N/A size_t len;
2N/A int st;
2N/A
2N/A char name[PATH_MAX + 1], state[257], readlen[257], writelen[257];
2N/A char cksum[257], notes[257];
2N/A unsigned int dummy;
2N/A
2N/A cmd = xasprintf ("zpool status %s", poolname);
2N/A fp = popen (cmd, "r");
2N/A free (cmd);
2N/A
2N/A st = 0;
2N/A while (st < 3)
2N/A {
2N/A line = NULL;
2N/A ret = getline (&line, &len, fp);
2N/A if (ret == -1)
2N/A goto fail;
2N/A
2N/A if (sscanf (line, " %s %256s %256s %256s %256s %256s",
2N/A name, state, readlen, writelen, cksum, notes) >= 5)
2N/A switch (st)
2N/A {
2N/A case 0:
2N/A if (!strcmp (name, "NAME")
2N/A && !strcmp (state, "STATE")
2N/A && !strcmp (readlen, "READ")
2N/A && !strcmp (writelen, "WRITE")
2N/A && !strcmp (cksum, "CKSUM"))
2N/A st++;
2N/A break;
2N/A case 1:
2N/A if (!strcmp (name, poolname))
2N/A st++;
2N/A break;
2N/A case 2:
2N/A if (strcmp (name, "mirror") && !sscanf (name, "mirror-%u", &dummy)
2N/A && !sscanf (name, "raidz%u", &dummy)
2N/A && !strcmp (state, "ONLINE"))
2N/A st++;
2N/A break;
2N/A }
2N/A
2N/A free (line);
2N/A }
2N/A device = xasprintf ("/dev/%s", name);
2N/A
2N/A fail:
2N/A pclose (fp);
2N/A }
2N/A#endif
2N/A
2N/A free (poolname);
2N/A if (poolfs)
2N/A free (poolfs);
2N/A
2N/A#if defined(__sun__)
2N/A /* If the device is a /dev/dsk path, convert it into a /dev/rdsk one */
2N/A if (device != NULL && strncmp(device, "/dev/dsk/", 9) == 0) {
2N/A char *newdevice = xasprintf("/dev/rdsk/%s", device + 9);
2N/A grub_free(device);
2N/A device = newdevice;
2N/A }
2N/A#endif
2N/A
2N/A if (device != NULL)
2N/A grub_util_info("zfs path = %s", device);
2N/A
2N/A return device;
2N/A}
2N/A
2N/A#ifdef __MINGW32__
2N/A
2N/Achar *
2N/Agrub_find_device (const char *dir __attribute__ ((unused)),
2N/A dev_t dev __attribute__ ((unused)))
2N/A{
2N/A return 0;
2N/A}
2N/A
2N/A#elif ! defined(__CYGWIN__) && ! defined(__sun__)
2N/Achar *
2N/Agrub_find_device (const char *dir, dev_t dev)
2N/A{
2N/A DIR *dp;
2N/A char *saved_cwd;
2N/A struct dirent *ent;
2N/A
2N/A if (! dir)
2N/A {
2N/A#ifdef __CYGWIN__
2N/A return NULL;
2N/A#else
2N/A dir = "/dev";
2N/A#endif
2N/A }
2N/A
2N/A dp = opendir (dir);
2N/A if (! dp)
2N/A return 0;
2N/A
2N/A saved_cwd = xgetcwd ();
2N/A
2N/A grub_util_info ("changing current directory to %s", dir);
2N/A if (chdir (dir) < 0)
2N/A {
2N/A free (saved_cwd);
2N/A closedir (dp);
2N/A return 0;
2N/A }
2N/A
2N/A while ((ent = readdir (dp)) != 0)
2N/A {
2N/A struct stat st;
2N/A
2N/A /* Avoid:
2N/A - dotfiles (like "/dev/.tmp.md0") since they could be duplicates.
2N/A - dotdirs (like "/dev/.static") since they could contain duplicates. */
2N/A if (ent->d_name[0] == '.')
2N/A continue;
2N/A
2N/A if (lstat (ent->d_name, &st) < 0)
2N/A /* Ignore any error. */
2N/A continue;
2N/A
2N/A if (S_ISLNK (st.st_mode)) {
2N/A#ifdef __linux__
2N/A if (strcmp (dir, "mapper") == 0 || strcmp (dir, "/dev/mapper") == 0) {
2N/A /* Follow symbolic links under /dev/mapper/; the canonical name
2N/A may be something like /dev/dm-0, but the names under
2N/A /dev/mapper/ are more human-readable and so we prefer them if
2N/A we can get them. */
2N/A if (stat (ent->d_name, &st) < 0)
2N/A continue;
2N/A } else
2N/A#endif /* __linux__ */
2N/A /* Don't follow other symbolic links. */
2N/A continue;
2N/A }
2N/A
2N/A if (S_ISDIR (st.st_mode))
2N/A {
2N/A /* Find it recursively. */
2N/A char *res;
2N/A
2N/A res = grub_find_device (ent->d_name, dev);
2N/A
2N/A if (res)
2N/A {
2N/A if (chdir (saved_cwd) < 0)
2N/A grub_util_error ("cannot restore the original directory");
2N/A
2N/A free (saved_cwd);
2N/A closedir (dp);
2N/A return res;
2N/A }
2N/A }
2N/A
2N/A#if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__APPLE__)
2N/A if (S_ISCHR (st.st_mode) && st.st_rdev == dev)
2N/A#else
2N/A if (S_ISBLK (st.st_mode) && st.st_rdev == dev)
2N/A#endif
2N/A {
2N/A#ifdef __linux__
2N/A /* Skip device names like /dev/dm-0, which are short-hand aliases
2N/A to more descriptive device names, e.g. those under /dev/mapper */
2N/A if (ent->d_name[0] == 'd' &&
2N/A ent->d_name[1] == 'm' &&
2N/A ent->d_name[2] == '-' &&
2N/A ent->d_name[3] >= '0' &&
2N/A ent->d_name[3] <= '9')
2N/A continue;
2N/A#endif
2N/A
2N/A /* Found! */
2N/A char *res;
2N/A char *cwd;
2N/A#if defined(__NetBSD__)
2N/A /* Convert this block device to its character (raw) device. */
2N/A const char *template = "%s/r%s";
2N/A#else
2N/A /* Keep the device name as it is. */
2N/A const char *template = "%s/%s";
2N/A#endif
2N/A
2N/A cwd = xgetcwd ();
2N/A res = xmalloc (strlen (cwd) + strlen (ent->d_name) + 3);
2N/A sprintf (res, template, cwd, ent->d_name);
2N/A strip_extra_slashes (res);
2N/A free (cwd);
2N/A
2N/A /* /dev/root is not a real block device keep looking, takes care
2N/A of situation where root filesystem is on the same partition as
2N/A grub files */
2N/A
2N/A if (strcmp(res, "/dev/root") == 0)
2N/A continue;
2N/A
2N/A if (chdir (saved_cwd) < 0)
2N/A grub_util_error (_("cannot restore the original directory"));
2N/A
2N/A free (saved_cwd);
2N/A closedir (dp);
2N/A return res;
2N/A }
2N/A }
2N/A
2N/A if (chdir (saved_cwd) < 0)
2N/A grub_util_error (_("cannot restore the original directory"));
2N/A
2N/A free (saved_cwd);
2N/A closedir (dp);
2N/A return 0;
2N/A}
2N/A
2N/A#elif defined(__CYGWIN__)
2N/A
2N/A/* Read drive/partition serial number from mbr/boot sector,
2N/A return 0 on read error, ~0 on unknown serial. */
2N/Astatic unsigned
2N/Aget_bootsec_serial (const char *os_dev, int mbr)
2N/A{
2N/A /* Read boot sector. */
2N/A int fd = open (os_dev, O_RDONLY);
2N/A if (fd < 0)
2N/A return 0;
2N/A unsigned char buf[0x200];
2N/A int n = read (fd, buf, sizeof (buf));
2N/A close (fd);
2N/A if (n != sizeof(buf))
2N/A return 0;
2N/A
2N/A /* Check signature. */
2N/A if (!(buf[0x1fe] == 0x55 && buf[0x1ff] == 0xaa))
2N/A return ~0;
2N/A
2N/A /* Serial number offset depends on boot sector type. */
2N/A if (mbr)
2N/A n = 0x1b8;
2N/A else if (memcmp (buf + 0x03, "NTFS", 4) == 0)
2N/A n = 0x048;
2N/A else if (memcmp (buf + 0x52, "FAT32", 5) == 0)
2N/A n = 0x043;
2N/A else if (memcmp (buf + 0x36, "FAT", 3) == 0)
2N/A n = 0x027;
2N/A else
2N/A return ~0;
2N/A
2N/A unsigned serial = *(unsigned *)(buf + n);
2N/A if (serial == 0)
2N/A return ~0;
2N/A return serial;
2N/A}
2N/A
2N/Achar *
2N/Agrub_find_device (const char *path, dev_t dev)
2N/A{
2N/A /* No root device for /cygdrive. */
2N/A if (dev == (DEV_CYGDRIVE_MAJOR << 16))
2N/A return 0;
2N/A
2N/A /* Convert to full POSIX and Win32 path. */
2N/A char fullpath[PATH_MAX], winpath[PATH_MAX];
2N/A cygwin_conv_to_full_posix_path (path, fullpath);
2N/A cygwin_conv_to_full_win32_path (fullpath, winpath);
2N/A
2N/A /* If identical, this is no real filesystem path. */
2N/A if (strcmp (fullpath, winpath) == 0)
2N/A return 0;
2N/A
2N/A /* Check for floppy drive letter. */
2N/A if (winpath[0] && winpath[1] == ':' && strchr ("AaBb", winpath[0]))
2N/A return xstrdup (strchr ("Aa", winpath[0]) ? "/dev/fd0" : "/dev/fd1");
2N/A
2N/A /* Cygwin returns the partition serial number in stat.st_dev.
2N/A This is never identical to the device number of the emulated
2N/A /dev/sdXN device, so above grub_find_device () does not work.
2N/A Search the partition with the same serial in boot sector instead. */
2N/A char devpath[sizeof ("/dev/sda15") + 13]; /* Size + Paranoia. */
2N/A int d;
2N/A for (d = 'a'; d <= 'z'; d++)
2N/A {
2N/A sprintf (devpath, "/dev/sd%c", d);
2N/A if (get_bootsec_serial (devpath, 1) == 0)
2N/A continue;
2N/A int p;
2N/A for (p = 1; p <= 15; p++)
2N/A {
2N/A sprintf (devpath, "/dev/sd%c%d", d, p);
2N/A unsigned ser = get_bootsec_serial (devpath, 0);
2N/A if (ser == 0)
2N/A break;
2N/A if (ser != (unsigned)~0 && dev == (dev_t)ser)
2N/A return xstrdup (devpath);
2N/A }
2N/A }
2N/A return 0;
2N/A}
2N/A
2N/A#endif /* __CYGWIN__ */
2N/A
2N/Achar *
2N/Agrub_guess_root_device (const char *dir)
2N/A{
2N/A char *os_dev = NULL;
2N/A#ifdef __GNU__
2N/A file_t file;
2N/A mach_port_t *ports;
2N/A int *ints;
2N/A loff_t *offsets;
2N/A char *data;
2N/A error_t err;
2N/A mach_msg_type_number_t num_ports = 0, num_ints = 0, num_offsets = 0, data_len = 0;
2N/A size_t name_len;
2N/A
2N/A file = file_name_lookup (dir, 0, 0);
2N/A if (file == MACH_PORT_NULL)
2N/A return 0;
2N/A
2N/A err = file_get_storage_info (file,
2N/A &ports, &num_ports,
2N/A &ints, &num_ints,
2N/A &offsets, &num_offsets,
2N/A &data, &data_len);
2N/A
2N/A if (num_ints < 1)
2N/A grub_util_error (_("Storage info for `%s' does not include type"), dir);
2N/A if (ints[0] != STORAGE_DEVICE)
2N/A grub_util_error (_("Filesystem of `%s' is not stored on local disk"), dir);
2N/A
2N/A if (num_ints < 5)
2N/A grub_util_error (_("Storage info for `%s' does not include name"), dir);
2N/A name_len = ints[4];
2N/A if (name_len < data_len)
2N/A grub_util_error (_("Bogus name length for storage info for `%s'"), dir);
2N/A if (data[name_len - 1] != '\0')
2N/A grub_util_error (_("Storage name for `%s' not NUL-terminated"), dir);
2N/A
2N/A os_dev = xmalloc (strlen ("/dev/") + data_len);
2N/A memcpy (os_dev, "/dev/", strlen ("/dev/"));
2N/A memcpy (os_dev + strlen ("/dev/"), data, data_len);
2N/A
2N/A if (ports && num_ports > 0)
2N/A {
2N/A mach_msg_type_number_t i;
2N/A for (i = 0; i < num_ports; i++)
2N/A {
2N/A mach_port_t port = ports[i];
2N/A if (port != MACH_PORT_NULL)
2N/A mach_port_deallocate (mach_task_self(), port);
2N/A }
2N/A munmap ((caddr_t) ports, num_ports * sizeof (*ports));
2N/A }
2N/A
2N/A if (ints && num_ints > 0)
2N/A munmap ((caddr_t) ints, num_ints * sizeof (*ints));
2N/A if (offsets && num_offsets > 0)
2N/A munmap ((caddr_t) offsets, num_offsets * sizeof (*offsets));
2N/A if (data && data_len > 0)
2N/A munmap (data, data_len);
2N/A mach_port_deallocate (mach_task_self (), file);
2N/A#else /* !__GNU__ */
2N/A struct stat st;
2N/A dev_t dev;
2N/A
2N/A#ifdef __linux__
2N/A if (!os_dev)
2N/A os_dev = grub_find_root_device_from_mountinfo (dir, NULL);
2N/A#endif /* __linux__ */
2N/A
2N/A if (!os_dev)
2N/A {
2N/A os_dev = find_root_device_from_libzfs (dir);
2N/A#if defined(__sun__)
2N/A if (os_dev)
2N/A return os_dev;
2N/A#endif
2N/A }
2N/A
2N/A#if !defined(__sun__)
2N/A if (os_dev)
2N/A {
2N/A char *tmp = os_dev;
2N/A os_dev = canonicalize_file_name (os_dev);
2N/A free (tmp);
2N/A }
2N/A
2N/A if (os_dev)
2N/A {
2N/A int dm = (strncmp (os_dev, "/dev/dm-", sizeof ("/dev/dm-") - 1) == 0);
2N/A int root = (strcmp (os_dev, "/dev/root") == 0);
2N/A if (!dm && !root)
2N/A return os_dev;
2N/A if (stat (os_dev, &st) >= 0)
2N/A {
2N/A free (os_dev);
2N/A dev = st.st_rdev;
2N/A return grub_find_device (dm ? "/dev/mapper" : "/dev", dev);
2N/A }
2N/A free (os_dev);
2N/A }
2N/A#else /* Solaris */
2N/A if (!os_dev)
2N/A os_dev = grub_find_root_device_from_solaris_mountinfo (dir);
2N/A if (!os_dev)
2N/A grub_util_error("Unable to determine device");
2N/A else
2N/A return os_dev;
2N/A#endif
2N/A
2N/A if (stat (dir, &st) < 0)
2N/A grub_util_error (_("cannot stat `%s'"), dir);
2N/A
2N/A dev = st.st_dev;
2N/A
2N/A#ifdef __CYGWIN__
2N/A /* Cygwin specific function. */
2N/A os_dev = grub_find_device (dir, dev);
2N/A
2N/A#else
2N/A
2N/A #if !defined(__sun__)
2N/A /* This might be truly slow, but is there any better way? */
2N/A os_dev = grub_find_device ("/dev", dev);
2N/A #else
2N/A grub_dprintf("hostdisk", "Cannot determine root device\n");
2N/A grub_util_error("cannot determine root device");
2N/A #endif
2N/A
2N/A#endif /* __CYGWIN__ */
2N/A#endif /* !__GNU__ */
2N/A
2N/A return os_dev;
2N/A}
2N/A
2N/A#ifdef HAVE_DEVICE_MAPPER
2N/A
2N/Astatic int
2N/Agrub_util_open_dm (const char *os_dev, struct dm_tree **tree,
2N/A struct dm_tree_node **node)
2N/A{
2N/A uint32_t maj, min;
2N/A struct stat st;
2N/A
2N/A *node = NULL;
2N/A *tree = NULL;
2N/A
2N/A if ((strncmp ("/dev/mapper/", os_dev, 12) != 0))
2N/A return 0;
2N/A
2N/A if (stat (os_dev, &st) < 0)
2N/A return 0;
2N/A
2N/A *tree = dm_tree_create ();
2N/A if (! *tree)
2N/A {
2N/A grub_puts_ (N_("Failed to create tree"));
2N/A grub_dprintf ("hostdisk", "dm_tree_create failed\n");
2N/A return 0;
2N/A }
2N/A
2N/A maj = major (st.st_rdev);
2N/A min = minor (st.st_rdev);
2N/A
2N/A if (! dm_tree_add_dev (*tree, maj, min))
2N/A {
2N/A grub_dprintf ("hostdisk", "dm_tree_add_dev failed\n");
2N/A dm_tree_free (*tree);
2N/A *tree = NULL;
2N/A return 0;
2N/A }
2N/A
2N/A *node = dm_tree_find_node (*tree, maj, min);
2N/A if (! *node)
2N/A {
2N/A grub_dprintf ("hostdisk", "dm_tree_find_node failed\n");
2N/A dm_tree_free (*tree);
2N/A *tree = NULL;
2N/A return 0;
2N/A }
2N/A return 1;
2N/A}
2N/A
2N/A#endif
2N/A
2N/Astatic char *
2N/Aget_dm_uuid (const char *os_dev)
2N/A{
2N/A if ((strncmp ("/dev/mapper/", os_dev, 12) != 0))
2N/A return NULL;
2N/A
2N/A#ifdef HAVE_DEVICE_MAPPER
2N/A {
2N/A struct dm_tree *tree;
2N/A struct dm_tree_node *node;
2N/A const char *node_uuid;
2N/A char *ret;
2N/A
2N/A if (!grub_util_open_dm (os_dev, &tree, &node))
2N/A return NULL;
2N/A
2N/A node_uuid = dm_tree_node_get_uuid (node);
2N/A if (! node_uuid)
2N/A {
2N/A grub_dprintf ("hostdisk", "%s has no DM uuid\n", os_dev);
2N/A dm_tree_free (tree);
2N/A return NULL;
2N/A }
2N/A
2N/A ret = grub_strdup (node_uuid);
2N/A
2N/A dm_tree_free (tree);
2N/A
2N/A return ret;
2N/A }
2N/A#endif
2N/A
2N/A return NULL;
2N/A}
2N/A
2N/Astatic enum grub_dev_abstraction_types
2N/Agrub_util_get_dm_abstraction (const char *os_dev)
2N/A{
2N/A#ifdef HAVE_DEVICE_MAPPER
2N/A char *uuid;
2N/A
2N/A uuid = get_dm_uuid (os_dev);
2N/A
2N/A if (uuid == NULL)
2N/A return GRUB_DEV_ABSTRACTION_NONE;
2N/A
2N/A if (strncmp (uuid, "LVM-", 4) == 0)
2N/A {
2N/A grub_free (uuid);
2N/A return GRUB_DEV_ABSTRACTION_LVM;
2N/A }
2N/A if (strncmp (uuid, "CRYPT-LUKS1-", 4) == 0)
2N/A {
2N/A grub_free (uuid);
2N/A return GRUB_DEV_ABSTRACTION_LUKS;
2N/A }
2N/A
2N/A grub_free (uuid);
2N/A return GRUB_DEV_ABSTRACTION_NONE;
2N/A#else
2N/A if ((strncmp ("/dev/mapper/", os_dev, 12) != 0))
2N/A return GRUB_DEV_ABSTRACTION_NONE;
2N/A return GRUB_DEV_ABSTRACTION_LVM;
2N/A#endif
2N/A}
2N/A
2N/A#if defined (__FreeBSD__) || defined(__FreeBSD_kernel__)
2N/A#include <libgeom.h>
2N/A
2N/Astatic const char *
2N/Agrub_util_get_geom_abstraction (const char *dev)
2N/A{
2N/A char *whole;
2N/A struct gmesh mesh;
2N/A struct gclass *class;
2N/A const char *name;
2N/A int error;
2N/A
2N/A if (strncmp (dev, "/dev/", sizeof ("/dev/") - 1) != 0)
2N/A return 0;
2N/A name = dev + sizeof ("/dev/") - 1;
2N/A grub_util_follow_gpart_up (name, NULL, &whole);
2N/A
2N/A grub_util_info ("following geom '%s'", name);
2N/A
2N/A error = geom_gettree (&mesh);
2N/A if (error != 0)
2N/A grub_util_error (_("couldn't open geom"));
2N/A
2N/A LIST_FOREACH (class, &mesh.lg_class, lg_class)
2N/A {
2N/A struct ggeom *geom;
2N/A LIST_FOREACH (geom, &class->lg_geom, lg_geom)
2N/A {
2N/A struct gprovider *provider;
2N/A LIST_FOREACH (provider, &geom->lg_provider, lg_provider)
2N/A if (strcmp (provider->lg_name, name) == 0)
2N/A return class->lg_name;
2N/A }
2N/A }
2N/A return NULL;
2N/A}
2N/A#endif
2N/A
2N/Aint
2N/Agrub_util_get_dev_abstraction (const char *os_dev)
2N/A{
2N/A#if defined(__linux__) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
2N/A /* User explicitly claims that this drive is visible by BIOS. */
2N/A if (grub_util_biosdisk_is_present (os_dev))
2N/A return GRUB_DEV_ABSTRACTION_NONE;
2N/A#endif
2N/A
2N/A#ifdef __linux__
2N/A enum grub_dev_abstraction_types ret;
2N/A
2N/A /* Check for LVM and LUKS. */
2N/A ret = grub_util_get_dm_abstraction (os_dev);
2N/A
2N/A if (ret != GRUB_DEV_ABSTRACTION_NONE)
2N/A return ret;
2N/A
2N/A /* Check for RAID. */
2N/A if (!strncmp (os_dev, "/dev/md", 7) && ! grub_util_device_is_mapped (os_dev))
2N/A return GRUB_DEV_ABSTRACTION_RAID;
2N/A#endif
2N/A
2N/A#if defined (__FreeBSD__) || defined(__FreeBSD_kernel__)
2N/A const char *abs;
2N/A abs = grub_util_get_geom_abstraction (os_dev);
2N/A grub_util_info ("abstraction of %s is %s", os_dev, abs);
2N/A if (abs && grub_strcasecmp (abs, "eli") == 0)
2N/A return GRUB_DEV_ABSTRACTION_GELI;
2N/A
2N/A /* Check for LVM. */
2N/A if (!strncmp (os_dev, LVM_DEV_MAPPER_STRING, sizeof(LVM_DEV_MAPPER_STRING)-1))
2N/A return GRUB_DEV_ABSTRACTION_LVM;
2N/A#endif
2N/A
2N/A /* No abstraction found. */
2N/A return GRUB_DEV_ABSTRACTION_NONE;
2N/A}
2N/A
2N/A#ifdef __linux__
2N/Astatic char *
2N/Aget_mdadm_uuid (const char *os_dev)
2N/A{
2N/A int mdadm_pipe[2];
2N/A pid_t mdadm_pid;
2N/A char *name = NULL;
2N/A
2N/A if (pipe (mdadm_pipe) < 0)
2N/A {
2N/A grub_util_warn (_("Unable to create pipe for mdadm: %s"),
2N/A strerror (errno));
2N/A return NULL;
2N/A }
2N/A
2N/A mdadm_pid = fork ();
2N/A if (mdadm_pid < 0)
2N/A grub_util_warn (_("Unable to fork mdadm: %s"), strerror (errno));
2N/A else if (mdadm_pid == 0)
2N/A {
2N/A /* Child. */
2N/A char *argv[5];
2N/A
2N/A close (mdadm_pipe[0]);
2N/A dup2 (mdadm_pipe[1], STDOUT_FILENO);
2N/A close (mdadm_pipe[1]);
2N/A
2N/A /* execvp has inconvenient types, hence the casts. None of these
2N/A strings will actually be modified. */
2N/A argv[0] = (char *) "mdadm";
2N/A argv[1] = (char *) "--detail";
2N/A argv[2] = (char *) "--export";
2N/A argv[3] = (char *) os_dev;
2N/A argv[4] = NULL;
2N/A execvp ("mdadm", argv);
2N/A exit (127);
2N/A }
2N/A else
2N/A {
2N/A /* Parent. Read mdadm's output. */
2N/A FILE *mdadm;
2N/A char *buf = NULL;
2N/A size_t len = 0;
2N/A
2N/A close (mdadm_pipe[1]);
2N/A mdadm = fdopen (mdadm_pipe[0], "r");
2N/A if (! mdadm)
2N/A {
2N/A grub_util_warn (_("Unable to open stream from mdadm: %s"),
2N/A strerror (errno));
2N/A goto out;
2N/A }
2N/A
2N/A while (getline (&buf, &len, mdadm) > 0)
2N/A {
2N/A if (strncmp (buf, "MD_UUID=", sizeof ("MD_UUID=") - 1) == 0)
2N/A {
2N/A char *name_start, *ptri, *ptro;
2N/A size_t name_len;
2N/A
2N/A free (name);
2N/A name_start = buf + sizeof ("MD_UUID=") - 1;
2N/A ptro = name = xmalloc (strlen (name_start) + 1);
2N/A for (ptri = name_start; *ptri && *ptri != '\n' && *ptri != '\r';
2N/A ptri++)
2N/A if ((*ptri >= '0' && *ptri <= '9')
2N/A || (*ptri >= 'a' && *ptri <= 'f')
2N/A || (*ptri >= 'A' && *ptri <= 'F'))
2N/A *ptro++ = *ptri;
2N/A *ptro = 0;
2N/A }
2N/A }
2N/A
2N/Aout:
2N/A close (mdadm_pipe[0]);
2N/A waitpid (mdadm_pid, NULL, 0);
2N/A }
2N/A
2N/A return name;
2N/A}
2N/A#endif /* __linux__ */
2N/A
2N/Avoid
2N/Agrub_util_pull_device (const char *os_dev)
2N/A{
2N/A int ab;
2N/A ab = grub_util_get_dev_abstraction (os_dev);
2N/A switch (ab)
2N/A {
2N/A case GRUB_DEV_ABSTRACTION_GELI:
2N/A#if defined (__FreeBSD__) || defined(__FreeBSD_kernel__)
2N/A {
2N/A char *whole;
2N/A struct gmesh mesh;
2N/A struct gclass *class;
2N/A const char *name;
2N/A int error;
2N/A char *lastsubdev = NULL;
2N/A
2N/A if (strncmp (os_dev, "/dev/", sizeof ("/dev/") - 1) != 0)
2N/A return;
2N/A name = os_dev + sizeof ("/dev/") - 1;
2N/A grub_util_follow_gpart_up (name, NULL, &whole);
2N/A
2N/A grub_util_info ("following geom '%s'", name);
2N/A
2N/A error = geom_gettree (&mesh);
2N/A if (error != 0)
2N/A grub_util_error (_("couldn't open geom"));
2N/A
2N/A LIST_FOREACH (class, &mesh.lg_class, lg_class)
2N/A {
2N/A struct ggeom *geom;
2N/A LIST_FOREACH (geom, &class->lg_geom, lg_geom)
2N/A {
2N/A struct gprovider *provider;
2N/A LIST_FOREACH (provider, &geom->lg_provider, lg_provider)
2N/A if (strcmp (provider->lg_name, name) == 0)
2N/A {
2N/A struct gconsumer *consumer;
2N/A char *fname;
2N/A char *uuid;
2N/A
2N/A LIST_FOREACH (consumer, &geom->lg_consumer, lg_consumer)
2N/A break;
2N/A if (!consumer)
2N/A grub_util_error (_("couldn't find geli consumer"));
2N/A fname = xasprintf ("/dev/%s", consumer->lg_provider->lg_name);
2N/A grub_util_info ("consumer %s", consumer->lg_provider->lg_name);
2N/A lastsubdev = consumer->lg_provider->lg_name;
2N/A grub_util_pull_device (fname);
2N/A free (fname);
2N/A }
2N/A }
2N/A }
2N/A if (ab == GRUB_DEV_ABSTRACTION_GELI && lastsubdev)
2N/A {
2N/A char *fname = xasprintf ("/dev/%s", lastsubdev);
2N/A char *grdev = grub_util_get_grub_dev (fname);
2N/A free (fname);
2N/A
2N/A if (grdev)
2N/A {
2N/A grub_err_t err;
2N/A err = grub_cryptodisk_cheat_mount (grdev, os_dev);
2N/A if (err)
2N/A grub_util_error (_("Can't mount crypto: %s"), _(grub_errmsg));
2N/A }
2N/A
2N/A grub_free (grdev);
2N/A }
2N/A }
2N/A#endif
2N/A break;
2N/A
2N/A case GRUB_DEV_ABSTRACTION_LVM:
2N/A case GRUB_DEV_ABSTRACTION_LUKS:
2N/A#ifdef HAVE_DEVICE_MAPPER
2N/A {
2N/A struct dm_tree *tree;
2N/A struct dm_tree_node *node;
2N/A struct dm_tree_node *child;
2N/A void *handle = NULL;
2N/A char *lastsubdev = NULL;
2N/A
2N/A if (!grub_util_open_dm (os_dev, &tree, &node))
2N/A return;
2N/A
2N/A while ((child = dm_tree_next_child (&handle, node, 0)))
2N/A {
2N/A const struct dm_info *dm = dm_tree_node_get_info (child);
2N/A char *subdev;
2N/A if (!dm)
2N/A continue;
2N/A subdev = grub_find_device ("/dev", makedev (dm->major, dm->minor));
2N/A if (subdev)
2N/A {
2N/A lastsubdev = subdev;
2N/A grub_util_pull_device (subdev);
2N/A }
2N/A }
2N/A if (ab == GRUB_DEV_ABSTRACTION_LUKS && lastsubdev)
2N/A {
2N/A char *grdev = grub_util_get_grub_dev (lastsubdev);
2N/A dm_tree_free (tree);
2N/A if (grdev)
2N/A {
2N/A grub_err_t err;
2N/A err = grub_cryptodisk_cheat_mount (grdev, os_dev);
2N/A if (err)
2N/A grub_util_error (_("Can't mount crypto: %s"), _(grub_errmsg));
2N/A }
2N/A grub_free (grdev);
2N/A }
2N/A else
2N/A dm_tree_free (tree);
2N/A }
2N/A#endif
2N/A return;
2N/A case GRUB_DEV_ABSTRACTION_RAID:
2N/A#ifdef __linux__
2N/A {
2N/A char **devicelist = grub_util_raid_getmembers (os_dev, 0);
2N/A int i;
2N/A for (i = 0; devicelist[i];i++)
2N/A grub_util_pull_device (devicelist[i]);
2N/A free (devicelist);
2N/A }
2N/A#endif
2N/A return;
2N/A
2N/A default: /* GRUB_DEV_ABSTRACTION_NONE */
2N/A free (grub_util_biosdisk_get_grub_dev (os_dev));
2N/A return;
2N/A }
2N/A}
2N/A
2N/Achar *
2N/Agrub_util_get_grub_dev (const char *os_dev)
2N/A{
2N/A char *grub_dev = NULL;
2N/A
2N/A grub_util_pull_device (os_dev);
2N/A
2N/A switch (grub_util_get_dev_abstraction (os_dev))
2N/A {
2N/A#if defined(__linux__) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
2N/A case GRUB_DEV_ABSTRACTION_LVM:
2N/A
2N/A {
2N/A unsigned short i, len;
2N/A grub_size_t offset = sizeof (LVM_DEV_MAPPER_STRING) - 1;
2N/A
2N/A len = strlen (os_dev) - offset + 1;
2N/A grub_dev = xmalloc (len + sizeof ("lvm/"));
2N/A
2N/A grub_memcpy (grub_dev, "lvm/", sizeof ("lvm/") - 1);
2N/A grub_memcpy (grub_dev + sizeof ("lvm/") - 1, os_dev + offset, len);
2N/A }
2N/A
2N/A break;
2N/A#endif
2N/A
2N/A#ifdef __linux__
2N/A case GRUB_DEV_ABSTRACTION_LUKS:
2N/A {
2N/A char *uuid, *dash;
2N/A uuid = get_dm_uuid (os_dev);
2N/A if (!uuid)
2N/A break;
2N/A dash = grub_strchr (uuid + sizeof ("CRYPT-LUKS1-") - 1, '-');
2N/A if (dash)
2N/A *dash = 0;
2N/A grub_dev = grub_xasprintf ("cryptouuid/%s",
2N/A uuid + sizeof ("CRYPT-LUKS1-") - 1);
2N/A grub_free (uuid);
2N/A }
2N/A break;
2N/A#endif
2N/A
2N/A#if defined (__FreeBSD__) || defined(__FreeBSD_kernel__)
2N/A case GRUB_DEV_ABSTRACTION_GELI:
2N/A {
2N/A char *whole;
2N/A struct gmesh mesh;
2N/A struct gclass *class;
2N/A const char *name;
2N/A int error;
2N/A
2N/A if (strncmp (os_dev, "/dev/", sizeof ("/dev/") - 1) != 0)
2N/A return 0;
2N/A name = os_dev + sizeof ("/dev/") - 1;
2N/A grub_util_follow_gpart_up (name, NULL, &whole);
2N/A
2N/A grub_util_info ("following geom '%s'", name);
2N/A
2N/A error = geom_gettree (&mesh);
2N/A if (error != 0)
2N/A grub_util_error (_("couldn't open geom"));
2N/A
2N/A LIST_FOREACH (class, &mesh.lg_class, lg_class)
2N/A {
2N/A struct ggeom *geom;
2N/A LIST_FOREACH (geom, &class->lg_geom, lg_geom)
2N/A {
2N/A struct gprovider *provider;
2N/A LIST_FOREACH (provider, &geom->lg_provider, lg_provider)
2N/A if (strcmp (provider->lg_name, name) == 0)
2N/A {
2N/A struct gconsumer *consumer;
2N/A char *fname;
2N/A char *uuid;
2N/A
2N/A LIST_FOREACH (consumer, &geom->lg_consumer, lg_consumer)
2N/A break;
2N/A if (!consumer)
2N/A grub_util_error (_("couldn't find geli consumer"));
2N/A fname = xasprintf ("/dev/%s", consumer->lg_provider->lg_name);
2N/A uuid = grub_util_get_geli_uuid (fname);
2N/A if (!uuid)
2N/A grub_util_error (_("couldn't retrieve geli UUID"));
2N/A grub_dev = xasprintf ("cryptouuid/%s", uuid);
2N/A free (fname);
2N/A free (uuid);
2N/A }
2N/A }
2N/A }
2N/A }
2N/A break;
2N/A#endif
2N/A
2N/A#ifdef __linux__
2N/A case GRUB_DEV_ABSTRACTION_RAID:
2N/A
2N/A if (os_dev[7] == '_' && os_dev[8] == 'd')
2N/A {
2N/A /* This a partitionable RAID device of the form /dev/md_dNNpMM. */
2N/A
2N/A char *p, *q;
2N/A
2N/A p = strdup (os_dev + sizeof ("/dev/md_d") - 1);
2N/A
2N/A q = strchr (p, 'p');
2N/A if (q)
2N/A *q = ',';
2N/A
2N/A grub_dev = xasprintf ("md%s", p);
2N/A free (p);
2N/A }
2N/A else if (os_dev[7] == '/' && os_dev[8] == 'd')
2N/A {
2N/A /* This a partitionable RAID device of the form /dev/md/dNNpMM. */
2N/A
2N/A char *p, *q;
2N/A
2N/A p = strdup (os_dev + sizeof ("/dev/md/d") - 1);
2N/A
2N/A q = strchr (p, 'p');
2N/A if (q)
2N/A *q = ',';
2N/A
2N/A grub_dev = xasprintf ("md%s", p);
2N/A free (p);
2N/A }
2N/A else if (os_dev[7] >= '0' && os_dev[7] <= '9')
2N/A {
2N/A char *p , *q;
2N/A
2N/A p = strdup (os_dev + sizeof ("/dev/md") - 1);
2N/A
2N/A q = strchr (p, 'p');
2N/A if (q)
2N/A *q = ',';
2N/A
2N/A grub_dev = xasprintf ("md%s", p);
2N/A free (p);
2N/A }
2N/A else if (os_dev[7] == '/' && os_dev[8] >= '0' && os_dev[8] <= '9')
2N/A {
2N/A char *p , *q;
2N/A
2N/A p = strdup (os_dev + sizeof ("/dev/md/") - 1);
2N/A
2N/A q = strchr (p, 'p');
2N/A if (q)
2N/A *q = ',';
2N/A
2N/A grub_dev = xasprintf ("md%s", p);
2N/A free (p);
2N/A }
2N/A else if (os_dev[7] == '/')
2N/A {
2N/A /* mdraid 1.x with a free name. */
2N/A char *p , *q;
2N/A
2N/A p = strdup (os_dev + sizeof ("/dev/md/") - 1);
2N/A
2N/A q = strchr (p, 'p');
2N/A if (q)
2N/A *q = ',';
2N/A
2N/A grub_dev = xasprintf ("md/%s", p);
2N/A free (p);
2N/A }
2N/A else
2N/A grub_util_error (_("unknown kind of RAID device `%s'"), os_dev);
2N/A
2N/A {
2N/A char *mdadm_name = get_mdadm_uuid (os_dev);
2N/A struct stat st;
2N/A
2N/A if (mdadm_name)
2N/A {
2N/A const char *q;
2N/A
2N/A for (q = os_dev + strlen (os_dev) - 1; q >= os_dev
2N/A && grub_isdigit (*q); q--);
2N/A
2N/A if (q >= os_dev && *q == 'p')
2N/A {
2N/A free (grub_dev);
2N/A grub_dev = xasprintf ("mduuid/%s,%s", mdadm_name, q + 1);
2N/A goto done;
2N/A }
2N/A free (grub_dev);
2N/A grub_dev = xasprintf ("mduuid/%s", mdadm_name);
2N/A
2N/A done:
2N/A free (mdadm_name);
2N/A }
2N/A }
2N/A break;
2N/A#endif /* __linux__ */
2N/A
2N/A default: /* GRUB_DEV_ABSTRACTION_NONE */
2N/A grub_dev = grub_util_biosdisk_get_grub_dev (os_dev);
2N/A }
2N/A
2N/A return grub_dev;
2N/A}
2N/A
2N/Aconst char *
2N/Agrub_util_check_block_device (const char *blk_dev)
2N/A{
2N/A struct stat st;
2N/A
2N/A if (stat (blk_dev, &st) < 0)
2N/A grub_util_error (_("cannot stat `%s'"), blk_dev);
2N/A
2N/A if (S_ISBLK (st.st_mode))
2N/A return (blk_dev);
2N/A else
2N/A return 0;
2N/A}
2N/A
2N/Aconst char *
2N/Agrub_util_check_char_device (const char *blk_dev)
2N/A{
2N/A struct stat st;
2N/A
2N/A if (stat (blk_dev, &st) < 0)
2N/A grub_util_error (_("cannot stat `%s'"), blk_dev);
2N/A
2N/A if (S_ISCHR (st.st_mode))
2N/A return (blk_dev);
2N/A else
2N/A return 0;
2N/A}
2N/A
2N/A#ifdef __CYGWIN__
2N/A/* Convert POSIX path to Win32 path,
2N/A remove drive letter, replace backslashes. */
2N/Astatic char *
2N/Aget_win32_path (const char *path)
2N/A{
2N/A char winpath[PATH_MAX];
2N/A if (cygwin_conv_path (CCP_POSIX_TO_WIN_A, path, winpath, sizeof(winpath)))
2N/A grub_util_error (_("cygwin_conv_path() failed"));
2N/A
2N/A int len = strlen (winpath);
2N/A int offs = (len > 2 && winpath[1] == ':' ? 2 : 0);
2N/A
2N/A int i;
2N/A for (i = offs; i < len; i++)
2N/A if (winpath[i] == '\\')
2N/A winpath[i] = '/';
2N/A return xstrdup (winpath + offs);
2N/A}
2N/A#endif
2N/A
2N/A#ifdef HAVE_LIBZFS
2N/Astatic libzfs_handle_t *__libzfs_handle;
2N/A
2N/Astatic void
2N/Afini_libzfs (void)
2N/A{
2N/A libzfs_fini (__libzfs_handle);
2N/A}
2N/A
2N/Alibzfs_handle_t *
2N/Agrub_get_libzfs_handle (void)
2N/A{
2N/A if (! __libzfs_handle)
2N/A {
2N/A __libzfs_handle = libzfs_init ();
2N/A
2N/A if (__libzfs_handle)
2N/A atexit (fini_libzfs);
2N/A }
2N/A
2N/A return __libzfs_handle;
2N/A}
2N/A#endif /* HAVE_LIBZFS */
2N/A
2N/A/* ZFS has similar problems to those of btrfs (see above). */
2N/Avoid
2N/Agrub_find_zpool_from_dir (const char *dir, char **poolname, char **poolfs)
2N/A{
2N/A char *slash;
2N/A
2N/A *poolname = *poolfs = NULL;
2N/A
2N/A#if defined(HAVE_STRUCT_STATFS_F_FSTYPENAME) && defined(HAVE_STRUCT_STATFS_F_MNTFROMNAME)
2N/A /* FreeBSD and GNU/kFreeBSD. */
2N/A {
2N/A struct statfs mnt;
2N/A
2N/A if (statfs (dir, &mnt) != 0)
2N/A return;
2N/A
2N/A if (strcmp (mnt.f_fstypename, "zfs") != 0)
2N/A return;
2N/A
2N/A *poolname = xstrdup (mnt.f_mntfromname);
2N/A }
2N/A#elif defined(HAVE_GETEXTMNTENT)
2N/A /* Solaris. */
2N/A {
2N/A struct stat st;
2N/A struct extmnttab mnt;
2N/A
2N/A if (stat (dir, &st) != 0)
2N/A return;
2N/A
2N/A FILE *mnttab = fopen ("/etc/mnttab", "r");
2N/A if (! mnttab)
2N/A return;
2N/A
2N/A while (getextmntent (mnttab, &mnt, sizeof (mnt)) == 0)
2N/A {
2N/A if (makedev (mnt.mnt_major, mnt.mnt_minor) == st.st_dev
2N/A && !strcmp (mnt.mnt_fstype, "zfs"))
2N/A {
2N/A *poolname = xstrdup (mnt.mnt_special);
2N/A break;
2N/A }
2N/A }
2N/A
2N/A fclose (mnttab);
2N/A }
2N/A#endif
2N/A
2N/A if (! *poolname)
2N/A return;
2N/A
2N/A slash = strchr (*poolname, '/');
2N/A if (slash)
2N/A {
2N/A *slash = '\0';
2N/A *poolfs = xstrdup (slash + 1);
2N/A }
2N/A else
2N/A *poolfs = xstrdup ("");
2N/A}
2N/A
2N/A/* This function never prints trailing slashes (so that its output
2N/A can be appended a slash unconditionally). */
2N/Achar *
2N/Agrub_make_system_path_relative_to_its_root (const char *path)
2N/A{
2N/A struct stat st;
2N/A char *p, *buf, *buf2, *buf3, *ret;
2N/A uintptr_t offset = 0;
2N/A dev_t num;
2N/A size_t len;
2N/A char *poolfs = NULL;
2N/A
2N/A /* canonicalize. */
2N/A p = canonicalize_file_name (path);
2N/A if (p == NULL)
2N/A grub_util_error (_("failed to get canonical path of %s"), path);
2N/A
2N/A /* For ZFS sub-pool filesystems, could be extended to others (btrfs?). */
2N/A {
2N/A char *dummy;
2N/A grub_find_zpool_from_dir (p, &dummy, &poolfs);
2N/A }
2N/A
2N/A len = strlen (p) + 1;
2N/A buf = xstrdup (p);
2N/A free (p);
2N/A
2N/A if (stat (buf, &st) < 0)
2N/A grub_util_error (_("cannot stat %s: %s"), buf, strerror (errno));
2N/A
2N/A buf2 = xstrdup (buf);
2N/A num = st.st_dev;
2N/A
2N/A /* This loop sets offset to the number of chars of the root
2N/A directory we're inspecting. */
2N/A while (1)
2N/A {
2N/A p = strrchr (buf, '/');
2N/A if (p == NULL)
2N/A /* This should never happen. */
2N/A grub_util_error (_("FIXME: no / in buf. (make_system_path_relative_to_its_root)"));
2N/A if (p != buf)
2N/A *p = 0;
2N/A else
2N/A *++p = 0;
2N/A
2N/A if (stat (buf, &st) < 0)
2N/A grub_util_error (_("cannot stat %s: %s"), buf, strerror (errno));
2N/A
2N/A /* buf is another filesystem; we found it. */
2N/A if (st.st_dev != num)
2N/A {
2N/A /* offset == 0 means path given is the mount point.
2N/A This works around special-casing of "/" in Un*x. This function never
2N/A prints trailing slashes (so that its output can be appended a slash
2N/A unconditionally). Each slash in is considered a preceding slash, and
2N/A therefore the root directory is an empty string. */
2N/A if (offset == 0)
2N/A {
2N/A free (buf);
2N/A#ifdef __linux__
2N/A {
2N/A char *bind;
2N/A grub_free (grub_find_root_device_from_mountinfo (buf2, &bind));
2N/A if (bind && bind[0] && bind[1])
2N/A {
2N/A buf3 = bind;
2N/A goto parsedir;
2N/A }
2N/A grub_free (bind);
2N/A }
2N/A#endif
2N/A free (buf2);
2N/A if (poolfs)
2N/A return xasprintf ("/%s/@", poolfs);
2N/A return xstrdup ("");
2N/A }
2N/A else
2N/A break;
2N/A }
2N/A
2N/A offset = p - buf;
2N/A /* offset == 1 means root directory. */
2N/A if (offset == 1)
2N/A {
2N/A /* Include leading slash. */
2N/A offset = 0;
2N/A break;
2N/A }
2N/A }
2N/A free (buf);
2N/A buf3 = xstrdup (buf2 + offset);
2N/A buf2[offset] = 0;
2N/A#ifdef __linux__
2N/A {
2N/A char *bind;
2N/A grub_free (grub_find_root_device_from_mountinfo (buf2, &bind));
2N/A if (bind && bind[0] && bind[1])
2N/A {
2N/A char *temp = buf3;
2N/A buf3 = grub_xasprintf ("%s%s%s", bind, buf3[0] == '/' ?"":"/", buf3);
2N/A grub_free (temp);
2N/A }
2N/A grub_free (bind);
2N/A }
2N/A#endif
2N/A
2N/A free (buf2);
2N/A
2N/A#ifdef __CYGWIN__
2N/A if (st.st_dev != (DEV_CYGDRIVE_MAJOR << 16))
2N/A {
2N/A /* Reached some mount point not below /cygdrive.
2N/A GRUB does not know Cygwin's emulated mounts,
2N/A convert to Win32 path. */
2N/A grub_util_info ("Cygwin path = %s\n", buf3);
2N/A char * temp = get_win32_path (buf3);
2N/A free (buf3);
2N/A buf3 = temp;
2N/A }
2N/A#endif
2N/A
2N/A parsedir:
2N/A /* Remove trailing slashes, return empty string if root directory. */
2N/A len = strlen (buf3);
2N/A while (len > 0 && buf3[len - 1] == '/')
2N/A {
2N/A buf3[len - 1] = '\0';
2N/A len--;
2N/A }
2N/A
2N/A if (poolfs)
2N/A {
2N/A ret = xasprintf ("/%s/@%s", poolfs, buf3);
2N/A free (buf3);
2N/A }
2N/A else
2N/A ret = buf3;
2N/A
2N/A return ret;
2N/A}