AltME groups: search

So do you think Ladislav thought he had described everything he needed 
to? because he had a rule that would match part of the data & could 
be skipped on finding each match in turn somehow...

it looks complete for a single record

I tried Peters rules & Steves first rules, then Ladislav gave me 
some more structure to it which seemed like a good idea when things 
get more complex. But I cant quite fit it all together.

This AltME client is hard work too, why dosn't the group have a web 
based forum, then I could access it on the PC where my development 
is being done too. AltME is a NoNo for corperate use.

reboltalk.com would be a possibility if it wasnt so embarassingly 
full of spam

I think one of the most confusing things about leaning Parse, is 
the occurance of  some & any & | , and the use of [ ]  

the constructs are quite straight forward, but the need for [ ]  
etc is a raw mystery to me.

[ ] identifies rules which must ALL match as a group.

or a roll back occurs at the start of the [ ]  and tries the next 
rule following a "|" in the current rule (if any)

it is installing non aproved applications that is the issue, and 
the need for a proxy config? perhaps that is covered.  I may just 
install it I suppose.

So the parse keeps going inside the [] till all the | are exhausted 
or it gets a match. then looks for the next | in the outer nesting 
of [] ??

almost.  if one of the options match (  [option1 | option2 | option3] 
)

then the rule itself is considered a match and it won't attempt the 
other option.

I read "any" matches 0 or more occurances --- I dont understand what 
that means in practice. it sounds like a loop perhaps?

parse {aaa} any [[here: "a" (print here)] | [skip] ]  does not work 
for how I imagine.. I expect it to return aaa aa a

note: above should be...

parse "aaa" [any [[here: "a" (print here)] | [skip] ]]

my first any needs to be inside the [ ... that would seem to mike 
it apply to the "a"

>> parse "aaa" [any [[here: "a" (print here)] | [skip] ]]
aaa
aa
a
== true

>> parse "zaz" [any [[here: "a" (print here)] | [skip] ]]
az
== true

>> parse "zzz" [any [[here: "a" (print here)] | [skip] ]]
== true

that seems logica, but this does not
 parse {aaa}  [any[here: "a" (print here)] | [skip] ]
aaa
aa
a

it doesn't... each time it hits "a" the first rule matches.

other examples.

 >> parse "aza" [any [here: "a" (print here)] | skip]
aza
== false

>> parse "aza" [any [here: "a" (print here)]  skip skip]
aza
== true

so why did the parse return false?
>> parse {zzz}  [any[here: "a" (print here)] | [skip] ]
== false

Maxim, you are a very patient teacher.

:-)  I missed such a big feature of rebol for sooo long, just because 
I didn't get these nuances.  and its hard to make a tutorial out 
of this, cause it sooooo boring, and you don't realize why its so 
important until you really start to use parse.

btw, I keep logging off, cause the winds are wreaking havoc on the 
electricity lines!  there is probably a loose connector on some junction 
and my whole house has rebooted at least 15 times in the last 2 hours 
 :-/

all of northern usa should be affected the same way, it snowed yesterday 
in central canada!  yet we are already at temperatures of 65-70 on 
average... its just clash of northern and southern winds... creating 
a massive disruption here.

Hi, I am after some advice on creating a data structure please.
I read data from my file in this sort of order.
disabled
2/34
2/35

vlan 3
2/35
2/48

vlan 5
2/3
2/24

name
2/1 name one
2/35 second name

Then I want to export it in this sort of format.
port <tab> disabled <tab> vlan <tab> name 
2/1                                  name one
2/3                        5
2/24       disabled
2/34                       5
2/35       disabled        3         second name
2/48                       3


I am hoping that I can create a structure that mimics the data its 
self.
maybe like
data/2/35/disabled = "disabled"
data/2/35/vlan = "3"
data/2/35/name = "second name"


Then some how use the input data to define what part of the structure 
the item is recorded in.

Once I have it in a structure like this I am expecting it to be simple 
to enumerate each part to do my export.

That looks exactly the structure I had in mind, but how do I get 
the data into the right part of the structure?
if I have data of   3 2/1 & I know it refers to a vlan.
I will have up to about 1500 of these for each file

You can also do it without using PARSE, if that's too much to start 
with. Read the input as lines with READ/LINES
A line could then be:

