From 0ecc86e1d50cf142a60bcbc439c6712e60f46410 Mon Sep 17 00:00:00 2001
From: Luxferre <lux@ferre>
Date: Tue, 8 Oct 2024 23:59:15 +0300
Subject: [PATCH] Added a converter from SLC to TXT format

---
 slcread.tcl | 59 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 59 insertions(+)
 create mode 100755 slcread.tcl

diff --git a/slcread.tcl b/slcread.tcl
new file mode 100755
index 0000000..7d548c3
--- /dev/null
+++ b/slcread.tcl
@@ -0,0 +1,59 @@
+#!/usr/bin/env tclsh
+# slcread: convert a Sokoban levelset in the (XML-based) SLC format
+# into the plaintext format readable by BOXcl, depends on TclXML only
+# Usage: tclsh slcread.tcl input.scl > output.txt
+# Created by Luxferre in 2024, released into public domain
+
+package require xml
+
+set levelsetfile ""
+if {$argc > 0} { # get the level set file name
+  set levelsetfile [lindex $argv 0]
+} else {
+  puts "Missing input file!"
+  exit 1
+}
+
+set fp [open $levelsetfile r]
+fconfigure $fp -encoding utf-8 -translation auto
+set fdata [read $fp]
+close $fp
+
+set dataout 0
+set xtitle 0
+
+proc edata {name attlist args} {
+  global dataout xtitle
+  if {$name eq "Title"} {set xtitle 1}
+  if {$name eq "LevelCollection"} {
+    puts "Author: [dict get $attlist Copyright]"
+  }
+  if {$name eq "Level"} {
+    puts "\nTitle: [dict get $attlist Id]"
+  }
+  if {$name eq "L"} {
+    set dataout 1
+  }
+}
+
+proc edataend {name args} {
+  global dataout
+  if {$name eq "L"} {
+    set dataout 0
+  }
+}
+
+proc cdata {data args} {
+  global dataout xtitle
+  if {$dataout eq 1} {
+    puts $data
+  }
+  if {$xtitle eq 1} {
+    puts "Title: $data"
+    set xtitle 0
+  }
+}
+
+set parser [::xml::parser -characterdatacommand cdata -elementstartcommand edata -elementendcommand edataend]
+$parser parse $fdata
+puts ""