File 0001-add_simple_handling_of_os-release.patch of Package supermin

Overview Repositories Revisions Requests Users Attributes Meta

File 0001-add_simple_handling_of_os-release.patch of Package supermin (Revision 80ba068daef49ec0dac9fb17ca31f780)

Currently displaying revision 80ba068daef49ec0dac9fb17ca31f780 , Show latest

From libguestfs-bounces@redhat.com Wed Aug 31 13:20:03 2016
Return-Path: <libguestfs-bounces@redhat.com>
Delivered-To: unknown
Received: from gwmail.emea.novell.com (143.186.119.90:993) by laptop.vms
 with IMAP4-SSL; 31 Aug 2016 13:20:03 -0000
Received: from prv-mx.provo.novell.com (novprvlin0681.provo.novell.com
 [130.57.1.19]) by prv-mh.provo.novell.com with ESMTP (NOT encrypted); Wed,
 31 Aug 2016 07:09:26 -0600
Received: from mx6-phx2.redhat.com (209.132.183.39) by
 prv-mx.provo.novell.com (130.57.1.10) GWAVA SMTP; Wed, 31 Aug 2016 07:10:12
 -0600
X-Spam_ID:
 str=0001.0A010202.57C6D706.0196:SCFSTAT2484459,ss=1,re=-4.000,recu=0.000,reip=0.000,cl=1,cld=1,fgs=0
X-GWAVADAT:
 <keymat><rkey>gvWn3QsGV50RMxxr</rkey><gkey>9c16c207872a47573356cfe20b727ec6b327e3bac2a6eaa5ec59d5e9d6aa8342</gkey><objectid>17boib3.17boib3.v6</objectid></keymat>
Received: from lists01.pubmisc.prod.ext.phx2.redhat.com
 (lists01.pubmisc.prod.ext.phx2.redhat.com [10.5.19.33]) by
 mx6-phx2.redhat.com (8.14.4/8.14.4) with ESMTP id u7VD5h2P022390; Wed, 31
 Aug 2016 09:05:44 -0400
Received: from int-mx09.intmail.prod.int.phx2.redhat.com
	(int-mx09.intmail.prod.int.phx2.redhat.com [10.5.11.22])
	by lists01.pubmisc.prod.ext.phx2.redhat.com (8.13.8/8.13.8) with ESMTP
	id u7VD5gWQ007141 for <libguestfs@listman.util.phx.redhat.com>;
	Wed, 31 Aug 2016 09:05:42 -0400
Received: from thyrus.usersys.redhat.com (dhcp131-138.brq.redhat.com
	[10.34.131.138])
	by int-mx09.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP
	id u7VD5eAY004091
	(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-GCM-SHA384 bits=256
	verify=NO)
	for <libguestfs@redhat.com>; Wed, 31 Aug 2016 09:05:42 -0400
From: Pino Toscano <ptoscano@redhat.com>
To: libguestfs@redhat.com
Date: Wed, 31 Aug 2016 15:05:35 +0200
Message-Id: <1472648736-5613-2-git-send-email-ptoscano@redhat.com>
In-Reply-To: <1472648736-5613-1-git-send-email-ptoscano@redhat.com>
References: <1472648736-5613-1-git-send-email-ptoscano@redhat.com>
X-Scanned-By: MIMEDefang 2.68 on 10.5.11.22
X-loop: libguestfs@redhat.com
Subject: [Libguestfs] [PATCH 1/2] Add simple handling of /etc/os-release
X-BeenThere: libguestfs@redhat.com
X-Mailman-Version: 2.1.12
Precedence: junk
List-Id: Discussion and development of libguestfs <libguestfs.redhat.com>
List-Unsubscribe: <https://www.redhat.com/mailman/options/libguestfs>,
	<mailto:libguestfs-request@redhat.com?subject=unsubscribe>
List-Archive: <https://www.redhat.com/archives/libguestfs>
List-Post: <mailto:libguestfs@redhat.com>
List-Help: <mailto:libguestfs-request@redhat.com?subject=help>
List-Subscribe: <https://www.redhat.com/mailman/listinfo/libguestfs>,
	<mailto:libguestfs-request@redhat.com?subject=subscribe>
