Subversion Repositories veristruct

#!/usr/bin/perl
#######################################################################
# 
# This file is a part of the Rachael SPARC project accessible at
# https://www.rachaelsparc.org. Unless otherwise noted code is released
# under the Lesser GPL (LGPL) available at http://www.gnu.org.
#
# Copyright (c) 2005: 
#   Michael Cowell
#
# Rachael SPARC is based heavily upon the LEON SPARC microprocessor
# released by Gaisler Research, at http://www.gaisler.com, under the
# LGPL. Much of the architectural work on Rachael was done by g2
# Microsystems. Contact michael.cowell@g2microsystems.com for more
# information.
#
#######################################################################
# $Id: veristruct.pl,v 1.2 2008-10-10 21:09:26 julius Exp $
# $URL: $
# $Rev: $
# $Author: julius $
######################################################################
#
# This file is the main module of the Veristruct Perl program.
#
# Veristruct provides (some) struct support for the Verilog language
# by pre-processing Veristruct (.vs) files to produce IEEE1364.1995
# (Verilog 1995) compliant source code.
#
# All structs are defined in seperate (.struct) files, that use a
# syntax very similar to C. Please see attached documentation (in the
# doc folder) for more information.
#
######################################################################
 
use Verilog::Veristruct::Structlib;
use Verilog::Veristruct::File;
 
#
# Globals
#
$debug = 0;
$infile = '';
$outfile = '';
@libpaths;
$overwrite = '';
$makefile = 0;
$ignore = 0;
 
#
# Command line options processing
#
sub init()
{
    use Getopt::Long;
    my $help;
    GetOptions ("help" => \$help,
	        "debug" => \$debug,
		"write" => \$overwrite,
                "infile=s" => \$infile,
                "outfile=s" => \$outfile,
                "libpath|l=s" => \@libpaths,
	        "makefile" => \$makefile,
		"forget-unfound" => \$ignore) or usage();
    @libpaths = split(/,/,join(',',@libpaths));
    usage() if $help;
    if ((!($infile)) or (!($outfile))) {
	usage();
    } else {
	process();
    }
}
 
#
# Message about this program and how to use it
#
sub usage()
{
    print STDERR << "EOF";    
 
  Veristruct parses .struct and .vs files to create IEEE1364.1995
  (Verilog) compliant .v files.
 
    usage: $0 [-h -d -w -L path] -i file -o file
 
      -h, --help               : this (help) message
      -d, --debug              : print debugging messages to stderr
      -w, --write              : overwrite output file
      -i file, --infile=file   : .vs file containing veristruct
      -o file, --outfile=file  : .v file that will be written
      -L path, --libpath=path  : library path for .struct files
                                 Note: multiple paths may be specified 
      -m, --makefile           : Write a makefile to build a Verilog
                                 module from this Veristruct module.
			         Dependencies are detected and included.
				 The destination file is specified with
				 the normal -o option.
      -f, --forget-unfound     : forget (ignore) unfound modules instead
                                 of error-ing.
 
    example: $0 -d -i module.vs -o module.v
 
EOF
    exit;
}
 
sub process() {
 
    open($ifh, "<$infile") or die
	"Couldn't open $infile.";
    if (-e $outfile and !($overwrite)) {
	die "$outfile exists (and -w not specified). Not overwriting.";
    }
    $myfile = new Verilog::Veristruct::File;
    $myfile->load($ifh) or die
	"Couldn't load $infile.";
    # Add the current folder to libpaths
    push(@libpaths, ".");
    if ($makefile) {
	$myfile->generate_makefile($debug, $ignore, \@libpaths, $infile) or die
	    "Parsing of $infile failed";
    } else {
	$myfile->replace_structs($debug, $ignore, \@libpaths) or die
	    "Parsing of $infile failed.";
    }
    open($ofh, ">$outfile") or die
	"Couldn't open $outfile for writing.";
    print $ofh ${$myfile->{"buffer"}};
 
}
 
init();