AltME groups: search

because pathes are often used for filenames. dir/file.r . and this 
datatype-exceptions slip easily through attention. and then we think 
"hu?".

that could be solvable: convert the part to a string (or file). block 
then has a string. if you do to-path block, you get dir/"042", but 
that should be ok (with new pathes). its not more "buggy" than making 
42 from 042 IMHO. would be nice to get this, and pathes ending with 
"/" :)

i think that paths were and are not intended for file paths. that's 
what file! is about.

IMHO, Paths were definitely meant to be able to files you just have 
to realize that you are dealing with a path not a file datatype.

they CAN be used for file paths too but their PURPOSE is not that 
of being used for file paths :)

i'm against adding special rules for paths, not against using paths 
with file values :)

IIRC in the bbs-project Carl prefered [data-file: dir/file] over 
[data-file: join dir file]. i prefer that too, but currently no "/", 
so [data-dir: dirize dir/file], ugly IMHO.. And now comes changing 
file-names when they are numbers. thats a bit risky to me.

The advantage of using dir/:file is that if dir has no ending /, 
it will be added.  JOIN does not have that feature.

3662 parse/lines second arg: how to split into lines and apply the 
rule to each line?

 a grep:   parse/lines string-with-list-of-file-names [ set file thru 
 ".r" end ( ?? file ) ]

[Cyphre | Gabriele]: Do you still need more information about the 
Win98 crash or is it solved?

If needed I can send an echoed trace log file to your email address.

init-connection: func [
		new /service server 
		/local proto evt list len names i fun
	][
		new/locals: context [
			handler: any [
				all [service server/server-type]
				proto: select protocols new/locals/1
			]
			write-queue: copy []
			file-chunk: 64 * 1024
			stop: handler/stop-at
			in-buffer: make binary! 64 * 1024
			file: flag-close: events: none
		]
		if proto [
			evt: reduce new/user-data
			help new/locals
			list: array len: length? names: new/locals/handler/events
			i: 1
			until [
				if fun: select evt pick names i [poke list i :fun]
				len < i: i + 1
			]
			new/locals/events: list
		]
		actives/add new
	]

