AltME groups: search

Winmm.dll is the MCI interface in Windows. With that interface you 
can control many multimedia stuff (wave form playing, video playing, 
recording...)

It has two interface : C++ level and string command. The last one 
sounds easy to interface with view/pro. But, eh, I never played with 
DLL interfacing in rebol.
So I let that to "make routine!" guru ;-)

In response to Graham:


Yeah, I got that, and I'm saying your full of it for calling it buggy. 
 And more so, I'm saying you are mischaracterizing the issue, as 
well as what he said.  This is a pet peeve for me with you.


For the record: Carl said "they seem to work pretty well"  and they 
do!


Calling AltME buggy is simply untrue in the context, or in reply 
to what he wrote.  


It has a few bugs, but it is far form buggy.  Tomb Raider for example 
shipped with 3,000 known bugs, 280 critical crashes.  FireFox has 
more categories for bugs that AltME has bugs.  


We do agree the key bug here isn't even AltMEs, but Rebol's.  AltME 
still crashes less than any one of the other apps I run every day. 
 Thunderbird crashes twice a day on me.  I stopped using outlook 
all together.  Word has a hissy fit about 4 times a day on me.

Yes, that was considered.  We have a list of about 20 models.  Our 
next AltME update (being tested right now) will start the process 
of creating seperation form the free model.

I must request a feature to create source files directly within the 
filesharing area. if it works how I think it works, this could be 
used for a form of collaborative editing

that's the difference between FORM and MOLD:

