Attachment 5634 Details for Bug 27979 – a bit more concise one

[patch] a bit more concise one

0001-TMP-rough-sketchy-EFI-support.patch (text/plain), 1.68 KB, created by Michael Shigorin on 2012-11-14 22:14:52 MSK

(hide)

Description:

Filename:

MIME Type:

Creator: Michael Shigorin

Created: 2012-11-14 22:14:52 MSK

Size: 1.68 KB

patch

obsolete

>From 693037efd7984b8f15a6b9e74e5e7e25fff0a28c Mon Sep 17 00:00:00 2001
>From: Michael Shigorin <mike@altlinux.org>
>Date: Wed, 14 Nov 2012 19:10:40 +0200
>Subject: [PATCH 1/2] TMP: rough sketchy EFI support
>
>guile: uncaught throw to internal-error:
>(unbound-variable #f "Unbound variable: ~S"
>(new-handle-object-info-t) #f)
>---
> evms.scm | 7 +++++--
> 1 file changed, 5 insertions(+), 2 deletions(-)
>
>diff --git a/evms.scm b/evms.scm
>index 4b23f77..5347cf2 100644
>--- a/evms.scm
>+++ b/evms.scm
>@@ -26,6 +26,7 @@
>     ("/var/ftp" . "nodev,nosuid,relatime")
>     ("/var/www" . "nodev,relatime")
>     ("/var/cache/squid" . "nodev,noexec,nosuid,relatime")
>+    ("/boot/efi" . #f)
>     ("/mnt/disk" . #f)))
> 
> (define bare-mountpoints '("/boot"))
>@@ -112,6 +113,7 @@
> 
>    ((member (assv-ref ((assv-ref (obj) 'fsim)) 'name) '("FAT16" "FAT32" "NTFS"))
>     (or (string-prefix? "/mnt/" val)
>+        (string=? val "/boot/efi")
>         (throw 'swig-system-error
>                "Assign mountpoint" "Invalid mountpoint: should start with /mnt")))
>    (#t #t)))
>@@ -569,8 +571,9 @@
>                         (or (object-option-value obj 'mntpoint)
>                             (set-object-option!
>                              obj 'mntpoint
>-                             (cond ((or (isntfs? obj)
>-                                        (isfat? obj))
>+                             (cond ((isfat? obj)
>+                                    "/boot/efi")
>+                                   ((isntfs? obj)
>                                     "/mnt/disk")
>                                    ((islvm? obj)
>                                     (let ((sane-mountpoints (filter (lambda(s) (not (member s bare-mountpoints))) rest)))
>-- 
>1.7.12.4
>

Actions: View | Diff

Attachments on bug 27979: 5633 | 5634 | 5650