lenses/termcap.aug

   1 (*
   2 Module: Termcap
   3   Parses termcap capability database
   4
   5 Author: Matt Dainty <matt@bodgit-n-scarper.com>
   6
   7 About: Reference
   8        - man 5 termcap
   9
  10 Each line represents a record consisting of a number of ':'-separated fields
  11 the first of which is the name or identifier for the record. The name can
  12 optionally be split by '|' and each subsequent value is considered an alias
  13 of the first. Records can be split across multiple lines with '\'.
  14
  15 *)
  16
  17 module Termcap =
  18   autoload xfm
  19
  20   (* All termcap capabilities are two characters, optionally preceded by *)
  21   (* upto two periods and the only types are boolean, numeric or string  *)
  22   let cfield = /\.{0,2}([a-zA-Z0-9]{2}|[@#%&*!][a-zA-Z0-9]|k;)(#?@|#[0-9]+|=([^:\\\\^]|\\\\[0-7]{3}|\\\\[:bBcCeEfFnNrRstT0\\^]|\^.)*)?/
  23
  24   let lns = ( Util.empty | Getcap.comment | Getcap.record cfield )*
  25
  26   let filter = incl "/etc/termcap"
  27              . incl "/usr/share/misc/termcap"
  28              . Util.stdexcl
  29
  30   let xfm = transform lns filter
  31
  32 (* Local Variables: *)
  33 (* mode: caml       *)
  34 (* End:             *)