line: "vlan 3"

And you can pick the parts with something like:

>> copy/part line find line " "
== "vlan"
>> next find line " "
== "3"


Using PARSE is the elegant way to do it, but can be a bit tricky, 
until you've used it a few times.

The input data is the result of a lot of parsing.

If you use integers and words as your indexâÊyou don't have colon, 
like in:

data/2/35/vlan


If you have a variable with the index, you need the colon to get 
the value of the variable, else REBOL will see it as a word, like 
in:

idx1: 2
idx2: 35
data/:idx1/:idx2/vlan

data: [ [ [] [vlan 0] ] ]

Your data has nothing in it. To be able to write

data/1/2/vlan: 3


you need to have at least one entry in data, and inside that two 
entries and inside that the word vlan and a value.

from data/1/1/vlan   to data/12/48/name  that sounds a bit tricky.

I tried to create a data structure like this

i2: [[vlan []][disabled []][name []]]

i1: [[i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2][i2]]
data:[[i1][i1][i1][i1][i1][i1][i1][i1][i1][i1][i1][i1][i1]]

but when I try to use the structure I get
data/1/3/vlan: 3
** Script Error: Cannot use path on none! value
** Near: data/1/3/vlan: 3

Have I just made a typo?  or am I barking up the wrong tree?

create a Rebol object! instead

well, I think you need to work with a few small examples .. as what 
you're doing is way out ...

ok, this is a reduced set...  but it does not work. I wonder if I 
have a problem with context?

PortAttributesObj: 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
]

PortNumberObj: make object! [
	p1: make PortAttributesObj []
	p2: make PortAttributesObj []
	p3: make PortAttributesObj []
	p4: make PortAttributesObj []
;; so on up to
	p48: make PortAttributesObj []
]

ModuleNumberObj: make object! [
	m1: make ModuleNumberObj []
	m2: make ModuleNumberObj []
	m3: make ModuleNumberObj []
;; so on up to
	m13: make ModuleNumberObj []
]	

record: make ModuleNumberObj []

I did not follow exactly your intentions,
am I correct, you want to get a structure with 4 qualities?

Then why you do not add for every line you are parsing your 4 elements:
either with 
append data reduce [port disabled vlan name]
or with
append/only data reduce  [port disabled vlan name]
?

Each line I parse will have only one of the values disabled, vlan, 
name, & a range of ports.

when I have parsed the data I know it is for a vlan & the number 
of the vlan & the port... it is only later that I will find the same 
port number associated with the name.

I understand, you are looking for a structure where you can later 
reference the qualities?

Yes. I neet to have a structure I can enumerate to export my output
symbolicaly:
input
1 3
1 fish
2 3
2 dog

output 
1 3 fish
2 3 dog

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

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

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

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]]

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

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

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

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. ;-)

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]

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 put  Protect-System on & found what I had done...  It was a bit 
confusing what I was seeing till I worked this out.

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.

I nearly guessed it, but as a noob there are so many options that 
I could be a while wondering if it is my typing or something too 
basic to notice.

Thanks for point this out, I see it is very important.

I will try to use your new function passing once I get it working 
in a basic form.  Thanks.

>> source array
array: func [
    "Makes and initializes a series of a given size."

    size [integer! block!] "Size or block of sizes for each dimension"
    /initial "Specify an initial value for all elements"
    value "Initial value"
    /local block rest
][
    if block? size [
        rest: next size
        if tail? rest [rest: none]
        size: first size

        if not integer? size [make error! "Integer size required"]
    ]
    block: make block! size
    case [
        block? rest [

            loop size [block: insert/only block array/initial rest :value]
        ]
        series? :value [
            loop size [block: insert/only block copy/deep value]
        ]
        any-function? :value [
            loop size [block: insert/only block value]
        ]
        insert/dup block value size
    ]
    head block
]

help & source are so powerfull a feature in rebol

oh was that a RTFD coming from Brian ? so mean...

