#!/bin/perl

unless(@ARGV) {
    print <<EOU;
Usage: $0 <name> <node> <switching points>

Vdd = 2.5V
Timescale = n
V0  = 0V
tr = tf = 50p

EOU

    exit 0;
}

my $name = shift @ARGV;
my $node = shift @ARGV;
my @switchpoints = @ARGV;
my $v = 0;
my $Vdd = 2.5;

{
    print <<EOL;
****\t\t\t\ttime\tvoltage ***
$name\t$node\tgnd\tPWL\(\t$v\t$v
EOL

    foreach(@switchpoints) {
	print "+\t\t\t\t${_}n\t$v\n";
	$v = $v ? 0 : $Vdd;
	$_ += .05;
	print "+\t\t\t\t${_}n\t$v\n";
    }

    print "+\t\t\t\t)\n";
}