home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 March / PCWELT_3_2006.ISO / base / 05_common.mo / usr / share / elvis-2.2_0 / scripts / info2.ex < prev    next >
Encoding:
Text File  |  2004-02-22  |  1.3 KB  |  41 lines
  1. " This file tries to implement an "info:" protocol, for viewing info pages
  2. " inside elvis.  It doesn't quite succeed, but it comes close.
  3. " 
  4. " This assumes your info pages are stored in /usr/share/info.  If they're
  5. " stored someplace else, then you'll need to edit the "local d=..." line below.
  6.  
  7. alias readINFO {
  8.   local d=/usr/share/info
  9.   local report=0
  10.   local magic magicchar=^$.[* noignorecase
  11.   local m
  12.   if "!(/)2" == "/"
  13.   then {
  14.     r (d/"dir")
  15.     try %s/&/\&/g
  16.     try %s/</\</g
  17.     try %s/>/\>/g
  18.     try %s/^\* \([^:]*\): (\([^)]*\))\(.*\)\.$/* <a href="info:\2#\3">\1<\/a>: (\2)\3/
  19.     try %s/^\* \([^:]*\): (\([^)]*\))\(.*\)/* <a href="info:\2#\3">\1<\/a>: (\2)\3/
  20.   }
  21.   else {
  22.     if exists(d/"!2.info")
  23.     then r !!cat (d)/!2.info (d)/!2.info-* 2>/dev/null
  24.     eval r !!gzip -d -c (d)/!2.info*.gz (d)/!2.info-*.gz 2>/dev/null
  25.     try 1,/^File: .* Node: !(Top)3,/-1 d
  26.     try %s/&/\&/g
  27.     try %s/</\</g
  28.     try %s/>/\>/g
  29.   }
  30.   try %s/^$/<hr>/
  31.   try %s/^\(File: .* Node: \)\([^:,]*\)/+2s,.*,<a name="\2">\&<\/a>,/x
  32.   try g/^File: /s/\(Prev\|Next\|Up\): \([^:,]*\)/\1: <a href="#\2">\2<\/a>/g
  33.   try %s/<a href="#(dir)">/<a href="info:">/g
  34.   try %s/^\* \(.*\)::/* <a href="info:!2#\1">\1<\/a>::/
  35.   1i <pre>
  36.   $a </pre>
  37.   se bufdisplay=html noinitialsyntax nomod
  38. }
  39.  
  40. alias info sp info:!1
  41.