Wait, it does copy/deep the initial value. It's been a while since 
I looked at that function :(

Some say that developers are born with a finite number of key strokes... 
once they are used up, that is the end.

hmm, it's a bug no ?

or a missing feature, as you wish

every single day (and often a few times that day):

- I open up a rebol console from quick-launch bar in windows (taking 
about 0.1 sec to appear)
- type help 'some-func 
- test the 'some-func with some-data I'm using. 
- close the console.  


overall it takes about a few seconds, to do a unit test of something 
I'm adding.
 no bloat,  no dangling window.

python offers something similar... but:
- python takes anywhere from 3-10 secs on load.  

- then you have to know in what lib the most basic function is (alread 
half as usefull) 
- the console itself is really bad, 
- previous commands browsing is really stupid

- having to type so much more code to get the simplest function test 
going is a pain
- in the end, its a non-feature.

I leave a R2 and R3 console open full-time while I'm working. It 
helps to have R3 open too since I don't always remember how much 
of R3 I've backported to R2, so sometimes I remember a function that 
doesn't exist in R2.

I found a cosmetic bug in the console

I was just pointing out that rebol is sooo fast to launch that you 
can close it and its not a pain... I easily get up to 10-15 windows 
open at a time, and when you've got half of them as rebol consoles, 
its easier not to guess which one is the help window  :-)

is there a neat trick to do this with less verbosity please ?
a: first parse {1/2} "/"  
b: second parse {1/2} "/"

set [a b] parse {1/2} "/"

I can send a number up to 28 with only one it or smoke signal.

just don't make rebol require includes in every single app.  that's 
a large part of rebol's appeal.

there is a point where smaller isn't better.  it just gets annoying.

python is a good example of this.  the language as a whole  got much 
better when they integrated the datatype manipulations libs within 
the datatype classes themselves.

Pekr, just because it is modular doesn't mean that the modules won't 
be included. HTTP is handled by a module now.

Having separated contexts and being able to manage them well is a 
big deal, for security and for ease of programming.

this is a serious flaw in R2... if you want to store encryption keys 
within an application and want to provide some sort of plugin interface, 
you are pretty much fucked... people can rip your application appart, 
and there is nothing you can do about it...


a part creating a dialect, which is complicated as hell if you want 
to provide do-like syntax.

He's not the only new one - some are a lot more new than that :)

Hiding from the helpful people - not a good idea...

You know Brian, you can be a good programmer even without knowing 
Rebol :-)

Yup. And you can have bad moments even if you are a good programmer. 
That's what this group is for :)

