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

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

Revision: 775
          http://pure-lang.svn.sourceforge.net/pure-lang/?rev=775&view=rev
Author:   agraef
Date:     2008-09-16 18:46:30 +0000 (Tue, 16 Sep 2008)

Log Message:
-----------
Add support for cmatrix and imatrix tags.

Modified Paths:
--------------
    pure/trunk/lexer.ll
    pure/trunk/printer.cc

Modified: pure/trunk/lexer.ll
===================================================================
--- pure/trunk/lexer.ll	2008-09-16 18:36:59 UTC (rev 774)
+++ pure/trunk/lexer.ll	2008-09-16 18:46:30 UTC (rev 775)
@@ -255,6 +255,8 @@
 strtag  ::{blank}*string
 ptrtag  ::{blank}*pointer
 mattag  ::{blank}*matrix
+cmattag  ::{blank}*cmatrix
+imattag  ::{blank}*imatrix
 
 %x comment xdecl xdecl_comment xusing xusing_comment
 
@@ -1187,6 +1189,8 @@
 {strtag}/[^a-zA-Z_0-9]   yylval->ival = EXPR::STR; return token::TAG;
 {ptrtag}/[^a-zA-Z_0-9]   yylval->ival = EXPR::PTR; return token::TAG;
 {mattag}/[^a-zA-Z_0-9]   yylval->ival = EXPR::MATRIX; return token::TAG;
+{cmattag}/[^a-zA-Z_0-9]  yylval->ival = EXPR::CMATRIX; return token::TAG;
+{imattag}/[^a-zA-Z_0-9]  yylval->ival = EXPR::IMATRIX; return token::TAG;
 extern     BEGIN(xdecl); return token::EXTERN;
 infix      yylval->fix = infix; return token::FIX;
 infixl     yylval->fix = infixl; return token::FIX;

Modified: pure/trunk/printer.cc
===================================================================
--- pure/trunk/printer.cc	2008-09-16 18:36:59 UTC (rev 774)
+++ pure/trunk/printer.cc	2008-09-16 18:46:30 UTC (rev 775)
@@ -169,6 +169,10 @@
     return os << "::string";
   case EXPR::MATRIX:
     return os << "::matrix";
+  case EXPR::CMATRIX:
+    return os << "::cmatrix";
+  case EXPR::IMATRIX:
+    return os << "::imatrix";
   default:
     return os;
   }


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