-
Notifications
You must be signed in to change notification settings - Fork 24
/
se.cpp
540 lines (514 loc) · 22.1 KB
/
se.cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
#include "se.h"
#include "NWalign.h"
using namespace std;
void print_extra_help()
{
cout <<
"Additional options: \n"
" -dir Perform all-against-all alignment extraction among the list\n"
" of PDB chains listed by 'chain_list' under 'chain_folder'.\n"
" Note that the slash is necessary.\n"
" $ se -dir chain1_folder/ chain_list\n"
"\n"
" -dir1 Use chain2 to perform alignment extraction from a list of\n"
" PDB chains listed by 'chain1_list' under 'chain1_folder'.\n"
" Note that the slash is necessary.\n"
" $ se -dir1 chain1_folder/ chain1_list chain2\n"
"\n"
" -dir2 Use chain2 to perform alignment extraction from a list of\n"
" PDB chains listed by 'chain2_list' under 'chain2_folder'\n"
" $ se chain1 -dir2 chain2_folder/ chain2_list\n"
"\n"
" -suffix (Only when -dir1 and/or -dir2 are set, default is empty)\n"
" add file name suffix to files listed by chain1_list or chain2_list\n"
"\n"
" -atom 4-character atom name used to represent a residue.\n"
" Default is \" C3'\" for RNA/DNA and \" CA \" for proteins\n"
" (note the spaces before and after CA).\n"
"\n"
" -mol Molecule type: RNA or protein\n"
" Default is detect molecule type automatically\n"
"\n"
" -ter Strings to mark the end of a chain\n"
" 3: (default) TER, ENDMDL, END or different chain ID\n"
" 2: ENDMDL, END, or different chain ID\n"
" 1: ENDMDL or END\n"
" 0: (default in the first C++ TMalign) end of file\n"
"\n"
" -split Whether to split PDB file into multiple chains\n"
" 0: (default) treat the whole structure as one single chain\n"
" 1: treat each MODEL as a separate chain (-ter should be 0)\n"
" 2: treat each chain as a seperate chain (-ter should be <=1)\n"
"\n"
" -outfmt Output format\n"
" 0: (default) full output\n"
" 1: fasta format compact output\n"
" 2: tabular format very compact output\n"
"\n"
" -byresi Whether to align two structures by residue index.\n"
" The same as -TMscore.\n"
" 0: (default) do not align by residue index\n"
" 1: (same as TMscore program) align by residue index\n"
" 2: (same as TMscore -c, should be used with -ter <=1)\n"
" align by residue index and chain ID\n"
" 3: (similar to TMscore -c, should be used with -ter <=1)\n"
" align by residue index and order of chain\n"
" 4: sequence dependent alignment: perform Needleman-Wunsch\n"
" global sequence alignment\n"
" 5: sequence dependent alignment: perform glocal sequence\n"
" alignment\n"
"\n"
" -het Whether to align residues marked as 'HETATM' in addition to 'ATOM '\n"
" 0: (default) only align 'ATOM ' residues\n"
" 1: align both 'ATOM ' and 'HETATM' residues\n"
"\n"
" -do Output distance of aligned residue pairs\n"
"\n"
" -infmt1 Input format for chain1\n"
" -infmt2 Input format for chain2\n"
" -1: (default) automatically detect PDB or PDBx/mmCIF format\n"
" 0: PDB format\n"
" 1: SPICKER format\n"
" 2: xyz format\n"
" 3: PDBx/mmCIF format\n"
<<endl;
}
void print_help(bool h_opt=false)
{
cout <<
"Extract sequence alignment from a pair of superposed structures.\n"
"\n"
"Usage: se PDB1.pdb PDB2.pdb [Options]\n"
"\n"
"Options:\n"
" -u TM-score normalized by user assigned length (the same as -L)\n"
" warning: it should be >= minimum length of the two structures\n"
" otherwise, TM-score may be >1\n"
"\n"
" -a TM-score normalized by the average length of two structures\n"
" T or F, (default F)\n"
"\n"
" -i (Same as -I) use alignment specified in fasta file 'align.txt'\n"
"\n"
" -d TM-score scaled by an assigned d0, e.g. 5 Angstroms\n"
"\n"
" -h Print the full help message.\n"
"\n"
" (Options -u, -a, -d won't change the final structure alignment)\n"
"\n"
"Example usages:\n"
" se PDB1.pdb PDB2.pdb\n"
" se PDB1.pdb PDB2.pdb -u 100 -d 5.0 -a T\n"
" se PDB1.pdb PDB2.pdb -i align.txt\n"
<<endl;
if (h_opt) print_extra_help();
exit(EXIT_SUCCESS);
}
int main(int argc, char *argv[])
{
if (argc < 2) print_help();
/**********************/
/* get argument */
/**********************/
string xname = "";
string yname = "";
string fname_lign = ""; // file name for user alignment
vector<string> sequence; // get value from alignment file
double Lnorm_ass, d0_scale;
bool h_opt = false; // print full help message
bool i_opt = false; // flag for -i, stick to user given alignment
bool a_opt = false; // flag for -a, normalized by average length
bool u_opt = false; // flag for -u, normalized by user specified length
bool d_opt = false; // flag for -d, user specified d0
bool do_opt= false; // flag for -do, output distance of i-th aligned pair
int infmt1_opt=-1; // PDB or PDBx/mmCIF format for chain_1
int infmt2_opt=-1; // PDB or PDBx/mmCIF format for chain_2
int ter_opt =3; // TER, END, or different chainID
int split_opt =0; // do not split chain
int outfmt_opt=0; // set -outfmt to full output
int het_opt=0; // do not read HETATM residues
string atom_opt ="auto";// use C alpha atom for protein and C3' for RNA
string mol_opt ="auto";// auto-detect the molecule type as protein/RNA
string suffix_opt=""; // set -suffix to empty
string dir_opt =""; // set -dir to empty
string dir1_opt =""; // set -dir1 to empty
string dir2_opt =""; // set -dir2 to empty
int byresi_opt=0; // set -byresi to 0
vector<string> chain1_list; // only when -dir1 is set
vector<string> chain2_list; // only when -dir2 is set
vector<string> chain2parse1;
vector<string> chain2parse2;
vector<string> model2parse1;
vector<string> model2parse2;
for(int i = 1; i < argc; i++)
{
if ( (!strcmp(argv[i],"-u") ||
!strcmp(argv[i],"-L")) && i < (argc-1) )
{
Lnorm_ass = atof(argv[i + 1]); u_opt = true; i++;
}
else if ( !strcmp(argv[i],"-a") && i < (argc-1) )
{
if (!strcmp(argv[i + 1], "T")) a_opt=true;
else if (!strcmp(argv[i + 1], "F")) a_opt=false;
else PrintErrorAndQuit("Wrong value for option -a! It should be T or F");
i++;
}
else if ( !strcmp(argv[i],"-d") && i < (argc-1) )
{
d0_scale = atof(argv[i + 1]); d_opt = true; i++;
}
else if ( !strcmp(argv[i],"-do") )
{
do_opt = true;
}
else if ( !strcmp(argv[i],"-h") )
{
h_opt = true;
}
else if ((!strcmp(argv[i],"-i")||!strcmp(argv[i],"-I")) && i<(argc-1))
{
fname_lign = argv[i + 1]; i_opt = true; i++;
}
else if ( !strcmp(argv[i],"-infmt1") && i < (argc-1) )
{
infmt1_opt=atoi(argv[i + 1]); i++;
}
else if ( !strcmp(argv[i],"-infmt2") && i < (argc-1) )
{
infmt2_opt=atoi(argv[i + 1]); i++;
}
else if ( !strcmp(argv[i],"-ter") && i < (argc-1) )
{
ter_opt=atoi(argv[i + 1]); i++;
}
else if ( !strcmp(argv[i],"-split") && i < (argc-1) )
{
split_opt=atoi(argv[i + 1]); i++;
}
else if ( !strcmp(argv[i],"-atom") && i < (argc-1) )
{
atom_opt=argv[i + 1]; i++;
}
else if ( !strcmp(argv[i],"-mol") && i < (argc-1) )
{
mol_opt=argv[i + 1]; i++;
}
else if ( !strcmp(argv[i],"-dir") && i < (argc-1) )
{
dir_opt=argv[i + 1]; i++;
}
else if ( !strcmp(argv[i],"-dir1") && i < (argc-1) )
{
dir1_opt=argv[i + 1]; i++;
}
else if ( !strcmp(argv[i],"-dir2") && i < (argc-1) )
{
dir2_opt=argv[i + 1]; i++;
}
else if ( !strcmp(argv[i],"-suffix") && i < (argc-1) )
{
suffix_opt=argv[i + 1]; i++;
}
else if ( !strcmp(argv[i],"-outfmt") && i < (argc-1) )
{
outfmt_opt=atoi(argv[i + 1]); i++;
}
else if ( (!strcmp(argv[i],"-byresi") || !strcmp(argv[i],"-TMscore") ||
!strcmp(argv[i],"-tmscore") ) && i < (argc-1) )
{
byresi_opt=atoi(argv[i + 1]); i++;
}
else if ( !strcmp(argv[i],"-het") && i < (argc-1) )
{
het_opt=atoi(argv[i + 1]); i++;
}
else if (!strcmp(argv[i], "-chain1") )
{
if (i>=(argc-1))
PrintErrorAndQuit("ERROR! Missing value for -chain1");
split(argv[i+1],chain2parse1,',');
i++;
}
else if (!strcmp(argv[i], "-chain2") )
{
if (i>=(argc-1))
PrintErrorAndQuit("ERROR! Missing value for -chain2");
split(argv[i+1],chain2parse2,',');
i++;
}
else if (!strcmp(argv[i], "-model1") )
{
if (i>=(argc-1))
PrintErrorAndQuit("ERROR! Missing value for -model1");
split(argv[i+1],model2parse1,',');
i++;
}
else if (!strcmp(argv[i], "-model2") )
{
if (i>=(argc-1))
PrintErrorAndQuit("ERROR! Missing value for -model2");
split(argv[i+1],model2parse2,',');
i++;
}
else if (xname.size() == 0) xname=argv[i];
else if (yname.size() == 0) yname=argv[i];
else PrintErrorAndQuit(string("ERROR! Undefined option ")+argv[i]);
}
if(xname.size()==0 || (yname.size()==0 && dir_opt.size()==0) ||
(yname.size() && dir_opt.size()))
{
if (h_opt) print_help(h_opt);
if (xname.size()==0)
PrintErrorAndQuit("Please provide input structures");
else if (yname.size()==0 && dir_opt.size()==0)
PrintErrorAndQuit("Please provide structure B");
else if (yname.size() && dir_opt.size())
PrintErrorAndQuit("Please provide only one file name if -dir is set");
}
if (suffix_opt.size() && dir_opt.size()+dir1_opt.size()+dir2_opt.size()==0)
PrintErrorAndQuit("-suffix is only valid if -dir1 or -dir2 is set");
if (dir_opt.size() && (dir1_opt.size() || dir2_opt.size()))
PrintErrorAndQuit("-dir cannot be set with -dir1 or -dir2");
if (atom_opt.size()!=4)
PrintErrorAndQuit("ERROR! Atom name must have 4 characters, including space.");
if (mol_opt!="auto" && mol_opt!="protein" && mol_opt!="RNA")
PrintErrorAndQuit("ERROR! Molecule type must be either RNA or protein.");
else if (mol_opt=="protein" && atom_opt=="auto")
atom_opt=" CA ";
else if (mol_opt=="RNA" && atom_opt=="auto")
atom_opt=" C3'";
if (u_opt && Lnorm_ass<=0)
PrintErrorAndQuit("Wrong value for option -u! It should be >0");
if (d_opt && d0_scale<=0)
PrintErrorAndQuit("Wrong value for option -d! It should be >0");
if (outfmt_opt>=2 && (a_opt || u_opt || d_opt))
PrintErrorAndQuit("-outfmt 2 cannot be used with -a, -u, -L, -d");
if (byresi_opt!=0)
{
if (i_opt)
PrintErrorAndQuit("-byresi >=1 cannot be used with -i or -I");
if (byresi_opt<0 || byresi_opt>5)
PrintErrorAndQuit("-byresi can only be 0, 1, 2, 3, 4, or 5");
if (byresi_opt>=2 && byresi_opt<=3 && ter_opt>=2)
PrintErrorAndQuit("-byresi 2 and -byresi 3 should be used with -ter <=1");
}
if (split_opt==1 && ter_opt!=0)
PrintErrorAndQuit("-split 1 should be used with -ter 0");
else if (split_opt==2 && ter_opt!=0 && ter_opt!=1)
PrintErrorAndQuit("-split 2 should be used with -ter 0 or 1");
if (split_opt<0 || split_opt>2)
PrintErrorAndQuit("-split can only be 0, 1 or 2");
/* read initial alignment file from 'align.txt' */
if (i_opt) read_user_alignment(sequence, fname_lign, false);
if (byresi_opt) i_opt=true;
/* parse file list */
if (dir1_opt.size()+dir_opt.size()==0) chain1_list.push_back(xname);
else file2chainlist(chain1_list, xname, dir_opt+dir1_opt, suffix_opt);
if (dir_opt.size())
for (int i=0;i<chain1_list.size();i++)
chain2_list.push_back(chain1_list[i]);
else if (dir2_opt.size()==0) chain2_list.push_back(yname);
else file2chainlist(chain2_list, yname, dir2_opt, suffix_opt);
if (outfmt_opt==2)
cout<<"#PDBchain1\tPDBchain2\tTM1\tTM2\t"
<<"RMSD\tID1\tID2\tIDali\tL1\tL2\tLali"<<endl;
/* declare previously global variables */
vector<vector<string> >PDB_lines1; // text of chain1
vector<vector<string> >PDB_lines2; // text of chain2
vector<int> mol_vec1; // molecule type of chain1, RNA if >0
vector<int> mol_vec2; // molecule type of chain2, RNA if >0
vector<string> chainID_list1; // list of chainID1
vector<string> chainID_list2; // list of chainID2
int i,j; // file index
int chain_i,chain_j; // chain index
int xlen, ylen; // chain length
int xchainnum,ychainnum;// number of chains in a PDB file
char *seqx, *seqy; // for the protein sequence
double **xa, **ya; // for input vectors xa[0...xlen-1][0..2] and
// ya[0...ylen-1][0..2], in general,
// ya is regarded as native structure
// --> superpose xa onto ya
vector<string> resi_vec1; // residue index for chain1
vector<string> resi_vec2; // residue index for chain2
double t0[3]={0,0,0};
double u0[3][3]={{1,0,0},{0,1,0},{0,0,1}};
/* loop over file names */
for (int i=0;i<chain1_list.size();i++)
{
/* parse chain 1 */
xname=chain1_list[i];
xchainnum=get_PDB_lines(xname, PDB_lines1, chainID_list1, mol_vec1,
ter_opt, infmt1_opt, atom_opt, false, split_opt, het_opt,
chain2parse1, model2parse1);
if (!xchainnum)
{
cerr<<"Warning! Cannot parse file: "<<xname
<<". Chain number 0."<<endl;
continue;
}
for (int chain_i=0;chain_i<xchainnum;chain_i++)
{
xlen=PDB_lines1[chain_i].size();
if (mol_opt=="RNA") mol_vec1[chain_i]=1;
else if (mol_opt=="protein") mol_vec1[chain_i]=-1;
if (!xlen)
{
cerr<<"Warning! Cannot parse file: "<<xname
<<". Chain length 0."<<endl;
continue;
}
NewArray(&xa, xlen, 3);
seqx = new char[xlen + 1];
xlen = read_PDB(PDB_lines1[chain_i], xa, seqx,
resi_vec1, byresi_opt);
for (int j=(dir_opt.size()>0)*(i+1);j<chain2_list.size();j++)
{
/* parse chain 2 */
if (PDB_lines2.size()==0)
{
yname=chain2_list[j];
ychainnum=get_PDB_lines(yname, PDB_lines2, chainID_list2,
mol_vec2, ter_opt, infmt2_opt, atom_opt, false,
split_opt, het_opt, chain2parse2, model2parse2);
if (!ychainnum)
{
cerr<<"Warning! Cannot parse file: "<<yname
<<". Chain number 0."<<endl;
continue;
}
}
for (int chain_j=0;chain_j<ychainnum;chain_j++)
{
ylen=PDB_lines2[chain_j].size();
if (mol_opt=="RNA") mol_vec2[chain_j]=1;
else if (mol_opt=="protein") mol_vec2[chain_j]=-1;
if (!ylen)
{
cerr<<"Warning! Cannot parse file: "<<yname
<<". Chain length 0."<<endl;
continue;
}
NewArray(&ya, ylen, 3);
seqy = new char[ylen + 1];
ylen = read_PDB(PDB_lines2[chain_j], ya, seqy,
resi_vec2, byresi_opt);
if (byresi_opt) extract_aln_from_resi(sequence,
seqx,seqy,resi_vec1,resi_vec2,byresi_opt);
/* declare variable specific to this pair of TMalign */
double TM1, TM2;
double TM3, TM4, TM5; // for a_opt, u_opt, d_opt
double d0_0, TM_0;
double d0A, d0B, d0u, d0a;
double d0_out=5.0;
string seqM, seqxA, seqyA;// for output alignment
double rmsd0 = 0.0;
int L_ali; // Aligned length in standard_TMscore
double Liden=0;
double TM_ali, rmsd_ali; // TMscore and rmsd in standard_TMscore
int n_ali=0;
int n_ali8=0;
int *invmap = new int[ylen+1];
vector<double> do_vec;
/* entry function for structure alignment */
se_main(
xa, ya, seqx, seqy, TM1, TM2, TM3, TM4, TM5,
d0_0, TM_0, d0A, d0B, d0u, d0a, d0_out,
seqM, seqxA, seqyA, do_vec,
rmsd0, L_ali, Liden, TM_ali, rmsd_ali, n_ali, n_ali8,
xlen, ylen, sequence, Lnorm_ass, d0_scale,
i_opt, a_opt, u_opt, d_opt,
mol_vec1[chain_i]+mol_vec2[chain_j],
outfmt_opt, invmap);
if (outfmt_opt>=2)
get_seqID(invmap, seqx, seqy, ylen, Liden, n_ali);
/* print result */
output_results(
xname.substr(dir1_opt.size()+dir_opt.size()).c_str(),
yname.substr(dir2_opt.size()+dir_opt.size()).c_str(),
chainID_list1[chain_i].c_str(),
chainID_list2[chain_j].c_str(),
xlen, ylen, t0, u0, TM1, TM2,
TM3, TM4, TM5, rmsd0, d0_out,
seqM.c_str(), seqxA.c_str(), seqyA.c_str(), Liden,
n_ali8, L_ali, TM_ali, rmsd_ali,
TM_0, d0_0, d0A, d0B,
Lnorm_ass, d0_scale, d0a, d0u,
"", outfmt_opt, ter_opt, 0, split_opt,
0, "", false, a_opt, u_opt, d_opt, 0,
resi_vec1, resi_vec2);
if (do_opt)
{
cout<<"###############\t###############\t#########"<<endl;
cout<<"#Aligned atom 1\tAligned atom 2 \tDistance#"<<endl;
size_t r1=0;
size_t r2=0;
size_t r;
int postcp=0;
for (r=0;r<seqxA.size();r++)
{
r1+=seqxA[r]!='-';
r2+=seqyA[r]!='-';
if (seqxA[r]=='*')
{
cout<<"###### Circular\tPermutation ###\t#########\n";
r1=0;
postcp=1;
}
else if (seqxA[r]!='-' && seqyA[r]!='-')
{
cout<<PDB_lines1[chain_i][r1-1].substr(12,15)<<'\t'
<<PDB_lines2[chain_j][r2-1].substr(12,15)<<'\t'
<<setw(9)<<setiosflags(ios::fixed)<<setprecision(3)
<<do_vec[r-postcp]<<'\n';
}
}
cout<<"###############\t###############\t#########"<<endl;
}
/* Done! Free memory */
delete [] invmap;
seqM.clear();
seqxA.clear();
seqyA.clear();
DeleteArray(&ya, ylen);
delete [] seqy;
resi_vec2.clear();
do_vec.clear();
} // chain_j
if (chain2_list.size()>1)
{
yname.clear();
for (int chain_j=0;chain_j<ychainnum;chain_j++)
PDB_lines2[chain_j].clear();
PDB_lines2.clear();
chainID_list2.clear();
mol_vec2.clear();
}
} // j
DeleteArray(&xa, xlen);
delete [] seqx;
resi_vec1.clear();
} // chain_i
xname.clear();
PDB_lines1.clear();
chainID_list1.clear();
mol_vec1.clear();
} // i
if (chain2_list.size()==1)
{
yname.clear();
for (int chain_j=0;chain_j<ychainnum;chain_j++)
PDB_lines2[chain_j].clear();
PDB_lines2.clear();
resi_vec2.clear();
chainID_list2.clear();
mol_vec2.clear();
}
chain1_list.clear();
chain2_list.clear();
vector<string>().swap(chain2parse1);
vector<string>().swap(chain2parse2);
vector<string>().swap(model2parse1);
vector<string>().swap(model2parse2);
return 0;
}