AltME groups: search

Hi there i recently had to do a job where i need to make use of read-net 
or read-thru because i needed to show a graph representing the amount 
of data beeing downloaded, but when it comes to write or save this 
is not possible because no callback is addmited, so i ask, is there 
a way to know how much data form a file has been uploaded or saved 
?

File download progress:

 The Library downloader tells you how much of a file it has downloaded. 
 http://www.rebol.org/library/public/repack.r

The magic is in the code that uses :hook  -- you'd have to ask Maxim 
for a full explanation.

Is there a way to use request-file to return a path without having 
to select a file within that path? I'm writing a reblet that requests 
a path so it can work on its contents. If I have to select a file 
then so be it .

maybe its possible to suggest a file, and if the user does not change 
the text that name is returned? need experimenting.

request-file/file %dummy ; works with wine-requester, i hope real 
windows too?

Again is there a way to know how many data is beeing saves to a file 
? write-net ? for example or is it just not possible w / rebol ? 
writing and reading both should share the callback option

... as for request-dir - today I saw another native one dialog. Dunno 
programmers do have to produce one themselves or not. It was with 
mySQL installation procedure. I looked like typical Windows request-file 
requestor, but it had set filter to "directory". Could anyone check 
on that, please? I really do not like that inconsistency in rebol 
...

REBOL [
  title: "Multi-File Search"
  author: "Henrik Mikael Kristensen"
]

search-function: func [/local files results] [
  results: copy []
  status/color: red
  show status
  nof-files: length? files: read to-file get-face search-dir
  forall files [
    if not dir? first files [
      data: read/lines first files
      status/text: join "Searching: " first files
      set-face status-progress divide index? files nof-files  
      show [status status-progress]
      forall data [
        if found? find/any first data get-face search-string [

          insert tail results reduce [first files index? data first data]
        ]
      ]
    ]
  ]
  status/color: gray
  results-list/data: results
  status/text: reform ["Results:" length? results "found"]
  show [results-list status]
]

main: layout [
  style header button 100x20 gray edge [size: 1x1]
  backdrop effect [gradient 0x1 200.200.200 180.180.180]
  across space 2 origin 8

  label white gray 300x20 "Search Multiple Files" font [align: 'center 
  size: 14] return
  search-string: field (as-pair 228 22) btn 70 "Search" [
    if not empty? search-string/text [search-function]
  ] return

  search-dir: field (as-pair 228 22) btn 70 "Directory..." [set-face 
  search-dir request-dir] return

  status: label white gray 300x20 "Results" font [align: 'center size: 
  14] return
  space 0x0

  header "File" header 50 "Line" header 132 "Text" box gray 18x20 return
  results-list: text-list 300x200 data [] [print "test"] return
  status-progress: progress gray white 300x10
]

set-face search-dir %.

inform center-face main

crude prototype, but it helped me find the file I had been looking 
for :-) I don't know how  to do actual multi columns with the internal 
text-list. the plan was to allow scrolling (I can't get that working) 
and when you click on a search result, the file pops up in the viewtop 
editor. feel free to perfect it...

Console:   0:00:16.274 - 31 KC/S
Processor: 0:00:00.631 - 1369 RHz (REBOL-Hertz)
Memory:    0:00:01.943 - 24 MB/S
Disk/File: 0:00:01.121 - 27 MB/S

I get:
Console:   0:00:01.703 - 297 KC/S
Processor: 0:00:00.406 - 2128 RHz (REBOL-Hertz)
Memory:    0:00:01.344 - 35 MB/S
Disk/File: 0:00:00.203 - 150 MB/S

on a 2.4GHz Pentium 4, 512 MB ram (not sure about speed, it's an 
ASUS P4P800 board), ATi Radeon 9600, not the newest drivers.

view center-face layout compose [
   across origin 0x0 space 0x0 backdrop black
   style btn btn gray black
   btn {Close} [quit]
   btn {Send} []

   btn {Add Attachment} [append Attachments/text join mold request-file 
   newline show Attachments]
   return

   Attachments: area 300x100 do [Attachments/feel: make Attachments/feel 
   [engage: none]]
   return
   txt 100 {To:}
   To: field 200 {[Izkata-:-GMail-:-com]}
]

Okay... If I put this at the beginning, it works.  But I don't see 
why it doesn't work that way in the first place..

req-file/out: do req-file/start-out

Ouch to me... Oh well.  I guess I'll have to make a "Do not repeat" 
file from now on. Now I remember, I did the exact same thing with 
the exact same word some time ago...

However, I did file a RAMBO report on this issue.

it shares then the readonly-files from the admins installation (exe 
etc), but uses a file in the users account for the others (public 
cache etc)

So RT had to choose between two aproaches: 


1) total non-installation (my preferred way is not to touch registry 
in any way), but then how would you associate .r file to your interpreter, 
where would you put your cache files, etc.?

