search for: bootloader_type_of_filenam

...ub_config = let grub2_mkconfig_cmd = let elems = [ @@ -333,34 +341,42 @@ object (self) ignore (g#command [| grub2_mkconfig_cmd; "-o"; grub_config |]) end +(* We can determine if the bootloader config file is grub 1 or + * grub 2 just by looking at the filename. + *) +let bootloader_type_of_filename path = + if String.is_suffix path "/grub.cfg" then + Some Grub2 + else if String.is_suffix path "/grub.conf" || + String.is_suffix path "/menu.lst" then + Some Grub1 + else + None + +(* Where to start searching for bootloaders. *) +let bootloader_...

...; let elems = [ > @@ -333,34 +341,42 @@ object (self) > ignore (g#command [| grub2_mkconfig_cmd; "-o"; grub_config |]) > end > > +(* We can determine if the bootloader config file is grub 1 or > + * grub 2 just by looking at the filename. > + *) > +let bootloader_type_of_filename path = > + if String.is_suffix path "/grub.cfg" then > + Some Grub2 > + else if String.is_suffix path "/grub.conf" || > + String.is_suffix path "/menu.lst" then > + Some Grub1 > + else > + None Our String.is_suffix is a does...

...= + try List.map ((^) mp) (Array.to_list (g#find mp)) + with G.Error msg -> + error (f_"could not find bootloader mount point (%s): %s") mp msg in + + (* We can determine if the bootloader config file is grub 1 or + * grub 2 just by looking at the filename. + *) + let bootloader_type_of_filename path = + match last_part_of path '/' with + | Some "grub.cfg" -> Some Grub2 + | Some ("grub.conf" | "menu.lst") -> Some Grub1 + | Some _ + | None -> None + in + + let grub_config, typ = + let rec loop = function + | [] -> e...

...y.to_list (g#find mp)) > + with G.Error msg -> > + error (f_"could not find bootloader mount point (%s): %s") mp msg in > + > + (* We can determine if the bootloader config file is grub 1 or > + * grub 2 just by looking at the filename. > + *) > + let bootloader_type_of_filename path = > + match last_part_of path '/' with > + | Some "grub.cfg" -> Some Grub2 > + | Some ("grub.conf" | "menu.lst") -> Some Grub1 > + | Some _ > + | None -> None > + in > + > + let grub_config, typ = > +...

...= + try List.map ((^) mp) (Array.to_list (g#find mp)) + with G.Error msg -> + error (f_"could not find bootloader mount point (%s): %s") mp msg in + + (* We can determine if the bootloader config file is grub 1 or + * grub 2 just by looking at the filename. + *) + let bootloader_type_of_filename path = + match last_part_of path '/' with + | Some "grub.cfg" -> Some Grub2 + | Some ("grub.conf" | "menu.lst") -> Some Grub1 + | Some _ + | None -> None + in + + let grub_config, typ = + let rec loop = function + | [] -> e...

...g -> > >>+ error (f_"could not find bootloader mount point (%s): %s") mp msg in > >>+ > >>+ (* We can determine if the bootloader config file is grub 1 or > >>+ * grub 2 just by looking at the filename. > >>+ *) > >>+ let bootloader_type_of_filename path = > >>+ match last_part_of path '/' with > >>+ | Some "grub.cfg" -> Some Grub2 > >>+ | Some ("grub.conf" | "menu.lst") -> Some Grub1 > >>+ | Some _ > >>+ | None -> None > >>+ i...

...= + try List.map ((^) mp) (Array.to_list (g#find mp)) + with G.Error msg -> + error (f_"could not find bootloader mount point (%s): %s") mp msg in + + (* We can determine if the bootloader config file is grub 1 or + * grub 2 just by looking at the filename. + *) + let bootloader_type_of_filename path = + match last_part_of path '/' with + | Some "grub.cfg" -> Some Grub2 + | Some ("grub.conf" | "menu.lst") -> Some Grub1 + | Some _ + | None -> None + in + + let grub_config, typ = + let rec loop = function + | [] -> e...

Augeas 1.7.0 was released a couple of days ago. By encouraging everyone to upgrade to this we can drop several calls to aug_transform and also our custom copies of two lenses, and a lot of related code. Rich.