NEW/LOCALS is an object of value:

   handler         object!   [name port-id hidden peer stop-at shared 
   module ev...
   write-queue     block!    length: 0
   file-chunk      integer!  65536
   stop            none!     none
   in-buffer       binary!   #{}
   file            none!     none
   flag-close      none!     none
   events          none!     none

NEW/LOCALS is an object of value:
   write-queue     block!    length: 0
   file-chunk      integer!  65536
   stop            char!     #"^/"
   in-buffer       binary!   #{}
   file            none!     none
   flag-close      none!     none
   events          none!     none

** Script Error: Invalid path value: handler
** Where: init-connection
** Near: list: array len: length? names:

; find version
cont: read/binary file
version: none
result: parse/all cont [
	some [

  [to "REBOL/View " "REBOL/View " mark: version-rule end: (version: 
  copy/part mark end) to end]
		| thru "REBOL/View "
	]
]

it has been fixed. btw, the error actually came from to-local-file, 
i think.

So before to start to will load htose things you need to know what 
is the library dependencies. On linux you can see the MAKEFILE file 
related to one of the tutorial program integred to the GTK  package 
for example and see the -l*.a entries to have a complete idea of 
the library needed and the order of library dependencies

I'm agree with the idea that loading complicated heavy splitted and 
many dependent library libs GTK  popup up that we have to seek a 
better library loading system. Dependencies of libraries is a very 
weak point. Think of it ... First you have to load the librariries 
in the dependence chain in the right order and make a rebol script 
file to be able to treat in rebol script code the calls of function 
of those libraries (for example GTK sofware unsed commonly lots of 
function that are builded into many different librairies in the dependencie 
chain (like g_malloc() instead of malloc(), gint type instead  int 
type, gchar type intead of char, g_thread**() instead of  thread**() 
etc...)

If this fonctionnality remains payant we at most need to rethink 
internally the way to work or build an intermediate library loading 
system script that allows people to load the library without the 
needs of wrtiting by their howns the bridge or a tools that take 
a makefile of a sample program and the include file and generate 
a rebol script bridge for any library that must be loaded to use 
the wanted libraries thos bridges script files must then be supplyed 
as the libraries and the program script in rebol that exploit those 
libraries

#3755 : not a bug - it's just a syntax problem: "file: read %//server/share/file" 
doesn't work but "file: read %/server/share/file" does. {to-local-file 
%/server/share} and {to-rebol-file "\\server\share"} gives the expected 
results.

Will 'create-link be included in final 1.3? If yes, there's a number 
of issues:

- create-link %/c/foo.txt "d:\bar.lnk" will create a link to "current-path\c\foo.txt"
- create-link %/c/foo.txt %/d/bar.lnk don't work
and the big security hole:
    secure [file ask]

    create-link %anything.dat "c:\my-file-to-overwrite.exe" ; bypass 
    sandbox
RAMBO?

As the file handling has been fixed, someone can write an external 
installer that can do the trick if necessary, but at least moving 
the appropriate registry key would help a great deal.

file: %/volume/directory/file.r
path: find/match file %/volume/  ;== %directory/file.r
split-path path  ;== [%directory/file.r %file.r]  ; <--- wrong !!
split-path copy path  ;== [%directory/ %file.r]

my secure query looks as follows: [net allow library ask shell ask 
file ask %/c/program files/rebol/view [allow read ask write

 ask execute] %/c/documents and settings/ladislav/data aplikací/rebol 
 allow %/c/program%
20files/rebol/view allow]

Is that intended?

I've not needed a stack so far in REBOL.

In other languages, I usually find myself writing a complete thing 
like Robert has mentioed.

The full works in REBOL would look something like:
  stack/create "xxx"     -- create a new stack called "xxx"
  stack/push "xxx" item  -- push item 
  stack/pop "xxx" item   -- pop item
  stack/peek "xxx"       -- return top item without popping it
  stack/length? "xxx"    -- how many items
  stack/clear "xxx"      -- remove all entries

  stack/discard "xxx"    -- remove all entries and delete the stack

  stack/save "xxx" %file -- write it to a file (may not always be possible)
  stack/read "xxx" %file -- reset to contents of the file

  stack/probe "xxx"      -- return a block of all entries (for debugging)


And, as a stack has  a unique name, an application can be using more 
than one at once.

the microwebserver at http://www.rebol.org/cgi-bin/cgiwrap/rebol/view-script.r?script=webserver.r
doesn't decode spaces etc so comes a cropper if the file on disk 
has a space in it.

Well, maybe split-path is not so useful sometimes, but at least it 
says what it is doing :) I think what we want most of the time is 
the dir-part and the file-part of a path (actually these are functions 
I use). I think they are more useful in general. The problem is in 
coming up with a good name to describe this behaviour..... maybe: 
   to-dir-file-parts %my/path  ;== [%my/ %path]    ?

As you said: file-part, dir-part

Has onyone manged to use Core with an iSeries (AS400) FTP server.

I have had no success at work .... it trying to read a folder in 
the IFS (Integrat File System) but the server returns a FTP error 
250.

(I dont have all the details on me at home).  Now looking at the 
FTP error numbers 250 is a normal return code, so I dont understand 
why I am not getting any information back.

Isn't what slim does ? Holding paths for code library (scripts) and 
allowing to just slim/load %script-name.r where the file is in one 
of the folder in slim path !!

rebol []
  
     secure [   net allow  file allow  ]

I guess you have to access to the whole file in memory to calculate 
md5s ...

need some other checksum that can be calculated by loading parts 
of a file at a time.

Vincent: almost, it is not easy: you must 1) read a chunk of data, 
parse it 2) when parse stop remember the position where it stops 
3) delete parsed data 4) read a ne chunk of the file 5) append it 
to the old data 6) restart parse from the right rule (this is the 
hardest part)