2) installation - but how to obey the need to have power-user or 
admin rights? So they choosed installing Rebol for each account separately 
...

2. Look very strange. Have a look to your %user.r and %rebol.r file 
to see if there is not something hiden there.

i prefer not to have version-conflicts. changed something in cache, 
worked on another computer, had same (old file) there and nearly 
uploaded that. no problem when cache is cleard first.

no, simply put - go to Desktop, right-click any icon or file, choose 
"Edit"

Some editors can be controlled by call, by calling them with file 
and position. they use the curently opened window then. so you need 
only the navigator.

Even if the file is "big"?

I've also built a multiple file search tool. It's not complete yet 
as it doesn't yet search recursively, or launch the editor on the 
appropriate file, but it's helped me out a few times. I'll see if 
I can upload it...

it would be nice to be able to search something, doubleclick on a 
line and the editor opens and jumps to the right line... also if 
it could be incorporated the same way as we use request-file, request-dir 
and others

Has anyone run into a problem with "save" as in save/png where it 
sometimes doesn't want to overwrite a file? THe old file contents 
(in this case an image) is still there.

James, I sometime have problems with cache, I think. Try closing 
your rebol window and then look at the saved file. Sometime I reboot 
my machine to be 100% sure. At most times, I have no problem, so 
I haven't investigated it.

I thought of this little idea regarding the editor: Currently, it's 
depending on running a script from file, if you want to test something. 
But I was wondering if it were possible to edit data directly with 
it and just store it in memory?


Sometimes I like to debug a function without having to save it to 
a file and then run a program stored in a different file to run the 
test, e.g. Ctrl-E is useless.


It would be nice to directly in the editor, create a big function, 
say from a paste and do a few edits, press Ctrl-<something> and have 
that evaluated directly. Then you could quit the editor and use the 
function directly in the console without having to save any files.


Also if you want to re-edit the function, type in something similar 
to:


editor 'my-big-function and the editor would pop up with the function 
source and the word its bound to.

why not using a scratch-file?

scratch: func['value][
 save/header %console-scratch.r either word? :value[
  reduce[to-set-word :value get value]
 ][
  :value
 ][Title: "Console-scratch"]
 launch: func[file /secure-cmd][do file]
 editor %console-scratch.r    
]
halt

;since nobody is perfect:
scratch: func['value][
 save/header %console-scratch.r either word? :value[
  reduce[to-set-word :value get value]
 ][
  :value
 ][Title: "Console-scratch"]
 launch: func[file /secure-cmd /local err][
  if error? set/any 'err try[do file][unview/all err]
 ]
 editor %console-scratch.r    
]
scratchme: func[][]
scratch scratchme

hmm... and to get this function available at startup? I remember 
a user.r file somewhere...

some apps support it... Directory Opus can paste an image directly 
to a file

anton, I just meant a plain undo in the editor to avoid destroying 
your text file, by accidental pasting.

it might not be a bug in the editor, but try to load a large file, 
and select text with the mouse. you can't push the text scrolling 
down, if you go beyond the upper or lower window edge

Do you think editor should always start up with the last open file 
 (i.e. hit ctrl-E on desktop, open a file, close the editor, then 
hit ctrl-E again)

Why do you think so?   My natural reaction is to expect something 
blank, or at least not have to close a file that I don't want open. 
  While you don't "close" a document in editor, I have to sit and 
think, "is this something that I want to be open right now or not?" 
   I find it disruptive from a UI standpoint

well, I always start the editor from the console, where I can type 
in a file name, a string, NONE or something else. that way I get 
always what I expect. :-)

i am in favor of a fixed file. [editor view-root/scratch.txt ]

josh, the bottom bar, wouldn't it be useful for small messages? "text 
'test' not found", "26 replacements done", "file saved", etc.

I just unzipped it, hit enter on .r file, and using View 1.3.2 I 
got nice, full-screen presentation ... you use right-arrow to move 
to next slide ...

Right now all *data model* is a block. But you may want to be able 
to access a file of bytes and some particular fields in that stream.

LIST-VIEW version 0.0.16 uploaded.

