#!/usr/bin/perl

($ver = '$Revision: 1.0 $') =~ s/\$//g;
($perlscript = $0) =~ s/.*\///;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = gmtime;
$year += 1900;
$mon += 1;
print "# Constellation figures downloaded from\n";
print "# http://skymap.com/constellations.htm\n";
print "# Converted for Celestia by $perlscript $ver\n";
print "# Processed $year-$mon-$mday $hour:$min:$sec UTC\n";
print "\n";

%constell = ('Andromeda' => 'And','Antlia' => 'Ant','Apus' => 'Aps','Aquila' => 'Aql','Aquarius' => 'Aqr','Ara' => 'Ara','Aries' => 'Ari','Auriga' => 'Aur','Bootes' => 'Boo','Canis Major' => 'CMa','Canis Minor' => 'CMi','Canes Venatici' => 'CVn','Caelum' => 'Cae','Camelopardus' => 'Cam','Capricornus' => 'Cap','Carina' => 'Car','Cassiopeia' => 'Cas','Centaurus' => 'Cen','Cepheus' => 'Cep','Cetus' => 'Cet','Chamaeleon' => 'Cha','Circinus' => 'Cir','Cancer' => 'Cnc','Columba' => 'Col','Coma Berenices' => 'Com','Corona Australis' => 'CrA','Corona Borealis' => 'CrB','Crater' => 'Crt','Crux' => 'Cru','Corvus' => 'Crv','Cygnus' => 'Cyg','Delphinus' => 'Del','Dorado' => 'Dor','Draco' => 'Dra','Equuleus' => 'Equ','Eridanus' => 'Eri','Fornax' => 'For','Gemini' => 'Gem','Grus' => 'Gru','Hercules' => 'Her','Horologium' => 'Hor','Hydra' => 'Hya','Hydrus' => 'Hyi','Indus' => 'Ind','Leo Minor' => 'LMi','Lacerta' => 'Lac','Leo' => 'Leo','Lepus' => 'Lep','Libra' => 'Lib','Lupus' => 'Lup','Lynx' => 'Lyn','Lyra' => 'Lyr','Mensa' => 'Men','Microscopium' => 'Mic','Monoceros' => 'Mon','Musca' => 'Mus','Norma' => 'Nor','Octans' => 'Oct','Ophiuchus' => 'Oph','Orion' => 'Ori','Pavo' => 'Pav','Pegasus' => 'Peg','Perseus' => 'Per','Phoenix' => 'Phe','Pictor' => 'Pic','Pisces Austrinus' => 'PsA','Pisces' => 'Psc','Puppis' => 'Pup','Pyxis' => 'Pyx','Reticulum' => 'Ret','Sculptor' => 'Scl','Scorpius' => 'Sco','Scutum' => 'Sct','Serpens Caput' => 'Se1','Sextans' => 'Sex','Sagitta' => 'Sge','Sagittarius' => 'Sgr','Taurus' => 'Tau','Telescopium' => 'Tel','Triangulum Australe' => 'TrA','Triangulum' => 'Tri','Tucana' => 'Tuc','Ursa Major' => 'UMa','Ursa Minor' => 'UMi','Vela' => 'Vel','Virgo' => 'Vir','Volans' => 'Vol','Vulpecula' => 'Vul','Serpens Cauda' => 'Se2');

$foundit = "";

  while (<>) {
    next if(/^\s+$/);
    next if (/Commands/);
    if ($foundit == ""){
      foreach $cons (sort keys(%constell)){ 
	if (/^;\s+$cons\s+$/){
	  $foundit = $cons;
 	  last;
	}
      }
    }

# look for a number at the beginning of line

    if(/^\d+/){
      @line=split(" ");
      # next if (/unnamed/);
      if ($line[5]=~/^\d/){ 
	$line[4] = join("",$line[4],$line[5]);
      }
      substr($line[4],0,1)=~tr /a-z/A-Z/;
      if($line[1]=="0"){
	print "\"$foundit\"\n[\n[ "  if ($incons == 0);
	print "]\n[ " if ($incons == 1);
	print "\"$line[4] $constell{$foundit}\" ";
      }
      if($line[1]=="1"){
	print "\"$line[4] $constell{$foundit}\" ";
	$incons = 1;
      }
      if($line[1]=="2"){
	print "]\n]\n\n";
	$foundit = ""; 
	$incons = 0;
      }
    }

  }