The purpose of this repository is to provide a way for people to generate random "placeholder text" -- with a Markov Chain.
https://www.craigoates.net/Software/project/12
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.
311 lines
14 KiB
311 lines
14 KiB
using Console.Waterworks; |
|
using Console.Waterworks.Attributes; |
|
using Microsoft.FSharp.Control; |
|
using Microsoft.FSharp.Core; |
|
using System; |
|
using System.Diagnostics; |
|
using System.IO; |
|
using System.Threading.Tasks; |
|
using System.Threading; |
|
using System.Windows.Forms; |
|
using static System.Environment; |
|
using static System.Console; |
|
using static WetPancake.Pancake; |
|
|
|
namespace WetPancakeCLI |
|
{ |
|
public static class ConsoleCommands |
|
{ |
|
// Pass these in when running an FSharpAsync task. |
|
// Examples are within the command-methods. |
|
static readonly FSharpOption<TaskCreationOptions> _taskCreationOptions = FSharpOption<TaskCreationOptions>.None; |
|
static readonly FSharpOption<CancellationToken> _cancellationToken = FSharpOption<CancellationToken>.None; |
|
|
|
static void CopyToClipboard(string text) => Clipboard.SetText(text); |
|
|
|
#region Console Utilities |
|
[ListCommand] |
|
[Parameters("None")] |
|
[Description("Prints a test message to the console.")] |
|
[Usage("> Test")] |
|
public static string Test() => "SUCCESS: Console.Waterworks is wired into Wet Pancake CLI."; |
|
|
|
[ListCommand] |
|
[Parameters("None")] |
|
[Description("Lists out the commands this program offers.")] |
|
[Usage("> Help")] |
|
public static string Help() => new CW_Liaison().RequestHelpDocumentation("WetPancakeCLI"); |
|
|
|
[ListCommand] |
|
[Parameters("None")] |
|
[Description("Exits out of the program.")] |
|
[Usage("> Exit")] |
|
public static void Exit() => Environment.Exit(ExitCode); |
|
#endregion |
|
|
|
#region Wet Pancake Utilities |
|
[ListCommand] |
|
[Parameters("sentences: int, text: string")] |
|
[Description( |
|
"Checks to see if the string matches the desired sentence count and removes any over that limit.\n" + |
|
"If the string has less sentences than the number requested, it will not change.\n" + |
|
"Sentences must be greater than 0 and text must contain at least 1 \".\" \"?\" \"!\"")] |
|
[Usage("> CleanText 1 \"This is a test sentence. And, this one needs to be removed.\"")] |
|
public static string CleanText(int sentences, string text) |
|
{ |
|
try |
|
{ |
|
if (sentences < 1) |
|
throw new ArgumentException("Invalid argument. Must be greater than 0", "sentences"); |
|
return FSharpAsync.StartAsTask |
|
(CleanResultAsync(sentences, text), _taskCreationOptions, _cancellationToken).Result; |
|
} |
|
catch (Exception e) |
|
{ |
|
Debug.WriteLine(e.Message); |
|
throw; |
|
} |
|
} |
|
|
|
[ListCommand] |
|
[Parameters("None")] |
|
[Description("Returns a list of all the available .txt files built-in to Wet Pancake.")] |
|
[Usage("> RequestAllTemplateFiles")] |
|
public static string RequestAllTemplateFiles() |
|
{ |
|
try |
|
{ |
|
WriteLine("Attempting to list out the available template files..."); |
|
var files = |
|
FSharpAsync.StartAsTask |
|
(RequestAllTemplateFilesAsync(), _taskCreationOptions, _cancellationToken).Result; |
|
foreach (var item in files) |
|
{ |
|
WriteLine($"File path: {item}"); |
|
} |
|
return "Listing complete."; |
|
} |
|
catch (Exception e) |
|
{ |
|
Debug.WriteLine(e.Message); |
|
throw; |
|
} |
|
} |
|
|
|
[ListCommand] |
|
[Parameters("filePath: string")] |
|
[Description( |
|
"Checks the text in the specified .txt file to see if it is compatible with this program.\n" + |
|
"For a file to be compatible, it must be a .txt file and contain at least one '.', '!' or '?'.")] |
|
[Usage("> ValidateFile \"C:/your-file.txt\"")] |
|
public static string ValidateFile(string filePath) |
|
{ |
|
try |
|
{ |
|
WriteLine("Validating file. Please wait..."); |
|
var extension = Path.GetExtension(filePath); |
|
if (string.Equals(extension, ".txt")) |
|
{ |
|
var isValid = |
|
FSharpAsync.StartAsTask(TextInFileIsValidAsync(filePath), |
|
_taskCreationOptions, _cancellationToken).Result; |
|
return $"Is Valid: {isValid}"; |
|
} |
|
else |
|
throw new FileLoadException("The file entered is not a plain text (.txt) file.", filePath); |
|
} |
|
catch (Exception e) |
|
{ |
|
Debug.WriteLine(e.Message); |
|
throw; |
|
} |
|
} |
|
#endregion |
|
|
|
#region Text Generation |
|
[ListCommand] |
|
[Parameters("gibberish-level: int, sentences: int, copy-to-clipboard: bool")] |
|
[Description( |
|
"Generates text using the gibberish-level and number of sentences specified by the user.\n" + |
|
"The result goes through an extra \"cleaning\" process to remove any artefact sentences.\n" + |
|
"Use this if you cannot tolerate the odd extra sentence.\n" + |
|
"With that said, it does mean it is slower than its GenerateText counterpart.\n" + |
|
"Gibberish-level must be between 2 and 20.\n" + |
|
"Sentences must be greater than 0.\n" + |
|
"Pass in \"true\" to copy the result straight to the clipboard.\n" + |
|
"Pass in \"false\" or leave blank to not copy the result.")] |
|
[Usage("\n" + // Added because Console.Waterworks' rendering makes it look weird. |
|
"> GenerateCleanText 5 10 true\n" + |
|
"> GenerateCleanText 5 4 false \n" + |
|
"> GenerateCleanText 5 4")] |
|
public static string GenerateCleanText(int gibberishLevel, int sentences, bool copyToClipboard = false) |
|
{ |
|
try |
|
{ |
|
if (gibberishLevel < 2 || gibberishLevel > 20) |
|
throw new ArgumentException |
|
("Invalid argument. Must be between 2 and 20 (inclusive).", "gibberish-Level"); |
|
if (sentences < 1) |
|
throw new ArgumentException |
|
("Invalid argument. Must be greater than 0.", "sentences"); |
|
var result = FSharpAsync.StartAsTask( |
|
RequestCleanTextAsync(gibberishLevel, sentences), _taskCreationOptions, _cancellationToken) |
|
.Result; |
|
if (copyToClipboard == true) CopyToClipboard(result); |
|
return result; |
|
} |
|
catch (Exception e) |
|
{ |
|
Debug.WriteLine(e.Message); |
|
throw; |
|
} |
|
} |
|
|
|
[ListCommand] |
|
[Parameters("gibberish-level: int, sentences: int, file path: string, copy-to-clipboard: bool")] |
|
[Description("\n" + |
|
"Loads the specified .txt file and generates text based on it,\n" + |
|
"using the gibberish-level and number of sentences specified by the user.\n" + |
|
"The result goes through an extra \"cleaning\" process to remove any artefact sentences.\n" + |
|
"Use this if you cannot tolerate the odd extra sentence.\n" + |
|
"With that said, it does mean it is slower than its GenerateTextFromFile counterpart.\n" + |
|
"Gibberish-level must be between 2 and 20.\n" + |
|
"Sentences must be greater than 0.\n" + |
|
"Pass in \"true\" to copy the result straight to the clipboard.\n" + |
|
"Pass in \"false\" or leave blank to not copy the result.")] |
|
[Usage("\n" + // Added because Console.Waterworks' rendering makes it look weird. |
|
"> GenerateCleanTextFromFile 3 6 C:/yourfile.txt true \n" + |
|
"> GenerateCleanTextFromFile 5 9 C:/yourfile.txt false\n" + |
|
"> GenerateCleanTextFromFile 5 9 C:/ yourfile.txt")] |
|
public static string GenerateCleanTextFromFile( |
|
int gibberishLevel, int sentences, string filePath, bool copyToClipboard = false) |
|
{ |
|
try |
|
{ |
|
if (gibberishLevel < 2 || gibberishLevel > 20) |
|
throw new ArgumentException |
|
("Invalid argument. Must be between 2 and 20 (inclusive).", "gibberish-Level"); |
|
if (sentences < 1) |
|
throw new ArgumentException |
|
("Invalid argument. Must be greater than 0.", "sentences"); |
|
var extension = Path.GetExtension(filePath); |
|
if (string.Equals(extension, ".txt") != true) |
|
throw new FileLoadException |
|
("The file entered is not a plain text (.txt) file.", filePath); |
|
var result = FSharpAsync.StartAsTask( |
|
RequestCleanTextFromFileAsync(gibberishLevel, sentences, filePath), |
|
_taskCreationOptions, _cancellationToken) |
|
.Result; |
|
if (copyToClipboard == true) CopyToClipboard(result); |
|
return result; |
|
} |
|
catch (Exception e) |
|
{ |
|
Debug.WriteLine(e.Message); |
|
throw; |
|
} |
|
} |
|
|
|
[ListCommand] |
|
[Parameters("copy-to-clipboard: bool")] |
|
[Description( |
|
"Generates random text, the number of sentences generated is randomly determined.\n" + |
|
"Pass in true to copy result straight to clipboard.\n" + |
|
"Pass in \"false\" or leave blank to not copy the result.")] |
|
[Usage("\n" + // Added because Console.Waterworks' rendering makes it look weird. |
|
"> GenerateRandomText true\n" + |
|
"> GenerateRandomText false\n" + |
|
"> GenerateRandomText")] |
|
public static string GenerateRandomText(bool copyToClipboard = false) |
|
{ |
|
try |
|
{ |
|
var result = FSharpAsync.StartAsTask |
|
(RequestRandomTextAsync(), _taskCreationOptions, _cancellationToken).Result; |
|
if (copyToClipboard == true) CopyToClipboard(result); |
|
return result; |
|
} |
|
catch (Exception e) |
|
{ |
|
Debug.WriteLine(e.Message); |
|
throw; |
|
} |
|
} |
|
|
|
[ListCommand] |
|
[Parameters("gibberish-level: int, sentences: int, copy-to-clipboard: bool")] |
|
[Description( |
|
"Generates text using the gibberish-level and number of sentences specified by the user.\n" + |
|
"This command does not run the result through the extra \"cleaning\" process like GenerateCleanText.\n" + |
|
"This means this command is faster but it might produce an extra sentence on the odd occasion.\n" + |
|
"Use this if you prefer speed over accuracy.\n" + |
|
"Gibberish-level must be between 2 and 20.\n" + |
|
"Sentences must be greater than 0.\n" + |
|
"Pass in \"true\" to copy the result straight to the clipboard.\n" + |
|
"Pass in \"false\" or leave blank to not copy the result.")] |
|
[Usage("\n" + // Added because Console.Waterworks' rendering makes it look weird. |
|
"> GenerateText 5 10 true\n" + |
|
"> GenerateText 5 10 false\n" + |
|
"> GenerateText 5 10")] |
|
public static string GenerateText(int gibberishLevel, int sentences, bool copyToClipboard = false) |
|
{ |
|
try |
|
{ |
|
if (gibberishLevel < 2 || gibberishLevel > 20) |
|
throw new ArgumentException |
|
("Invalid argument. Must be between 2 and 20 (inclusive).", "gibberish-level"); |
|
if (sentences < 1) |
|
throw new ArgumentException |
|
("Invalid argument. Must be greater than 0.", "sentences"); |
|
var result = FSharpAsync.StartAsTask |
|
(RequestTextAsync(gibberishLevel, sentences), _taskCreationOptions, _cancellationToken).Result; |
|
if (copyToClipboard == true) CopyToClipboard(result); |
|
return result; |
|
} |
|
catch (Exception e) |
|
{ |
|
Debug.WriteLine(e.Message); |
|
throw; |
|
} |
|
} |
|
|
|
[ListCommand] |
|
[Description( |
|
"Loads the specified .txt file and generates text based on it using the gibberish-level and number of sentencesspecifiedby the user.\n" + |
|
"This command does not run the result through the extra \"cleaning\" process like GenerateCleanTextFromFile.\n" + |
|
"This means this command is faster but it might produce an extra sentence on the odd occasion.\n" + |
|
"Use this if you prefer speed over accuracy.\n" + |
|
"Gibberish-level must be between 2 and 20.")] |
|
[Parameters("gibberish-level: int, sentences: int, file path: string")] |
|
[Usage("> GenerateTextFromFile 3 6 C:/yourfile.txt")] |
|
public static string GenerateTextFromFile(int gibberishLevel, int sentences, string filePath) |
|
{ |
|
try |
|
{ |
|
if (gibberishLevel < 2 || gibberishLevel > 20) |
|
throw new ArgumentException |
|
("Invalid argument. Must be between 2 and 20 (inclusive).", "gibberish-level"); |
|
if (sentences < 1) |
|
throw new ArgumentException |
|
("Invalid argument. Must be greater than 0.", "sentences"); |
|
var extension = Path.GetExtension(filePath); |
|
if (string.Equals(extension, ".txt") != true) |
|
throw new FileLoadException |
|
("The file entered is not a plain text (.txt) file.", filePath); |
|
var fileIsValid = |
|
FSharpAsync.StartAsTask(TextInFileIsValidAsync(filePath), |
|
_taskCreationOptions, _cancellationToken).Result; |
|
if (fileIsValid == false) |
|
throw new Exception("The .txt does not contain a vaild end token ('.', '!' or '?')."); |
|
return FSharpAsync.StartAsTask |
|
(RequestTextFromFileAsync(gibberishLevel, sentences, filePath), _taskCreationOptions, _cancellationToken).Result; |
|
} |
|
catch (Exception e) |
|
{ |
|
Debug.WriteLine(e.Message); |
|
throw; |
|
} |
|
} |
|
#endregion |
|
} |
|
}
|
|
|