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

World: r3wp

[Linux] group for linux REBOL users

MaxV
27-Aug-2010
[3808x2]
Dear ManuM, my problem is with graphic. I have to display a graph 
with lines, rectangules and texts, so I use DRAW. Have you ever used 
DRAW on Linux?
I want to do something like:  http://picasaweb.google.it/lh/photo/blmYoQ1StCsXdxBTcSg1Fg?feat=directlink
but it doesn't  work no linux... sigh!
ManuM
27-Aug-2010
[3810]
Hello Max. Yes, I have used sometimes DRAW on Linux.

Try this, work for me at Kubuntu.

do %rebgui.r

if system/version/4 = 4 [ face/font/name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf" 
]

example: [ font face/font ]

append example [ pen blue line 20x70 30x50 40x55 50x40 60x60 70x55 
80x70 90x50 100x40 110x50 120x70 130x65 140x60 150x55 160x50 170x30 
180x70 190x50 200x40 210x50 220x70 230x65 240x60 250x55]


append example [ pen red fill-pen red box 20x75 22x60 box 30x75 32x50 
box 40x75 42x40 box 60x75 62x40 box 70x75 72x60 box 80x75 82x65 box 
90x75 92x40 ]

append example [ box 100x75 102x60 box 110x75 112x60 box 120x75 122x60 
box 140x75 142x40 box 150x75 152x45 box 160x75 162x40 box 170x75 
172x60 box 180x75 182x65 box 190x75 192x40 ]


append example [ pen green fill-pen green box 50x75 52x30 box 130x75 
132x50 ]

append example [ pen black text 10x10 "Transazioni" ]
append example [ text 30x30 "$200" text 30x50 "$100" ]

append example [ line 20x25 20x75 line 15x35 25x35 line 15x55 25x55 
]
append example [ line 20x75 310x75 ]

append example [ text 20x80 "28-Jul-2010" text 250x80 "26-Sep-2010" 
]
append example [ pen blue text 300x10 "Cassa" ]
append example [ text 320x30 "$2000" text 320x50 "$1000" ]

append example [ line 310x25 310x75 line 305x35 315x35 line 305x55 
315x55 ]


display "Example" [ aaa_stats: box white 100x30 effect [ draw example 
] button "ok" tab button "cancel" [ unview/all ] ]
do-events
Maxim
29-Aug-2010
[3811]
on linux, you need the full path to the font you are trying to use. 
 ttf fonts are supported.
Steeve
30-Aug-2010
[3812]
Is that comic repetition ?
:-)
caelum
30-Aug-2010
[3813]
I am assuming this is a linux thing. I am learning really basic stuff 
as a Rebol newbie. When I try running the expamle from http://www.rebol.com/docs/core23/rebolcore-3.html

print read ftp://ftp.rebol.com/pub

I get the following error:

>> print read ftp://ftp.rebol.com/pub
** User Error: Server error: tcp 530 Login authentication failed
** Near: print read ftp://ftp.rebol.com/pub

I was expecting this to work. What am I doing wrong?
Graham
30-Aug-2010
[3814]
i'm pretty sure that rebol.com doesn't have ftp enabled
Maxim
30-Aug-2010
[3815x2]
I guess it was once enabled, but has
since been closed, for security reason.
Graham
30-Aug-2010
[3817x5]
they were hit by a hacker who defaced their site ...
I think they came in via ftp
try this 

 print read ftp://ftp.compkarori.com/
or, you can do this

>> trace/net on
>> print read ftp://ftp.rebol.com/
URL Parse: none none ftp.rebol.com none none none
Net-log: ["Opening" "tcp" "for" "FTP"]
connecting to: ftp.rebol.com
Net-log: [none ["220" "230"]]

Net-log: {220---------- Welcome to Pure-FTPd [privsep] [TLS] ----------}
Net-log: "220-You are user number 3 of 150 allowed."
Net-log: "220-Local time is now 20:15. Server port: 21."
Net-log: "220-This is a private system - No anonymous login"
Net-log: {220-IPv6 connections are also welcome on this server.}

