August 2006 - xemacs-cvs＠xemacs.org - XEmacs Mailing List Archives

CVS update by viteno packages/mule-packages/leim ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/08/14 10:31:26 Modified: packages/mule-packages/leim ChangeLog Makefile Log: Increment VERSION in Makefile Revision Changes Path 1.30 +4 -0 XEmacs/packages/mule-packages/leim/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/leim/ChangeLog,v retrieving revision 1.29 retrieving revision 1.30 diff -u -p -r1.29 -r1.30 --- ChangeLog 2006/08/04 19:46:14 1.29 +++ ChangeLog 2006/08/14 08:31:26 1.30 ＠＠ -1,3 +1,7 ＠＠ +2006-08-14 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 1.24 released. + 2006-07-30 Aidan Kehoe <kehoea(a)parhasard.net> * quail/CTLau-b5.el: 1.34 +1 -1 XEmacs/packages/mule-packages/leim/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/leim/Makefile,v retrieving revision 1.33 retrieving revision 1.34 diff -u -p -r1.33 -r1.34 --- Makefile 2006/06/04 20:28:47 1.33 +++ Makefile 2006/08/14 08:31:26 1.34 ＠＠ -17,7 +17,7 ＠＠ # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. -VERSION = 1.23 +VERSION = 1.24 AUTHOR_VERSION = MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org> PACKAGE = leim

1 participants
0 comments

CVS update by viteno packages/mule-packages/latin-unity ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/08/14 10:30:46 Modified: packages/mule-packages/latin-unity ChangeLog Makefile Log: Increment VERSION in Makefile Revision Changes Path 1.49 +4 -0 XEmacs/packages/mule-packages/latin-unity/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/ChangeLog,v retrieving revision 1.48 retrieving revision 1.49 diff -u -p -r1.48 -r1.49 --- ChangeLog 2006/08/13 07:45:52 1.48 +++ ChangeLog 2006/08/14 08:30:46 1.49 ＠＠ -1,3 +1,7 ＠＠ +2006-08-14 Norbert Koch <viteno(a)xemacs.org> + + * Makefile (VERSION): XEmacs package 1.19 released. + 2006-06-22 Stephen J. Turnbull <stephen(a)xemacs.org> * latin-unity-vars.el (latin-unity-non-latin-bit-flag): New constant. 1.39 +1 -1 XEmacs/packages/mule-packages/latin-unity/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/Makefile,v retrieving revision 1.38 retrieving revision 1.39 diff -u -p -r1.38 -r1.39 --- Makefile 2006/06/28 07:58:33 1.38 +++ Makefile 2006/08/14 08:30:46 1.39 ＠＠ -22,7 +22,7 ＠＠ # Last-modified: 2005 February 7 # The XEmacs CVS version is canonical. Keep versions n'sync. -VERSION = 1.18 +VERSION = 1.19 AUTHOR_VERSION = $(VERSION) MAINTAINER = Stephen J. Turnbull <stephen(a)xemacs.org> PACKAGE = latin-unity

1 participants
0 comments

CVS update by viteno packages ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/08/14 10:30:25 Modified: packages ChangeLog Log: Package release Revision Changes Path 1.634 +5 -0 XEmacs/packages/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/ChangeLog,v retrieving revision 1.633 retrieving revision 1.634 diff -u -p -r1.633 -r1.634 --- ChangeLog 2006/08/05 09:08:52 1.633 +++ ChangeLog 2006/08/14 08:30:24 1.634 ＠＠ -1,3 +1,8 ＠＠ +2006-08-14 Norbert Koch <viteno(a)xemacs.org> + + * Packages released: latin-unity leim vhdl xemacs-base + xemacs-devel. + 2006-08-03 Ville Skyttä <scop(a)xemacs.org> * MAINTAINERS: Jeff Miller takes care of the calendar package.

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/08/13 23:51:00 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1621 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1620 retrieving revision 1.1621 diff -u -p -r1.1620 -r1.1621 --- version.sh 2006/08/12 21:51:12 1.1620 +++ version.sh 2006/08/13 21:50:59 1.1621 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060812)" +xemacs_extra_name="(+CVS-20060813)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by stephent packages/mule-packages/latin-unity, latin-unity-vars.el ... 18 years, 4 months

CVS Monitor

User: stephent Date: 06/08/13 09:45:53 Modified: packages/mule-packages/latin-unity ChangeLog latin-unity-vars.el latin-unity.el Log: Make latin-unity ignore non-latin charsets. <87fyg1w04a.fsf(a)tleepslib.sk.tsukuba.ac.jp> Revision Changes Path 1.48 +8 -0 XEmacs/packages/mule-packages/latin-unity/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/ChangeLog,v retrieving revision 1.47 retrieving revision 1.48 diff -u -p -r1.47 -r1.48 --- ChangeLog 2006/06/28 07:58:32 1.47 +++ ChangeLog 2006/08/13 07:45:52 1.48 ＠＠ -1,3 +1,11 ＠＠ +2006-06-22 Stephen J. Turnbull <stephen(a)xemacs.org> + + * latin-unity-vars.el (latin-unity-non-latin-bit-flag): New constant. + + * latin-unity.el (latin-unity-representations-present-region): Use + it to kludge around bug reported in + <m364iwq4yq.fsf(a)jerrypc.cs.usu.edu>. + 2006-06-28 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.18 released. 1.7 +12 -9 XEmacs/packages/mule-packages/latin-unity/latin-unity-vars.el Index: latin-unity-vars.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity-vars.el,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- latin-unity-vars.el 2005/02/15 22:22:48 1.6 +++ latin-unity-vars.el 2006/08/13 07:45:52 1.7 ＠＠ -150,14 +150,17 ＠＠ with the equivalence table.") "Bit vector representing the set of all Latin character sets.") ;; put the character set indicies and flag bits in reasonable places -(let ((index 1) (bit 1)) - (if (> (length latin-unity-character-sets) 25) - (error "representation too small to support so many charsets!")) - (mapcar (lambda (cs) - (put cs 'latin-unity-flag-bit bit) - (put cs 'latin-unity-index index) - (setq bit (lsh bit 1) - index (1+ index))) - latin-unity-character-sets)) +(defconst latin-unity-non-latin-bit-flag + (let ((index 1) (bit 1)) + (if (> (length latin-unity-character-sets) 25) + (error "representation too small to support so many charsets!")) + (mapcar (lambda (cs) + (put cs 'latin-unity-flag-bit bit) + (put cs 'latin-unity-index index) + (setq bit (lsh bit 1) + index (1+ index))) + latin-unity-character-sets) + bit) + "A bit-flag indicating charsets not handled by latin-unity.") ;;; end of latin-unity-vars. 1.15 +6 -4 XEmacs/packages/mule-packages/latin-unity/latin-unity.el Index: latin-unity.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity.el,v retrieving revision 1.14 retrieving revision 1.15 diff -u -p -r1.14 -r1.15 --- latin-unity.el 2006/05/02 21:58:12 1.14 +++ latin-unity.el 2006/08/13 07:45:52 1.15 ＠＠ -469,21 +469,23 ＠＠ character sets. BUFFER defaults to the (goto-char (point-min)) (while (not (eobp)) (let* ((ch (char-after)) - (cs (car (split-char ch)))) + (cs (car (split-char ch))) + (flag (get cs 'latin-unity-flag-bit 0))) (cond ((eq cs 'ascii) (setq skipchars (concat "\000-\177" skipchars)) - (setq asets (logior (get cs 'latin-unity-flag-bit 0) asets))) + (setq asets (logior flag asets))) ((eq cs 'latin-jisx0201) ;; #### get this someday ;;(setq skipchars (concat skipchars latin-unity-latin-jisx0201)) (setq skipchars (concat skipchars (list ch))) - (setq asets (logior (get cs 'latin-unity-flag-bit 0) asets))) + (setq asets (logior flag asets))) (t ;; #### actually we can do the whole charset here ;; precompute and set a property on the cs symbol (setq skipchars (concat skipchars (list ch))) - (setq lsets (logior (get cs 'latin-unity-flag-bit 0) lsets))))) + (when (= flag 0) (setq lsets (logior latin-unity-non-latin-bit-flag lsets))) + (setq lsets (logior flag lsets))))) ;; The characters skipped here can't change asciisets (skip-chars-forward skipchars)))) (cons lsets asets)))

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/08/12 23:51:14 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1620 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1619 retrieving revision 1.1620 diff -u -p -r1.1619 -r1.1620 --- version.sh 2006/08/11 21:50:50 1.1619 +++ version.sh 2006/08/12 21:51:12 1.1620 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060811)" +xemacs_extra_name="(+CVS-20060812)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by viteno xemacs ... 18 years, 4 months

