/* getroot.c - Get root device */ /* * GRUB -- GRand Unified Bootloader * Copyright (C) 1999,2000,2001,2002,2003,2006,2007,2008,2009,2010,2011 Free Software Foundation, Inc. * * GRUB is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation, either version 3 of the License, or * (at your option) any later version. * * GRUB is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with GRUB. If not, see . */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #ifdef HAVE_LIMITS_H #include #endif #include #include #include #include #ifdef HAVE_DEVICE_MAPPER # include #endif #ifdef __GNU__ #include #include #include #include #endif #include #include #if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) # include #endif #if defined(HAVE_LIBZFS) && defined(HAVE_LIBNVPAIR) # include # include #endif #ifdef __sun__ # include # include #endif #include #include #include #include #include #ifdef __linux__ # include /* ioctl */ # include # ifndef MAJOR # ifndef MINORBITS # define MINORBITS 8 # endif /* ! MINORBITS */ # define MAJOR(dev) ((unsigned) ((dev) >> MINORBITS)) # endif /* ! MAJOR */ # ifndef FLOPPY_MAJOR # define FLOPPY_MAJOR 2 # endif /* ! FLOPPY_MAJOR */ #endif #ifdef __CYGWIN__ # include # include /* BLKGETSIZE64 */ # include /* HDIO_GETGEO */ # define MAJOR(dev) ((unsigned) ((dev) >> 16)) # define FLOPPY_MAJOR 2 #endif #if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) # include /* DIOCGMEDIASIZE */ # include # include # include #include # define MAJOR(dev) major(dev) # define FLOPPY_MAJOR 2 #endif #if defined (__sun__) # include #endif #if defined(__APPLE__) # include # include # include # include #endif #ifdef HAVE_DEVICE_MAPPER # include #endif #if defined(__NetBSD__) # define HAVE_DIOCGDINFO # include # include /* struct disklabel */ # include /* struct dkwedge_info */ #else /* !defined(__NetBSD__) && !defined(__FreeBSD__) && !defined(__FreeBSD_kernel__) */ # undef HAVE_DIOCGDINFO #endif /* defined(__NetBSD__) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__) */ #if defined(__NetBSD__) # ifdef HAVE_GETRAWPARTITION # include /* getrawpartition */ # endif /* HAVE_GETRAWPARTITION */ # include # ifndef FLOPPY_MAJOR # define FLOPPY_MAJOR 2 # endif /* ! FLOPPY_MAJOR */ # ifndef RAW_FLOPPY_MAJOR # define RAW_FLOPPY_MAJOR 9 # endif /* ! RAW_FLOPPY_MAJOR */ #endif /* defined(__NetBSD__) */ #ifdef __linux__ /* Defines taken from btrfs/ioctl.h. */ struct btrfs_ioctl_dev_info_args { grub_uint64_t devid; grub_uint8_t uuid[16]; grub_uint64_t bytes_used; grub_uint64_t total_bytes; grub_uint64_t unused[379]; grub_uint8_t path[1024]; }; struct btrfs_ioctl_fs_info_args { grub_uint64_t max_id; grub_uint64_t num_devices; grub_uint8_t fsid[16]; grub_uint64_t reserved[124]; }; #define BTRFS_IOC_DEV_INFO _IOWR(0x94, 30, \ struct btrfs_ioctl_dev_info_args) #define BTRFS_IOC_FS_INFO _IOR(0x94, 31, \ struct btrfs_ioctl_fs_info_args) #endif #ifdef __linux__ static int grub_util_is_imsm (const char *os_dev); #endif #if ! defined(__CYGWIN__) && !defined(__GNU__) static void strip_extra_slashes (char *dir) { char *p = dir; while ((p = strchr (p, '/')) != 0) { if (p[1] == '/') { memmove (p, p + 1, strlen (p)); continue; } else if (p[1] == '\0') { if (p > dir) p[0] = '\0'; break; } p++; } } static char * xgetcwd (void) { size_t size = 10; char *path; path = xmalloc (size); while (! getcwd (path, size)) { size <<= 1; path = xrealloc (path, size); } return path; } #endif #if !defined (__MINGW32__) && !defined (__CYGWIN__) && !defined (__GNU__) static pid_t exec_pipe (char **argv, int *fd) { int mdadm_pipe[2]; pid_t mdadm_pid; *fd = 0; if (pipe (mdadm_pipe) < 0) { grub_util_warn (_("Unable to create pipe: %s"), strerror (errno)); return 0; } mdadm_pid = fork (); if (mdadm_pid < 0) grub_util_error (_("Unable to fork: %s"), strerror (errno)); else if (mdadm_pid == 0) { /* Child. */ /* Ensure child is not localised. */ setenv ("LC_ALL", "C", 1); close (mdadm_pipe[0]); dup2 (mdadm_pipe[1], STDOUT_FILENO); close (mdadm_pipe[1]); execvp (argv[0], argv); exit (127); } else { close (mdadm_pipe[1]); *fd = mdadm_pipe[0]; return mdadm_pid; } } static char ** find_root_devices_from_poolname (char *poolname) { char **devices = 0; size_t ndevices = 0; size_t devices_allocated = 0; #if defined(HAVE_LIBZFS) && defined(HAVE_LIBNVPAIR) zpool_handle_t *zpool; libzfs_handle_t *libzfs; nvlist_t *config, *vdev_tree; nvlist_t **children, **path; unsigned int nvlist_count; unsigned int i; char *device = 0; libzfs = grub_get_libzfs_handle (); if (! libzfs) return NULL; zpool = zpool_open (libzfs, poolname); config = zpool_get_config (zpool, NULL); if (nvlist_lookup_nvlist (config, "vdev_tree", &vdev_tree) != 0) error (1, errno, "nvlist_lookup_nvlist (\"vdev_tree\")"); if (nvlist_lookup_nvlist_array (vdev_tree, "children", &children, &nvlist_count) != 0) error (1, errno, "nvlist_lookup_nvlist_array (\"children\")"); assert (nvlist_count > 0); while (nvlist_lookup_nvlist_array (children[0], "children", &children, &nvlist_count) == 0) assert (nvlist_count > 0); for (i = 0; i < nvlist_count; i++) { if (nvlist_lookup_string (children[i], "path", &device) != 0) error (1, errno, "nvlist_lookup_string (\"path\")"); struct stat st; if (stat (device, &st) == 0) { #ifdef __sun__ if (grub_memcmp (device, "/dev/dsk/", sizeof ("/dev/dsk/") - 1) == 0) device = xasprintf ("/dev/rdsk/%s", device + sizeof ("/dev/dsk/") - 1); else if (grub_memcmp (device, "/devices", sizeof ("/devices") - 1) == 0 && grub_memcmp (device + strlen (device) - 4, ",raw", 4) != 0) device = xasprintf ("%s,raw", device); else #endif device = xstrdup (device); if (ndevices >= devices_allocated) { devices_allocated = 2 * (devices_allocated + 8); devices = xrealloc (devices, sizeof (devices[0]) * devices_allocated); } devices[ndevices++] = device; } device = NULL; } zpool_close (zpool); #else FILE *fp; int ret; char *line; size_t len; int st; char name[PATH_MAX + 1], state[257], readlen[257], writelen[257]; char cksum[257], notes[257]; unsigned int dummy; char *argv[4]; pid_t pid; int fd; /* execvp has inconvenient types, hence the casts. None of these strings will actually be modified. */ argv[0] = (char *) "zpool"; argv[1] = (char *) "status"; argv[2] = (char *) poolname; argv[3] = NULL; pid = exec_pipe (argv, &fd); if (!pid) return NULL; fp = fdopen (fd, "r"); if (!fp) { grub_util_warn (_("Unable to open stream from %s: %s"), "zpool", strerror (errno)); goto out; } st = 0; while (1) { line = NULL; ret = getline (&line, &len, fp); if (ret == -1) break; if (sscanf (line, " %s %256s %256s %256s %256s %256s", name, state, readlen, writelen, cksum, notes) >= 5) switch (st) { case 0: if (!strcmp (name, "NAME") && !strcmp (state, "STATE") && !strcmp (readlen, "READ") && !strcmp (writelen, "WRITE") && !strcmp (cksum, "CKSUM")) st++; break; case 1: { char *ptr = line; while (1) { if (strncmp (ptr, poolname, strlen (poolname)) == 0 && grub_isspace(ptr[strlen (poolname)])) st++; if (!grub_isspace (*ptr)) break; ptr++; } } break; case 2: if (strcmp (name, "mirror") && !sscanf (name, "mirror-%u", &dummy) && !sscanf (name, "raidz%u", &dummy) && !sscanf (name, "raidz1%u", &dummy) && !sscanf (name, "raidz2%u", &dummy) && !sscanf (name, "raidz3%u", &dummy) && !strcmp (state, "ONLINE")) { if (ndevices >= devices_allocated) { devices_allocated = 2 * (devices_allocated + 8); devices = xrealloc (devices, sizeof (devices[0]) * devices_allocated); } if (name[0] == '/') devices[ndevices++] = xstrdup (name); else devices[ndevices++] = xasprintf ("/dev/%s", name); } break; } free (line); } out: close (fd); waitpid (pid, NULL, 0); #endif if (devices) { if (ndevices >= devices_allocated) { devices_allocated = 2 * (devices_allocated + 8); devices = xrealloc (devices, sizeof (devices[0]) * devices_allocated); } devices[ndevices++] = 0; } return devices; } #endif #ifdef __linux__ #define ESCAPED_PATH_MAX (4 * PATH_MAX) struct mountinfo_entry { int id; int major, minor; char enc_root[ESCAPED_PATH_MAX + 1], enc_path[ESCAPED_PATH_MAX + 1]; char fstype[ESCAPED_PATH_MAX + 1], device[ESCAPED_PATH_MAX + 1]; }; /* Statting something on a btrfs filesystem always returns a virtual device major/minor pair rather than the real underlying device, because btrfs can span multiple underlying devices (and even if it's currently only using a single device it can be dynamically extended onto another). We can't deal with the multiple-device case yet, but in the meantime, we can at least cope with the single-device case by scanning /proc/self/mountinfo. */ static void unescape (char *str) { char *optr; const char *iptr; for (iptr = optr = str; *iptr; optr++) { if (iptr[0] == '\\' && iptr[1] >= '0' && iptr[1] < '8' && iptr[2] >= '0' && iptr[2] < '8' && iptr[3] >= '0' && iptr[3] < '8') { *optr = (((iptr[1] - '0') << 6) | ((iptr[2] - '0') << 3) | (iptr[3] - '0')); iptr += 4; } else *optr = *iptr++; } *optr = 0; } static char ** grub_find_root_devices_from_btrfs (const char *dir) { int fd; struct btrfs_ioctl_fs_info_args fsi; int i, j = 0; char **ret; fd = open (dir, 0); if (!fd) return NULL; if (ioctl (fd, BTRFS_IOC_FS_INFO, &fsi) < 0) { close (fd); return NULL; } ret = xmalloc ((fsi.num_devices + 1) * sizeof (ret[0])); for (i = 1; i <= fsi.max_id && j < fsi.num_devices; i++) { struct btrfs_ioctl_dev_info_args devi; memset (&devi, 0, sizeof (devi)); devi.devid = i; if (ioctl (fd, BTRFS_IOC_DEV_INFO, &devi) < 0) { close (fd); free (ret); return NULL; } ret[j++] = xstrdup ((char *) devi.path); if (j >= fsi.num_devices) break; } close (fd); ret[j] = 0; return ret; } static char ** grub_find_root_devices_from_mountinfo (const char *dir, char **relroot) { FILE *fp; char *buf = NULL; size_t len = 0; grub_size_t entry_len = 0, entry_max = 4; struct mountinfo_entry *entries; struct mountinfo_entry parent_entry = { 0, 0, 0, "", "", "", "" }; int i; if (! *dir) dir = "/"; if (relroot) *relroot = NULL; fp = fopen ("/proc/self/mountinfo", "r"); if (! fp) return NULL; /* fall through to other methods */ entries = xmalloc (entry_max * sizeof (*entries)); /* First, build a list of relevant visible mounts. */ while (getline (&buf, &len, fp) > 0) { struct mountinfo_entry entry; int count; size_t enc_path_len; const char *sep; if (sscanf (buf, "%d %d %u:%u %s %s%n", &entry.id, &parent_entry.id, &entry.major, &entry.minor, entry.enc_root, entry.enc_path, &count) < 6) continue; unescape (entry.enc_root); unescape (entry.enc_path); enc_path_len = strlen (entry.enc_path); /* Check that enc_path is a prefix of dir. The prefix must either be the entire string, or end with a slash, or be immediately followed by a slash. */ if (strncmp (dir, entry.enc_path, enc_path_len) != 0 || (enc_path_len && dir[enc_path_len - 1] != '/' && dir[enc_path_len] && dir[enc_path_len] != '/')) continue; sep = strstr (buf + count, " - "); if (!sep) continue; sep += sizeof (" - ") - 1; if (sscanf (sep, "%s %s", entry.fstype, entry.device) != 2) continue; unescape (entry.device); /* Using the mount IDs, find out where this fits in the list of visible mount entries we've seen so far. There are three interesting cases. Firstly, it may be inserted at the end: this is the usual case of /foo/bar being mounted after /foo. Secondly, it may be inserted at the start: for example, this can happen for filesystems that are mounted before / and later moved under it. Thirdly, it may occlude part or all of the existing filesystem tree, in which case the end of the list needs to be pruned and this new entry will be inserted at the end. */ if (entry_len >= entry_max) { entry_max <<= 1; entries = xrealloc (entries, entry_max * sizeof (*entries)); } if (!entry_len) { /* Initialise list. */ entry_len = 2; entries[0] = parent_entry; entries[1] = entry; } else { for (i = entry_len - 1; i >= 0; i--) { if (entries[i].id == parent_entry.id) { /* Insert at end, pruning anything previously above this. */ entry_len = i + 2; entries[i + 1] = entry; break; } else if (i == 0 && entries[i].id == entry.id) { /* Insert at start. */ entry_len++; memmove (entries + 1, entries, (entry_len - 1) * sizeof (*entries)); entries[0] = parent_entry; entries[1] = entry; break; } } } } /* Now scan visible mounts for the ones we're interested in. */ for (i = entry_len - 1; i >= 0; i--) { char **ret = NULL; if (!*entries[i].device) continue; if (grub_strcmp (entries[i].fstype, "fuse.zfs") == 0 || grub_strcmp (entries[i].fstype, "zfs") == 0) { char *slash; slash = strchr (entries[i].device, '/'); if (slash) *slash = 0; ret = find_root_devices_from_poolname (entries[i].device); if (slash) *slash = '/'; if (relroot) { if (!slash) *relroot = xasprintf ("/@%s", entries[i].enc_root); else if (strchr (slash + 1, '@')) *relroot = xasprintf ("/%s%s", slash + 1, entries[i].enc_root); else *relroot = xasprintf ("/%s@%s", slash + 1, entries[i].enc_root); } } else if (grub_strcmp (entries[i].fstype, "btrfs") == 0) { ret = grub_find_root_devices_from_btrfs (dir); if (relroot) *relroot = strdup (entries[i].enc_root); } if (!ret) { ret = xmalloc (2 * sizeof (ret[0])); ret[0] = strdup (entries[i].device); ret[1] = 0; if (relroot) *relroot = strdup (entries[i].enc_root); } free (buf); free (entries); fclose (fp); return ret; } free (buf); free (entries); fclose (fp); return NULL; } #endif /* __linux__ */ #if !defined (__MINGW32__) && !defined (__CYGWIN__) && !defined (__GNU__) static char ** find_root_devices_from_libzfs (const char *dir) { char **devices = NULL; char *poolname; char *poolfs; grub_find_zpool_from_dir (dir, &poolname, &poolfs); if (! poolname) return NULL; devices = find_root_devices_from_poolname (poolname); free (poolname); if (poolfs) free (poolfs); return devices; } #endif #ifdef __MINGW32__ char * grub_find_device (const char *dir __attribute__ ((unused)), dev_t dev __attribute__ ((unused))) { return 0; } #elif defined (__GNU__) static char * find_hurd_root_device (const char *path) { file_t file; error_t err; char *argz = NULL, *name = NULL, *ret; size_t argz_len = 0; int i; file = file_name_lookup (path, 0, 0); if (file == MACH_PORT_NULL) /* TRANSLATORS: The first %s is the file being looked at, the second %s is the error message. */ grub_util_error (_("cannot open `%s': %s"), path, strerror (errno)); /* This returns catenated 0-terminated strings. */ err = file_get_fs_options (file, &argz, &argz_len); if (err) /* TRANSLATORS: On GNU/Hurd, a "translator" is similar to a filesystem mount, but handled by a userland daemon, whose invocation command line is being fetched here. First %s is the file being looked at (for which we are fetching the "translator" command line), second %s is the error message. */ grub_util_error (_("cannot get translator command line " "for path `%s': %s"), path, strerror(err)); if (argz_len == 0) grub_util_error (_("translator command line is empty for path `%s'"), path); /* Make sure the string is terminated. */ argz[argz_len-1] = 0; /* Skip first word (translator path) and options. */ for (i = strlen (argz) + 1; i < argz_len; i += strlen (argz + i) + 1) { if (argz[i] != '-') { /* Non-option. Only accept one, assumed to be the FS path. */ /* XXX: this should be replaced by an RPC to the translator. */ if (name) /* TRANSLATORS: we expect to get something like /hurd/foobar --option1 --option2=baz /dev/something */ grub_util_error (_("translator `%s' for path `%s' has several " "non-option words, at least `%s' and `%s'"), argz, path, name, argz + i); name = argz + i; } } if (!name) /* TRANSLATORS: we expect to get something like /hurd/foobar --option1 --option2=baz /dev/something */ grub_util_error (_("translator `%s' for path `%s' is given only options, " "cannot find device part"), argz, path); if (strncmp (name, "device:", sizeof ("device:") - 1) == 0) { char *dev_name = name + sizeof ("device:") - 1; size_t size = sizeof ("/dev/") - 1 + strlen (dev_name) + 1; char *next; ret = malloc (size); next = stpncpy (ret, "/dev/", size); stpncpy (next, dev_name, size - (next - ret)); } else if (!strncmp (name, "file:", sizeof ("file:") - 1)) ret = strdup (name + sizeof ("file:") - 1); else ret = strdup (name); munmap (argz, argz_len); return ret; } #elif ! defined(__CYGWIN__) char * grub_find_device (const char *dir, dev_t dev) { DIR *dp; char *saved_cwd; struct dirent *ent; if (! dir) { #ifdef __CYGWIN__ return NULL; #else dir = "/dev"; #endif } dp = opendir (dir); if (! dp) return 0; saved_cwd = xgetcwd (); grub_util_info ("changing current directory to %s", dir); if (chdir (dir) < 0) { free (saved_cwd); closedir (dp); return 0; } while ((ent = readdir (dp)) != 0) { struct stat st; /* Avoid: - dotfiles (like "/dev/.tmp.md0") since they could be duplicates. - dotdirs (like "/dev/.static") since they could contain duplicates. */ if (ent->d_name[0] == '.') continue; if (lstat (ent->d_name, &st) < 0) /* Ignore any error. */ continue; if (S_ISLNK (st.st_mode)) { #ifdef __linux__ if (strcmp (dir, "mapper") == 0 || strcmp (dir, "/dev/mapper") == 0) { /* Follow symbolic links under /dev/mapper/; the canonical name may be something like /dev/dm-0, but the names under /dev/mapper/ are more human-readable and so we prefer them if we can get them. */ if (stat (ent->d_name, &st) < 0) continue; } else #endif /* __linux__ */ /* Don't follow other symbolic links. */ continue; } if (S_ISDIR (st.st_mode)) { /* Find it recursively. */ char *res; res = grub_find_device (ent->d_name, dev); if (res) { if (chdir (saved_cwd) < 0) grub_util_error ("%s", _("cannot restore the original directory")); free (saved_cwd); closedir (dp); return res; } } #if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__APPLE__) if (S_ISCHR (st.st_mode) && st.st_rdev == dev) #else if (S_ISBLK (st.st_mode) && st.st_rdev == dev) #endif { #ifdef __linux__ /* Skip device names like /dev/dm-0, which are short-hand aliases to more descriptive device names, e.g. those under /dev/mapper */ if (ent->d_name[0] == 'd' && ent->d_name[1] == 'm' && ent->d_name[2] == '-' && ent->d_name[3] >= '0' && ent->d_name[3] <= '9') continue; #endif /* Found! */ char *res; char *cwd; #if defined(__NetBSD__) /* Convert this block device to its character (raw) device. */ const char *template = "%s/r%s"; #else /* Keep the device name as it is. */ const char *template = "%s/%s"; #endif cwd = xgetcwd (); res = xmalloc (strlen (cwd) + strlen (ent->d_name) + 3); sprintf (res, template, cwd, ent->d_name); strip_extra_slashes (res); free (cwd); /* /dev/root is not a real block device keep looking, takes care of situation where root filesystem is on the same partition as grub files */ if (strcmp(res, "/dev/root") == 0) continue; if (chdir (saved_cwd) < 0) grub_util_error ("%s", _("cannot restore the original directory")); free (saved_cwd); closedir (dp); return res; } } if (chdir (saved_cwd) < 0) grub_util_error ("%s", _("cannot restore the original directory")); free (saved_cwd); closedir (dp); return 0; } #else /* __CYGWIN__ */ /* Read drive/partition serial number from mbr/boot sector, return 0 on read error, ~0 on unknown serial. */ static unsigned get_bootsec_serial (const char *os_dev, int mbr) { /* Read boot sector. */ int fd = open (os_dev, O_RDONLY); if (fd < 0) return 0; unsigned char buf[0x200]; int n = read (fd, buf, sizeof (buf)); close (fd); if (n != sizeof(buf)) return 0; /* Check signature. */ if (!(buf[0x1fe] == 0x55 && buf[0x1ff] == 0xaa)) return ~0; /* Serial number offset depends on boot sector type. */ if (mbr) n = 0x1b8; else if (memcmp (buf + 0x03, "NTFS", 4) == 0) n = 0x048; else if (memcmp (buf + 0x52, "FAT32", 5) == 0) n = 0x043; else if (memcmp (buf + 0x36, "FAT", 3) == 0) n = 0x027; else return ~0; unsigned serial = *(unsigned *)(buf + n); if (serial == 0) return ~0; return serial; } #pragma GCC diagnostic warning "-Wdeprecated-declarations" char * grub_find_device (const char *path, dev_t dev) { /* No root device for /cygdrive. */ if (dev == (DEV_CYGDRIVE_MAJOR << 16)) return 0; /* Convert to full POSIX and Win32 path. */ char fullpath[PATH_MAX], winpath[PATH_MAX]; cygwin_conv_to_full_posix_path (path, fullpath); cygwin_conv_to_full_win32_path (fullpath, winpath); /* If identical, this is no real filesystem path. */ if (strcmp (fullpath, winpath) == 0) return 0; /* Check for floppy drive letter. */ if (winpath[0] && winpath[1] == ':' && strchr ("AaBb", winpath[0])) return xstrdup (strchr ("Aa", winpath[0]) ? "/dev/fd0" : "/dev/fd1"); /* Cygwin returns the partition serial number in stat.st_dev. This is never identical to the device number of the emulated /dev/sdXN device, so above grub_find_device () does not work. Search the partition with the same serial in boot sector instead. */ char devpath[sizeof ("/dev/sda15") + 13]; /* Size + Paranoia. */ int d; for (d = 'a'; d <= 'z'; d++) { sprintf (devpath, "/dev/sd%c", d); if (get_bootsec_serial (devpath, 1) == 0) continue; int p; for (p = 1; p <= 15; p++) { sprintf (devpath, "/dev/sd%c%d", d, p); unsigned ser = get_bootsec_serial (devpath, 0); if (ser == 0) break; if (ser != (unsigned)~0 && dev == (dev_t)ser) return xstrdup (devpath); } } return 0; } #endif /* __CYGWIN__ */ char ** grub_guess_root_devices (const char *dir) { char **os_dev = NULL; #ifndef __GNU__ struct stat st; dev_t dev; #ifdef __linux__ if (!os_dev) os_dev = grub_find_root_devices_from_mountinfo (dir, NULL); #endif /* __linux__ */ #if !defined (__MINGW32__) && !defined (__CYGWIN__) if (!os_dev) os_dev = find_root_devices_from_libzfs (dir); #endif if (os_dev) { char **cur; for (cur = os_dev; *cur; cur++) { char *tmp = *cur; int root, dm; *cur = canonicalize_file_name (tmp); if (*cur == NULL) grub_util_error (_("failed to get canonical path of %s"), tmp); free (tmp); root = (strcmp (*cur, "/dev/root") == 0); dm = (strncmp (*cur, "/dev/dm-", sizeof ("/dev/dm-") - 1) == 0); if (!dm && !root) continue; if (stat (*cur, &st) < 0) break; free (*cur); dev = st.st_rdev; *cur = grub_find_device (dm ? "/dev/mapper" : "/dev", dev); } if (!*cur) return os_dev; for (cur = os_dev; *cur; cur++) free (*cur); free (os_dev); os_dev = 0; } if (stat (dir, &st) < 0) grub_util_error (_("cannot stat `%s': %s"), dir, strerror (errno)); dev = st.st_dev; #endif /* !__GNU__ */ os_dev = xmalloc (2 * sizeof (os_dev[0])); #ifdef __CYGWIN__ /* Cygwin specific function. */ os_dev[0] = grub_find_device (dir, dev); #elif defined __GNU__ /* GNU/Hurd specific function. */ os_dev[0] = find_hurd_root_device (dir); #else /* This might be truly slow, but is there any better way? */ os_dev[0] = grub_find_device ("/dev", dev); #endif if (!os_dev[0]) { free (os_dev); return 0; } os_dev[1] = 0; return os_dev; } #ifdef HAVE_DEVICE_MAPPER static int grub_util_open_dm (const char *os_dev, struct dm_tree **tree, struct dm_tree_node **node) { uint32_t maj, min; struct stat st; *node = NULL; *tree = NULL; if ((strncmp ("/dev/mapper/", os_dev, 12) != 0)) return 0; if (stat (os_dev, &st) < 0) return 0; *tree = dm_tree_create (); if (! *tree) { grub_puts_ (N_("Failed to create `device-mapper' tree")); grub_dprintf ("hostdisk", "dm_tree_create failed\n"); return 0; } maj = major (st.st_rdev); min = minor (st.st_rdev); if (! dm_tree_add_dev (*tree, maj, min)) { grub_dprintf ("hostdisk", "dm_tree_add_dev failed\n"); dm_tree_free (*tree); *tree = NULL; return 0; } *node = dm_tree_find_node (*tree, maj, min); if (! *node) { grub_dprintf ("hostdisk", "dm_tree_find_node failed\n"); dm_tree_free (*tree); *tree = NULL; return 0; } return 1; } #endif #ifdef HAVE_DEVICE_MAPPER static char * get_dm_uuid (const char *os_dev) { struct dm_tree *tree; struct dm_tree_node *node; const char *node_uuid; char *ret; if ((strncmp ("/dev/mapper/", os_dev, 12) != 0)) return NULL; if (!grub_util_open_dm (os_dev, &tree, &node)) return NULL; node_uuid = dm_tree_node_get_uuid (node); if (! node_uuid) { grub_dprintf ("hostdisk", "%s has no DM uuid\n", os_dev); dm_tree_free (tree); return NULL; } ret = grub_strdup (node_uuid); dm_tree_free (tree); return ret; } #endif #ifdef __linux__ static enum grub_dev_abstraction_types grub_util_get_dm_abstraction (const char *os_dev) { #ifdef HAVE_DEVICE_MAPPER char *uuid; uuid = get_dm_uuid (os_dev); if (uuid == NULL) return GRUB_DEV_ABSTRACTION_NONE; if (strncmp (uuid, "LVM-", 4) == 0) { grub_free (uuid); return GRUB_DEV_ABSTRACTION_LVM; } if (strncmp (uuid, "CRYPT-LUKS1-", 4) == 0) { grub_free (uuid); return GRUB_DEV_ABSTRACTION_LUKS; } grub_free (uuid); return GRUB_DEV_ABSTRACTION_NONE; #else if ((strncmp ("/dev/mapper/", os_dev, 12) != 0)) return GRUB_DEV_ABSTRACTION_NONE; return GRUB_DEV_ABSTRACTION_LVM; #endif } #endif #if defined (__FreeBSD__) || defined(__FreeBSD_kernel__) #include static const char * grub_util_get_geom_abstraction (const char *dev) { char *whole; struct gmesh mesh; struct gclass *class; const char *name; int err; if (strncmp (dev, "/dev/", sizeof ("/dev/") - 1) != 0) return 0; name = dev + sizeof ("/dev/") - 1; grub_util_follow_gpart_up (name, NULL, &whole); grub_util_info ("following geom '%s'", name); err = geom_gettree (&mesh); if (err != 0) /* TRANSLATORS: geom is the name of (k)FreeBSD device framework. Usually left untranslated. */ grub_util_error ("%s", _("couldn't open geom")); LIST_FOREACH (class, &mesh.lg_class, lg_class) { struct ggeom *geom; LIST_FOREACH (geom, &class->lg_geom, lg_geom) { struct gprovider *provider; LIST_FOREACH (provider, &geom->lg_provider, lg_provider) if (strcmp (provider->lg_name, name) == 0) return class->lg_name; } } return NULL; } #endif int grub_util_get_dev_abstraction (const char *os_dev) { #if defined(__linux__) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__) /* User explicitly claims that this drive is visible by BIOS. */ if (grub_util_biosdisk_is_present (os_dev)) return GRUB_DEV_ABSTRACTION_NONE; #endif #ifdef __linux__ enum grub_dev_abstraction_types ret; /* Check for LVM and LUKS. */ ret = grub_util_get_dm_abstraction (os_dev); if (ret != GRUB_DEV_ABSTRACTION_NONE) return ret; /* Check for RAID. */ if (!strncmp (os_dev, "/dev/md", 7) && ! grub_util_device_is_mapped (os_dev) && !grub_util_is_imsm (os_dev)) return GRUB_DEV_ABSTRACTION_RAID; #endif #if defined (__FreeBSD__) || defined(__FreeBSD_kernel__) const char *abstrac; abstrac = grub_util_get_geom_abstraction (os_dev); grub_util_info ("abstraction of %s is %s", os_dev, abstrac); if (abstrac && grub_strcasecmp (abstrac, "eli") == 0) return GRUB_DEV_ABSTRACTION_GELI; /* Check for LVM. */ if (!strncmp (os_dev, LVM_DEV_MAPPER_STRING, sizeof(LVM_DEV_MAPPER_STRING)-1)) return GRUB_DEV_ABSTRACTION_LVM; #endif /* No abstraction found. */ return GRUB_DEV_ABSTRACTION_NONE; } #ifdef __linux__ static char * get_mdadm_uuid (const char *os_dev) { char *argv[5]; int fd; pid_t pid; FILE *mdadm; char *buf = NULL; size_t len = 0; char *name = NULL; /* execvp has inconvenient types, hence the casts. None of these strings will actually be modified. */ argv[0] = (char *) "mdadm"; argv[1] = (char *) "--detail"; argv[2] = (char *) "--export"; argv[3] = (char *) os_dev; argv[4] = NULL; pid = exec_pipe (argv, &fd); if (!pid) return NULL; /* Parent. Read mdadm's output. */ mdadm = fdopen (fd, "r"); if (! mdadm) { grub_util_warn (_("Unable to open stream from %s: %s"), "mdadm", strerror (errno)); goto out; } while (getline (&buf, &len, mdadm) > 0) { if (strncmp (buf, "MD_UUID=", sizeof ("MD_UUID=") - 1) == 0) { char *name_start, *ptri, *ptro; free (name); name_start = buf + sizeof ("MD_UUID=") - 1; ptro = name = xmalloc (strlen (name_start) + 1); for (ptri = name_start; *ptri && *ptri != '\n' && *ptri != '\r'; ptri++) if ((*ptri >= '0' && *ptri <= '9') || (*ptri >= 'a' && *ptri <= 'f') || (*ptri >= 'A' && *ptri <= 'F')) *ptro++ = *ptri; *ptro = 0; } } out: close (fd); waitpid (pid, NULL, 0); return name; } static int grub_util_is_imsm (const char *os_dev) { int try; const char *dev = os_dev; for (try = 0; try < 2; try++) { char *argv[5]; int fd; pid_t pid; FILE *mdadm; char *buf = NULL; size_t len = 0; /* execvp has inconvenient types, hence the casts. None of these strings will actually be modified. */ argv[0] = (char *) "mdadm"; argv[1] = (char *) "--detail"; argv[2] = (char *) "--export"; argv[3] = (char *) dev; argv[4] = NULL; pid = exec_pipe (argv, &fd); if (!pid) { if (dev != os_dev) free ((void *) dev); return 0; } /* Parent. Read mdadm's output. */ mdadm = fdopen (fd, "r"); if (! mdadm) { grub_util_warn (_("Unable to open stream from %s: %s"), "mdadm", strerror (errno)); close (fd); waitpid (pid, NULL, 0); if (dev != os_dev) free ((void *) dev); return 0; } while (getline (&buf, &len, mdadm) > 0) { if (strncmp (buf, "MD_CONTAINER=", sizeof ("MD_CONTAINER=") - 1) == 0) { char *newdev, *ptr; newdev = xstrdup (buf + sizeof ("MD_CONTAINER=") - 1); ptr = newdev + strlen (newdev) - 1; for (; ptr >= newdev && (*ptr == '\n' || *ptr == '\r'); ptr--); ptr[1] = 0; grub_util_info ("Container of %s is %s", dev, newdev); dev = newdev; goto out; } if (strncmp (buf, "MD_METADATA=imsm", sizeof ("MD_METADATA=imsm") - 1) == 0) { close (fd); waitpid (pid, NULL, 0); grub_util_info ("%s is imsm", dev); if (dev != os_dev) free ((void *) dev); return 1; } } return 0; out: close (fd); waitpid (pid, NULL, 0); } if (dev != os_dev) free ((void *) dev); return 0; } #endif /* __linux__ */ void grub_util_pull_device (const char *os_dev) { int ab; ab = grub_util_get_dev_abstraction (os_dev); switch (ab) { case GRUB_DEV_ABSTRACTION_GELI: #if defined (__FreeBSD__) || defined(__FreeBSD_kernel__) { char *whole; struct gmesh mesh; struct gclass *class; const char *name; int err; char *lastsubdev = NULL; if (strncmp (os_dev, "/dev/", sizeof ("/dev/") - 1) != 0) return; name = os_dev + sizeof ("/dev/") - 1; grub_util_follow_gpart_up (name, NULL, &whole); grub_util_info ("following geom '%s'", name); err = geom_gettree (&mesh); if (err != 0) /* TRANSLATORS: geom is the name of (k)FreeBSD device framework. Usually left untranslated. */ grub_util_error ("%s", _("couldn't open geom")); LIST_FOREACH (class, &mesh.lg_class, lg_class) { struct ggeom *geom; LIST_FOREACH (geom, &class->lg_geom, lg_geom) { struct gprovider *provider; LIST_FOREACH (provider, &geom->lg_provider, lg_provider) if (strcmp (provider->lg_name, name) == 0) { struct gconsumer *consumer; char *fname; LIST_FOREACH (consumer, &geom->lg_consumer, lg_consumer) break; if (!consumer) grub_util_error ("%s", _("couldn't find geli consumer")); fname = xasprintf ("/dev/%s", consumer->lg_provider->lg_name); grub_util_info ("consumer %s", consumer->lg_provider->lg_name); lastsubdev = consumer->lg_provider->lg_name; grub_util_pull_device (fname); free (fname); } } } if (ab == GRUB_DEV_ABSTRACTION_GELI && lastsubdev) { char *fname = xasprintf ("/dev/%s", lastsubdev); char *grdev = grub_util_get_grub_dev (fname); free (fname); if (grdev) { grub_err_t gr_err; gr_err = grub_cryptodisk_cheat_mount (grdev, os_dev); if (gr_err) grub_util_error (_("can't mount encrypted volume `%s': %s"), lastsubdev, grub_errmsg); } grub_free (grdev); } } #endif break; case GRUB_DEV_ABSTRACTION_LVM: case GRUB_DEV_ABSTRACTION_LUKS: #ifdef HAVE_DEVICE_MAPPER { struct dm_tree *tree; struct dm_tree_node *node; struct dm_tree_node *child; void *handle = NULL; char *lastsubdev = NULL; if (!grub_util_open_dm (os_dev, &tree, &node)) return; while ((child = dm_tree_next_child (&handle, node, 0))) { const struct dm_info *dm = dm_tree_node_get_info (child); char *subdev; if (!dm) continue; subdev = grub_find_device ("/dev", makedev (dm->major, dm->minor)); if (subdev) { lastsubdev = subdev; grub_util_pull_device (subdev); } } if (ab == GRUB_DEV_ABSTRACTION_LUKS && lastsubdev) { char *grdev = grub_util_get_grub_dev (lastsubdev); dm_tree_free (tree); if (grdev) { grub_err_t err; err = grub_cryptodisk_cheat_mount (grdev, os_dev); if (err) grub_util_error (_("can't mount encrypted volume `%s': %s"), lastsubdev, grub_errmsg); } grub_free (grdev); } else dm_tree_free (tree); } #endif return; case GRUB_DEV_ABSTRACTION_RAID: #ifdef __linux__ { char **devicelist = grub_util_raid_getmembers (os_dev, 0); int i; for (i = 0; devicelist[i];i++) grub_util_pull_device (devicelist[i]); free (devicelist); } #endif return; default: /* GRUB_DEV_ABSTRACTION_NONE */ free (grub_util_biosdisk_get_grub_dev (os_dev)); return; } } #ifdef HAVE_DEVICE_MAPPER static int grub_util_get_dm_node_linear_info (const char *dev, int *maj, int *min) { struct dm_task *dmt; void *next = NULL; uint64_t length, start; char *target, *params; char *ptr; int major, minor; dmt = dm_task_create(DM_DEVICE_TABLE); if (!dmt) return 0; if (!dm_task_set_name(dmt, dev)) { dm_task_destroy (dmt); return 0; } dm_task_no_open_count(dmt); if (!dm_task_run(dmt)) { dm_task_destroy (dmt); return 0; } next = dm_get_next_target(dmt, next, &start, &length, &target, ¶ms); if (grub_strcmp (target, "linear") != 0) { dm_task_destroy (dmt); return 0; } major = grub_strtoul (params, &ptr, 10); if (grub_errno) { dm_task_destroy (dmt); grub_errno = GRUB_ERR_NONE; return 0; } if (*ptr != ':') { dm_task_destroy (dmt); return 0; } ptr++; minor = grub_strtoul (ptr, 0, 10); if (grub_errno) { grub_errno = GRUB_ERR_NONE; dm_task_destroy (dmt); return 0; } if (maj) *maj = major; if (min) *min = minor; dm_task_destroy (dmt); return 1; } #endif int grub_util_biosdisk_is_floppy (grub_disk_t disk) { struct stat st; int fd; const char *dname; dname = grub_util_biosdisk_get_osdev (disk); if (!dname) return 0; fd = open (dname, O_RDONLY); /* Shouldn't happen. */ if (fd == -1) return 0; /* Shouldn't happen either. */ if (fstat (fd, &st) < 0) { close (fd); return 0; } close (fd); #if defined(__NetBSD__) if (major(st.st_rdev) == RAW_FLOPPY_MAJOR) return 1; #endif #if defined(FLOPPY_MAJOR) if (major(st.st_rdev) == FLOPPY_MAJOR) #else /* Some kernels (e.g. kFreeBSD) don't have a static major number for floppies, but they still use a "fd[0-9]" pathname. */ if (dname[5] == 'f' && dname[6] == 'd' && dname[7] >= '0' && dname[7] <= '9') #endif return 1; return 0; } static char * convert_system_partition_to_system_disk (const char *os_dev, struct stat *st, int *is_part) { *is_part = 0; #if defined(__linux__) char *path = xmalloc (PATH_MAX); if (! realpath (os_dev, path)) return NULL; if (strncmp ("/dev/", path, 5) == 0) { char *p = path + 5; /* If this is an IDE disk. */ if (strncmp ("ide/", p, 4) == 0) { p = strstr (p, "part"); if (p) { *is_part = 1; strcpy (p, "disc"); } return path; } /* If this is a SCSI disk. */ if (strncmp ("scsi/", p, 5) == 0) { p = strstr (p, "part"); if (p) { *is_part = 1; strcpy (p, "disc"); } return path; } /* If this is a DAC960 disk. */ if (strncmp ("rd/c", p, 4) == 0) { /* /dev/rd/c[0-9]+d[0-9]+(p[0-9]+)? */ p = strchr (p, 'p'); if (p) { *is_part = 1; *p = '\0'; } return path; } /* If this is a Mylex AcceleRAID Array. */ if (strncmp ("rs/c", p, 4) == 0) { /* /dev/rd/c[0-9]+d[0-9]+(p[0-9]+)? */ p = strchr (p, 'p'); if (p) { *is_part = 1; *p = '\0'; } return path; } /* If this is a CCISS disk. */ if (strncmp ("cciss/c", p, sizeof ("cciss/c") - 1) == 0) { /* /dev/cciss/c[0-9]+d[0-9]+(p[0-9]+)? */ p = strchr (p, 'p'); if (p) { *is_part = 1; *p = '\0'; } return path; } /* If this is an AOE disk. */ if (strncmp ("etherd/e", p, sizeof ("etherd/e") - 1) == 0) { /* /dev/etherd/e[0-9]+\.[0-9]+(p[0-9]+)? */ p = strchr (p, 'p'); if (p) { *is_part = 1; *p = '\0'; } return path; } /* If this is a Compaq Intelligent Drive Array. */ if (strncmp ("ida/c", p, sizeof ("ida/c") - 1) == 0) { /* /dev/ida/c[0-9]+d[0-9]+(p[0-9]+)? */ p = strchr (p, 'p'); if (p) { *is_part = 1; *p = '\0'; } return path; } /* If this is an I2O disk. */ if (strncmp ("i2o/hd", p, sizeof ("i2o/hd") - 1) == 0) { /* /dev/i2o/hd[a-z]([0-9]+)? */ if (p[sizeof ("i2o/hda") - 1]) *is_part = 1; p[sizeof ("i2o/hda") - 1] = '\0'; return path; } /* If this is a MultiMediaCard (MMC). */ if (strncmp ("mmcblk", p, sizeof ("mmcblk") - 1) == 0) { /* /dev/mmcblk[0-9]+(p[0-9]+)? */ p = strchr (p, 'p'); if (p) { *is_part = 1; *p = '\0'; } return path; } if (strncmp ("md", p, 2) == 0 && p[2] >= '0' && p[2] <= '9') { char *ptr = p + 2; while (*ptr >= '0' && *ptr <= '9') ptr++; if (*ptr) *is_part = 1; *ptr = 0; return path; } /* If this is an IDE, SCSI or Virtio disk. */ if (strncmp ("vdisk", p, 5) == 0 && p[5] >= 'a' && p[5] <= 'z') { /* /dev/vdisk[a-z][0-9]* */ if (p[6]) *is_part = 1; p[6] = '\0'; return path; } if ((strncmp ("hd", p, 2) == 0 || strncmp ("vd", p, 2) == 0 || strncmp ("sd", p, 2) == 0) && p[2] >= 'a' && p[2] <= 'z') { char *pp = p + 2; while (*pp >= 'a' && *pp <= 'z') pp++; if (*pp) *is_part = 1; /* /dev/[hsv]d[a-z]+[0-9]* */ *pp = '\0'; return path; } /* If this is a Xen virtual block device. */ if ((strncmp ("xvd", p, 3) == 0) && p[3] >= 'a' && p[3] <= 'z') { char *pp = p + 3; while (*pp >= 'a' && *pp <= 'z') pp++; if (*pp) *is_part = 1; /* /dev/xvd[a-z]+[0-9]* */ *pp = '\0'; return path; } #ifdef HAVE_DEVICE_MAPPER if ((strncmp ("/dev/mapper/", path, sizeof ("/dev/mapper/") - 1) == 0) || (strncmp ("/dev/dm-", path, sizeof ("/dev/dm-") - 1) == 0)) { struct dm_tree *tree; uint32_t maj, min; struct dm_tree_node *node = NULL, *child; void *handle; const char *node_uuid, *mapper_name = NULL, *child_uuid, *child_name; tree = dm_tree_create (); if (! tree) { grub_dprintf ("hostdisk", "dm_tree_create failed\n"); goto devmapper_out; } maj = major (st->st_rdev); min = minor (st->st_rdev); if (! dm_tree_add_dev (tree, maj, min)) { grub_dprintf ("hostdisk", "dm_tree_add_dev failed\n"); goto devmapper_out; } node = dm_tree_find_node (tree, maj, min); if (! node) { grub_dprintf ("hostdisk", "dm_tree_find_node failed\n"); goto devmapper_out; } node_uuid = dm_tree_node_get_uuid (node); if (! node_uuid) { grub_dprintf ("hostdisk", "%s has no DM uuid\n", path); node = NULL; goto devmapper_out; } if (strncmp (node_uuid, "LVM-", 4) == 0) { grub_dprintf ("hostdisk", "%s is an LVM\n", path); node = NULL; goto devmapper_out; } if (strncmp (node_uuid, "mpath-", 6) == 0) { /* Multipath partitions have partN-mpath-* UUIDs, and are linear mappings so are handled by grub_util_get_dm_node_linear_info. Multipath disks are not linear mappings and must be handled specially. */ grub_dprintf ("hostdisk", "%s is a multipath disk\n", path); mapper_name = dm_tree_node_get_name (node); goto devmapper_out; } if (strncmp (node_uuid, "DMRAID-", 7) != 0) { int major, minor; const char *node_name; grub_dprintf ("hostdisk", "%s is not DM-RAID\n", path); if ((node_name = dm_tree_node_get_name (node)) && grub_util_get_dm_node_linear_info (node_name, &major, &minor)) { *is_part = 1; if (tree) dm_tree_free (tree); free (path); char *ret = grub_find_device ("/dev", (major << 8) | minor); return ret; } node = NULL; goto devmapper_out; } handle = NULL; /* Counter-intuitively, device-mapper refers to the disk-like device containing a DM-RAID partition device as a "child" of the partition device. */ child = dm_tree_next_child (&handle, node, 0); if (! child) { grub_dprintf ("hostdisk", "%s has no DM children\n", path); goto devmapper_out; } child_uuid = dm_tree_node_get_uuid (child); if (! child_uuid) { grub_dprintf ("hostdisk", "%s child has no DM uuid\n", path); goto devmapper_out; } else if (strncmp (child_uuid, "DMRAID-", 7) != 0) { grub_dprintf ("hostdisk", "%s child is not DM-RAID\n", path); goto devmapper_out; } child_name = dm_tree_node_get_name (child); if (! child_name) { grub_dprintf ("hostdisk", "%s child has no DM name\n", path); goto devmapper_out; } mapper_name = child_name; devmapper_out: if (! mapper_name && node) { /* This is a DM-RAID disk, not a partition. */ mapper_name = dm_tree_node_get_name (node); if (! mapper_name) grub_dprintf ("hostdisk", "%s has no DM name\n", path); } char *ret; if (mapper_name) ret = xasprintf ("/dev/mapper/%s", mapper_name); else ret = NULL; if (tree) dm_tree_free (tree); free (path); return ret; } #endif /* HAVE_DEVICE_MAPPER */ } return path; #elif defined(__GNU__) char *path = xstrdup (os_dev); if (strncmp ("/dev/sd", path, 7) == 0 || strncmp ("/dev/hd", path, 7) == 0) { char *p = strchr (path + 7, 's'); if (p) { *is_part = 1; *p = '\0'; } } return path; #elif defined(__CYGWIN__) char *path = xstrdup (os_dev); if (strncmp ("/dev/sd", path, 7) == 0 && 'a' <= path[7] && path[7] <= 'z' && path[8]) { *is_part = 1; path[8] = 0; } return path; #elif defined(__FreeBSD__) || defined(__FreeBSD_kernel__) char *out, *out2; if (strncmp (os_dev, "/dev/", sizeof ("/dev/") - 1) != 0) return xstrdup (os_dev); grub_util_follow_gpart_up (os_dev + sizeof ("/dev/") - 1, NULL, &out); if (grub_strcmp (os_dev + sizeof ("/dev/") - 1, out) != 0) *is_part = 1; out2 = xasprintf ("/dev/%s", out); free (out); return out2; #elif defined(__APPLE__) char *path = xstrdup (os_dev); if (strncmp ("/dev/", path, 5) == 0) { char *p; for (p = path + 5; *p; ++p) if (grub_isdigit(*p)) { p = strpbrk (p, "sp"); if (p) { *is_part = 1; *p = '\0'; } break; } } return path; #elif defined(__NetBSD__) int rawpart = -1; # ifdef HAVE_GETRAWPARTITION rawpart = getrawpartition(); # endif /* HAVE_GETRAWPARTITION */ if (rawpart < 0) return xstrdup (os_dev); /* NetBSD disk wedges are of the form "/dev/rdk.*". */ if (strncmp ("/dev/rdk", os_dev, sizeof("/dev/rdk") - 1) == 0) { struct dkwedge_info dkw; int fd; fd = open (os_dev, O_RDONLY); if (fd == -1) { grub_error (GRUB_ERR_BAD_DEVICE, N_("cannot open `%s': %s"), os_dev, strerror (errno)); return xstrdup (os_dev); } /* We don't call configure_device_driver since this isn't a floppy device name. */ if (ioctl (fd, DIOCGWEDGEINFO, &dkw) == -1) { grub_error (GRUB_ERR_BAD_DEVICE, "cannot get disk wedge info of `%s'", os_dev); close (fd); return xstrdup (os_dev); } *is_part = (dkw.dkw_offset != 0); close (fd); return xasprintf ("/dev/r%s%c", dkw.dkw_parent, 'a' + rawpart); } /* NetBSD (disk label) partitions are of the form "/dev/r[a-z]+[0-9][a-z]". */ if (strncmp ("/dev/r", os_dev, sizeof("/dev/r") - 1) == 0 && (os_dev[sizeof("/dev/r") - 1] >= 'a' && os_dev[sizeof("/dev/r") - 1] <= 'z') && strncmp ("fd", os_dev + sizeof("/dev/r") - 1, sizeof("fd") - 1) != 0) /* not a floppy device name */ { char *path = xstrdup (os_dev); char *p; for (p = path + sizeof("/dev/r"); *p >= 'a' && *p <= 'z'; p++); if (grub_isdigit(*p)) { p++; if ((*p >= 'a' && *p <= 'z') && (*(p+1) == '\0')) { if (*p != 'a' + rawpart) *is_part = 1; /* path matches the required regular expression and p points to its last character. */ *p = 'a' + rawpart; } } return path; } return xstrdup (os_dev); #elif defined (__sun__) char *colon = grub_strrchr (os_dev, ':'); if (grub_memcmp (os_dev, "/devices", sizeof ("/devices") - 1) == 0 && colon) { char *ret = xmalloc (colon - os_dev + sizeof (":q,raw")); if (grub_strcmp (colon, ":q,raw") != 0) *is_part = 1; grub_memcpy (ret, os_dev, colon - os_dev); grub_memcpy (ret + (colon - os_dev), ":q,raw", sizeof (":q,raw")); return ret; } else return xstrdup (os_dev); #else # warning "The function `convert_system_partition_to_system_disk' might not work on your OS correctly." return xstrdup (os_dev); #endif } static const char * find_system_device (const char *os_dev, struct stat *st, int convert, int add) { char *os_disk; const char *drive; int is_part; if (convert) os_disk = convert_system_partition_to_system_disk (os_dev, st, &is_part); else os_disk = xstrdup (os_dev); if (! os_disk) return NULL; drive = grub_hostdisk_os_dev_to_grub_drive (os_disk, add); free (os_disk); return drive; } /* * Note: we do not use the new partition naming scheme as dos_part does not * necessarily correspond to an msdos partition. */ static char * make_device_name (const char *drive, int dos_part, int bsd_part) { char *ret, *ptr, *end; const char *iptr; ret = xmalloc (strlen (drive) * 2 + sizeof (",XXXXXXXXXXXXXXXXXXXXXXXXXX" ",XXXXXXXXXXXXXXXXXXXXXXXXXX")); end = (ret + strlen (drive) * 2 + sizeof (",XXXXXXXXXXXXXXXXXXXXXXXXXX" ",XXXXXXXXXXXXXXXXXXXXXXXXXX")); ptr = ret; for (iptr = drive; *iptr; iptr++) { if (*iptr == ',') *ptr++ = '\\'; *ptr++ = *iptr; } *ptr = 0; if (dos_part >= 0) snprintf (ptr, end - ptr, ",%d", dos_part + 1); ptr += strlen (ptr); if (bsd_part >= 0) snprintf (ptr, end - ptr, ",%d", bsd_part + 1); return ret; } char * grub_util_get_os_disk (const char *os_dev) { struct stat st; int is_part; grub_util_info ("Looking for %s", os_dev); if (stat (os_dev, &st) < 0) { const char *errstr = strerror (errno); grub_error (GRUB_ERR_BAD_DEVICE, N_("cannot stat `%s': %s"), os_dev, errstr); grub_util_info (_("cannot stat `%s': %s"), os_dev, errstr); return 0; } return convert_system_partition_to_system_disk (os_dev, &st, &is_part); } char * grub_util_biosdisk_get_grub_dev (const char *os_dev) { struct stat st; const char *drive; char *sys_disk; int is_part; grub_util_info ("Looking for %s", os_dev); if (stat (os_dev, &st) < 0) { const char *errstr = strerror (errno); grub_error (GRUB_ERR_BAD_DEVICE, N_("cannot stat `%s': %s"), os_dev, errstr); grub_util_info (_("cannot stat `%s': %s"), os_dev, errstr); return 0; } drive = find_system_device (os_dev, &st, 1, 1); sys_disk = convert_system_partition_to_system_disk (os_dev, &st, &is_part); if (grub_strcmp (os_dev, sys_disk) == 0) { free (sys_disk); return make_device_name (drive, -1, -1); } free (sys_disk); #if defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined(__APPLE__) || defined(__NetBSD__) || defined (__sun__) if (! S_ISCHR (st.st_mode)) #else if (! S_ISBLK (st.st_mode)) #endif return make_device_name (drive, -1, -1); #if defined(__linux__) || defined(__CYGWIN__) || defined(HAVE_DIOCGDINFO) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__) || defined (__sun__) /* Linux counts partitions uniformly, whether a BSD partition or a DOS partition, so mapping them to GRUB devices is not trivial. Here, get the start sector of a partition by HDIO_GETGEO, and compare it with each partition GRUB recognizes. Cygwin /dev/sdXN emulation uses Windows partition mapping. It does not count the extended partition and missing primary partitions. Use same method as on Linux here. For NetBSD and FreeBSD, proceed as for Linux, except that the start sector is obtained from the disk label. */ { char *name, *partname; grub_disk_t disk; grub_disk_addr_t start; auto int find_partition (grub_disk_t dsk, const grub_partition_t partition); int find_partition (grub_disk_t dsk __attribute__ ((unused)), const grub_partition_t partition) { grub_disk_addr_t part_start = 0; grub_util_info ("Partition %d starts from %" PRIuGRUB_UINT64_T, partition->number, partition->start); part_start = grub_partition_get_start (partition); if (start == part_start) { partname = grub_partition_get_name (partition); return 1; } return 0; } name = make_device_name (drive, -1, -1); # if !defined(HAVE_DIOCGDINFO) && !defined(__sun__) if (MAJOR (st.st_rdev) == FLOPPY_MAJOR) return name; # else /* defined(HAVE_DIOCGDINFO) */ /* Since os_dev and convert_system_partition_to_system_disk (os_dev) are * different, we know that os_dev cannot be a floppy device. */ # endif /* !defined(HAVE_DIOCGDINFO) */ start = grub_hostdisk_find_partition_start (os_dev); if (grub_errno != GRUB_ERR_NONE) { free (name); return 0; } grub_util_info ("%s starts from %" PRIuGRUB_UINT64_T, os_dev, start); if (start == 0 && !is_part) return name; grub_util_info ("opening the device %s", name); disk = grub_disk_open (name); free (name); if (! disk) { /* We already know that the partition exists. Given that we already checked the device map above, we can only get GRUB_ERR_UNKNOWN_DEVICE at this point if the disk does not exist. This can happen on Xen, where disk images in the host can be assigned to devices that have partition-like names in the guest but are really more like disks. */ if (grub_errno == GRUB_ERR_UNKNOWN_DEVICE) { grub_util_warn (_("disk does not exist, so falling back to partition device %s"), os_dev); drive = find_system_device (os_dev, &st, 0, 1); return make_device_name (drive, -1, -1); } else return 0; } name = grub_util_get_ldm (disk, start); if (name) return name; partname = NULL; grub_partition_iterate (disk, find_partition); if (grub_errno != GRUB_ERR_NONE) { grub_disk_close (disk); return 0; } if (partname == NULL) { grub_disk_close (disk); grub_util_info ("cannot find the partition of `%s'", os_dev); grub_error (GRUB_ERR_BAD_DEVICE, "cannot find the partition of `%s'", os_dev); return 0; } name = grub_xasprintf ("%s,%s", disk->name, partname); free (partname); grub_disk_close (disk); return name; } #elif defined(__GNU__) /* GNU uses "/dev/[hs]d[0-9]+(s[0-9]+[a-z]?)?". */ { char *p; int dos_part = -1; int bsd_part = -1; p = strrchr (os_dev, 's'); if (p) { long int n; char *q; p++; n = strtol (p, &q, 10); if (p != q && n != GRUB_LONG_MIN && n != GRUB_LONG_MAX) { dos_part = (int) n - 1; if (*q >= 'a' && *q <= 'g') bsd_part = *q - 'a'; } } return make_device_name (drive, dos_part, bsd_part); } #else # warning "The function `grub_util_biosdisk_get_grub_dev' might not work on your OS correctly." return make_device_name (drive, -1, -1); #endif } int grub_util_biosdisk_is_present (const char *os_dev) { struct stat st; if (stat (os_dev, &st) < 0) return 0; return find_system_device (os_dev, &st, 1, 0) != NULL; } char * grub_util_get_grub_dev (const char *os_dev) { char *grub_dev = NULL; grub_util_pull_device (os_dev); switch (grub_util_get_dev_abstraction (os_dev)) { #if defined(__linux__) || defined(__FreeBSD__) || defined(__FreeBSD_kernel__) case GRUB_DEV_ABSTRACTION_LVM: { unsigned short len; grub_size_t offset = sizeof (LVM_DEV_MAPPER_STRING) - 1; len = strlen (os_dev) - offset + 1; grub_dev = xmalloc (len + sizeof ("lvm/")); grub_memcpy (grub_dev, "lvm/", sizeof ("lvm/") - 1); grub_memcpy (grub_dev + sizeof ("lvm/") - 1, os_dev + offset, len); } break; #endif case GRUB_DEV_ABSTRACTION_LUKS: #ifdef HAVE_DEVICE_MAPPER { char *uuid, *dash; uuid = get_dm_uuid (os_dev); if (!uuid) break; dash = grub_strchr (uuid + sizeof ("CRYPT-LUKS1-") - 1, '-'); if (dash) *dash = 0; grub_dev = grub_xasprintf ("cryptouuid/%s", uuid + sizeof ("CRYPT-LUKS1-") - 1); grub_free (uuid); } #endif break; #if defined (__FreeBSD__) || defined(__FreeBSD_kernel__) case GRUB_DEV_ABSTRACTION_GELI: { char *whole; struct gmesh mesh; struct gclass *class; const char *name; int err; if (strncmp (os_dev, "/dev/", sizeof ("/dev/") - 1) != 0) return 0; name = os_dev + sizeof ("/dev/") - 1; grub_util_follow_gpart_up (name, NULL, &whole); grub_util_info ("following geom '%s'", name); err = geom_gettree (&mesh); if (err != 0) /* TRANSLATORS: geom is the name of (k)FreeBSD device framework. Usually left untranslated. */ grub_util_error ("%s", _("couldn't open geom")); LIST_FOREACH (class, &mesh.lg_class, lg_class) { struct ggeom *geom; LIST_FOREACH (geom, &class->lg_geom, lg_geom) { struct gprovider *provider; LIST_FOREACH (provider, &geom->lg_provider, lg_provider) if (strcmp (provider->lg_name, name) == 0) { struct gconsumer *consumer; char *fname; char *uuid; LIST_FOREACH (consumer, &geom->lg_consumer, lg_consumer) break; if (!consumer) grub_util_error ("%s", _("couldn't find geli consumer")); fname = xasprintf ("/dev/%s", consumer->lg_provider->lg_name); uuid = grub_util_get_geli_uuid (fname); if (!uuid) grub_util_error ("%s", _("couldn't retrieve geli UUID")); grub_dev = xasprintf ("cryptouuid/%s", uuid); free (fname); free (uuid); } } } } break; #endif #ifdef __linux__ case GRUB_DEV_ABSTRACTION_RAID: if (os_dev[7] == '_' && os_dev[8] == 'd') { /* This a partitionable RAID device of the form /dev/md_dNNpMM. */ char *p, *q; p = strdup (os_dev + sizeof ("/dev/md_d") - 1); q = strchr (p, 'p'); if (q) *q = ','; grub_dev = xasprintf ("md%s", p); free (p); } else if (os_dev[7] == '/' && os_dev[8] == 'd') { /* This a partitionable RAID device of the form /dev/md/dNNpMM. */ char *p, *q; p = strdup (os_dev + sizeof ("/dev/md/d") - 1); q = strchr (p, 'p'); if (q) *q = ','; grub_dev = xasprintf ("md%s", p); free (p); } else if (os_dev[7] >= '0' && os_dev[7] <= '9') { char *p , *q; p = strdup (os_dev + sizeof ("/dev/md") - 1); q = strchr (p, 'p'); if (q) *q = ','; grub_dev = xasprintf ("md%s", p); free (p); } else if (os_dev[7] == '/' && os_dev[8] >= '0' && os_dev[8] <= '9') { char *p , *q; p = strdup (os_dev + sizeof ("/dev/md/") - 1); q = strchr (p, 'p'); if (q) *q = ','; grub_dev = xasprintf ("md%s", p); free (p); } else if (os_dev[7] == '/') { /* mdraid 1.x with a free name. */ char *p , *q; p = strdup (os_dev + sizeof ("/dev/md/") - 1); q = strchr (p, 'p'); if (q) *q = ','; grub_dev = xasprintf ("md/%s", p); free (p); } else grub_util_error (_("unknown kind of RAID device `%s'"), os_dev); { char *mdadm_name = get_mdadm_uuid (os_dev); if (mdadm_name) { const char *q; for (q = os_dev + strlen (os_dev) - 1; q >= os_dev && grub_isdigit (*q); q--); if (q >= os_dev && *q == 'p') { free (grub_dev); grub_dev = xasprintf ("mduuid/%s,%s", mdadm_name, q + 1); goto done; } free (grub_dev); grub_dev = xasprintf ("mduuid/%s", mdadm_name); done: free (mdadm_name); } } break; #endif /* __linux__ */ default: /* GRUB_DEV_ABSTRACTION_NONE */ grub_dev = grub_util_biosdisk_get_grub_dev (os_dev); } return grub_dev; } const char * grub_util_check_block_device (const char *blk_dev) { struct stat st; if (stat (blk_dev, &st) < 0) grub_util_error (_("cannot stat `%s': %s"), blk_dev, strerror (errno)); if (S_ISBLK (st.st_mode)) return (blk_dev); else return 0; } const char * grub_util_check_char_device (const char *blk_dev) { struct stat st; if (stat (blk_dev, &st) < 0) grub_util_error (_("cannot stat `%s': %s"), blk_dev, strerror (errno)); if (S_ISCHR (st.st_mode)) return (blk_dev); else return 0; } #ifdef __CYGWIN__ /* Convert POSIX path to Win32 path, remove drive letter, replace backslashes. */ static char * get_win32_path (const char *path) { char winpath[PATH_MAX]; if (cygwin_conv_path (CCP_POSIX_TO_WIN_A, path, winpath, sizeof(winpath))) grub_util_error ("%s", _("cygwin_conv_path() failed")); int len = strlen (winpath); int offs = (len > 2 && winpath[1] == ':' ? 2 : 0); int i; for (i = offs; i < len; i++) if (winpath[i] == '\\') winpath[i] = '/'; return xstrdup (winpath + offs); } #endif #ifdef HAVE_LIBZFS static libzfs_handle_t *__libzfs_handle; static void fini_libzfs (void) { libzfs_fini (__libzfs_handle); } libzfs_handle_t * grub_get_libzfs_handle (void) { if (! __libzfs_handle) { __libzfs_handle = libzfs_init (); if (__libzfs_handle) atexit (fini_libzfs); } return __libzfs_handle; } #endif /* HAVE_LIBZFS */ #if !defined (__MINGW32__) && !defined (__CYGWIN__) /* ZFS has similar problems to those of btrfs (see above). */ void grub_find_zpool_from_dir (const char *dir, char **poolname, char **poolfs) { char *slash; *poolname = *poolfs = NULL; #if defined(HAVE_STRUCT_STATFS_F_FSTYPENAME) && defined(HAVE_STRUCT_STATFS_F_MNTFROMNAME) /* FreeBSD and GNU/kFreeBSD. */ { struct statfs mnt; if (statfs (dir, &mnt) != 0) return; if (strcmp (mnt.f_fstypename, "zfs") != 0) return; *poolname = xstrdup (mnt.f_mntfromname); } #elif defined(HAVE_GETEXTMNTENT) /* Solaris. */ { struct stat st; struct extmnttab mnt; if (stat (dir, &st) != 0) return; FILE *mnttab = fopen ("/etc/mnttab", "r"); if (! mnttab) return; while (getextmntent (mnttab, &mnt, sizeof (mnt)) == 0) { if (makedev (mnt.mnt_major, mnt.mnt_minor) == st.st_dev && !strcmp (mnt.mnt_fstype, "zfs")) { *poolname = xstrdup (mnt.mnt_special); break; } } fclose (mnttab); } #endif if (! *poolname) return; slash = strchr (*poolname, '/'); if (slash) { *slash = '\0'; *poolfs = xstrdup (slash + 1); } else *poolfs = xstrdup (""); } #endif /* This function never prints trailing slashes (so that its output can be appended a slash unconditionally). */ char * grub_make_system_path_relative_to_its_root (const char *path) { struct stat st; char *p, *buf, *buf2, *buf3, *ret; uintptr_t offset = 0; dev_t num; size_t len; char *poolfs = NULL; /* canonicalize. */ p = canonicalize_file_name (path); if (p == NULL) grub_util_error (_("failed to get canonical path of %s"), path); /* For ZFS sub-pool filesystems, could be extended to others (btrfs?). */ #if !defined (__MINGW32__) && !defined (__CYGWIN__) { char *dummy; grub_find_zpool_from_dir (p, &dummy, &poolfs); } #endif len = strlen (p) + 1; buf = xstrdup (p); free (p); if (stat (buf, &st) < 0) grub_util_error (_("cannot stat `%s': %s"), buf, strerror (errno)); buf2 = xstrdup (buf); num = st.st_dev; /* This loop sets offset to the number of chars of the root directory we're inspecting. */ while (1) { p = strrchr (buf, '/'); if (p == NULL) /* This should never happen. */ grub_util_error ("%s", /* TRANSLATORS: canonical pathname is the complete one e.g. /etc/fstab. It has to contain `/' normally, if it doesn't we're in trouble and throw this error. */ _("no `/' in canonical filename")); if (p != buf) *p = 0; else *++p = 0; if (stat (buf, &st) < 0) grub_util_error (_("cannot stat `%s': %s"), buf, strerror (errno)); /* buf is another filesystem; we found it. */ if (st.st_dev != num) { /* offset == 0 means path given is the mount point. This works around special-casing of "/" in Un*x. This function never prints trailing slashes (so that its output can be appended a slash unconditionally). Each slash in is considered a preceding slash, and therefore the root directory is an empty string. */ if (offset == 0) { free (buf); #ifdef __linux__ { char *bind; grub_free (grub_find_root_devices_from_mountinfo (buf2, &bind)); if (bind && bind[0] && bind[1]) { buf3 = bind; goto parsedir; } grub_free (bind); } #endif free (buf2); if (poolfs) return xasprintf ("/%s/@", poolfs); return xstrdup (""); } else break; } offset = p - buf; /* offset == 1 means root directory. */ if (offset == 1) { /* Include leading slash. */ offset = 0; break; } } free (buf); buf3 = xstrdup (buf2 + offset); buf2[offset] = 0; #ifdef __linux__ { char *bind; grub_free (grub_find_root_devices_from_mountinfo (buf2, &bind)); if (bind && bind[0] && bind[1]) { char *temp = buf3; buf3 = grub_xasprintf ("%s%s%s", bind, buf3[0] == '/' ?"":"/", buf3); grub_free (temp); } grub_free (bind); } #endif free (buf2); #ifdef __CYGWIN__ if (st.st_dev != (DEV_CYGDRIVE_MAJOR << 16)) { /* Reached some mount point not below /cygdrive. GRUB does not know Cygwin's emulated mounts, convert to Win32 path. */ grub_util_info ("Cygwin path = %s\n", buf3); char * temp = get_win32_path (buf3); free (buf3); buf3 = temp; } #endif #ifdef __linux__ parsedir: #endif /* Remove trailing slashes, return empty string if root directory. */ len = strlen (buf3); while (len > 0 && buf3[len - 1] == '/') { buf3[len - 1] = '\0'; len--; } if (poolfs) { ret = xasprintf ("/%s/@%s", poolfs, buf3); free (buf3); } else ret = buf3; return ret; }