annotate mrfast-2.1.0.5/Common.c @ 1:d4054b05b015 default tip

Version update to 2.1.0.5
author calkan
date Fri, 09 Mar 2012 07:35:51 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
1 /*
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
2 * Copyright (c) <2008 - 2012>, University of Washington, Simon Fraser University
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
3 * All rights reserved.
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
4 *
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
5 * Redistribution and use in source and binary forms, with or without modification,
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
6 * are permitted provided that the following conditions are met:
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
7 *
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
8 * Redistributions of source code must retain the above copyright notice, this list
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
9 * of conditions and the following disclaimer.
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
10 * - Redistributions in binary form must reproduce the above copyright notice, this
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
11 * list of conditions and the following disclaimer in the documentation and/or other
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
12 * materials provided with the distribution.
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
13 * - Neither the names of the University of Washington, Simon Fraser University,
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
14 * nor the names of its contributors may be
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
15 * used to endorse or promote products derived from this software without specific
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
16 * prior written permission.
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
17 *
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
18 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
19 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
20 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
21 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
22 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
23 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
24 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
25 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
26 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
27 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
28 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
29 */
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
30
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
31 /*
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
32 Authors:
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
33 Farhad Hormozdiari
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
34 Faraz Hach
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
35 Can Alkan
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
36 Emails:
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
37 farhadh AT uw DOT edu
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
38 fhach AT cs DOT sfu DOT ca
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
39 calkan AT uw DOT edu
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
40 */
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
41
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
42
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
43
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
44 #include <stdio.h>
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
45 #include <stdlib.h>
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
46 #include <sys/time.h>
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
47 #include <zlib.h>
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
48 #include <string.h>
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
49 #include "Common.h"
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
50
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
51
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
52 unsigned short SEQ_LENGTH = 0;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
53 long long memUsage = 0;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
54 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
55 FILE *fileOpen(char *fileName, char *mode)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
56 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
57 FILE *fp;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
58 fp = fopen (fileName, mode);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
59 if (fp == NULL)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
60 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
61 fprintf(stdout, "Error: Cannot Open the file %s\n", fileName);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
62 fflush(stdout);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
63 exit(0);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
64 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
65 return fp;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
66 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
67 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
68 gzFile fileOpenGZ(char *fileName, char *mode)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
69 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
70 gzFile gzfp;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
71 gzfp = gzopen (fileName, mode);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
72 if (gzfp == Z_NULL)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
73 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
74 fprintf(stdout, "Error: Cannot Open the file %s\n", fileName);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
75 fflush(stdout);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
76 exit(0);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
77 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
78 return gzfp;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
79 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
80 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
81 double getTime(void)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
82 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
83 struct timeval t;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
84 gettimeofday(&t, NULL);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
85 return t.tv_sec+t.tv_usec/1000000.0;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
86 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
87
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
88 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
89 char reverseCompleteChar(char c)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
90 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
91 char ret;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
92 switch (c)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
93 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
94 case 'A':
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
95 ret = 'T';
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
96 break;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
97 case 'T':
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
98 ret = 'A';
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
99 break;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
100 case 'C':
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
101 ret = 'G';
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
102 break;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
103 case 'G':
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
104 ret = 'C';
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
105 break;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
106 default:
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
107 ret = 'N';
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
108 break;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
109 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
110 return ret;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
111 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
112 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
113 void reverseComplete (char *seq, char *rcSeq , int length)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
114 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
115 int i;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
116 for (i=0; i<length; i++)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
117 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
118 rcSeq[i]=reverseCompleteChar (seq[length-1-i]) ;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
119 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
120 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
121 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
122 void * getMem(size_t size)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
123 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
124 void *ret;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
125 ret = malloc(size);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
126 if (ret == NULL){
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
127 fprintf(stderr, "Cannot allocate memory. Currently addressed memory = %0.2f MB, requested memory = %0.2f MB.\nCheck the available main memory, and if you have user limits (ulimit -v).\n", getMemUsage(), (double)size);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
128 exit(0);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
129 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
130 memUsage+=size;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
131 return ret;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
132 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
133 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
134 void freeMem(void *ptr, size_t size)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
135 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
136 memUsage-=size;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
137 free(ptr);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
138 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
139 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
140 double getMemUsage()
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
141 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
142 return memUsage/1048576.0;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
143 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
144 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
145 void reverse (char *seq, char *rcSeq , int length)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
146 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
147 int i;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
148 int l = length;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
149 if(l != strlen(seq))
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
150 l = strlen(seq);
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
151 for (i=0; i<l; i++)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
152 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
153 rcSeq[i]=seq[l-1-i] ;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
154 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
155 rcSeq[l] = '\0';
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
156 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
157 /**********************************************/
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
158 void stripPath(char *full, char **path, char **fileName)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
159 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
160 int i;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
161 int pos = -1;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
162
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
163 for (i=strlen(full)-1; i>=0; i--)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
164 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
165 if (full[i]=='/')
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
166 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
167 pos = i;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
168 break;
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
169 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
170
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
171 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
172
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
173 if (pos != -1)
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
174 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
175 sprintf(*fileName, "%s%c", (full+pos+1), '\0');
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
176 full[pos+1]='\0';
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
177 sprintf(*path,"%s%c", full, '\0');
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
178 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
179 else
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
180 {
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
181 sprintf(*fileName, "%s%c", full, '\0');
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
182 sprintf(*path,"%c", '\0');
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
183 }
d4054b05b015 Version update to 2.1.0.5
calkan
parents:
diff changeset
184 }