After all a file is just a binary! series

Romano: thanks, I will try it - I have a version of rebzip decompressing 
a file while it's downloaded, but the code isn't pretty (two nearly 
same funcs.)

Is there a way to get the name, file, or line number of a function's 
caller?

I am writing this file/directory replication tool, and I want to 
preserve the dates on the newly created directories

Hi, is it possible to restore the date of a file which was read via 
ftp?

IIRC depending on the desktop manager you use, you can open icons 
with a shell automatically.  and can ask the manager to hide the 
shell until the app bums out.  look into the icon's properties... 
This might also only be an option for .r file associated icons themselves 
(not rebol, but for script with an icon).

Rebolek: that would be more or less correct, however the format of 
the library usually depends on the OS, so it can't be the same file 
in most cases.

write %test.r {rebol [] print "hello"}
launch join what-dir %test.r

and it complains it can't find the file.

exactly, to the ttf file (for AGG only, not face/text)

the Linux file requester needs some arrow widgets on the scroller. 
 It's very difficult to navigate a directory with lots of files.

Post the REQUEST-FILE source then, we can have a look.

request-file: func [

    {Requests a file using a popup list of files and directories.} 
    /title "Change heading on request." 
    title-line "Title line of request" 
    button-text "Button text for selection" 
    /file name "Default file name or block of file names" 
    /filter filt "Filter or block of filters" 
    /keep "Keep previous settings and results" 
    /only "Return only a single file, not a block." 
    /path "Return absolute path followed by relative files." 
    /save "Request file for saving, otherwise loading." 
    /local where data filt-names filt-values
][
    if none? out start-out 
    either file [

        either block? name [picked: copy name] [picked: reduce [to-file name]]
    ] [
        if not keep [picked: copy []]
    ] 
    if none? picked [picked: copy []] 
    if file: picked/1 [where: first split-path file] 
    while [not tail? picked] [
        set [name file] split-path first picked 
        either name <> where [remove picked] [
            change picked file 
            picked: next picked
        ]
    ] 
    picked: head picked 
    if any [not where not exists? where] [where: clean-path %.] 
    if not keep [
        fp/data: head fp/data 
        so/data: head so/data 
        si: 1
    ] 
    either filter [
        filters: either block? filt [filt] [reduce [filt]]
    ] [if any [not keep not block? filters] [pick-filter]] 
    ff/text: form filters 
    tt/text: either title [copy title-line] ["Select a File:"] 
    ob/text: either title [copy button-text] ["Select"] 
    if all [
        error? done: try [
            filt-names: copy head fp/data 
            filt-values: copy filter-list 
            either filter [
                insert head filt-names "Custom" 
                insert/only filt-values filters
            ] [
                filt-names: at filt-names index? fp/data
            ] 
            done: local-request-file data: reduce 

            [tt/text ob/text clean-path where picked filt-names filt-values found? 
            any [only] found? any [save]] 
            if done [
                dir-path: data/3 
                picked: data/4 

                if not filter [fp/data: at head fp/data index? data/5]
            ] 
            done
        ] 
        (get in disarm done 'code) = 328
    ] [
        done: false 
        read-dir/full either where [where] [dir-path] 
        show-pick 
        inform out 
        unfocus
    ] 
    if error? done [done] 
    if all [done picked any [path not empty? picked]] [
        either path [
            done: insert copy picked copy dir-path 
            either only [done/1] [head done]
        ] [
            foreach file picked [insert file dir-path] 
            either only [picked/1] [picked]
        ]
    ]
]

This is the same source as on Windows.

REQUEST-FILE is just a wrapper for LOCAL-REQUEST-FILE, which is native 
on Windows and I suppose might be native on Linux.

You must post source of LOCAL-REQUEST-FILE or rambo the problem if 
it is native.

Ok, so post the source of LOCAL-REQUEST-FILE here.

*nixes used to just use cp file /dev/lp.

REQUEST-FILE used to be fully mezzanine.
Does the linux request-file look like this one from View 1.2.1 ?

request-file: func [

    {Requests a file using a popup list of files and directories.}
    /title "Change heading on request."
    title-line "Title line of request"
    button-text "Button text for selection"
    /file name "Default file name or block of file names"
    /filter filt "Filter or block of filters"
    /keep "Keep previous settings and results"
    /only "Return only a single file, not a block."
    /path "Return absolute path followed by relative files."
    /local where
][
    if none? out start-out
    done: false
    either file [

        either block? name [picked: copy name] [picked: reduce [to-file name]]
    ] [
        if not keep [picked: copy []]
    ]
    if none? picked [picked: copy []]
    if file: picked/1 [where: first split-path file]
    while [not tail? picked] [
        set [name file] split-path first picked
        either name <> where [remove picked] [
            change picked file
            picked: next picked
        ]
    ]
    picked: head picked
    if any [not where not exists? where] [where: clean-path %.]
    if not keep [
        fp/data: head fp/data
        so/data: head so/data
        si: 1
    ]
    either filter [
        filters: either block? filt [filt] [reduce [filt]]
    ] [if any [not keep not block? filters] [pick-filter]]
    ff/text: form filters
    tt/text: either title [copy title-line] ["Select a File:"]
    ob/texts/1: either title [copy button-text] ["Select"]
    read-dir/full either where [where] [dir-path]
    show-pick
    inform out
    unfocus
    if all [done picked any [path not empty? picked]] [
        either path [
            done: insert copy picked copy dir-path
            either only [done/1] [head done]
        ] [
            foreach file picked [insert file dir-path]
            either only [picked/1] [picked]
        ]
    ]
]

(LOCAL-REQUEST-FILE was introduced by View 1.2.5, by the way.)

request-file has a premade layout somewhere. Use that. You have the 
source for request-file in the sdk-sources. Needs some binding-tricks 
if you dont use the real source.

Playing with View 1.2.1 REQUEST-FILE

You can bind the patched REQUEST-FILE body to the REQ-FILE context, 
and that makes it work.

replace/all select req-file/start-out [out: layout] 'slider 'scroller

my little fax monitor script that was supposed to pick up new faxes 
and ftp them to me failed as it lacked the permissions to read the 
file

when the fax is received, it invokes a bash script.  But I just remembered 
that I also call my rebol script from that bash script that creates 
the file in question.  So, I should be able to make it readable to 
my other script to ftp it to me.

Hi Phil,


*nix doesn't use drive-letters, so _all_ drives show up somewhere 
under the root as directories. _Where_ they show up is up to you 
;-)

