#||

VHDL Object Model 1.0 - load-vom.re 
-----------------------------------

Copyright (c) 1993 Ohio Board of Regents and the University of
Cincinnati.  All rights reserved.

Authors: David Benz, Phillip Baraona
E-Mail: dbenz@thor.ece.uc.edu, pbaraona@thor.ece.uc.edu

||#

  
!! in-package("VOM-1-0")
!! in-grammar('user)

var INPUT-SEQ: seq(vhdl-design-file) = []

"Read and parse from file <filename>"
function parse-from-file(filename : string): seq(vhdl-design-file) =
  format(true, "~2%Parsing file: ~A~%", filename);
      let (user-gram = find-object('re::grammar, 'vhdl-93)) 
      parse-file(filename, false, user-gram, user-gram, 
			      find-package("ru"))


"Run the VHDL Object Model parser on a given test file."
function vom-parse-description(filename : string) =

   %% Reset the line number
   *LINE-NUMBER* <- 1;

   format(true, "~2%Parsing ...~%");
   input-seq <- parse-from-file(filename);

%% The ~\pp\ format directive pretty prints a node.  
   format(true, "~2%Parsed from file:~%~\\pp\\~%",
		       input-seq)












<div align="center"><br /><script type="text/javascript"><!--
google_ad_client = "pub-7293844627074885";
//468x60, Created at 07. 11. 25
google_ad_slot = "8619794253";
google_ad_width = 468;
google_ad_height = 60;
//--></script>
<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script><br />&nbsp;</div>