Merge pull request #38 from rlutowsk/matrices

read matrix fix

Author: gaehler

gap/carat.gi

@@ -171,6 +171,10 @@ BindGlobal( "CaratReadMatrix", function( input, str )
     local n, den, pos, m;
 
     n   := CaratNextNumber( str, 1 );
+    while n=fail do
+        str := CaratReadLine( input );
+        n   := CaratNextNumber( str, 1 );
+    od;
 
     # is matrix rational?
     pos := Position( str, '/' );

tst/carat.tst

@@ -122,3 +122,8 @@ gap> BravaisGroupsCrystalFamily( "4-2;1" );
   <matrix group of size 144 with 7 generators>, 
   <matrix group of size 288 with 4 generators>, 
   <matrix group of size 144 with 6 generators> ]
+
+gap> name := CaratTmpFile("pres");;
+gap> PrintTo(name, "\n2d1\n1 1\n");
+gap> CaratReadMatrixFile( name );
+[ [ 1, 0 ], [ 0, 1 ] ]