Partial implementation of multisets.

1 files changed, 73 insertions, 71 deletions

diff --git a/Dafny/Scanner.cs b/Dafny/Scanner.cs
index 81f556c8..a1fd9851 100644
--- a/Dafny/Scanner.cs
+++ b/Dafny/Scanner.cs
@@ -211,8 +211,8 @@ public class UTF8Buffer: Buffer {
 public class Scanner {

 	const char EOL = '\n';

 	const int eofSym = 0; /* pdt */

-	const int maxT = 104;

-	const int noSym = 104;

+	const int maxT = 106;

+	const int noSym = 106;

 

 

 	[ContractInvariantMethod]

@@ -510,36 +510,38 @@ public class Scanner {
 			case "nat": t.kind = 36; break;

 			case "int": t.kind = 37; break;

 			case "set": t.kind = 38; break;

-			case "seq": t.kind = 39; break;

-			case "object": t.kind = 40; break;

-			case "function": t.kind = 41; break;

-			case "reads": t.kind = 42; break;

-			case "label": t.kind = 45; break;

-			case "break": t.kind = 46; break;

-			case "return": t.kind = 47; break;

-			case "new": t.kind = 49; break;

-			case "choose": t.kind = 53; break;

-			case "if": t.kind = 54; break;

-			case "else": t.kind = 55; break;

-			case "case": t.kind = 56; break;

-			case "while": t.kind = 58; break;

-			case "invariant": t.kind = 59; break;

-			case "match": t.kind = 60; break;

-			case "foreach": t.kind = 61; break;

-			case "in": t.kind = 62; break;

-			case "assert": t.kind = 63; break;

-			case "assume": t.kind = 64; break;

-			case "print": t.kind = 65; break;

-			case "false": t.kind = 89; break;

-			case "true": t.kind = 90; break;

-			case "null": t.kind = 91; break;

-			case "this": t.kind = 92; break;

-			case "fresh": t.kind = 93; break;

-			case "allocated": t.kind = 94; break;

-			case "old": t.kind = 95; break;

-			case "then": t.kind = 96; break;

-			case "forall": t.kind = 98; break;

-			case "exists": t.kind = 100; break;

+			case "multiset": t.kind = 39; break;

+			case "seq": t.kind = 40; break;

+			case "object": t.kind = 41; break;

+			case "function": t.kind = 42; break;

+			case "reads": t.kind = 43; break;

+			case "label": t.kind = 46; break;

+			case "break": t.kind = 47; break;

+			case "return": t.kind = 48; break;

+			case "new": t.kind = 50; break;

+			case "choose": t.kind = 54; break;

+			case "if": t.kind = 55; break;

+			case "else": t.kind = 56; break;

+			case "case": t.kind = 57; break;

+			case "while": t.kind = 59; break;

+			case "invariant": t.kind = 60; break;

+			case "match": t.kind = 61; break;

+			case "foreach": t.kind = 62; break;

+			case "in": t.kind = 63; break;

+			case "assert": t.kind = 64; break;

+			case "assume": t.kind = 65; break;

+			case "print": t.kind = 66; break;

+			case "false": t.kind = 90; break;

+			case "true": t.kind = 91; break;

+			case "null": t.kind = 92; break;

+			case "this": t.kind = 93; break;

+			case "fresh": t.kind = 94; break;

+			case "allocated": t.kind = 95; break;

+			case "old": t.kind = 96; break;

+			case "multi": t.kind = 97; break;

+			case "then": t.kind = 98; break;

+			case "forall": t.kind = 100; break;

+			case "exists": t.kind = 102; break;

 			default: break;

 		}

 	}

@@ -653,76 +655,76 @@ public class Scanner {
 			case 22:

 				{t.kind = 34; break;}

 			case 23:

-				{t.kind = 43; break;}

-			case 24:

 				{t.kind = 44; break;}

+			case 24:

+				{t.kind = 45; break;}

 			case 25:

-				{t.kind = 48; break;}

+				{t.kind = 49; break;}

 			case 26:

-				{t.kind = 50; break;}

-			case 27:

 				{t.kind = 51; break;}

+			case 27:

+				{t.kind = 52; break;}

 			case 28:

-				{t.kind = 57; break;}

+				{t.kind = 58; break;}

 			case 29:

 				if (ch == '>') {AddCh(); goto case 30;}

 				else {goto case 0;}

 			case 30:

-				{t.kind = 66; break;}

-			case 31:

 				{t.kind = 67; break;}

-			case 32:

+			case 31:

 				{t.kind = 68; break;}

-			case 33:

+			case 32:

 				{t.kind = 69; break;}

+			case 33:

+				{t.kind = 70; break;}

 			case 34:

 				if (ch == '&') {AddCh(); goto case 35;}

 				else {goto case 0;}

 			case 35:

-				{t.kind = 70; break;}

-			case 36:

 				{t.kind = 71; break;}

-			case 37:

+			case 36:

 				{t.kind = 72; break;}

-			case 38:

+			case 37:

 				{t.kind = 73; break;}

+			case 38:

+				{t.kind = 74; break;}

 			case 39:

-				{t.kind = 76; break;}

-			case 40:

 				{t.kind = 77; break;}

-			case 41:

+			case 40:

 				{t.kind = 78; break;}

+			case 41:

+				{t.kind = 79; break;}

 			case 42:

 				if (ch == 'n') {AddCh(); goto case 43;}

 				else {goto case 0;}

 			case 43:

-				{t.kind = 79; break;}

-			case 44:

 				{t.kind = 80; break;}

-			case 45:

+			case 44:

 				{t.kind = 81; break;}

-			case 46:

+			case 45:

 				{t.kind = 82; break;}

-			case 47:

+			case 46:

 				{t.kind = 83; break;}

-			case 48:

+			case 47:

 				{t.kind = 84; break;}

-			case 49:

+			case 48:

 				{t.kind = 85; break;}

-			case 50:

+			case 49:

 				{t.kind = 86; break;}

+			case 50:

+				{t.kind = 87; break;}

 			case 51:

-				{t.kind = 88; break;}

+				{t.kind = 89; break;}

 			case 52:

-				{t.kind = 97; break;}

-			case 53:

 				{t.kind = 99; break;}

-			case 54:

+			case 53:

 				{t.kind = 101; break;}

+			case 54:

+				{t.kind = 103; break;}

 			case 55:

-				{t.kind = 102; break;}

+				{t.kind = 104; break;}

 			case 56:

-				{t.kind = 103; break;}

+				{t.kind = 105; break;}

 			case 57:

 				recEnd = pos; recKind = 15;

 				if (ch == '>') {AddCh(); goto case 28;}

@@ -746,23 +748,23 @@ public class Scanner {
 				if (ch == '=') {AddCh(); goto case 39;}

 				else {t.kind = 24; break;}

 			case 62:

-				recEnd = pos; recKind = 52;

+				recEnd = pos; recKind = 53;

 				if (ch == '.') {AddCh(); goto case 52;}

-				else {t.kind = 52; break;}

+				else {t.kind = 53; break;}

 			case 63:

-				recEnd = pos; recKind = 87;

+				recEnd = pos; recKind = 88;

 				if (ch == '=') {AddCh(); goto case 40;}

 				else if (ch == '!') {AddCh(); goto case 41;}

 				else if (ch == 'i') {AddCh(); goto case 42;}

-				else {t.kind = 87; break;}

+				else {t.kind = 88; break;}

 			case 64:

-				recEnd = pos; recKind = 74;

+				recEnd = pos; recKind = 75;

 				if (ch == '>') {AddCh(); goto case 32;}

-				else {t.kind = 74; break;}

+				else {t.kind = 75; break;}

 			case 65:

-				recEnd = pos; recKind = 75;

+				recEnd = pos; recKind = 76;

 				if (ch == '=') {AddCh(); goto case 29;}

-				else {t.kind = 75; break;}

+				else {t.kind = 76; break;}

 

 		}

 		t.val = new String(tval, 0, tlen);