Drives are "named" /dev/hda1 (first paritiion on first disk), /dev/hdb3 
(third partitiion on second drive), etc ...

There's a file, which describes the mapping, where your drives are 
put, in Rebol

print read %/etc/fstab


the first two columns show where ich drive is put in the directory 
tree (and then some more info)

or you can do 

call "mount"

which displays the currently mounted drives.

I get following error message with my old Fedora Core install. I 
can't run SDK (dated 2.8.2006) rebols, it throws following error 
to the console:


/usr/local/rebol-sdk-cmd/bin/rebcmd: error while loading shared libraries: 
libstdc++-libc6.2-2.so.3: cannot open shared object file: No such 
file or directory

now to find to file that"hopefully" will get set-browser-path working

As per btiffin's suggestion, I added "&" at the end of the script 
name in my S99local file to background Cheyenne, and it is now working 
:)

the script rotates the fax in 90 deg increments until it can make 
some sense of the tif file

or just a .txt file with the same name as the tif

Can we file share here...never tried it.

You can use a file tree on disk or through FTP. Not sure how to copy 
the mulyiple CDs into one tree

Newbie to Ubuntu ... how do I install Rebol on Ubuntu s that I can 
double click on a .r file and it to run Rebol ?


I have downloaded the Debian version of View ... if I double click 
on the Rebol executable I getthe desktop .... if I then click on 
the Console the desktop dissapears but I dont get a console.
Any ideas ?

