website 74a83983aa4c9d552d81f25728b3fd912362238e

0 views

Skip to first unread message

letha...@gmail.com

unread,

May 21, 2009, 5:25:40 PM5/21/09

to syx-c...@googlegroups.com

Branch: website
commit 74a83983aa4c9d552d81f25728b3fd912362238e
Author: Luca Bruno <letha...@gmail.com>
Date: Wed Jan 21 21:23:20 2009 +0100

Added menu example

:100644 100644 f3bdd33... 3a442f1... M wml/Makefile
:100644 100644 07db43f... b74b426... M wml/doc/examples.wml
:100644 100644 306daed... f0b22e5... M wml/doc/examples/basic/hello.wml
:000000 100644 0000000... d61dade... A wml/doc/examples/console/menu.wml

diff --git a/wml/Makefile b/wml/Makefile
index f3bdd33..3a442f1 100644
--- a/wml/Makefile
+++ b/wml/Makefile
@@ -6,8 +6,8 @@ DOCINCS=$(wildcard doc/*.inc)
CCDOC=$(CC) $(patsubst %,-i%,$(DOCINCS))
EXINCS=$(wildcard doc/examples/*.inc)
CCEX=$(CCDOC) $(patsubst %,-i%,$(EXINCS))
-SRCS=$(wildcard *.wml) $(wildcard doc/*.wml) $(wildcard doc/examples/basic/*.wml)
-OBJDIRS=$(TOPDIR)/doc $(TOPDIR)/doc/examples/basic
+SRCS=$(wildcard *.wml) $(wildcard doc/*.wml) $(wildcard doc/examples/basic/*.wml) $(wildcard doc/examples/console/*.wml)
+OBJDIRS=$(TOPDIR)/doc $(TOPDIR)/doc/examples/basic $(TOPDIR)/doc/examples/console
OBJS=$(patsubst %,$(TOPDIR)/%,$(SRCS:.wml=.html))
ARCHIVEDIR=$(subst .,_,$(LATEST))
ARCHIVESRCS=$(patsubst %,$(ARCHIVEDIR)/%,install.wml features.wml release-notes.wml)
@@ -23,6 +23,9 @@ $(TOPDIR)/doc:
$(TOPDIR)/doc/examples/basic:
mkdir -p $(TOPDIR)/doc/examples/basic

+$(TOPDIR)/doc/examples/example:
+ mkdir -p $(TOPDIR)/doc/examples/example
+
$(ARCHIVEDIR):
mkdir -p $(ARCHIVEDIR)

diff --git a/wml/doc/examples.wml b/wml/doc/examples.wml
index 07db43f..b74b426 100644
--- a/wml/doc/examples.wml
+++ b/wml/doc/examples.wml
@@ -13,7 +13,7 @@

<h3>Console</h3>

- A console menu with different choices that let the end user interact with Smalltalk
+ <a href="$(ROOT)/doc/examples/console/menu.html">A console menu with different choices that let the end user interact with Smalltalk</a>


<h3>Embedding</h3>
diff --git a/wml/doc/examples/basic/hello.wml b/wml/doc/examples/basic/hello.wml
index 306daed..f0b22e5 100644
--- a/wml/doc/examples/basic/hello.wml
+++ b/wml/doc/examples/basic/hello.wml
@@ -25,6 +25,8 @@
On Windows, if you used the installer, you'll find the executable in Start->Programs->Smalltalk YX menu.
You'll see this once Syx has been launched:
<pre>
+ Smalltalk YX $(LATEST) is ready.
+ Type 'help!' to get help.
  >
</pre>

diff --git a/wml/doc/examples/console/menu.wml b/wml/doc/examples/console/menu.wml
new file mode 100644
index 0000000..d61dade
--- /dev/null
+++ b/wml/doc/examples/console/menu.wml
@@ -0,0 +1,49 @@
+{#TITLE#:Console menu:##}
+
+<items>
+ <item "Console menu">
+ 
+ This example file is called menu.st (it's available in the examples directory of the source distribution).
+ The code is ugly but it's noticeable that migrating from other scripting languages to Syx is quite direct.
+ 
+ <code>| choice menu | 
+ 
+ 'Smalltalk YX simple example menu:' displayNl. 
+ menu := ['1 - Reverse a string' displayNl. 
+          '2 - Do a math operation with 2 numbers' displayNl. 
+          'q - Quit' displayNl. 
+          'Choice: ' display. 
+           stdout flush ]. 
+ 
+ choice := nil. 
+ [ menu value. (choice := stdin next asLowercase) = $q ] 
+     whileFalse: [ 
+         "Get rid of \n character" 
+         stdin next. 
+         choice 
+             caseOf: { 
+ 
+                 [$1] -> [ 
+                     | s | 
+                     s := (stdin next: 1024) copyWithout: Character nl. 
+                     s reverse displayNl ]. 
+ 
+                 [$2] -> [ 
+                     | n1 n2 op | 
+                     'First number: ' display. 
+                     n1 := Number readFrom: stdin. 
+                     'Operation (+, /, -, *, <, >, =, ...): ' display. 
+                     op := ((stdin next: 1024) copyWithout: Character nl) asSymbol. 
+                     'Second number: ' display. 
+                     n2 := Number readFrom: stdin. 
+                     ('Result: ', (n1 perform: op with: n2) displayString) displayNl ]. 
+ 
+                 } 
+             otherwise: [ 'Not a valid choice' displayNl ]. 
+         Transcript cr ]. 
+ 
+ 'See you soon. Bye.' displayNl</code>
+ </code>
+ <top>
+ </item>
+</items>

Reply all

Reply to author

Forward

0 new messages