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

10
sks/phase/Makefile Normal file
View File

@@ -0,0 +1,10 @@
include $(KLAMMERTEXT_HOME)/mac/env/makefile.env
FLAGS = -std=c++17 -fvisibility=hidden -I $(KLAMMERTEXT_HOME)/src -I$(KLAMMERTEXT_HOME)/sks/kutil $(CXXFLAGS)
phase.so : phase.cpp
$(CXX) $(FLAGS) -fPIC -c phase.cpp
$(CXX) $(FLAGS) -shared -o phase.so phase.o
clean :
rm -f phase.o phase.so *~

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";
}