Subversion Repositories veristruct

#######################################################################

# 

# 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: Structlib.pm,v 1.1 2008-10-10 21:13:56 julius Exp $

# $URL: $ 

# $Rev: $

# $Author: julius $

######################################################################

#

# Class for a collection of structs

#

######################################################################

use Verilog::Veristruct::Struct;

package Verilog::Veristruct::Structlib;

sub new {

    $classobject = {};

    local %structs;

    $classobject->{"structs"} = \%structs;

    bless($classobject);

    return $classobject;

}

# Parses a string (that should contain multiple struct defns)

sub parse {

    my ($self, $struct_string, $string_position) = @_;

    # Set search to begin at the relevant point in the buffer

    pos($$struct_string) = $string_position;

    # Replace comments with nothing

    # Line comments:

    $$struct_string =~ s/\s*\/\/.*?$//mg;

    # Block comments:

    $$struct_string =~ s/\s*\/\*.*?\*\///gs;

    while ($$struct_string =~ m/\G\s*struct/is) {

        $local_struct = new Verilog::Veristruct::Struct;

        $pos = $local_struct->parse($struct_string,

                                    pos($$struct_string));

        if (!$pos) {

            print "Struct failed to parse.\n";

            return;

        }

        $self->{"structs"}->{$local_struct->get_name()}

          = $local_struct;

        pos($$struct_string) = $pos;

    }

    # This should be the end of the buffer - check

    if ($$struct_string !~ m/\G\s*$/mc) {

        print "EOF expected - not found: ",

        substr($$struct_string, pos($$struct_string)), "\n";

        return;

    }

    return pos($$struct_string);

}

# Load structs from a file (should already be opened)

sub load {

    my ($self, $handle) = @_;

    # Read in the whole file

    while ($line = <$handle>) {

        $buffer .= $line;

    }

    $self->parse(\$buffer, 0);

}

# For debugging:

sub print_info {

    my ($self) = @_;

    foreach $name (keys (%{$self->{"structs"}})) {

        print "Info for struct named: ", $name, "\n";

        $self->{"structs"}->{$name}->print_elem_info();

    }

}

# Returns the names of the structs that we know

sub get_struct_names {

    my ($self) = @_;

    return keys (%{$self->{"structs"}});

}

1;