CVS Monitor

User: viteno Date: 06/08/11 23:50:51 Modified: xemacs version.sh Log: Update xemacs_extra_name. Revision Changes Path 1.1619 +1 -1 XEmacs/xemacs/version.sh Index: version.sh =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/version.sh,v retrieving revision 1.1618 retrieving revision 1.1619 diff -u -p -r1.1618 -r1.1619 --- version.sh 2006/08/10 21:51:04 1.1618 +++ version.sh 2006/08/11 21:50:50 1.1619 ＠＠ -8,5 +8,5 ＠＠ emacs_kit_version= infodock_major_version=4 infodock_minor_version=0 infodock_build_version=8 -xemacs_extra_name="(+CVS-20060810)" +xemacs_extra_name="(+CVS-20060811)" xemacs_release_date="2006-05-16"

1 participants
0 comments

CVS update by james packages/xemacs-packages/vhdl, Makefile ... 18 years, 4 months

CVS Monitor

User: james Date: 06/08/11 19:41:17 Modified: packages/xemacs-packages/vhdl ChangeLog ChangeLog.upstream Makefile vhdl-mode.el vhdl-mode.texi Log: Update to author version 3.33.12. <m3psf9ao26.fsf(a)jerrypc.cs.usu.edu> Revision Changes Path 1.28 +7 -0 XEmacs/packages/xemacs-packages/vhdl/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vhdl/ChangeLog,v retrieving revision 1.27 retrieving revision 1.28 diff -u -p -r1.27 -r1.28 --- ChangeLog 2006/04/19 06:15:04 1.27 +++ ChangeLog 2006/08/11 17:41:15 1.28 ＠＠ -1,3 +1,10 ＠＠ +2006-08-09 Jerry James <james(a)xemacs.org> + + * ChangeLog.upstream: Update from 3.33.12. + * vhdl-mode.el: Sync with 3.33.12. + * vhdl-mode.texi: Fix a minor typo. + * Makefile (AUTHOR_VERSION): Change to 3.33.12. + 2006-04-19 Norbert Koch <viteno(a)xemacs.org> * Makefile (VERSION): XEmacs package 1.21 released. 1.2 +43 -0 XEmacs/packages/xemacs-packages/vhdl/ChangeLog.upstream Index: ChangeLog.upstream =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vhdl/ChangeLog.upstream,v retrieving revision 1.1 retrieving revision 1.2 diff -u -p -r1.1 -r1.2 --- ChangeLog.upstream 2006/04/18 16:26:34 1.1 +++ ChangeLog.upstream 2006/08/11 17:41:15 1.2 ＠＠ -1,3 +1,46 ＠＠ +2006-05-23 Reto Zimmermann <reto(a)gnu.org> + + * vhdl-mode.el: Version 3.33.12 released. + (vhdl-in-quote-p): Handle single quoted characters correctly. + (vhdl-begin-*-re): Fix indentation for "if/case ... use". + (vhdl-fixup-whitespace-region): Add "??" operator. + (vhdl-corresponding-end): Fix indentation for "if/case ... use". + +2006-05-16 Reto Zimmermann <reto(a)gnu.org> + + * vhdl-mode.el + (vhdl-align-region-2): Not align at end of line. + (vhdl-in-literal): Also check character quotes (single quote). + (vhdl-align-region-2): Fix in-literal checking. + (vhdl-fixup-whitespace-region): Add ?= ?/= ?> ?>= ?< ?<= operators. + +2006-05-15 Reto Zimmermann <reto(a)gnu.org> + + * vhdl-mode.el: Version 3.33.11 released. + (vhdl-fixup-whitespace-region): Correctly handle single '-'. + (vhdl-align-region-2, vhdl-fixup-whitespace-region): Handle at boi. + (vhdl-get-syntactic-context): Fix argument list indentation. + +2006-05-11 Reto Zimmermann <reto(a)gnu.org> + + * vhdl-mode.el: Version 3.33.10 released. + (vhdl-compile): Use relative path for compiled files by default. + (vhdl-compile-absolute-path): Use absolute path for compiled files. + (vhdl-begin-p): Fix indentation for "-- when". + +2006-04-12 Reto Zimmermann <reto(a)gnu.org> + + * vhdl-mode.el: Version 3.33.8 released. + (vhdl-compiler-alist): Add "Aldec" simulator. + (vhdl-get-visible-signals): Allow "port ..." in middle of line. + (vhdl-fixup-whitespace-region): Fix whitespace removal before comma. + (top): Update for VHDL'02 standard (add 'protected' keyword). + +2006-01-13 Reto Zimmermann <reto(a)gnu.org> + + * vhdl-mode.el: + (vhdl-mode): Remove 'fill-prefix' definition for XEmacs (breaks else). + 2005-12-09 Reto Zimmermann <reto(a)gnu.org> * vhdl-mode.el: Version 3.33.7 released. 1.33 +1 -1 XEmacs/packages/xemacs-packages/vhdl/Makefile Index: Makefile =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vhdl/Makefile,v retrieving revision 1.32 retrieving revision 1.33 diff -u -p -r1.32 -r1.33 --- Makefile 2006/04/19 06:15:04 1.32 +++ Makefile 2006/08/11 17:41:15 1.33 ＠＠ -18,7 +18,7 ＠＠ # Boston, MA 02111-1307, USA. VERSION = 1.21 -AUTHOR_VERSION = 3.33.8 +AUTHOR_VERSION = 3.33.12 MAINTAINER = XEmacs Development Team <xemacs-beta(a)xemacs.org> PACKAGE = vhdl PKG_TYPE = regular 1.10 +127 -69 XEmacs/packages/xemacs-packages/vhdl/vhdl-mode.el Index: vhdl-mode.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vhdl/vhdl-mode.el,v retrieving revision 1.9 retrieving revision 1.10 diff -u -p -r1.9 -r1.10 --- vhdl-mode.el 2006/04/18 16:26:34 1.9 +++ vhdl-mode.el 2006/08/11 17:41:15 1.10 ＠＠ -1,18 +1,18 ＠＠ ;;; vhdl-mode.el --- major mode for editing VHDL code -;; Copyright (C) 1992-2005 Free Software Foundation, Inc. +;; Copyright (C) 1992-2006 Free Software Foundation, Inc. ;; Authors: Reto Zimmermann <reto(a)gnu.org> ;; Rodney J. Whitby <software.vhdl-mode(a)rwhitby.net> ;; Maintainer: Reto Zimmermann <reto(a)gnu.org> -;; RCS: $Id: vhdl-mode.el,v 1.9 2006/04/18 16:26:34 james Exp $ +;; RCS: $Id: vhdl-mode.el,v 1.10 2006/08/11 17:41:15 james Exp $ ;; Keywords: languages vhdl -;; WWW: http://opensource.ethz.ch/emacs/vhdl-mode.html +;; WWW: http://www.iis.ee.ethz.ch/~zimmi/emacs/vhdl-mode.html -(defconst vhdl-version "3.33.8" +(defconst vhdl-version "3.33.12" "VHDL Mode version number.") -(defconst vhdl-time-stamp "2005-12-09" +(defconst vhdl-time-stamp "2006-05-23" "VHDL Mode time stamp for last update.") ;; This file is part of GNU Emacs. ＠＠ -57,7 +57,7 ＠＠ ;; - Block commenting ;; - Code fixing/alignment/beautification ;; - Postscript printing -;; - VHDL'87/'93 and VHDL-AMS supported +;; - VHDL'87/'93/'02 and VHDL-AMS supported ;; - Comprehensive menu ;; - Fully customizable ;; - Works under GNU Emacs (recommended) and XEmacs ＠＠ -221,6 +221,12 ＠＠ Overrides local variable `indent-tabs-mo (defcustom vhdl-compiler-alist '( + ;; Aldec + ;; COMP96 ERROR COMP96_0078: "Unknown identifier "Addr_Bits"." "<filename>" 40 30 + ("Aldec" "vcom" "-93 -work \\1" "make" "-f \\1" + nil "vlib \\1; vmap \\2 \\1" "./" "work/" "Makefile" "aldec" + (".+?[ \t]+\$?:ERROR\$[^:]+:.+?\$?:.+\"\\(.+?\$\"[ \t]+\$[0-9]+\$\\)" 1 2 0) ("" 0) + nil) ;; Cadence Leapfrog: cv -file test.vhd ;; duluth: *E,430 (test.vhd,13): identifier (POSITIV) is not declared ("Cadence Leapfrog" "cv" "-work \\1 -file" "make" "-f \\1" ＠＠ -668,7 +674,7 ＠＠ A project setup file can be obtained by "*VHDL standards used. Basic standard: VHDL'87 : IEEE Std 1076-1987 - VHDL'93 : IEEE Std 1076-1993 + VHDL'93/02 : IEEE Std 1076-1993/2002 Additional standards: VHDL-AMS : IEEE Std 1076.1 (analog-mixed-signal) Math packages: IEEE Std 1076.2 (`math_real', `math_complex') ＠＠ -677,7 +683,7 ＠＠ NOTE: Activate the new setting in a VHDL \"Activate Options\"." :type '(list (choice :tag "Basic standard" (const :tag "VHDL'87" 87) - (const :tag "VHDL'93" 93)) + (const :tag "VHDL'93/02" 93)) (set :tag "Additional standards" :indent 2 (const :tag "VHDL-AMS" ams) (const :tag "Math packages" math))) ＠＠ -1792,7 +1798,7 ＠＠ NOTE: Activate the new setting by restar (defcustom vhdl-intelligent-tab t "*Non-nil means `TAB' does indentation, word completion and tab insertion. -That is, if preceeding character is part of a word then complete word, +That is, if preceding character is part of a word then complete word, else if not at beginning of line then insert tab, else if last command was a `TAB' or `RET' then dedent one step, else indent current line (i.e. `TAB' is bound to `vhdl-electric-tab'). ＠＠ -2898,7 +2904,7 ＠＠ STRING are replaced by `-' and substring (define-abbrev-table 'vhdl-mode-abbrev-table (append (when (memq 'vhdl vhdl-electric-keywords) - ;; VHDL'93 keywords + ;; VHDL'02 keywords '( ("--" "" vhdl-template-display-comment-hook 0) ("abs" "" vhdl-template-default-hook 0) ＠＠ -2975,6 +2981,7 ＠＠ STRING are replaced by `-' and substring ("postponed" "" vhdl-template-default-hook 0) ("procedure" "" vhdl-template-procedure-hook 0) ("process" "" vhdl-template-process-hook 0) + ("protected" "" vhdl-template-default-hook 0) ("pure" "" vhdl-template-default-hook 0) ("range" "" vhdl-template-default-hook 0) ("record" "" vhdl-template-default-hook 0) ＠＠ -3569,7 +3576,7 ＠＠ STRING are replaced by `-' and substring (list '87 (cadr vhdl-standard))) (vhdl-activate-customizations)) :style radio :selected (eq '87 (car vhdl-standard))] - ["VHDL'93" + ["VHDL'93/02" (progn (customize-set-variable 'vhdl-standard (list '93 (cadr vhdl-standard))) (vhdl-activate-customizations)) ＠＠ -4522,7 +4529,7 ＠＠ Usage: VHDL STANDARDS: The VHDL standards to be used are specified in option `vhdl-standard'. - Available standards are: VHDL'87/'93, VHDL-AMS, and Math Packages. + Available standards are: VHDL'87/'93(02), VHDL-AMS, and Math Packages. KEYWORD CASE: ＠＠ -4671,14 +4678,13 ＠＠ releases. You are kindly invited to par to above mailing lists by sending an email to <reto(a)gnu.org>. VHDL Mode is officially distributed at -http://opensource.ethz.ch/emacs/vhdl-mode.html +http://www.iis.ee.ethz.ch/~zimmi/emacs/vhdl-mode.html where the latest version can be found. Known problems: --------------- -- Indentation bug in simultaneous if- and case-statements (VHDL-AMS). - XEmacs: Incorrect start-up when automatically opening speedbar. - XEmacs: Indentation in XEmacs 21.4 (and higher). ＠＠ -4814,7 +4820,7 ＠＠ Key bindings: ;;; Keywords and standardized words ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defconst vhdl-93-keywords +(defconst vhdl-02-keywords '( "abs" "access" "after" "alias" "all" "and" "architecture" "array" "assert" "attribute" ＠＠ -4829,7 +4835,7 ＠＠ Key bindings: "map" "mod" "nand" "new" "next" "nor" "not" "null" "of" "on" "open" "or" "others" "out" - "package" "port" "postponed" "procedure" "process" "pure" + "package" "port" "postponed" "procedure" "process" "protected" "pure" "range" "record" "register" "reject" "rem" "report" "return" "rol" "ror" "select" "severity" "shared" "signal" "sla" "sll" "sra" "srl" "subtype" ＠＠ -4839,7 +4845,7 ＠＠ Key bindings: "wait" "when" "while" "with" "xnor" "xor" ) - "List of VHDL'93 keywords.") + "List of VHDL'02 keywords.") (defconst vhdl-ams-keywords '( ＠＠ -4872,7 +4878,7 ＠＠ Key bindings: ) "List of Verilog keywords as candidate for additional reserved words.") -(defconst vhdl-93-types +(defconst vhdl-02-types '( "boolean" "bit" "bit_vector" "character" "severity_level" "integer" "real" "time" "natural" "positive" "string" "line" "text" "side" ＠＠ -4880,7 +4886,7 ＠＠ Key bindings: "std_logic" "std_logic_vector" "std_ulogic" "std_ulogic_vector" ) - "List of VHDL'93 standardized types.") + "List of VHDL'02 standardized types.") (defconst vhdl-ams-types '( ＠＠ -4898,7 +4904,7 ＠＠ Key bindings: ) "List of Math Packages standardized types.") -(defconst vhdl-93-attributes +(defconst vhdl-02-attributes '( "base" "left" "right" "high" "low" "pos" "val" "succ" "pred" "leftof" "rightof" "range" "reverse_range" ＠＠ -4908,7 +4914,7 ＠＠ Key bindings: "simple_name" "instance_name" "path_name" "foreign" ) - "List of VHDL'93 standardized attributes.") + "List of VHDL'02 standardized attributes.") (defconst vhdl-ams-attributes '( ＠＠ -4919,7 +4925,7 ＠＠ Key bindings: ) "List of VHDL-AMS standardized attributes.") -(defconst vhdl-93-enum-values +(defconst vhdl-02-enum-values '( "true" "false" "note" "warning" "error" "failure" ＠＠ -4928,7 +4934,7 ＠＠ Key bindings: "fs" "ps" "ns" "us" "ms" "sec" "min" "hr" "right" "left" ) - "List of VHDL'93 standardized enumeration values.") + "List of VHDL'02 standardized enumeration values.") (defconst vhdl-ams-enum-values '( ＠＠ -4950,7 +4956,7 ＠＠ Key bindings: ) "List of Math Packages standardized constants.") -(defconst vhdl-93-functions +(defconst vhdl-02-functions '( "now" "resolved" "rising_edge" "falling_edge" "read" "readline" "write" "writeline" "endfile" ＠＠ -4963,7 +4969,7 ＠＠ Key bindings: "shl" "shr" "ext" "sxt" "deallocate" ) - "List of VHDL'93 standardized functions.") + "List of VHDL'02 standardized functions.") (defconst vhdl-ams-functions '( ＠＠ -4981,7 +4987,7 ＠＠ Key bindings: ) "List of Math Packages standardized functions.") -(defconst vhdl-93-packages +(defconst vhdl-02-packages '( "std_logic_1164" "numeric_std" "numeric_bit" "standard" "textio" ＠＠ -4989,7 +4995,7 ＠＠ Key bindings: "std_logic_misc" "std_logic_textio" "ieee" "std" "work" ) - "List of VHDL'93 standardized packages and libraries.") + "List of VHDL'02 standardized packages and libraries.") (defconst vhdl-ams-packages '( ＠＠ -5055,26 +5061,26 ＠＠ Key bindings: (defun vhdl-words-init () "Initialize reserved words." (setq vhdl-keywords - (append vhdl-93-keywords + (append vhdl-02-keywords (when (vhdl-standard-p 'ams) vhdl-ams-keywords))) (setq vhdl-types - (append vhdl-93-types + (append vhdl-02-types (when (vhdl-standard-p 'ams) vhdl-ams-types) (when (vhdl-standard-p 'math) vhdl-math-types))) (setq vhdl-attributes - (append vhdl-93-attributes + (append vhdl-02-attributes (when (vhdl-standard-p 'ams) vhdl-ams-attributes))) (setq vhdl-enum-values - (append vhdl-93-enum-values + (append vhdl-02-enum-values (when (vhdl-standard-p 'ams) vhdl-ams-enum-values))) (setq vhdl-constants (append (when (vhdl-standard-p 'math) vhdl-math-constants))) (setq vhdl-functions - (append vhdl-93-functions + (append vhdl-02-functions (when (vhdl-standard-p 'ams) vhdl-ams-functions) (when (vhdl-standard-p 'math) vhdl-math-functions))) (setq vhdl-packages - (append vhdl-93-packages + (append vhdl-02-packages (when (vhdl-standard-p 'ams) vhdl-ams-packages) (when (vhdl-standard-p 'math) vhdl-math-packages))) (setq vhdl-reserved-words ＠＠ -5369,6 +5375,17 ＠＠ the offset is simply returned." "Check if point is in a string." (eq (vhdl-in-literal) 'string)) +(defun vhdl-in-quote-p () + "Check if point is in a quote ('x')." + (or (and (> (point) (point-min)) + (< (1+ (point)) (point-max)) + (= (char-before (point)) ?\') + (= (char-after (1+ (point))) ?\')) + (and (> (1- (point)) (point-min)) + (< (point) (point-max)) + (= (char-before (1- (point))) ?\') + (= (char-after (point)) ?\')))) + (defun vhdl-in-literal () "Determine if point is in a VHDL literal." (save-excursion ＠＠ -5604,12 +5621,12 ＠＠ corresponding \"begin\" keyword, else re "is")))) (defconst vhdl-begin-fwd-re - "\\b\$is\\|begin\\|block\\|component\\|generate\\|then\\|else\\|loop\\|process\\|procedural\\|units\\|record\\|for\$\\b\$[^_]\\|\\'\$" + "\\b\$is\\|begin\\|block\\|component\\|generate\\|then\\|else\\|loop\\|process\\|procedural\\(\\s-+body\$?\\|units\\|use\\|record\\|for\\)\\b\$[^_]\\|\\'\$" "A regular expression for searching forward that matches all known \"begin\" keywords.") (defconst vhdl-begin-bwd-re - "\\b\$is\\|begin\\|block\\|component\\|generate\\|then\\|else\\|loop\\|process\\|procedural\\|units\\|record\\|for\$\\b[^_]" + "\\b\$is\\|begin\\|block\\|component\\|generate\\|then\\|else\\|loop\\|process\\|procedural\\(\\s-+body\$?\\|units\\|use\\|record\\|for\\)\\b[^_]" "A regular expression for searching backward that matches all known \"begin\" keywords.") ＠＠ -5642,15 +5659,15 ＠＠ keyword." (and (/= (following-char) ?\;) (not (looking-at "is\\|begin\\|process\\|procedural\\|block"))))) t) - ;; "begin", "then": - ((looking-at "be\\|t") + ;; "begin", "then", "use": + ((looking-at "be\\|t\\|use") t) ;; "else": ((and (looking-at "e") ;; make sure that the "else" isn't inside a ;; conditional signal assignment. (save-excursion - (re-search-backward ";\\|\\bwhen\\b[^_]" lim 'move) + (vhdl-re-search-backward ";\\|\\bwhen\\b[^_]" lim 'move) (or (eq (following-char) ?\;) (eq (point) lim)))) t) ＠＠ -5684,7 +5701,7 ＠＠ keyword." (cond ((looking-at "is\\|block\\|generate\\|process\\|procedural") "begin") - ((looking-at "then") + ((looking-at "then\\|use") "<else>") (t "end"))) ＠＠ -5699,6 +5716,9 ＠＠ Assumes that the caller will make sure t of an identifier that just happens to contain a \"begin\" keyword." (save-excursion (and (looking-at vhdl-begin-fwd-re) + (or (not (looking-at "\\<use\\>")) + (save-excursion (back-to-indentation) + (looking-at "\$\\w+\\s-*:\\s-*\$?\\<\$case\\|elsif\\|if\$\\>"))) (/= (preceding-char) ?_) (not (vhdl-in-literal)) (vhdl-begin-p lim) ＠＠ -5722,7 +5742,7 ＠＠ of an identifier that just happens to co (vhdl-backward-skip-label lim) (vhdl-first-word (point))))))) ;; "component", "units", "record": - ((looking-at "[cur]") + ((looking-at "c\\|un\\|r") ;; The first end found will close the block (vector "end" nil)) ;; "block", "process", "procedural": ＠＠ -5734,8 +5754,8 ＠＠ of an identifier that just happens to co (vhdl-backward-skip-label lim) (vhdl-first-word (point)))))) ;; "then": - ((looking-at "t") - (vector "elsif\\|else\\|end\\s-+if" + ((looking-at "t\\|use") + (vector "elsif\\|else\\|end\\s-+\$if\\|use\$" (and (vhdl-last-word (point)) (or (vhdl-first-word (point)) (save-excursion ＠＠ -5781,7 +5801,7 ＠＠ of an identifier that just happens to co (vhdl-end-p lim)) (if (looking-at "el") ;; "else", "elsif": - (vector "if\\|elsif" (vhdl-first-word (point)) "then" nil) + (vector "if\\|elsif" (vhdl-first-word (point)) "then\\|use" nil) ;; "end ...": (setq pos (point)) (forward-sexp) ＠＠ -5791,7 +5811,7 ＠＠ of an identifier that just happens to co ((looking-at "if\\b[^_]") (vector "else\\|elsif\\|if" (vhdl-first-word pos) - "else\\|then" nil)) + "else\\|then\\|use" nil)) ;; "end component": ((looking-at "component\\b[^_]") (vector (buffer-substring (match-beginning 1) ＠＠ -5879,7 +5899,7 ＠＠ of an identifier that just happens to co ))) (defconst vhdl-trailer-re - "\\b\$is\\|then\\|generate\\|loop\\|record\$\\b[^_]") + "\\b\$is\\|then\\|generate\\|loop\\|record\\|use\$\\b[^_]") (defconst vhdl-statement-fwd-re "\\b\$if\\|for\\|while\$\\b\$[^_]\\|\\'\$" ＠＠ -5959,6 +5979,9 ＠＠ contain a \"when\" keyword." (cond ;; "begin" keyword: ((and (looking-at vhdl-begin-fwd-re) + (or (not (looking-at "\\<use\\>")) + (save-excursion (back-to-indentation) + (looking-at "\$\\w+\\s-*:\\s-*\$?\\<\$case\\|elsif\\|if\$\\>"))) (/= (preceding-char) ?_) (vhdl-begin-p lim)) (setq foundp 'begin)) ＠＠ -6058,6 +6081,10 ＠＠ searches." nil (backward-sexp) (if (and (looking-at vhdl-begin-fwd-re) + (or (not (looking-at "\\<use\\>")) + (save-excursion + (back-to-indentation) + (looking-at "\$\\w+\\s-*:\\s-*\$?\\<\$case\\|elsif\\|if\$\\>"))) (/= (preceding-char) ?_) (not (vhdl-in-literal)) (vhdl-begin-p lim)) ＠＠ -6377,6 +6404,10 ＠＠ statement if already at the beginning of (setq donep t))) ;; If we are looking at a "begin", then stop ((and (looking-at vhdl-begin-fwd-re) + (or (not (looking-at "\\<use\\>")) + (save-excursion + (back-to-indentation) + (looking-at "\$\\w+\\s-*:\\s-*\$?\\<\$case\\|elsif\\|if\$\\>"))) (/= (preceding-char) ?_) (vhdl-begin-p nil)) ;; If it's a leader "begin", then find the ＠＠ -6627,6 +6658,10 ＠＠ is not moved." (setq begin-after-ip (and (not literal) (looking-at vhdl-begin-fwd-re) + (or (not (looking-at "\\<use\\>")) + (save-excursion + (back-to-indentation) + (looking-at "\$\\w+\\s-*:\\s-*\$?\\<\$case\\|elsif\\|if\$\\>"))) (vhdl-begin-p))) (setq end-after-ip (and (not literal) ＠＠ -6713,6 +6748,9 ＠＠ is not moved." (save-excursion (vhdl-beginning-of-statement-1 containing-sexp) (skip-chars-backward " \t(") + (while (= (preceding-char) ?\;) + (vhdl-beginning-of-statement-1 containing-sexp) + (skip-chars-backward " \t(")) (<= (point) containing-sexp))) (goto-char containing-sexp) (vhdl-add-syntax 'arglist-cont-nonempty (vhdl-point 'boi))) ＠＠ -6994,7 +7032,7 ＠＠ only-lines." ;; Indentation commands (defun vhdl-electric-tab (&optional prefix-arg) - "If preceeding character is part of a word or a paren then hippie-expand, + "If preceding character is part of a word or a paren then hippie-expand, else if right of non whitespace on line then insert tab, else if last command was a tab or return then dedent one step or if a comment toggle between normal indent and inline comment indent, ＠＠ -7326,7 +7364,11 ＠＠ the token in MATCH." (while (< bol end) (save-excursion (when (and (re-search-forward match eol t) - (not (vhdl-in-literal))) + (save-excursion + (goto-char (match-beginning 0)) + (and (not (vhdl-in-literal)) + (not (vhdl-in-quote-p)))) + (not (looking-at "\\s-*$"))) (setq distance (- (match-beginning substr) bol)) (when (> distance max) (setq max distance)))) ＠＠ -7341,7 +7383,13 ＠＠ the token in MATCH." (setq eol (save-excursion (end-of-line) (point))) (while (> lines 0) (when (and (re-search-forward match eol t) - (not (vhdl-in-literal))) + (save-excursion + (goto-char (match-beginning 0)) + (and (not (vhdl-in-literal)) + (not (vhdl-in-quote-p)))) + (not (looking-at "\\s-*$")) + (> (match-beginning 0) ; not if at boi + (save-excursion (back-to-indentation) (point)))) (setq width (- (match-end substr) (match-beginning substr))) (setq distance (- (match-beginning substr) bol)) (goto-char (match-beginning substr)) ＠＠ -7630,7 +7678,7 ＠＠ end of line, do nothing in comments and (while (re-search-forward "\$--.*\n\\|\"[^\"\n]*[\"\n]\\|\'.\'\$\\|\$\\s-*\\([,;]\$\\)" end t) (if (match-string 1) (goto-char (match-end 1)) - (replace-match "\\3 " nil nil nil 3))) + (replace-match "\\3 " nil nil nil 2))) ;; have no space after `(' (goto-char beg) (while (re-search-forward "\$--.*\n\\|\"[^\"\n]*[\"\n]\\|\'.\'\$\\|\$(\$\\s-+" end t) ＠＠ -7645,9 +7693,11 ＠＠ end of line, do nothing in comments and (replace-match "\\2"))) ;; surround operator symbols by one space (goto-char beg) - (while (re-search-forward "\$--.*\n\\|\"[^\"\n]*[\"\n]\\|\'.\'\$\\|\$\\([^/:<>=]\$\$:\\|=\\|<\\|>\\|:=\\|<=\\|>=\\|=>\\|/=\$\$[^=>]\\|$\$\\)" end t) - (if (match-string 1) - (goto-char (match-end 1)) + (while (re-search-forward "\$--.*\n\\|\"[^\"\n]*[\"\n]\\|\'.\'\$\\|\$\\([^/:<>=]\$\$:\\|\\??=\\|\\??<\\|\\??>\\|:=\\|\\??<=\\|\\??>=\\|=>\\|\\??/=\\|\\?\\?\$\$[^=>]\\|$\$\\)" end t) + (if (or (match-string 1) + (<= (match-beginning 0) ; not if at boi + (save-excursion (back-to-indentation) (point)))) + (goto-char (match-end 0)) (replace-match "\\3 \\4 \\5") (goto-char (match-end 2)))) ;; eliminate multiple spaces and spaces at end of line ＠＠ -7663,6 +7713,7 ＠＠ end of line, do nothing in comments and (progn (replace-match " " nil nil) t)) (and (looking-at "\\s-+") (re-search-forward "\\s-+" end t) (progn (replace-match " " nil nil) t)) + (and (looking-at "-") (re-search-forward "-" end t)) ; (re-search-forward "[^ \t-]+" end t)))) (re-search-forward "[^ \t\"-]+" end t)))) (unless no-message (message "Fixing up whitespace...done"))) ＠＠ -7924,8 +7975,8 ＠＠ buffer." (goto-char (point-min)) (if (not (re-search-forward (concat "^entity\\s-+" entity-name "\\>") nil t)) (error "ERROR: Entity \"%s\" not found:\n --> see option `vhdl-entity-file-name'" entity-name) - (when (setq beg (re-search-forward - "^\\s-*port[ \t\n]*(" + (when (setq beg (vhdl-re-search-forward + "\\<port[ \t\n]*(" (save-excursion (re-search-forward "^end\\>" nil t)) t)) (setq end (save-excursion ＠＠ -9970,7 +10021,7 ＠＠ specification, if not already there." (while (search-forward "<standard>" end t) (replace-match (concat "VHDL" (cond ((vhdl-standard-p '87) "'87") - ((vhdl-standard-p '93) "'93")) + ((vhdl-standard-p '93) "'93/02")) (when (vhdl-standard-p 'ams) ", VHDL-AMS") (when (vhdl-standard-p 'math) ", Math Packages")) t t)) (goto-char beg) ＠＠ -10455,7 +10506,7 ＠＠ with double-quotes is to be inserted. D (if vhdl-upper-case-keywords (upcase-word num) (downcase-word num))) (defun vhdl-minibuffer-tab (&optional prefix-arg) - "If preceeding character is part of a word or a paren then hippie-expand, + "If preceding character is part of a word or a paren then hippie-expand, else insert tab (used for word completion in VHDL minibuffer)." (interactive "P") (cond ＠＠ -10513,7 +10564,7 ＠＠ else insert tab (used for word completio (save-excursion (beginning-of-line) ;; search backward for block beginning or end - (while (or (while (and (setq pos (re-search-backward "^\\s-*\$\\(end\$\\|\$\\(impure\\|pure\$[ \t\n]+\\)?\$function\\|procedure\$\\|\$for\$\\|\$architecture\\|component\\|configuration\\|entity\\|package\\|record\\|units\$\\|\$\\w+[ \t\n]*:[ \t\n]*\$?\$postponed[ \t\n]+\$?\$block\\|case\\|for\\|if\\|procedural\\|process\\|while\$\\)\\>" nil t)) + (while (or (while (and (setq pos (re-search-backward "^\\s-*\$\\(end\$\\|\$\\(impure\\|pure\$[ \t\n]+\\)?\$function\\|procedure\$\\|\$for\$\\|\$architecture\\|component\\|configuration\\|entity\\|package\\(\\s-+body\$?\\|record\\|units\\)\\|\$\\w+[ \t\n]*:[ \t\n]*\$?\$postponed[ \t\n]+\$?\$block\\|case\\|for\\|if\\|procedural\\|process\\|while\$\\)\\>" nil t)) ;; not consider subprogram declarations (or (and (match-string 5) (save-match-data ＠＠ -10543,7 +10594,7 ＠＠ else insert tab (used for word completio (save-excursion (end-of-line) ;; search forward for block beginning or end - (while (or (while (and (setq pos (re-search-forward "^\\s-*\$\\(end\$\\|\$\\(impure\\|pure\$[ \t\n]+\\)?\$function\\|procedure\$\\|\$for\$\\|\$architecture\\|component\\|configuration\\|entity\\|package\\|record\\|units\$\\|\$\\w+[ \t\n]*:[ \t\n]*\$?\$postponed[ \t\n]+\$?\$block\\|case\\|for\\|if\\|procedural\\|process\\|while\$\\)\\>" nil t)) + (while (or (while (and (setq pos (re-search-forward "^\\s-*\$\\(end\$\\|\$\\(impure\\|pure\$[ \t\n]+\\)?\$function\\|procedure\$\\|\$for\$\\|\$architecture\\|component\\|configuration\\|entity\\|package\\(\\s-+body\$?\\|record\\|units\\)\\|\$\\w+[ \t\n]*:[ \t\n]*\$?\$postponed[ \t\n]+\$?\$block\\|case\\|for\\|if\\|procedural\\|process\\|while\$\\)\\>" nil t)) ;; not consider subprogram declarations (or (and (match-string 5) (save-match-data ＠＠ -13133,7 +13184,7 ＠＠ hierarchy otherwise.") ;; Scan functions (defun vhdl-scan-context-clause () - "Scan the context clause that preceeds a design unit." + "Scan the context clause that precedes a design unit." (let (lib-alist) (save-excursion (when (re-search-backward "^[ \t]*\$architecture\\|configuration\\|entity\\|package\$\\>" nil t) ＠＠ -16183,6 +16234,9 ＠＠ no project is defined." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; Compilation +(defvar vhdl-compile-absolute-path nil + "If non-nil, use absolute instead of relative path for compiled files.") + (defun vhdl-compile-init () "Initialize for compilation." (when (or (null compilation-error-regexp-alist) ＠＠ -16292,9 +16346,11 ＠＠ do not print any file names." (compiler (or (aget vhdl-compiler-alist vhdl-compiler nil) (error "ERROR: No such compiler: \"%s\"" vhdl-compiler))) (command (nth 0 compiler)) - (file-name (buffer-file-name)) - (options (vhdl-get-compile-options project compiler file-name)) (default-directory (vhdl-compile-directory)) + (file-name (if vhdl-compile-absolute-path + (buffer-file-name) + (file-relative-name (buffer-file-name)))) + (options (vhdl-get-compile-options project compiler file-name)) compilation-process-setup-function) (unless (file-directory-p default-directory) (error "ERROR: Compile directory does not exist: \"%s\"" default-directory)) ＠＠ -16302,7 +16358,9 ＠＠ do not print any file names." (when (string-match " " file-name) (setq file-name (concat "\"" file-name "\""))) ;; print out file name if compiler does not - (setq vhdl-compile-file-name (buffer-file-name)) + (setq vhdl-compile-file-name (if vhdl-compile-absolute-path + (buffer-file-name) + (file-relative-name (buffer-file-name)))) (when (and (= 0 (nth 1 (nth 10 compiler))) (= 0 (nth 1 (nth 11 compiler)))) (setq compilation-process-setup-function 'vhdl-compile-print-file-name)) ＠＠ -16939,13 +16997,13 ＠＠ User Options Reserved words in VHDL ---------------------- -VHDL'93 (IEEE Std 1076-1993): - `vhdl-93-keywords' : keywords - `vhdl-93-types' : standardized types - `vhdl-93-attributes' : standardized attributes - `vhdl-93-enum-values' : standardized enumeration values - `vhdl-93-functions' : standardized functions - `vhdl-93-packages' : standardized packages and libraries +VHDL'93/02 (IEEE Std 1076-1993/2002): + `vhdl-02-keywords' : keywords + `vhdl-02-types' : standardized types + `vhdl-02-attributes' : standardized attributes + `vhdl-02-enum-values' : standardized enumeration values + `vhdl-02-functions' : standardized functions + `vhdl-02-packages' : standardized packages and libraries VHDL-AMS (IEEE Std 1076.1): `vhdl-ams-keywords' : keywords 1.7 +1 -1 XEmacs/packages/xemacs-packages/vhdl/vhdl-mode.texi Index: vhdl-mode.texi =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/vhdl/vhdl-mode.texi,v retrieving revision 1.6 retrieving revision 1.7 diff -u -p -r1.6 -r1.7 --- vhdl-mode.texi 2002/01/14 07:59:57 1.6 +++ vhdl-mode.texi 2006/08/11 17:41:16 1.7 ＠＠ -147,7 +147,7 ＠＠ thereof. Their manuals were also the bas This manual is not very up-to-date. It basically contains the indentation machine documentation by Rod Whitby with only minor adaptions. A short documentation of the entire VHDL Mode is available -within the mode itself by typing ＠kbd{C-c C-h}. Also, all commands and +within the mode itself by typing ＠kbd{C-c C-h}. Also, all commands and the customization of most variables is available through the menu, which makes everything highly self-explaining.

1 participants
0 comments

CVS update by james xemacs/lib-src ... 18 years, 4 months

CVS Monitor

User: james Date: 06/08/11 19:37:18 Modified: xemacs/lib-src ChangeLog gnuslib.c gnuclient.c Log: Prevent potential buffer overflows. Also enable use of shutdown() on linux. <m37j1jez4n.fsf(a)jerrypc.cs.usu.edu> Revision Changes Path 1.213 +10 -0 XEmacs/xemacs/lib-src/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lib-src/ChangeLog,v retrieving revision 1.212 retrieving revision 1.213 diff -u -p -r1.212 -r1.213 --- ChangeLog 2006/07/25 04:46:41 1.212 +++ ChangeLog 2006/08/11 17:37:17 1.213 ＠＠ -1,3 +1,13 ＠＠ +2006-08-08 Jerry James <james(a)xemacs.org> + + * gnuslib.c (disconnect_from_server): shutdown() has been fine on + Linux for a long time now; use it. Also, don't use length to + access the buffer unless it is positive, not just nonzero. + * gnuclient.c (filename_expand): Initialize the last array element + to get a valid C string in case of overflow. Use strncat to avoid + buffer overruns. + * gnuclient.c (main): Use strncpy to avoid buffer overruns. + 2006-07-21 Stephen J. Turnbull <stephen(a)xemacs.org> * etags.c: Xemacs -> XEmacs. 1.13 +5 -7 XEmacs/xemacs/lib-src/gnuslib.c Index: gnuslib.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lib-src/gnuslib.c,v retrieving revision 1.12 retrieving revision 1.13 diff -u -p -r1.12 -r1.13 --- gnuslib.c 2001/08/13 04:45:48 1.12 +++ gnuslib.c 2006/08/11 17:37:17 1.13 ＠＠ -409,13 +409,11 ＠＠ disconnect_from_server (int s, int echo) send_string(s,EOT_STR); /* make sure server gets string */ -#if !defined (linux) && !defined (_SCO_DS) +#ifndef _SCO_DS /* - * shutdown is completely hozed under linux. If s is a unix domain socket, - * you'll get EOPNOTSUPP back from it. If s is an internet socket, you get - * a broken pipe when you try to read a bit later. The latter - * problem is fixed for linux versions >= 1.1.46, but the problem - * with unix sockets persists. Sigh. + * There used to be a comment here complaining about ancient Linux + * versions. It is no longer relevant. I don't know why _SCO_DS is + * verboten here, as the original comment did not say. */ if (shutdown(s,1) == -1) { ＠＠ -434,7 +432,7 ＠＠ disconnect_from_server (int s, int echo) #else while ((length = read(s,buffer,GSERV_BUFSZ)) > 0 || (length == -1 && errno == EINTR)) { - if (length) { + if (length > 0) { buffer[length] = '\0'; if (echo) { fputs(buffer,stdout); 1.28 +13 -10 XEmacs/xemacs/lib-src/gnuclient.c Index: gnuclient.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lib-src/gnuclient.c,v retrieving revision 1.27 retrieving revision 1.28 diff -u -p -r1.27 -r1.28 --- gnuclient.c 2004/12/06 23:23:41 1.27 +++ gnuclient.c 2006/08/11 17:37:18 1.28 ＠＠ -187,7 +187,7 ＠＠ filename_expand (char *fullpath, char *f #endif int len; - fullpath[0] = '\0'; + fullpath[0] = fullpath[QXE_PATH_MAX] = '\0'; #ifdef CYGWIN /* ＠＠ -200,7 +200,7 ＠＠ filename_expand (char *fullpath, char *f if (filename[0] && filename[0] == '/') { /* Absolute (unix-style) pathname. Do nothing */ - strcat (fullpath, filename); + strncat (fullpath, filename, QXE_PATH_MAX); } else { ＠＠ -208,15 +208,18 ＠＠ filename_expand (char *fullpath, char *f and prepend it. FIXME: need to fix the case of DOS paths like "\foo", where we need to get the current drive. */ - strcat (fullpath, get_current_working_directory ()); + strncat (fullpath, get_current_working_directory (), QXE_PATH_MAX); len = strlen (fullpath); - if (len > 0 && fullpath[len-1] == '/') /* trailing slash already? */ - ; /* yep */ - else - strcat (fullpath, "/"); /* nope, append trailing slash */ + /* If no trailing slash, add one */ + if (len <= 0 || (fullpath[len - 1] != '/' && len < QXE_PATH_MAX)) + { + strcat (fullpath, "/"); + len++; + } + /* Don't forget to add the filename! */ - strcat (fullpath,filename); + strncat (fullpath, filename, QXE_PATH_MAX - len); } } /* filename_expand */ ＠＠ -435,7 +438,7 ＠＠ main (int argc, char *argv[]) break; case 'r': GET_ARGUMENT (remotearg, "-r"); - strcpy (remotepath, remotearg); + strncpy (remotepath, remotearg, QXE_PATH_MAX); rflg = 1; break; #endif /* INTERNET_DOMAIN_SOCKETS */ ＠＠ -590,7 +593,7 ＠＠ main (int argc, char *argv[]) * to this machine */ if ((ptr = getenv ("GNU_NODE")) != NULL) /* user specified a path */ - strcpy (remotepath, ptr); + strncpy (remotepath, ptr, QXE_PATH_MAX); } #if 0 /* This is really bogus... re-enable it if you must have it! */ #if defined (hp9000s300) || defined (hp9000s800)

1 participants
0 comments

CVS update by vins xemacs/lisp ... 18 years, 4 months

CVS Monitor

User: vins Date: 06/08/11 03:30:25 Modified: xemacs/lisp ChangeLog obsolete.el subr.el Log: Move definition of string-to-char-list to obsolete.el. Revision Changes Path 1.760 +7 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.759 retrieving revision 1.760 diff -u -p -r1.759 -r1.760 --- ChangeLog 2006/08/10 12:28:41 1.759 +++ ChangeLog 2006/08/11 01:30:22 1.760 ＠＠ -1,3 +1,10 ＠＠ +2006-08-10 Vin Shelton <acs(a)xemacs.org> + + * subr.el: Move string-to-char-list to obsolete.el. + + * obsolete.el (string-to-char-list): Move obsolete definition + here, so dumping can succeed. + 2006-08-07 Ville Skyttä <scop(a)xemacs.org> * subr.el (string-to-char-list): New backwards compatibility alias 1.19 +3 -0 XEmacs/xemacs/lisp/obsolete.el Index: obsolete.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/obsolete.el,v retrieving revision 1.18 retrieving revision 1.19 diff -u -p -r1.18 -r1.19 --- obsolete.el 2005/01/28 02:58:41 1.18 +++ obsolete.el 2006/08/11 01:30:23 1.19 ＠＠ -357,6 +357,9 ＠＠ because its `find-charset-string' ignore (make-obsolete 'find-non-ascii-charset-region "use (delq 'ascii (charsets-in-region START END)) instead.") +;; < 21.5 compatibility, eg. https://bugzilla.redhat.com/201524#c2 +(define-obsolete-function-alias 'string-to-char-list 'string-to-list) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;; window-system objects ;; the functionality of column.el has been moved into C 1.39 +0 -3 XEmacs/xemacs/lisp/subr.el Index: subr.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/subr.el,v retrieving revision 1.38 retrieving revision 1.39 diff -u -p -r1.38 -r1.39 --- subr.el 2006/08/10 12:28:42 1.38 +++ subr.el 2006/08/11 01:30:23 1.39 ＠＠ -928,9 +928,6 ＠＠ TYPE should be `list' or `vector'." "Return a list of characters in STRING." (mapcar #'identity string)) -;; < 21.5 compatibility, eg. https://bugzilla.redhat.com/201524#c2 -(define-obsolete-function-alias 'string-to-char-list 'string-to-list) - (defun string-to-vector (string) "Return a vector of characters in STRING." (mapvector #'identity string))

1 participants
0 comments

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

xemacs-cvs August 2006