Start implementation of the retrival of the procedures

Author: mgrosperrin

src/MGR.CommandLineParser.Command.OracleProcedure/CommandMetadata.cs

@@ -0,0 +1,23 @@
+using MGR.CommandLineParser.Extensibility.Command;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure
+{
+    internal class CommandMetadata : ICommandMetadata
+    {
+        public CommandMetadata(string name)
+        {
+            Name = name;
+            Description = name;
+            Samples = new string[0];
+        }
+        public string Name { get; }
+
+        public string Description { get; }
+
+        public string Usage => string.Empty;
+
+        public string[] Samples { get; }
+
+        public bool HideFromHelpListing => false;
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/CommandObjectBuilder.cs

@@ -0,0 +1,20 @@
+using System;
+using System.Collections.Generic;
+using System.Text;
+using MGR.CommandLineParser.Extensibility.Command;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure
+{
+    class CommandObjectBuilder : ICommandObjectBuilder
+    {
+        public CommandObjectBuilder(IEnumerable<CommandOption> options, )
+        {
+
+        }
+        public void AddArguments(string argument) => throw new NotImplementedException("Oracle procedures does not define unamed arguments");
+        public ICommandOption FindOption(string optionName) => throw new NotImplementedException();
+        public ICommandOption FindOptionByShortName(string optionShortName) => throw new NotImplementedException("Oracle procedures does not define 'short name' for the parameters");
+        public ICommandObject GenerateCommandObject() => throw new NotImplementedException();
+        public CommandValidationResult Validate(IServiceProvider serviceProvider) => throw new NotImplementedException();
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/CommandOption.cs

@@ -0,0 +1,14 @@
+using System;
+using MGR.CommandLineParser.Extensibility.Command;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure
+{
+    internal class CommandOption : ICommandOption
+    {
+        public bool ShouldProvideValue => throw new NotImplementedException();
+
+        public ICommandOptionMetadata Metadata => throw new NotImplementedException();
+
+        public void AssignValue(string optionValue) => throw new NotImplementedException();
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/CommandOptionMetadata.cs

@@ -0,0 +1,21 @@
+using MGR.CommandLineParser.Extensibility.Command;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure
+{
+    internal class CommandOptionMetadata : ICommandOptionMetadata
+    {
+        public CommandOptionMetadata(OptionDisplayInfo displayInfo, bool isRequired, string defaultValue)
+        {
+            DisplayInfo = displayInfo;
+            IsRequired = isRequired;
+            DefaultValue = defaultValue;
+        }
+        public bool IsRequired { get; }
+
+        public CommandOptionCollectionType CollectionType => CommandOptionCollectionType.None;
+
+        public IOptionDisplayInfo DisplayInfo { get; }
+
+        public string DefaultValue { get; }
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/CommandType.cs

@@ -0,0 +1,23 @@
+using System;
+using System.Collections.Generic;
+using MGR.CommandLineParser.Extensibility.Command;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure
+{
+    internal class CommandType : ICommandType
+    {
+        private readonly IEnumerable<Parameter> _outParameters;
+
+        public CommandType(CommandMetadata commandMetadata, IEnumerable<CommandOptionMetadata> options, IEnumerable<Parameter> outParameters)
+        {
+            Metadata = commandMetadata;
+            Options = options;
+            _outParameters = outParameters;
+        }
+        public ICommandMetadata Metadata { get; }
+
+        public IEnumerable<ICommandOptionMetadata> Options { get; }
+
+        public ICommandObjectBuilder CreateCommandObjectBuilder(IServiceProvider serviceProvider) => throw new NotImplementedException();
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/CommandTypeProvider.cs

@@ -0,0 +1,39 @@
+using System.Collections.Generic;
+using System.Linq;
+using System.Threading.Tasks;
+using MGR.CommandLineParser.Extensibility.Command;
+using Microsoft.EntityFrameworkCore;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure
+{
+    internal class CommandTypeProvider : ICommandTypeProvider
+    {
+        private readonly OracleSystemContext _dbContext;
+
+        public CommandTypeProvider(OracleSystemContext dbContext)
+        {
+            _dbContext = dbContext;
+        }
+        public async Task<IEnumerable<ICommandType>> GetAllCommandTypes()
+        {
+            var procedures = _dbContext.Procedures.Include(procedure => procedure.Parameters).ToListAsync();
+            return procedures.Select(MapProcedureToCommandType);
+        }
+        public ICommandType GetCommandType(string commandName)
+        {
+            var procedure = _dbContext.Procedures.Include(procedure => procedure.Parameters).Where(procedure => procedure.Name == commandName).SingleOrDefault();
+            if (procedure != null)
+            {
+                return MapProcedureToCommandType(procedure);
+            }
+            return null;
+        }
+
+        private static CommandType MapProcedureToCommandType(Procedure procedure) => new CommandType(new CommandMetadata(procedure.Name),
+                procedure.Parameters.Where(parameter => parameter.Direction.HasFlag(Direction.In)).Select(parameter => new CommandOptionMetadata(
+                    new OptionDisplayInfo(parameter.Name),
+                    !parameter.HasDefaultValue,
+                    parameter.DefaultValue)),
+                procedure.Parameters.Where(parameter => parameter.Direction.HasFlag(Direction.Out));
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/Direction.cs

@@ -0,0 +1,12 @@
+using System;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure
+{
+    [Flags]
+    internal enum Direction
+    {
+        In = 1,
+        Out = 2,
+        InOut = 3
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/Mapping/ParameterMap.cs

@@ -0,0 +1,44 @@
+using System;
+using Microsoft.EntityFrameworkCore;
+using Microsoft.EntityFrameworkCore.Metadata.Builders;
+using Microsoft.EntityFrameworkCore.Storage.ValueConversion;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure.Mapping
+{
+    internal class ParameterMap : IEntityTypeConfiguration<Parameter>
+    {
+        public void Configure(EntityTypeBuilder<Parameter> builder)
+        {
+            builder.ToTable("USER_ARGUMENTS");
+
+            builder.Property(_ => _.Name)
+                .HasColumnName("OBJECT_NAME");
+
+            var defaultValueConverter = new BoolToStringConverter("N", "Y");
+            builder.Property(_ => _.HasDefaultValue)
+                .HasColumnName("DEFAULTED")
+                .HasConversion(defaultValueConverter);
+
+            builder.Property(_ => _.DefaultValue)
+                .HasColumnName("DEFAULT_VALUE");
+
+            builder.Property(_ => _.DataType)
+                .HasColumnName("DATA_TYPE");
+
+            var directionConverter = new ValueConverter<Direction, string>(
+                _ => _.ToString(),
+                value => ParseDirection(value));
+            builder.Property(_ => _.Direction)
+                .HasColumnName("IN_OUT")
+                .HasConversion(directionConverter);
+        }
+        private static Direction ParseDirection(string value) => value
+                switch
+        {
+            "IN" => Direction.In,
+            "OUT" => Direction.Out,
+            "IN/OUT" => Direction.InOut,
+            _ => throw new ArgumentOutOfRangeException(nameof(value))
+        };
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/Mapping/ProcedureMap.cs

@@ -0,0 +1,18 @@
+using Microsoft.EntityFrameworkCore;
+using Microsoft.EntityFrameworkCore.Metadata.Builders;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure.Mapping
+{
+    internal class ProcedureMap : IEntityTypeConfiguration<Procedure>
+    {
+        public void Configure(EntityTypeBuilder<Procedure> builder)
+        {
+            builder.ToTable("ALL_OBJETS");
+
+            builder.Property(_ => _.Name)
+                .HasColumnName("OBJECT_NAME");
+
+            builder.HasQueryFilter(_ => EF.Property<string>(_, "OBJECT_TYPE") == "PROCEDURE");
+        }
+    }
+}

src/MGR.CommandLineParser.Command.OracleProcedure/OptionDisplayInfo.cs

@@ -0,0 +1,22 @@
+using System.Collections.Generic;
+using System.Linq;
+using MGR.CommandLineParser.Extensibility.Command;
+
+namespace MGR.CommandLineParser.Command.OracleProcedure
+{
+    internal class OptionDisplayInfo : IOptionDisplayInfo
+    {
+        public OptionDisplayInfo(string name)
+        {
+            Name = name;
+            Description = name;
+        }
+        public string Name { get; }
+
+        public IEnumerable<string> AlternateNames => Enumerable.Empty<string>();
+
+        public string ShortName => string.Empty;
+
+        public string Description { get; }
+    }
+}