World: r3wp

is there an in-memory version of save/header "" header-obj ?

save/header data: #{} "" [Title: "Data"]

probe to-string data

thanks

(still reviewing your previous answer, so I'm not just thanking you 
for that ;-))

On the previous answer, you could probably modify it to incorporate 
objects nested in blocks.  Also, it does not reconstitute some of 
the subtle uses of nested objects, such as the reusable 'feel objects 
in faces.  Sadly.

yes, that's why I wanted to make binding cues inside the object, 
so I can load it, and it will automatically bind to wherever is needed.

Yep, if you were to do -- context: [a: b: :an-object] -- while you 
could bind a reconstituted 'a and 'b to 'an-object, it would be clones. 
 Possibility: where you are working with faces, you could specifically 
change eg. the feel to lit-word/path before saving, then allow a 
'reconstitute-like function replace that value with the related object. 
 It's a little messy, but still such functions could still be nearly 
as short...

I think I'll keep my method for now. It's actually simpler for me 
to understand than the above. :-/

thanks for your work.

anyone know of a function to calculate the relative path between 
two branches in a file system?

I think I'm figuring it out. will post the function when I'm done.

I want to sync some files on a server. what is the usual method? 
This file will be a rebol script so I thought placing a "version:" 
in the rebol header would be logical. I tried to "load/header" but 
I get the whole script and its no evaluated so I can not just get 
the  version value.

Yes, you must write your own version parsing function which loads 
only a part of the file.

Alan;  You can try  var: load/header/next   first var will be the 
header as object, second var will be the rest of the script as a 
string.   var/1/version should be your tuple!  (assuming you use 
tuple).  In terms of the evaluation it is deemed "light", values 
but not code.  So   version: 3.2.1 ok,  version: to tuple! [3 2 1] 
 won't be a tuple, var/1/version will be 'to   So Anton is correct.


Another thing to check out the mezzanines (from View)  load-thru 
  read-thru  and the source for exists-thru?  These may have some 
hints for what you want.

Is there an opposite function to SUFFIX? like PREFIX? or so to get 
the filename without extension?

head clear find/last copy a #"."

to file! head clear find/last copy %prefix.suffix #"."

copy/part f -1 + index? find f "."

to file! first parse f "."

If it wasn't for that extra TO-FILE in SUFFIX?, you'd just use COPY/PART:


>> suffix?: func [path [any-string!] "Return the suffix (ext) of 
a filename or url, else NONE."] [if all [path: find/last path %. 
not find path #"/"] [path]]
>> file: %my.test.file.txt
== %my.test.file.txt
>> copy/part file suffix? file
== %my.test.file

AMacleod, I found my version? function in
http://anton.wildit.net.au/rebol/library/dir-utils.r
(after remembering where my website is)

I'm just curious if there is a way to make a function think an argument 
was passed to it even though an argument wasn't passed to it.

a: func [b [word! unset!]] []

but could B be used if needed

inside the function?

I haven't tested, but perhaps you can test for 'value?

yes

that might work Henrick, I'm trying a few things now.

Yep that will work.  Thanks Henrik

no problem

Thanks, Anton. I think it is just what I'm looking for.

no worries.

Is there any script which can convert for example -1.8E-5 to -0.000018 
?

formDecimal: func[
	number [decimal!]
	digits [integer!]
	/local negative? p result
][
	if digits <= 0 [return form to-integer 0.5 + number]
	if negative?: number < 0 [number: - number]
	p: power 10 digits
	result: form to-integer number * p + 0.5
	if number < 1 [
		insert/dup result "0" (1 + digits - length? result)
	]
	if negative? [ insert result "-" ]
	head insert skip tail result negate digits #"."
]

should have a native that does this

There was an old one from Eric Long, that might be in REBOL.org. 
I don't think I ever tackled that with my FORMAT function.

i have one i've used for a long time too... also adds ' every three 
digits... i added support for scientific notation recently (because 
form always gives sci notation on Wine)

how is it again that I can rebind a function to a different context?

>> c1: context [var: "orig" f: func [][print var]]
>> c1/f
orig
>> c2: context [var: "hello"]
>> bind second get in c1 'f c2
== [print var]
>> c1/f
hello

it seems not to work, if the function starts out as global

>> a: does [print b] 
>> c: make object! [b: 4]
>> a

** Script Error: b has no value
** Where: a
** Near: print b
>> bind second :a 'c

== [print b]
>> a
** Script Error: b has no value
** Where: a

** Near: print b

solved with:

bind second :a c

thanks, Anton

Can someone explain the reason why bind would work but bind/copy 
wouldn't?

You don't rebind the function, you rebind its code block - not quite 
the same thing. Bind/copy wouldn't work because it creates a copy 
rather than rebinding the original block. You can alter the contents 
of the code block of a (R2) function, but you can't change the function's 
reference to that block to point to another block.

If you can create a new function, you can use bind/copy. It is occasionally 
possible to arrange your algorithm so that it is possible to replace 
a function without worrying about aliased references, but usually 
not.

yeah I understand that but why would bind/copy ever fail where bind 
itself worked?

bind/copy goes deep.

yeah