[R-gregmisc-users] SF.net SVN: r-gregmisc: [1138] trunk/SASxport

[<wa...@us...>]

Revision: 1138
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1138&view=rev
Author:   warnes
Date:     2007-08-11 20:22:50 -0700 (Sat, 11 Aug 2007)

Log Message:
-----------
More updates

Modified Paths:
--------------
    trunk/SASxport/DESCRIPTION
    trunk/SASxport/man/lookup.xport.Rd
    trunk/SASxport/src/cnxptiee.h
    trunk/SASxport/src/test_fields.c
    trunk/SASxport/src/writeSAS.h

Modified: trunk/SASxport/DESCRIPTION
===================================================================
--- trunk/SASxport/DESCRIPTION	2007-08-12 03:13:36 UTC (rev 1137)
+++ trunk/SASxport/DESCRIPTION	2007-08-12 03:22:50 UTC (rev 1138)
@@ -4,7 +4,10 @@
 Version: 0.99.1
 Date: 2007-07-28
 Author: Gregory R. Warnes <gr...@ra...>,
-        includes code from Frank E. Harrell, Jr.'s Hmisc package.   
+        includes code from Frank E. Harrell, Jr.'s Hmisc package,
+        and floating point conversion code from SAS techical support
+        document TS-140 "THE RECORD LAYOUT OF A DATA SET IN SAS"
+        TRANSPORT (XPORT) FORMAT.
 Maintainer: Gregory R. Warnes <gr...@ra...>
 Description: This package provides functions for both reading, listing
 	     contents of, and writing SAS xport format files. Reading
@@ -20,7 +23,6 @@
              Technical support contracts and other services for for R, this 
              package, and other packages are available from Random Technologies
              LLC <http://random-technologies-llc.com>.
-
 License: GPL 2.0 or later
 Imports: methods, foreign, chron
 

Modified: trunk/SASxport/man/lookup.xport.Rd
===================================================================
--- trunk/SASxport/man/lookup.xport.Rd	2007-08-12 03:13:36 UTC (rev 1137)
+++ trunk/SASxport/man/lookup.xport.Rd	2007-08-12 03:22:50 UTC (rev 1138)
@@ -10,12 +10,12 @@
 \usage{
 lookup.xport(file)
 \method{print}{lookup.xport}(x, ...)
-\method{summary}{lookup.xport}(x, ...)
+\method{summary}{lookup.xport}(object, ...)
 \method{print}{summary.lookup.xport}(x, ...)
 }
 \arguments{
   \item{file}{Character string specifying the name or URL of a SAS XPORT file.}
-  \item{x}{Object to be printed or summarized}
+  \item{x, object}{Object to be printed or summarized}
   \item{...}{Optional arguments}
 }
 \value{

Modified: trunk/SASxport/src/cnxptiee.h
===================================================================
--- trunk/SASxport/src/cnxptiee.h	2007-08-12 03:13:36 UTC (rev 1137)
+++ trunk/SASxport/src/cnxptiee.h	2007-08-12 03:22:50 UTC (rev 1138)
@@ -23,13 +23,13 @@
 int get_native(); 
 #endif 
 
-/* #ifdef BIG_ENDIAN */
-/* #define REVERSE(a,b)  */
-/* #endif  */
+#ifdef BIG_ENDIAN
+#define REVERSE(a,b)
+#endif
 
-/* #ifdef LITTLE_ENDIAN  */
-/* #define DEFINE_REVERSE */
-/* void REVERSE(); */
-/* #endif  */
+#ifdef LITTLE_ENDIAN
+#define DEFINE_REVERSE
+void REVERSE();
+#endif
 
 #endif /* CNXPTIEE */

Modified: trunk/SASxport/src/test_fields.c
===================================================================
--- trunk/SASxport/src/test_fields.c	2007-08-12 03:13:36 UTC (rev 1137)
+++ trunk/SASxport/src/test_fields.c	2007-08-12 03:22:50 UTC (rev 1138)
@@ -169,9 +169,5 @@
 
   test_blankCopy(BIG);
   test_zeroCopy(BIG);
-
-
-  /* test reverse */
-  test_reverse();
 }
   

Modified: trunk/SASxport/src/writeSAS.h
===================================================================
--- trunk/SASxport/src/writeSAS.h	2007-08-12 03:13:36 UTC (rev 1137)
+++ trunk/SASxport/src/writeSAS.h	2007-08-12 03:22:50 UTC (rev 1138)
@@ -37,19 +37,6 @@
 #define MISSING 0x2e000000  /* Standard SAS missing value: '.' */
 
 /*****
-  REVERSE macro, used as a wrapper for the reverse() function to avoid
-  compiling/calling it on little-endian.
- *****/
-
-#ifdef BIG_ENDIAN
-#  define REVERSE(a,b) reverse( (u_char*) a, (size_t) b)
-#elif defined(LITTLE_ENDIAN)
-#  define REVERSE(a,b) 
-#else 
-#  define REVERSE(a,b) reverse( (u_char*) a, (size_t) b)
-#endif
-
-/*****
  * Useful macro functions
  *****/
 
@@ -167,7 +154,4 @@
 
 void doTest();
 
-void reverse( u_char *intp, size_t size);
-
-
 #endif /* FIELDS_H */


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.