AltME groups: search

Regarding Carl's last blog, I guess rebcmd25125 is the pre-release 
version.
I am testing the Win version with my scripts since a few days.
Recently I saw  some error messages I saw never before.


The script is reading periodically from a remote drive via UNC with 
	load join work.dir [isodate work-date ".log"]
where 
	work.dir:  %/REMOTE/D$/DATA/
and 
	isodate: func [x] [..]  
producing something like "20050705".

Before I saw error messages like 
	Access Error: Cannot open /REMOTE/D$/DATA/20050705.log
	Where ...
	Near: load join work.dir [isodate work-date ".log"] 
 , if the file was not accessible.


This time the error messages were different after running for some 
time ,  e.g.
	Near: load join work.dir [ isodate 5-Jul-2005 ".log"]
or 
	Near: load join wor[isodate work-date ".log"] 

Has anyone seen something simlar ?

I guess I can it explain, as probably two instances of my script 
where running at the same time and writing to the same log file and 
thereby overwriting their mesages.

linux-1.3: nameclash: /link wants ~/.rebol as file. /view now wants 
a directory there. I guess we have to rename, ~/rebol.d ?

Linux 1.3 Beta -> startup reports this -> 

** Access Error: Cannot open /home/usersx/.rebol/view/desktop/filetypes.r
** Where: init-desktop-files
** Near: write path join {REBOL [Title: "File Types"]
} mold/only
>>

Linux 1.3 Beta -> Startup Problems FIXED !! For the OLD rebol there 
is always a .rebol file in the home directory that is why rebol report 
the problem above.

You can test if the install works by executing ./rebview --reinstall 
after moving the ~/.rebol file. desktop is now starting!

RT is re-prioritizing things as they go, because the community will 
get excited about certain things, so it's good go consider putting 
a little time in on those. Other tasks have larger implications and 
take a lot of time to design and code. The /direct issue is a good 
example because they don't want to break file handling code (which 
is used in *many* scripts), nor do they want to just dump in a quick 
change and make matters worse in the long run.

also, it's not that /direct does not work; it does, always has, in 
that it does not buffer. the problem is that it does not allow seeking, 
i.e. it only allows sequential access. so you can open a 2GB file, 
as long as you read it sequentially.

Btw, would it help to have a native dll for file-access until rebol 
is smarter? should not be that hard.