Changes:

      Fix: LAST-CNT crashed on empty SORT-INDEX after filtering

      New: FILL flag to set whether or not to paint all rows in the list 
      view

      New: COLORS/4 contains the color of the background behind the rows.

      New: When resizing OUT-COLS in runtime, WIDTHS is reset to default 
      values

      Fix: Columns can now be appended or removed to OUT-COLS in runtime
      Fix: Changed behaviour so that DATA is always treated as
        a block of blocks if manipulated by LIST-VIEW itself.

        Only external input of a single block value can change this.
      Fix: INSERT-ROW-HERE, REMOVE-ROW-HERE, CHANGE-ROW-HERE
        failed on empty DATA
      New: Stricter typechecks on manipulation functions
      Fix: Values are now copied into DATA
      Fix: Sorting did not work, when using only one DATA column

      New: Allows using keyed blocks as input for manipulating functions.

      Fix: Header size now calculated with OUT-COLS also, which removes 
      a crash
      New: Created a test suite in file list-demo.r
      New: Moved demo code out of this file

    Main file is available at:
    http://www.hmkdesign.dk/rebol/list-view/list-view.r
    Demo and testcases available at:
    http://www.hmkdesign.dk/rebol/list-view/list-demo.r
    Docs are available in makedoc2 format at:
    http://www.hmkdesign.dk/rebol/list-view/list-view.txtand
    http://www.hmkdesign.dk/rebol/list-view/list-view.html

pekr: Listview file searching noted...

0.0.19 uploaded.

Changes:


      Fix: Rewrote docs to be much clearer, with more images and better 
      flow
      Fix: APPEND-ROW properly works during filtering
      Fix: MAIN-COL calculation was accidentally broken
      Fix: EDITABLE? is now default FALSE by popular request
      New: Easy column reordering with IN-COLS and OUT-COLS

    Main file is available at:
    http://www.hmkdesign.dk/rebol/list-view/list-view.r
    Demo and testcases available at:
    http://www.hmkdesign.dk/rebol/list-view/list-demo.r
    Docs are available in makedoc2 format at:
    http://www.hmkdesign.dk/rebol/list-view/list-view.txtand
    http://www.hmkdesign.dk/rebol/list-view/list-view.html

delete the 11/12-Jan-2006-chat.r file ...

you should update your instructions - you are not able to rewrite 
the file, unless you end your IE ... it keeps old view.dll locked 
...

I'm sure most people will work it out that they have to close down 
IE to save the file.

Ok, when i go to save the .dll file, my folder is hidden, if i download 
to another directory, i can't paste even if i rename... my mom is 
going to freak trying to install this thing.

0.0.21 of LIST-VIEW uploaded.

Changes:

      Fix: Fixed an instance where LIST-VIEW would crash with empty OUT-COLS
      New: FONTS block to set font objects for each column

      Fix: Got rid of the grey color bar at the bottom of the list view,

        when the list height didn't add up to the rows. Thereby, you no longer
        need to set COLORS/4 manually.
      Fix: Background color in COLORS was not used

      Fix: When using ROW-FACE, FIT = FALSE and the columns weren't filling
        out the header, the last text field would be darkened.

      Fix: Sometimes when HDR-COLS was not defined, LIST-VIEW would crash

      New: SHOW-EDIT now allows to select which column to focus on

    Main file is available at:
    http://www.hmkdesign.dk/rebol/list-view/list-view.r
    Demo and testcases available at:
    http://www.hmkdesign.dk/rebol/list-view/list-demo.r
    Docs are available in makedoc2 format at:
    http://www.hmkdesign.dk/rebol/list-view/list-view.txtand
    http://www.hmkdesign.dk/rebol/list-view/list-view.html

yeah looks like I'll need that. I'm also making a Rebsite now. I 
think that's a little easier than posting a large list of file names 
here

LIST-VIEW 0.0.22 released.

Changelog is inside the main file:http://www.hmkdesign.dk/rebol/list-view/list-view.r
Docs: http://www.hmkdesign.dk/rebol/list-view/list-view.html

LIST-VIEW 0.0.23 released.

Changelog is inside the main file:http://www.hmkdesign.dk/rebol/list-view/list-view.r
Docs: http://www.hmkdesign.dk/rebol/list-view/list-view.html

Anton: huge thanks! Brilliant, well, if it works. Perhaps plopping 
it in the user.r, rebol.r, or prefs file.

You may (or may not) be interested with VIDpatch. VIDpatch adds bubble-help 
and drag'n'drop support to classic VID. Now you can write >> button 
"Save" bubble-help "Saves file"

in windows...  just cause its making me mad... how does REBOL/view 
1.3.2 go about sourcing the damned user.r and rebol.r files... cause 
right now, I once again have some icons which source them and some 
which don't.    :-(


basically if you double click an *.r file it does not work, but if 
you launch rebol.exe or a shortcut to it... it works.