>> form :source
== "?function?"
>> mold :source
== {func [
    "Prints the source code for a word."
    'word [word!]
][
    prin join word ": "
    if not value? word [print "u...

(means i would fix form/mold, not to-idate)

Gabriele: #3402 is an outstanding bug when using /CUSTOM refinement. 
 An example is submitting a  form over http using REBOL. You need 
to specify both HEADER and POST. For example:

   read/custom url [HEADER [Content-Type: {multipart/form-data; boundary=---xyz} 
   ] POST {blah}]

The problem is that the handling of POST *overwrites* the Content-Type 
and Referer even though they may have been specified in HEADER. This 
logic bug is within the create-request function of Open in HTTP scheme.

read/custom url [POST {blah} [Content-Type: {multipart/form-data; 
boundary=---xyz} ]]

imo Rebol is so free form, that you imo can find lot of such inconsistencies 
here ...

Does rebol has some form of inheritance? Well not according to the 
docs. But when intializing within context there seems to be an initialization 
chain that look like a bit like inheritance to me.

I'm writing a greylisting implementation for my smtp server .. and 
I needed to drop the last digits of an ip address to form the triplet

actually, this is the form I used 

>> res: read dig://203.96.152.4/MX/compkarori.com
connecting to: 203.96.152.4
>> probe res/to-str
{;; REQUEST: MX(15) for compkarori.com

;; id: 53188 AA: 0.0 RD: 1.0 RA: 1.0 ANSWER(s): 2 AUTHORITY(s): 3 
ADDITIONAL(s): 3

;; ANSWER(s):
compkarori.com.^-247^-MX^-0   pop.compkarori.com.
compkarori.com.^-247^-MX^-10   pop.compkarori.com.

;; AUTHORITY(s)
compkarori.com.^-596^-NS^-ns3.webxess.net.
compkarori.com.^-596^-NS^-ns1.webxess.net.
compkarori.com.^-596^-NS^-ns2.webxess.net.

;; ADDITIONAL(s)
pop.compkarori.com.^-596^-A^-203.79.110.37
ns1.webxess.net.^-69731^-A^-216.166.83.11
ns2.webxess.net.^-69731^-A^-216.166.83.12
}

I used 1'000'000 here .. don't know if it's enough

    generate-messageid: does [

     rejoin [ "<" enbase form now/time/precise "." enbase form random 
     1000000  "@" server-name ">"]
	]

Gordon, your method only works for chars than happen to map to decimals. 
 Try this for an error:

print to-integer to-string to-hex to-integer to-decimal to-char "M"


Variant on Tom's to produce the same result as yours (may not work 
with 64-bit REBOL)
     form skip to-hex to-integer first "a" 6

If you can issue a DOS command (REBOL/Command or some betas with 
Call enabled), try this:
    echo ^l > prn
(That's a ctrl+L character, not a caret then L)
That should force a form feed

complication is i have a password with special chars % and $ so i 
have to use the block form of the url

Re default: (a user poll) I wonder whether it is useful to have it 
like: 


    default [trial code here] 'error-variable [print disarm error-variable]

or in a shorter form like:

    default [trial code here] [print disarm error]


, in the last case the error variable will always be 'error, which 
will be local to the error handling block, i.e. if you want any other 
variable you have to explicitly assign the value of the 'error variable 
to it

Why not just use SDK. Surely a BigCo can afford it. Besides I think 
is better to distribute such tool in an encaped form.

Ladislav: the short form for negate was intended to be -, but of 
course that can have its own problems. +- is not very readable to 
me though, as i wouldn't immediately associate it with negate.

I thought tags were a special form of strings ...

I just submitted to rebol.org a 4 line script  and it took me 1 hour 
is it normal to spend 1 hours on the header formating  for just a 
copy past ?   Can't we in 2011 get ride of it and have a form that 
you fill and generate the header for your script ? This is the numberone 
pain in the ass thing that makes me vomit each time i use rebol.org 
....

num: 1 view layout [cnt: label (form num) timer 1 [cnt/text: form 
num: num + 1 show cnt]]

I usually do this: num: 1 win: view/new layout [cnt: label (form 
num)] while [viewed? win] [cnt/text: form num: num + 1 show cnt]

Err, actually with a wait like: num: 1 win: view/new layout [cnt: 
label (form num)] while [viewed? win] [cnt/text: form num: num + 
1 show cnt wait 1]

num: 1 view layout [cnt: label (form num) rate 1 feel [engage: [cnt/text: 
form num show cnt num: num + 1]]]

num: 1 view layout [cnt: label (form num) rate 1 feel [engage: [cnt/text: 
form num: num + 1 show cnt]]]

To prevent ui events and have counter start with 1 using your short 
form:

num: 0 view layout [cnt: label (form num) rate 1 feel [engage: func 
[face action event] [if action = 'time [cnt/text: form num: num + 
1 show cnt]]]]

ok, but how can i form the X code and use it within a layout?

a graphical gui designer. drag and drop controls/components on a 
form . something like a nice IDE...

I've founfd the most reliable way to contact RT is via the feedback 
form at rebol.com. 

It doesn't work everytime though.

About *bold*, ~italic~, -strike- and _underline_, maybe it would 
be a good idea to introduce a new paragraph level state change called 
=magic (I got the idea from the vim editor). If the writer type:

=magic


then the short form of bold, italic and so can be used. If the writer 
type:

=/magic


we're back to the default character level state changes: [b], [i], 
[s] and [u]. Isn't that a good idea? :-)

update: I just extended make-doc-pro to support forms. Looks like 
this:

Test of Form Dialect in make-doc-pro

=toc

=options debug

===Introduction
This file test the form generation dialect.

\form test.cgi
	cgi-bin http://localhost/cgi-bin/

	; same-width with fields & buttons
	same-width left [
		field "Name1"
		field "Name12" 10
		field "Name123" 10 20
		field "Name"
		radio "R1" [Robby Linna Bunny Blacky]

		btn-enter "Abschicken"
		btn-cancel "Abbrechen"
	]

/form

maybe I'm over estimating the capabilities of AGG on it's actual 
form too... because it's still depending on View layout rendering 
engine

Ashley thank you very mutch for the tips ;) I will work on special 
adaptation to MDP format requirement on the redering process. Option 
tu use makedoc 2  sure but in this case your cute MD2IDE will be 
deprecated and I  doesn't want that... MDP and MD2 have similar form 
but diferent kind of rendering processs. I don't want to make a monster 
application ... I want to make a quick usefull little GUI to write 
aesyly MDP formated programs with lot of automation like save on 
quit, recent file list, etc...

Graham her you get the patch for this proprlem that allows you to 
not redownload it :
add this code in config-pan: 

btn-cancel "Cancel" [
			either exists?  mdp-config-file [ 
				unview/only config-win 
				if not viewed? main-win [mdp-gui-init]

   ][ alert "It's my first run baby !! ^/ You need to fill properly 
   the config form !!!" ]
			
		]

you can do it as a string:
>> parse form [-1] ["-1"]
== true
>> parse form [1] ["-1"]
== false

Note: The form native doesn't escape on output like mold does.

What would it take for RT to port View to the Zaurus 3200 ?  It can 
run a form of Debian.

request-file: func [

    {Requests a file using a popup list of files and directories.} 
    /title "Change heading on request." 
    title-line "Title line of request" 
    button-text "Button text for selection" 
    /file name "Default file name or block of file names" 
    /filter filt "Filter or block of filters" 
    /keep "Keep previous settings and results" 
    /only "Return only a single file, not a block." 
    /path "Return absolute path followed by relative files." 
    /save "Request file for saving, otherwise loading." 
    /local where data filt-names filt-values
][
    if none? out start-out 
    either file [

        either block? name [picked: copy name] [picked: reduce [to-file name]]
    ] [
        if not keep [picked: copy []]
    ] 
    if none? picked [picked: copy []] 
    if file: picked/1 [where: first split-path file] 
    while [not tail? picked] [
        set [name file] split-path first picked 
        either name <> where [remove picked] [
            change picked file 
            picked: next picked
        ]
    ] 
    picked: head picked 
    if any [not where not exists? where] [where: clean-path %.] 
    if not keep [
        fp/data: head fp/data 
        so/data: head so/data 
        si: 1
    ] 
    either filter [
        filters: either block? filt [filt] [reduce [filt]]
    ] [if any [not keep not block? filters] [pick-filter]] 
    ff/text: form filters 
    tt/text: either title [copy title-line] ["Select a File:"] 
    ob/text: either title [copy button-text] ["Select"] 
    if all [
        error? done: try [
            filt-names: copy head fp/data 
            filt-values: copy filter-list 
            either filter [
                insert head filt-names "Custom" 
                insert/only filt-values filters
            ] [
                filt-names: at filt-names index? fp/data
            ] 
            done: local-request-file data: reduce 

            [tt/text ob/text clean-path where picked filt-names filt-values found? 
            any [only] found? any [save]] 
            if done [
                dir-path: data/3 
                picked: data/4 

                if not filter [fp/data: at head fp/data index? data/5]
            ] 
            done
        ] 
        (get in disarm done 'code) = 328
    ] [
        done: false 
        read-dir/full either where [where] [dir-path] 
        show-pick 
        inform out 
        unfocus
    ] 
    if error? done [done] 
    if all [done picked any [path not empty? picked]] [
        either path [
            done: insert copy picked copy dir-path 
            either only [done/1] [head done]
        ] [
            foreach file picked [insert file dir-path] 
            either only [picked/1] [picked]
        ]
    ]
]

request-file: func [

    {Requests a file using a popup list of files and directories.}
    /title "Change heading on request."
    title-line "Title line of request"
    button-text "Button text for selection"
    /file name "Default file name or block of file names"
    /filter filt "Filter or block of filters"
    /keep "Keep previous settings and results"
    /only "Return only a single file, not a block."
    /path "Return absolute path followed by relative files."
    /local where
][
    if none? out start-out
    done: false
    either file [

        either block? name [picked: copy name] [picked: reduce [to-file name]]
    ] [
        if not keep [picked: copy []]
    ]
    if none? picked [picked: copy []]
    if file: picked/1 [where: first split-path file]
    while [not tail? picked] [
        set [name file] split-path first picked
        either name <> where [remove picked] [
            change picked file
            picked: next picked
        ]
    ]
    picked: head picked
    if any [not where not exists? where] [where: clean-path %.]
    if not keep [
        fp/data: head fp/data
        so/data: head so/data
        si: 1
    ]
    either filter [
        filters: either block? filt [filt] [reduce [filt]]
    ] [if any [not keep not block? filters] [pick-filter]]
    ff/text: form filters
    tt/text: either title [copy title-line] ["Select a File:"]
    ob/texts/1: either title [copy button-text] ["Select"]
    read-dir/full either where [where] [dir-path]
    show-pick
    inform out
    unfocus
    if all [done picked any [path not empty? picked]] [
        either path [
            done: insert copy picked copy dir-path
            either only [done/1] [head done]
        ] [
            foreach file picked [insert file dir-path]
            either only [picked/1] [picked]
        ]
    ]
]

Under a root process the first form works...
and the second form works as well...

assuming I am anywhere near "getting it"

there is no workaround other than using your own form function for 
decimals.

Gabriele .. thanks.  Anyone got a form function for decimals??

graham, Gabriele made form-decimal once.

http://www.compkarori.com/vanilla/display/form-decimal.r

Unforunately form-decimal also has problems under wine.

Graham, I modified one old form-decimal i had around to work with 
the wine bug; i just needed to test one of my old programs on wine, 
so it's not bullet proof, but it seems to work here. i will paste 
it to you, but you basically just need to parse the output of form 
and make it correct, it's easier than what it seems.

I just happened to refine my form-money yesterday:

form-money: func [
	m
	/local r
][
	if money? m [m: m/2]
	r: (to-integer (absolute m) * 100 + 0.5) // 100
	rejoin [
		either negative? m ["-"] [""]
		absolute to-integer m
		","
		either r < 10 ["0"] [""]
		r
	]
]

Louis;  Woohoo.  CLI wins in my book.  Everytime.   Well I take that 
back a little.  Windowed CLI's are just that little bit better, in 
terms of eye strain and quickly getting from task A to task B.  Konsole 
is the da bomb.  Note, my mileage varies.  I don't really do art, 
but I appreciate it when I see it.


Learn some bash, AWK, sed, tr and cut and there won't be a text file 
that can't be scrunched and munched into whatever form you desire. 
 ;)  Well, Icon too if you have reaallly complex needs.  Umm, assuming 
REBOL doesn't already have a one-liner solution.

Hey, thanks for the interest Volker.  And Gregg thanks for the comments. 
 But I'm still kinda stuck on an editor dialect that could handle 
random text in a parse block.  Even the nifty fed above will break 
on   "p $10,000,000" as rebol can't quite form a money value out 
of $10,000,000.  So the basic question exists.  Is there a way to 
block parse random potentially unloadable text?

Issues can actually contain spaces, but they don't parse or mold 
that way. i.e. the datatype can hold them, but the lexical form doesn't 
allow it. Meaning you can get bitten, but do tricky things. :-)

>> a: #This issue has spaces in it
** Script Error: issue has no value
** Near: issue has spaces in it
>> a: to issue! "This issue has spaces in it"
== #This
>> probe a
#This
== #This
>> b: to string! a
== "This issue has spaces in it"

just an alternative form:

>> form #[issue! "aaaaa aaa"]
== "aaaaa aaa"

A "true" dialect in REBOL follows REBOL lexical form--i.e. you use 
block parsing--which is what would be called an embedded DSL in other 
languages. The concept is often associated with Lisp and its descendants. 
REBOL takes it furhter, and makes it easier (IMHO).

What is a good Forth version as a reference system? ANS Forth? I 
also need a place to look, where the language is explained in a clear 
and short form.

What I am going to attempt is a dialect that will respond to single 
key-strokes to tell the story of a match and at the same time capture 
the statics for the live game.  Hopefully the end result  will lead 
to many different tools based on this data such as statistics visualizations 
in the form of data summaries/reports and charts.

yes, I saw this in Chris's  validation lib " Defining a good dialect 
(simple, short, efficient) isn't an easy task. Chris did some work 
about such form validation dialect in QM. See http://www.rebol.org/documentation.r?script=filtered-import.r
" (on this url)

Though not included in the rebol.org submission (it's in QM), I actually 
have two data matching dialects that use the same validation vocabulary 
(in both cases, set-words are the anchor to each rule).


 import [this "1"] [this: integer! is 1] ; import extracts name/value 
 pairs

 match [1][this: integer! | decimal! is 1] ; match evaluates a free-form 
 dialect


Both have different basic expressions, yet use exactly the same validation 
code.

I'm rethinking the behaviour of my 'import dialect (library: http://bit.ly/rebimport
) when working with structured data. At it's simplest form, 'import 
filters a block of key-string pairs based on a supplied set of constraints: 
import [a "1"][a: integer! is more-than 0] == [a 1] ; or none if 
the constraints are not met


There are two nested forms I'd like to support: 1) a continuation 
of key-value blocks [a [b "1"]] and 2) a block of values [c ["b" 
"1" "foo"]]


The first could just be a recursive function or parse call. The second 
needs a little more thought - on the face of it, it could just verify 
the contents conform to a preset group: [ ["a" "b"] contains some 
of ["a" "b" "c"] ] (or any of), which'd be fine for validating web 
form input (eg. multi-select list), but would rule out, say, a JSON 
block containing objects (as key-value pairs).  I'm trying to figure 
out if this is overkill or a genuinely useful way of validating structured 
data...


Then there's ["1" "2" "3"] <- be nice to validate as [some integer!] 
or [some integer! | decimal!]. I don't want it to be overly complex, 
but it should at least be useful - anyone have any conventional cases 
for validating a block of strings?

Paul, you'd still need to think about all of those concurrent consistency 
problems if you went multi-threaded. Without serialization of some 
form, concurrent use will still be an issue, whether you are using 
processes or threads.

also... i need feedback on the proposed visit plans. let me know 
your opinion. if they seem ok i can contact hotels and so on and 
prepare a registration form (for reservations) with prices and so 
on.

I have hear that part of the problem, last year, was the upstream 
bandwith form the Hotel : quite low ?

multi-column table, and a data-form dialect.

Registration is now available via a web form, too.

I've two questions. 1) I plan to come Saterday 24th at Rome and already 
visit things in Rome with my wife even if I'll visit Rome with the 
group on Wednesday 28th. Can I make a reservation for hotel Virginia 
with registration form of DevCon2005 website with your interresting 
price (90€ for a double room) for my whole stay in Rome (5 nights)

We should make a new form for date changes? At most on Tuesday we 
need to reserve the hotel's rooms...

I'll remove the hotel reservation options from the form tomorrow.

view is core for all except gui. + some commands ending with -thru, 
'read-thru and such. they are the same as the short form, but use 
a cache.

make-ruler: func [count /local res str-ct offset] [
    res: head insert/dup copy "" "....+....+" count
    repeat ct count [
        str-ct: form ct * 10
        offset: subtract length? str-ct 1
        change at res ct * 10 - offset str-ct
    ]
    res
]

Oh, by the way...we added to the %form-date.r script in the library. 
  See I'm New for details.

things like list sorting in widgets like table or listview in rebgui 
could profit form rebcode optimisation

Back to parse, you could in theory statically translate the rules 
to an internal rebcode-like form for a different VM, and then JIT 
that. You wouldn't get as much of a speedup as you think though. 
The existing parse engine spends most of its time actually doing 
the parsing with the native code in the engine - a JIT would only 
speed up the reading of the parse rules, something it doesn't spend 
as much time doing in comparison.

How about this, a single piece of code to handle any web form.. just 
add a new field to the html and you're all set... don't need to alter 
the DB or the serverside processing.

Basically the eval form of lisp is fixed, it is part of syntax, and 
it is (func args ...)

In rebol the is not special *eval form*, evaluation depends on the 
specific  expression.

with Framewerks, you could copy a form from any web page, change 
the 'action' of the submit button.. and it will work perfectly.  
Rails cannot do that.

From "usining Ruby on  Rails for Web Development" article

<quote>

If you try to submit the form, Rails complains that it can't find 
the record action to handle the form post. We need to define that 
action in the ExpensesController. Add the following action method 
to the app/controllers/expenses_controller.rb file:

def record
 
 Account.find(params[:id]).expenses.create(params[:expense])
  redirect_to 
:action => 'show', :id => params[:id]
end

</quote>

I also want to save the data so I can edit it and fill out the form 
again later.

I am thinking the data would be in a layer above the graphic form. 
Click in the right spots, fill in the right data, print out the completed 
form, then save the data with the form  for later use. Something 
real simpe anyone can use.

openoffice 2.0 has a free XForms implementation. it can save PDF's 
like this so you can edit them like a real form. I haven't worked 
with it deeply, but I think you can save data from them in a database.

edit them like a real form
 => edit them like a real form in adobe reader

or just make your own form

A form of tech...

But if you're gonna do that, you might as well take advantage of 
the huge magnetic field made possible by the coil. Perhaps it could 
be a form of locomotion.. :)