Ladislav, I agree that since ^} is usable, so should be ^{. Counting 
of braces can be quite awkward without this. This should be submitted 
to RAMBO.


In any case, this behavior doesn't affect the ability to work with 
strings or limit the characters that they can contain. This only 
affects how strings are specified in REBOL source code. Once they 
are parsed by load, it doesn't matter where any ^ is in their contents. 
Try reading (READ native) data with arbitrary ^, { and } from a file 
and there will be no escaping performed. A load (LOAD native) of 
that same file will check REBOL data syntax and do any escaping it 
can.

What I wanted to say is, that this property works against the possibility 
to specify a string containing some possible sequences of characters. 
The fact, that such strings can be read from file doesn't suffice 
as an argument, that Rebol can handle any string - Rebol cannot handle 
some strings using the escape convention defined in the Rebol/Core 
User's Guide.

(better make that PRINT a PROBE...)  My results when pressing various 
keys:
page-up -> "clipboard"
page-down -> "object"
home -> #"^@"
end -> "event"
insert -> "file"
etc... other keys are giving strange values too.

I just found a file that I can READ but not OPEN a port to. This 
bug can be seen on old and new versions of Core 
and View:
>> read %"/j/anton/mp3s/more/test-copy.mp3"

== {ID3^C^@^@^@^@^F^NTMED^@^@^@^D^@^@^@DIGTLEN^@^@^@^G^@^@^@472006TCON^@^@^@^E^@^@^@miscTRCK^@^@^@^B^@^@^@5TALB^@^@^@^\^@^@^@Psych
o...
>> port: open %"/j/anton/mp3s/more/test-copy.mp3"
** Access Error: Cannot open /j/anton/mp3s/more/test-copy.mp3
** Near: port: open %/j/anton/mp3s/more/test-copy.mp3
>> port: open/binary %"/j/anton/mp3s/more/test-copy.mp3"
** Access Error: Cannot open /j/anton/mp3s/more/test-copy.mp3
** Near: port: open/binary %/j/anton/mp3s/more/test-copy.mp3
>> read/binary %"/j/anton/mp3s/more/test-copy.mp3"
== #{
4944330300000000060E544D454400000004000000444947544C454E00000007
00000034373230303654434F4E000000050000006D6973635452434B0000...

I'm on WinXP. I just copied the file to a different volume and it 
can be read there.

So what I did was create an "anton-user.r" file, which my user.r 
calls *optionally*.
It decides whether to call it based on a command line argument.

So, two different command lines can start rebol "clean" (without 
anton-user.r) or "unclean" (with all my customizations in anton-user.r).

(I uploaded the file now, so you can't replicate my error message.. 
:)

load/all is very useful if you are loading a block of values from 
a file, eg.

	1 2 3 "Bob"


and you don't want to code for the case where the file only has one 
value in it. For example, with a file containing a single value in 
it I get:

>> load %a.txt
== 1
>> load/all %a.txt
== [1]


but in all other cases (zero or more than one value), I always get 
a block. I asked about this ages ago and the answer at the time was 
that beginners expected to be able to "load" a value without worrying 
about unwanted block creation (and those who wanted it would use 
load/all).

In RebDB I ended up with the following to handle this:

	switch/default length? tables/:table/data [
		0	[write tables/:table/dat-file ""]
		1	[save/all tables/:table/dat-file first tables/:table/data]
	][
		save/all tables/:table/dat-file tables/:table/data
	]

I think, as per Gabriele's suggestion, that can be simplified to:
	write  tables/:table/dat-file  mold/all tables/:table/data
(though it's not exactly the same for the 0 case.)

Hi, i just posted a new bug on rambo: When calling 'request-file 
and clicking on Cancel, the value returned is %none instead of none 
--> makes more complicated to test the returned value. I tested under 
Windows XP

>> type? request-file
== none!

Do all these crc functions require the whole file to be read into 
memory?

crc-32.r with gigabytes files: [don't do it] - it works, the memory 
used isn't size relative - but on a 1GHz PIII, the speed is < 300 
kbytes/s! 
rebcode version is a lot faster (>2Mbytes/s), but 
1) rebcode isn't part of official releases 
2) the rebcode version of 'crc-32 needs whole file in memory.

so, back to RAMBO: #3650 - I vote for 'crc32 as another 'checksum/method, 

and maybe a RAMBO ticket for a port aware version of 'checksum would 
be a good idea.

I've just found 'request-download function and it seems to me it's 
buggy. Can anybody confirm this?

>> request-download http://rebol.com
connecting to: rebol.com
** Script Error: Cannot use insert on this type port
** Where: read-thru
** Near: write/binary file data
if all

I was looking for some request function and found this one. There 
are more non-functional functions in REBOL AFAIK.

>> link-relative-path %./
** Script Error: link-root has no value
** Where: link-relative-path
** Near: either f: find/match file link-root

The request-download bug above I think is caused because file is 
actually a directory. So, the port type is 'directory and so the 
insert fails.

request-download usually works fine, you just need to provide a file. 
it downloads to the cache by default.

A better error message can be thrown in read-thru by detecting the 
url without a file component.

>> read-thru http://rebol.com
connecting to: rebol.com
** Script Error: Cannot use insert on this type port
** Where: read-thru
** Near: write/binary file data
if all

I think the wisest thing to do when given a url without a file component 
is throw an appropriate error. I don't advise downloading anything 
because we don't know how the webserver is mapping the url to its 
filesystem (if it is in fact doing that.)

I think I'll try to make a forever loop and log stats to a file, 
then maybe graph the stats to see what happens towards the end.

Well you're graphics guys, while I mostly do file and data manipulation.

#4124 "set-modes doesn't work on file directories" - maybe add a 
note to Paul here that "the filesystem may not support setting all 
of the modes that are gettable by get-modes. For instance you can't 
set modification-date, but you can set the owner-write flag." Maybe 
there should be a more informative access error type, not just "Cannot 
open ...".

; Crash
write %test.r {rebol [] do %test2.r probe system/script/args}

write %test2.r {rebol [] system/script/parent: none} ; <-- naughty 
parenticide

do %test.r ; <-- DO file makes an error but doesn't really survive
do %test.r ; <-- so this second attempt shuts down console

continuing from View: Since you can opt not to install Rebol/View 
in Windows, how about a no-file-pollution option, where REBOL itself 
will never create dirs or files, like the public dir?

Graham: I might not quite be getting it but this style works for 
me.  Wrap your code in a "go" function and then ; Loop forever
forever [
    if error? result: try [go] [
        errobj: disarm result
        errorlog [mold errobj]
        either noask [
            alert reform ["There has been an error logged"
                  newline copy/part mold errobj 200

                  newline "See File/Configure/View Error File/ for more info"]
        ][

            unless question/title reform ["There has been an error logged."

                                  newline copy/part mold errobj 200] "Continue?" [
                print ["Type Q to quit, GO to restart FirM"]
                halt
            ]
        ]
    ]
    ; halt
    recycle
]

Gabriele, I have noted that in a file. You will never have to remind 
me of that again, hopefully.

but - I would definitely vote for =include command - both for code 
and another text file, so you would be able to construct more complex 
docs from smaller parts ....

I use =include to build my reference manuals and file lists inside 
other docs. It's quite essential that it works for me.

Have any of you looked close at the MakeDoc2 formatter? It's a 2-pass 
parsing, first converting the text to rebol blocks, and then parsing 
the block(s) producing HTML code. Of course it's smart, because if 
you wanna make a parser producing e.g. PDF code, you only have to 
make a new second level parser. And there's also the problem with 
Table Of Content, which can only be completed after the first pass. 
My first approach with my NicomDoc format was to make a 1-pass parser, 
and build the TOC along the way as separate text, and then only combine 
the TOC and the rest of the document before output. Benefit with 
1-pass parsing would be speed, but downside is, that you need a new 
full parser, if you wanna make PDF code. Then again a parser going 
from some rebol block format to e.g. PDF would probably be almost 
same size as going from a text format (NicomDoc or MakeDoc) to PDF. 
hmm What about XML? Making an XML file from some rebol blocks would 
be pretty easy, same the other way. What should I do? Make a 1-pass 
or a 2-pass formatter?

update: I just extended make-doc-pro to support forms. Looks like 
this:

Test of Form Dialect in make-doc-pro

=toc

=options debug

===Introduction
This file test the form generation dialect.

\form test.cgi
	cgi-bin http://localhost/cgi-bin/

	; same-width with fields & buttons
	same-width left [
		field "Name1"
		field "Name12" 10
		field "Name123" 10 20
		field "Name"
		radio "R1" [Robby Linna Bunny Blacky]

		btn-enter "Abschicken"
		btn-cancel "Abbrechen"
	]

/form

>> do %mdp-gui-v1.r
Script: "Untitled" (6-Oct-2004)

** Script Error: split-path expected target argument of type: file 
url

** Where: func [face value][browse join (first split-path config-data/current-file) 
%makedocpro.
html]
** Near: first split-path config-data/current-file

Ashley thank you very mutch for the tips ;) I will work on special 
adaptation to MDP format requirement on the redering process. Option 
tu use makedoc 2  sure but in this case your cute MD2IDE will be 
deprecated and I  doesn't want that... MDP and MD2 have similar form 
but diferent kind of rendering processs. I don't want to make a monster 
application ... I want to make a quick usefull little GUI to write 
aesyly MDP formated programs with lot of automation like save on 
quit, recent file list, etc...

graham yes the help is not included into MDPGUI it's included into 
the MakedocPro.r directory (makedocpro.txt) so normally I use the 
MDP.r directory path to find the help file

Graham: On first run config pan 's cancel button will pop up an alert 
message if the config-file is not existing

Graham her you get the patch for this proprlem that allows you to 
not redownload it :
add this code in config-pan: 

btn-cancel "Cancel" [
			either exists?  mdp-config-file [ 
				unview/only config-win 
				if not viewed? main-win [mdp-gui-init]

   ][ alert "It's my first run baby !! ^/ You need to fill properly 
   the config form !!!" ]
			
		]

and has you notice it (cause you are very clever) both format have 
no format heading in files like =MDP or =MD2 at the very begining 
of the .txt file witch countains the

in actual way we have to parse the MDX(retake of sunanda notation 
see up)  file then create a page with will content style and data 
to so in this operating way making complicate conposing like a heavy 
colored text or a content linked table of content (=toc) will include 
a new parsing statement in the parsing statement this will increase 
a slow rendering process

So, I could just edit the HTML file and add it afterwards?

maybe later i will wrap all the zip package into a .exe file using 
grebox wrapper from shadwolf and spag' :)

The Header File value on your MDP-GUI script needs to point to the 
script not the ZIP.  I believe that is your problem...

So changing the File value in the script header to %mdpgui1-4-1.r 
should make it work...

Is the actual ZIP file that you are uploading named %mdpgui1-4-1.zip 
???

Have you tried changing the script file extension from .ZIP to .R 
???

new flags on signalling end of file transmission?

It could be quite simple in fact (at least in theory) :


1) Send a first message telling the name and size of the file (unprocessed) 
to transmit
2) Send the file in parts (done automatically by Uniserve)

