Variable: ebnf-debug

ebnf-debug is a variable defined in ebnf2ps.el.gz.

Value

"\n% === begin EBNF procedures to help debugging\n\n% Mark visually current point:  string debug\n/debug\n{/-s- exch def\n currentpoint\n gsave -s- show grestore\n gsave\n 20 20 rlineto\n 0 -40 rlineto\n -40 40 rlineto\n 0 -40 rlineto\n 20 20 rlineto\n stroke\n grestore\n moveto\n}def\n\n% Show number value:  number string debug-number\n/debug-number\n{gsave\n 20 0 rmoveto show ([) show 60 string cvs show (]) show\n grestore\n}def\n\n% === end   EBNF procedures to help debugging\n\n"

Documentation

This is intended to help debugging PostScript programming.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebnf2ps.el.gz
(defconst ebnf-debug
  "
% === begin EBNF procedures to help debugging

% Mark visually current point:  string debug
/debug
{/-s- exch def
 currentpoint
 gsave -s- show grestore
 gsave
 20 20 rlineto
 0 -40 rlineto
 -40 40 rlineto
 0 -40 rlineto
 20 20 rlineto
 stroke
 grestore
 moveto
}def

% Show number value:  number string debug-number
/debug-number
{gsave
 20 0 rmoveto show ([) show 60 string cvs show (]) show
 grestore
}def

% === end   EBNF procedures to help debugging

"
  "This is intended to help debugging PostScript programming.")