You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
1.2 KiB
36 lines
1.2 KiB
namespace Commands |
|
module ConsoleCommands = |
|
|
|
open System |
|
open Console.Waterworks |
|
open Console.Waterworks.Attributes |
|
open FunkyFish // This is where the "LibraryTest" functions are -- in BFLib |
|
|
|
[<ListCommand>] |
|
[<Description "Display a message to the console signifying the program is running as intended.">] |
|
[<Parameters "none">] |
|
[<Usage "> test">] |
|
let test() = "The console is working" |
|
|
|
[<ListCommand>] |
|
[<Description "Closes the program.">] |
|
[<Parameters "none">] |
|
[<Usage "> exit">] |
|
let exit() = System.Environment.Exit(Environment.ExitCode) |
|
|
|
[<ListCommand>] |
|
[<Description "Display a list of available commands, info. about the command, its parameters and an example of how to use it.">] |
|
[<Parameters "None">] |
|
[<Usage "> help">] |
|
let help() = |
|
let liaison = CW_Liaison() |
|
liaison.RequestHelpDocumentation("Commands") |
|
|
|
let libtest1 x y = String.Format("Result: {0}" , LibraryTest1 x y) |
|
|
|
|
|
let libtest2 x y z = String.Format("Result: {0}", (LibraryTest2 x y z)) |
|
|
|
|
|
let libtest3 name = String.Format("Result: {0}", LibraryTest3 name) |
|
|
|
|