also, you should be able to add the .r association manually in the 
file browser. i have it working in kubuntu.

Sorry, Carlos...I'm a Debian user, but I serve the web using Cheyenne. 
 I'm not sure what you need exactly, but I would have started here 
 http://httpd.apache.org/docs/2.0/mod/mod_mime_magic.htmlSo one 
you have the mod_ file in the right place, it seems you need to configure 
with

MimeMagicFile conf/magic


to use the default list of magic numbers.  If you need more drop 
another note.

I can run Magic! under Apache 1.5 on my machine; I don't have Apache 
2 installed.


I have magic.cgi installed in the cgi-bin directory (equivalent of 
your cgi-script) and access the .rhtml pages from another directory. 
This is my setup:

In the httpd.conf file:

AddHandler magic .rhtml          
    Action magic /cgi-bin/magic.cgi

in the URL/cgi-bin folder 
 magci.cgi

in the URL/magic folder
 test.rhtml

page accessed via http://URL/Magic/test.rhtml

Hope this helps

Peter, it really helped me. I´ve found my mistake on the httpd.conf 
file. Now it works. Thank you!

if in console, I would do the same using some console tool. Or simply 
delete mailbox and create empty file of particular name and attributes. 
But I never tried it :-)

Has anyone a syntax file handy for use in gedit, the default text 
editor in gnome?

was looking also but didn't find one.
try this nice editor instead: http://www.scintilla.org/
syntax file & function folding included.
also available via paketmanager -> scite

On my ubuntu setup, when I click on a rebol file in nautilus, I get 
the following:

The filename "syncro.r" indicates that this file is of type "r document". 
The contents of the file indicate that the file is of type "plain 
text document". If you open this file, the file might present a security 
risk to your system.


Do not open the file unless you created the file yourself, or received 
the file from a trusted source. To open the file, rename the file 
to the correct extension for "plain text document", then open the 
file normally. Alternatively, use the Open With menu to choose a 
specific application for the file.

sorry, you mean edit the mime type configuration file in gnome?

I want to create a backup script that calls a backup utility, but 
I want to create the target file with today's date and time.

sorry, I wasn't clear .. I want to name the file with today's date 
and time.

Did anyone find a method to determine if a file is actually a symlink 
?

I'm trying to fix my recursive file searcher. My wine installation 
creates some symlinks which point up to a parent directory, creating 
an infinite loop.

I'd start with get-modes ... 'file-modes  but I can't test from here 
on Win98

file-modes doesn't seem to have anything

>> print mold new-line/all/skip get-modes %Desktop get-modes %Desktop/ 
'file-modes on 2
[
    status-change-date: 26-Mar-2008/12:29:33+11:00
    modification-date: 26-Mar-2008/12:29:33+11:00
    access-date: 27-Mar-2008/13:29:25+11:00
    owner-name: "anton"
    group-name: "anton"
    owner-id: 1000
    group-id: 1000
    owner-read: true
    owner-write: true
    owner-execute: true
    group-read: true
    group-write: false
    group-execute: true
    world-read: true
    world-write: false
    world-execute: true
    set-user-id: false
    set-group-id: false

    full-path: %/home/anton/.wine/dosdevices/c:/windows/profiles/anton/Desktop
]

That would need to be done for every file and would slow down the 
filesearch considerably.