it's incredible how many people we never saw there are registered 
in R3 chat


   1 admin      Administrator              17d             [admin rank

   2 Carl       Carl Sassenrath            4:04h           [rank 80]

   3 BrianH     Brian Hawley               0:14h           [rank 70]

   4 Henrik     Henrik Mikael Kristensen   0:05h           [rank 70]

   5 btiffin    Brian Tiffin               3d              [rank 40]

   6 pekr       Petr Krenzelok             0:23h           [rank 50]

   7 feeds      Remote feeds               0:43h           [rank 10]

   8 Giuseppe   Giuseppe Chillemi          29:04h          [rank 40]

   9 Oldes      David 'Oldes' Oliva        0:01h           [rank 50]

  10 richard    Richard Westlake           29:59h          [rank 50]

  11 Graham     Graham Chiu                76d             [rank 50]

  12 tester     Example Tester             73d             [rank 10]

  13 Jerry      Jerry Tsai                 83d             [rank 50]

  14 Sunanda    Sunanda                    11:34h          [rank 50]

  15 Kaj        Kaj de Vos                 41d             [rank 50]

  16 DideC      Didier Cadieu              36:48h          [rank 50]

  17 maarten    Maarten Koopmans           102d            [rank 50]

  18 rebolek    Boleslav Brezovsky         61:27h          [rank 50]

  19 Robert     Robert M. Münch            6:30h           [rank 50]

  20 DocKimbel  Nenad Rakocevic            111d            [rank 50]

  21 cyphre     Richard Smolak             16d             [rank 50]

  22 giesse     Gabriele Santilli          122d            [rank 50]

  23 Gregg      Gregg Irwin                3:35h           [rank 50]

  24 Brent      Brent Fessler              51:13h          [rank 50]

  25 Edgar      Edgar Tolentino            52d             [rank 50]

  26 acook      A. Cook                    122d            [rank 30]

  27 Allen      Allen Kamp                 58d             [rank 40]

  28 Steeve     Steeve Antoine             0:01h           [rank 40]

  29 warp       Will Arp                   99d             [rank 40]

  30 joshua     Joshua Shireman            109d            [rank 40]

  31 Paul       Paul Tretter               12d             [rank 40]

  32 mick       nicolas schmidt            92d             [rank 30]

  33 PeterWood  Peter W A Wood             4:54h           [rank 40]

  34 sean       Sean C. Johnson            5:32h           [rank 40]

  36 fergus     Alan Macleod               11d             [rank 30]

  37 sqlab      A.Reisacher                3:17h           [rank 40]

  38 qwerty     michal tarkowski           60:38h          [rank 40]

  42 ErosZ      Eros Zoltan                108d            [rank 5]

  44 RobertS    Robert Shiplett            26:44h          [rank 40]

  45 rchifflet  G. Robert Shiplett         108d            [rank 30]

  46 perekk     Perekk                     28d             [rank 30]

  47 whispa     Jon                        108d            [rank 30]

  48 manum      Manuel Moreno              22:10h          [rank 40]

  49 mchean     Michael Chean              18d             [rank 40]

  50 claude     ramier claude              108d            [rank 30]

  52 kib2       kibleur christophe         56d             [rank 40]

  53 adrians    Adrian Sampaleanu          40:37h          [rank 40]

  54 jocko      Joseph Colineau            37:56h          [rank 40]

  55 ken        Kenneth Collins            3d              [rank 40]

  56 kealist    Joshua Shireman            76d             [rank 40]

  57 abolka     Andreas Bolka              3d              [rank 40]

  58 icarii     James Marsden              16d             [rank 40]

  59 Ammon      Ammon Johnson              19d             [rank 40]

  60 jimrichard Jim Richards               70d             [rank 30]

  61 garya      G A                        74d             [rank 30]

  62 pavel      Pavel Kebort               7:36h           [rank 40]

  63 franck     Franck Le Bihan            23d             [rank 30]

  64 claudebe   ramcla                     43d             [rank 30]

  65 Geomol     John Niclasen              22d             [rank 40]

  66 arthur     Arthur Chang               10:10h          [rank 40]

  67 zap        Ben Brannen                25:28h          [rank 40]

  68 gerard     gerard cote                61d             [rank 40]

  69 gagee      gagee                      73d             [rank 30]

  70 horscht    Reinhard Hochstein         72d             [rank 20]

  71 hasy       darek                      72d             [rank 20]

  72 nicka      Nick Antonaccio            72d             [rank 40]

  73 rebkodeur  Oehler                     72d             [rank 20]

  74 scottt     Scott Thode                31d             [rank 40]

  75 patrickp61 Patrick Potter             27:50h          [rank 40]

  76 iho        Ingo Hohmann               16d             [rank 40]

  77 bobik      Robert Paluch              69d             [rank 20]

  78 cipri      ciprian                    42d             [rank 30]

  79 shadwolf   Alphé Salas-schumann       16d             [rank 20]

  80 cwardell   Charles Wardell            67d             [rank 20]

  81 ernst      Ernst Niska                5d              [rank 40]

  82 rod        Rod Gaither                66d             [rank 40]

  83 digipal    digipal                    66d             [rank 20]

  84 awi        awi prayitno               8d              [rank 30]

  85 rich       Richard Blundell           60d             [rank 40]

  86 onetom     Herman Tamás               45d             [rank 20]

  87 anton      Anton Rolls                5d              [rank 40]

  88 jjmmes     jose                       59d             [rank 20]

  89 nicolas    longjacket                 58d             [rank 20]

  90 blazs      Blaz Segavac               7d              [rank 30]

  91 tw00167789 Liou ChinMing              7d              [rank 20]

  92 cindy      Cindy Sassenrath           52d             [rank 60]

  93 ssandrew   andrewng                   47d             [rank 20]

  94 mario      Mario Cassani              46d             [rank 20]

  95 th72       Tim Hendriks               46d             [rank 20]

  96 JohanAR    Johan Aires Rastén         4d              [rank 30]

  97 philippe   Philippe LE GOFF           44d             [rank 20]

  98 fatemanme  jonathan                   43d             [rank 20]

  99 wffsg2008  examele tester             43d             [rank 20]

 100 tk         neo                        37d             [rank 30]

 101 bardo      bardonnenche               42d             [rank 20]

 102 minkui     minkui cai                 40d             [rank 20]

 103 mikoden    Nicolas Schmidt            12d             [rank 30]

 104 fraya      Fernando Raya              23d             [rank 20]

 105 nicolasf   Nicolas Fournier           31d             [rank 30]

 106 goldevil   Karim El Founas            39d             [rank 20]

 107 louis      Louis A. Turk              38d             [rank 20]

 108 andyc16us  Andy Cragg                 37d             [rank 20]

 109 che        Christian Ensel            3:26h           [rank 30]

 110 jankom     Janko Metelko              36d             [rank 20]

 111 alanwall   Alan Crandall              35d             [rank 30]

 112 kensinglet Ken Singleton              34d             [rank 30]

 113 bga        Bruno Albuquerque          29d             [rank 10]

 114 aiwen      aiwen ming                 28d             [rank 10]

 115 james-nak  James Nakakihara           28d             [rank 40]

 116 gaagaaga   Y.C. Ling                  27d             [rank 10]

 117 morler     Morler                     27d             [rank 10]

 118 devl       Lennart Fridén             26d             [rank 10]

 119 brondoman  Greg Brondo                26d             [rank 10]

 120 ladislav   Ladislav Mecir             1:13h           [rank 50]

 121 scot       Scot M. Sutherland         15:21h          [rank 40]

 122 meijeru    Rudolf W. MEIJER           3d              [rank 30]

 123 czoller    chris zoller               11d             [rank 30]

 124 rfenske    Robert Fenske              11d             [rank 30]

 125 cofyc      Cofyc Jackson              7d              [rank 10]

 126 jackseay   Jack Seay                  4d              [rank 10]

 127 kuler      Keith Robertson            4d              [rank 10]

 128 kpeters    Kai Peters                 3d              [rank 10]

 129 acasado    alberto casado             3d              [rank 10]

 130 giancarlo  Giancarlo Valente          8:52h           [rank 10]

geez it's a public group here, i forgot sorry...

It would be nice if we ask users to present examples etc in a structured 
format so that we can data mine the information here and publish 
automatically to a knowledgebase.

There's a REBOL 2 section in DocBase for just that kind of thing 
:)

