diff options
Diffstat (limited to 'tksao')
-rw-r--r-- | tksao/util/util.C | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/tksao/util/util.C b/tksao/util/util.C index b549d5a..94d3c8c 100644 --- a/tksao/util/util.C +++ b/tksao/util/util.C @@ -14,112 +14,12 @@ Tcl_Interp *global_interp; int sexSign; // used by parser and lex to indicate sign of dms or hms -void swap2(char* src, char* dest) { - *(dest ) = *(src+1); - *(dest+1) = *(src ); -} - -void swap4(char* src, char* dest) { - *(dest ) = *(src+3); - *(dest+1) = *(src+2); - *(dest+2) = *(src+1); - *(dest+3) = *(src ); -} - -void swap8(char* src, char* dest) { - *(dest ) = *(src+7); - *(dest+1) = *(src+6); - *(dest+2) = *(src+5); - *(dest+3) = *(src+4); - *(dest+4) = *(src+3); - *(dest+5) = *(src+2); - *(dest+6) = *(src+1); - *(dest+7) = *(src ); -} - -int lsb() -{ - return (*(short *)"\001\000" & 0x0001); -} - void internalError(const char* msg) { Tcl_SetVar2(global_interp, "ds9", "msg", msg, TCL_GLOBAL_ONLY); Tcl_SetVar2(global_interp, "ds9", "msg,level", "error", TCL_GLOBAL_ONLY); } -char* dupstr(const char* str) -{ - char* copy; - if (str) { - copy=new char[strlen(str)+1]; - strcpy(copy,str); - } - else - copy=NULL; - - return copy; -} - -char* trim(const char* str) -{ - char* rr = dupstr(str); - char* ptr = rr; - while (ptr && *ptr) - ptr++; - ptr--; - while (ptr && (*ptr == ' ')) - ptr--; - ptr++; - *ptr = '\0'; - - return rr; -} - -char* toLower(const char* str) -{ - char* rr = dupstr(str); - char* ptr = rr; - while (*ptr) { - *ptr = (char)(tolower(((int)(*ptr)))); - ptr++; - } - return rr; -} - -char* toUpper(const char* str) -{ - char* rr = dupstr(str); - char* ptr = rr; - while (*ptr) { - *ptr = (char)(toupper(((int)(*ptr)))); - ptr++; - } - return rr; -} - -char* toConstLower(const char* str) -{ - strncpy(tobuf,str,1024); - char* ptr = tobuf; - while (*ptr) { - *ptr = (char)(tolower(((int)(*ptr)))); - ptr++; - } - return tobuf; -} - -char* toConstUpper(const char* str) -{ - strncpy(tobuf,str,1024); - char* ptr = tobuf; - while (*ptr) { - *ptr = (char)(toupper(((int)(*ptr)))); - ptr++; - } - return tobuf; -} - double zeroTWOPI(double aa) { if (isnan(aa) || isinf(aa) || (aa == -DBL_MAX) || (aa == DBL_MAX)) |