Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $
You can buy this project and download/modify it how often you want.
org.eclipse.ocl.parser.backtracking.OCLParserErrors.gi Maven / Gradle / Ivy
--/**
-- *
-- *
-- * Copyright (c) 2008 Eclipse.org and others.
-- * All rights reserved. This program and the accompanying materials
-- * are made available under the terms of the Eclipse Public License v1.0
-- * which accompanies this distribution, and is available at
-- * http://www.eclipse.org/legal/epl-v10.html
-- *
-- * Contributors:
-- * E.D. Willink - Initial API and implementation
-- * Adolfo Sanchez-Barbudo Herrera (Open Canarias):
-- * - 242153: LPG v 2.0.17 adoption.
-- * - 299396: Introducing new LPG templates.
-- * - 300534: Removing the use of deprecated macros.
-- *
-- *
-- *
-- * $Id: OCLParserErrors.gi,v 1.4 2010/01/25 11:31:46 asanchez Exp $
-- */
--
-- Additional ERROR_TOKEN rules for The OCL Parser
--
%Import
OCLParser.g
%End
%Import
EssentialOCLErrors.gi
%End
%Rules
-----------------------------------------------------------------------
-- Calls
-----------------------------------------------------------------------
OclMessageExpCS ::= primaryExpCS '^^' simpleNameCS ERROR_TOKEN
/.$NewCase./
OclMessageExpCS ::= primaryExpCS '^' simpleNameCS ERROR_TOKEN
/.$BeginCode
reportErrorTokenMessage(getRhsTokenIndex(2), OCLParserErrors.MISSING_MESSAGE_ARGUMENTS);
OCLExpressionCS target = (OCLExpressionCS)getRhsSym(1);
MessageExpCS result = createMessageExpCS(
target,
getRhsIToken(2).getKind() == $sym_type.TK_CARET,
(SimpleNameCS)getRhsSym(3),
new BasicEList()
);
setOffsets(result, target, getRhsIToken(4));
setResult(result);
$EndCode
./
-----------------------------------------------------------------------
-- Contexts
-----------------------------------------------------------------------
classifierContextDeclCS ::= context pathNameCS ERROR_TOKEN
/.$BeginCode
reportErrorTokenMessage(getRhsTokenIndex(3), OCLParserErrors.MISSING_INV_OR_DEF);
ClassifierContextDeclCS result = createClassifierContextDeclCS(
null,
(PathNameCS)getRhsSym(2),
new BasicEList()
);
setOffsets(result, getRhsIToken(1), getRhsIToken(3));
setResult(result);
$EndCode
./
defExpressionCS ::= typedUninitializedVariableCS ERROR_TOKEN
/.$BeginCode
reportErrorTokenMessage(getRhsTokenIndex(2), OCLParserErrors.MISSING_EQUALS);
VariableCS variableCS = (VariableCS)getRhsSym(1);
DefExpressionCS result = createDefExpressionCS(
variableCS,
null,
null
);
setOffsets(result, variableCS, getRhsIToken(2));
setResult(result);
$EndCode
./
defExpressionCS ::= simpleNameCS ERROR_Colon
/.$BeginCode
SimpleNameCS name = (SimpleNameCS)getRhsSym(1);
VariableCS variableCS = createVariableCS(name, null, null);
setOffsets(variableCS, name, getRhsIToken(2));
DefExpressionCS result = createDefExpressionCS(
variableCS,
null,
null
);
setOffsets(result, variableCS, getRhsIToken(2));
setResult(result);
$EndCode
./
invOrDefCS ::= inv unreservedSimpleNameCS ERROR_Colon
/.$BeginCode
InvCS result = createInvCS(
(SimpleNameCS)getRhsSym(2),
null
);
setOffsets(result, getRhsIToken(1), getRhsIToken(3));
setResult(result);
$EndCode
./
invOrDefCS ::= def unreservedSimpleNameCS ERROR_Colon
/.$BeginCode
DefCS result = createDefCS(
false,
(SimpleNameCS)getRhsSym(2),
null
);
setOffsets(result, getRhsIToken(1), getRhsIToken(3));
setResult(result);
$EndCode
./
invOrDefCS ::= static def unreservedSimpleNameCS ERROR_Colon
/.$BeginCode
DefCS result = createDefCS(
true,
(SimpleNameCS)getRhsSym(3),
null
);
setOffsets(result, getRhsIToken(1), getRhsIToken(4));
setResult(result);
$EndCode
./
operationCS1 ::= simpleNameCS '(' parametersCSopt ')' ERROR_Colon
/.$BeginCode
OperationCS result = createOperationCS(
getRhsIToken(1),
new BasicEList(),
null
);
setOffsets(result, getRhsIToken(1), getRhsIToken(5));
setResult(result);
$EndCode
./
operationCS1 ::= simpleNameCS ERROR_TOKEN
/.$BeginCode
reportErrorTokenMessage(getRhsTokenIndex(2), OCLParserErrors.MISSING_LPAREN);
OperationCS result = createOperationCS(
getRhsIToken(1),
new BasicEList(),
null
);
setOffsets(result, getRhsIToken(1), getRhsIToken(2));
setResult(result);
$EndCode
./
operationCS1 ::= ERROR_TOKEN
/.$BeginCode
reportErrorTokenMessage(getRhsTokenIndex(1), OCLParserErrors.MISSING_IDENTIFIER);
OperationCS result = createOperationCS(
getRhsIToken(1),
new BasicEList(),
null
);
setOffsets(result, getRhsIToken(1));
setResult(result);
$EndCode
./
operationCS2 ::= pathNameCS '::' unreservedSimpleNameCS '(' parametersCSopt ')' ERROR_Colon
/.$BeginCode
PathNameCS pathNameCS = (PathNameCS)getRhsSym(1);
SimpleNameCS simpleNameCS = (SimpleNameCS)getRhsSym(3);
OperationCS result = createOperationCS(
pathNameCS,
simpleNameCS,
(EList)getRhsSym(5),
null
);
setOffsets(result, pathNameCS, getRhsIToken(7));
setResult(result);
$EndCode
./
operationCS2 ::= pathNameCS '::' ERROR_SimpleNameCS
/.$BeginCode
PathNameCS pathNameCS = (PathNameCS)getRhsSym(1);
SimpleNameCS simpleNameCS = (SimpleNameCS)getRhsSym(3);
OperationCS result = createOperationCS(
pathNameCS,
simpleNameCS,
new BasicEList(),
null
);
setOffsets(result, pathNameCS, simpleNameCS);
setResult(result);
$EndCode
./
prePostOrBodyDeclCS ::= pre unreservedSimpleNameCS ERROR_Colon
/.$BeginCode
PrePostOrBodyDeclCS result = createPrePostOrBodyDeclCS(
PrePostOrBodyEnum.PRE_LITERAL,
(SimpleNameCS)getRhsSym(2),
createInvalidLiteralExpCS(getRhsTokenText(3))
);
setOffsets(result, getRhsIToken(1), getRhsIToken(3));
setResult(result);
$EndCode
./
prePostOrBodyDeclCS ::= post unreservedSimpleNameCS ERROR_Colon
/.$BeginCode
PrePostOrBodyDeclCS result = createPrePostOrBodyDeclCS(
PrePostOrBodyEnum.POST_LITERAL,
(SimpleNameCS)getRhsSym(2),
createInvalidLiteralExpCS(getRhsTokenText(3))
);
setOffsets(result, getRhsIToken(1), getRhsIToken(3));
setResult(result);
$EndCode
./
prePostOrBodyDeclCS ::= body unreservedSimpleNameCS ERROR_Colon
/.$BeginCode
PrePostOrBodyDeclCS result = createPrePostOrBodyDeclCS(
PrePostOrBodyEnum.BODY_LITERAL,
(SimpleNameCS)getRhsSym(2),
createInvalidLiteralExpCS(getRhsTokenText(3))
);
setOffsets(result, getRhsIToken(1), getRhsIToken(3));
setResult(result);
$EndCode
./
initOrDerValueCS ::= init ERROR_Colon
/.$BeginCode
InitValueCS result = createInitValueCS(null);
setOffsets(result, getRhsIToken(2), getRhsIToken(3));
setResult(result);
$EndCode
./
initOrDerValueCS ::= derive ERROR_Colon
/.$BeginCode
DerValueCS result = createDerValueCS(null);
setOffsets(result, getRhsIToken(2), getRhsIToken(3));
setResult(result);
$EndCode
./
packageDeclarationCS_A ::= package pathNameCS contextDeclsCSopt ERROR_Empty endpackage
/.$BeginCode
PackageDeclarationCS result = createPackageDeclarationCS(
(PathNameCS)getRhsSym(2),
(EList)getRhsSym(3)
);
setOffsets(result, getRhsIToken(1), getRhsIToken(5));
setResult(result);
$EndCode
./
packageDeclarationCS_A ::= package pathNameCS contextDeclsCSopt ERROR_TOKEN
/.$BeginCode
reportErrorTokenMessage(getRhsTokenIndex(4), OCLParserErrors.MISSING_ENDPACKAGE);
PackageDeclarationCS result = createPackageDeclarationCS(
(PathNameCS)getRhsSym(2),
(EList)getRhsSym(3)
);
setOffsets(result, getRhsIToken(1), getRhsIToken(4));
setResult(result);
$EndCode
./
%End