Yeah if you do go bash, (I'm not sure how you get your file list) 
ls -F will append @ to links instead of looping over test -h

If you know what the target file is, then you can overwrite it if 
you have the permissions. Finding out what the target file is may 
need a shell command though.

So it looks quite possible for a binary to delete the file it came 
from.
I'm using Kubuntu.

yes, in most operating system you can unlink a file while it's being 
used. the file will disappear from the directory structure but will 
still be taking space on disk as long as it's being used. as soon 
as all the references to it go away, the disk space is freed.

I'm a little bit confused;  I didn't read the dd and gzip part until 
just now.  You want a compressed mirror?  I don't think that will 
ever cmp true to the original.   dd will include partition table 
info that is normally "invisible to the naked eye".  Including that 
in the compressed file doesn't give dd the chance to dump the invisible 
bits back into invisible places.


Or am I more than just a little bit confused?  Maybe Kaj will come 
by shortly and fill us in with the technicals instead of the voodoo. 
 :)

For backup purposes, be aware that dd-ing a partition mounted read-write 
is likely to result in a more or less inconsisten state of the backup, 
as data is changed on the partition at the same time, and dd has 
no knowledge of the file structure

The Open Source community took an emotional hit when veteran Linux 
programmer Hans Reiser was convicted of first degree murder. How 
will this verdict impact the technology in play for Linux file system 
dominance?  

Are there any advantages of one over the other?  I have only used 
PGP.  What I like is:


I can create a file (x.pgp) of any size, then mount it as a drive. 
 This allows me to do things like make a file that is the size of 
a DVD disk, and if I need to burn it I just copy the folder to the 
DVD drive.  Although, since Qtask exists, I stopped burning CDs and 
DVDs, since my data is safer on Qtask.

you don't need that sw imo ... and I uninstall most. IBM has thre 
part of Tivoli (maybe, not sure), you simply can have image file 
somewhere, then booting, pressing F12, password, and you can unpack 
your image when you reinstall ...

Console:   0:00:01.422 - 356 KC/S
Processor: 0:00:00.611 - 1414 RHz (REBOL-Hertz)
Memory:    0:00:01.452 - 32 MB/S
Disk/File: 0:00:00.271 - 112 MB/S

Console:   0:00:01.282 - 394 KC/S
Processor: 0:00:00.731 - 1181 RHz (REBOL-Hertz)
Memory:    0:00:01.412 - 33 MB/S
Disk/File: 0:00:00.24 - 127 MB/S

Are these very fast speeds for %server-speed.r :

Console:   0:00:00.672 - 753 KC/S
Processor: 0:00:00.25 - 3456 RHz (REBOL-Hertz)
Memory:    0:00:00.625 - 76 MB/S
Disk/File: 0:00:00.172 - 177 MB/S

It's considerable better than REBOL.org -- which runs on the original 
8086 chip as far as I can tell :-)
Console: 0:00:00.11134 - 4546 KC/S 
Processor: 0:00:00.704108 - 1227 RHz (REBOL-Hertz) 
Memory: 0:00:03.0809 - 15 MB/S 
Disk/File: 0:00:09.183468 - 3 MB/S

Petr, yes I mean struct! in /Core. I keep on having situations that 
could use struct! when I don't need libraries. For instance, conversions 
from external binary data encodings to internal REBOL values, say 
for file formats, network protocols, and so on. Now rebcode has added 
other forms of strong typing like the type-specific opcodes and the 
vectors. Having structs, their constrained field types, their specific 
data layouts, would be a perfect match for the low level operations 
of rebcode. They would be helpful later when implementing your own 
data types as well.

Also, please tell me if the zip file  is a problem.  This zip file 
is being created by XP, not by zip, etc., so who knows if it really 
conforms to the proper standard.

Update on the work-in-progress : http://softinnov.org/tmp/test-page.zip


Both files are printed from the same Draw dialect source, using my 
printer:// scheme. The PDF file is printed through Bullzip PDF Virtual 
printer. The PS file is directly generated by the printer scheme 
(for UNIX/Cups direct printing).


Most of the PostScript support is done (see %test-page.ps), but there's 
still a lot of details to enhance/fix/add: 

o Add center/right alignement support

o Add underline style for fonts

o Fine-tune positionning and bold level.

o Fix minor differences with the GDI version.

To view the PS file, use ghostscript / gsview.

ie. I allow the template language to include an eps file