World: r3wp

so, having a regexp WITHIN parse would be oh so incredible.  especially 
since Parse allows such an easy way to traverse data at such a fast 
rate.  having regexp to take "decisions" would scale pretty nicely. 
  OTOH having rebol to take decision could be an alternative too.

Parse is good at matching, but sometimes, a simple condition "means" 
something which is hellish to implement as a set of explicitely mutually-excluding 
matches.  regexp is a little easier in this case (note I use easier 
not in style or readability here... just in raw expressiveness).

if we could add a conditional within the dialect of parse directly 
(without using tricks, which I know many will be tempted to demonstrate, 
and many which I already know about) then parse itself would have 
another level of expressiveness IMHO.

one example could be to use the return value of evaluated parens 
as a "matched? or not" in order to continue in a parse rule.

this would allow us to make much simpler rules sometimes, especially 
when such decisions are not based on simple left to right loading 
of values, but sometimes based on interdependent values, which only 
take meaning once certain patterns have been loaded.

for example, not only the type and shape of data, but its actual 
value?  have I loaded enough of this, for this rule to qualify.  
is a specific attribute set to a mandatory value?  there are many 
such examples.

again, I know most patterns CAN be described using parse, but in 
many occasions, what could have been a simple parens with a decision 
and 2 or 3 very simple rules, ended up being a complex tree of tens 
or more rules, which have non obvious interdenpendencies and things 
like left entry recursions (I hope I make sense here) which are, 
well, slow(er) and hard to map in one's mind.

regexp should be shot

Max, could you flesh that out as a hypothetical example?

are you asking me to give an example?

Sure, how would it look?

well, I guess the best way would be to use parens within the parse 
block as a means to return if we should continue in this rule, (and 
maybe even based on type, how many items to skip!).

hum... you are asking my mind to shift from cgi and web site writing 
to parse rule generation.. hehe I'm a bit deep in the construction 
of Revault right now... with about 10 files opened and mapped in 
my mind ;-)

Fair enough -- just curious...

What Maxim is describing is the CHECK clause proposal I made a few 
years ago. See here:
http://www.colellachiara.com/soft/Misc/parse-rep.html

This collection was made last year, but I first proposed CHECK years 
ago (calling it IF at the time), for the previous round of proposals.

I'm working on reducing memory consumption on my little database 
and was wondering if stats is reading out the total memory usage 
correctly or if Windows XP's job list is. I can do a script that 
gradually eats up 100 MB memory and then the memory is recycled, 
when I ask for it. 'stats then prints about 15 MB used, which is 
fine, but the job list reads out about 100 MB still used and it stays 
there. Right now it reads about 104.656 KB used, while stats prints 
15588191 bytes. This is in a stopped console. Recycling more doesn't 
help.


I've even seen the job list memory jump up 10-20 MB once when recycling. 
Which one is reading out the correct number?

I think I get it. If I run the script again, the job list does not 
show memory usage to be above 104 MB until stats also show above 
104 MB. So Windows must be keeping inactive memory around for the 
task.

I've made a small change to the %filtered-import.r script -- it should 
now properly handle the 'opt modifier:

>> import [][test: opt string!]
== [test none]
>> import [test ""][test: opt string!]
== [test none]
>> import [test ""][test: string!]
== none

This last one could be considered unexpected?

I'm trying to learn how to make tcp servers, reading this rebol doc: 
file:///C:/SDK/docs/core23/rebolcore-13.html#section-14

Why am I getting this error:

>> listen: open tcp://:8001
** Access Error: Error opening socket listen port
** Near: listen: open tcp://:8001

Turning the firewall off does not help.

This seems to work:

>> listen: open tcp://localhost:8001

But the docs specifically say:


Notice that you do not supply a host name, only a port number. This 
type of port is called a listen port. The system now accepts connections 
on port number 8001.

Is this a mistake in the docs?

Henrik -- I think Gabriele said recently that REBOL *never* hands 
back memory to the opsys. So, although, REBOL's stats are reporting 
in-use memory, they are not telling you all the still reserved memory.
I think that explains your observations.

Lous:

your port  is already opened either by an opther application or by 
this rebol instance as you can connect to.

So either use an other port number or close your listen socket before 
opening again

sorry  Lous --> Louis

sunanda, I see, thanks

anyone else thinks this would be useful? 
reduce 'abc/'def/(1 + 2)
instead of
to path! reduce ['abc 'def (1 + 2)]

