[pure-lang-svn] SF.net SVN: pure-lang:[446] pure/trunk

[<ag...@us...>]

Revision: 446
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=446&view=rev
Author:   agraef
Date:     2008-08-04 06:59:40 +0000 (Mon, 04 Aug 2008)

Log Message:
-----------
Rename Env::print_defs -> print.

Modified Paths:
--------------
    pure/trunk/interpreter.hh
    pure/trunk/lexer.ll

Modified: pure/trunk/interpreter.hh
===================================================================
--- pure/trunk/interpreter.hh	2008-08-04 06:50:23 UTC (rev 445)
+++ pure/trunk/interpreter.hh	2008-08-04 06:59:40 UTC (rev 446)
@@ -176,7 +176,7 @@
   // and patching up tail calls
   llvm::ReturnInst *CreateRet(llvm::Value *v);
   // print the code of all functions in an environment, recursively
-  void print_defs(ostream& os) const;
+  void print(ostream& os) const;
   // default constructor
   Env()
     : tag(0), n(0), m(0), f(0), h(0), fp(0), args(0), envs(0),

Modified: pure/trunk/lexer.ll
===================================================================
--- pure/trunk/lexer.ll	2008-08-04 06:50:23 UTC (rev 445)
+++ pure/trunk/lexer.ll	2008-08-04 06:59:40 UTC (rev 446)
@@ -543,7 +543,7 @@
 	    sout << "  " << rules << ";";
 	    if (aflag && m) sout << endl << *m;
 	    if (dflag && fenv != interp.globalfuns.end() && fenv->second.f)
-	      fenv->second.print_defs(sout);
+	      fenv->second.print(sout);
 	  } else {
 	    sout << " " << argc << " args, " << rules.size() << " rules";
 	  }
@@ -560,7 +560,7 @@
 	  if (n > 0) {
 	    if (aflag && m) sout << *m << endl;
 	    if (dflag && fenv != interp.globalfuns.end() && fenv->second.f)
-	      fenv->second.print_defs(sout);
+	      fenv->second.print(sout);
 	    nrules += n;
 	    ++nfuns;
 	  }
@@ -936,7 +936,7 @@
   result = k;
 }
 
-void Env::print_defs(ostream& os) const
+void Env::print(ostream& os) const
 {
   if (!f) return; // not used, probably a shadowed rule
   if (h && h != f) h->print(os);
@@ -944,6 +944,6 @@
   for (size_t i = 0, n = fmap.m.size(); i < n; i++) {
     for (map<int32_t,Env>::const_iterator f = fmap.m[i].begin(),
 	   end = fmap.m[i].end(); f != end; f++)
-      f->second.print_defs(os);
+      f->second.print(os);
   }
 }


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.