Options.vb - IOptions,HeadOptions,TailOptions

PeterPitterling · PeterPitterling · commit 31314dfa25b3 · 2016-11-10T16:21:45.000+01:00
diff --git a/demo/ReadText.Demo.VB/Options.vb b/demo/ReadText.Demo.VB/Options.vb
@@ -0,0 +1,43 @@
+﻿Imports CommandLine
+
+Public Interface IOptions
+
+    <[Option]("n"c, "lines", SetName:="bylines", [Default]:=5UI, HelpText:="CPU source file to read.")>
+    Property Lines As UInteger?
+
+    <[Option]("c"c, "bytes", SetName:="bybytes", HelpText:="Bytes to be printed from the beginning or end of the file.")>
+    Property Bytes As UInteger?
+
+    <[Option]("q"c, "quiet", HelpText:="Supresses summary messages.")>
+    Property Quiet As Boolean
+
+    <[Value](0, MetaName:="input file", Required:=True, HelpText:="Input file to be processed.")>
+    Property FileName As String
+
+End Interface
+
+<[Verb]("head", HelpText:="Displays first lines of a file.")>
+Public Class HeadOptions
+    Implements IOptions
+    Public Property Lines As UInteger? Implements IOptions.Lines
+
+    Public Property Bytes As UInteger? Implements IOptions.Bytes
+
+    Public Property Quiet As Boolean Implements IOptions.Quiet
+
+    Public Property FileName As String Implements IOptions.FileName
+
+End Class
+
+<[Verb]("tail", HelpText:="Displays last lines of a file.")>
+Public Class TailOptions
+    Implements IOptions
+    Public Property Lines As UInteger? Implements IOptions.Lines
+
+    Public Property Bytes As UInteger? Implements IOptions.Bytes
+
+    Public Property Quiet As Boolean Implements IOptions.Quiet
+
+    Public Property FileName As String Implements IOptions.FileName
+
+End Class
diff --git a/demo/ReadText.Demo.VB/ReadText.Demo.VB.vbproj b/demo/ReadText.Demo.VB/ReadText.Demo.VB.vbproj
@@ -86,6 +86,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="Options.vb" />
     <Compile Include="Program.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />
     <Compile Include="My Project\Application.Designer.vb">