but you can't do
abc/'def/(1 + 2)
so maybe a new repath function:
repath abc/'def/(1 + 2)
?

sqlab, thanks. But no matter what number I use it is not working 
for me.

Will, I think so.

Louis:   if you:

open tcp://localhost:8001


you do not open port for listening but for reading/writing as for 
example:

p: open tcp://www.rebol.com:80


so if you can open such a port on localhost, you MUST have something 
what listens on such a port

Oh yes, Oldes is right.

Remove "localhost" if you want to be a server. The docs are right.

Your next script, the rebol client that connects to this server, 
*will* specify localhost.

Anton, Olds, sqlab, thanks for the help.

Here I paste directly from the docs:

>> server-port: open/lines tcp://:4321
** Access Error: Error opening socket listen port
** Near: server-port: open/lines tcp://:4321
>>


Could there be something wrong with the way XP is set up that is 
causing this?

Louis;  Is something alreasy open on 4321...try another port...

Never mind...just read back through the thread.  Time for sleep. 
 :)  Good luck.

Anton: you mean we need a repath function?

btiffin and sqlab, it turns out that you both suggested the right 
thing. I must have a lot of ports being used already on my computer. 
Since you both thought this is what was wrong. I just kept on trying 
port numbers until finally...it worked! Thank you both very much! 
 Thanks to all of you that helped me, this day has ended pretty good! 
 Having endured the earlier aggravation, the good feels even better 
than usual.


So many ports being open does make me wonder why, however. That seems 
a little dangerous to me.

Louis, here's a windows tool that will let you see what ports are 
open and what application is listening on the ports.

http://www.nirsoft.net/utils/cports.html

or use this http://www.microsoft.com/technet/sysinternals/utilities/TcpView.mspx

Ammon and Oldes, thanks. I'll check them out.

87 ports open---most of them by REBOL.  The script was working, but 
I didn't realize it because no window was opening.  This was the 
result of working too many hours without enough sleep. It just doesn't 
pay.  We get more done in the long run if we stop and play or sleep 
when we should. Thanks again, you guys, for all the help; very much 
appreciated!

Will, a REPATH, AS-PATH, or DO-AS-PATH kind of thing would be very 
handy at times.

Does the following line only work with e-mail?

system/options/binary-base: 64  ; best binary encoding

>> probe as-binary "test"
#{74657374}
>> system/options/binary-base: 2
>> probe as-binary "test"
2#{01110100011001010111001101110100}
>> system/options/binary-base: 64
>> probe as-binary "test"
64#{dGVzdA==}

Thanks, Oldes!

Good progress, then stuck again. I can get one file transferred, 
but I don't know how to transfer the following files. This is the 
server (put it in an empty folder): 

rebol []

print ["This program RECEIVES files sent by send-files-tcp." newline]
port-num: request-text/title/default "Port Number: " "2006"
url: to-url rejoin ["tcp://:" port-num]
received-file: copy first open/binary url
write %file-names decompress received-file
files: load %file-names
foreach file files [

    received-file: copy url ;<======== HOW DO I FEED IN THE NEXT FILE?
    write/binary file received-file
    print ["Successfully received file: " file]
]

ask "The files transfer is complete. Press <Enter> to close."

This is the client; put it in the folder containing the files you 
want to send.

rebol []
ip: request-text/title/default "IP Address: " "localhost"
port-num: request-text/title/default "Port Number: " "2006"
url: to-url rejoin ["tcp://" ip ":" port-num]
system/options/binary-base: 64  ; best binary encoding


print ["This program SENDS all files in its folder to receive-files-tcp." 
newline]
print "NOTE: receive-files-tcp must be running on the remote"
print ["computer before starting this program." newline]

files: read %. ; Note that 'files is a block of file names.
save %file-names files
server: open url

insert server compress as-binary read/binary %file-names ;send file 
names
file-block: []
foreach file files [
    if not find file "/" [insert file-block file] ;remove folders
]
files: file-block
foreach file files [
    insert server compress as-binary read/binary file
    print ["Successfully sent file: " file]
]
close server

ask [newline "The files transfer is complete. Press <Enter> to close."]

The design is to place the server in the folder on the computer to 
which you want to transfer files.  Place the client in the folder 
on the other computer containing the files you want to transfer.

Start the server first, then the client, and file transfer should 
be automatic.

....that is if I can get it to work...with your kind help.

It actually needs View to run, but I put it here because the question 
is Core related.