private void ResolveParameterDeclarations(OraclePlSqlProgram program) { StatementGrammarNode parameterSourceNode; switch (program.RootNode.Id) { case NonTerminals.CreateFunction: parameterSourceNode = program.RootNode[NonTerminals.PlSqlFunctionSource]; break; case NonTerminals.CreateProcedure: parameterSourceNode = program.RootNode; break; default: parameterSourceNode = program.RootNode[0]; break; } var returnParameterNode = parameterSourceNode?[NonTerminals.PlSqlDataTypeWithoutConstraint]; var parameterPosition = 0; if (returnParameterNode != null) { program.ReturnParameter = new OraclePlSqlParameter { DefinitionNode = parameterSourceNode, Direction = ParameterDirection.ReturnValue, Nullable = true, DataTypeNode = returnParameterNode }; var returnTypeName = String.Concat(returnParameterNode.Terminals.Select(t => t.Token.Value)); program.Metadata.AddParameter(new OracleProgramParameterMetadata(null, parameterPosition, parameterPosition, 0, ParameterDirection.ReturnValue, returnTypeName, OracleObjectIdentifier.Empty, false)); parameterPosition++; } var parameterDeclarationList = parameterSourceNode?[NonTerminals.ParenthesisEnclosedParameterDeclarationList, NonTerminals.ParameterDeclarationList]; if (parameterDeclarationList == null) { return; } var parameterDeclarations = StatementGrammarNode.GetAllChainedClausesByPath(parameterDeclarationList, null, NonTerminals.ParameterDeclarationListChained, NonTerminals.ParameterDeclarationList) .Select(n => n[NonTerminals.ParameterDeclaration]); foreach (var parameterDeclaration in parameterDeclarations) { var parameter = ResolveParameter(parameterDeclaration); program.Parameters.Add(parameter); var parameterMetadata = new OracleProgramParameterMetadata(parameter.Name, parameterPosition, parameterPosition, 0, parameter.Direction, parameter.DataType.IsPrimitive ? parameter.DataType.FullyQualifiedName.NormalizedName : null, parameter.DataType.IsPrimitive ? OracleObjectIdentifier.Empty : parameter.DataType.FullyQualifiedName, parameter.DefaultExpressionNode != null); program.Metadata.AddParameter(parameterMetadata); parameterPosition++; } }
private void FindPlSqlReferences(IEnumerable <OraclePlSqlProgram> programs) { foreach (var program in programs) { var declarationReferenceSourceNodes = program.RootNode.GetPathFilterDescendants(n => !String.Equals(n.Id, NonTerminals.ItemList2) && !String.Equals(n.Id, NonTerminals.ProgramBody) && !String.Equals(n.Id, NonTerminals.CursorDefinition), NonTerminals.PlSqlExpression, NonTerminals.PlSqlDataType); foreach (var sourceNode in declarationReferenceSourceNodes) { switch (sourceNode.Id) { case NonTerminals.PlSqlExpression: FindPlSqlReferences(program, sourceNode); break; case NonTerminals.PlSqlDataType: OracleDataTypeReference dataTypeReference; OracleReferenceBuilder.TryCreatePlSqlDataTypeReference(program, sourceNode, out dataTypeReference); break; } } var programBodyNode = program.RootNode.GetPathFilterDescendants(n => !String.Equals(n.Id, NonTerminals.ProgramDeclareSection), NonTerminals.ProgramBody).FirstOrDefault(); if (programBodyNode != null) { foreach (var statementTypeNode in GetPlSqlStatements(programBodyNode)) { FindPlSqlReferences(program, statementTypeNode[0]); } var exceptionHandlerListNode = programBodyNode[NonTerminals.PlSqlExceptionClause, NonTerminals.PlSqlExceptionHandlerList]; if (exceptionHandlerListNode != null) { foreach (var prefixedExceptionIdentifierNode in exceptionHandlerListNode.GetPathFilterDescendants(NodeFilters.BreakAtPlSqlSubProgramOrSqlCommand, NonTerminals.PrefixedExceptionIdentifier)) { CreatePlSqlExceptionReference(program, prefixedExceptionIdentifierNode); } var exceptionHandlerStatementLists = StatementGrammarNode.GetAllChainedClausesByPath(exceptionHandlerListNode[NonTerminals.PlSqlExceptionHandler, NonTerminals.PlSqlStatementList], null, NonTerminals.PlSqlExceptionHandlerList, NonTerminals.PlSqlExceptionHandler, NonTerminals.PlSqlStatementList); foreach (var statementList in exceptionHandlerStatementLists) { foreach (var statementTypeNode in GetPlSqlStatements(statementList)) { FindPlSqlReferences(program, statementTypeNode[0]); } } } } FindPlSqlReferences(program.SubPrograms); } }
private void ResolveLocalVariableTypeAndLabelDeclarations(OraclePlSqlProgram program) { StatementGrammarNode programSourceNode; switch (program.RootNode.Id) { case NonTerminals.CreateFunction: programSourceNode = program.RootNode[NonTerminals.PlSqlFunctionSource, NonTerminals.FunctionTypeDefinition, NonTerminals.ProgramImplentationDeclaration]; break; case NonTerminals.PlSqlBlock: programSourceNode = program.RootNode[NonTerminals.PlSqlBlockDeclareSection]; break; case NonTerminals.CreatePackageBody: programSourceNode = program.RootNode[NonTerminals.PackageBodyDefinition]; break; default: programSourceNode = program.RootNode[NonTerminals.ProgramImplentationDeclaration]; break; } ResolveProgramDeclarationLabels(program); var firstItemNode = programSourceNode?[NonTerminals.ProgramDeclareSection, NonTerminals.ItemList1, NonTerminals.Item1OrPragmaDefinition]; if (firstItemNode == null) { return; } var itemOrPragmaNodes = StatementGrammarNode.GetAllChainedClausesByPath(firstItemNode, n => n.ParentNode, NonTerminals.ItemList1Chained, NonTerminals.Item1OrPragmaDefinition); foreach (var itemOrPragmaSwitchNode in itemOrPragmaNodes) { var itemOrPragmaNode = itemOrPragmaSwitchNode[0]; if (String.Equals(itemOrPragmaNode.Id, NonTerminals.Item1)) { var declarationRoot = itemOrPragmaNode[0]; switch (declarationRoot?.Id) { case NonTerminals.ItemDeclaration: var specificNode = declarationRoot[0]; if (specificNode != null) { OraclePlSqlVariable variable; switch (specificNode.Id) { case NonTerminals.ConstantDeclaration: variable = new OraclePlSqlVariable { Owner = program, DefinitionNode = specificNode, IsConstant = true, DefaultExpressionNode = specificNode[NonTerminals.PlSqlExpression] }; SetDataTypeAndNullablePropertiesAndAddIfIdentifierFound(variable, specificNode, program); break; case NonTerminals.ExceptionDeclaration: var exceptionName = specificNode[Terminals.ExceptionIdentifier]?.Token.Value.ToQuotedIdentifier(); if (exceptionName != null) { var exception = new OraclePlSqlException { Owner = program, Name = exceptionName, DefinitionNode = specificNode }; program.Exceptions.Add(exception); } break; case NonTerminals.VariableDeclaration: specificNode = specificNode[NonTerminals.FieldDefinition]; if (specificNode != null) { variable = new OraclePlSqlVariable { Owner = program, DefinitionNode = specificNode, DefaultExpressionNode = specificNode[NonTerminals.VariableDeclarationDefaultValue, NonTerminals.PlSqlExpression], }; SetDataTypeAndNullablePropertiesAndAddIfIdentifierFound(variable, specificNode, program); } break; } } break; case NonTerminals.TypeDefinition: var typeIdentifierNode = declarationRoot[Terminals.TypeIdentifier]; var associativeArrayTypeDefinitionNode = declarationRoot[NonTerminals.TypeDefinitionSpecification, NonTerminals.CollectionTypeDefinition, NonTerminals.AssociativeArrayTypeDefinition]; if (typeIdentifierNode != null) { var type = new OraclePlSqlType { Owner = program, DefinitionNode = declarationRoot, Name = typeIdentifierNode.Token.Value.ToQuotedIdentifier(), IsAssociativeArray = associativeArrayTypeDefinitionNode?[Terminals.Index] != null }; program.Types.Add(type); var associativeArrayIndexTypeNode = associativeArrayTypeDefinitionNode?[NonTerminals.AssociativeArrayIndexType]; if (associativeArrayIndexTypeNode != null && OracleReferenceBuilder.TryCreatePlSqlDataTypeReference(program, associativeArrayIndexTypeNode, out var dataTypeReference)) { type.AssociativeArrayIndexDataTypeReference = dataTypeReference; } } break; case NonTerminals.CursorDefinition: var identifierNode = declarationRoot[Terminals.CursorIdentifier]; if (identifierNode != null) { var cursor = new OraclePlSqlCursorVariable { Owner = program, DefinitionNode = declarationRoot, Name = identifierNode.Token.Value.ToQuotedIdentifier() }; SetStatementModelIfFound(cursor, declarationRoot[NonTerminals.SelectStatement]); program.Variables.Add(cursor); } break; } } else { var exceptionInit = itemOrPragmaNode[NonTerminals.PragmaType, Terminals.ExceptionInit]; if (exceptionInit != null) { var exceptionIdentifier = exceptionInit.ParentNode[Terminals.ExceptionIdentifier]; var errorCodeModifier = exceptionInit.ParentNode[Terminals.MathMinus] == null ? 1 : -1; var integerLiteral = exceptionInit.ParentNode[Terminals.IntegerLiteral]; if (exceptionIdentifier != null && integerLiteral != null && Int32.TryParse(integerLiteral.Token.Value, out var errorCode)) { var exceptionName = exceptionIdentifier.Token.Value.ToQuotedIdentifier(); foreach (var exception in program.Exceptions) { if (String.Equals(exception.Name, exceptionName)) { exception.ErrorCode = errorCodeModifier * errorCode; } } CreatePlSqlExceptionReference(program, integerLiteral.ParentNode); } } } } }