ARRGH ! and I though  v1.3 was about keeping install simple   :-(


I have set both HKEY registry entries to the same dir... but why 
are there different reactions depending on the way you launch rebol?

but I still have strange reactions for the rebol.r file.

even if I include a rebol.r file at that path... it is ignored...

(the rebol.r file)

I tried to create with the following code a circle with a transparent 
background and save it. I tried some different versions, but currently 
I have no glue how to achieve this. The point is I need a file with 
a circle and a transparent background :-) and I thought I quickly 
do this with Rebol instead of using a paintprogram. So am I doing 
something wrong ? It's saving the background from the window and 
if that is set to 'none then it's black ?

view layout [
    b: box 22x22 effect [
        draw [pen red line-width 2 circle 11x11 10]
    ]
    across 
    f: field 200 button "Save" [
        file-name: to-file f/text

        unless find/last file-name ".png" [append file-name ".png"]
        save/png file-name to-image b
    ]
]

There is some rebol-XXX? words and one is 'rebol-pro?
>> help rebol-
Found these words:
   rebol-command?  logic!    false
   rebol-encap?    logic!    false
   rebol-link?     logic!    false
   rebol-pro?      logic!    false
   rebol-view?     logic!    true
   to-rebol-file   native!   Converts a local

could try the file sharing here .. is it enabled yet?

I have set my 'view (1.3.2.3.1 5-Dec-2005 pro) to not open the desktop 
on startup, now I start it from a windows link like this:

 C:\Programme\Rebol\View\rebol.exe -s "C:\Dokumente und Einstellungen\ingo\Anwendungsdaten\rebol\start-desktop.r"
