Lines Matching +defs:right +defs:arrow
684 ;; `ebnf-arrow-shape' Specify the arrow shape.
694 ;; `ebnf-arrow-extra-width' Specify extra width for arrow shape
697 ;; `ebnf-arrow-scale' Specify the arrow scale.
699 ;; `ebnf-user-arrow' Specify a sexp for user arrow shape (a
830 ;; extra is given by `ebnf-arrow-extra-width'.
1099 ;; - `ebnf-arrow-extra-width', `ebnf-arrow-scale',
1107 ;; with some Bison features (%right, %left and %prec pragmas). His suggestion
1281 `right' right justification
1284 (const left) (const right) (other :tag "center" center))
1641 (defcustom ebnf-arrow-shape 'hollow
1642 "*Specify the arrow shape.
1684 `user' See also documentation for variable `ebnf-user-arrow'.
1708 (defcustom ebnf-user-arrow nil
1709 "*Specify a sexp for user arrow shape (a PostScript code).
1712 code. PostScript code should draw a right arrow.
1714 The anatomy of a right arrow is:
1735 be used to generate your own arrow. As these variables are used along
1741 The variable `ebnf-user-arrow' is only used when `ebnf-arrow-shape' is set to
1923 (defcustom ebnf-arrow-extra-width
1924 (if (eq ebnf-arrow-shape 'none)
1927 "*Specify extra width for arrow shape drawing.
1930 overlap. It depens on `ebnf-arrow-shape' and `ebnf-line-width'."
1936 (defcustom ebnf-arrow-scale 1.0
1937 "*Specify the arrow scale.
1939 Values lower than 1.0, shrink the arrow.
1940 Values greater than 1.0, expand the arrow."
2326 ebnf-arrow-shape %s
2328 ebnf-user-arrow %s
2386 (ps-print-quote ebnf-arrow-shape)
2388 (ps-print-quote ebnf-user-arrow)
2459 ebnf-arrow-shape
2461 ebnf-user-arrow
2522 (ebnf-arrow-shape . 'hollow)
2524 (ebnf-user-arrow . nil)
2783 (defconst ebnf-arrow-shape-alist
2796 "Alist associating values for `ebnf-arrow-shape'.
2798 See documentation for `ebnf-arrow-shape'.")
3032 %>corner Right Descendent: height arrow corner_RD
3033 % _ | arrow
3035 % | | 1 - right
3044 % 1 - right
3060 [{cRD0-vector arrow get exec} % 0 - miter
3066 {/arrow exch def /h exch def
3071 %>corner Right Ascendent: height arrow corner_RA
3072 % | arrow
3074 % / | 1 - right
3083 % 1 - right
3099 [{cRA0-vector arrow get exec} % 0 - miter
3105 {/arrow exch def /h exch def
3110 %>corner Left Descendent: height arrow corner_LD
3111 % _ | arrow
3113 % | | 1 - right
3122 % 1 - right
3138 [{cLD0-vector arrow get exec} % 0 - miter
3144 {/arrow exch def /h exch def
3149 %>corner Left Ascendent: height arrow corner_LA
3150 % | arrow
3152 % \\ | 1 - right
3161 % 1 - right
3177 [{cLA0-vector arrow get exec} % 0 - miter
3183 {/arrow exch def /h exch def
3299 % string width begin-right
3300 /begin-right
3307 % end-right
3308 /end-right
3423 begin-right
3425 end-right
3475 begin-right
3477 end-right
3527 begin-right
3529 end-right
3576 /right-direction
3624 /RRP{begin-repeat right-direction end-repeat}def
3660 /REX{begin-except right-direction end-except}def
3800 /arrow 0 def /xp 0 def
5120 (ebnf-format-float ebnf-arrow-extra-width))
5122 (ebnf-format-float ebnf-arrow-scale))
5131 (ebnf-shape-value ebnf-arrow-shape
5132 ebnf-arrow-shape-alist))
5137 (let ((arrow (eval ebnf-user-arrow)))
5138 (if (stringp arrow)
5139 arrow
5210 (ebnf-node-width node (+ ebnf-basic-width ebnf-arrow-extra-width space
5231 ebnf-arrow-extra-width
5253 ebnf-arrow-extra-width
5392 ;; right justify terms
5393 ((eq ebnf-justify-sequence 'right)
5465 ;; right justify terms
5466 ((eq ebnf-justify-sequence 'right)
5496 ;; insert empty at beginning ==> right justify
5582 (defun ebnf-trim-right (str)