Nope, but it's on my list. I think a new R2 manual built on the same 
foundation as the R3 manual would be nice too.

Years ago I released a program that collected all the mailing list 
into a personal database .. and I allowed users to execute programs 
in the emails if they were enclosed in blocks .. an old Rebol trick.

< present examples etc in a structured format >
There is the underused checklists /code snippets

so, such a simple thing as [ my script ] was not possible.  No wonder 
people go off topic :)

How about putting a Rebol [] header in front of examples?  then a 
parser would at least know to start from there .. until it hit some 
syntax error and would then know the example had terminated.

It also makes it easier to copy-run the examples. If you have a rebol 
[] header in front of your code, you can copy it and do clipboard://

It would be simple to add the ability to execute a script embedded 
in the REBOL.org archive of this world, eg:
do http://www.rebol.org/aga-execute-post.r?post=r3wp174x26

Provided the post (like the one in the example) consists solely of 
script. Headers can be added if needed.

Is this a common need?

As a noob I am more likely to want to copy the script into my editor, 
then modify it a bit to see if I have understood the example.

Just running an example would be handy to check it had no errors 
in it, but not very educational as far as I can see.


As the web public version of the chats is not right up to date I 
would find improving the AltME client the most usefull thing to help 
me learn. Paticularly fixing the cut & paste functions & adding mouseless 
navigation & perhaps the ability to use fixed width font to view 
code in messages.  Thanks,

I get a 404 on that link at rebol.org

because the clipboard is problematic .. I think it's a good idea.

Something I have learnt today...

I have been looking again at some of the examples I have been given 
here & now I have a bit more understanding of Rebol I am able to 
reformat the examples into multiple lines and indent them appropiatly 
which makes them more understandable for a noob like me. I needed 
enough understanding to see where one complete statement part ended 
& the next one began before I could do this. What I have learnt is 
that I should have tried harder, sooner to do this & it would have 
speeded up my learning...


I am looking at graphics today & giving parse a break for the rest 
of the weekend.