The R Project SVN – R – Diff – /branches/R-NaString/src/main/dstruct.c

 /*
  *  R : A Computer Langage for Statistical Data Analysis
  *  Copyright (C) 1995, 1996  Robert Gentleman and Ross Ihaka
+ *  Copyright (C) 2001  The R Development Core Team
+ *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
  *  the Free Software Foundation; either version 2 of the License, or
  *  (at your option) any later version.
 /*             name inserted in the name field  */
 static int ddVal(SEXP name)
+{
     char *buf, *endp;
-    int rval;
     buf = CHAR(name);
     if( !strncmp(buf,"..",2) && strlen(buf) > 2 ) {
         buf += 2;
-	rval = strtol(buf, &endp, 10);
+	strtol(buf, &endp, 10);
         if( *endp != '\0')
-		return 0;
+	    return 0;
 	else
-		return 1;
+	    return 1;
+    }
     return 0;
+}
 SEXP mkSYMSXP(SEXP name, SEXP value)
+{
-	SEXP c;
+    SEXP c;
-	int i;
+    int i;
-	PROTECT(name);
+    PROTECT(name);
-	PROTECT(value);
+    PROTECT(value);
-	i = ddVal(name);
+    i = ddVal(name);
-	c = allocSExp(SYMSXP);
+    c = allocSExp(SYMSXP);
-	SET_PRINTNAME(c, name);
+    SET_PRINTNAME(c, name);
-	SET_SYMVALUE(c, value);
+    SET_SYMVALUE(c, value);
-	SET_DDVAL(c, i);
+    SET_DDVAL(c, i);
-	UNPROTECT(2);
+    UNPROTECT(2);
-	return c;
+    return c;
+}
 /*  length - length of objects  */

The R Project SVN R