hmm, detailed problem - he had zip code defined as integer in some 
sqlite editor. Then he has rebol form, with fields ... and he saved 
empty zip code field ... so he saved "" to db, where number was required 
...

ID field problem can be fixed by using code like:

	...
	id/text: form i: i + 1
	save %id.txt i
	show id

No need for parenthesis.

I'm going to gather your comments and we'll keep those in mind and 
work them into a draft plan which we'll post in the form of a design 
doc in a couple of weeks as I said.

get-net-info needs fixing by its own - it looks at incorrect registry 
keys imo. Apart form ntlm, kerberos and autoconfig proxies, it would 
work, so imo it would work in 90% of cases as sufficient ...

of course, as for rebol itself, you can prepare your app ahead - 
it is still standard View 1.3.2 imo, just in form of a dll, being 
called via plug-in dll API

I was able to use it on my linux box with firefox. I know there is 
know plugin for linux firefox and I do not have any form of the plugin 
on that machine.

Looks like it's stored in memory only : "In short, environment variables 
are internally stored as a pointer to an array of pointers to characters; 
this array is stored in order and terminated by a NULL pointer (so 
you'll know when the array ends). The pointers to characters, in 
turn, each point to a NIL-terminated string value of the form ``NAME=value''"

REBOL []

install-HTTPd-extension [
	name: 'mod-qm

	order: [
		url-to-filename last
	]

	url-to-filename: func [svc req conflo][
		req/in/path: "/"
		req/in/target: form req/in/file: %qm.r
		req/file-info: info? req/in/file
		req/handler: select svc/handlers req/in/ext: '.r
		false
	]
]

Well, they should form some venture and use the thing for some Artificial 
Intelligence things. You remember Carl studies brain and how it behaves 
(neurons) :-)

