Lines Matching +defs:default +defs:port
155 "Set variables as in `custom-set-default' and call FUNCTIONS afterwards."
156 (if (fboundp 'custom-set-default)
157 (custom-set-default variable value)
158 (set-default variable value))
354 Library directory: directory of default library
355 Makefile name : name of Makefile (default is \"Makefile\")
394 \(a default file name message will be printed out instead, does not work in
480 (defcustom vhdl-default-library "work"
481 "*Name of default library.
510 Default directory: default project directory (absolute path)
518 (\"\\1\" inserts library name, \"\\2\" default options)
520 (\"\\1\" inserts Makefile name, \"\\2\" default options)
524 (\"\\1\" inserts library name, \"\\2\" default options,
529 Library name : name of library (default is \"work\")
538 The default directory must have an absolute path (use `M-TAB' for completion).
539 All other paths can be absolute or relative to the default directory. All
546 specified, the default directory is taken as source directory. Otherwise,
547 the default directory is only taken as source directory if there is a sources
563 options which overwrite default options (lowest priority). Lower priority
565 default options (e.g. \"-file\") in project- or file-specific options (e.g.
576 ,(abbreviate-file-name default-directory))
613 "*Specifies the default for the current project.
663 :group 'vhdl-port
774 access to both names (see default setting as example)."
860 :group 'vhdl-port
865 That is, argument, association, and port lists start on the same line as the
870 :group 'vhdl-port
880 :group 'vhdl-port
1139 default setting as example)."
1209 (defgroup vhdl-port nil
1210 "Customizations for port translation functions."
1214 (defcustom vhdl-include-port-comments nil
1215 "*Non-nil means include port comments when a port is pasted."
1217 :group 'vhdl-port)
1220 "*Non-nil means include port direction in instantiations as comments."
1222 :group 'vhdl-port)
1225 "*Non-nil means include generic/port type in instantiations as comments."
1227 :group 'vhdl-port)
1234 Always : also in generic/port maps"
1238 :group 'vhdl-port)
1240 (defcustom vhdl-actual-port-name '(".*" . "\\&")
1242 "*Specifies how actual port names are obtained from formal port names.
1243 In a component instantiation, an actual port name can be obtained by
1244 modifying the formal port name (e.g. attaching or stripping off a substring)."
1248 :group 'vhdl-port)
1260 :group 'vhdl-port)
1265 :group 'vhdl-port)
1295 names (see default setting as example)."
1397 names (see default setting as example). Testbench files can be created in
1468 blocks of same indent which are aligned separately (except for argument/port
1668 "*Specifies the default displaying mode when opening speedbar.
1882 (defconst vhdl-offsets-alist-default
1907 (defvar vhdl-offsets-alist (copy-alist vhdl-offsets-alist-default)
2003 your style, only those that are different from the default.")
2005 ;; dynamically append the default value of most variables
2013 (default (cons "Default"
2019 (setq vhdl-style-alist (cons default vhdl-style-alist))))
2287 ;; set default to 2 if not already customized
2318 (defun vhdl-default-directory ()
2319 "Return the default directory of the current project or the directory of the
2324 default-directory))
2590 (define-key vhdl-template-map "po" 'vhdl-template-port)
2709 (define-key vhdl-mode-map "\C-c\C-p\C-w" 'vhdl-port-copy)
2710 (define-key vhdl-mode-map "\C-c\C-p\M-w" 'vhdl-port-copy)
2711 (define-key vhdl-mode-map "\C-c\C-p\C-e" 'vhdl-port-paste-entity)
2712 (define-key vhdl-mode-map "\C-c\C-p\C-c" 'vhdl-port-paste-component)
2713 (define-key vhdl-mode-map "\C-c\C-p\C-i" 'vhdl-port-paste-instance)
2714 (define-key vhdl-mode-map "\C-c\C-p\C-s" 'vhdl-port-paste-signals)
2715 (define-key vhdl-mode-map "\C-c\C-p\M-c" 'vhdl-port-paste-constants)
2717 (define-key vhdl-mode-map "\C-c\C-p\M-g" 'vhdl-port-paste-generic-map)
2718 (define-key vhdl-mode-map "\C-c\C-p\C-g" 'vhdl-port-paste-generic-map))
2719 (define-key vhdl-mode-map "\C-c\C-p\C-z" 'vhdl-port-paste-initializations)
2720 (define-key vhdl-mode-map "\C-c\C-p\C-t" 'vhdl-port-paste-testbench)
2721 (define-key vhdl-mode-map "\C-c\C-p\C-f" 'vhdl-port-flatten)
2722 (define-key vhdl-mode-map "\C-c\C-p\C-r" 'vhdl-port-reverse-direction)
2902 ("abs" "" vhdl-template-default-hook 0)
2903 ("access" "" vhdl-template-default-hook 0)
2904 ("after" "" vhdl-template-default-hook 0)
2906 ("all" "" vhdl-template-default-hook 0)
2907 ("and" "" vhdl-template-default-hook 0)
2910 ("array" "" vhdl-template-default-hook 0)
2914 ("begin" "" vhdl-template-default-indent-hook 0)
2916 ("body" "" vhdl-template-default-hook 0)
2917 ("buffer" "" vhdl-template-default-hook 0)
2918 ("bus" "" vhdl-template-default-hook 0)
2929 ("downto" "" vhdl-template-default-hook 0)
2933 ("end" "" vhdl-template-default-indent-hook 0)
2942 ("guarded" "" vhdl-template-default-hook 0)
2944 ("impure" "" vhdl-template-default-hook 0)
2945 ("in" "" vhdl-template-default-hook 0)
2946 ("inertial" "" vhdl-template-default-hook 0)
2947 ("inout" "" vhdl-template-default-hook 0)
2950 ("is" "" vhdl-template-default-hook 0)
2951 ("label" "" vhdl-template-default-hook 0)
2953 ("linkage" "" vhdl-template-default-hook 0)
2954 ("literal" "" vhdl-template-default-hook 0)
2957 ("mod" "" vhdl-template-default-hook 0)
2958 ("nand" "" vhdl-template-default-hook 0)
2959 ("new" "" vhdl-template-default-hook 0)
2961 ("nor" "" vhdl-template-default-hook 0)
2962 ("not" "" vhdl-template-default-hook 0)
2963 ("null" "" vhdl-template-default-hook 0)
2964 ("of" "" vhdl-template-default-hook 0)
2965 ("on" "" vhdl-template-default-hook 0)
2966 ("open" "" vhdl-template-default-hook 0)
2967 ("or" "" vhdl-template-default-hook 0)
2969 ("out" "" vhdl-template-default-hook 0)
2972 ("port" "" vhdl-template-port-hook 0)
2973 ("postponed" "" vhdl-template-default-hook 0)
2976 ("pure" "" vhdl-template-default-hook 0)
2977 ("range" "" vhdl-template-default-hook 0)
2978 ("record" "" vhdl-template-default-hook 0)
2979 ("register" "" vhdl-template-default-hook 0)
2980 ("reject" "" vhdl-template-default-hook 0)
2981 ("rem" "" vhdl-template-default-hook 0)
2984 ("rol" "" vhdl-template-default-hook 0)
2985 ("ror" "" vhdl-template-default-hook 0)
2987 ("severity" "" vhdl-template-default-hook 0)
2988 ("shared" "" vhdl-template-default-hook 0)
2991 ("sla" "" vhdl-template-default-hook 0)
2992 ("sll" "" vhdl-template-default-hook 0)
2993 ("sra" "" vhdl-template-default-hook 0)
2994 ("srl" "" vhdl-template-default-hook 0)
2996 ("then" "" vhdl-template-default-hook 0)
2997 ("to" "" vhdl-template-default-hook 0)
2998 ("transport" "" vhdl-template-default-hook 0)
3000 ("unaffected" "" vhdl-template-default-hook 0)
3001 ("units" "" vhdl-template-default-hook 0)
3002 ("until" "" vhdl-template-default-hook 0)
3010 ("xnor" "" vhdl-template-default-hook 0)
3011 ("xor" "" vhdl-template-default-hook 0)
3016 ("across" "" vhdl-template-default-hook 0)
3020 ("noise" "" vhdl-template-default-hook 0)
3023 ("reference" "" vhdl-template-default-hook 0)
3024 ("spectrum" "" vhdl-template-default-hook 0)
3027 ("through" "" vhdl-template-default-hook 0)
3028 ("tolerance" "" vhdl-template-default-hook 0)
3089 ("port clause" vhdl-template-port)
3194 ["Set As Default Project" vhdl-set-default-project t]
3274 ["Port" vhdl-template-port t]
3362 ["Copy" vhdl-port-copy t]
3364 ["Paste As Entity" vhdl-port-paste-entity vhdl-port-list]
3365 ["Paste As Component" vhdl-port-paste-component vhdl-port-list]
3366 ["Paste As Instance" vhdl-port-paste-instance
3367 :keys "C-c C-p C-i" :active vhdl-port-list]
3368 ["Paste As Signals" vhdl-port-paste-signals vhdl-port-list]
3369 ["Paste As Constants" vhdl-port-paste-constants vhdl-port-list]
3370 ["Paste As Generic Map" vhdl-port-paste-generic-map vhdl-port-list]
3371 ["Paste As Initializations" vhdl-port-paste-initializations vhdl-port-list]
3373 ["Paste As Testbench" vhdl-port-paste-testbench vhdl-port-list]
3375 ["Flatten" vhdl-port-flatten
3376 :style toggle :selected vhdl-port-flattened :active vhdl-port-list]
3377 ["Reverse Direction" vhdl-port-reverse-direction
3378 :style toggle :selected vhdl-port-reversed-direction :active vhdl-port-list])
3381 ["Copy Component" vhdl-port-copy t]
3382 ["Place Component" vhdl-compose-place-component vhdl-port-list]
3560 ["Default Library Name" (customize-option 'vhdl-default-library) t]
3743 (customize-set-variable 'vhdl-include-port-comments
3744 (not vhdl-include-port-comments))
3745 :style toggle :selected vhdl-include-port-comments]
3764 ["Actual Port Name..." (customize-option 'vhdl-actual-port-name) t]
3806 ["Customize Group..." (customize-group 'vhdl-port) t])
4052 "^\\s-*\\(\\(\\w\\|\\s_\\)+\\s-*:\\(\\s-\\|\n\\)*\\(\\w\\|\\s_\\)+\\)\\(\\s-\\|\n\\)+\\(generic\\|port\\)\\s-+map\\>"
4123 (or directory default-directory) full filename-regexp)))
4258 \(`M-C-\\') or the entire buffer (menu). Argument and port lists are
4275 a pair of parentheses (e.g. port clause/map, argument list), and `C-c
4296 Code filling allows to condense code (e.g. sensitivity lists or port
4314 Generic and port clauses from entity or component declarations can be
4324 A clause with several generic/port names on the same line can be
4333 to options `vhdl-...-name'. See customization group `vhdl-port'.
4344 A copied port can also be pasted as a testbench. The generated
4399 instantiation) can be automatically placed from a previously read port
4404 connected by a signal (internal signal or port)
4406 inputs to this component -> input port created
4408 outputs from this component -> output port created
4471 The Makefile's default target \"all\" compiles the entire design, the
4542 parameter and generic/port names in declarations as well as labels are
4582 instantiations, generic/port clauses, and configuration declarations can
4598 \(used to obtain the port names).
4602 `C-c C-x C-p' fixes the closing parenthesis of a generic/port clause
4611 appropriate default settings for nice landscape two-column printing.
4636 As default, files with extensions \".vhd\" and \".vhdl\" are
4830 "package" "port" "postponed" "procedure" "process" "pure"
4854 "case" "casex" "casez" "cmos" "deassign" "default" "defparam" "disable"
5289 changed buffer local, instead of the default, which is to set the
5309 ;; reset vhdl-offsets-alist to the default value first
5310 (setq vhdl-offsets-alist (copy-alist vhdl-offsets-alist-default))
6384 ;; set a default stop point at the begin
6407 ;; set a default stop point at the when
7912 ;; search for signals declared in entity port clause
7926 "^\\s-*port[ \t\n]*("
7994 ;; Generic/port clause fixing
7997 "Fix closing parenthesis within generic/port clause."
8003 (if (not (re-search-backward "^\\s-*\\(generic\\|port\\)[ \t\n]*(" nil t))
8004 (error "ERROR: Not within a generic/port clause")
8016 (error "ERROR: Not within a generic/port clause"))
8068 (or (nth 6 (aget vhdl-project-alist vhdl-project)) vhdl-default-library)))
8447 (vhdl-template-port-list t)
8639 (defun vhdl-template-default ()
8648 (defun vhdl-template-default-indent ()
8721 (when (vhdl-template-port-list t)
9206 (defun vhdl-template-port ()
9207 "Insert a port declaration, or port map in instantiation statements."
9215 (vhdl-template-port-list nil))
9222 (t (vhdl-template-port-list nil))))))
10293 (defun vhdl-template-port-list (optional)
10294 "Read from user a port spec argument list."
10395 begin end is-string default)
10400 with double-quotes is to be inserted. DEFAULT specifies a default string."
10407 (or (and is-string '("\"\"" . 2)) default)
10584 (looking-at "^\\s-*\\(generic\\|port\\|\\(\\(impure\\|pure\\)\\s-+\\|\\)function\\|procedure\\)\\>\\s-*\\(\\w+\\s-*\\)?("))))))
10684 (defun vhdl-template-port-hook ()
10685 (vhdl-hooked-abbrev 'vhdl-template-port))
10737 (defun vhdl-template-default-hook ()
10738 (vhdl-hooked-abbrev 'vhdl-template-default))
10739 (defun vhdl-template-default-indent-hook ()
10740 (vhdl-hooked-abbrev 'vhdl-template-default-indent))
10867 (defvar vhdl-port-list nil
10868 "Variable to hold last port map parsed.")
10872 ;; ((port-names) port-object port-direct port-type port-comment group-comment)
10922 (defvar vhdl-port-flattened nil
10923 "Indicates whether a port has been flattened.")
10925 (defun vhdl-port-flatten (&optional as-alist)
10926 "Flatten port list so that only one generic/port exists per line.
10927 This operation is performed on an internally stored port and is only
10930 (if (not vhdl-port-list)
10931 (error "ERROR: No port has been read")
10932 (message "Flattening port for next paste...")
10933 (let ((new-vhdl-port-list (list (car vhdl-port-list)))
10934 (old-vhdl-port-list (cdr vhdl-port-list))
10935 old-port-list new-port-list old-port new-port names)
10936 ;; traverse port list and flatten entries
10937 (while (cdr old-vhdl-port-list)
10938 (setq old-port-list (car old-vhdl-port-list))
10939 (setq new-port-list nil)
10940 (while old-port-list
10941 (setq old-port (car old-port-list))
10942 (setq names (car old-port))
10944 (setq new-port (cons (if as-alist (car names) (list (car names)))
10945 (cdr old-port)))
10946 (setq new-port-list (append new-port-list (list new-port)))
10948 (setq old-port-list (cdr old-port-list)))
10949 (setq old-vhdl-port-list (cdr old-vhdl-port-list))
10950 (setq new-vhdl-port-list (append new-vhdl-port-list
10951 (list new-port-list))))
10952 (setq vhdl-port-list
10953 (append new-vhdl-port-list (list old-vhdl-port-list))
10954 vhdl-port-flattened t)
10955 (message "Flattening port for next paste...done"))))
10957 (defvar vhdl-port-reversed-direction nil
10958 "Indicates whether port directions are reversed.")
10960 (defun vhdl-port-reverse-direction ()
10962 This operation is performed on an internally stored port and is only
10965 (if (not vhdl-port-list)
10966 (error "ERROR: No port has been read")
10967 (message "Reversing port directions for next paste...")
10968 (let ((port-list (nth 2 vhdl-port-list))
10969 port-dir-car port-dir)
10970 ;; traverse port list and reverse directions
10971 (while port-list
10972 (setq port-dir-car (cddr (car port-list))
10973 port-dir (car port-dir-car))
10974 (setcar port-dir-car
10975 (cond ((equal port-dir "in") "out")
10976 ((equal port-dir "out") "in")
10977 (t port-dir)))
10978 (setq port-list (cdr port-list)))
10979 (setq vhdl-port-reversed-direction (not vhdl-port-reversed-direction))
10980 (message "Reversing port directions for next paste...done"))))
10982 (defun vhdl-port-copy ()
10983 "Get generic and port information from an entity or component declaration."
10987 decl-type name generic-list port-list context-clause
11003 (message "Reading port of %s \"%s\"..." decl-type name)
11070 ;; parse port clause
11071 (when (vhdl-parse-string "port[ \t\n]*(" t)
11115 (setq port-list (append port-list
11130 (message "Reading port of %s \"%s\"...done" decl-type name)
11135 (setq vhdl-port-list (list name generic-list port-list context-clause)
11136 vhdl-port-reversed-direction nil
11137 vhdl-port-flattened nil)))))
11139 (defun vhdl-port-paste-context-clause (&optional exclude-pack-name)
11142 (clause-list (nth 3 vhdl-port-list))
11156 (defun vhdl-port-paste-generic (&optional no-init)
11159 (generic-list (nth 1 vhdl-port-list))
11187 (when (and vhdl-include-port-comments (nth 3 generic))
11194 (defun vhdl-port-paste-port ()
11195 "Paste a port clause."
11197 (port-list (nth 2 vhdl-port-list))
11198 list-margin start names port)
11199 ;; paste port clause
11200 (when port-list
11206 (while port-list
11207 (setq port (car port-list))
11210 (vhdl-paste-group-comment (nth 5 port) list-margin))
11212 (when (nth 1 port) (insert (nth 1 port) " "))
11214 (setq names (nth 0 port))
11221 (when (nth 2 port) (insert (nth 2 port) " "))
11223 (insert (nth 3 port))
11224 (unless (cdr port-list) (insert ")"))
11227 (when (and vhdl-include-port-comments (nth 4 port))
11228 (vhdl-comment-insert-inline (nth 4 port) t))
11229 (setq port-list (cdr port-list))
11230 (when port-list (insert "\n") (indent-to list-margin)))
11231 ;; align port clause
11234 (defun vhdl-port-paste-declaration (kind &optional no-indent)
11238 (name (nth 0 vhdl-port-list)))
11243 ;; paste generic and port clause
11244 (when (nth 1 vhdl-port-list)
11249 (vhdl-port-paste-generic (eq kind 'component)))
11250 (when (nth 2 vhdl-port-list)
11256 (vhdl-port-paste-port)
11270 (defun vhdl-port-paste-entity (&optional no-indent)
11273 (if (not vhdl-port-list)
11274 (error "ERROR: No port read")
11275 (message "Pasting port as entity \"%s\"..." (car vhdl-port-list))
11276 (vhdl-port-paste-declaration 'entity no-indent)
11277 (message "Pasting port as entity \"%s\"...done" (car vhdl-port-list))))
11279 (defun vhdl-port-paste-component (&optional no-indent)
11282 (if (not vhdl-port-list)
11283 (error "ERROR: No port read")
11284 (message "Pasting port as component \"%s\"..." (car vhdl-port-list))
11285 (vhdl-port-paste-declaration 'component no-indent)
11286 (message "Pasting port as component \"%s\"...done" (car vhdl-port-list))))
11288 (defun vhdl-port-paste-generic-map (&optional secondary no-constants)
11294 (generic-list (nth 1 vhdl-port-list)))
11307 (null (nth 2 vhdl-port-list)))
11325 (null (nth 2 vhdl-port-list)))
11329 (and vhdl-include-port-comments (nth 3 generic)))
11334 (when vhdl-include-port-comments (nth 3 generic))) t))
11340 (defun vhdl-port-paste-port-map ()
11341 "Paste as a port map."
11343 list-margin start port
11344 (port-list (nth 2 vhdl-port-list)))
11345 (when port-list
11350 (while port-list
11351 (insert (vhdl-replace-string vhdl-actual-port-name
11352 (car (nth 0 (car port-list)))))
11353 (setq port-list (cdr port-list))
11354 (insert (if port-list ", " ")")))
11358 (while port-list
11359 (setq port (car port-list))
11362 (vhdl-paste-group-comment (nth 5 port) list-margin))
11363 ;; paste formal and actual port
11364 (insert (car (nth 0 port)) " => ")
11365 (insert (vhdl-replace-string vhdl-actual-port-name
11366 (car (nth 0 port))))
11367 (setq port-list (cdr port-list))
11368 (insert (if port-list "," ");"))
11372 (and vhdl-include-port-comments (nth 4 port)))
11377 (concat "[" (format "%-4s" (concat (nth 2 port) " "))
11378 (nth 3 port) "] "))
11379 ((and vhdl-include-direction-comments (nth 2 port))
11380 (format "%-6s" (concat "[" (nth 2 port) "] ")))
11383 (concat "[" (nth 3 port) "] ")))
11384 (when vhdl-include-port-comments (nth 4 port))) t))
11385 (when port-list (insert "\n") (indent-to list-margin)))
11386 ;; align port clause
11390 (defun vhdl-port-paste-instance (&optional name no-indent title)
11393 (if (not vhdl-port-list)
11394 (error "ERROR: No port read")
11395 (let ((orig-vhdl-port-list vhdl-port-list))
11396 ;; flatten local copy of port list (must be flat for port mapping)
11397 (vhdl-port-flatten)
11410 (nth 0 vhdl-port-list)) n))
11416 (nth 0 vhdl-port-list)))))
11417 (message "Pasting port as instantiation \"%s\"..." name)
11425 (insert (nth 0 vhdl-port-list))
11427 (insert (vhdl-work-library) "." (nth 0 vhdl-port-list)))
11428 (when (nth 1 vhdl-port-list)
11430 (vhdl-port-paste-generic-map t t))
11431 (when (nth 2 vhdl-port-list)
11433 (vhdl-port-paste-port-map))
11434 (unless (or (nth 1 vhdl-port-list) (nth 2 vhdl-port-list))
11436 (message "Pasting port as instantiation \"%s\"...done" name))
11437 (setq vhdl-port-list orig-vhdl-port-list))))
11439 (defun vhdl-port-paste-constants (&optional no-indent)
11442 (if (not vhdl-port-list)
11443 (error "ERROR: No port read")
11444 (let ((orig-vhdl-port-list vhdl-port-list))
11445 (message "Pasting port as constants...")
11446 ;; flatten local copy of port list (must be flat for constant initial.)
11447 (vhdl-port-flatten)
11451 (generic-list (nth 1 vhdl-port-list)))
11471 (when (and vhdl-include-port-comments (nth 3 generic))
11478 (message "Pasting port as constants...done")
11479 (setq vhdl-port-list orig-vhdl-port-list))))
11481 (defun vhdl-port-paste-signals (&optional initialize no-indent)
11484 (if (not vhdl-port-list)
11485 (error "ERROR: No port read")
11486 (message "Pasting port as signals...")
11489 start port names
11490 (port-list (nth 2 vhdl-port-list)))
11491 (when port-list
11493 (while port-list
11494 (setq port (car port-list))
11497 (vhdl-paste-group-comment (nth 5 port) margin))
11499 (if (nth 1 port)
11500 (insert (nth 1 port) " ")
11502 ;; paste actual port signals
11503 (setq names (nth 0 port))
11505 (insert (vhdl-replace-string vhdl-actual-port-name (car names)))
11509 (insert " : " (nth 3 port))
11511 (when (and initialize (equal "IN" (upcase (nth 2 port))))
11512 (insert " := " (if (string-match "(.+)" (nth 3 port))
11517 (and vhdl-include-port-comments (nth 4 port)))
11520 (cond ((and vhdl-include-direction-comments (nth 2 port))
11521 (format "%-6s" (concat "[" (nth 2 port) "] ")))
11523 (when vhdl-include-port-comments (nth 4 port))) t))
11524 (setq port-list (cdr port-list))
11525 (when port-list (insert "\n") (indent-to margin)))
11528 (message "Pasting port as signals...done")))
11530 (defun vhdl-port-paste-initializations (&optional no-indent)
11533 (if (not vhdl-port-list)
11534 (error "ERROR: No port read")
11535 (let ((orig-vhdl-port-list vhdl-port-list))
11536 (message "Pasting port as initializations...")
11537 ;; flatten local copy of port list (must be flat for signal initial.)
11538 (vhdl-port-flatten)
11541 start port name
11542 (port-list (nth 2 vhdl-port-list)))
11543 (when port-list
11545 (while port-list
11546 (setq port (car port-list))
11547 ;; paste actual port signal (inputs only)
11548 (when (equal "IN" (upcase (nth 2 port)))
11549 (setq name (car (nth 0 port)))
11550 (insert (vhdl-replace-string vhdl-actual-port-name name))
11552 (insert " <= " (if (string-match "(.+)" (nth 3 port))
11554 (setq port-list (cdr port-list))
11555 (when (and port-list
11556 (equal "IN" (upcase (nth 2 (car port-list)))))
11560 (message "Pasting port as initializations...done")
11561 (setq vhdl-port-list orig-vhdl-port-list))))
11563 (defun vhdl-port-paste-testbench ()
11566 (if (not vhdl-port-list)
11567 (error "ERROR: No port read")
11570 (nth 0 vhdl-port-list)))
11588 (error "ERROR: Pasting port as testbench...aborted")))
11596 (nth 0 vhdl-port-list) "\""))
11619 (nth 0 vhdl-port-list))))
11620 (message "Pasting port as testbench \"%s(%s)\"..." ent-name arch-name)
11632 (error "ERROR: Pasting port as testbench...aborted"))
11640 (nth 0 vhdl-port-list) "\""))
11652 (vhdl-port-paste-component t)
11655 (when (nth 1 vhdl-port-list)
11657 (vhdl-port-paste-constants t)
11661 (vhdl-port-paste-signals vhdl-testbench-initialize-signals t)
11689 (vhdl-port-paste-instance
11690 (vhdl-replace-string vhdl-testbench-dut-name (nth 0 vhdl-port-list)) t)
11703 (concat (format "Pasting port as testbench \"%s(%s)\"...done"
11922 (when (and vhdl-include-port-comments (nth 5 param))
11934 (when (and vhdl-include-port-comments (nth 4 vhdl-subprog-list))
11999 ;; paste formal port
12004 (when (and vhdl-include-port-comments (nth 5 param))
12330 (defun vhdl-set-default-project ()
12331 "Set current project as default on startup."
12449 ;; generic/port clause
12450 "\\(generic\\|port\\)[ \t\n]*(\\|"
12457 "\\(generic\\|port\\)[ \t\n]+map[ \t\n]*(\\|"
12473 ;; generic/port clause
12474 ((looking-at "^\\s-*\\(generic\\|port\\)[ \t\n]*(")
12487 "\\(generic\\|port\\)\\s-+map[ \t\n]*("))
12493 (when (looking-at "port\\s-+map[ \t\n]*(")
12657 "\\(\\s-*\\(--[^\n]*\\)?$\\|\\s-+\\(generic\\|port\\)\\s-+map\\>\\)")
12997 ;; define page settings, so that a line containing 79 characters (default)
13362 "\\(\\w+\\)[ \t\n]+\\(--[^\n]*\n[ \t\n]*\\)*\\(generic\\|port\\)[ \t\n]+map\\>\\|"
13541 (default-dir (vhdl-resolve-env-variable
13552 ;; expand directory names by default-directory
13561 (if (file-name-absolute-p dir-name) "" default-dir)
13864 (default-directory key)
13865 (directory (abbreviate-file-name (vhdl-default-directory)))
13934 (default-directory key)
13935 (directory (vhdl-default-directory))
13965 (let ((directory (abbreviate-file-name default-directory)))
14009 (define-key vhdl-speedbar-key-map "C" 'vhdl-speedbar-port-copy)
14049 ["Copy Port/Subprogram" vhdl-speedbar-port-copy
14275 ;; (nicked from `speedbar-default-directory-list')
14279 (list (expand-file-name default-directory)))
14723 (abbreviate-file-name default-directory) t)))
15063 (vhdl-default-directory)))))
15175 (defun vhdl-speedbar-port-copy ()
15176 "Copy the port of the entity/component or subprogram under the cursor."
15190 (vhdl-port-copy)
15201 (vhdl-speedbar-port-copy)
15228 (or (vhdl-project-p) default-directory) t))
15247 (let ((default-directory directory))
15254 (default-directory (file-name-as-directory
15505 "Place new component by pasting current port as component declaration and
15508 (if (not vhdl-port-list)
15509 (error "ERROR: No port has been read")
15520 (message "Placing component \"%s\"..." (nth 0 vhdl-port-list))
15527 (car vhdl-port-list) "\\>") nil t)))
15532 (vhdl-port-paste-component t))
15538 (vhdl-port-paste-instance nil t t)
15540 (when (nth 3 vhdl-port-list)
15555 (vhdl-port-paste-context-clause)
15557 (message "Placing component \"%s\"...done" (nth 0 vhdl-port-list)))))))
15579 port-alist generic-alist inst-alist
15583 port-beg-pos port-in-pos port-out-pos port-inst-pos port-end-pos
15586 constant-temp-pos port-temp-pos signal-temp-pos)
15593 "[ \t\n]+\\(--[^\n]*\n[ \t\n]*\\)*\\(\\(generic\\)\\|port\\)[ \t\n]+map\\|"
15595 "[ \t\n]+\\(--[^\n]*\n[ \t\n]*\\)*\\(\\(generic\\)\\|port\\)[ \t\n]+map\\)[ \t\n]*(") arch-end-pos t)
15600 ;; get port ...
15609 (vhdl-port-copy)))
15620 (vhdl-port-copy))))
15621 (vhdl-port-flatten t)
15622 (setq generic-alist (nth 1 vhdl-port-list)
15623 port-alist (nth 2 vhdl-port-list)
15624 vhdl-port-list nil)
15648 (vhdl-re-search-forward "\\<port\\s-+map[ \t\n]*(" nil t))
15649 ;; process all signals in port map
15655 (or (aget port-alist (match-string 2) t)
15656 (error "ERROR: Formal port \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name))
15657 (cdar port-alist))))
15690 (setq port-alist (cdr port-alist)))
15728 ;; prepare port clause insertion
15729 (unless (and (re-search-forward "\\(^\\s-*port[ \t\n]*(\\)\\|^end\\>" nil t)
15733 (insert "port ();\n\n")
15736 (setq port-in-pos (point-marker))
15738 (delete-region port-in-pos (point)) (delete-char 1)
15744 (setq port-beg-pos (point-marker) port-in-pos (point-marker)
15745 port-out-pos (point-marker) port-inst-pos (point-marker)
15746 port-end-pos (point-marker))
15754 port-temp-pos port-inst-pos
15790 (vhdl-goto-marker port-in-pos)
15791 (setq port-end-pos
15793 port-end-pos (vhdl-compose-insert-port signal-entry)))
15794 (setq port-in-pos (point-marker))
15797 (vhdl-goto-marker (vhdl-max-marker port-out-pos port-in-pos))
15798 (setq port-end-pos
15800 port-end-pos (vhdl-compose-insert-port signal-entry)))
15801 (setq port-out-pos (point-marker))
15807 port-inst-pos
15808 (vhdl-max-marker port-out-pos port-in-pos)))
15809 (setq port-end-pos (vhdl-compose-insert-port signal-entry))
15810 (setq port-inst-pos (point-marker))
15818 (when (/= port-temp-pos port-inst-pos)
15820 (vhdl-max-marker port-temp-pos
15821 (vhdl-max-marker port-in-pos port-out-pos)))
15824 (vhdl-goto-marker port-inst-pos))
15831 ;; finalize generic/port clause
15837 (vhdl-goto-marker port-end-pos) (backward-char)
15838 (when (= port-beg-pos port-end-pos)
15846 (vhdl-align-region-groups port-beg-pos port-end-pos 1)
15861 (when (and vhdl-include-port-comments (nth 3 entry))
15866 (defun vhdl-compose-insert-port (entry)
15867 "Insert ENTRY as port declaration."
15872 (when (and vhdl-include-port-comments (nth 4 entry))
15881 (when (and vhdl-include-port-comments (nth 4 entry))
15896 (or project default-directory) t))
15938 (vhdl-port-copy)))
15940 (vhdl-port-paste-component t)
15944 (vhdl-port-paste-context-clause pack-name)
16052 (or (vhdl-project-p) default-directory) t))
16054 (or (vhdl-project-p) default-directory) t))
16152 (expand-file-name directory (vhdl-default-directory))))))
16234 'default
16286 (default-directory (vhdl-compile-directory))
16288 (unless (file-directory-p default-directory)
16289 (error "ERROR: Compile directory does not exist: \"%s\"" default-directory))
16321 (default-directory (vhdl-compile-directory)))
16322 (unless (file-directory-p default-directory)
16323 (error "ERROR: Compile directory does not exist: \"%s\"" default-directory))
16339 (let ((default-directory (vhdl-compile-directory)))
16361 (let ((directory (abbreviate-file-name default-directory)))
16365 (let* ((directory (abbreviate-file-name (vhdl-default-directory)))
16379 default-directory))
16710 (if (eq options 'default) "$(OPTIONS)" options) " "
16771 'vhdl-default-library
16809 'vhdl-include-port-comments
16813 'vhdl-actual-port-name