root/paper-tape-project/trunk/userspace-driver/puncher-frontend.pl

#!/usr/bin/perl
#
# kleines Frontend für puncher.c, welches
# folgende Funktionen bereitstellt:
#
#   * Beschriftung des Lochstreifens mittels Programms
#   * Nullbytes vor Beschriftung (zum Warmlaufen des Punchers)
#     und vor Daten (Trennung Beschriftung/Programm)
#   * Aufruf von ./puncher[.c]
#
# Aufrufparameter: Siehe --help.
#

use strict;

# Konstanten:
require "../schriften/neue-schrift.pl";
my $userspace_driver = "./puncher"; #../perl-tools/punch-simulator"; # vollstaendiges Kommando
my $debug = 0; # per Parameter -d setzbar.

# wie viel Nullbytes an welcher Stelle?
my $null_before_label = 2;
my $null_before_data  = 40;

# hier gehts los.
sub HELP_MESSAGE {
    print STDERR <<"HELP";
Usage: $0 [params] [dateiname(n)]

Puncher-Frontend mit Labelfunktion und Nullbytes. Parameter:

-n \t*Kein* Label drucken
-d \tDebuggen (Puncherprogramm, ...)

Wenn -n nicht gesetzt ist, wird zunaechst ein Label per STDIN
abgefragt. Wenn keine Datei angegeben ist, wird anschliessend
die zu punchende Datei ueber STDIN erwartet.
HELP
}

use Getopt::Std;
our($opt_n, $opt_d);
getopts('nd');

$debug = $opt_d;

my $bytes = ''; # der große Byte-Array/string.

# Label:
unless($opt_n) {
    # Label drucken.
    $bytes .= pack("C", 0) x $null_before_label;

    print STDERR "Gewuensches Label eintippen und mit NL beenden:\n";
    chomp(my $label = <STDIN>);
    unless(check_string($label)) {
        die "Schlechtes Label! Beende.\n";
        exit 1;
    }

    # Label machen.
    $bytes .= label($label);
}

# Nullbytes
$bytes .= pack("C",0) x $null_before_data;

# Daten einlesen.
print STDERR (@ARGV ? "Reading from @ARGV...\n" : "Reading from STDIN...\n");
$bytes .= $_ while(<>);

# Puncher ausfuehren
open(PUNCHER, "|$userspace_driver ".($debug?'-d':'').' -l'.(length($bytes))) or die "Konnte $userspace_driver nicht starten: $!";
print PUNCHER $bytes;
close(PUNCHER);

print "\n", $? ? "Fehler beim Puncheln (Statuscode $?)" : "Erfolgreich fertiggepunscht.", "\n";

exit $?;