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>
This commit is contained in:
2026-07-18 18:48:23 +02:00
commit 2ba7ceee7a
272 changed files with 27634 additions and 0 deletions

20
sks/phase/phase.cpp Normal file
View File

@@ -0,0 +1,20 @@
#include <string>
#include <sstream>
#include <map>
#include "util.h"
#include "eval.h"
#include "machine.h"
#include "klammer_base.h"
using namespace std;
extern "C" VISIBLE void set_paragraphs(Machine& M, Text& T)
{
cout << "In after_parse:" << M.state.statevars.get("K_program_name").first;
cout << T.katoms.katoms.size() << "\n";
for (katom_ptr k : T.katoms.katoms) {
cout << ktype << *k << " ";
}
cout << "\n";
}