Return to make-examples.pl CVS log

Jump to this file's LXR Page

Up to [CENS] / emstar / fusd / doc

Changed make-examples so that /* SKIPLINE */ lets you omit an individual
line from an example, more easily than a STOP-START pair.  Used this to
clean up the ioctl example.  Started excerpting parts of the pager
into the docs.

#!/usr/bin/perl -w


foreach $path (@ARGV) {
    $writing = 0;

    if (!open(IN, $path)) {
	print "trying to open $path: $!\n";
	next;
    }

    while ($line = <IN>) {
	if ($line =~ /EXAMPLE (\w*) ([\w\-\.]*)/) {
	    $command = $1;
	    $filename = $2 . ".example";

	    if ($command eq 'START') {
		if ($writing == 0) {
		    if (!open(OUT, ">>$filename")) {
			print "trying to write to $filename: $!\n";
		    } else {
			print "$path: writing to $filename\n";
			$writing = 1;
		    }
		} else {
		    print "$path: got $line while already writing!\n";
		}
	    }

	    if ($command eq 'STOP') {
		if ($writing == 1) {
		    close(OUT);
		    $writing = 0;
		} else {
		    chomp($line);
		    die "$path line $.: got $line when not writing!\n";
		}
	    }
	} else {
	    if ($writing && $line !~ /SKIPLINE/) {
		print OUT $line;
	    }
	}
    }
    if ($writing) {
	close(OUT);
    }
    close(IN);
}