Mercurial > hg > xemacs-beta

comparison lisp/oobr/br-smt.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
4 ;; SUMMARY: Support routines for Smalltalk inheritance browsing and error parsing. 4 ;; SUMMARY: Support routines for Smalltalk inheritance browsing and error parsing.
5 ;; USAGE: GNU Emacs Lisp Library 5 ;; USAGE: GNU Emacs Lisp Library
6 ;; KEYWORDS: oop, tools 6 ;; KEYWORDS: oop, tools
7 ;; 7 ;;
8 ;; AUTHOR: Bob Weiner 8 ;; AUTHOR: Bob Weiner
9 ;; ORG: Motorola Inc. 9 ;; ORG: InfoDock Associates
10 ;; 10 ;;
11 ;; ORIG-DATE: 26-Jul-90 11 ;; ORIG-DATE: 26-Jul-90
12 ;; LAST-MOD: 21-Sep-95 at 12:31:20 by Bob Weiner 12 ;; LAST-MOD: 20-Feb-97 at 07:00:21 by Bob Weiner
13 ;; 13 ;;
14 ;; Copyright (C) 1990-1995 Free Software Foundation, Inc. 14 ;; Copyright (C) 1990-1995, 1997 Free Software Foundation, Inc.
15 ;; See the file BR-COPY for license information. 15 ;; See the file BR-COPY for license information.
16 ;; 16 ;;
17 ;; This file is part of the OO-Browser. 17 ;; This file is part of the OO-Browser.
18 ;; 18 ;;
19 ;; DESCRIPTION: 19 ;; DESCRIPTION:
20 ;; 20 ;;
21 ;; See 'smt-class-def-regexp' for regular expression that matches class 21 ;; See `smt-class-def-regexp' for regular expression that matches class
22 ;; definitions. 22 ;; definitions.
23 ;; 23 ;;
24 ;; DESCRIP-END. 24 ;; DESCRIP-END.
25 25
26 ;;; ************************************************************************ 26 ;;; ************************************************************************
141 "Regexp following the class name in a class definition.") 141 "Regexp following the class name in a class definition.")
142 142
143 (defconst smt-class-def-regexp 143 (defconst smt-class-def-regexp
144 (concat smt-class-name-before smt-identifier smt-class-name-after) 144 (concat smt-class-name-before smt-identifier smt-class-name-after)
145 "Regular expression used to match to class definitions in source text. 145 "Regular expression used to match to class definitions in source text.
146 Class name identifier is grouped expression 3. 'subclass:' inheritance 146 Class name identifier is grouped expression 3. `subclass:' inheritance
147 indicator is grouped expression 2. Parent identifier is grouped 147 indicator is grouped expression 2. Parent identifier is grouped
148 expression 1.") 148 expression 1.")
149 149
150 150
151 (defconst smt-lang-prefix "smt-" 151 (defconst smt-lang-prefix "smt-"
154 (defconst smt-src-file-regexp ".\\.st$" 154 (defconst smt-src-file-regexp ".\\.st$"
155 "Regular expression matching a unique part of Smalltalk source file name and no others.") 155 "Regular expression matching a unique part of Smalltalk source file name and no others.")
156 156
157 (defvar smt-children-htable nil 157 (defvar smt-children-htable nil
158 "Htable whose elements are of the form: (LIST-OF-CHILD-CLASSES . CLASS-NAME). 158 "Htable whose elements are of the form: (LIST-OF-CHILD-CLASSES . CLASS-NAME).
159 Used to traverse Smalltalk inheritance graph. 'br-build-children-htable' builds 159 Used to traverse Smalltalk inheritance graph. `br-build-children-htable' builds
160 this list.") 160 this list.")
161 (defvar smt-parents-htable nil 161 (defvar smt-parents-htable nil
162 "Htable whose elements are of the form: (LIST-OF-PARENT-CLASSES . CLASS-NAME). 162 "Htable whose elements are of the form: (LIST-OF-PARENT-CLASSES . CLASS-NAME).
163 Used to traverse Smalltalk inheritance graph. 'br-build-parents-htable' builds 163 Used to traverse Smalltalk inheritance graph. `br-build-parents-htable' builds
164 this list.") 164 this list.")
165 (defvar smt-paths-htable nil 165 (defvar smt-paths-htable nil
166 "Htable whose elements are of the form: (LIST-OF-CLASS-NAMES . FILE-PATH). 166 "Htable whose elements are of the form: (LIST-OF-CLASS-NAMES . FILE-PATH).
167 FILE-PATH gives the location of classes found in LIST-OF-CLASS-NAMES. 167 FILE-PATH gives the location of classes found in LIST-OF-CLASS-NAMES.
168 'br-build-paths-htable' builds this list.") 168 `br-build-paths-htable' builds this list.")
169 169
170 170
171 (defvar smt-lib-parents-htable nil 171 (defvar smt-lib-parents-htable nil
172 "Htable whose elements are of the form: (LIST-OF-PARENT-CLASSES . CLASS-NAME). 172 "Htable whose elements are of the form: (LIST-OF-PARENT-CLASSES . CLASS-NAME).
173 Only classes from stable software libraries are used to build the list.") 173 Only classes from stable software libraries are used to build the list.")
184 FILE-PATH gives the location of classes found in LIST-OF-CLASS-NAMES. 184 FILE-PATH gives the location of classes found in LIST-OF-CLASS-NAMES.
185 Only classes from systems that are likely to change are used to build the 185 Only classes from systems that are likely to change are used to build the
186 list.") 186 list.")
187 187
188 (defvar smt-lib-prev-search-dirs nil 188 (defvar smt-lib-prev-search-dirs nil
189 "Used to check if 'smt-lib-classes-htable' must be regenerated.") 189 "Used to check if `smt-lib-classes-htable' must be regenerated.")
190 (defvar smt-sys-prev-search-dirs nil 190 (defvar smt-sys-prev-search-dirs nil
191 "Used to check if 'smt-sys-classes-htable' must be regenerated.") 191 "Used to check if `smt-sys-classes-htable' must be regenerated.")
192 192
193 (defvar smt-env-spec nil 193 (defvar smt-env-spec nil
194 "Non-nil value means Environment specification has been given but not yet built. 194 "Non-nil value means Environment specification has been given but not yet built.
195 Nil means current Environment has been built, though it may still require updating.") 195 Nil means current Environment has been built, though it may still require updating.")
196 196