[REBOL] Language survey
From: greggirwin::mindspring::com at: 10-Jun-2003 18:30
Hi All,
This is informal, but it could be interesting to see the results
(which I will gladly tabulate and post). If this has already been
done, I couldn't find the results, hence this message.
Lurkers please contribute as well!
There are two scripts below, one for Core, and one for View. All
they will send to me are the version of REBOL you're using and
the data you enter.
--Gregg
; Core Version
address: head reverse [moc--gnirpsdnim--niwriggerg]
reply: func [data] [
send address rejoin [
"Language survey response" newline
system/version newline
data
]
print "Thanks!"
]
reply ask "What languages do you use? "
; View Version
address: head reverse [moc--gnirpsdnim--niwriggerg]
reply: func [data] [
send address rejoin [
"Language survey response" newline
system/version newline
data
]
h/text: "Thanks!"
show h
]
default: {REBOL Java VB Perl Python Ruby Tcl PHP
C C# C++ Pascal Delphi Assembly Smalltalk Squeak
Scheme Lisp Logo BASIC COBOL Forth Oberon OCaml}
view layout [
h: h3 "Just a little informal survey to see what languages we use"
text "Enter the names of the languages you use below, and press Send."
data: area font-name font-fixed default
across
button "Send" [reply data/text]
button "Quit" [quit]
]