head 1.2; access; symbols; locks; strict; comment @# @; 1.2 date 99.02.09.13.09.16; author ryu; state Exp; branches; next 1.1; 1.1 date 99.01.20.08.18.23; author ryu; state Exp; branches; next ; desc @#! PERL @ 1.2 log @no redirection for hspice input @ text @#! PERL # $Id: Hspice.pl,v 1.1 1999/01/20 08:18:23 ryu Exp ryu $ # Copyright (C) 1999 Robert K. Yu # email: robert@@yu.org # This file is part of Autochar. # Autochar is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2, or (at your option) # any later version. # Autochar is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with Autochar; see the file COPYING. If not, write to the # Free Software Foundation, Inc., 59 Temple Place - Suite 330, # Boston, MA 02111-1307, USA. ($Program) = $0 =~ /([^\/]*)$/; #------------------------------------------------------------------------------- # Setup #------------------------------------------------------------------------------- use Getopt::Std; use File::Basename; #------------------------------------------------------------------------------- # Parse Command #------------------------------------------------------------------------------- getopts('ho:'); $input = $ARGV[0]; ($base,$dir,$type) = fileparse($input, '\..*'); $output = $base . '.out'; if ($opt_h || !$input) { print "Usage: $Program [-h] [-o spiceout] spicein\n"; print " -h: help usage\n"; print " -o: spice output\n"; print " (default: input.out)\n"; print "input: spice input\n"; exit 0; } $output = ($opt_o) ? $opt_o : $output; #------------------------------------------------------------------------------- # Main #------------------------------------------------------------------------------- # run hspice `hspice $input > $output`; exit 0; @ 1.1 log @entered into RCS @ text @d3 1 a3 1 # $Id: autochar.pl,v 1.34 1999/01/20 07:44:59 ryu Exp $ d64 1 a64 1 `hspice < $input > $output`; @