« first day (951 days earlier)      last day (2829 days later) » 
00:00 - 22:0022:00 - 00:00

10:01 PM
@GrahamChiu What do you mean?
 
@rebolbot :-)
 
@johnk Please continue.
 
@rebolbot present
 
@GrahamChiu Sat, 8 Jun 2013 22:02:16 +0000
@GrahamChiu johnk GrahamChiu rgchris earl HostileFork Respectech Sgeo onetom ingo DocKimbel Adrian pierre LarsBohl
 
well, it notices edits now !
Just stuffed up delete though
@rebolbot version
 
10:03 PM
@GrahamChiu Please continue.
@GrahamChiu That's very interesting.
@GrahamChiu GrahamChiu johnk rgchris earl HostileFork Respectech Sgeo ingo DocKimbel Adrian pierre
 
cool
@rebolbot delete
@rebolbot delete
 
Good feature :-)
 
@rebolbot whom do you know
 
@GrahamChiu Can you elaborate on that?
@GrahamChiu What do you mean?
 
@rebolbot delete loud
 
10:07 PM
@GrahamChiu done
 
working now!
 
Still need to work on this http error. Any ideas what to try next?
 
well, if someone unknown pops in here, and the error occurs, the link that causes it will be posted to the test room
perhaps we can ask @NilberVittorazzi to visit here?
Hmm. the greet for Lars Bohl didn't appear here either
oh well, one at a time
@rebolbot source orders-cache
@rebolbot delete
@rebolbot source show-all-users
@RebolBot delete
 
10:25 PM
How did you send the errors to another room?
Did you make a speak-error function or modify speak to take a room id?
 
Ach, well I thought ~foo~ was code, but just found an instance that appears to mean italic or something.
 
@johnk created a custom speak-debug which uses that room
 
@GrahamChiu I'll do the same. Is the source to the currently alive bot online anywhere?
Need to make sure we don't loose any synapses when we eventually do the transplant :)
 
@johnk ah.. no, I'm just hacking it and using that as a debug command
I want to have a source command
	source-rule: [
		'source set target word! (
			done: true
			reply message-id source get target
		)
	]
That doesn't work :(
so say I type @ rebolbot source help, target => help, but then source of target gives me help, and I really want the source of help
 
That would be excellent.
Great for showing people how it all works as a teaching aid
I'll be back later. Cheers, J
 
10:35 PM
at present I have to use try.rebol but that won't give me source of rebolbot words
 
@GrahamChiu reply message-id head rejoin [target ": " mold get target]
 
source: func [
    "Prints the source code for a word."
    'word [word! path!]
	/local out
][
	out: copy ""
    if not value? word [ return rejoin [word "undefined"]]
    head insert mold get word reduce [word ": "]
]
 
Lit-argument ...
Unusable for anything but console use.
 
Try my edited suggestion above.
 
10:40 PM
@rebolbot source help
 
@GrahamChiu Can you elaborate on that?
@GrahamChiu What do you mean?
 
	source-rule: [
		'source set target word! (
			done: true
			reply message-id message-id head rejoin [target ": " mold get target]
		)
	]
@rebolbot source help
 
@GrahamChiu Can you elaborate on that?
 
hmm. that rule of yours should work
 
@GrahamChiu Source to Result.
 
10:48 PM
@rgchris looks pretty good!
 
Did any of these docs originate on rebol.com/.net?
 
@rgchris .net
Carl must have provided the original MakeDoc files to Saphirion
 
Trying to find this Faces one...
Never mind, found it.
 
@rebolbot source help
 
target: help and I shall now try to get the source for you
@GrahamChiu Can you elaborate on that?
 
10:56 PM
Some of the links have been stripped out: rebol.com/r3/docs/gui/faces.html
 
@RebolBot source help
 
target: help and I shall now try to get the source for you
 
@GrahamChiu Might have to properly bind target first. Can you add a none? bound? target to the debug output?
 
oh crap
paste error!
@RebolBot source help
 
target: help and I shall now try to get the source for you
 
10:59 PM
type: 'Script
id: 'not-defined
arg1: 'help
arg2: none
arg3: none
near: [get target]
so yes, looks like binding error
 
bind target self
or bind target lib
Depends :)
 
