Lines Matching +defs:end +defs:of +defs:output
12 ;; This file is part of GNU Emacs.
15 ;; it under the terms of the GNU General Public License as published by
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
24 ;; You should have received a copy of the GNU General Public License
33 report the version of Emacs, if any, that ebnf2ps was running with.
64 ;; This will generate ebnf2ps.elc, which will be loaded instead of ebnf2ps.el.
73 ;; chart images of Emacs buffers:
106 ;; printing lots of small files to save paper that would otherwise be wasted on
107 ;; banner pages, and to make it easier to find your output at the printer (it's
110 ;; images, you can intermix the spooling of ebnf2ps and ps-print images.
112 ;; ebnf2ps use the same hook of ps-print in the `kill-emacs-hook' so that you
120 ;; determines how much of the buffer is printed:
152 ;; or substitute one of the other four ebnf- commands. The command will
158 ;; it will save the PostScript image to a file instead of sending it to the
159 ;; printer; you will be prompted for the name of the file to save the image to.
166 ;; When invoked this way, `ebnf-despool' will prompt you for the name of the
172 ;; Any of the `ebnf-' commands can be bound to keys. Here are some examples:
183 ;; example, you have a directory with a lot of files containing the EBNF to be
193 ;; (setq load-path (append (list "/dir/of/ebnf2ps") load-path))
211 ;; ; comment (until end of line)
228 ;; C+ one or more occurrences of C
229 ;; {C}+ one or more occurrences of C
230 ;; {C}* zero or more occurrences of C
231 ;; {C} zero or more occurrences of C
285 ;; ;; that is, an integer is a sequence of one or more decimal digits.
288 ;; ;; that is, a comment starts with the character `;' and terminates at end
289 ;; ;; of line. Also, it only accepts printable characters (including 8-bit
302 ;; `ebnf-case-fold-search', so it's possible to match other kind of terminal
322 ;; The end of production is controlled by `ebnf-lex-eop-char'. The default
339 ;; ("International Standard of the ISO EBNF Notation").
480 ;; be drawn in the same line instead of C and B.
503 ;; For an example of EPS action when executing `ebnf-eps-buffer' or
556 ;; `ebnf-syntax-directory' does a syntactic analysis of your EBNF files in the
559 ;; `ebnf-syntax-file' does a syntactic analysis of your EBNF in the given
562 ;; `ebnf-syntax-buffer' does a syntactic analysis of your EBNF in the current
565 ;; `ebnf-syntax-region' does a syntactic analysis of your EBNF in the current
584 ;; It is evaluated on each beginning of production.
587 ;; It is evaluated on each beginning of page.
593 ;; Below it's shown a brief description of ebnf2ps options, please, see the
608 ;; `ebnf-justify-sequence' Specify justification of terms in a
707 ;; `ebnf-lex-eop-char' Specify the end of production
736 ;; of rules.
795 ;; `ebnf-merge-style' Merge values of style NAME with style VALUES.
806 ;; These commands help to put together a lot of variable settings in a group
810 ;; There is also a notion of simple inheritance of style: if you declare that
811 ;; style A inherits from style B, all settings of B are applied first and then
812 ;; the settings of A are applied. This is useful when you wish to modify some
813 ;; aspects of an existing style, but at same time wish to keep it unmodified.
821 ;; Below it is the layout of minimum area to draw each element, and it's used
901 ;; 1. An empty alternative has zero of height.
1034 ;; of current buffer and generates an intermediate representation. The second
1038 ;; The intermediate representation is a list of vectors, the vector element
1063 ;; PRODUCTION and ELEMENT are vectors that represents sub-elements of current
1065 ;; LIST is a list of vector that represents the list part for alternatives and
1069 ;; TIMES is a string representing the number of times that ELEMENT is repeated
1088 ;; . Handle situations when syntactic chart is out of paper.
1129 Elements of ALIST that are not conses are ignored."
1276 "*Specify justification of terms in a sequence inside alternatives.
1541 ATTRIBUTE is one of the following symbols:
1545 strikeout - like underline, but the line is in middle of text.
1714 The anatomy of a right arrow is:
1736 PostScript execution, *DON'T* modify the values of them. Instead, copy the
1766 (\"International Standard of the ISO EBNF Notation\").
1802 "*Specify the end of production character.
1958 The advantage of using float format is that ebnf2ps generates a little short
1990 It's interesting to set this variable if your Yacc/Bison grammar has a lot of
1998 "*Non-nil means optimize syntactic chart of rules.
2059 "Generate and print a PostScript syntactic chart image of DIRECTORY.
2075 "Generate and print a PostScript syntactic chart image of the file FILE.
2087 "Generate and print a PostScript syntactic chart image of the buffer.
2090 the name of a file to save the PostScript image in, instead of sending
2096 number, prompt the user for the name of the file to save in."
2103 "Generate and print a PostScript syntactic chart image of the region.
2113 "Generate and spool a PostScript syntactic chart image of DIRECTORY.
2129 "Generate and spool a PostScript syntactic chart image of the file FILE.
2141 "Generate and spool a PostScript syntactic chart image of the buffer.
2152 "Generate a PostScript syntactic chart image of the region and spool locally.
2190 "Generate a PostScript syntactic chart image of the buffer in an EPS file.
2214 "Generate a PostScript syntactic chart image of the region in an EPS file.
2243 "Do a syntactic analysis of the files in DIRECTORY.
2259 "Do a syntactic analysis of the named FILE.
2271 "Do a syntactic analysis of the current buffer."
2278 "Do a syntactic analysis of region."
2352 ;;; ebnf2ps.el - end of settings
2484 "List of valid symbol custom variable.")
2588 This is a simple inheritance of style: if you declare that
2589 style A inherits from style B, all settings of B are applied
2590 first, and then the settings of A are applied. This is useful
2591 when you wish to modify some aspects of an existing style, but
2597 VALUE is a sexp which will be evaluated to set the value of VAR.
2644 "Merge values of style NAME with style VALUES.
2652 ;; modify value of existing variables
2710 "Pop a style from the stack of pushed styles and set it as the current style.
2762 "List of EPS file name during parsing.
2875 % === end EBNF procedures to help debugging
3307 % end-right
3308 /end-right
3321 % end-left
3322 /end-left
3425 end-right
3436 end-left
3477 end-right
3488 end-left
3529 end-right
3540 end-left
3566 /end-direction
3581 end-direction
3589 end-direction
3612 % string end-repeat |- x y
3613 /end-repeat
3624 /RRP{begin-repeat right-direction end-repeat}def
3627 /LRP{begin-repeat left-direction end-repeat}def
3649 % x-width end-except |- x y
3650 /end-except
3660 /REX{begin-except right-direction end-except}def
3663 /LEX{begin-except left-direction end-except}def
3768 % === end EBNF engine
3816 % -- except for minus instead of hyphen at code 055.
3867 }forall % Copy each of the symbols from the old dictionary
3915 end % Stop using the font as the current dictionary
3965 % top of stack: fill-or-not
4053 end
4060 /#ebnf2ps#end{showpage #ebnf2ps#save restore end}def
4067 (defconst ebnf-eps-end
4068 "#ebnf2ps#end
4071 "EBNF EPS end")
4212 (old-ps-output (symbol-function 'ps-output))
4213 (old-ps-output-string (symbol-function 'ps-output-string))
4217 ;; redefines `ps-output' and `ps-output-string'
4218 (defalias 'ps-output 'ebnf-eps-output)
4219 (defalias 'ps-output-string 'ps-output-string-prim)
4258 ;; restore `ps-output' and `ps-output-string'
4259 (defalias 'ps-output old-ps-output)
4260 (defalias 'ps-output-string old-ps-output-string)
4425 (ps-output-string (if ebnf-production-name-p
4428 (ps-output " "
4437 (ps-output "EOS\n"))
4447 (ps-output (ebnf-format-float (- entry (ebnf-node-entry (car alt))))
4452 (ps-output (format "%d " nlist)
4466 (ps-output "EOS\n"))
4471 (ps-output "BOS\n")
4481 (ps-output "EOS\n"))
4502 (ps-output (ebnf-format-float
4509 (ps-output "EOS\n")))
4520 (ps-output (ebnf-format-float entry width)
4528 (ps-output "EOS\n"))
4543 (ps-output (ebnf-format-float entry
4555 (ps-output "EOS\n"))
4567 (ps-output-string times)
4568 (ps-output " "
4581 (ps-output "EOS\n"))
4589 (ps-output (ebnf-format-float
4606 (ps-output "EOS\n"))
4610 (ps-output-string (ebnf-node-name node))
4611 (ps-output " " (ebnf-format-float (ebnf-node-width node))
4652 ;; function `ebnf-range-regexp' is used to avoid a bug of `skip-chars-forward'
4684 (defun ebnf-eps-output (&rest args)
4729 ;; generated output OK
4761 (ps-output (ebnf-format-float width) " EA\n"))
4765 (ps-output (ebnf-format-float height) " vm\n"))
4769 (ps-output (ebnf-format-float width) " hm\n"))
4777 (ps-output (ebnf-format-float (+ height ebnf-production-vertical-space))
4782 (ps-output (ebnf-format-float (+ width ebnf-production-horizontal-space))
4790 (ps-output "\n")))
4920 (ps-flush-output)
4926 (save-excursion (end-of-line) (point))
4930 (end-of-line)
4936 (ps-output "\n")))))
4980 (insert ebnf-eps-end)
5141 "\n% === end EBNF settings\n\n"
5492 ;; insert empty at end ==> left justify
5568 (buffer-substring-no-properties (point) (ebnf-end-of-string)))
5571 (defun ebnf-end-of-string ()