From ac7a9874a8c1746debfd9ae42a40a403ead9ea84 Mon Sep 17 00:00:00 2001
From: Diomidis Spinellis <dds@aueb.gr>
Date: Sat, 8 May 2004 21:35:41 +0000
Subject: [PATCH] Added long-names.

---
 sequence.pic | 36 ++++++++++++++++++++++++++++++------
 1 file changed, 30 insertions(+), 6 deletions(-)

diff --git a/sequence.pic b/sequence.pic
index ae2111a..a6ba411 100644
--- a/sequence.pic
+++ b/sequence.pic
@@ -47,7 +47,7 @@ define actor {
 }
 
 # Create a new placeholder object(label)
-define pobject {
+define placeholder_object {
 	$1: box invisible;
 	move;
 	move to $1.e;
@@ -56,6 +56,10 @@ define pobject {
 	lifestart_$1 = $1.s.y;
 }
 
+define pobject {
+	placeholder_object($1);
+}
+
 # Complete the lifeline of the given object
 define complete {
 	if (active_$1) then {
@@ -90,18 +94,26 @@ define message {
 }
 
 # Display a lifeline constraint(object, label)
-define lconstraint {
+define lifeline_constraint {
 	box at ($1.x + awid, Here.y) invis $2 ljust " " ;
 }
 
+define lconstraint {
+	lifeline_constraint($1,$2);
+}
+
 # Display an object constraint(label)
 # for the last object drawn
-define oconstraint {
+define object_constraint {
 	{ box invis with .s at last box .nw $1 ljust; }
 }
 
+define oconstraint {
+	object_constraint($1);
+}
+
 # Draw a creation message(from_object, to_object, object_label)
-define cmessage {
+define create_message {
 	down;
 	move spacing;
 	if ($1.x <= $2.x) then {
@@ -124,6 +136,10 @@ define cmessage {
 	move (spacing + boxht) / 2;
 }
 
+define cmessage {
+	create_message($1,$2,$3);
+}
+
 # Draw an X for a given object
 define drawx {
 	{
@@ -133,7 +149,7 @@ define drawx {
 }
 
 # Draw a destroy message(from_object, to_object)
-define dmessage {
+define destroy_message {
 	# troff code is \(Fo \(Fc, but they don't work in pic2plot
 	# See http://www.delorie.com/gnu/docs/plotutils/plotutils_71.html
 	message($1,$2,"\Fodestroy\Fc");
@@ -141,6 +157,10 @@ define dmessage {
 	drawx($2);
 }
 
+define dmessage {
+	destroy_message($1, $2);
+}
+
 # An object deletes itself: delete(object)
 define delete {
 	complete($1);
@@ -149,7 +169,7 @@ define delete {
 }
 
 # Draw a message return(from_object, to_object, label)
-define rmessage {
+define return_message {
 	down;
 	move spacing;
 	# See comment in message
@@ -163,6 +183,10 @@ define rmessage {
 	arrow from  ($1.x + off_from, Here.y) to ($2.x + off_to, Here.y) dashed $3 " ";
 }
 
+define rmessage {
+	return_message($1,$2,$3);
+}
+
 # Object becomes active
 define active {
 	complete($1);