Mercurial > repos > marcel > caddsuite_linux_x86_64
diff CADDSuite/data/OpenBabel/bin2hex.pl @ 0:bac3c274238f
Migrated tool version 0.93 from old tool shed archive to new tool shed repository
author | marcel |
---|---|
date | Tue, 07 Jun 2011 16:43:30 -0400 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/CADDSuite/data/OpenBabel/bin2hex.pl Tue Jun 07 16:43:30 2011 -0400 @@ -0,0 +1,144 @@ +#!/usr/bin/env perl +# bin2hex.pl + +######################################################################## +# Copyright (C) 2001 by OpenEye Scientific Software, Inc. +# Some portions Copyright (c) 2002 by Geoffrey R. Hutchison +# +# This file is part of the Open Babel project. +# For more information, see <http://openbabel.org/> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation version 2 of the License. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +######################################################################## + + +# Autoflush STDOUT +#STDOUT->autoflush(1); +$| = 1; + +$argc = @ARGV; +if( $argc == 2 ) { + $filename = @ARGV[0]; + $arrayname = @ARGV[1]; + + $pos = index($filename,"."); + if( $pos > 0 ) { + $guard = uc(substr($filename,0,$pos)); + } else { + $guard = uc($filename); + } +} elsif( $argc == 3 ) { + $filename = @ARGV[0]; + $arrayname = @ARGV[1]; + $guard = @ARGV[2]; +} else { + print "usage: bin2hex.pl <binaryfile> <arrayname>\n\n"; + exit; +} + +$debug = 0; + +open(F,$filename) || die "Error: Unable to open binary file!\n"; + +if( !$debug ) { + print "/***************************************************************\n"; + print "This file is part of the Open Babel project.\n"; + print "This is copyright under the GNU General Public License (GPL)\n"; + print "For more information, see <http://openbabel.org/>\n\n"; + print "This file contains a binary representation of data tables\n"; + print " used by Open Babel. It is used as a fallback if the textual\n"; + print " data table is not found at runtime. It is not a normal header.\n"; + print "***************************************************************/\n"; + print "\n\n"; + + print "#ifndef OB_" . $guard . "_H\n"; + print "#define OB_" . $guard . "_H\n\n"; + print "namespace OpenBabel\n{\n"; + print "static const char " . $arrayname . "[] = {\n "; +} + +binmode(F); + +$col = 0; +$init = 0; +$ignore = 0; +$newline = 1; +$spacerun = 0; # collapse runs of spaces + +while( !eof(F) ) { + $ch = ord(getc(F)); + if( $ch == 13 ) { # ignore \r characters + $ch = 0; + } + + if ( $spacerun ) { + if ( $ch == 32 ) { + $ch = 0; + } else { + $spacerun = 0; + } + } elsif ( $ch == 32) { + $spacerun = 1; + } + + if( $ignore ) { + if( $ch == 10 ) { # found the \n after an '#' ignore comment + $ignore = 0; + } + $ch = 0; + } elsif( $newline ) { # just saw a \n -- do we see real text + if( $ch == 10 ) { + $ch = 0; + } elsif ( $ch == 35 ) { # ignore anything after a '#' until a \n + $ignore = 1; + $ch = 0; + } elsif( $ch == 32 ) { # space + $ch = 0; + } elsif( $ch == 9 ) { # tab + $ch = 0; + } elsif( $ch ) { # something else, so clear the blank-line boolean + $newline = 0; + } + } elsif( $ch == 10 ) { # set the blank-line detector + $newline = 1; + } + + if( $ch ) { + if( $debug ) { + print chr($ch); + } else { + if( $init ) { + print ","; + } else { + $init = 1; + } + if( $col >= 15 ) { + print "\n "; + $col = 0; + } + print sprintf("0x%02X",$ch); + $col++; + } + } +} + +if( !$debug ) { + if( $col >= 15 ) { + print ",\n0x00};\n\n"; + } else { + print ",0x00};\n\n"; + } + print "} // namespace OpenBabel\n"; + print "#endif // OB_" . $guard . "_H\n\n"; +} + +close(F); +exit; +