/**
 * File:
 *   run_swapon_s.scr
 * Summary:
 *   SCR Agent for reading the result from "/sbin/swapon -s"
 * Access:
 *   read-only
 * Authors:
 *   Unknown <yast2-hacker@suse.de>
 * See:
 *   anyagent
 *   libscr
 *   man swapon(8)
 *   man swapoff(8)
 *   man mkswap(8)
 * Example:
 *   Read(.run.swapon_s)
 *   ($["/sda2":"                       partition\t265064\t2632\t-1"])
 * 
 * $Id: run_swapon_s.scr 13018 2003-12-11 12:52:53Z jhumpol $
 *
 * Returns a <b>map</b> of swap partitions. The key is the device file 
 * (minus /dev), the value is the remaining information as string.
 */
.run.swapon_s

`ag_anyagent(
  `Description (
      (`Run("/sbin/swapon -s")),
      "\n",			// Comment
      true,			// read-only
      (`Tuple (
	  `Choice (
	    [ "/dev", `Sequence (`Name(`String("^ \t")), `Value(`String("^\n"))) ],
	    [ "", `String("^\n") ]
	  ),
	  `Continue ("\n")
      ))
  )
)
