Posted to tcl by mookie at Tue Oct 27 01:55:27 GMT 2026view raw
- namespace eval crystal { puts "-> [file tail [info script]]" }
- namespace eval crystal {
- namespace export {[a-z]*}
- namespace ensemble create
- }
-
- ;# Set up a vFS (Virtual Forest System)
- variable b32_forestPath "/forest/neoncrystal"
- variable b32_crystal "$b32_forestPath/crystal"
- variable b32_mainPath "$b32_crystal/main"
- variable b32_systemPath "$b32_crystal/system"
- variable b32_resourcePath "$b32_crystal/resource"
-
- ;# SubSet 0
- ;# NeonCrystal :: CrystalForest
- ;# CrystalScript Transformer
-
- ;# Load our Digital Intelligence Module
- source $b32_systemPath/load/crystal/memory.ix
-
- ;# Chicken or the Egg
- ;# The cast procedure does not yet exist yet we require the cast procedure to launch our action
- ;# Minimilistically implement the procedures via native level tools
- variable soul [crystal::memory::create $b32_resourcePath/system.soul]
-
- variable b32_open_file [open $b32_systemPath/load/cast/procedures.ix r] ;# open the file
- variable b32_crystal [read $b32_open_file] ;# referenced in boot.ix
- close $b32_open_file
- crystal::memory::insert $soul "cast" "procedures" "$b32_crystal"
-
- ;# our ctx "soul" is now open let's work with this.
- ;# execute our procedures in current stack
- ;# query our soul for the procedures
- variable b32_crystal_cast [crystal::lidx [crystal::memory::query $soul "cast" "procedures"] 0]
- uplevel #0 $b32_crystal_cast
-
- ;# We now have action to our cast procedures
- crystal::memory::insert $soul "boot" "procedures" "[crystal::cast::action open 00ff 00 "$b32_systemPath/load/boot/procedures.ix"]"
- crystal::memory::insert $soul "math" "hex" "[crystal::cast::action open 00ff 00 "$b32_systemPath/load/math/hex.ix"]"
-
- set b32_boot [crystal::lidx [crystal::memory::query $soul "boot" "procedures"] 0]
- set b32_math [crystal::lidx [crystal::memory::query $soul "math" "hex"] 0]
-
- uplevel #0 [dict get $b32_boot 32]
- uplevel #0 [dict get $b32_math 32]
-
- crystal_close $soul
- crystal::debug 1 [crystal::timedate 32] [crystal::timedate 16]
Add a comment