#!/usr/bin/perl
# give surrounding radio frequency steps
# Copyright       : http://www.fsf.org/copyleft/gpl.html
# Author          : Dan Jacobson -- http://jidanni.org/
# Created On      : Mar 2007
# Last Modified By: Dan Jacobson
# Last Modified On: Thu Mar  1 07:22:27 2007
# Update Count    : 132
#usage $0 file
use strict;
use warnings FATAL => 'all';
##default to 12.5 kHz for now
use constant K => 125;    #Change to an argument one day
sub f { return sprintf "%08.4f", shift() / 10000; }
sub x { return "-" x int shift() / 5 || 1 }
while (<>) {
    for (/{{c\|(\d+\.\d+)}}/g) {    ##for my wiki, else just use
##  for (/\d+\.\d+/g) {
        next unless my $r = ( $_ *= 10000 ) % K;
        print join " ", f( $_ - $r ), f($_), f( $_ + K - $r ), x($r),
          x( abs $r - K ), "line $.\n";
    }
}