World: r3wp

So first we need to find a way to define the index with rebol datatypes

is 1x1 ok instead of 1/1 ?

I could convert it easily I suppose then convert it back again for 
output

Then we could use a structure like
data: [
1x1 [ports disabled vlan etc ...]
1x2 [ ..
2x2 
]

or even
["1/1" [ports disabled vlan

So long as I can enumerate them to export the data, preferably in 
order so I dont have to sort them after

We acces the elements either with 
data/1x1

or with 
data/("2x3")

If you don't add them ordered you will always need a sort run

I was thinking if I had a data structure like data: [[[vlan 6][vlan 
6]][[][][][]]   of the right nature I could output the data like
for m 1 13 1 [ foreach p [print data/(m)/(p)/vlan]]

sorry I mean
for m 1 13 1 [ for p 1 48 1 [print data/(m)/(p)/vlan]]

then you would need a different structure
with flat 13 * 48 elements first
and you would get 13 * 48 lines output

maybe I still do not get what you want to do.(

My output could be up to 13 * 48 line long, that is right.

Always?

in practice there will be groups of values that will not need to 
be exported because they contain no information.

But you have always 13 * 48 groups and this is your index
  
1/1 
1/2
..
1/48
2/1
..
2/48
..
13/48

is it?

yes

So you first want to generate a table with 13 * 48 elements?

array/initial 13 array/initial 48 none

and each of the 13 * 48 elements will have up to 3 different bits 
of information

array/initial 13 array/initial 48 array/initial 3 none

that looks great!   I will just have to give the 3 bits of data numbers 
instead of names.

Otherwise make it flat
array/initial 13 * 48 * 3 none

and access it with data/(x * 13 + (y  * 48) + z)

You can acces the your free items of the last group with names
you can use e.g
  alias 'first "portn"
  alias 'second "disabled"
  alias 'third "vlan"

sorry three not free

thats a handy trick to make it more readable...

or use port: 1 diabled: 2
then /../:port

so much choice..   I wonder if that is both the best & the worst 
thing about Rebol.  :-)  Thanks very much for your help & Geomol 
& Graham.

This is a crucial bit of my script & it should start producing the 
output I need very soon..  I have been learning Rebol to solve a 
problem, instead of spending my time to sole the problem manualy. 
But now I am nearly out of time so I a comitted to the scripted aproach.

you're welcome

I guess as a beginner you would have reached your goal faster without 
parse with simple loops and finds

I heard about Rebol because of parse, & it seems right to learn about 
it.  I am stll very much a noob & appreciate the intensive help I 
get here very much.

I think the only way I could have got more help would have been to 
use a cute girls name as my login. ;-)

Unfortunately you can infer from the name to the look.)
But I will give you another hint, 
try to use new-line/all with your data

should read  "you cannot  .."  .)

mhinson, for your next scripts, maybe you should work a bit more 
on things that are completely unrelated to parse. it helps to get 
away from it a while and then get back to it later.

ARRAY can take a function as the initial parameter, and that function 
will be called. Try this:
port-proto: make object! [

 vlan: copy []     ;; will hold a number or perhaps a list of numbers 
 e.g. 20 or 3,5,7
	UpState: copy []  ;; none or "disabled"
	name: copy []     ;; any string
]


switch-module: array/initial [13 48] does [make object! port-proto]

That will give you 13x48 unique objects in nested blocks.

>> x: 0
== 0
>> array/initial [2 3] does [x: x + 1]
== [[1 2 3] [4 5 6]]

One interesting thing to note is that because the data in the objects 
is blocks, MAKE will bind/copy the blocks to the new object. This 
is why you don't have to copy the blocks explicitly when you make 
a new object based on the proto.

i should use array too now, i didn't noticed those usefull evolutions

oh, I didn't know that one.

Wow, I was looking for something like that..

Have I broken REBOL ?
>> print round 2
** Script Error: Cannot use subtract on decimal! value
** Where: throw-on-error

I put  Protect-System on & found what I had done...  It was a bit 
confusing what I was seeing till I worked this out.

did you replace the value of round by any chance?

no mod

SHAME ON YOU ;-)

I used mod to recieve date from copy in a parse

I almost didnt because I know mod is maths term...  I supose modifying 
the system is not on your mind till you are more of a Rebol.

I made that change to ARRAY over a year ago for R3, then backported 
it to R2 for the 2.7.6 release. EXTRACT/default and REPLACE too.

SHAME ON US :-)

Hey, if I hadn't written it myself I wouldn't have noticed either 
:)

I like the sound of that Brian, but as your example dosn't work I 
dont really understand the syntax..

>> switch-module: array/initial [13 48] does [make object! port-proto]
** Script Error: Invalid argument: object