From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.io!.POSTED.blaine.gmane.org!not-for-mail From: Michael Albinus Newsgroups: gmane.emacs.devel Subject: Re: emacs-29 a2d4cd06f45: Improve VHDL mode highlighting Date: Tue, 09 May 2023 09:53:21 +0200 Message-ID: <87mt2e9c0e.fsf@gmx.de> References: <168326553347.14898.7329669431232347477@vcs2.savannah.gnu.org> <20230505054533.D680AC1BECD@vcs2.savannah.gnu.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Injection-Info: ciao.gmane.io; posting-host="blaine.gmane.org:116.202.254.214"; logging-data="24641"; mail-complaints-to="usenet@ciao.gmane.io" User-Agent: Gnus/5.13 (Gnus v5.13) Cc: Cyril Arnould To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Tue May 09 09:54:52 2023 Return-path: Envelope-to: ged-emacs-devel@m.gmane-mx.org Original-Received: from lists.gnu.org ([209.51.188.17]) by ciao.gmane.io with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.92) (envelope-from ) id 1pwIBP-0006HD-Uy for ged-emacs-devel@m.gmane-mx.org; Tue, 09 May 2023 09:54:52 +0200 Original-Received: from localhost ([::1] helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1pwIA7-0004eS-Pq; Tue, 09 May 2023 03:53:31 -0400 Original-Received: from eggs.gnu.org ([2001:470:142:3::10]) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pwIA5-0004cW-AQ for emacs-devel@gnu.org; Tue, 09 May 2023 03:53:29 -0400 Original-Received: from mout.gmx.net ([212.227.17.21]) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1pwIA3-0006Xp-0M for emacs-devel@gnu.org; Tue, 09 May 2023 03:53:29 -0400 DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.de; s=s31663417; t=1683618802; i=michael.albinus@gmx.de; bh=hhfAL/zCWJSlmODlJYqR8Daf0jv9vFedXrG4frn4xps=; h=X-UI-Sender-Class:From:To:Cc:Subject:In-Reply-To:References:Date; b=FwAXJiglTePfQCbHnNiw5sSL/PRmUXhzDMUza/OjAiTt+p6YzMv04rRCKOtlqTGPD xdNKQBMv0meYQ58ORp/8IOtvpYICx3+v/DrfZTYmBqKuPvscVKt56JGEA0wipJjYkJ ZUgIi/fltDbWUp0FS2tTOF2QQIxPulI7JS20PwTWm1dGCpkoJzbJe4PdfAKOmyINlB Z70LCsw+hu+tfobVw59r6TQdxMNj+vFRiEZNMwytyUhZ576qj5wi1K3iohBxxh4rL8 HjB13zx6w5Gff6moK9O5c3WRealK+VoPHuhfeLMrXBhEQtboy/zKlPmbc5mkG3N419 UJuTCyXfTs9rg== X-UI-Sender-Class: 724b4f7f-cbec-4199-ad4e-598c01a50d3a Original-Received: from gandalf.gmx.de ([185.89.39.0]) by mail.gmx.net (mrgmx104 [212.227.17.168]) with ESMTPSA (Nemesis) id 1M2wGi-1pvBhW0Ja8-003JUl; Tue, 09 May 2023 09:53:22 +0200 In-Reply-To: <20230505054533.D680AC1BECD@vcs2.savannah.gnu.org> (Eli Zaretskii's message of "Fri, 5 May 2023 01:45:33 -0400 (EDT)") X-Provags-ID: V03:K1:phH7tYn9dx8ZJhCDd/BbdjeOb82MbZSG+CVs+xSQeNU83CZ89n0 CCB2PH2c7VBrKym5PxOgjXGHcv+rTvJj+27Eh+TExow4puXJGgxeyReid8G7KbiOBw6g81V u/S4Tis9YWoEt7ecosvNt7Wnrn4NnK41Ufna2fF2Nzyj7sdTeIg22g6EoB1vcELXgN7jdU+ irD9X7NSwlJX9c4yXVn/Q== UI-OutboundReport: notjunk:1;M01:P0:8sByw53UaPk=;Vdnfss0jHTV+T+m87t+2OsMWORW KzqF4IHlqSoC9IG/HkaoNztLqc6logJUX8IueG0HdYAnR2RNaYQoq1kQE7vRZjgTqgZx9xu3m v9duVkLW/37XpaDhqDlcSdZsiM0Sbpw9Bo3sxDATrAXIQ8ZJVRg/FDG2Jt9X5wqQFBQO33EpX 8RXbB1mnqcrF4FcxSKIct3H24A7NKlaXBat1d2rLYKeX/fkH2nsMDFsecUBnthGrsn7Y4j0QH hNUFkROX2Aas0ZgmAJxgTA+hjLVhBfk+OUTQgSv/ThNRGl1zOpIOXgPpmK43IjWR72L7vDpO+ 8UAHKAY6+JIRt3+VrbvokcAStOPeCYwHQq0KQvImAfKsK1WBHj/zesFrfQLnwJITQVYv3XPw6 X/OtNksAaBAPBlP5LegZyw/+hP/HYxSsIobL8c6vTHPTjd6pPb9Q/BmmNCZbuk5yZA16ACk5J WIRKYtDZJpvHxl0aBuEiBwITnpKzB/lsv1SNBZHlkVrlpsUiwGdH3BdxMiyJYnfx5LIPNu0WY D6BP3y8OivHI+gpyXm+36a0+uU2VwTvCP44wDO6LCHDJFzwpCbwlKZlWck5r3S2XEJYAFvUMJ ymPzdad/aMt9iWBQUoA4rqba/phKOkUHajv4H1EqMK8JS3eaxMPX/hmKX00klIZYx1RolSJtN W8CiQGunYxOa39Saca1UDPqJLx2MBAy4dClk8BY7aXDDI0P3ZO/jPztvDg08YjLWHiDIvMivi rBHJjLQNj9Dv5YOpVzb8GazuBTs9Vbul0Wo9B1+fgytdNoYlQfb1hCGI0t11DqQ6Xm0//+om Received-SPF: pass client-ip=212.227.17.21; envelope-from=michael.albinus@gmx.de; helo=mout.gmx.net X-Spam_score_int: -27 X-Spam_score: -2.8 X-Spam_bar: -- X-Spam_report: (-2.8 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_LOW=-0.7, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001, T_SCC_BODY_TEXT_LINE=-0.01 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane-mx.org@gnu.org Xref: news.gmane.io gmane.emacs.devel:305997 Archived-At: Eli Zaretskii writes: > Improve VHDL mode highlighting >=20=20=20=20=20 > * lisp/progmodes/vhdl-mode.el (vhdl-compiler-alist): Differentiate > between ModelSim errors, warnings, and notes when highlighting > them. Add a new entry for Xilinx Vivado. (Bug#63251) It looks that this his added a new error in the tests. Try --8<---------------cut here---------------start------------->8--- make -C test test-custom-opts [...] The following options might have problems: variable: vhdl-compiler-alist value: (("ADVance MS" "vacom" "-work \\1" "make" "-f \\1" nil "valib \\1= ; vamap \\2 \\1" "./" "work/" "Makefile" "adms" ("^\\s-+\\([0-9]+\\):\\s-+"= nil 1 nil) ("^Compiling file \\(.+\\)" 1) ("ENTI/\\1.vif" "ARCH/\\1-\\2.vi= f" "CONF/\\1.vif" "PACK/\\1.vif" "BODY/\\1.vif" upcase)) ("Aldec" "vcom" "-= work \\1" "make" "-f \\1" nil "vlib \\1; vmap \\2 \\1" "./" "work/" "Makefi= le" "aldec" ("^.* ERROR [^:]+: \".*\" \"\\([^=20=09 ]+\\)\" \\([0-9]+\\) \\([0-9]+\\)" 1 2 3) ("" 0) nil) ("Cadence Leapfrog" "= cv" "-work \\1 -file" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefil= e" "leapfrog" ("^duluth: \\*E,[0-9]+ (\\([^=20=09 ]+\\),\\([0-9]+\\)):" 1 2 nil) ("" 0) ("\\1/entity" "\\2/\\1" "\\1/configur= ation" "\\1/package" "\\1/body" downcase)) ("Cadence NC" "ncvhdl" "-work \\= 1" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile" "ncvhdl" ("^ncvh= dl_p: \\*E,\\w+ (\\([^=20=09 ]+\\),\\([0-9]+\\)|\\([0-9]+\\)):" 1 2 3) ("" 0) ("\\1/entity/pc.db" "\\2/\= \1/pc.db" "\\1/configuration/pc.db" "\\1/package/pc.db" "\\1/body/pc.db" do= wncase)) ("GHDL" "ghdl" "-i --workdir=3D\\1 --ieee=3Dsynopsys -fexplicit " = "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile" "ghdl" ("^ghdl_p: \= \*E,\\w+ (\\([^=20=09 ]+\\),\\([0-9]+\\)|\\([0-9]+\\)):" 1 2 3) ("" 0) ("\\1/entity" "\\2/\\1" "\= \1/configuration" "\\1/package" "\\1/body" downcase)) ("IBM Compiler" "g2tv= c" "-src" "precomp" "\\1" nil "mkdir \\1" "./" "work/" "Makefile" "ibm" ("^= [0-9]+ COACHDL.*: File: \\([^=20=09 ]+\\), *line.column: \\([0-9]+\\).\\([0-9]+\\)" 1 2 3) (" " 0) nil) ("Ikos"= "analyze" "-l \\1" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile"= "ikos" ("^E L\\([0-9]+\\)/C\\([0-9]+\\):" nil 1 2) ("^analyze +\\(.+ +\\)*= \\(.+\\)$" 2) nil) ("ModelSim" "vcom" "-93 -work \\1" "make" "-f \\1" nil "= vlib \\1; vmap \\2 \\1" "./" "work/" "Makefile" "modelsim" ("^\\(?:\\(?1:ER= ROR\\|\\*\\* Error\\)\\|\\(?2:WARNING\\|\\*\\* Warning\\)\\|\\(?3:NOTE\\|\\= *\\* Note\\)\\)[^:]*:\\( *\\[[0-9]+]\\| ([^)]+)\\)? \\(?4:[^=20=09 ]+\\)(\\(?5:[0-9]+\\)):" 4 5 nil (2 . 3)) ("" 0) ("\\1/_primary.dat" "\\2/\= \1.dat" "\\1/_primary.dat" "\\1/_primary.dat" "\\1/body.dat" downcase)) ("L= EDA ProVHDL" "provhdl" "-w \\1 -f" "make" "-f \\1" nil "mkdir \\1" "./" "wo= rk/" "Makefile" "provhdl" ("^\\([^=20=09 :]+\\):\\([0-9]+\\): " 1 2 nil) ("" 0) ("ENTI/\\1.vif" "ARCH/\\1-\\2.vif" "= CONF/\\1.vif" "PACK/\\1.vif" "BODY/BODY-\\1.vif" upcase)) ("Quartus" "make"= "-work \\1" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile" "quart= us" ("^\\(Error\\|Warning\\): .* \\([^=20=09 ]+\\)(\\([0-9]+\\))" 2 3 nil) ("" 0) nil) ("QuickHDL" "qvhcom" "-work \\1" = "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile" "quickhdl" ("^\\(ER= ROR\\|WARNING\\)[^:]*: \\([^=20=09 ]+\\)(\\([0-9]+\\)):" 2 3 nil) ("" 0) ("\\1/_primary.dat" "\\2/\\1.dat" "\\= 1/_primary.dat" "\\1/_primary.dat" "\\1/body.dat" downcase)) ("Savant" "scr= am" "-publish-cc -design-library-name \\1" "make" "-f \\1" nil "mkdir \\1" = "./" "work._savant_lib/" "Makefile" "savant" ("^\\([^=20=09 :]+\\):\\([0-9]+\\): " 1 2 nil) ("" 0) ("\\1_entity.vhdl" "\\2_secondary_un= its._savant_lib/\\2_\\1.vhdl" "\\1_config.vhdl" "\\1_package.vhdl" "\\1_sec= ondary_units._savant_lib/\\1_package_body.vhdl" downcase)) ("Simili" "vhdlp= " "-work \\1" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile" "simi= li" ("^\\(Error\\|Warning\\): \\w+: \\([^=20=09 ]+\\): (line \\([0-9]+\\)): " 2 3 nil) ("" 0) ("\\1/prim.var" "\\2/_\\1.var= " "\\1/prim.var" "\\1/prim.var" "\\1/_body.var" downcase)) ("Speedwave" "an= alyze" "-libfile vsslib.ini -src" "make" "-f \\1" nil "mkdir \\1" "./" "wor= k/" "Makefile" "speedwave" ("^ *ERROR\\[[0-9]+]::File \\([^=20=09 ]+\\) Line \\([0-9]+\\):" 1 2 nil) ("" 0) nil) ("Synopsys" "vhdlan" "-nc -w= ork \\1" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile" "synopsys"= ("^\\*\\*Error: vhdlan,[0-9]+ \\([^=20=09 ]+\\)(\\([0-9]+\\)):" 1 2 nil) ("" 0) ("\\1.sim" "\\2__\\1.sim" "\\1.sim" "= \\1.sim" "\\1__.sim" upcase)) ("Synopsys Design Compiler" "vhdlan" "-nc -sp= c -work \\1" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile" "synop= sys_dc" ("^\\*\\*Error: vhdlan,[0-9]+ \\([^=20=09 ]+\\)(\\([0-9]+\\)):" 1 2 nil) ("" 0) ("\\1.syn" "\\2__\\1.syn" "\\1.syn" "= \\1.syn" "\\1__.syn" upcase)) ("Synplify" "n/a" "n/a" "make" "-f \\1" nil "= mkdir \\1" "./" "work/" "Makefile" "synplify" ("^@[EWN]:\"\\([^=20=09 ]+\\)\":\\([0-9]+\\):\\([0-9]+\\):" 1 2 3) ("" 0) nil) ("Vantage" "analyze"= "-libfile vsslib.ini -src" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "M= akefile" "vantage" ("^\\*\\*Error: LINE \\([0-9]+\\) \\*\\*\\*" nil 1 nil) = ("^ *Compiling \"\\(.+\\)\" " 1) nil) ("VeriBest" "vc" "vhdl" "make" "-f \\= 1" nil "mkdir \\1" "./" "work/" "Makefile" "veribest" ("^ +\\([0-9]+\\): +[= ^ ]" nil 1 nil) ("" 0) nil) ("Viewlogic" "analyze" "-libfile vsslib.ini -sr= c" "make" "-f \\1" nil "mkdir \\1" "./" "work/" "Makefile" "viewlogic" ("^\= \*\\*Error: LINE \\([0-9]+\\) \\*\\*\\*" nil 1 nil) ("^ *Compiling \"\\(.+\= \)\" " 1) nil) ("Xilinx XST" "xflow" "" "make" "-f \\1" nil "mkdir \\1" "./= " "work/" "Makefile" "xilinx" ("^ERROR:HDLParsers:[0-9]+ - \"\\([^=20=09 ]+\\)\" Line \\([0-9]+\\)\\." 1 2 nil) ("" 0) nil) ("Xilinx Vivado" "xvhdl"= "" "make" "-f \\1" nil "mkdir \\1" "./" "work" "Makefile" "vivado" ("^\\(?= :\\(?1:ERROR\\)\\|\\(?2:WARNING\\)\\|\\(?3:INFO\\)\\): \\(.+\\) \\[\\(?4:[^= =20=09 ]+\\):\\(?5:[0-9]+\\)\\]" 4 5 nil (2 . 3)) ("" 0) ("\\1/entity" "\\2/\\1" "= \\1/configuration" "\\1/package" "\\1/body" downcase))) type: (repeat (list :tag "Compiler" :indent 2 (string :tag "Compiler na= me ") (string :tag "Compile command ") (string :tag "Compile option= s " "-work \\1") (string :tag "Make command " "make") (string :tag= "Make options " "-f \\1") (choice :tag "Generate Makefile " (const = :tag "Built-in function" nil) (string :tag "Command" "vmake \\2 > \\1")) (s= tring :tag "Library command " "mkdir \\1") (directory :tag "Compile dire= ctory " :validate vhdl-widget-directory-validate "./") (directory :tag "Li= brary directory " :validate vhdl-widget-directory-validate "work/") (file = :tag "Makefile name " "Makefile") (string :tag "ID string ") = (list :tag "Error message" :indent 4 (regexp :tag "Regexp ") (cho= ice :tag "File subexp " (integer :tag "Index") (const :tag "No file na= me" nil)) (integer :tag "Line subexp index") (choice :tag "Column subexp = " (integer :tag "Index") (const :tag "No column number" nil))) (list :tag = "File message" :indent 4 (regexp :tag "Regexp ") (integer :tag "F= ile subexp index")) (choice :tag "Unit-to-file name mapping" :format "%t: %= [Value Menu%] %v " (const :tag "Not defined" nil) (list :tag "To string" :indent 4 (string := tag "Entity " "\\1.vhd") (string :tag "Architecture " "\\2_\\= 1.vhd") (string :tag "Configuration " "\\1.vhd") (string :tag "Package = " "\\1.vhd") (string :tag "Package Body " "\\1_body.vhd") (choi= ce :tag "Case adjustment " (const :tag "None" identity) (const :tag "Upcas= e" upcase) (const :tag "Downcase" downcase)))))) --8<---------------cut here---------------end--------------->8--- Best regards, Michael.