I have had the same problem with smoutput for many of the J601 betas and J601c.
A running verb will display a few smoutput lines, then screen output will
stop until the verb exits, when all the pending smoutput lines are displayed.
David Mitchell
Roelof K. Brouwer wrote:
Thanks for this suggestion. Chris. However it did not work as it should in
my context.
However there still is not explanation for why something I did works in one
context and not in another.
Does it have something to do with buffering?
One thing I notice is that when I have a program with iterations that is
supposed to print to the screen with each iteration J will store the output
and print it out for all iterations at once. Initially the results for a few
iterations are displayed and then nothing is displayed until the whilst.
loop is exited.
I tried this
-----------
Other stuff
if. -. 'y' e. prompt 'again (y/n)? ' do. break. end.
tnit=.prompt 'How many iterations?'
end.
O;gbMem;gF;Res
)
It broke from the loop as if it took data going for display to the screen as
its keyboard input . I did not put anything in by way of the keyboard
cheers
Roelof
Contact information
Dr. Roelof K. Brouwer PEng
Professor
Department of Computing Science
School of Advanced Technologies and Mathematics
Thompson Rivers University
900 McGill Road, PO Box 3010
Kamloops, BC, Canada,V2C 5N3
skype RoelofBrouwer
telephone numbers
1-250 828 5219 work
1-250-374-5874 home
1-250-377-6133 fax
home page www.tru.ca/advtech/compsci/faculty/rbrouwer
email [EMAIL PROTECTED]
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
On Behalf Of Chris Burke
Sent: January 8, 2007 11:07 PM
To: General forum
Subject: Re: [Jgeneral] keyboard input
Roelof K. Brouwer wrote:
How do I get J to wait for input from the keyboard?
I am not sure exactly what you are looking for, but perhaps the prompt
verb may do what you want. You need to run the main verb in the ijx window.
For example, define foo:
require 'misc'
foo=: 3 : 0
while. 1 do.
smoutput ?100
if. -. 'y' e. prompt 'again (y/n)? ' do. break. end.
end.
)
Now run foo:
foo''
55
again (y/n)? y
73
again (y/n)? y
58
again (y/n)? n
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
