Context Navigation

Changeset 7300 for trunk/psLib/src/sys

Timestamp:

Jun 2, 2006, 11:33:34 AM (20 years ago)

Author:

Paul Price

Message:

Applying patches from RHL.

Correctly detect cfitsio 3 (ffdkopn)
Add PS_ERR_FITS_BAD
Free memory leaks caused by extra columns with FITS tables
Report error for singular matrices in LMM
Add psErrorCodeLast
Write psAbort errors, even if logging is off; flush the file descriptor
Useful macro: PS_FILE_LINE
Print a newline if the last character of a trace lacks one
When moving arguments down, set the vacated slot to NULL (so that original is valid)
If nFail is omitted, push an error if appropriate

Location:

trunk/psLib/src/sys

Files:

-              r7250
+              r7300
  *  @author Eric Van Alst, MHPCC
+ *
  *  @version $Revision: 1.29 $ $Name: not supported by cvs2svn $
  *  @date $Date: 2006-05-31 19:53:36 $
+ *  @version $Revision: 1.30 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-06-02 21:33:34 $
+ *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
 …
+{
     return psErrorGet(0);
+}
+psErrorCode psErrorCodeLast(void)
+{
+    const psErr *err = psErrorGet(0);
+    psErrorCode code = err->code;
+    psFree(err);
+    return code;
+}

-              r4556
+              r7300
  *  @author Eric Van Alst, MHPCC
+ *
  *  @version $Revision: 1.25 $ $Name: not supported by cvs2svn $
  *  @date $Date: 2005-07-15 02:33:54 $
+ *  @version $Revision: 1.26 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-06-02 21:33:34 $
+ *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
 …
 psErr* psErrorLast(void);
+/** Get errorCode of last error put on the error stack
+ *
+ *  @return psErrorCode     last error code, or PS_ERR_NONE
+ */
+psErrorCode psErrorCodeLast(void);
 /** Clears the error stack.
+ *

-              r5072
+              r7300
  *  @author GLG, MHPCC
+ *
  *  @version $Revision: 1.52 $ $Name: not supported by cvs2svn $
  *  @date $Date: 2005-09-20 02:43:53 $
+ *  @version $Revision: 1.53 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-06-02 21:33:34 $
+ *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
 …
         logDest = stderr;
+    }
+    // If it's an abort, we always want to see the message
+    if (logDest == NULL && level == PS_LOG_ABORT) {
+        logDest = stderr;
+    }
     // If logging is off, or if the level is too high, return immediately.
     if ((level > globalLogLevel) || (logDest == NULL)) {
 …
     } else {
         fputc('\n', logDest);
+    }
+    if (level == PS_LOG_ABORT) {
+        fflush(logDest);
+    }
+}

-              r7015
+              r7300
  *  @author David Robbins, MHPCC
+ *
  *  @version $Revision: 1.20 $ $Name: not supported by cvs2svn $
  *  @date $Date: 2006-05-01 00:57:07 $
+ *  @version $Revision: 1.21 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-06-02 21:33:34 $
+ *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
 …
 /** This macro will convert the argument to a quoted string */
 #define PS_STRING(S)  #S
+/** This macro expands to "file:line" */
+#define PS_FILE_LINE __FILE__ ":" PS_STRING(__LINE__)
 // Doxygen group tags

-              r5118
+              r7300
  *  @author GLG, MHPCC
+ *
  *  @version $Revision: 1.61 $ $Name: not supported by cvs2svn $
  *  @date $Date: 2005-09-24 01:33:12 $
+ *  @version $Revision: 1.62 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2006-06-02 21:33:34 $
+ *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
 …
             vsprintf(line, format, ap);
             write (traceFD, line, strlen(line));
+            if (line[strlen(line) - 1] != '\n') {
+                write(traceFD, "\n", 1);
+            }
             //        vfprintf(traceFP, format, ap);

Note: See TracChangeset for help on using the changeset viewer.