From 02b7a883e3eb5e17426aed71f63c57425cb7f143 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Sun, 18 Jun 2023 16:28:30 -0400 Subject: Introduce fork-zygote process system. Also refactors/separates ::nodename to be ::thisNode (this computer) and ::thisProcess (this OS process). All tests should pass. Zygote-based processes are much faster to start up since they don't need to recompile C code or reload Folk. They still need to connect to Folk via WebSocket for now, and the automatic management we'd want (bidirectional, based on both match lifetime and process lifetime) isn't working yet. Some of the node vs. process distinction in naming still needs to be cleaned up, too, I think. --- test/basic.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'test/basic.tcl') diff --git a/test/basic.tcl b/test/basic.tcl index af2bb16f..78ea97da 100644 --- a/test/basic.tcl +++ b/test/basic.tcl @@ -11,7 +11,7 @@ proc count condition { Assert programOakland has program {{this} { Claim Omar lives in "Oakland" }} -Assert when $::nodename has step count /c/ {{c} { +Assert when $::thisProcess has step count /c/ {{c} { When Omar lives in /place/ { Claim $place is a place where Omar lives } -- cgit v1.2.3 From a5b40ecd2ba5e4e04ed35a410d05953d877e0d13 Mon Sep 17 00:00:00 2001 From: Omar Rizwan Date: Mon, 19 Jun 2023 13:40:27 -0400 Subject: Add assert to lib/language.tcl --- test/basic.tcl | 6 ------ 1 file changed, 6 deletions(-) (limited to 'test/basic.tcl') diff --git a/test/basic.tcl b/test/basic.tcl index 78ea97da..c39916dd 100644 --- a/test/basic.tcl +++ b/test/basic.tcl @@ -1,9 +1,3 @@ -proc assert condition { - set s "{$condition}" - if {![uplevel 1 expr $s]} { - return -code error "assertion failed: $condition" - } -} proc count condition { Statements::count $condition } -- cgit v1.2.3