Net-log: {220 You will be disconnected after 30 minutes of inactivity.}
Net-log: [["USER" port/user] "331"]
Net-log: "331 User anonymous OK. Password required"
Net-log: [["PASS" port/pass] "230"]
** User Error: Server error: tcp 530 Login authentication failed
** Near: print read ftp://ftp.rebol.com/
Hmm.. I thought Carl disabled ftp .. .but it's still actives
Anton
31-Aug-2010
[3822]
It does say "no anonymous login" though.
MaxV
31-Aug-2010
[3823]
I  used Manum example, but I get:
** Script Error: Cannot use path on none! value

** Near: face/font/name: "/usr/share/fonts/truetype/freefont/FreeSans.ttf"
Anton
31-Aug-2010
[3824]
Do you have a file FreeSans.ttf at that location?
Look for it with linux shell command:
	locate FreeSans.ttf
Oldes
31-Aug-2010
[3825]
I'm not using View for a very long time, but I guess you must first 
make the font object!
Graham
31-Aug-2010
[3826x2]
MaxV has released a Debian package ... http://synapse-ehr.com/forums/showthread.php?130-Ubuntu-Debian-package&p=764#post764
Anyone running Debian who can test it?
Andreas
31-Aug-2010
[3828]
Works fine.
Graham
31-Aug-2010
[3829]
And it is View ?
Andreas
31-Aug-2010
[3830]
Nope. Core 2.7.7.
caelum
31-Aug-2010
[3831]
I have been playing with this for hours and have not made any progress 
after reading everything I could find about ports and ftp. Why does 
the following script not work?

    ftp-port: open [
        scheme: 'ftp 
        host: "ftp.mysite.org" 
        port-id: 21 
        user: "[user-:-mysite-:-org]" 
        pass: "xxxxxxxxxx"
    ] 
    write ftp-port "Test File" 
    close ftp-port

It gives the following error.


** Script Error: write expected destination argument of type: file 
url object block
** Where: func [face value]
Graham
31-Aug-2010
[3832]
You haven't specified a file to write to
Oldes
31-Aug-2010
[3833x5]
you can try to use this: http://rebol.wik.is/Rebol3/Schemes/Ftp
Also as you can see, READ and WRITE does not support PORT! as an 
argument... at least not in R2
uh... sorry, now I see the link is for R3
Just dont' use the OPEN in the first line! And it will be working.
ftp-port: [scheme: 'ftp  host: "ftp.mysite.org"  user: "[user-:-mysite-:-org]" 
 pass: "xxxxxxxxxx"]
read ftp-port
caelum
31-Aug-2010
[3838]
Thanks Oldes, I'll give that a try.
Oldes
31-Aug-2010
[3839x3]
ftp-port: [scheme: 'ftp  host: "ftp.mysite.org"  user: "[user-:-mysite-:-org]" 
 pass: "xxxxxxxxxx" target: %test.txt]
write ftp-port "hello"
Maybe there is some better way.. I don't remember it as I'm not using 
such a script.
I guess you are not using clasic way because of the #"@" char in 
user name.
Graham
31-Aug-2010
[3842]
I think you just need to change the host to ftp.mysite.org/testfile 
and it should work
caelum
31-Aug-2010
[3843]
You are correct, I cannot use the classic way due to the #['-:-'].
Graham
31-Aug-2010
[3844]
but the way you have it above you haven't specificed a target file
caelum
31-Aug-2010
[3845]
Oh, you are right, no target file.
Graham
31-Aug-2010
[3846]
Script Error: write expected destination argument of type: file url 
object block
Oldes
31-Aug-2010
[3847]
Also note that you must use path if you don't want to write to root! 
Don't listen Graham, Host is just Host
Graham
31-Aug-2010
[3848]
the errors are meaningful!
caelum
31-Aug-2010
[3849]
Yep! One day I'll learn to read.
Graham
31-Aug-2010
[3850x8]
sorry ... you need a path element in your object
block ...
scheme host path port user and pass
port-id
You can tell I haven't done this for a long while either
maybe this will work??


write ftp://user%40mysite.org:[xxxx-:-ftp-:-mysite-:-org]/testfile.txt "hello"
ie. url-encode the username
actually this conversation should be in 'Core group