Initial commit: Klammertext source distribution

Curated source subset assembled by klammertext-dev's doc/make_dist.sh: the Klammermachine (mac), the Standard Klammer Set (sks), the commands (com), editor plugins and install guides (doc), a test subset (tst), and lib/bin placeholders. Builds with 'make -C com'.

Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>

com/ktext.cpp

@@ -0,0 +1,109 @@
+#include <iostream>
+#include "error.h"
+#include "command.h"
+#include "log.h"
+#include "argv.h"
+#include "file.h"
+#include "util.h"
+#include "machine.h"
+#include "show.h"
+#include "target_set.h"
+                
+int main(int argc, char* argv[])
+{
+    try {
+        set_verbose_level(argc, argv);
+        Argv args {};
+        args.req("filenames", "Input files in Klammertext format. ", "'list'");
+        args.opt("s", "Text processed before input files.", "input-string", "", "'text'");
+        args.opt("t","Output target; default is general (unspecified)", "target",
+                 Target_set::general_name, "'word'");
+        args.opt("o", "Output basename; meaning and default defined by target.", "basename",
+                 "", "'word'");
+        args.opt("k", "File containing the klammerset definition; default is the Standard Klammer Set. With a value of \"none\", no klammerset is loaded.",
+                 "pathname", "", "'word'");
+        args.flag("d", "Display the output to the screen, rather than writing files.");
+        args.flag("m", "Show the Klammermachine state at the beginning of processing.");
+        args.opt("v", "'verbosity'", "degree", "0", "'verbosity'");
+
+        if (show_usage(argc, argv)) {
+            args.usage(file_basename(argv[0]));
+            exit(1);
+        }
+        args.parse(argc, argv);
+        if (verbose_level > 0) {
+            args.describe();
+        }
+        std::string input_text = args.as_string("s");
+        std::vector<std::string> input_filenames = args.as_vector("filenames");
+
+        if (input_text.empty() && input_filenames.empty()) {
+            throw Argument_error(
+                "You must specify input filenames and/or text", Locator());
+        }
+
+        auto [target, output_dir, output_basename, output_filename,
+              write_files, display_only] = 
+            parse_args(input_filenames, args.as_string("t"), args.as_string("o"),
+                       args.as_bool("d"));
+
+        if (*(output_filename.end() - 1) == '*'
+            && !display_only) {
+            throw Argument_error(
+                "You must specify an output target or "
+                "display the results with the \"-d\" flag.",
+                Locator());
+        }            
+
+        Machine M;
+        M.m_state.open_frame("ktext");
+        M.m_state.set("K_target", target);
+        M.m_state.set("K_output_dir", output_dir);
+        M.m_state.set("K_output_basename", output_basename);
+        M.m_state.set("K_stdout_only", display_only ? "true" : "false");
+        M.m_state.set("K_input_filenames", join(input_filenames, " "));
+        M.m_state.set("K_verbose_level", std::to_string(verbose_level));
+
+        if (!input_filenames.empty()) {
+            M.m_state.set(
+                "K_input_dir",absolute_pathname(file_directory(input_filenames[0])));
+        } else {
+            M.m_state.set("K_input_dir", fs::current_path().string());
+        }
+
+        std::string klammerset_filename = args.as_string("k");
+        if (klammerset_filename != "none") {
+            if (klammerset_filename.empty()) {
+                klammerset_filename = M.m_state.value("KLAMMERTEXT_HOME") + "/sks/sks.k";
+            }
+            K::log(1, "Reading klammerset filename: "  + klammerset_filename);
+            M.read(fs::path(klammerset_filename));
+        }
+
+        if (!input_text.empty()) {
+            M.read(input_text + "\n");
+        }
+        for (auto p : input_filenames) {
+            M.read(fs::path(p));
+        }
+
+        if (args.as_bool("m")) {
+            std::cout << M << "\n";
+        }
+
+        std::string result = trim(M.apply(target));
+        if (display_only && !result.empty()) {
+            std::cout << result << "\n";
+        } else if (!result.empty()) {
+            msg() << "Output filename: " << output_filename << "\n";
+            string_to_file(output_filename, result + "\n");
+            (void)K::log(1, "Wrote file: " + output_filename);
+        }
+    }
+    catch (Error& err) {
+        err.print_message();
+        std::cout << "\n";
+        return 1;
+    }
+    return 0;
+}