[prev in list] [next in list] [prev in thread] [next in thread]
List: kde-edu
Subject: [kde-edu]: KDE/kdeedu/kstars/kstars
From: Jason Harris <kstars () 30doradus ! org>
Date: 2007-10-12 14:40:29
Message-ID: 1192200029.481318.24394.nullmailer () svn ! kde ! org
[Download RAW message or body]
SVN commit 724519 by harris:
Fixing error in parsing stars data file. The file is now named
stars.dat, and the format changed slightly. I am now using awk
instead of perl to parse the name.
Also, the ngcic data files have been concatenated into a single
file (ngcic.dat).
Thanks for pointing this out, Burkhard.
CCMAIL: kde-edu@kde.org
M +3 -2 Messages.sh
--- trunk/KDE/kdeedu/kstars/kstars/Messages.sh #724518:724519
@@ -39,9 +39,10 @@
sort --unique info_url.tmp >> kstars_i18n.cpp
# star names : some might be different in other languages, or they might have to be \
adapted to non-Latin alphabets
-cat data/hip*.dat | perl -e 'while ( $line=<STDIN> ) { $starname = substr \
($line,72); chop $starname; if ( $starname =~ /(.*)\:/ ) { $starname = $1 . " "; \
} if ( $starname =~ /(.*\w)(\s+)/) { $starname = $1; $starnames{$starname} = 1; } \
} foreach $star( sort keys %starnames) { printf "i18nc(\"star name\",\"%s\");\n", \
$star; }' >> kstars_i18n.cpp; +cat data/stars.dat | gawk 'BEGIN { FS=","; } ($1!~/\#/ \
&& NF==3) { print $3; }' >> kstars_i18n.cpp; +
# extract deep-sky object names (sorry, I don't know perl-fu ;( ...using AWK )
-cat data/ngcic*.dat | gawk '{ split(substr( $0, 77 ), name, " "); \
+cat data/ngcic.dat | gawk '{ split(substr( $0, 77 ), name, " "); \
if ( name[1]!="" ) { \
printf( "%s", name[1] ); i=2; \
while( name[i]!="" ) { printf( " %s", name[i] ); i++; } \
_______________________________________________
kde-edu mailing list
kde-edu@mail.kde.org
https://mail.kde.org/mailman/listinfo/kde-edu
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic