Lines Matching +defs:range +defs:max
599 ;; `ebnf-horizontal-max-height' Non-nil means to use maximum production
895 ;; : : } max width } width
926 ;; : : } max width } width
947 ;; : : } max width } width
1006 ;; ====+ | X | - | y | +==== } max height ....... } height
1248 (defcustom ebnf-horizontal-max-height nil
2098 (ebnf-print-region (point-min) (point-max) filename))
2147 (ebnf-spool-region (point-min) (point-max)))
2209 (ebnf-eps-region (point-min) (point-max)))
2273 (ebnf-syntax-region (point-min) (point-max)))
2330 ebnf-horizontal-max-height %S
2390 ebnf-horizontal-max-height
2463 ebnf-horizontal-max-height
2526 (ebnf-horizontal-max-height . nil)
2755 (defvar ebnf-eps-max-height 0.0)
2756 (make-variable-buffer-local 'ebnf-eps-max-height)
2757 (defvar ebnf-eps-max-width 0.0)
2758 (make-variable-buffer-local 'ebnf-eps-max-width)
4193 (defmacro ebnf-max-width (prod)
4194 `(max (ebnf-node-width ,prod)
4227 prod-width (ebnf-max-width prod)
4236 ebnf-eps-max-width prod-width
4237 ebnf-eps-max-height prod-height)
4286 (goto-char (point-max))
4292 ebnf-eps-max-width prod-width
4293 ebnf-eps-max-height prod-height))
4297 (setq ebnf-eps-max-width (+ ebnf-eps-max-width
4300 ebnf-eps-max-height (max ebnf-eps-max-height prod-height)))
4303 (ebnf-eop-vertical ebnf-eps-max-height)
4304 (setq ebnf-eps-upper-x (max ebnf-eps-upper-x ebnf-eps-max-width)
4306 ebnf-eps-max-height
4309 ebnf-eps-max-height))
4310 ebnf-eps-max-width prod-width
4311 ebnf-eps-max-height prod-height))
4328 (ps-generate (current-buffer) (point-min) (point-max)
4338 (if ebnf-horizontal-max-height
4339 (ebnf-generate-with-max-height)
4340 (ebnf-generate-without-max-height))
4344 (defun ebnf-generate-with-max-height ()
4347 next-line max-height prod the-width)
4352 max-height (ebnf-node-height prod))
4353 (ebnf-begin-line prod (ebnf-max-width prod))
4357 (setq the-width (ebnf-max-width prod))
4359 (setq max-height (max max-height (ebnf-node-height prod))
4364 (ebnf-newline max-height)
4368 (ebnf-eop-horizontal (ebnf-max-width prod))
4371 (ebnf-eop-vertical max-height))))
4374 (defun ebnf-generate-without-max-height ()
4377 max-height prod bef-width cur-width)
4381 max-height (ebnf-node-height prod)
4382 bef-width (ebnf-max-width prod))
4388 (setq cur-width (ebnf-max-width prod))
4394 max-height (max max-height (ebnf-node-height prod))
4398 (ebnf-eop-vertical max-height)
4400 (ebnf-newline max-height))))
4652 ;; function `ebnf-range-regexp' is used to avoid a bug of `skip-chars-forward'
4656 (defun ebnf-range-regexp (prefix from to)
4692 (let ((ebnf-limit (max from to))
4713 (setq the-point (max (1- (point)) (point-min))
4867 (min (max ebnf-entry-percentage 0.0) 1.0)
4933 (goto-char (point-max))
4943 (setq ebnf-eps-upper-x (max ebnf-eps-upper-x ebnf-eps-max-width)
4945 ebnf-eps-max-height
4948 ebnf-eps-max-height)))
4979 (goto-char (point-max))
4985 (write-region (point-min) (point-max) filename))
5227 (ebnf-node-height repeat (+ (max (ebnf-node-height element)
5245 (ebnf-node-entry except (+ (max (ebnf-node-entry factor)
5248 (ebnf-node-height except (+ (max (ebnf-node-height factor)
5277 width (max (ebnf-node-width node) width)))
5313 (width (max (if sep-part
5339 (width (max (if sep-part
5363 above (max above entry)
5364 below (max below (- (ebnf-node-height node) entry))
5549 ;; replace the range "\240-\377" (see `ebnf-range-regexp').
5550 (defconst ebnf-8-bit-chars (ebnf-range-regexp "" ?\240 ?\377))