diff options
| author | Andrés Cuervo <acwervo@gmail.com> | 2022-11-13 19:23:08 +0000 |
|---|---|---|
| committer | Andrés Cuervo <acwervo@gmail.com> | 2022-11-13 19:23:08 +0000 |
| commit | 546a15ff450efcd08b1a22ebd5af7237de93c4a2 (patch) | |
| tree | 2aff0d90594392b98252888985536b7b706de86a /virtual-programs | |
| parent | trie-c-play: Trie lookup seems to work?? (diff) | |
| download | folk-546a15ff450efcd08b1a22ebd5af7237de93c4a2.tar.gz folk-546a15ff450efcd08b1a22ebd5af7237de93c4a2.zip | |
Add hello name program, CPS clock, & Michael
Diffstat (limited to 'virtual-programs')
| -rw-r--r-- | virtual-programs/CPS-clock.folk | 14 | ||||
| -rw-r--r-- | virtual-programs/hello-name.folk | 12 |
2 files changed, 25 insertions, 1 deletions
diff --git a/virtual-programs/CPS-clock.folk b/virtual-programs/CPS-clock.folk index 0221fa40..ba455a18 100644 --- a/virtual-programs/CPS-clock.folk +++ b/virtual-programs/CPS-clock.folk @@ -2,4 +2,16 @@ Wish $this is outlined blue Wish $this has filename "CPS-clock.folk" #Wish $this is labelled "CPS clock" -Wish $this is labelled [exec sh -c "TZ=America/New_York date"] +## Hmmmmm, how to do this in Tcl? Use `tcl + +When $::nodename has step count /c/ { + Wish $this is labelled [string trim " +[exec sh -c "TZ=America/New_York date"] +step count: $c +step time: $::stepTime + "] +} + + +# Wish $this is outlined red +# Claim firstname is "something" diff --git a/virtual-programs/hello-name.folk b/virtual-programs/hello-name.folk new file mode 100644 index 00000000..bef035e2 --- /dev/null +++ b/virtual-programs/hello-name.folk @@ -0,0 +1,12 @@ +Wish $this has filename "hello-name.folk" +Wish $this is outlined blue + +When someone claims /firstName/ is /text/ { + Wish $this is outlined blue + Wish $this is labelled " + + + + +Hi $text!" +}
\ No newline at end of file |