aboutsummaryrefslogtreecommitdiffstats
path: root/mps/code/protocol.h
diff options
context:
space:
mode:
authorRichard Brooksby2002-06-07 16:47:14 +0100
committerRichard Brooksby2002-06-07 16:47:14 +0100
commit97075f705350901f5ff46387f658ab459a4cd73f (patch)
tree4349ad5e7200f072a800f48749d57f3625757e7e /mps/code/protocol.h
parent8b990e4858b6f6d735de07a241b1785702bb16e7 (diff)
downloademacs-97075f705350901f5ff46387f658ab459a4cd73f.tar.gz
emacs-97075f705350901f5ff46387f658ab459a4cd73f.zip
Updating cross references to design documents to html style, to go with master/design document tree.
Copied from Perforce Change: 29897 ServerID: perforce.ravenbrook.com
Diffstat (limited to 'mps/code/protocol.h')
-rw-r--r--mps/code/protocol.h10
1 files changed, 5 insertions, 5 deletions
diff --git a/mps/code/protocol.h b/mps/code/protocol.h
index a36b1055a8e..22fa6f21df7 100644
--- a/mps/code/protocol.h
+++ b/mps/code/protocol.h
@@ -25,7 +25,7 @@
25 25
26/* Macro to set the superclass field. This is not intended */ 26/* Macro to set the superclass field. This is not intended */
27/* to be used outside this file. This is a polymorphic macro */ 27/* to be used outside this file. This is a polymorphic macro */
28/* named as a function. See design.mps.protocol.introspect.c-lang */ 28/* named as a function. See <design/protocol/#introspect.c-lang> */
29 29
30#define ProtocolClassSetSuperclassPoly(class, super) \ 30#define ProtocolClassSetSuperclassPoly(class, super) \
31 (((ProtocolClass)(class))->superclass) = (ProtocolClass)(super) 31 (((ProtocolClass)(class))->superclass) = (ProtocolClass)(super)
@@ -120,7 +120,7 @@ typedef Bool (*ProtocolCoerceClassMethod)(ProtocolClass *coerceResult,
120 120
121 121
122typedef struct ProtocolClassStruct { 122typedef struct ProtocolClassStruct {
123 Sig sig; /* design.mps.sig */ 123 Sig sig; /* <design/sig/> */
124 ProtocolClass superclass; /* the superclass */ 124 ProtocolClass superclass; /* the superclass */
125 ProtocolCoerceInstMethod coerceInst; /* coerce instance to super */ 125 ProtocolCoerceInstMethod coerceInst; /* coerce instance to super */
126 ProtocolCoerceClassMethod coerceClass; /* coerce class to superclass */ 126 ProtocolCoerceClassMethod coerceClass; /* coerce class to superclass */
@@ -128,7 +128,7 @@ typedef struct ProtocolClassStruct {
128 128
129 129
130typedef struct ProtocolInstStruct { 130typedef struct ProtocolInstStruct {
131 Sig sig; /* design.mps.sig */ 131 Sig sig; /* <design/sig/> */
132 ProtocolClass class; /* the class */ 132 ProtocolClass class; /* the class */
133} ProtocolInstStruct; 133} ProtocolInstStruct;
134 134
@@ -159,7 +159,7 @@ extern Bool ProtocolIsSubclass(ProtocolClass sub, ProtocolClass super);
159 159
160/* The following are macros because of the need to cast */ 160/* The following are macros because of the need to cast */
161/* subtypes of ProtocolClass. Nevertheless they are named */ 161/* subtypes of ProtocolClass. Nevertheless they are named */
162/* as functions. See design.mps.protocol.introspect.c-lang */ 162/* as functions. See <design/protocol/#introspect.c-lang> */
163 163
164 164
165#define ProtocolClassSuperclassPoly(class) \ 165#define ProtocolClassSuperclassPoly(class) \
@@ -175,7 +175,7 @@ extern Bool ProtocolIsSubclass(ProtocolClass sub, ProtocolClass super);
175 * 175 *
176 * Returns the superclass, with type ProtocolClass. Clients will 176 * Returns the superclass, with type ProtocolClass. Clients will
177 * probably wish to cast this. See 177 * probably wish to cast this. See
178 * design.mps.protocol.int.static-superclass 178 * <design/protocol/#int.static-superclass>
179 */ 179 */
180#define SUPERCLASS(className) \ 180#define SUPERCLASS(className) \
181 ProtocolClassSuperclassPoly(DERIVE_ENSURE(className)()) 181 ProtocolClassSuperclassPoly(DERIVE_ENSURE(className)())