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.
65 lines
2.3 KiB
65 lines
2.3 KiB
(ns cipher-analytical-machine.cli.options
|
|
(:require
|
|
[cipher-analytical-machine.symbols.factories :as sf]
|
|
[clojure.string :as cs])
|
|
(:gen-class))
|
|
|
|
(defn option-values-as-row
|
|
"Return the formatted string of values for an option."
|
|
[option values]
|
|
(str option ": " (cs/join ", " values)))
|
|
|
|
(defn option-values-as-list
|
|
"Return the formatted string of values for an option as a multiline list."
|
|
[option values]
|
|
(str option ": \n - " (cs/join "\n - " values)))
|
|
|
|
(defn map-of-option-value-as-list
|
|
"Return the formatted string of values for an option as a multiline list.
|
|
The values are a map of pairs (suboption and its options)."
|
|
[option values]
|
|
(let [values (map #(apply option-values-as-row %) values)]
|
|
(option-values-as-list option values)))
|
|
|
|
(def cipher-options
|
|
#{"Caesar" "Simple substitution and Caesar"})
|
|
|
|
(def default-cipher "Caesar")
|
|
|
|
(defn get-available-cipher-options-as-string
|
|
"Return the formatted string of analyzers options."
|
|
[]
|
|
(option-values-as-row "Ciphers" cipher-options))
|
|
|
|
(def analyzers-options
|
|
{"Caesar" #{"Chi^2"}})
|
|
|
|
(defn get-available-analyzers-options-as-string
|
|
"Return the formatted string of analyzers options."
|
|
[]
|
|
(map-of-option-value-as-list "Analyzers" analyzers-options))
|
|
|
|
(def language-options
|
|
#{"en", "uk"})
|
|
|
|
(def default-symbols
|
|
(sf/default-symbol-factory "en"))
|
|
|
|
(def cli-options
|
|
[["-m" "--message MESSAGE" "The message will be encrypted or decrypted."]
|
|
["-M" "--message-file MESSAGE-FILE" "The file contains the message that will be encrypted or decrypted."]
|
|
["-k" "--key KEY" "The key will be used to encrypt or decrypt."]
|
|
["-c" "--cipher CIPHER" "The cipher will be used to encrypt or decrypt a message."
|
|
:default default-cipher]
|
|
["-e" "--encrypt" "Encrypt the message."]
|
|
["-d" "--decrypt" "Decrypt the message."]
|
|
["-s" "--symbols SYMBOLS" "The string will be used as a set of symbols for a cipher."
|
|
:default default-symbols]
|
|
["-l" "--language CODE" "The string will be used to set a default symbols for a cipher."
|
|
:validate [#(contains? language-options %) "Must be a code from the list: en, uk!!!"]]
|
|
["-C" "--cracking" "Cracking the encrypted message."]
|
|
["-a" "--analyzer ANALYZER" "The way of cracking."]
|
|
["-O" "--output-file OUTPUT-FILE" "Save the program output to a file."]
|
|
["-h" "--help"]])
|
|
|