@RebolBot source help
 
target: help true and I shall now try to get the source for you
 
so not bound
@rebolbot source source-rule
 
target: source-rule true and I shall now try to get the source for you
 
11:04 PM
@rebolbot source source
 
target: source true and I shall now try to get the source for you
 
@rebolbot source help
 
target: help unbound? true and I shall now try to get the source for you
 
source-rule: [
		'source set target word! (
			done: true
			speak ajoin [ "target: " target " unbound? "  none? bound? target " and I shall now try to get the source for you" ]
			if error? set/any 'err try [
				bind target lib
				reply message-id head rejoin [target ": " mold get target]
			][
				speak-debug mold err
			]
		)
	]
this reflection stuff shouldn't be so hard!
 
Ah, you have to re-assign the bound word or use that inline.
target: bind target lib
Or:
reply message-id head rejoin [target ": " mold get bind target lib]
 
11:12 PM
@RebolBot source source
 
target: source unbound? true and I shall now try to get the source for you
source: make function! [[
"Prints the source code for a word."
'word [word! path!]
][
if not value? word [print [word "undefined"] exit]
print head insert mold get word reduce [word ": "]
exit
]]
 
cool
@RebolBot source source-rule
 
target: source-rule unbound? true and I shall now try to get the source for you
 
@rebolbot source raw-read
 
@GrahamChiu Can you elaborate on that?
decode-url: make function! [["Decode a URL according to rules of sys/*parse-url." url][
--- {This function is bound in the context of sys/*parse-url.}
out: make block! 8
parse/all url rules
out
]]
url-encode: make function! [[text [any-string!]][
either parse/all text: form text [
any [
some ch | end | change " " "+" |
mk: (mk: percent-encode mk/1)
change skip mk
]
] [to-string text] [""]
]]
raw-read: make function! [[message-id target [url!]
/local result err
][
if error? set/any 'err try [
either result: mini-http target 'GET "" 60 [
?? result
reply message-id result
] [
reply message-id "HTTP timeout"
]
] [
reply message-id mold err
]
]]
 
11:16 PM
Ok, seems to work now ! phew :)
I bind it first to lib, and if error, try binding to self
 
I'd first bind to self, and then to lib.
So that self words override lib words.
(Then you see bot HELP before standard HELP.)
Hmm. But for education, the current way may be better.
So it only needs formatting as code :)
Cool :)
 
@RebolBot source source
 
@GrahamChiu 0.0.41.6 9-Jun-2013
source: make function! [[
"Prints the source code for a word."
'word [word! path!]
][
if not value? word [print [word "undefined"] exit]
print head insert mold get word reduce [word ": "]
exit
]]
 
@rebolbot source speak-debug
 
speak-debug: make function! [[message /local err][
if error? set/any 'err try [
to string! write chat-debug-target-url compose/deep copy/deep [
POST
[(header)]
(rejoin ["text=" url-encode message "&fkey=" bot-fkey])
]
] [
mold err
]
]]
 
11:31 PM
@rebolbot source bot-config
 
@GrahamChiu Sorry, not in my vocab!
 
@rebolbot delete
uh oh ... :(
@rebolbot source bot-cionfig
 
@GrahamChiu Sorry, not in my vocab!
 
@rebolbot source bot-config
 
@GrahamChiu You need to use your own config file!
 
11:36 PM
better!
 
How do you quote '----' in a code block?
----
  here is some code
  ----
  that includes the above line
----
 
add a leading space?
try back-slash?
@rebolbot version
 
Like that (edited above)?
 
@GrahamChiu 0.0.41.7 9-Jun-2013
 
@rgchris backslash
\-----
 
11:42 PM
Thks.
 
@rebolbot source source
 
source: make function! [[
"Prints the source code for a word."
'word [word! path!]
][
if not value? word [print [word "undefined"] exit]
print head insert mold get word reduce [word ": "]
exit
]]
 
hmm. not formatting as code :(
@rebolbot source to-markdown-code
 
to-markdown-code: make function! [[txt][
replace/all txt newline join newline " "
insert head txt " "
head txt
]]
 
4 spaces in the above
 
00:00 - 22:0022:00 - 00:00

« first day (951 days earlier)      last day (2829 days later) »