5 %%% (c) 2015 Straylight/Edgeware
8 %%%----- Licensing notice ---------------------------------------------------
10 %%% This file is part of the Sensible Object Design, an object system for C.
12 %%% SOD is free software; you can redistribute it and/or modify
13 %%% it under the terms of the GNU General Public License as published by
14 %%% the Free Software Foundation; either version 2 of the License, or
15 %%% (at your option) any later version.
17 %%% SOD is distributed in the hope that it will be useful,
18 %%% but WITHOUT ANY WARRANTY; without even the implied warranty of
19 %%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 %%% GNU General Public License for more details.
22 %%% You should have received a copy of the GNU General Public License
23 %%% along with SOD; if not, write to the Free Software Foundation,
24 %%% Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
26 \chapter{Module syntax} \label{ch:syntax}
28 %%%--------------------------------------------------------------------------
29 \section{Lexical syntax} \label{sec:syntax.lex}
31 Whitespace and comments are discarded. The remaining characters are
32 collected into tokens according to the following syntax.
35 <token> ::= <identifier>
38 \alt <integer-literal>
42 This syntax is slightly ambiguous, and is disambiguated by the \emph{maximal
43 munch} rule: at each stage we take the longest sequence of characters which
47 \subsection{Identifiers} \label{sec:syntax.lex.id}
50 <identifier> ::= <id-start-char> @<id-body-char>^*
52 <id-start-char> ::= <alpha-char> | "_"
54 <id-body-char> ::= <id-start-char> @! <digit-char>
56 <alpha-char> ::= "A" | "B" | \dots\ | "Z"
57 \alt "a" | "b" | \dots\ | "z"
58 \alt <extended-alpha-char>
60 <digit-char> ::= "0" | <nonzero-digit-char>
62 <nonzero-digit-char> ::= "1" | "2" $| \ldots |$ "9"
65 The precise definition of @<alpha-char> is left to the function
66 \textsf{alpha-char-p} in the hosting Lisp system. For portability,
67 programmers are encouraged to limit themselves to the standard ASCII letters.
69 There are no reserved words at the lexical level, but the higher-level syntax
70 recognizes certain identifiers as \emph{keywords} in some contexts. There is
71 also an ambiguity (inherited from C) in the declaration syntax which is
72 settled by distinguishing type names from other identifiers at a lexical
76 \subsection{String and character literals} \label{sec:syntax.lex.string}
79 <string-literal> ::= "\"" @<string-literal-char>^* "\""
81 <char-literal> ::= "'" <char-literal-char> "'"
83 <string-literal-char> ::= any character other than "\\" or "\""
86 <char-literal-char> ::= any character other than "\\" or "'"
89 <char> ::= any single character
92 The syntax for string and character literals differs from~C. In particular,
93 escape sequences such as @`\textbackslash n' are not recognized. The use
94 of string and character literals in Sod, outside of C~fragments, is limited,
95 and the simple syntax seems adequate. For the sake of future compatibility,
96 the use of character sequences which resemble C escape sequences is
99 \subsubsection{Integer literals} \label{sec:syntax.lex.int}
102 <integer-literal> ::= <decimal-integer>
103 \alt <binary-integer>
107 <decimal-integer> ::= "0" | <nonzero-digit-char> @<digit-char>^*
109 <binary-integer> ::= "0" @("b"|"B"@) @<binary-digit-char>^+
111 <binary-digit-char> ::= "0" | "1"
113 <octal-integer> ::= "0" @["o"|"O"@] @<octal-digit-char>^+
115 <octal-digit-char> ::= "0" | "1" $| \ldots |$ "7"
117 <hex-integer> ::= "0" @("x"|"X"@) @<hex-digit-char>^+
119 <hex-digit-char> ::= <digit-char>
120 \alt "A" | "B" | "C" | "D" | "E" | "F"
121 \alt "a" | "b" | "c" | "d" | "e" | "f"
124 Sod understands only integers, not floating-point numbers; its integer syntax
125 goes slightly beyond C in allowing a @`0o' prefix for octal and @`0b' for
126 binary. However, length and signedness indicators are not permitted.
129 \subsection{Punctuation} \label{sec:syntax.lex.punct}
132 <punctuation> ::= any nonalphanumeric character other than "_", "\"" or "'"
136 \subsection{Comments} \label{sec:syntax.lex.comment}
139 <comment> ::= <block-comment>
144 @<not-star>^* @(@<star>^+ <not-star-or-slash> @<not-star>^*@)^*
150 <not-star> ::= any character other than "*"
152 <not-star-or-slash> ::= any character other than "*" or "/"
154 <line-comment> ::= "/\,/" @<not-newline>^* <newline>
156 <newline> ::= a newline character
158 <not-newline> ::= any character other than newline
161 Comments are exactly as in C99: both traditional block comments `@|/*| \dots\
162 @|*/|' and \Cplusplus-style `@|/\,/| \dots' comments are permitted and
166 \subsection{Special nonterminals} \label{sec:syntax.lex.special}
168 Aside from the lexical syntax presented above (\xref{sec:lexical-syntax}),
169 two special nonterminals occur in the module syntax.
171 \subsubsection{S-expressions}
173 <s-expression> ::= an S-expression, as parsed by the Lisp reader
176 When an S-expression is expected, the Sod parser simply calls the host Lisp
177 system's @|read| function. Sod modules are permitted to modify the read
178 table to extend the S-expression syntax.
180 S-expressions are self-delimiting, so no end-marker is needed.
182 \subsubsection{C fragments}
184 <c-fragment> ::= a sequence of C tokens, with matching brackets
187 Sequences of C code are simply stored and written to the output unchanged
188 during translation. They are read using a simple scanner which nonetheless
189 understands C comments and string and character literals.
191 A C fragment is terminated by one of a small number of delimiter characters
192 determined by the immediately surrounding context -- usually a closing brace
193 or bracket. The first such delimiter character which is not enclosed in
194 brackets, braces or parenthesis ends the fragment.
196 %%%--------------------------------------------------------------------------
197 \section{Module syntax} \label{sec:syntax.module}
200 <module> ::= @<definition>^*
202 <definition> ::= <import-definition>
203 \alt <load-definition>
204 \alt <lisp-definition>
205 \alt <code-definition>
206 \alt <typename-definition>
207 \alt <class-definition>
210 A @<module> is the top-level syntactic item. A module consists of a sequence
213 \fixme{describe syntax; expand}
216 \item[@"module_class"] A symbol naming the Lisp class to use to
217 represent the module.
218 \item[@"guard"] An identifier to use as the guard symbol used to prevent
219 multiple inclusion in the header file.
223 \subsection{Simple definitions} \label{sec:syntax.module.simple}
225 \subsubsection{Importing modules}
227 <import-definition> ::= "import" <string> ";"
230 The module named @<string> is processed and its definitions made available.
232 A search is made for a module source file as follows.
234 \item The module name @<string> is converted into a filename by appending
235 @`.sod', if it has no extension already.\footnote{%
236 Technically, what happens is \textsf{(merge-pathnames name (make-pathname
237 :type "SOD" :case :common))}, so exactly what this means varies
238 according to the host system.} %
239 \item The file is looked for relative to the directory containing the
241 \item If that fails, then the file is looked for in each directory on the
242 module search path in turn.
243 \item If the file still isn't found, an error is reported and the import
246 At this point, if the file has previously been imported, nothing further
248 This check is done using \textsf{truename}, so it should see through simple
249 tricks like symbolic links. However, it may be confused by fancy things
250 like bind mounts and so on.} %
252 Recursive imports, either direct or indirect, are an error.
254 \subsubsection{Loading extensions}
256 <load-definition> ::= "load" <string> ";"
259 The Lisp file named @<string> is loaded and evaluated.
261 A search is made for a Lisp source file as follows.
263 \item The name @<string> is converted into a filename by appending @`.lisp',
264 if it has no extension already.\footnote{%
265 Technically, what happens is \textsf{(merge-pathnames name (make-pathname
266 :type "LISP" :case :common))}, so exactly what this means varies
267 according to the host system.} %
268 \item A search is then made in the same manner as for module imports
269 (\xref{sec:syntax-module}).
271 If the file is found, it is loaded using the host Lisp's \textsf{load}
274 Note that Sod doesn't attempt to compile Lisp files, or even to look for
275 existing compiled files. The right way to package a substantial extension to
276 the Sod translator is to provide the extension as a standard ASDF system (or
277 similar) and leave a dropping @"foo-extension.lisp" in the module path saying
280 \textsf{(asdf:load-system :foo-extension)}
282 which will arrange for the extension to be compiled if necessary.
284 (This approach means that the language doesn't need to depend on any
285 particular system definition facility. It's bad enough already that it
286 depends on Common Lisp.)
288 \subsubsection{Lisp escapes}
290 <lisp-definition> ::= "lisp" <s-expression> ";"
293 The @<s-expression> is evaluated immediately. It can do anything it likes.
295 \begin{boxy}[Warning!]
296 This means that hostile Sod modules are a security hazard. Lisp code can
297 read and write files, start other programs, and make network connections.
298 Don't install Sod modules from sources that you don't trust.\footnote{%
299 Presumably you were going to run the corresponding code at some point, so
300 this isn't as unusually scary as it sounds. But please be careful.} %
303 \subsubsection{Declaring type names}
305 <typename-definition> ::=
306 "typename" <list>$[\mbox{@<identifier>}]$ ";"
309 Each @<identifier> is declared as naming a C type. This is important because
310 the C type syntax -- which Sod uses -- is ambiguous, and disambiguation is
311 done by distinguishing type names from other identifiers.
313 Don't declare class names using @"typename"; use @"class" forward
314 declarations instead.
317 \subsection{Literal code} \label{sec:syntax.module.literal}
320 <code-definition> ::=
321 "code" <identifier> ":" <item-name> @[<constraints>@]
324 <constraints> ::= "[" <list>$[\mbox{@<constraint>}]$ "]"
326 <constraint> ::= @<item-name>^+
328 <item-name> ::= <identifier> @! "(" @<identifier>^+ ")"
331 The @<c-fragment> will be output unchanged to one of the output files.
333 The first @<identifier> is the symbolic name of an output file. Predefined
334 output file names are @"c" and @"h", which are the implementation code and
335 header file respectively; other output files can be defined by extensions.
337 Output items are named with a sequence of identifiers, separated by
338 whitespace, and enclosed in parentheses. As an abbreviation, a name
339 consisting of a single identifier may be written as just that identifier,
340 without the parentheses.
342 The @<constraints> provide a means for specifying where in the output file
343 the output item should appear. (Note the two kinds of square brackets shown
344 in the syntax: square brackets must appear around the constraints if they are
345 present, but that they may be omitted.) Each comma-separated @<constraint>
346 is a sequence of names of output items, and indicates that the output items
347 must appear in the order given -- though the translator is free to insert
348 additional items in between them. (The particular output items needn't be
349 defined already -- indeed, they needn't be defined ever.)
351 There is a predefined output item @"includes" in both the @"c" and @"h"
352 output files which is a suitable place for inserting @"\#include"
353 preprocessor directives in order to declare types and functions for use
354 elsewhere in the generated output files.
357 \subsection{Property sets} \label{sec:syntax.module.properties}
359 <properties> ::= "[" <list>$[\mbox{@<property>}]$ "]"
361 <property> ::= <identifier> "=" <expression>
364 Property sets are a means for associating miscellaneous information with
365 classes and related items. By using property sets, additional information
366 can be passed to extensions without the need to introduce idiosyncratic
369 A property has a name, given as an @<identifier>, and a value computed by
370 evaluating an @<expression>. The value can be one of a number of types,
371 though the only operators currently defined act on integer values only.
373 \subsubsection{The expression evaluator}
375 <expression> ::= <term> | <expression> "+" <term> | <expression> "--" <term>
377 <term> ::= <factor> | <term> "*" <factor> | <term> "/" <factor>
379 <factor> ::= <primary> | "+" <factor> | "--" <factor>
382 <integer-literal> | <string-literal> | <char-literal> | <identifier>
383 \alt "<" <plain-type> ">"
384 \alt "?" <s-expression>
385 \alt "(" <expression> ")"
388 The arithmetic expression syntax is simple and standard; there are currently
389 no bitwise, logical, or comparison operators.
391 A @<primary> expression may be a literal or an identifier. Note that
392 identifiers stand for themselves: they \emph{do not} denote values. For more
393 fancy expressions, the syntax
397 causes the @<s-expression> to be evaluated using the Lisp \textsf{eval}
399 %%% FIXME crossref to extension docs
402 \subsection{C types} \label{sec:syntax.module.types}
404 Sod's syntax for C types closely mirrors the standard C syntax. A C type has
405 two parts: a sequence of @<declaration-specifier>s and a @<declarator>. In
406 Sod, a type must contain at least one @<declaration-specifier> (i.e.,
407 `implicit @"int"' is forbidden), and storage-class specifiers are not
410 \subsubsection{Declaration specifiers}
412 <declaration-specifier> ::= <type-name>
413 \alt "struct" <identifier> | "union" <identifier> | "enum" <identifier>
414 \alt "void" | "char" | "int" | "float" | "double"
415 \alt "short" | "long"
416 \alt "signed" | "unsigned"
417 \alt "bool" | "_Bool"
418 \alt "imaginary" | "_Imaginary" | "complex" | "_Complex"
420 \alt <storage-specifier>
423 <qualifier> ::= <atomic> | "const" | "volatile" | "restrict"
425 <plain-type> ::= @<declaration-specifier>^+ <abstract-declarator>
428 <atomic> "(" <plain-type> ")"
430 <atomic> ::= "atomic" | "_Atomic"
432 <storage-specifier> ::= <alignas> "(" <c-fragment> ")"
434 <alignas> ::= "alignas" "_Alignas"
436 <type-name> ::= <identifier>
439 A @<type-name> is an identifier which has been declared as being a type name,
440 using the @"typename" or @"class" definitions. The following type names are
441 defined in the built-in module.
449 Declaration specifiers may appear in any order. However, not all
450 combinations are permitted. A declaration specifier must consist of zero or
451 more @<qualifier>s, zero or more @<storage-specifier>s, and one of the
452 following, up to reordering.
456 \item @"struct" @<identifier>, @"union" @<identifier>, @"enum" @<identifier>
458 \item @"_Bool", @"bool"
459 \item @"char", @"unsigned char", @"signed char"
460 \item @"short", @"unsigned short", @"signed short"
461 \item @"short int", @"unsigned short int", @"signed short int"
462 \item @"int", @"unsigned int", @"signed int", @"unsigned", @"signed"
463 \item @"long", @"unsigned long", @"signed long"
464 \item @"long int", @"unsigned long int", @"signed long int"
465 \item @"long long", @"unsigned long long", @"signed long long"
466 \item @"long long int", @"unsigned long long int", @"signed long long int"
467 \item @"float", @"double", @"long double"
468 \item @"float _Imaginary", @"double _Imaginary", @"long double _Imaginary"
469 \item @"float imaginary", @"double imaginary", @"long double imaginary"
470 \item @"float _Complex", @"double _Complex", @"long double _Complex"
471 \item @"float complex", @"double complex", @"long double complex"
473 All of these have their usual C meanings.
475 \subsubsection{Declarators}
477 <declarator>$[k, a]$ ::= @<pointer>^* <primary-declarator>$[k, a]$
479 <primary-declarator>$[k, a]$ ::= $k$
480 \alt "(" <primary-declarator>$[k, a]$ ")"
481 \alt <primary-declarator>$[k, a]$ @<declarator-suffix>$[a]$
483 <pointer> ::= "*" @<qualifier>^*
485 <declarator-suffix>$[a]$ ::= "[" <c-fragment> "]"
488 <argument-list> ::= $\epsilon$ | "\dots"
489 \alt <list>$[\mbox{@<argument>}]$ @["," "\dots"@]
491 <argument> ::= @<declaration-specifier>^+ <argument-declarator>
493 <abstract-declarator> ::= <declarator>$[\epsilon, \mbox{@<argument-list>}]$
495 <argument-declarator> ::=
496 <declarator>$[\mbox{@<identifier> @! $\epsilon$}, \mbox{@<argument-list>}]$
498 <simple-declarator> ::=
499 <declarator>$[\mbox{@<identifier>}, \mbox{@<argument-list>}]$
502 The declarator syntax is taken from C, but with some differences.
504 \item Array dimensions are uninterpreted @<c-fragments>, terminated by a
505 closing square bracket. This allows array dimensions to contain arbitrary
506 constant expressions.
507 \item A declarator may have either a single @<identifier> at its centre or a
508 pair of @<identifier>s separated by a @`.'; this is used to refer to
509 slots or messages defined in superclasses.
511 The remaining differences are (I hope) a matter of presentation rather than
514 There is additional syntax to support messages and methods which accept
518 <keyword-argument> ::= <argument> @["=" <c-fragment>@]
520 <keyword-argument-list> ::=
521 @[<list>$[\mbox{@<argument>}]$@]
522 "?" @[<list>$[\mbox{@<keyword-argument>}]$@]
524 <method-argument-list> ::= <argument-list> @! <keyword-argument-list>
526 <dotted-name> ::= <identifier> "." <identifier>
528 <keyword-declarator>$[k]$ ::=
529 <declarator>$[k, \mbox{@<method-argument-list>}]$
533 \subsection{Class definitions} \label{sec:syntax.module.class}
536 <class-definition> ::= <class-forward-declaration>
537 \alt <full-class-definition>
540 \subsubsection{Forward declarations}
542 <class-forward-declaration> ::= "class" <identifier> ";"
545 A @<class-forward-declaration> informs Sod that an @<identifier> will be used
546 to name a class which is currently undefined. Forward declarations are
547 necessary in order to resolve certain kinds of circularity. For example,
551 class Super: SodObject \{ \\ \ind
555 class Sub: Super \{ \\ \ind
560 \subsubsection{Full class definitions}
562 <full-class-definition> ::=
564 "class" <identifier> ":" <list>$[\mbox{@<identifier>}]$
565 "{" @<properties-class-item>^* "}"
567 <properties-class-item> ::= @[<properties>@] <class-item>
569 <class-item> ::= <slot-item>
570 \alt <initializer-item>
577 A full class definition provides a complete description of a class.
579 The first @<identifier> gives the name of the class. It is an error to
580 give the name of an existing class (other than a forward-referenced class),
581 or an existing type name. It is conventional to give classes `MixedCase'
582 names, to distinguish them from other kinds of identifiers.
584 The @<list>$[\mbox{@<identifier>}]$ names the direct superclasses for the new
585 class. It is an error if any of these @<identifier>s does not name a defined
586 class. The superclass list is required, and must not be empty; listing
587 @|SodObject| as your class's superclass is a good choice if nothing else
588 seems suitable. It's not possible to define a \emph{root class} in the Sod
589 language: you must use Lisp to do this, and it's quite involved.
591 The @<properties> provide additional information. The standard class
592 properties are as follows.
594 \item[@"lisp_class"] The name of the Lisp class to use within the translator
595 to represent this class. The property value must be an identifier; the
596 default is @"sod_class". Extensions may define classes with additional
597 behaviour, and may recognize additional class properties.
598 \item[@"metaclass"] The name of the Sod metaclass for this class. In the
599 generated code, a class is itself an instance of another class -- its
600 \emph{metaclass}. The metaclass defines which slots the class will have,
601 which messages it will respond to, and what its behaviour will be when it
602 receives them. The property value must be an identifier naming a defined
603 subclass of @"SodClass". The default metaclass is @"SodClass".
604 See \xref{sec:concepts.metaclasses} for more details.
605 \item[@"nick"] A nickname for the class, to be used to distinguish it from
606 other classes in various limited contexts. The property value must be an
607 identifier; the default is constructed by forcing the class name to
611 The class body consists of a sequence of @<class-item>s enclosed in braces.
612 These items are discussed on the following sections.
614 \subsubsection{Slot items}
617 @<declaration-specifier>^+ <list>$[\mbox{@<init-declarator>}]$ ";"
619 <init-declarator> ::= <simple-declarator> @["=" <initializer>@]
622 A @<slot-item> defines one or more slots. All instances of the class and any
623 subclass will contain these slot, with the names and types given by the
624 @<declaration-specifiers> and the @<declarators>. Slot declarators may not
625 contain dotted names.
627 It is not possible to declare a slot with function type: such an item is
628 interpreted as being a @<message-item> or @<method-item>. Pointers to
633 \item[@"slot_class"] A symbol naming the Lisp class to use to represent the
635 \item[@"initarg"] An identifier naming an initialization argument which can
636 be used to provide a value for the slot. See
637 \xref{sec:concepts.lifecycle.birth} for the details.
638 \item[@"initarg_class"] A symbol naming the Lisp class to use to represent
639 the initarg. Only permitted if @"initarg" is also set.
642 An @<initializer>, if present, is treated as if a separate
643 @<initializer-item> containing the slot name and initializer were present.
647 class Example: Super \{ \\ \ind
654 class Example: Super \{ \\ \ind
660 \subsubsection{Initializer items}
662 <initializer-item> ::= @["class"@] <list>$[\mbox{@<slot-initializer>}]$ ";"
664 <slot-initializer> ::= <dotted-name> @["=" <initializer>@]
666 <initializer> ::= <c-fragment>
669 An @<initializer-item> provides an initial value for one or more slots. If
670 prefixed by @"class", then the initial values are for class slots (i.e.,
671 slots of the class object itself); otherwise they are for instance slots.
673 The first component of the @<dotted-name> must be the nickname of one of the
674 class's superclasses (including itself); the second must be the name of a
675 slot defined in that superclass.
679 \item[@"initializer_class"] A symbol naming the Lisp class to use to
680 represent the initializer.
681 \item[@"initarg"] An identifier naming an initialization argument which can
682 be used to provide a value for the slot. See
683 \xref{sec:concepts.lifecycle.birth} for the details. An initializer item
684 must have either an @|initarg| property, or an initializer expression, or
686 \item[@"initarg_class"] A symbol naming the Lisp class to use to represent
687 the initarg. Only permitted if @"initarg" is also set.
690 Each class may define at most one initializer item with an explicit
691 initializer expression for a given slot.
693 \subsubsection{Initarg items}
697 @<declaration-specifier>^+
698 <list>$[\mbox{@<init-declarator>}]$ ";"
702 \item[@"initarg_class"] A symbol naming the Lisp class to use to represent
706 \subsubsection{Fragment items}
708 <fragment-item> ::= <fragment-kind> "{" <c-fragment> "}"
710 <fragment-kind> ::= "init" | "teardown"
713 \subsubsection{Message items}
716 @<declaration-specifier>^+
717 <keyword-declarator>$[\mbox{@<identifier>}]$
722 \item[@"message_class"] A symbol naming the Lisp class to use to represent
724 \item[@"combination"] A keyword naming the aggregating method combination to
726 \item[@"most_specific"] A keyword, either @`first' or @`last', according to
727 whether the most specific applicable method should be invoked first or
731 Properties for the @|custom| aggregating method combination:
733 \item[@"retvar"] An identifier for the return value from the effective
734 method. The default is @|sod__ret|. Only permitted if the message return
736 \item[@"valvar"] An identifier holding each return value from a direct method
737 in the effective method. The default is @|sod__val|. Only permitted if
738 the method return type (see @"methty" below) is not @|void|.
739 \item[@"methty"] A C type, which is the return type for direct methods of
740 this message. The default is the return type of the message.
741 \item[@"decls"] A code fragment containing declarations to be inserted at the
742 head of the effective method body. The default is to insert nothing.
743 \item[@"before"] A code fragment containing initialization to be performed at
744 the beginning of the effective method body. The default is to insert
746 \item[@"empty"] A code fragment executed if there are no primary methods;
747 it should usually store a suitable (identity) value in @<retvar>. The
748 default is not to emit an effective method at all if there are no primary
750 \item[@"first"] A code fragment to set the return value after calling the
751 first applicable direct method. The default is to use the @"each"
753 \item[@"each"] A code fragment to set the return value after calling a direct
754 method. If @"first" is also set, then it is used after the first direct
755 method instead of this. The default is to insert nothing, which is
756 probably not what you want.
757 \item[@"after"] A code fragment inserted at the end of the effective method
758 body. The default is to insert nothing.
759 \item[@"count"] An identifier naming a variable to be declared in the
760 effective method body, of type @|size_t|, holding the number of applicable
761 methods. The default is not to provide such a variable.
764 \subsubsection{Method items}
767 @<declaration-specifier>^+
768 <keyword-declarator>$[\mbox{@<dotted-name>}]$
771 <method-body> ::= "{" <c-fragment> "}" | "extern" ";"
775 \item[@"method_class"] A symbol naming the Lisp class to use to represent
777 \item[@"role"] A keyword naming the direct method's rôle. For the built-in
778 `simple' message classes, the acceptable rôle names are @|before|,
779 @|after|, and @|around|. By default, a primary method is constructed.
782 %%%----- That's all, folks --------------------------------------------------
786 %%% TeX-master: "sod.tex"