annotate mrsfast-2.3.0.2/Common.c @ 0:ec628ba33878 default tip

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