annotate CADDSuite-1.0.1/data/OpenBabel/bin2hex.pl @ 9:2cff9609f2c7

Uploaded
author marcel
date Tue, 15 Nov 2011 10:40:26 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
9
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
1 #!/usr/bin/env perl
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
2 # bin2hex.pl
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
3
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
4 ########################################################################
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
5 # Copyright (C) 2001 by OpenEye Scientific Software, Inc.
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
6 # Some portions Copyright (c) 2002 by Geoffrey R. Hutchison
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
7 #
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
8 # This file is part of the Open Babel project.
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
9 # For more information, see <http://openbabel.org/>
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
10 #
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
11 # This program is free software; you can redistribute it and/or modify
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
12 # it under the terms of the GNU General Public License as published by
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
13 # the Free Software Foundation version 2 of the License.
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
14 #
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
15 # This program is distributed in the hope that it will be useful,
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
16 # but WITHOUT ANY WARRANTY; without even the implied warranty of
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
17 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
18 # GNU General Public License for more details.
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
19 ########################################################################
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
20
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
21
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
22 # Autoflush STDOUT
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
23 #STDOUT->autoflush(1);
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
24 $| = 1;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
25
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
26 $argc = @ARGV;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
27 if( $argc == 2 ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
28 $filename = @ARGV[0];
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
29 $arrayname = @ARGV[1];
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
30
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
31 $pos = index($filename,".");
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
32 if( $pos > 0 ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
33 $guard = uc(substr($filename,0,$pos));
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
34 } else {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
35 $guard = uc($filename);
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
36 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
37 } elsif( $argc == 3 ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
38 $filename = @ARGV[0];
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
39 $arrayname = @ARGV[1];
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
40 $guard = @ARGV[2];
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
41 } else {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
42 print "usage: bin2hex.pl <binaryfile> <arrayname>\n\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
43 exit;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
44 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
45
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
46 $debug = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
47
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
48 open(F,$filename) || die "Error: Unable to open binary file!\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
49
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
50 if( !$debug ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
51 print "/***************************************************************\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
52 print "This file is part of the Open Babel project.\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
53 print "This is copyright under the GNU General Public License (GPL)\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
54 print "For more information, see <http://openbabel.org/>\n\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
55 print "This file contains a binary representation of data tables\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
56 print " used by Open Babel. It is used as a fallback if the textual\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
57 print " data table is not found at runtime. It is not a normal header.\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
58 print "***************************************************************/\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
59 print "\n\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
60
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
61 print "#ifndef OB_" . $guard . "_H\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
62 print "#define OB_" . $guard . "_H\n\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
63 print "namespace OpenBabel\n{\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
64 print "static const char " . $arrayname . "[] = {\n ";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
65 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
66
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
67 binmode(F);
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
68
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
69 $col = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
70 $init = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
71 $ignore = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
72 $newline = 1;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
73 $spacerun = 0; # collapse runs of spaces
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
74
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
75 while( !eof(F) ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
76 $ch = ord(getc(F));
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
77 if( $ch == 13 ) { # ignore \r characters
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
78 $ch = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
79 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
80
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
81 if ( $spacerun ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
82 if ( $ch == 32 ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
83 $ch = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
84 } else {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
85 $spacerun = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
86 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
87 } elsif ( $ch == 32) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
88 $spacerun = 1;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
89 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
90
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
91 if( $ignore ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
92 if( $ch == 10 ) { # found the \n after an '#' ignore comment
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
93 $ignore = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
94 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
95 $ch = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
96 } elsif( $newline ) { # just saw a \n -- do we see real text
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
97 if( $ch == 10 ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
98 $ch = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
99 } elsif ( $ch == 35 ) { # ignore anything after a '#' until a \n
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
100 $ignore = 1;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
101 $ch = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
102 } elsif( $ch == 32 ) { # space
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
103 $ch = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
104 } elsif( $ch == 9 ) { # tab
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
105 $ch = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
106 } elsif( $ch ) { # something else, so clear the blank-line boolean
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
107 $newline = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
108 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
109 } elsif( $ch == 10 ) { # set the blank-line detector
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
110 $newline = 1;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
111 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
112
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
113 if( $ch ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
114 if( $debug ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
115 print chr($ch);
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
116 } else {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
117 if( $init ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
118 print ",";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
119 } else {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
120 $init = 1;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
121 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
122 if( $col >= 15 ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
123 print "\n ";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
124 $col = 0;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
125 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
126 print sprintf("0x%02X",$ch);
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
127 $col++;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
128 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
129 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
130 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
131
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
132 if( !$debug ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
133 if( $col >= 15 ) {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
134 print ",\n0x00};\n\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
135 } else {
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
136 print ",0x00};\n\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
137 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
138 print "} // namespace OpenBabel\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
139 print "#endif // OB_" . $guard . "_H\n\n";
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
140 }
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
141
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
142 close(F);
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
143 exit;
2cff9609f2c7 Uploaded
marcel
parents:
diff changeset
144