# HG changeset patch
# User František Kučera <franta-hg@frantovo.cz>
# Date 1409578576 -7200
# Node ID e4e0975dbe850e6f0e5fcf54ac30ac103bfea4b7
# Parent  ff176e13e9b1dbbc2feaac18cbc139dfdf9c464e
prototyp: fstab

diff -r ff176e13e9b1 -r e4e0975dbe85 prototyp/prototyp.sql
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/prototyp/prototyp.sql	Mon Sep 01 15:36:16 2014 +0200
@@ -0,0 +1,58 @@
+-- CREATE SCHEMA unix_sql_api;
+
+SET search_path TO unix_sql_api;
+
+DROP VIEW IF EXISTS fstab;
+DROP FUNCTION IF EXISTS fstab();
+DROP TYPE IF EXISTS unix_sql_api_fstab;
+
+CREATE TYPE unix_sql_api_fstab AS (
+	device VARCHAR,
+	device_type VARCHAR,
+	device_value VARCHAR,
+	mount_point VARCHAR,
+	type VARCHAR,
+	types VARCHAR[],
+	options VARCHAR[],
+	dump INTEGER,
+	pass INTEGER
+);
+
+CREATE OR REPLACE FUNCTION fstab()
+RETURNS SETOF unix_sql_api_fstab AS $$
+	use strict;
+	use warnings;
+	
+	open(FSTAB, "<", "/etc/fstab") or die $!;
+	
+	while (<FSTAB>) {
+		if (/^([^\s#]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+(\d+)\s+(\d+)\s*$/) {
+			
+			my $device_spec_type;
+			my $device_spec_value;
+			{
+				if ($1 =~ /([^=]+)=(.*)/) {
+					($device_spec_type, $device_spec_value) = ($1, $2);
+				}
+			}
+			
+			return_next({
+				device => $1,
+				device_type => $device_spec_type,
+				device_value => $device_spec_value,
+				mount_point => $2,
+				type => $3,
+				types => [split(",", $3)],
+				options => [split(",", $4)],
+				dump => $5,
+				pass => $6
+			});
+		}
+	}
+	
+	return undef;
+$$ LANGUAGE plperlu;
+
+CREATE OR REPLACE VIEW fstab AS
+	SELECT * FROM fstab()
+;