3) Catch the 'on-write-chunk event to process the chunk data (compress, 
encode...) then add a header containing :
     - size of the chunk

     - a sequence ID (an incremental counter starting with 1, 0 would 
     mean last chunk)

Please find here : http://softinnov.org/tmp/UniServe0919.zipa snapshot 
version of latest UniServe sources. It fixes some of the issues I've 
been asked about (UDP support for example). It's a beta version, 
no updated docs, no samples. ChangeLog in %uni-engine.r file. Any 
questions ? Ask them here, I'll answer as my available time permits.

but the modules are loaded when needed, so you should make some more 
improvements to make one-file build

Hi Scott, my fault, the release archive contains a duplicate HTTP 
protocol file, so they collide on loading. Just remove the following 
file : uniserve/protocols/HTTP2.r

Mchean - if you are using latest demo version, go to uniserve/protocols, 
and remove http2.r file - it was mistake of DocKimbel, who mistakenly 
left the testing file in the archive ...

Localhost doesn't respond in the browser, and there is no http2.r 
file andy other suggestions?  I'm have very little experience with 
servers so don't know where to startt

just go to services/HTTPd.r file and edit the prefs

the file is probably not in the best shape as there are some probes 
which are probably because of debugging which was Doc making at the 
moment when he gave it here