MIME-Version: 1.0
Content-Type: text/plain; charset="us-ascii"
Content-Transfer-Encoding: 7bit
Sender: libguestfs-bounces@redhat.com
Errors-To: libguestfs-bounces@redhat.com
X-getmail-retrieved-from-mailbox: INBOX
X-Evolution-Source: 1323246076.1957.25@linux-smhm.site

Introduce a simple module to read and cache fields of /etc/os-release
that might be needed, and there is only ID for now.
---
 src/Makefile.am    |  3 +++
 src/os_release.ml  | 78 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 src/os_release.mli | 26 ++++++++++++++++++
 3 files changed, 107 insertions(+)
 create mode 100644 src/os_release.ml
 create mode 100644 src/os_release.mli

diff --git a/src/Makefile.am b/src/Makefile.am
index 11adf31..767117f 100644
--- a/src/Makefile.am
+++ b/src/Makefile.am
@@ -47,6 +47,8 @@ SOURCES = \
 	utils.ml \
 	utils.mli \
 	types.ml \
+	os_release.ml \
+	os_release.mli \
 	package_handler.ml \
 	package_handler.mli \
 	rpm.ml \
@@ -71,6 +73,7 @@ SOURCES_ML = \
 	config.ml \
 	utils.ml \
 	types.ml \
+	os_release.ml \
 	package_handler.ml \
 	rpm.ml \
 	dpkg.ml \
diff --git a/src/os_release.ml b/src/os_release.ml
new file mode 100644
index 0000000..b2de259
--- /dev/null
+++ b/src/os_release.ml
@@ -0,0 +1,78 @@
+(* supermin 5
+ * Copyright (C) 2016 Red Hat Inc.
+ *
+ * This program 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 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program 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 this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *)
+
+open Utils
+
+let split sep str =
+  let len = String.length sep in
+  let seplen = String.length str in
+  let i = find str sep in
+  if i = -1 then str, ""
+  else (
+    String.sub str 0 i, String.sub str (i + len) (seplen - i - len)
+  )
+
+type os_release = {
+  id : string;
+}
+
+let data = ref None
+let parsed = ref false
+
+let rec get_data () =
+  if !parsed = false then (
+    data := parse ();
+    parsed := true;
+  );
+
+  !data
+
+and parse () =
+  let file = "/etc/os-release" in
+  if Sys.file_exists file then (
+    let chan = open_in file in
+    let lines = input_all_lines chan in
+    close_in chan;
+    let lines = List.filter ((<>) "") lines in
+    let lines = List.filter (fun s -> s.[0] <> '#') lines in
+
+    let id = ref "" in
+
+    List.iter (
+      fun line ->
+        let field, value = split "=" line in
+        let value =
+          let len = String.length value in
+          if len > 1 &&
+             ((value.[0] = '"' && value.[len-1] = '"') ||
+              (value.[0] = '\'' && value.[len-1] = '\'')) then
+            String.sub value 1 (len - 2)
+          else value in
+        match field with
+        | "ID" -> id := value
+        | _ -> ()
+    ) lines;
+
+    Some { id = !id; }
+  ) else
+    None
+
+let get_id () =
+  match get_data () with
+  | None -> ""
+  | Some d -> d.id
diff --git a/src/os_release.mli b/src/os_release.mli
new file mode 100644
index 0000000..2ae349b
--- /dev/null
+++ b/src/os_release.mli
@@ -0,0 +1,26 @@
+(* supermin 5
+ * Copyright (C) 2016 Red Hat Inc.
+ *
+ * This program 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 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program 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 this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+ *)
+
+(** Handling of /etc/os-release. *)
+
+val get_id : unit -> string
+(** Get the value of the "ID" field from the /etc/os-release file
+    on the current system.
+
+    An empty string is returned if the file does not exist or cannot
+    be read. *)
-- 
2.7.4

_______________________________________________
Libguestfs mailing list
Libguestfs@redhat.com
https://www.redhat.com/mailman/listinfo/libguestfs

Places

File 0001-add_simple_handling_of_os-release.patch of Package supermin (Revision 80ba068daef49ec0dac9fb17ca31f780)

Places