[Tcladdressbook-commits] Source TclAddressBook.c,1.42,1.43

[Bernard D. <bde...@us...>]

Update of /cvsroot/tcladdressbook/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24159/Source

Modified Files:
	TclAddressBook.c 
Log Message:
Added a devel number to the version number string

Index: TclAddressBook.c
===================================================================
RCS file: /cvsroot/tcladdressbook/Source/TclAddressBook.c,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- TclAddressBook.c	30 Mar 2005 16:56:13 -0000	1.42
+++ TclAddressBook.c	4 Apr 2005 06:32:12 -0000	1.43
@@ -98,8 +98,13 @@
 			sprintf(vstr,"%d.%d\0", TCLADDRESSBOOK_MAJOR, TCLADDRESSBOOK_MINOR);
 		}
 	} else {
-		sprintf(vstr,"%d.%d%c%d\0", TCLADDRESSBOOK_MAJOR, TCLADDRESSBOOK_MINOR, 
-				TCLADDRESSBOOK_STAGE, TCLADDRESSBOOK_SUBMINOR);
+		if (TCLADDRESSBOOK_DEVEL) {
+			sprintf(vstr,"%d.%d.%d%c%d\0", TCLADDRESSBOOK_MAJOR, TCLADDRESSBOOK_MINOR, 
+					TCLADDRESSBOOK_SUBMINOR, TCLADDRESSBOOK_STAGE, TCLADDRESSBOOK_DEVEL);
+		} else {
+			sprintf(vstr,"%d.%d.%d%c\0", TCLADDRESSBOOK_MAJOR, TCLADDRESSBOOK_MINOR, 
+					TCLADDRESSBOOK_SUBMINOR, TCLADDRESSBOOK_STAGE);
+		}
 	}
 				 
     // Declare the addressbook package