World: r3wp

difference now/precise now/precise

block: [ "a:" "string1" "b:" "string2"    ]

Fremowe: func [x y][return remove remove find x  y ]

Fremowe block "a:"

not remove a ?

what this function does not act ?

1) You don't have to use return word ...., function does return the 
last point of its evaluation

and besides that, it works here ...

He guys, I need you !!!

ping?

I want to get in a Rebol script what I print on a standard windows 
printer.

I use Redmon (part of ghostview) to redirect what the printer get 
to my rebol script
RedMon : http://www.cs.wisc.edu/~ghost/redmon/index.htm
I'm under Windows.

How can I get data from the standard input ?

I have tried "copy system/standard/input" and also "input", but get 
nothing !!
plis help ;-)

have you tried -w? that uses dos-window as console AFAIK.

or use a temporary file?

Ah, this looks like a cgi-stype call. i would try --cgi then. it 
should do this "call and get data from stdin".

cgi-stype -> cgi-style

;serwer proxy


p: make port! tcp://:80

p/awake: func [ port /local  data conn targed cmd partner url 
] [



conn: first port
wait conn
data: to-string copy conn

replace/all data "^M" ""
source data

targed: copy/part data find data "HTTP/1.1"
data: find/tail data "^/"
print targed

cmd: parse targed none

url:  decode-url cmd/2 

if not url/path  [url/path: "" ]

if not url/target  [url/target: ""]

partner: open/no-wait to-url rejoin [ "tcp://" url/host ":80" ]




insert partner rejoin [ cmd/1" /" url/path url/target " HTTP/1.1^/" 
 data]

wait partner

tmp: copy partner




close partner



insert conn tmp



close conn 

]


append system/ports/wait-list p


open/binary/no-wait p
 wait []


halt

what this server not act ?

what this server not act ?
  -->  "why does this server not work ?"

print [rebol/product rebol/version]

View 1.2.55.3.1

partner sends to conn only first packet

insert partner rejoin [ cmd/1" /" url/path url/target " HTTP/1.1^/" 
 data]
?? data
wait partner

data looks ok ?

partner: open/direct/no-wait ....

OR...
partner: open/no-wait ...
insert partner ...
update partner  ; <-------
wait partner

conn: first port
wait conn ; such things in /awake may be a problem.

i would not use /awake in your case. more like
  forever[ wait port  your-code-here ]

also you have both server and client in the same process? this 'partner? 
i write such things using two consoles, one for client, one for server.

DideC: try to start REBOL with -cw

I have tried -c -w -cw, but I'm unable to pick anything from the 
standard input.

But I don't know how to handle that in the script :-\ (ports are 
not my tea cup).

My script :
   Rebol []
   probe copy system/ports/input

(Script is in %inp.r)
I have tried this command line (I'm on Win2k, Core 2.5.6) :

C:\> echo this is a test | rebol.exe inp.r
C:\> rebol.exe inp.r < test.txt
C:\> type test.txt | rebol.exe inp.r

i understand from the webpage that redmon launches the program and 
send it input, just as a webserver does with cgi. then try it from 
the real program, not from the console. i don't know about xp, but 
in win9x console-pipes are pretty broken.

REBOL []

write %test.txt copy system/ports/input

echo this is a test | rebol.exe -cw test.r

(hit ctrl-c to terminate it)

you get "this is a test" in test.txt

if you PROBE it, to see it on the command window you need a | more 
or something like that.

Thanks,  it works :-))

Micha:
regarding your Async Server

You can modify your awake function like this

p/awake: func [ port /local  data  ] [
 	data: copy port
	either data [
		append tmp data
	] [
		close p 
		remove find system/ports/wait-list p
	]
]

I used to know this, but for which datatypes is a hash! indexed? 
Just strings, or words too?

words, strings, integers, AFAIK

...numbers (and probably tuples too)

The FAQ would suggest it works on any datatype:

Hashes are good for data that you are going to perform many searches 
on
http://www.rebol.com/faq.html#039

IIRC, they wok on anything. I know there was an ML discussion on 
any-block types some time ago, but I don't know how in depth it was 
WRT hashes.

It used to be just strings that were hashed. Other data types were 
just sitting there, and had to be found with a linear search like 
with other blocks.

I vaguely recall that they later started hashing some other datatypes, 
but can't recall which ones.

Is there a  Perl compatible regular expression parser written in 
REBOL

note to volker:   what did I say  !!!!  ;-)


I was just telling volker privately, a few hours ago, how having 
regexp within REBOL would help those who migrate to it  ;-)

Joe, not that I know of.   Try to learn the 'Parse word.  There are 
a lot of parse experts hanging on this site... (not that I am one 
of them..)

Yep, parse is great.

is there a way to set the datestamp when writing a file?