/**
 * File:
 *   proc_swaps.scr
 * Summary:
 *   SCR Agent for reading /proc/swaps
 * Access:
 *   read
 * Authors:
 *   Johannes Buchhold <jbuch@suse.de>
 * 
 * Example: /proc/swaps
 *   Filename                        Type            Size    Used    Priority
 *  /dev/hda2                       partition       136544  82256   -1 
 *   
 *     ...
 **
 *   Read(.proc.swaps)
 *   ([ $["file":"/dev/hda2", "type": "partition", "size":"136544",
 *        "used": "82256" ,  "priority": "-1"], 
 *    
 *     ...
 *   ])
 *
 * $Id: proc_swaps.scr 13018 2003-12-11 12:52:53Z jhumpol $
 *
 */
.proc.swaps

`ag_anyagent(
  `Description (
      (`File("/proc/swaps")),	// real file name
      "Filename\n",			// Comment
      false,			// read-only
      (`List (
    	`Tuple (
    	  `file (`String("^\t ")),
    	  `Separator ("\t "),
    	  `type (`String("^\t ")),
    	  `Separator ("\t "),
    	  `size (`String("^\t ")),
	   `Separator ("\t "),
    	  `used (`String("^\t ")),
    	  `Separator ("\t "),
    	  `priority (`String("^ \t\n"))
    	),
    	"\n"
      ))
    )
)
