parse_hip.pl   parse_hip.pl 
#!/usr/bin/perl #!/usr/bin/perl
# Creates hipparcos data file for use with Stellarium # Creates hipparcos data file for use with Stellarium
# from source hip_main.dat data file available at # from source hip_main.dat data file available at
# http://cdsweb.u-strasbg.fr/viz-bin/Cat?I/239 # http://cdsweb.u-strasbg.fr/viz-bin/Cat?I/239
# Copyright 2005 Robert Spearman # Copyright (C) 2005 Robert Spearman
# #
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Suite 500, Boston, MA 02110-1335,
USA.
# This program is free software; you can redistribute it and/or # This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License # modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2 # as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version. # of the License, or (at your option) any later version.
# #
# This program is distributed in the hope that it will be useful, # This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of # but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details. # GNU General Public License for more details.
# #
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, US
A.
print "\nConverting hip_main.dat to hipparcos.fab\n\n"; print "\nConverting hip_main.dat to hipparcos.fab\n\n";
print "WARNING: This script has only been tested on x86 Linux.\n"; print "WARNING: This script has only been tested on x86 Linux.\n";
print "It may produce incorrect results on other platforms.\n\n"; print "It may produce incorrect results on other platforms.\n\n";
sleep 2; sleep 2;
open(IN, "hip_main.dat") || die "Can't find hip_main.dat\n"; open(IN, "hip_main.dat") || die "Can't find hip_main.dat\n";
open(OUT, ">hipparcos.fab") || die "Can't write hipparcos.fab\n"; open(OUT, ">hipparcos.fab") || die "Can't write hipparcos.fab\n";
 End of changes. 3 change blocks. 
5 lines changed or deleted 6 lines changed or added

This html diff was produced by rfcdiff 1.41. The latest version is available from http://tools.ietf.org/tools/rfcdiff/