World: r4wp

beginner question:
i'm opening a file using
    d: open/direct/lines %bigfile.nt
i am then looping through each line using:
    while [ln: first d] [ ;do something here ]

i need to record the byte position of the start and end of each line...
how?

I think you will have to calculate them yourself using length? ln 
and adjust for newline/cr as appropriiate.

thanks Peter...

i can find the length? of each line, but how do i calculate the length 
of the newline?

>> length? to-string #"^/"
== 1
>> length? to-string crlf
== 2

how do i detect the newline used in %bigfile.nt?

hahaha I was writing exactly about this.

:)

basically... just find crlf in the file.

if you find one, you can assume its using crlf format for newlines.

ok...
trying that now...

p.s.: any luck with the new mod-api release?

you can always try using /binary, but I don't know how it relates 
to using /lines.  IMO if you use /lines, the /binary refinement doesn't 
make a lot of sense

wrt mod-api... yes, and no, I was temporarily assigned to another 
project, but should get back to it tomorow, so I hope to have a release 
next week.

how do i detect the newline used in %bigfile.nt?

 - you can read the first line from the port to work out it's length 
 and then read the fiirst line + the two subsequent bytes in binary 
 mode to check whether they are lf + first char of second line or 
 cr +lf.

This might help you get started:

>> d: open/direct/lines %system-use-case-list.html
>> ln-d: length? ln: first d
== 6
>> ln+nl: read/binary/part %system-use-case-list.html ln-d + 2
== #{3C68746D6C3E0D0A}

cool - look forward to it maxim

thanks Peter
not sure i've got it though
>> p: open/direct/lines %benchmark_250k.nt
>> ln-d: length? ln: first p
== 195
>> ln+nl: read/binary/part %benchmark_250k.nt ln-d + 2
== #{
3C687474703A2F2F777777342E7769776973732E66752D6265726C696E2E6465
2F62697A65722F6273626D2F7630312F696E7374616E6365732F50726F64...
>> print to-string ln+nl

<http://www4.wiwiss.fu-berlin.de/bizer/bsbm/v01/instances/ProductType1>
<http://www.w3.org/1999/02/22-rdf-syntax-ns#t

ype> <http://www4.wiwiss.fu-berlin.de/bizer/bsbm/v01/vocabulary/ProductType>
.
<

so there is a newline + the first character of the next line

To visually check better to print the binary ie
	print ln+nl

if i do this:

>> length? find ln+nl newline
== 2


...but how do i detect that the newline in this case has length 1?

Something like this should work:

>> ;; position at 2nd last char of ln+nl
>> ln+nl: back back tail ln+nl
== #{0D0A}
>> ;; see if the first of the two chars is a linefeed
>> either #"^(0a)" = first ln+nl [size-nl: 1] [size-nl: 2]
== 2

super!! Thanks Peter!

just so i remember:
>> print to-binary cr
#{0D}
>> print to-binary crlf
#{0D0A}
>> print to-binary lf
#{0A}

Watch out for text files that are edited on Windows and other systems 
and end up mixing different newlines

I was just cracking my head over that Kaj...

will have to look for another way i guess :(

It can still be done, but you have to look for all possible newline 
combinations

If you can control your environment, you could mandate an editor 
that does automatic conversion

where I am wrong ?

I have an object called news
news/tittle: "Something"
news/data: 06-may-2012

I want to display these data using VID

view layout [
	h2  news/tittle
	h2  news/date
]

news/tittle is displayed
news/date is not

Where I am wrong ?

I have an object called news
news/tittle: "Something"
news/data: 06-may-2012

you did not use /DATA as a typo?

also, it may be that H2 does not support dates as input

yes, it is a Typo

to-string news/date solves the problem

txt does not support DATES too

Another question from a newcomer to VID:

How do I refresh the window with new data without closing it ?

First, assign words to your texts:

view layout [
	t1: h2
	t2: h2
]

Then create a function to update the content:

update-texts: func [tt1 tt2] [
	t1/text: tt1 ; not sure that SET-FACE works here.
	t2/text: tt2
	show [t1 t2]
]

Then use the function where you need it.

You may need to give both faces an initial width, otherwise the text 
won't fit.

Or give a name to your window:
view lay: layout [...]

and call "show lay" when you make changes. This will refresh the 
whole widgets in the window.

It's better to refresh what you've updated, not the whole window, 
as it is much more slower. But when you are testing it is easier.

This is only partly true.


It is in fact faster to SHOW the whole window, rather than calling 
SHOW multiple times for single elements, when there are sufficiently 
many elements in the window. Still, SHOW also depends on the size 
of the area to display, so if you have, say 10 fields, wrap them 
in a PANEL style and then perform the SHOW on the PANEL instead of 
the whole window or the individual fields.

That's right. What I meant was SHOWing the whole window when you 
need to refresh one element, is slower. Otherwise it depends on how 
many items refreshed/updated etc.

It is easier to SHOW the whole window for beginners because they 
usually forget to SHOW the item they've updated.

Isn't in VID a god text viewever with scrollers ? Text List does 
not work here. It show only the first line of text.

*good

Giuseppe, if it is textviewers that you are looking for, you may 
want to see Henrik's Vid Extention Kit.  http://www.hmkdesign.dk/project.rsp?id=vid-ext-kit&page=info
because if you are going to do anything slightly more complex than 
VID "text-list"  you will find data-list much more powerful. BTW, 
what are you supplying as data in your text-list?

The LIST style is very flexible for read-only displays, but more 
work.

nearly 11000 lines, almost replacing VID

The number of lines may go up or down at times. There is a lot of 
experimental code and some dead code in it.

I am supplying text coming from a web page which has been de-markupped.

Just make sure you never get paid per line of code

Never made a dime on it.