diff options
| author | Omar Rizwan <omar@omar.website> | 2022-11-14 02:51:04 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2022-11-14 02:51:04 +0000 |
| commit | 8276940f9fe91dc3a44873623cf7320e125c8317 (patch) | |
| tree | d8a897aae3cca2a1aac950d7bbda775bea64f702 /virtual-programs | |
| parent | Hide add test in namespace so that calibration import works lol (diff) | |
| parent | Add hello name program, CPS clock, & Michael (diff) | |
| download | folk-8276940f9fe91dc3a44873623cf7320e125c8317.tar.gz folk-8276940f9fe91dc3a44873623cf7320e125c8317.zip | |
Merge branch 'main' of https://github.com/osnr/folk
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 |