r3wp [groups: 83 posts: 189283]
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

World: r3wp

[Linux] group for linux REBOL users

Graham
15-Dec-2006
[1061x2]
I guess Debian rocks.  The console history works correctly in Debian, 
and so do the fonts in AGG draw.
How do you get browse to invoke the default browser?
Frank
15-Dec-2006
[1063]
For the browser i use this in my user.r

browse*: :browse
browse: func [
	value [any-string!]
	/only
	] [

   call rejoin[{/usr/local/firefox/firefox "}  to-url (value) {"}]
]
Graham
15-Dec-2006
[1064x3]
I'll give that a go.
Debian, view runs .. but encapped app complains
missing libstdc++-lib6.2-2.so.3
Cyphre
15-Dec-2006
[1067]
Graham, re fonts on Fedora: are you sure you are using the right 
Linux version with FreeType2 support? Do you have the FreeType2 library 
installed on your Linux setup?
Graham
15-Dec-2006
[1068x2]
Yes, freetype 2.2.1 release 16fc6.
I'm not the only person with this problem.  Rebolinth reported the 
same in March.
Cyphre
15-Dec-2006
[1070]
what you get if you type: ldd rebol in the console?
Graham
15-Dec-2006
[1071x6]
linux-gate.so.1 =>  (0x005ec000)
	libX11.so.6 => /usr/lib/libX11.so.6 (0x45e3e000)
	libXext.so.6 => /usr/lib/libXext.so.6 (0x45f42000)
	libXt.so.6 => /usr/lib/libXt.so.6 (0x46566000)
	libXaw.so.7 => /usr/lib/libXaw.so.7 (0x46012000)
	libXmu.so.6 => /usr/lib/libXmu.so.6 (0x465c0000)
	libstdc++.so.5 => /usr/lib/libstdc++.so.5 (0x00111000)
	libm.so.6 => /lib/libm.so.6 (0x49ad8000)
	libdl.so.2 => /lib/libdl.so.2 (0x49b01000)
	libc.so.6 => /lib/libc.so.6 (0x49999000)
	libXau.so.6 => /usr/lib/libXau.so.6 (0x49d2d000)
	libXdmcp.so.6 => /usr/lib/libXdmcp.so.6 (0x49d25000)
	libSM.so.6 => /usr/lib/libSM.so.6 (0x4a53b000)
	libICE.so.6 => /usr/lib/libICE.so.6 (0x4a51f000)
	libXpm.so.4 => /usr/lib/libXpm.so.4 (0x465d9000)
	libgcc_s.so.1 => /lib/libgcc_s.so.1 (0x4a546000)
	/lib/ld-linux.so.2 (0x48fca000)
shall I rambo this?
It would be good to have a page which detailed all the issues relating 
to various flavours of Linux - particularly for those new to the 
game.
Maybe the rebolbook might be one place ...
If RT can't manage to document them.
Cyphre, since you mentioned freetype, and freetype is capable of 
using type 1 fonts, does this mean that we will have type 1 fonts 
available at some stage soon?
Graham
16-Dec-2006
[1077x5]
What would it take for RT to port View to the Zaurus 3200 ?  It can 
run a form of Debian.
http://www.carrypad.com/content/view/26/9/1/1/
I can imagine this would be quite useful to login to my medical database 
while on the move....
Talked to Rebolinth again .. he never got AGG fonts working except 
by changing to Debian.
the Linux file requester needs some arrow widgets on the scroller. 
 It's very difficult to navigate a directory with lots of files.
Anton
17-Dec-2006
[1082]
I always thought it would be better to do the requester in rebol 
anyway, then we are all concerned to improve it.
Graham
17-Dec-2006
[1083]
it is in Rebol
Anton
17-Dec-2006
[1084x2]
Oh really :) That's good then.
Post the REQUEST-FILE source then, we can have a look.
Graham
17-Dec-2006
[1086]
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]
        ]
    ]
]
Anton
17-Dec-2006
[1087]
This is the same source as on Windows.

REQUEST-FILE is just a wrapper for LOCAL-REQUEST-FILE, which is native 
on Windows and I suppose might be native on Linux.

You must post source of LOCAL-REQUEST-FILE or rambo the problem if 
it is native.
Volker
17-Dec-2006
[1088]
No, in linux its the old rebol-requester.
Anton
17-Dec-2006
[1089]
Ok, so post the source of LOCAL-REQUEST-FILE here.
Graham
17-Dec-2006
[1090x2]
It's a native
Anyone know how to write to lp ?
Anton
17-Dec-2006
[1092]
A native ? That's seems strange.
btiffin
17-Dec-2006
[1093x2]
*nixes used to just use cp file /dev/lp.
My current Debian has an lp device at /dev/lp0, but alas I have no 
printer to test open %/dev/lp0
Anton
17-Dec-2006
[1095x4]
REQUEST-FILE used to be fully mezzanine.
Does the linux request-file look like this one from View 1.2.1 ?
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]
        ]
    ]
]
It uses SLIDER and you would want those replaced with SCROLLER.
(LOCAL-REQUEST-FILE was introduced by View 1.2.5, by the way.)
Graham
17-Dec-2006
[1099x4]
that's it?
This is the latest view on Linux .. odd that RT haven't done this.
I really wonder how many people are using Linux versions of Rebol.
for other than cgi ...
btiffin
17-Dec-2006
[1103x2]
Debian Etch RC1 is working nicely with 1.3.2, as is AltMe 1.1.29. 
 Ive only been etched a few weeks now.
The Debian and Mozilla people have got to get together on the forking... 
 IceApe?  IceWeasel?  :)
Graham
17-Dec-2006
[1105x2]
I'm using Etch as vmware
Annoyingly it loses the network connection if I suspend it ...
btiffin
17-Dec-2006
[1107]
I've always liked the linux'es since (although they have been more 
prone to flake out with certain hardware configs) when the os crashes, 
I can think to myself...At least no one got paid.  :)  Not like the 
old and getting rarer 250 billion dollar blue screen of death.
Anton
17-Dec-2006
[1108]
I'm planning to set up a linux box as my main workstation soon.
btiffin
17-Dec-2006
[1109x2]
Go for it.  I must admit Gnome and KDE are getting that 'smooth' 
feel.  What are us crusty old CLI coders going to do  :)
Debian's package list is impressive.  And there is nothing stopping 
you from Dl'ing unpackaged goods.  Ubuntu comes no cost for free 
they pay postage...free.  And it's based on Debian, and perhaps making 
mama and papa a little jealous.  :)