annotate bin/FilterSDFiles.pl @ 0:4816e4a8ae95 draft default tip

Uploaded
author deepakjadmin
date Wed, 20 Jan 2016 09:23:18 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
1 #!/usr/bin/perl -w
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
2 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
3 # $RCSfile: FilterSDFiles.pl,v $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
4 # $Date: 2015/02/28 20:46:20 $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
5 # $Revision: 1.32 $
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
6 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
7 # Author: Manish Sud <msud@san.rr.com>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
8 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
9 # Copyright (C) 2015 Manish Sud. All rights reserved.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
10 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
11 # This file is part of MayaChemTools.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
12 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
13 # MayaChemTools is free software; you can redistribute it and/or modify it under
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
14 # the terms of the GNU Lesser General Public License as published by the Free
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
15 # Software Foundation; either version 3 of the License, or (at your option) any
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
16 # later version.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
17 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
18 # MayaChemTools is distributed in the hope that it will be useful, but without
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
19 # any warranty; without even the implied warranty of merchantability of fitness
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
20 # for a particular purpose. See the GNU Lesser General Public License for more
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
21 # details.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
22 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
23 # You should have received a copy of the GNU Lesser General Public License
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
24 # along with MayaChemTools; if not, see <http://www.gnu.org/licenses/> or
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
25 # write to the Free Software Foundation Inc., 59 Temple Place, Suite 330,
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
26 # Boston, MA, 02111-1307, USA.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
27 #
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
28
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
29 use strict;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
30 use FindBin; use lib "$FindBin::Bin/../lib";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
31 use Getopt::Long;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
32 use File::Basename;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
33 use Benchmark;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
34 use SDFileUtil;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
35 use FileUtil;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
36
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
37 my($ScriptName, %Options, $StartTime, $EndTime, $TotalTime);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
38
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
39 # Autoflush STDOUT
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
40 $| = 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
41
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
42 # Starting message...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
43 $ScriptName = basename $0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
44 print "\n$ScriptName:Starting...\n\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
45 $StartTime = new Benchmark;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
46
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
47 # Get the options and setup script...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
48 SetupScriptUsage();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
49 if ($Options{help} || @ARGV < 1) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
50 die GetUsageFromPod("$FindBin::Bin/$ScriptName");
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
51 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
52
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
53 my(@SDFilesList);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
54 @SDFilesList = ExpandFileNames(\@ARGV, "sdf sd");
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
55
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
56 # Process options...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
57 print "Processing options...\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
58 my(%OptionsInfo);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
59 ProcessOptions();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
60
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
61 print "Checking input SD file(s)...\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
62 my(%SDFilesInfo);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
63 RetrieveSDFilesInfo();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
64
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
65 # Generate output files...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
66 my($FileIndex, %FilteredSDFileInfo);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
67 if (@SDFilesList > 1) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
68 print "\nProcessing SD files...\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
69 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
70 for $FileIndex (0 .. $#SDFilesList) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
71 if ($SDFilesInfo{FileOkay}[$FileIndex]) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
72 print "\nProcessing file $SDFilesList[$FileIndex]...\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
73 FilterSDFile($FileIndex);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
74 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
75 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
76 print "\n$ScriptName:Done...\n\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
77
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
78 $EndTime = new Benchmark;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
79 $TotalTime = timediff ($EndTime, $StartTime);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
80 print "Total time: ", timestr($TotalTime), "\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
81
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
82 ###############################################################################
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
83
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
84 # Filter SD file...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
85 sub FilterSDFile {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
86 my($Index) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
87 my($SDFile, $NewSDFile, $NewKeepSDFile, $CtabLinesCount, $CmpdString, $PrintCmpdCounterHeader, @CmpdLines);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
88
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
89 $SDFile = $SDFilesList[$Index];
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
90 $NewSDFile = $SDFilesInfo{OutFile}[$Index];
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
91 $NewKeepSDFile = $SDFilesInfo{OutFileKeep}[$Index];
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
92
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
93 open NEWSDFILE, ">$NewSDFile" or die "Error: Couldn't open $NewSDFile: $! \n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
94 if ($OptionsInfo{Keep}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
95 open NEWKEEPSDFILE, ">$NewKeepSDFile" or die "Error: Couldn't open $NewKeepSDFile: $! \n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
96 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
97 open SDFILE, "$SDFile" or die "Error: Can't open $SDFile: $! \n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
98
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
99 print "\nGenerating SD file $NewSDFile...\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
100 if ($OptionsInfo{Keep}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
101 print "Generating file $NewKeepSDFile...\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
102 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
103
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
104 %FilteredSDFileInfo = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
105
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
106 $FilteredSDFileInfo{CmpdCount} = 0; $FilteredSDFileInfo{FilterCmpd} = 0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
107 $FilteredSDFileInfo{FilteredCmpdCount} = 0; $FilteredSDFileInfo{KeepCmpdCount} = 0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
108
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
109 $PrintCmpdCounterHeader = 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
110
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
111 CMPDSTRING: while ($CmpdString = ReadCmpdString(\*SDFILE)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
112 $FilteredSDFileInfo{CmpdCount} += 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
113 $FilteredSDFileInfo{FilterCmpd} = 0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
114 if (($FilteredSDFileInfo{CmpdCount} % 5000) == 0) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
115 if ($PrintCmpdCounterHeader) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
116 $PrintCmpdCounterHeader = 0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
117 print "\nProcessing compounds:";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
118 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
119 print "$FilteredSDFileInfo{CmpdCount}...";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
120 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
121 @CmpdLines = split "\n", $CmpdString;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
122 $CtabLinesCount = GetCtabLinesCount(\@CmpdLines);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
123 if ($CtabLinesCount <= 0) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
124 $FilteredSDFileInfo{FilterCmpd} = 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
125 WriteOutCmpdString($CmpdString);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
126 next CMPDSTRING;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
127 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
128 my ($AtomCount, $BondCount) = ParseCmpdCountsLine($CmpdLines[3]);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
129 if ($OptionsInfo{All} || $OptionsInfo{Mismatch}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
130 if ($CtabLinesCount != ($AtomCount + $BondCount)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
131 $FilteredSDFileInfo{FilterCmpd} = 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
132 WriteOutCmpdString($CmpdString);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
133 next CMPDSTRING;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
134 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
135 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
136 if ($CtabLinesCount == ($AtomCount + $BondCount)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
137 if ($OptionsInfo{All} || $OptionsInfo{UnknownAtoms}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
138 my($UnknownAtomCount, $UnknownAtoms, $UnknownAtomLines) = GetUnknownAtoms(\@CmpdLines);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
139 if ($UnknownAtomCount) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
140 $FilteredSDFileInfo{FilterCmpd} = 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
141 WriteOutCmpdString($CmpdString);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
142 next CMPDSTRING;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
143 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
144 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
145 if ($OptionsInfo{All} || $OptionsInfo{CleanSalts} || $OptionsInfo{Salts}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
146 my ($FragmentsCount, $Fragments, $WashedCmpdString) = WashCmpd(\@CmpdLines);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
147 if ($FragmentsCount > 1) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
148 if ($OptionsInfo{all} || $OptionsInfo{CleanSalts}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
149 $CmpdString = $WashedCmpdString;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
150 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
151 else {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
152 $FilteredSDFileInfo{FilterCmpd} = 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
153 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
154 WriteOutCmpdString($CmpdString);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
155 next CMPDSTRING;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
156 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
157 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
158 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
159 WriteOutCmpdString($CmpdString);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
160 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
161 if (!$PrintCmpdCounterHeader) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
162 print "\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
163 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
164
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
165 close NEWSDFILE;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
166 if ($OptionsInfo{Keep}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
167 close NEWKEEPSDFILE;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
168 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
169 close SDFILE;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
170
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
171 print "\nTotal Number of compounds: $FilteredSDFileInfo{CmpdCount}\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
172 print "Number of compounds left after filtering: $FilteredSDFileInfo{FilteredCmpdCount}\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
173 print "Number of compounds ignored: $FilteredSDFileInfo{KeepCmpdCount}\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
174 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
175
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
176 # Write out the compound data...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
177 sub WriteOutCmpdString {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
178 my($CmpdString) = @_;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
179
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
180 if ($FilteredSDFileInfo{FilterCmpd}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
181 $FilteredSDFileInfo{KeepCmpdCount} += 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
182 if ($OptionsInfo{Keep}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
183 print NEWKEEPSDFILE "$CmpdString\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
184 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
185 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
186 else {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
187 $FilteredSDFileInfo{FilteredCmpdCount} += 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
188 print NEWSDFILE "$CmpdString\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
189 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
190 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
191
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
192 # Retrieve information about input SD files...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
193 sub RetrieveSDFilesInfo {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
194 my($Index, $SDFile, $FileDir, $FileName, $FileExt, $NewSDFile, $NewKeepSDFile);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
195
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
196 %SDFilesInfo = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
197 @{$SDFilesInfo{FileOkay}} = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
198 @{$SDFilesInfo{OutFile}} = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
199 @{$SDFilesInfo{OutFileKeep}} = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
200
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
201 FILELIST: for $Index (0 .. $#SDFilesList) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
202 $SDFile = $SDFilesList[$Index];
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
203
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
204 $SDFilesInfo{FileOkay}[$Index] = 0;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
205 $SDFilesInfo{OutFile}[$Index] = '';
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
206 $SDFilesInfo{OutFileKeep}[$Index] = '';
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
207
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
208 if (!(-e $SDFile)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
209 warn "Warning: Ignoring file $SDFile: It doesn't exist\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
210 next FILELIST;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
211 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
212 if (!CheckFileType($SDFile, "sd sdf")) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
213 warn "Warning: Ignoring file $SDFile: It's not a SD file\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
214 next FILELIST;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
215 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
216
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
217 # Setup new file names...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
218 $FileDir = ""; $FileName = ""; $FileExt = "";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
219 ($FileDir, $FileName, $FileExt) = ParseFileName($SDFile);
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
220 if ($Options{root} && (@SDFilesList == 1)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
221 my ($RootFileDir, $RootFileName, $RootFileExt) = ParseFileName($Options{root});
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
222 if ($RootFileName && $RootFileExt) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
223 $NewSDFile = $RootFileName;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
224 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
225 else {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
226 $NewSDFile = $Options{root};
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
227 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
228 $NewKeepSDFile = $NewSDFile;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
229 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
230 else {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
231 $NewSDFile = $FileName . "Filtered";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
232 $NewKeepSDFile = $FileName;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
233 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
234 $NewSDFile .= ".$FileExt";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
235 $NewKeepSDFile .= "Ignored" . ".$FileExt";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
236 if (!$Options{overwrite}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
237 if (-e $NewSDFile) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
238 warn "Warning: Ignoring file $SDFile: New SD file, $NewSDFile, already exists\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
239 next FILELIST;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
240 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
241 if ($Options{keep}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
242 if (-e $NewKeepSDFile) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
243 warn "Warning: Ignoring file $SDFile: New SD file, $NewKeepSDFile, already exists\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
244 next FILELIST;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
245 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
246 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
247 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
248 if (lc($NewSDFile) eq lc($SDFile)) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
249 warn "Warning: Ignoring file $SDFile: Same output, $NewSDFile, and input file name\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
250 print "Specify a different name using \"-r --root\" option or use default name.\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
251 next FILELIST;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
252 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
253
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
254 $SDFilesInfo{FileOkay}[$Index] = 1;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
255 $SDFilesInfo{OutFile}[$Index] = $NewSDFile;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
256 $SDFilesInfo{OutFileKeep}[$Index] = $NewKeepSDFile;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
257 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
258 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
259
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
260 # Process option values...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
261 sub ProcessOptions {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
262 %OptionsInfo = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
263
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
264 $OptionsInfo{All} = $Options{all} ? $Options{all} : undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
265 $OptionsInfo{CleanSalts} = $Options{cleansalts} ? $Options{cleansalts} : undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
266 $OptionsInfo{Empty} = $Options{empty} ? $Options{empty} : undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
267 $OptionsInfo{Keep} = $Options{keep} ? $Options{keep} : undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
268 $OptionsInfo{Mismatch} = $Options{mismatch} ? $Options{mismatch} : undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
269 $OptionsInfo{Overwrite} = $Options{overwrite} ? $Options{overwrite} : undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
270 $OptionsInfo{Salts} = $Options{salts} ? $Options{salts} : undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
271 $OptionsInfo{UnknownAtoms} = $Options{unknownatoms} ? $Options{unknownatoms} : undef;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
272
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
273 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
274
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
275 # Setup script usage and retrieve command line arguments specified using various options...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
276 sub SetupScriptUsage {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
277
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
278 # Retrieve all the options...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
279 %Options = ();
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
280 if (!GetOptions(\%Options, "all|a", "cleansalts|c", "empty|e", "help|h", "keep|k", "mismatch|m", "overwrite|o", "root|r=s", "salts|s", "unknownatoms|u", "workingdir|w=s")) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
281 die "\nTo get a list of valid options and their values, use \"$ScriptName -h\" or\n\"perl -S $ScriptName -h\" command and try again...\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
282 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
283 if ($Options{workingdir}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
284 if (! -d $Options{workingdir}) {
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
285 die "Error: The value specified, $Options{workingdir}, for option \"-w --workingdir\" is not a directory name.\n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
286 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
287 chdir $Options{workingdir} or die "Error: Couldn't chdir $Options{workingdir}: $! \n";
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
288 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
289 }
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
290
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
291 __END__
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
292
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
293 =head1 NAME
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
294
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
295 FilterSDFiles.pl - Filter compounds from SDFile(s)
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
296
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
297 =head1 SYNOPSIS
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
298
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
299 FilterSDFiles.pl SDFile(s)...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
300
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
301 FilterSDFiles.pl [B<-a, --all>] [B<-e, --empty>] [B<-c, --cleansalts>] [B<-h, --help>]
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
302 [B<-k, --keep>] [B<-m, --mismatch>] [B<-o, --overwrite>] [B<-r, --root> I<rootname>]
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
303 [B<-s, --salts>] [B<-u, --unknownatoms>] [B<-w, --workingdir> I<dirname>] SDFile(s)...
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
304
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
305 =head1 DESCRIPTION
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
306
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
307 Filter specific compounds from I<SDFile(s)>. Available choices are: wash or
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
308 remove compounds with salts; take out compounds with no
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
309 structural data; remove compounds with mismatched atom/bond blocks data;
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
310 remove compounds which contain uknown atoms and so on. Multiple SDFile
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
311 names are separated by spaces. The valid file extensions are I<.sdf> and I<.sd>.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
312 All other file names are ignored. All the SD files in a current directory can be
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
313 specified either by I<*.sdf> or the current directory name.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
314
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
315 =head1 OPTIONS
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
316
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
317 =over 4
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
318
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
319 =item B<-a, --all>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
320
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
321 Use all options to filter compounds.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
322
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
323 =item B<-e, --empty>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
324
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
325 Filter compounds with empty atom/bond blocks. This is B<default behavior>.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
326
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
327 =item B<-c, --cleansalts>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
328
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
329 Wash compounds which contain salts identified as disconnected structural
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
330 units. The largest fragment is kept.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
331
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
332 =item B<-h, --help>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
333
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
334 Print this help message.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
335
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
336 =item B<-k, --keep>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
337
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
338 Keep the compounds which were filtered in a separate file. Default: Just
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
339 ignore these compounds. Option B<-r --root> is used to generate the new file
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
340 name: <Root>Ignored.sdf. Default file name: <SDFileName>Ignored.sdf.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
341
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
342 =item B<-m, --mismatch>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
343
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
344 Remove compounds with mismatched atom/bond blocks and counts line
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
345 information specified by header block.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
346
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
347 =item B<-o, --overwrite>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
348
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
349 Overwrite existing files.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
350
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
351 =item B<-r, --root> I<rootname>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
352
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
353 New SD file name is generated using the root: <Root>.sdf. Default file
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
354 name:<SDFileName>Filtered.sdf. This option is ignored for multiple input files.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
355
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
356 =item B<-s, --salts>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
357
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
358 Remove compounds which contain salts identified as disconnected structural
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
359 units.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
360
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
361 =item B<-u, --unknownatoms>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
362
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
363 Remove compounds with atom blocks containing special atom symbols such
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
364 as L, Q, * ,LP, X, R#, or any other non periodic table symbols.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
365
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
366 =item B<-w, --workingdir> I<dirname>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
367
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
368 Location of working directory. Default: current directory.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
369
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
370 =back
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
371
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
372 =head1 EXAMPLES
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
373
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
374 To remove compounds from SD files which contain salts, unknown atoms, or
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
375 mismatched atom/bonds block data or no structural data, type:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
376
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
377 % FilterSDFiles.pl -a -o Sample.sdf
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
378 % FilterSDFiles.pl -a -o *.sdf
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
379
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
380 And to generate a new NewSampleIgnored.sdf file for filtered compounds, type:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
381
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
382 % FilterSDFiles.pl -a -k -r NewSample -o Sample.sdf
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
383
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
384 To wash compounds in order to get rid of all disconnected fragments except for
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
385 the largest one, type:
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
386
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
387 % FilterSDFiles.pl -c -o Sample.sdf
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
388
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
389 =head1 AUTHOR
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
390
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
391 Manish Sud <msud@san.rr.com>
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
392
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
393 =head1 SEE ALSO
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
394
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
395 ExtractFromSDFiles.pl, InfoSDFiles.pl, MergeTextFilesWithSD.pl
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
396
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
397 =head1 COPYRIGHT
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
398
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
399 Copyright (C) 2015 Manish Sud. All rights reserved.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
400
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
401 This file is part of MayaChemTools.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
402
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
403 MayaChemTools is free software; you can redistribute it and/or modify it under
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
404 the terms of the GNU Lesser General Public License as published by the Free
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
405 Software Foundation; either version 3 of the License, or (at your option)
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
406 any later version.
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
407
4816e4a8ae95 Uploaded
deepakjadmin
parents:
diff changeset
408 =cut