Gregg: strange error, never got it before. It's like you went to 
the registering page and waited 20minutes for the session to expire, 
then submited the form...Could you please try to register again ?

Several questions:


- what is meant by Severity field of values - text, block, feature? 
I do understand major, minor, trivial, etc., but not those mentioned 
...

- for better searches, I would expect field 'fields to be filled 
in with every field form contains. E.g. I want to filter using 'Built-in

- CureCode, if slightly refined, could serve as auto changelog generation 
system. But Carl (or responsible person) would have to fill-in 'built-in 
field. In the past, I e.g. proposed addition of small table called 
Releases to RAMBO for such purposes. It would contain named releases. 
Main base could have small helper, value 'next pre-filling 'buil-tin, 
once someone markes it as built. 'next would be related to the closest 
relese from the Releases table.

Suggestion : in the "new ticket" form, insert in first line the project 
selector, with the current project value.

My opinion is that the project selector where it is placed is not 
very seen by the early user.

I think It will avoid some submissions of bug in the wrong project.


Eg: R3 curecode must have a "RebDev" project for RebDev bugs and 
then, when you hit "new ticket", you can select "RebDev" or "Rebol 
3.0" immediatly.

That makes sense, I might add a Project: label (not editable) in 
the first line of the "Add Ticket" form. The project selector is 
global, it affects almost every page, so it needs to be in the banner 
zone (but I understand your argument).

New CureCode version released. Changelog : 0.9.7 - 11/04/2009


 o FEAT: Dismissed tickets are now filtered out from "Active Priorities" 
 and "Worst Severity" filters
	o FEAT: Current project name added to "Add Ticket" form.

 o FEAT: Reversed sort order for Versions and Categories lists in 
 admin page.

 o FEAT: Added an experimental API for getting tickets in REBOL format.

	o FIX:	Front page stats now count "dismissed" tickets as closed.

 o FIX:	Message "n ticket(s) found" fixed for localization, now translates 
 correctly in french.

It would probably be easier to get AGG to output stuff in a form 
GDI would like though, with more overhead from pushing around all 
of that bitmap data of course.