And there is another bug in the UniServe0919 - there should be this 
in the file %services/task-master/task-handler.r (the [not value?] 
check is not enough):

if any [not value? 'uniserve-path none? uniserve-path] [uniserve-path: 
what-dir]

if any [not value? 'modules-path none? modules-path]   [modules-path: 
dirize uniserve-path/modules]

if any [not value? 'uniserve-port none? uniserve-port] [uniserve-port: 
9799]

there is file %libs/cookies.r so one can take a look at it, if needed

Doc, what I want to do is do some text to speech using a 3rd party 
web service.  I need to download the generated wave file and play 
it by inserting it into a sound port.

The read would be blocking if I use sync read, and then playing it 
thru a sound port in my experience does interfere with async tcp.

In a nutshell, is this sort of activity suitable for a task-master 
service .. and is there a simple sample of such a service?
The task would be triggered from an RSP page

So, if I understand correcty, you need to download a file on client 
side from a web server without blocking on the client side ?

I've got Univserve/cheyenne running on localhost.  I want my client 
to ask uniserve to download a file using one of it's processes and 
then play it through a sound port.  My client uses a http request 
and wants that to be non blocking ie. return immediately.  The client 
may itself not be capable of doing an async request.

host file

In the same time it was serving MP3 from modified micro-http service 
using something like:
    on-received: func [data][
		write-client rejoin[
			{ICY 200 OK} crlf
			{icy-name: LocalRadio} crlf
			{icy-genre: whatever} crlf
			{icy-url: http://127.0.0.1:811} crlf
			{content-type: audio/mpeg} crlf
			{icy-pub: 1} crlf
			{icy-br: 128} crlf 
			crlf
		]
		write-client path-to-mp3-file
	        close-client
    ]

By the way, old HTTPd service (in 0.9.9 zip) runs well for HTML pages.
But gives following error when I request show.cgi file:

and sometimes the types have nothing in common. think of a function 
which accepts a file, logic or none (as 'echo does).

louis, the one on rebol.org seems to be a bit old. the one I have 
locally can generate bitmaps as image! in 1x, 2x, 4x and 8x size 
and vectors for PDF Maker. it can generate an EAN13 code with the 
correct checksum. it doesn't save to file, but it's only a couple 
of lines of code to do that

The link in the old file doesn't work.

Also, let me confirm something, can I take any existiing PS file, 
and simply pass it to this, and it will render it?

Well, the dialect doesn't take PS as input, it produces PS. A PS 
file can be printed from REBOL in a way, Graham showed. Like:
>> port: open/direct tcp://192.168.1.253:9100
>> insert port read %boys-0-36-length-weight.ps
>> close port


192.168.1.253 is the IP of the printer, 9100 is the port, where the 
printer get data.

Reichart, the thing, you're asking, is taking a PS-file as input 
and render it, like GhostView does. It'll take a bit more work to 
parse PS-files, but it's not impossible. I have no intension doing 
that for now though.

The prolog is quite important to allow document managers to manage 
the postscript file properly.

It was interesting to note that postscript file managers can pull 
out the colour graphic pages and send them to be printed on colour 
lasers, and let the rest be printed on the monochrome lasers.

Looks like images can be incorporated into the ps file as hex data.

New version of postscript.r uploaded! I've add the prolog %! and 
epilog %%EOF as Graham suggested. I also wrapped paths in the postscripts 
commands gsave and grestore, so transformations give less trouble. 
Try this:

do http://home.tiscali.dk/john.niclasen/postscript/postscript.r

write %test.ps postscript load http://home.tiscali.dk/john.niclasen/postscript/test.txt


You now have a postscript file "test.ps" produced by the dialect. 
It's content looks like this:
http://home.tiscali.dk/john.niclasen/postscript/test.png

To see, how using the dialect look in use, see the "test.txt" file.

The output postscript file from the dialect can be sent to a postscript 
printer, so no driver is needed.

this is the source file which looks a little different

my output file is a little shorter than yours, but only because I 
didn't bother creating the prolog / epilog

this is a multipage postscript file

the print button, unimplemented, would send the post script file 
to your printer.

I am previewing my draw doc, and when I generate the ps file, the 
coordinates are to the north-east in the ps file.

when you click on the "print" button, it generates a test.ps file 
which is the postscript "equivalent" of the stuff on screen ... except 
for the rotated objects

I map the standard postscript fonts to the free GNU postscript equivalents 
in that zip file I mentioned.

an eps file is just a postscript file which obeys certain conventions.

this version allows you to print to a network printer, to lpt1, or 
to a disk file, and then it calls the RoPS viewer.

Graham: yes, and data is parsed from the Adobe Font Metrics file 
and included in pdf-maker.r for the 14 standard postscript fonts.

A postscript printer is a printer, that understands the postscript 
format. It reads the text commands, a postscript file is, and print. 
Data like images is inside the postscript file as hex or something.

(Of course if the printer isn't a postscript printer, and you want 
to print a postscript file, you need a driver to convert from postscript 
to the format, the printer understands. So people without a postscript 
printer can still print from postscript-producing REBOL programs. 
They then just need a printer driver.)

oops, I remembered wrong. Opening a HTML-file in OpenOffice gives 
you an HTML editor (without the concept of paper-pages). I'll make 
a test...

The idea of file line numbering for debugging is a possibility for 
Rebol 3.1 maybe. (I don't care much for it myself).

basically, go to the properties for the .r file association in explorer

this goes to the client side... which also loads your JS file with 
the classes for your card and molecules

generate-content: func [
        is-card content-generator cardid
        dimensions js-files dialog-arr args
        /local
        l_width l_height l_id l_src js-classname
    ] [
        l_src: none
        if not is-card [l_id: cardid]
        switch content-generator [
            "file.fileshare" [
                obj: make quilt/ret-obj [
                    src: build-fileshare
                    title: "Your files"
                    short-title: "Files"
                ]

                quilt/add-dialog dialog-arr "fileupload" "FileShareUpload" rejoi
n [
                    "<p>Please select a file to upload:</p>"
                    quilt/basic-molecule/class/id {

            <iframe src="about:blank" style="border: none; height: 60px; width: 
250px;">IFRAME not displayed!</iframe>

            <p style="display: none;">Uploading file... <img src="/images/Qtask-
Bar-64.gif" /></p>

Volker + dog photo: the first demo of packages on REBOL.org:

http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-package-file.r?file-name=image4.jpg&script-name=lds-demo1-package.r

whould be done by next week, I guess I'll keep it for the actual 
file release.

IIRC they have different disk access methods, but have their own 
File system which kicks out the os, so that they can properly implement 
the DMA. also note that their memory model has no memory fragmentation 
 the available ram and disk space is always contiguous!!