Shell Programming and Scripting

Project to provide an astronomy podcast        every day of the year, written, recorded and produced by people        around the world.
 Provides        information for people using their naked eyes, binoculars or small        telescopes. Includes articles, links, downloads and shopping.
 Images, CCD information,        buy and sell, and links.
 Questions answered by graduate students,        including a question and answer archive, information on the solar        system, the universe, SETI, observational astronomy, careers and        history.
 Provides studies, images, movies, and equations.
 Visual and CCD photomety, including        classic and digital astrophotography. Presents equipment and        resources. Located near Plomin in eastern Istria, Croatia.
 Supporting the hobby related web sites        throughout world.
 Getting started, CG-5 mount, SAA 100 list,        constellation portraits, barn door tracker, comet Hale Bopp,        homemade eyepieces, EQ mount tutorial, millennium rant, and        biography, home.
 Weekly podcast providing discussions on        astronomical topics ranging from planets to cosmology.
 Monthly podcast discussing what can be seen        in the night sky.
 Provides news, articles and resources        updated daily.
 Includes galleries, equipment reviews,        articles, observation planning, and links.
 Contains sections for equipment, the        beginner, books, the solar system and deep sky, web log, and links.
 Myths and misconceptions. Includes an        introduction, brief biography, and discussion board.
 An online astronomy journal by Math        Heijen, backyard astronomer from the Netherlands. Observing logs        from Sun, Moon and Deepsky, digital lunar and solar images,        equipment reviews, links, books etc. Articles about the Sun, Moon        and Deepsky.

 { gsub( "^[ \t]*", "", $0 ); }

gsub( "[ \t]*$", "", $0 );

#!/usr/bin/env ksh
awk '
        function print_buf( )
        {
                if( !buffer )
                        return;

                if( (n = index( buffer, "-" )) > 0 )    # only want lines with a dash
                        printf( "%s\n\n", substr( buffer, n+2 ) );      # print everything after the first dash
                buffer = ""             # start fresh
        }

        { gsub( "^[ \t]*", " " ); }     # ditch leading whitespace

        /^[ \t]*[*][ \t]*[[]/ {         # assume: <whitespace>*<whitespace>[
                print_buf( );           # print previous section if there and has a -
                snarf = 1;              # signal collection of buffer is ok
                buffer = $0;           # initialise buffer with current line
                next;
        }

        /^[ \t]*[*]/ {                # not a section, and ends it if snarfing
                print_buf();
                snarf = 0;
                next;
        }
        NF <= 0 {                       # empty line terminates current section
                print_buf();            # print buffer if it exists
                snarf = 0;              # turn collection off
                next;
        }

        snarf > 0 {                     # snarfing, collect into the buffer until next section or end 
                buffer = buffer " " $0;  
                next;
        }

        END {
                print_buf( );
        }
'  astro.txt