l4/pkg/ocaml/contrib/tools/Characters

   1 # Characters
   2
   3 # $Id: Characters 2629 1999-11-29 19:04:21Z doligez $
   4
   5 # Usage:
   6 #    Characters n1 to n2
   7 #
   8 # Select the characters in the given interval, counting from the first
   9 # character of the current line, in the active window.
  10 #
  11 # Typical use is an error message of the form:
  12 #    File fff; Line lll; Characters yyy to zzz
  13
  14 exit 1 if {#}  3
  15
  16 Find Æ¤!{1}:¤!`evaluate {3} - {1}` "{active}"