(You'll imagine, what the script does ;-)

Now, if I click on a rebol file which accesses a dll I get a security 
question whethter I really want to allow access to the dll. shouldn't 
this be allowed with the -s switch?

You've already seen my psd2draw.r script .. I just feed the same 
block thru my ps dialect to get the postsrcript and write that to 
a file.

I finally got around to making a nice little "command line" function 
FIND-FILE.
You can use it with optional arguments like this:
	find-file *.r    ; just lists all files with ".r" suffix.

 find-file *.r "rebol"   ; lists all files with ".r" suffix and containing 
 "rebol" 
	find-file * "rebol"  ; all files containing "rebol"
etc...

do http://www.lexicon.net/antonr/rebol/library/dir-utils.r
dir-utils/only [push pop] ; needed for tree

foreach [url words][

 http://www.lexicon.net/antonr/rebol/library/tree.r[tree] ; needed 
 for find-file

 http://home.wilddsl.net.au/anton/rebol/util/find-file.r[find-file] 
][
	foreach word words [set word get in do url word]
]

find-file *.r

push, pop and tree are pretty stable. Find-file is pretty new, but 
so far no problems. Find-file is short, so it's a good example of 
how to use tree.

I would expect you would just modify find-file a little bit to suit 
your purposes.

your find-file function is really nice addition though ...

I don't think it's easy to completely replace windows shell. I use 
dir-utils and find-file for most simple file system tasks already, 
but I use windows DOS console for all those particular windows DOS 
things.

from the rename help:
ARGUMENTS:
     old -- path to the old file (Type: file url)
     new -- new name (not a path) (Type: file url string)


but it indeed works if you use a destination path relative to the 
origin path, in my case 0.002 seconds instead of 0.300 using call 
"mv..   thanks all 8-)

i.e. a string is either coming from a source file, then you have 
the source file's encoding. or it's coming from another input, then 
you'll have to explicitly decode from binary. or it's created programmatically, 
then you have the codepoint values

Graham, are you you using the xp rebol/view ? try the hellowworld.r 
 script in beginner,  left click the file, the script runs, but the 
cli/output window does not stay open.

I''m trying to understand this language, sometimes getting it, sometimes 
not. Anyway here's my question.

In VID, I have a layout.  I want to put random images in 3 columns 
with 5 rows.  The images are stored together in a single binary file. 
(this is a mod of the card game on Nick's tutorial site).


So I read in the images into a series,  after I set the layout. But 
how do add those to the layout?

Here's my current code:
do %cards.r

the-tableau: layout [
	size 320x480 backdrop 0.170.0
	across
	at 30x20 tc1: box 80x100 teal 
	tc2: box 80x100 teal 
	tc3: box 80x100 teal return
	at 30x130 tc4: box 80x100 teal
	tc100: box 80x100 coal
	tc5: box 80x100 teal return
	at 30x240 tc6: box 80x100 teal
	tc200: box 80x100 coal
	tc7: box 80x100 teal return
	at 30x350 tc8: box 80x100 teal
	tc9: box 80x100 teal
	tc10: box 80x100 teal
]

foreach [card label num color pos] cards [
	
	dimg: load to-binary decompress (card)
	append deck-cards dimg ;feel movestyle
	throw-away-label: label
	append deck-cards-num num
	append deck-cards-color color
	throw-away-pos: pos
]

view/new the-tableau

do-events

ok.  I think I understand that.  So here's my new code, which doesn't 
work.
random/seed now

;--include the binary card data
do %cards.r

the-tableau: layout [
	size 320x480 backdrop 0.170.0
	style tabstyle image 80x100 teal
	style holdplace box 80x100 coal
	across
	at 30x20 tc1: tabstyle
	tc2: tabstyle 
	tc3: tabstyle return
	at 30x130 tc4: tabstyle
	tc100: holdplace
	tc5: tabstyle return
	at 30x240 tc6: tabstyle
	tc200: holdplace
	tc7: tabstyle return
	at 30x350 tc8: tabstyle
	tc9: tabstyle
	tc10: tabstyle
]

lc: copy []
lc: [tc1 tc2 tc3 tc4 tc5 tc6 tc7 tc8 tc9 tc10]

deck-cards: copy [] 	; The deck holds all of the cards from the binary 
file
deck-cards-num: copy []
deck-cards-color: copy []

foreach [card label num color pos] cards [
	
	dimg: load to-binary decompress (card)
	append deck-cards dimg ;feel movestyle
	throw-away-label: label
	append deck-cards-num num
	append deck-cards-color color
	throw-away-pos: pos
]

random-card: does [pick deck-cards random length? deck-cards]
foreach c lc [set-face get c deck-cards]

view/new the-tableau

do-events

the % character before a string of text identifies the whole string 
as a file path...

ex:

>> type? %/C/users/alemar/download/test.r 
== file!

>> do %/C/users/alemar/download/test.r

** Access error: cannot open: %/C/users/alemar/download/test.r reason: 
-3
** Where: read either read-decode case load -apply- do

** Near: read source if find system/options/file-types type [data: 
de...

so i just gotta change the file location

the R2 console can actually act like a shell.


in the latest release (2.7.8) they added posix style shortcuts to 
the various file operations directly... so you can do:

>> cd %/C/users/alemar/download/
>> ls

ok but now when i start the file directly i get ** Syntax Error: 
Script is missing a REBOL header
** Near: do/args script system/script/args

this is the body of the file

ok trying that as well,on a side note now the file does not start 
:D

how can I remove the newline from the end of a file I wrote to? thanks.

How can I make a file containing a tokens on each line be displayed 
one at a time in an info field(ie not modfiable, just readable) on 
the view when I click a button?

how do I make the data loaded from the file change to another token 
in the file when I click another button?

@Henrik, the assignment you suggest seems to be depopulating my file 
on the button presses

but I understand that you save the file to disk after modifying the 
index? perhaps it's the saving process that contains errors.

do you not want the DO block in the layout to be performed after 
FLASHCARD-PARSING? otherwise the questions-list.txt file is not generated 
in time.

it simply writes a new file, so the code is syntactically correct.

as for my writing above, an approach would be to load the cards file 
and parse it into a format that is comfortable to work with in REBOL.

I see you moving it within the list but the file doesn't dynamically 
get changed using MOVE...

** Access Error: Cannot open file.txt
** Where: forever
** Near: were: read/lines %were-file.txt

** Access Error: Cannot open file.txt
** Where: forever
** Near: were: read/lines %were-file.txt


That is possibly because file.txt does not exist and you are trying 
to read it somewhere near that line of code.

@Henrik, I see. I will try to better trace the path the file takes 
to open. thanks.

Is there a way of making the name of a file the header of the view?

For instance, in the REBOL block, the Title will be displayed as 
the title of the layout view. Is there a way to make this title be 
the name of the file read in the program?

view/title layout [button] form %my-file.r

so when I press SOON, it should advance the question 5 places ahead. 
The temp file shows it does.

Magnusso: I faced a problem parsing exported LDAP users using above 
CSVDE command-line tool.

Because it fails if you don't use -u argument and if your ldap data 
has some unicode data.

And if you use -u the exported file will be unicode and cannot be 
read/parse in R2.

then I found a very simple way to convert a unicode file to ascii 
in DOS,
TYPE my-unicode-file > my-ascii-file


This line converts the file to ascii, just non-convertable characters 
looks wierd but rest is ok.

Gregg, thanks!. Please the pointer on  how to generate the html file 
from *.RDML, is through make-doc?