Mercurial > octave

changeset 1554:b1ba1894bccc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-09 13:31:42 by jwe]
author jwe
date Mon, 09 Oct 1995 13:31:42 +0000
parents 539c43aa46e5
children 6935e817fd25
files src/lex.l
diffstat 1 files changed, 10 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/lex.l	Sun Oct 08 23:44:50 1995 +0000
+++ b/src/lex.l	Mon Oct 09 13:31:42 1995 +0000
@@ -1203,6 +1203,8 @@
 // is an acceptable change.  It would be quite a bit harder to `fix'
 // this.  (Well, maybe not.  the best fix would be to do away with the
 // specialness of whitespace inside of `[ ... ]').
+//
+// However, we still do check for `.+', `.*', etc.
 
 static int
 next_token_is_bin_op (int spc_prev, char *yytext)
@@ -1223,6 +1225,14 @@
       }
       break;
 
+    case '.':
+      {
+	int c1 = yyinput ();
+	yyunput (c1, yytext);
+	bin_op = match_any (c1, "+-*/\\^");
+      }
+      break;
+
     case '/':
     case ':':
     case '\\':