diff options
Diffstat (limited to 'demos')
| -rw-r--r-- | demos/demos | 1 | ||||
| -rw-r--r-- | demos/intro.apl | 11 | ||||
| -rwxr-xr-x | demos/rdemo | 5 |
3 files changed, 12 insertions, 5 deletions
diff --git a/demos/demos b/demos/demos index b687a93..8569e11 100644 --- a/demos/demos +++ b/demos/demos @@ -1,3 +1,4 @@ APLDemo intro.apl APLDemo doubleup.apl APLDemo chain.apl +kill apl | rc
\ No newline at end of file diff --git a/demos/intro.apl b/demos/intro.apl index 17e3616..43da2b6 100644 --- a/demos/intro.apl +++ b/demos/intro.apl @@ -9,13 +9,14 @@ us message ⍈ us ⍝ Let's examine the state of the system -us ⎕threads 0 ⍝ Thread ID -us ⎕threads 1 ⍝ Thread name -us ⎕threads 2 ⍝ Number of messages in mailbox -us ⎕threads 3 ⍝ Approximate C stack usage (in bytes) +us ⎕threads 0 ⍝ Thread ID +us ⎕threads 1 ⍝ Thread name +us ⎕threads 2 ⍝ Number of messages in mailbox +us ⎕threads 3 ⍝ Approximate C stack usage (in bytes) +us ⎕threads 4 ⍝ Number of dfn stack frames ⍝ All at once, for all currently running threads -⎕threads 0 1 2 3 +⎕threads 0 1 2 3 4 ⍝ We have one message in our mailbox, let's receive it ⍝ The recieve primitive is a monadic operator diff --git a/demos/rdemo b/demos/rdemo new file mode 100755 index 0000000..cc96767 --- /dev/null +++ b/demos/rdemo @@ -0,0 +1,5 @@ +#!/bin/rc + +font=/lib/font/bit/APL386/22/font +rm -f /srv/apl +rio |