Artifact f3ca5966bef82d6d896c87fb99439d7f872db7279ceadf64ef052d5a75fd6040:

• File support/dsl.tcl — part of check-in [72e894f78d] at 2025-10-01 22:08:24 on branch trunk — refactor: internals of blit generator. note: moved various management things (actions, arguments, spec, ...) into their own files. note: cleaned main generator code somewhat, with various renames. (user: aku size: 975)

# -*- mode: tcl ; fill-column: 90 -*-

namespace eval ::dsl {
    namespace export generate blit reduce structs xref
    namespace ensemble create
}

proc ::dsl::generate {pkg in out {doc {}}} {
    puts ""
    puts "  Ops processing \[$pkg\]"

    writer do $out $doc [reader do $pkg $in]

    puts ""
    puts "  Done \[$pkg\]"
    puts ""
}

apply {{selfdir} {
    source [file join $selfdir reader.tcl]
    source [file join $selfdir writer.tcl]
    source [file join $selfdir blit/system.tcl]
    source [file join $selfdir blit/arguments.tcl]
    source [file join $selfdir blit/codegen.tcl]
    source [file join $selfdir blit/actions.tcl]
    source [file join $selfdir blit/spec.tcl]
    source [file join $selfdir blit.tcl]
    source [file join $selfdir blit/builtin-actions.tcl]
    source [file join $selfdir reduce.tcl]
    source [file join $selfdir structs.tcl]
    source [file join $selfdir xref.tcl]
}} [file dirname [file normalize [info script]]]
return