-
Notifications
You must be signed in to change notification settings - Fork 12
/
spec.c
67 lines (61 loc) · 2.29 KB
/
spec.c
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
/***
* Author: liheng
* Created: unknown
* Last MDF: 2005-01-22
*
* 2005-01-22 liheng
*
* * preprocess the species tree
* * add fully-sequenced tag
*/
#include <stdlib.h>
#include "cpp_utils.h"
#include "tree.h"
/* AEDAE */
char *tr_species_tree_string="\
((ORYSA*-4530.rice,ARATH*-3702)Magnoliophyta-3398,(SCHPO*-4896.S_pombe,YEAST*-4932)Ascomycota-4890,\n\
((((((((((((HUMAN*-9606,PANTR*-9598.chimpanzee)Homo/Pan/Gorilla-207598, \n\
MACMU*-9544.monkey)Catarrhini-9526, \n\
OTOGA-*30611.galago)Primates-9443, \n\
((MOUSE*-10090,RAT*-10116)Murinae-39107,RABIT-9986)Glires-314147)Euarchontoglires-314146, \n\
((BOVIN*-9913.cow,PIG-*9823)Cetartiodactyla-91561, \n\
(CANFA*-9615.dog,FELCA-*9685.cat)Carnivora-33554, \n\
SORAR-*42254.shrew, \n\
MYOLU-*59463.bat)Laurasiatheria-314145, \n\
(ECHTE-9371.tenrec,LOXAF-9785.elephant)Afrotheria-311790, \n\
DASNO-9361.armadillo)Eutheria-9347,MONDO*-13616.opossum)Theria-32525,\n\
ORNAN-*9258.platypus)Mammalia-40674,\n\
CHICK*-9031)Amniota-32524,\n\
XENTR*-8364.frog)Tetrapoda-32523,\n\
(BRARE*-7955.zebrafish, \n\
((TETNG*-99883.pufferfish,FUGRU*-31033.pufferfish)Tetraodontidae-31031,\n\
(GASAC*-69293.stickleback,ORYLA*-8090.ricefish)Smegmamorpha-129949)Percomorpha-32485)Clupeocephala-186625)Euteleostomi-117571,\n\
(CIOIN*-7719,CIOSA*-51511)Ciona-7718)Chordata-7711,\n\
(((DROME*-7227.fly,DROPS*-7237.fly)Sophophora-32341,\n\
(AEDAE*-7159.mosquito,ANOGA*-7165.mosquito)Culicidae-7157)Diptera-7147, \n\
APIME-*7460.honeybee)Endopterygota-33392,\n\
SCHMA*-6183.fluke,\n\
(CAEEL*-6239.worm,CAEBR*-6238.worm,CAERE*-31234.worm)Caenorhabditis-6237)Bilateria-33213)Eukaryota-2759;";
char *tr_core_species_list[] = {
"HUMAN", "MOUSE", "MONDO", "CHICK", "XENTR", "BRARE", "FUGRU", "CIOIN", "DROME",
"CAEEL", "SCHMA", "YEAST", "SCHPO", "ORYSA", "ARATH", 0};
Tree *tr_default_spec_tree()
{
Tree **forest, *tree;
int n;
forest = tr_parse_str(tr_species_tree_string, &n);
tree = forest[0];
free(forest);
cpp_post_spec_tree(tree, 0);
return tree;
}
Tree *tr_core_spec_tree()
{
Tree **forest, *tree;
int n;
forest = tr_parse_str(tr_species_tree_string, &n);
tree = forest[0];
free(forest);
cpp_post_spec_tree(tree, 1);
return tree;
}