ACC SHELL

/**
 * File:
 *   proc_cmdline.scr
 * Summary:
 *   SCR Agent for reading /proc/mounts
 * Access:
 *   read-only
 * Authors:
 *   Unknown <yast2-hacker@suse.de>
 * See:
 *   anyagent
 *   libscr
 *   man mount
 * Example:
 *   Read(.proc.mounts)
 *   ([$["file":"/", 
 *       "freq":0, 
 *       "mntops":"rw", 
 *       "passno":0, 
 *       "spec":"/dev/root", 
 *       "vfstype":"reiserfs"], 
 *     $["file":"/proc", 
 *       "freq":0, 
 *       "mntops":"rw", 
 *       "passno":0, 
 *       "spec":"proc", 
 *       "vfstype":"proc"], 
 *     ...
 *    ])
 * 
 * $Id: proc_mounts.scr 61236 2010-03-10 15:39:50Z mvidner $
 *
 * Returns a <b>list of maps</b>. Each map (list-entry) corresponds to i
 * one mount.
 * Keys for the maps are: "spec", "file", "vfstype", "mntops", "freq", "passno"
 */
.proc.mounts

`ag_anyagent(
  `Description (
	(`File("/proc/mounts")),     // real file name
	"#\n",                    // Comment
	false,                    // read-only
	(`List (
	    `Tuple (
		`spec (`String("^\t ")),
		`Separator ("\t "),
		`file (`String("^\t ")),
		`Separator ("\t "),
		`vfstype (`String("^\t ")),
		`Separator ("\t "),
		`mntops (`String("^ \t\n")),
		`Optional(`Whitespace()),
		`Optional(`freq (`Number())),
		`Optional(`Whitespace()),
		`Optional(`passno (`Number()))
		),
	    "\n"
	    ))
	)
)