Lines Matching +defs:color +defs:name
93 ;; The word "print", "spool" and "eps" in the command name determines when the
119 ;; The word "directory", "file", "buffer" or "region" in the command name
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
204 ;; languages there are rules about name formation and syntax. In this section
301 ;; The terminal name is controlled by `ebnf-terminal-regexp' and
303 ;; name besides that enclosed by `"'.
307 ;; (setq ebnf-terminal-regexp "[A-Z][_A-Z]*") ; upper case name
436 ;; ;[EPS open a new EPS file. The EPS file name has the form:
440 ;; mapped to form a valid file name (see documentation for
536 ;; it's not an existing production name.
611 ;; `ebnf-terminal-regexp' Specify how it's a terminal name.
624 ;; `ebnf-terminal-border-color' Specify border color for terminal box.
626 ;; `ebnf-production-name-p' Non-nil means production name will be
643 ;; `ebnf-non-terminal-border-color' Specify border color for non-terminal
658 ;; `ebnf-special-border-color' Specify border color for special box.
669 ;; `ebnf-except-border-color' Specify border color for except box.
680 ;; `ebnf-repeat-border-color' Specify border color for repeat box.
688 ;; `ebnf-color-p' Non-nil means use color.
692 ;; `ebnf-line-color' Specify flow line color.
721 ;; `ebnf-file-suffix-regexp' Specify file name suffix that contains
724 ;; `ebnf-eps-prefix' Specify EPS prefix file name.
807 ;; and name this group. So when you wish to apply these settings it's only
808 ;; needed to give the name.
1061 ;; NAME is a string that it's the element name.
1100 ;; `ebnf-production-name-p', `ebnf-stop-on-error',
1342 (defcustom ebnf-special-border-color "Black"
1343 "*Specify border color for special box."
1395 (defcustom ebnf-except-border-color "Black"
1396 "*Specify border color for except box."
1448 (defcustom ebnf-repeat-border-color "Black"
1449 "*Specify border color for repeat box."
1501 (defcustom ebnf-terminal-border-color "Black"
1502 "*Specify border color for terminal box."
1508 (defcustom ebnf-production-name-p t
1509 "*Non-nil means production name will be printed."
1540 NAME is the font name symbol.
1550 FOREGROUND is a foreground string color name; if it's nil, the default color is
1552 BACKGROUND is a background string color name; if it's nil, the default color is
1555 See `ps-font-info-database' for valid font name."
1634 (defcustom ebnf-non-terminal-border-color "Black"
1635 "*Specify border color for non-terminal box."
1811 "*Specify how it's a terminal name.
1813 If it's nil, the terminal name must be enclosed by `\"'.
1815 terminal name; terminal name may also be enclosed by `\"'.
1856 Normalize a name means that several contiguous spaces inside name become a
1866 "*Specify file name suffix that contains EBNF.
1875 "*Specify EPS prefix file name.
1900 ;; Printing color requires x-color-values.
1901 (defcustom ebnf-color-p (or (fboundp 'x-color-values) ; Emacs
1902 (fboundp 'color-instance-rgb-components)) ; XEmacs
1903 "*Non-nil means use color."
1916 (defcustom ebnf-line-color "Black"
1917 "*Specify flow line color."
2068 (list (read-file-name "Directory containing EBNF files (print): "
2090 the name of a file to save the PostScript image in, instead of sending
2095 the PostScript image in a file with that name. If FILENAME is a
2096 number, prompt the user for the name of the file to save in."
2122 (list (read-file-name "Directory containing EBNF files (spool): "
2171 (list (read-file-name "Directory containing EBNF files (EPS): "
2193 The EPS file name has the following form:
2200 <PRODUCTION> is the production name.
2201 Some characters in the production file name are replaced to
2202 produce a valid file name. For example, the production name
2204 file name used in this case will be \"ebnf--A_B_+_C.eps\".
2217 The EPS file name has the following form:
2224 <PRODUCTION> is the production name.
2225 Some characters in the production file name are replaced to
2226 produce a valid file name. For example, the production name
2228 file name used in this case will be \"ebnf--A_B_+_C.eps\".
2252 (list (read-file-name "Directory containing EBNF files (syntax): "
2300 ebnf-special-border-color %S
2305 ebnf-except-border-color %S
2310 ebnf-repeat-border-color %S
2317 ebnf-terminal-border-color %S
2322 ebnf-non-terminal-border-color %S
2323 ebnf-production-name-p %S
2342 ebnf-color-p %S
2344 ebnf-line-color %S
2360 ebnf-special-border-color
2365 ebnf-except-border-color
2370 ebnf-repeat-border-color
2377 ebnf-terminal-border-color
2382 ebnf-non-terminal-border-color
2383 ebnf-production-name-p
2402 ebnf-color-p
2404 ebnf-line-color
2433 ebnf-special-border-color
2438 ebnf-except-border-color
2443 ebnf-repeat-border-color
2450 ebnf-terminal-border-color
2455 ebnf-non-terminal-border-color
2456 ebnf-production-name-p
2475 ebnf-color-p
2477 ebnf-line-color
2496 (ebnf-special-border-color . "Black")
2501 (ebnf-except-border-color . "Black")
2506 (ebnf-repeat-border-color . "Black")
2513 (ebnf-terminal-border-color . "Black")
2518 (ebnf-non-terminal-border-color . "Black")
2519 (ebnf-production-name-p . t)
2538 (ebnf-color-p . (or (fboundp 'x-color-values) ; Emacs
2539 (fboundp 'color-instance-rgb-components))) ; XEmacs
2541 (ebnf-line-color . "Black")
2583 NAME is a symbol name style.
2585 INHERITS is a symbol name style from which the current style inherits
2611 (defun ebnf-insert-style (name inherits &rest values)
2615 (interactive "SStyle name: \nSStyle inherits from: \nXStyle values: ")
2616 (and (assoc name ebnf-style-database)
2617 (error "Style name already exists: %s" name))
2619 (error "Style inheritance name doesn't exist: %s" inherits))
2621 (cons (cons name (cons inherits (ebnf-check-style-values values)))
2626 (defun ebnf-delete-style (name)
2630 (interactive "SDelete style name: ")
2631 (or (assoc name ebnf-style-database)
2632 (error "Style name doesn't exist: %s" name))
2635 (and (eq (nth 1 (car db)) name)
2636 (error "Style name `%s' is inherited by `%s' style"
2637 name (nth 0 (car db))))
2639 (setq ebnf-style-database (assq-delete-all name ebnf-style-database)))
2643 (defun ebnf-merge-style (name &rest values)
2647 (interactive "SStyle name: \nXStyle values: ")
2648 (let ((style (or (assoc name ebnf-style-database)
2649 (error "Style name doesn't exist: %s" name)))
2746 (defvar ebnf-eps-buffer-name " *EPS*")
2762 "List of EPS file name during parsing.
2768 "Alist associating production name with EPS file name list.
2774 PRODUCTION is the production name.
2775 EPS-FILENAME is the EPS file name.
2927 % set color: [R G B] SetRGB
2933 % filling color area: [R G B] FillRGB
3680 dup length 0 gt % empty string ==> no production name
3779 % Initiliaze variables to avoid name-conflicting with document variables.
4090 (defun ebnf-format-color (format-str color default)
4091 (let* ((the-color (or color default))
4092 (rgb (ps-color-scale the-color)))
4097 the-color)))
4157 (defmacro ebnf-node-name (vec)
4195 (+ (* (length (ebnf-node-name ,prod))
4206 (let* ((ps-color-p (and ebnf-color-p (ps-color-device)))
4207 (ps-print-color-scale (if ps-color-p
4208 (float (car (ps-color-values "white")))
4214 (eps-buffer (get-buffer-create ebnf-eps-buffer-name))
4216 prod prod-name prod-width prod-height prod-list file-list)
4226 prod-name (ebnf-node-name prod)
4239 (if (setq prod-list (cdr (assoc prod-name
4246 (ebnf-eps-filename prod-name)))
4319 (let* ((ps-color-p (and ebnf-color-p (ps-color-device)))
4320 (ps-print-color-scale (if ps-color-p
4321 (float (car (ps-color-values "white")))
4421 ;; [production width-fun dim-fun entry height width name production action]
4425 (ps-output-string (if ebnf-production-name-p
4426 (ebnf-node-name production)
4431 (+ (if ebnf-production-name-p
4484 ;; [terminal width-fun dim-fun entry height width name]
4489 ;; [non-terminal width-fun dim-fun entry height width name]
4558 ;; [special width-fun dim-fun entry height width name]
4565 (let ((times (ebnf-node-name repeat))
4610 (ps-output-string (ebnf-node-name node))
4664 (defvar ebnf-map-name
4679 (aset new stri (aref ebnf-map-name (aref str stri)))
4721 (buffer-name)))))))))
4751 (string< (ebnf-node-name first)
4752 (ebnf-node-name second)))
4756 (string< (ebnf-node-name second)
4757 (ebnf-node-name first)))
4794 (defsubst ebnf-font-name (font) (nth 1 font))
4802 (defconst ebnf-font-name-select
4806 (defun ebnf-font-name-select (font)
4810 (name (ebnf-font-name font))
4811 (database (cdr (assoc name ps-font-info-database)))
4813 (error "Invalid font: %s" name))))
4814 (or (cdr (assoc (aref ebnf-font-name-select font-index)
4816 (error "Invalid attributes for font %s" name))))
4820 (let* ((name (ebnf-font-name font))
4821 (database (cdr (assoc name ps-font-info-database)))
4827 (error "Invalid font: %s" name))))
4957 "\n%%Creator: " (user-full-name) " (using ebnf2ps v" ebnf-version ")"
4963 (mapcar 'ebnf-font-name-select
4983 (setq filename (expand-file-name filename))
4998 (ebnf-font-name-select ebnf-production-font))
4999 (ebnf-format-color "/ForegroundP %s def %% %s\n"
5002 (ebnf-format-color "/BackgroundP %s def %% %s\n"
5010 (ebnf-font-name-select ebnf-terminal-font))
5011 (ebnf-format-color "/ForegroundT %s def %% %s\n"
5014 (ebnf-format-color "/BackgroundT %s def %% %s\n"
5021 (ebnf-format-color "/BorderColorT %s def %% %s\n"
5022 ebnf-terminal-border-color
5033 (ebnf-font-name-select ebnf-non-terminal-font))
5034 (ebnf-format-color "/ForegroundNT %s def %% %s\n"
5037 (ebnf-format-color "/BackgroundNT %s def %% %s\n"
5044 (ebnf-format-color "/BorderColorNT %s def %% %s\n"
5045 ebnf-non-terminal-border-color
5055 (ebnf-font-name-select ebnf-special-font))
5056 (ebnf-format-color "/ForegroundS %s def %% %s\n"
5059 (ebnf-format-color "/BackgroundS %s def %% %s\n"
5066 (ebnf-format-color "/BorderColorS %s def %% %s\n"
5067 ebnf-special-border-color
5077 (ebnf-font-name-select ebnf-except-font))
5078 (ebnf-format-color "/ForegroundE %s def %% %s\n"
5081 (ebnf-format-color "/BackgroundE %s def %% %s\n"
5088 (ebnf-format-color "/BorderColorE %s def %% %s\n"
5089 ebnf-except-border-color
5099 (ebnf-font-name-select ebnf-repeat-font))
5100 (ebnf-format-color "/ForegroundR %s def %% %s\n"
5103 (ebnf-format-color "/BackgroundR %s def %% %s\n"
5110 (ebnf-format-color "/BorderColorR %s def %% %s\n"
5111 ebnf-repeat-border-color
5127 (ebnf-format-color "/LineColor %s def %% %s\n"
5128 ebnf-line-color
5163 ;; [production width-fun dim-fun entry height width name production action]
5168 (height (+ (if ebnf-production-name-p
5181 ;; [terminal width-fun dim-fun entry height width name]
5189 ;; [non-terminal width-fun dim-fun entry height width name]
5197 ;; [special width-fun dim-fun entry height width name]
5207 (len (length (ebnf-node-name node))))
5220 (let ((times (ebnf-node-name repeat))
5418 ;; [terminal width-fun dim-fun entry height width name]
5419 ;; [non-terminal width-fun dim-fun entry height width name]
5421 ;; [special width-fun dim-fun entry height width name]
5508 (defun ebnf-eps-add-context (name)
5509 (let ((filename (ebnf-eps-filename name)))
5515 (defun ebnf-eps-remove-context (name)
5516 (let ((filename (ebnf-eps-filename name)))
5606 (defun ebnf-make-terminal (name)
5607 (ebnf-make-terminal1 name
5612 (defun ebnf-make-non-terminal (name)
5613 (ebnf-make-terminal1 name
5618 (defun ebnf-make-special (name)
5619 (ebnf-make-terminal1 name
5624 (defun ebnf-make-terminal1 (name gen-func dim-func)
5631 (let ((len (length name)))
5632 (cond ((> len 3) name)
5633 ((= len 3) (concat name " "))
5634 ((= len 2) (concat " " name " "))
5635 ((= len 1) (concat " " name " "))
5669 (defun ebnf-make-production (name prod action)
5676 name