xquery 4: braced typeswitch

benibela · Nov 29, 2023 · d6ced24 · d6ced24
1 parent f877f99
commit d6ced24
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/data/xquery__parse.pas b/data/xquery__parse.pas
@@ -1878,11 +1878,13 @@ function TXQParsingContext.parseTypeSwitch: TXQTermTypeSwitch;
 var
   word: String;
   clause: TXQTermTypeSwitch.TXQTermTypeSwitchClause;
+  braced: Boolean;
 begin
   requireXQuery('for typeswitch statement');
   result := TXQTermTypeSwitch.Create;
   try
     result.push(expectTerm('(', @parsePrimaryLevel, ')'));
+    braced := nextTokenIs('{');
 
     word := nextToken();
     while word = 'case' do begin
@@ -1905,6 +1907,8 @@ function TXQParsingContext.parseTypeSwitch: TXQTermTypeSwitch;
     result.push(clause);
     if pos^ = '$' then clause.variable := TXQTermVariable(pointer(parseVariable));
     clause.expr := expectTerm('return', @parse);
+
+    if braced then expect('}');
   except
     result.free;
     raise;