call.do/args %red.r "-r %environment/console/console.red" from Rebol replTo see the intermediary Red/System code generated by the compiler, use:
>> do/args %red.r "-v 2 %tests/hello.red"
You can also compile the Red console from source:
>> do/args %red.r "-r %environment/console/console.red"
To compile the Windows GUI console from source:
>> do/args %red.r "-r -t Windows %environment/console/gui-console.red"
Note: the -c argument is not necessary when launching the Red toolchain from sources, as the default action is to compile the input script (the toolchain in binary form default action is to run the input script through the interpreter). The -r argument is needed when compiling the Red console to make additional runtime functions available.dir, ll and list-dir seem just to print the file names.read m: %/d/Temp/test/ i: read m foreach x i [if not (suffix? x) = %.txt [delete rejoin [m x]]]
change-dir request-dir foreach file read what-dir [unless %.txt = suffix? file [delete file]]
read m would take care of thatread returns file names, not their absolute/relative pathsforeach f read request-dir [unless equal? suffix? f %.txt [print f]]read in the dir, you don't need the full path to delete. You're already in itread in the dir">> read %./test/ == [%qux.txt] >> pwd %/Z/home/isheh/dev/red/
>> pwd
%/C/ProgramData/Red/
>> ls
background.jpg black.jpg console-2017-1... console-cfg.red
crush-2017-12-... day5.red deth2.PNG gui-console-20...
med-tree.png new.red q.csv quotes.csv
reb.html red.jpg t temp1.jpeg
temp2.jpeg temp3.jpeg temp4.jpeg test1.red
test2.red testy tree.jpg trees.jpg
>> read %./
== [%background.jpg %black.jpg %console-2017-12-19-7750.exe %console-cfg.red %crush-2017-12...cd to that dir, right?>> read %/c/ == [%$Recycle.Bin/ %Config.Msi/ %cygwin64/ %dev/ %DevMgr.bat %Documents%20and%20Settings/ %DRIVE
>> pwd %/C/ProgramData/Red/ >> read %/c/ == [%$Recycle.Bin/ %Config.Msi/ %cygwin64/ %dev/ %DevMgr.bat %Documents%20and%20Settings/ %DRIVE
read will grab it anyway. Without change-dirtext >> pwd %/Z/home/isheh/dev/red/ >> read %./test/ == [%qux.txt] >> foreach file read %./test/ [delete file] == false >> read %./test/ == [%qux.txt]
>> foreach f read %/c/ [unless equal? suffix? f %.txt [print f]] $Recycle.Bin/ Config.Msi/ cygwin64/ dev/ DevMgr.bat Documents and Settings/ DRIVERS/ GEARDIFx_install.log hiberfil.sys Intel/ msdia80.dll msys64/ pagefile.sys PerfLogs/ Program Files/ Program Files (x86)/ ProgramData/ Recovery/ RPKTools/ Ruby22-x64/ SWTOOLS/ System Volume Information/ Temp/ Users/ Windows/ >>
read and delete./foo.txt and ./test/foo.txt, without moving to ./test/ directory or rejoining ./test/ and foo.txt, you'll delete ./foo.txtclean-path to make them absolute. That can be a nice, or dangerous trick. e.g. do a read on a dir, then print the clean-path of each file. Change dirs, and do it again.Red []
svg: make string! 10000
emit: func [code][repend svg copy code]
emit [
<html>
<body>
<h1>"My first SVG"</h1>
<svg width="100" height="100">
<circle cx="50" cy="50" r="40" stroke="green" stroke-width="4" fill="yellow" />
</svg>
</body>
</html>
]
save %test.html svg ; saves {} characters to file
;write %test.html svg ; works correctly
clear svgx: to-email "rebolek" the program knows it's an email type, but programmers will see a word if they inspect it with probe or ??addresses: reduce [to email! "foo"] probe type? probe first addresses append first addresses "@bar" probe addresses
** as a recursion syntax, returning relative vs absolute names.once with a code block that will only execute the code once, like: >> do-something: does [
[ once [
[ print "Do initialization at the first time."
[ ]
[ print "Do stuff."
[ ]
>> do-something
Do initialization at the first time.
Do stuff.
>> do-something
Do stuff.
>> source do-something
do-something: func [][
print "Do stuff."
]once: func [block][
do block
parse body-of context? first block [
to remove ['once block!] to end
]
]
do-something: has [ref][
once [
ref
print "Do initialization at the first time."
]
print "Do stuff."
]
do-something
do-something
?? do-somethingonce should localize some dummy word (ref in this case) which will serve as a reference back to context of a calling functioneither will work, but I think it would be cool to do like that.ref here and it breaks. Is this required?once to workrefexecute: true do-something: does [ either execute [print "Doing initialization"][print "Do stuff"] execute: false ]
doing block*init*: context [ run: true ] do-something: does [ once: [print "Doing initialization"] either *init*/run [do once *init*/run: false][print "Do stuff"] ]
once: func [block][also do block clear block]
do-something: has [ref][
once [print "Do initialization at the first time."]
print "Do stuff."
]
do-something
do-something
?? do-somethingonly once, there once is a dummy word and only: func ['ref block][...]wait from working right?set-interval: func [fn interval][ tick: now/time + interval forever [if equal? tick now/time [tick: now/time + interval fn]] ]
text-area! based console.wait.)lsread %folder/Ctrl+V from regular Red code?Ctrl+L to clear the GUI Console instead of pressing the keysRed?#"^L" supposed to be Ctrl+L? Or is that Command0.6.3 console engine?#"^(1F60E)"do %unicode.red unicode/chart #01F60E
issue! a type of sting?help on typesets too.to functions>> to-binary "ok"
== #{6F6B}
>> to-bitset "ok"
== make bitset! #{0000000000000000000000000011}
>> to-block "ok"
== [ok]
>> to-char "ok"
== #"o"
>> to-date "ok"
*** Script Error: cannot MAKE/TO date! from: "ok"
*** Where: to
*** Stack: to-date
>> to-email "ok"
== ok
>> to-logic "ok"
== trueemail!. I originally expected to-email "ok" to return "@ok"email! by querying the typeok@, but it may be declined.#okform them and the sigil goes away. Not so with email.logic! can look like an ordinary work, like, on, but there isn't a lexical hint for logic values. Emails should have @ somewhere in thereTo does not guarantee round tripping between all value types.mold/all comes in.to could throw an error if the input doesn't meet those specs. to-url is simillar:// to the head. to-char... You think an error would be better?#"o"#"k"to-chars would be a nice example func, but would need a strong use case for std mezz consideration.error? (to-date "a") is this not supposed to return true or false?try.funcs: [to-binary to-bitset to-block to-char to-date to-email to-file to-float to-get-path to-get-word to-hash to-hex to-image
to-integer to-issue to-lit-path to-lit-word to-local-file to-logic to-map to-none to-pair to-paren to-path to-percent
to-red-file to-refinement to-set-path to-set-word to-string to-tag to-time to-tuple to-typeset to-unset to-url to-word]
foreach f funcs [
either error? try [r: do reduce [f "ok"]] [
print [crlf f "=> blows up"]
][
print [crlf f] probe r
]
]funcs: [:to-binary :to-bitset :to-block :to-char :to-date :to-email]
foreach f reduce funcs [
either error? try [r: f "ok"] [
print [crlf "It blew up"]
][
print [crlf :f] probe r
]
]f, right?print [crlf to-word quote :ffblock or hash with records (key+value) where key is used several times, how do I keep both records (key+value)? I only want unique records. I thought that with /skip union would count key+value as one record.x: [1 "aa"] y: [1 "bb"] union/skip x y 2 == [1 "aa"]
[1 "aa" 1 "bb"]?union/skip sees that two keys are identical and removes the second recordappend x y[1 "aa" 1 "bb"] they are already not uniquealtern might do, but it doesn't work as expected as of nowunique/skip x y 2 (fails as union).map!?funcs: collect [
foreach word words-of system/words [
if find/match to-string word "to-" [keep word]
]
]foreach fun words-of system/words [
if find/match to-string fun "to-" [
err?: error? try [r: do reduce [fun "ok"]]
print [:fun either err? ["=> blows up"][r]]
]
]exclude, union and unique. I'll try to encapsulate my keys+values with subblocks instead as suggested by @greggirwin.>> do reduce [to-word 'ok] *** Script Error: ok has no value *** Where: do *** Stack:
to-word 'ok -> okreduce [to-word 'ok] -> [ok]do [ok] -> *** Script Error: ok has no valueerr-msg: func [word msg] [print [crlf word crlf msg]]
result-msg: func [word msg] [print [crlf word] probe msg]
test-conversions: func [:val][
foreach w words-of system/words [
if find/match to-string w "to-" [
err?: error? try [r: do reduce [w val]]
either err? [err-msg w "(blows up)"][result-msg w r]
]
]
]to-OS-path (which is unset), to-image and to-unset.types: compose [
hex #00000001
local-file "file.red"
file %file.red
paren (to-paren [paren])
red-file %red-file.red
logic (true)
set-word (to-set-word 'set-word)
block [block]
bitset (charset "abc")
binary #{01}
char #"a"
email e@mail
float 1.0
get-path (to-get-path [get path])
get-word (to-get-word 'get-word)
hash (to-hash [hash])
integer 1
issue #issue
lit-path 'lit/path
lit-word 'lit-word
map #(map: 1)
none (none)
pair 1x1
path (to-path [some path])
percent 1%
refinement (to-refinement 'refinement)
set-path (to-set-path [set path])
string "string"
tag <tag>
time 12:00
typeset (to-typeset [typeset!])
tuple 0.0.0.1
url (to-url 'url)
word (to-word 'word)
date 2018-01-01
]>> foreach [type val] types [print [type type? :val]] hex issue local-file string file file paren paren red-file file logic logic set-word set-word block block bitset bitset binary binary char char email email float float get-path get-path get-word get-word hash hash integer integer issue issue lit-path lit-path lit-word lit-word map map none none pair pair path path percent percent refinement refinement set-path set-path string string tag tag time time typeset typeset tuple tuple url url word word date date
text-table, I wouldn't call it a grid, it's optimized for text data.view it is done at once.drop-list/selected/text :)text-table in Draw ;)drop-list to work on Wine :confused: >> view [drop-list ["a" "b" "c"]] >> view [drop-list with [data: ["a" "b" "c"]]]
view [drop-list data ["a" "b" "c"]]data keyworddata keyword.gob in R3.exists? filefield you move around for editing. However, for small spreadsheets, which a lot are, you can use the simple approach. Not as efficient, but may let you easily build small things that are very useful, with almost no effort. Anyone remember the work Steve Shireman and I did on that? Should be easy to port.text-table?text-table. Any pointers?>> f: has [s] [s: foreach x [1 2 3] [append "" random 9]] == func [/local s][s: foreach x [1 2 3] [append "" random 9]] >> f == "727" >> f == "727221" >> f == "727221218"
>> f == "883" >> f == "483" >> f == "333"
"" doesn't grow on R2/R3 in that case? It grows, as expected in f: has [s] [s: loop 3 [append "" random 9]]foreachs context in Rebol, but not in Red:>> loop 3 [foreach x [1 2 3] [append "" x]] == "123" ; Rebol == "123123123" ; Red
call to itsecCinsBakiye: to float! (read rejoin[%db/kasa/ yaziKurCinsAl/text]) kurAl: to float! editKurAl/text adetAl: to float! editAdetAl/text either secCinsBakiye > (kurAl * adetAl) [ save rejoin[%db/kasa/ yaziKurCinsAl] (form (secCinsBakiye - (kurAl * adetAl))) coinAlKasaYol: rejoin[%db/kasa/ listeCoinAl/data/(listeCoinAl/selected)] either exists? coinAlKasaYol [ save coinAlKasaYol (form(adetAl + (to float! (read coinAlKasaYol)))) ][ save coinAlKasaYol (form adetAl) ] yaziVezneSonuc/text: rejoin["İşlem başarılı! " editAdetAl/text secCoinAl " Alındı!"] yaziVezneSonuc/color: 14.155.27 ][ aziVezneSonuc/text: rejoin["İşlem başarısız! Yeterli " yaziKurCinsAl/text " Yok!"] yaziVezneSonuc/color: red ]
>> view [button [either 0 = 0 [print "freezes"][print "works"]]] freezes freezes freezes freezes
*** Script Error: cannot MAKE/TO float! from: "0.5^/" *** Where: to *** Stack: view do-events do-actor do-safe error? view do-events do-actor do-safe
^/ thing)load insteadtext >> rejoin ["0.5" newline] == "0.5^/" >> to float! rejoin ["0.5" newline] *** Script Error: cannot MAKE/TO float! from: "0.5^/" *** Where: to *** Stack: >> to float! "0.5" == 0.5 >> load rejoin ["0.5" newline] == 0.5
loading?red.exe --cliloading inside View block, correct?awake handler is still processing, sending events to faces, and getting confused as events are active while thing tear down.awake. system/view object.free-faces as treated specially.font [size: 8] para [wrap?: yes align: 'center], the excruciating 3xkilling is back.free-fontpara in there.range 10 20make op!, ok, I seerange functionfilter range 1 10 function [x] [x >= 5]magic-list [ x in range 1 to 10 where x squared is greater than 10 ]generator function using Doc's [closure by value function](https://gist.github.com/dockimbel/79237c5454481bcb7d68105281b142a8) but haven't gotten around to it.'a>> call/console/input {echo hi} x: input
call/console/input {echo hi} x: inputred --clicall/console/input {echo hi} x: "thirty-four-characters-and-kabooms"--== Red 0.6.3 ==--
Type HELP for starting information.
>> call/console/input {echo hi} x: "thirty-four-characters-and-kabooms"
hi
== 0clitext
>> call/console/input {echo hi} x: input
test
*** Internal Error: reserved for future use (or not yet implemented)
*** Where: call
*** Stack:Red for Windows version 0.6.3 built 14-Jan-2018/20:06:48-07:00Win7 64bitset 'x "blahblahblah" when the string is length of 34red —cli, then paste in that snippet >> call/console/input {echo hi} x: input
test
hi
*** Runtime Error 1: access violation
*** at: 77AE1161h>> call/console/input {echo hi} x: input
test
hi
== 0new linethru {\n}to {\n}askthru newline\n)text >> parse "yaz foo bar^/qux baz"["yaz " copy text to newline (print text)] foo bar == false >> parse "yaz foo bar^/qux baz"["yaz " copy text thru newline (print text)] foo bar == false
newline^/ is an escape sequence for newlineask omits trailing newlinestext >> probe ask "? " ? blah blah blah (ENTER) "blah blah blah (ENTER)" == "blah blah blah (ENTER)"
text >> parse ask "? " ["yaz " copy text to end] ? yaz foo bar baz qux == true >> text == "foo bar baz qux"
find/tail>> find/tail "yaz foo bar baz qux" "yaz " == "foo bar baz qux"
empty OR space OR spacesany space means "zero or more spaces"some space is "one or more spaces"any chars ?any [ | | | ...] or make a charset out of string of chars and use it insteadchars: charset "your chars here"text
>> parse "gadkgmadk (9214) aglkgklda (abdllhygt)" [collect some [thru "(" keep to ")"]]
== ["9214" "abdllhygt"]keep keyword to extract data that matched some patterntext
>> digit: charset [#"0" - #"9"]
== make bitset! #{000000000000FFC0}
>> parse "letters, lots of letters and stuff and then BAM 9214 digits! d1g1t5 3v32y74323!" [
[ collect some [keep digit | skip]
[ ]
== [#"9" #"2" #"1" #"4" #"1" #"1" #"5" #"3" #"3" #"2" #"7" #"4" #"3" #"2" #"3"]text
>> parse x: "afdfafad (1+3)adgagd" [some [change ["(" copy match to ")" skip] (do form extract/into match 1 copy []) | skip]]
== true
>> x
== "afdfafad 4adgagd"[#"1" #"+" #"3], but first example then tokenized as [#"1" #"2" #"3"] and evaluated to just 3( ) is mathematical operationtext
>> parse x: "afdfafad (123)adgagd" [some [change ["(" copy match to ")" skip] (do match) | skip]]
== true
>> x
== "afdfafad 123adgagd"
>> parse x: "afdfafad (1 + 3)adgagd" [some [change ["(" copy match to ")" skip] (do match) | skip]]
== true
>> x
== "afdfafad 4adgagd"only?text
x: "afdfafad (1+3)adgagd"
also x parse x [
some [
change ["(" copy match to ")" skip](
do also match parse match [
some [
change copy op ["+" | "-" | "*" | "/"](rejoin [space op space])
| skip
]
]
)
| skip
]
]also?some [to change blah bleh | thru end] is faster than some [change blah bleh | skip]? help also also evaluates both of its arguments, but returns the first oneprofile it!help func, thanks @greggirwin load on the input, then parse at the block level. What you're doing is still a great learning exercise, but you don't have to do all the low level tokenization if you work at the block level.>> blk: load "afdfafad (1 + 3) adgagd" == [afdfafad (1 + 3) adgagd] >> parse blk [collect [some [keep word! | set p paren! keep (do p)]]] == [afdfafad 4 adgagd]
load it. blk/2: do blk/2 :smirk: >> blk: load "afdfafad (1 + 3) adgagd" == [afdfafad (1 + 3) adgagd] >> forall blk [if paren? blk/1 [change/only blk do blk/1]] == none >> blk == [afdfafad 4 adgagd]
>> load "afdfafad (1+3) adgagd" *** Syntax Error: invalid integer! at "1+3) adgagd" *** Where: do *** Stack: load >> load "afdfafad (1 + 3) adgagd" == [afdfafad (1 + 3) adgagd]
loading is much easier.>> parse [1 2.3 #4 %5 6% () <> "" []] [some [set v any-type! (print type? :v)]] integer float issue file percent paren word string block == true
<< is print"hello.txt" << "hello" is writing file>> value is read console to value"hello.txt" >> value is read file to valuevalue: "hello" is you know :Dokunmak: :read yazmak: :write
! up | büyüt (i){ #Func Of Standart Library
... #uppercase
}
<< "hello"
<< "hello".up #HELLO
<< "hello".büyüt #HELLO? for if, and arrows for moving data and STD I/O. The most important thing is for you to try it, document it, and explain it to others. Get a small piece of it working, and post for us to play with.(1+1):Red []
system/lexer/pre-load: func [src part][
digit: charset [#"0"-#"9" #"."]
operator: charset [#"+" #"-" #"*" #"/"]
paren: [ #"(" some digit operator some digit #")"]
parse src [
any [
s: paren (
insert find s operator " "
insert find/tail s operator " "
)
| skip
]
]
]
foreach test ["(1+2)" "(3-4)" "(5*6)" "(7.0/8)"] [
print mold load test
](1 + 2) (3 - 4) (5 * 6) (7.0 / 8)
(1+4*5) working?digit op digit expressionsmath function to add precedence rules.number op numberdo. this isn't well. i need to learn parse very good. after we will talk about these :)number followed by any number of op number.Red []
system/lexer/pre-load: func [src part][
digit: charset [#"0"-#"9"]
number: [some digit opt [#"." some digit]]
operator: charset [#"+" #"-" #"*" #"/"]
paren: [
#"("
number
some [
s: operator (
new: copy " "
append new reduce [first s " "]
)
e: (s: change/part s new e) :s
number
]
#")"
]
parse src [any [paren | skip]]
]
foreach test ["(1+2+3+4+5)" "(3-4+4)" "(5*6)" "(7.0/8+10*2)"] [
print reduce load test
]some [change copy match operator (rejoin [space match space]) number]print math load test?call/console/input {echo hi} x: "blahblah........."x: make string! 3
call/console/input {echo hi} x: input
1234call/console/input {echo hi} y: input>> call/console/input {echo hi} x: input
1234
*** Internal Error: reserved for future use (or not yet implemented)
*** Where: call
*** Stack:>> x: make string! 3
== ""
>> call/console/input {echo hi} x: input
1234
hi
== 0
>> call/console/input {echo hi} x: input
f
hi
== 0
>> call/console/input {echo hi} x: input
hellos
hi
== 0
>> call/console/input {echo hi} x: input
asdadadasd
hi
== 0
>> call/console/input {echo hi} x: input
asdadasdasdaqwfsas
hi
*** Runtime Error 1: access violation
*** at: 777005D2h>> x: make string! 3
== ""
>> call/console/input {echo hi} x: input
1234
hi
*** Runtime Error 1: access violation
*** at: 777005D2hx: input, and won't always instantly crash with x: make string! 3test-call: has [count str][
count: 0
str: make string! 1
loop 100 [
count: count + 1
; 0 is the 'success' result
write/append %log.txt reduce [count call/console/input {echo hi} append str "*"]
]
]system/console/history: ""emit-red-char: func [cp [integer!] /local n][ n: 2 * unicode/cp-to-utf16 cp pbuffer pbuffer: pbuffer + n ]
pbuffer in inputa: context [ f: function [ a ] [ return a ] ] >> a/f "hey" == "hey" >> b: a/f "what"
union?text
>> ? "data set"
difference native! Returns the special difference of two data...
exclude native! Returns the first data set less the second...
intersect native! Returns the intersection of two data sets.
union native! Returns the union of two data sets.
unique native! Returns the data set with duplicates removed.charset: "0123456789"charset + charset i understooddo/args in Debug mode? Or is there another tooldo/argsdo/args %red.r "-d %environment/console/console.red" fails-d flag)?four: charset "01234"
half: charset "012345"
non-zero: charset "123456789"
digit: union non-zero charset "0"
byte: [
"25" half
| "2" four digit
| "1" digit digit
| non-zero digit
| digit
]"25" half"25" [#"0" | #"1" | ... | #"5"]251skip?parse from time to timeparse of red is elegantsome in this code?data that waysome ["cdefg" | skip]expr: [term ["+" | "-"] expr | term]
term: [factor ["*" | "/"] term | factor]
factor: [primary "**" factor | primary]
primary: [some digit | "(" expr ")"]
digit: charset "0123456789"
parse "1+2*(3-2)/4" expr ; will return true
parse "1-(3/)+2" expr ; will return falseparser. But he is offline now.parse, Red's approach is my favorite, but others may prefer different tools or libs. We'll build more tools over it at some point, but it's power comes from block level parsing, that other parser toolkits don't have, because they don't use Red. VisualParse++ was a nice, old tool for writing shift-reduce parsers, and ANTLR has some nice things in it, but not as approachable for me. matrix dialect (@tommasv :exclamation:) than write NumPy mess? reduce in console and see for yourselftext
>> a: "a" b: "b" c: "c"
== "c"
>> charset [a b c]
*** Script Error: cannot MAKE bitset! from: a
*** Where: make
*** Stack: charset
>> charset reduce [a b c]
== make bitset! #{00000000000000000000000070}
>> reduce [a b c]
== ["a" "b" "c"]charset in charset [a b c] is a block of 3 words, not a block of 3 stringsparse keyword or a function?collect accepts a parse rule as its argument, in the example above it's a some rule, in turn some accepts another rule, which is [keep integer! | skip]opt?typeset! with restrictions? for example it's positive number not more then 100#alias directive is not implemented yet?func argument block I can make some checks? x < 100 etc...?afuncafunc - good exampleswitch, case or whateverafunc checks boundaries?insert body compose/deep [
assert [(word) (symbol) (val)]
]assertasm.js and, in the future, to webasm.into the matched series (it this case it's the block under the pointer) and parse it with a given rule>> parse [flags [a b c]] ['flags into [x: 1 skip (probe x)]] [a b c]
into rule go to inside the series... so instead of above result to have:a b c
into is just an additional check if the input is valid, right?parse is not the only way to create DSLs in Redbind and custom contexts onlysave/load like, /secure, which add a key param./secure could be great. E.g., encrypting it with AES, fetching the key through Repaman or the like.extendpen pattern maybe?pen patternbut how to do dashed borders for roundy figures?pen pattern does not support curves yet.view [
image 245x245 draw [
pen pattern 50x50 [
pen off fill-pen black
box 10x10 35x35
]
line-width 5
box 10x10 235x235
]
]draw compatibility, but if we can define easier syntax, it may not be too late to change them. Are you thinking something like a pen style?math [1 + 3 * 2]math is a mini-dialect that partially does what you wantfunc ?op!, but you can treat them as special kind of funcs, which are infix and work only with 2 arumentsinfix funcpen pattern (and pen bitmap) seem to work by clipping the plane which does not extend to curved lines and is rather cumbersome/messy for boxes/lines too.func ?f: func [x][x + 1]?>> m: #(a 1 b 2)
== #(
a: 1
b: 2
)
>> from: make op! func [key map][select map key]
== make op! [[key map]]
>> 'a from m
== 1[infix] is a flag from R/S and doesn't work in Redfunction!? op!op! to themadd then -2 too :Dblock! is here?math is a functionblock! itself is just a piece of data3 - 2block!block isn't preferential everytimeany-function! values)>> any-function! == make typeset! [native! action! op! function! routine!]
math isn't special in this regard, i.e it's just a function and follows same rules of precedencemath block will follow arithmetic precedencemath workstext
math: func [
{Evaluates a block using math precedence rules, returning the last result}
body [block!] "Block to evaluate"
/safe "Returns NONE on error"
/local rule pos op sub end
][
parse body: copy/deep body rule: [
any [
pos: ['* (op: 'multiply) | quote / (op: 'divide)]
[ahead sub: paren! (sub/1: math as block! sub/1) | skip] (
end: skip pos: back pos 3
pos: change/only/part pos as paren! copy/part pos end end
) :pos
| into rule
| skip
]
]
either safe [attempt body] [do body]
]parse example btw ;)turkish: "%38,46" english: "%30,77" chinese: "%23,08" sv-se: "%7,69"
{"} copy text1 to {"} any space {<<} any space {"} copy text2 to {"}"aaa"<<"merhaba"to stops at matched characterskip for examplecopy text to {"} skipparse-trace is very useful for this:>> parse-trace {"aaa"<<"merhaba"} [{"} copy text1 to {"} any space {<<} any space {"} copy text2 to {"}]
-->
match: [{"} copy text1 to {"} any space "<<" any space {"
input: {"aaa"<<"merhaba"}
==> matched
match: [copy text1 to {"} any space "<<" any space {"} co
input: {aaa"<<"merhaba"}
-->
-->
==> matched
<--
<--
match: [to {"} any space "<<" any space {"} copy text2 to
input: {"<<"merhaba"}
-->
==> matched
<--
match: [{"} any space "<<" any space {"} copy text2 to {"
input: {"<<"merhaba"}
==> not matched
return: false
== falseskipRed[needs: 'view] funOne: has [][ a: 10 ] funTwo: has [][ a: a * 2 ] funOne funTwo print a
C:\Users\André\Documents\ESP8266book\Isolation>red-063.exe -r -t windows Isolation.red -=== Red Compiler 0.6.3 ===- Compiling C:\Users\AndrÚ\Documents\ESP8266book\Isolation\Isolation.red ... *** Compilation Error: undefined word a *** in file: C:\Users\AndrÚ\Documents\ESP8266book\Isolation\Isolation.red *** near: [a]
-e flag, dunno if that will helpto-string after pad and to shorten the code I tried binding pad/left/with to-string to a word, but couldn't get it to work.dash: #"-" m: now/month d: now/day - 20 iso8601: rejoin [ now/year dash either m < 10 [pad/left/with m 2 #"0"][m] dash either d < 10 [pad/left/with d 2 #"0"][d] ]
>> pad/left/with "-Jan-2018" 10 #"-" == "--Jan-2018" >> pad/left/with "2" 10 #"-" == "---------2" >> pad/left/with "25" 10 #"-" == "--------25" >> pad/left/with "25-Jan" 10 #"-" == "----25-Jan" >> pad/left/with "25-Jan-20" 10 #"-" == "-25-Jan-20" >> pad/left/with "25-Jan-2" 10 #"-" == "--25-Jan-2"
>> pad/left/with d: now/date 10 + length? form d #"-" == "----------25-Jan-2018"
append adds element to the tail and returns head of the series, while insert adds element at the current position of the series and returns series past the insertiontext >> block: [1 2 3] == [1 2 3] >> append block 4 == [1 2 3 4] >> block: skip block 2 == [3 4] >> insert block 'a == [3 4] >> block == [a 3 4] >> head block == [1 2 a 3 4]
move or swap for example, but append and insert are most common>> << "merhaba" merhaba >> << "merhaba =(9213+1)" merhaba 9214 >> "file.txt" << "hello" >> value: "merhaba hello" == merhaba hello
context?extend function that, well, extends existing objects (and maps) with new key/value pairs, but currently it supports only map! datatype? extend, see for yourselfcontext your-blocktext
>> o: object [a: 1]
== make object! [
a: 1
]
>> extend o [b: 2]
*** Internal Error: reserved for future use (or not yet implemented)
*** Where: extend
*** Stack:mapextend m reduce [a b]>> o: object [a: 1]
== make object! [
a: 1
]
>> o2: make o [b: 2]
== make object! [
a: 1
b: 2
]appendobject for whatever reasonbind is), try to use block! instead-e means "encap" which works like rebol did. So you get a single EXE but all code is internally interpreted, so any issues that are compiler limitations can be worked around.map!view? view [box 0x300 button "add button" [append face/parent/pane layout/only compose [at (0x30 + select last face/parent/pane 'offset) button "new one"]]]box 0x300 is there just to make windows taller, so you could see added buttons.face/parent/pane refers to pane where new buttons should be addedparse collect to keep one char string instead of just one char?str: "ABC[DE][SG[HI[JK]L]MNO]" set [push pop]["[" "]"] node: [not [push | pop] skip] edge: [collect some [keep some node | branch]] branch: [push edge pop] probe parse str edge
["ABC" ["DE"] ["SG" ["HI" ["JK"] #"L"] "MNO"]]
edge: [collect some [copy n some node keep (n) | branch]]
["ABC" ["DE"] ["SG" ["HI" ["JK"] "L"] "MNO"]]
view [button "click"] will dofacerefer to the face that run the function code (the first param of the actor function). Kind of self or this in other languages. face/parent point to the face that contain the current face.face/pane is a block where are stored the sub face of a face.win: layout [button "bip"] produce an object!. The word! win is set to it, and win/paneis a block with one element: yes, the "bip" button.face/parent/pane means "the faces that are near myself in the face tree".-e compiling option is essential. Not only it solves the "global variables inside functions" problem, but also solves an issue I was having where I had to close one view and open another layout. This only worked with -e option. Thanks for that @9214 !dyn-stack branch-e , I had to remove all print(debug) statements from the code to make it work. I'm not sure if -e would have solved that too.print statements in the code. They were "in between" views for debugging, hence the crash. My code seems to compile fine now even without the -e option.[Options: [red-strict-check?: off]] added to a script header[needs: view] btw, without lit-quote>> load "a"
== a
>> m: #(a b)
== #(
a: b
)
>> m/a
== b
>> m/(load "a")
== b==none :/?? Programlama Dili Versiyon 0.0.2 >> numHello: "=(12+5*9) hello" == 153 hello >> << numHello 153 hello >> newH: numHello == 153 hello >> "write_file.txt" << newH >> . (kapandı) (halted)
>>VIEW console :D? ask? i try:#include %environment/console/input.red, but doesn't work :/-r flag*** Compilation Error: word terminate not defined in system/console/terminate *** in file: /home/abdllh/yyorum/main.red *** near: [system/console/terminate]
-r flag-e-e flag and try againask is a problem in red? this is bad, very bad :/text
>> b: #{deadbeef}
== #{DEADBEEF}
>> b/1
== 222
>> b/2
== 173
>> to binary! b/1
== #{000000DE}
>> to binary! reduce [b/1]
== #{DE}
>> enbase/base to binary! reduce [b/1] 16
== "DE"head remove back tail remove/part form #{deadbeef} 2 ;== "DEADBEEF" trim/with form #{deadbeef} "#{}" checksum or similar longer binary values.enbase could be faster:>> profile/show/count [_9214 _endo] 10000000 Count: 10000000 Time | Time (Per) | Memory | Code -0:00:00.051 | 0:00:00 | 0 | _9214 -0:00:00.051 | 0:00:00 | 0 | _endo
_9214: [enbase/base #{A94A8FE5CCB19BA61C4C0873D391E987982FBBD3} 16]
_endo: [trim/with #{A94A8FE5CCB19BA61C4C0873D391E987982FBBD3} "#{}"]arc in Shape dialect? I triedview [ box draw [ shape [ arc 10x10 10 10 90 ] ] ]
move before arc I think, this one works:view [ box draw [ shape [ move 50x50 arc 10x10 10 10 90 ] ] ]
view [image 200x100 draw [ shape [move 20x60 arc 20x80 10 50 45] shape [move 20x60 arc 20x80 10 50 45 large sweep] shape [move 120x15 arc 120x35 50 10 45] shape [move 120x15 arc 120x35 50 10 45 sweep large] ]]
view [image 250x200 draw [ fill-pen brick shape [move 70x110 arc 70x130 10 50 45 large sweep] fill-pen gold shape [move 70x110 arc 70x130 10 50 45 large] fill-pen red shape [move 70x110 arc 70x130 10 50 45] fill-pen beige shape [move 70x110 arc 70x130 10 50 45 sweep] fill-pen brick shape [move 170x65 arc 170x85 50 10 45 sweep large] fill-pen gold shape [move 170x65 arc 170x85 50 10 45 large] fill-pen red shape [move 170x65 arc 170x85 50 10 45] fill-pen beige shape [move 170x65 arc 170x85 50 10 45 sweep] ]]
_read-input be exposed to Red console?>> _read-input "!" !_read-input "!" == "!" *** Runtime Error 1: access violation *** at: 770A3208h
mezzanine is also a weird word for people like me, non-native English speakers, mezzanine means mezipatro in Czech, space between floors. It accurately describes the purpose of mezzanines, they are between the native "floor" and user "floor".>> round 45 * 11% == 5.0
round works not only with numberssystem/view/auto-sync?: on view [base teal loose on-drag [if face/offset/x < 0 [face/offset/x: 0]]] system/view/auto-sync?: off view [base teal loose on-drag [if face/offset/x < 0 [face/offset/x: 0 show face]]]
mezzanine when I encountered it first as well. Now it has more meaning to me in Redbol than the vague meaning of a balcony-ish thing.Probably the best definition of a Red Mezzanine is a function included in the binary that does not require compilation to run.6 got in there... Unfortunately the edit possibility timed out.mezzanine makes sense given its meaning, and there probably aren't many single words (maybe none?) that can fit that role. It just isn't part of my normal lexicon. I think if there are more common words that fit, and aren't ambiguous, it could make sense to use one of those instead. But there is also a big benefit to terms which are concise and have precise meanings. There are a lot of other jargony CS terms (more common in other languages) that I would apply to this situation, like context, proxy, semaphore, etc. etc. I wonder if other languages just don't really have the same 'layer' of things to talk about...mezzmerize that converts a plain old func to a mezzanine when it is brought into the fold (for @JacobGood1).-e or --encap flag among with -r or -c flags during compilation./red -r -e -t WindowsXP ./script.redbinary!, but that's kinda ugly-e option just forces script to be interpreted on launch, rather than statically compiled, that way you can bypass some limitations of current compiler#include-binary directive, which would make it easier to include things like images directly from their source files. Ladislav's include func for Rebol has that, and I imagine Red can support it without too much effort. If there's no ticket for it, someone could create one.date!](https://doc.red-lang.org/en/date.html#_runtime_creation):year and day fields are interchangeable, but only for low year values. The year can be used in first position **only** if its value is >= 100 and less than the value of the third field. When that rule is not satisfied, the third field is considered the year. Negative years should always be specified in the third position.year be >= 100 and less than the third field? The third field is supposed to be year or day. If year is used in the first position, then the third field is day, which ranges from 1 to 31, so year(>=100) must greater than day in this case, right?001-1-31 and at the same time greater than the value of the third field, e.g. 032-1-31.>> 001-1-31 == 31-Jan-0001 >> 032-1-31 == 31-Jan-0032
make, and this indeed doesn't accept year values < 100 in the first position. to date!, where day in third position can be day-of-the-year, e.g.:>> to date! [365 1 364] == 30-Dec-0365 >> to date! [363 1 364] == 28-Dec-0364
>> to date! [100 1 101] == 10-Apr-0101 >> to date! [101 1 100] == 10-Apr-0101
parse rule?[set word something | (word: none)]
word to it, otherwise, if match failed, set word to none>> parse [anything] [set word ['something | none]] == false >> word == none >> parse [something] [set word ['something | none]] == true >> word == something
none doesn't advance the inputtext >> parse ["a" "b"][set x [string! | none] string!] == true >> x == "a" >> parse [1 "b"][set x [string! | none] string!] == false >> x == none
none skip - did this not work? Jee, it eats anything)>> parse ["a" "b"][set x opt string! string!] == true >> x == "a" >> parse [1 "b"][set x opt string! string!] == false >> x == none
none somewhere before parse or in parse before checking interesting parts, e.g.:>> x: y: z: none parse [1 "b"][some [set x string! | set y integer! | set z block!]] == true >> probe reduce [x y z] ["b" 1 none]
>> parse [2 [a b]][(x: y: z: none) some [set x string! | set y integer! | set z block!]] == true >> probe reduce [x y z] [none 2 [a b]]
none always returns success, a catch all rule.parse [1 2 3] [some none some integer!] ;== truenone alone won't cut ithash: make hash! [[1 2] "value"] blk: [1 2] equal? hash/1 blk ; return true select hash blk ; return none
select can find "value", but not sure it is reasonable.select/onlyselect/only/skip ... 2, which is better if you want to use hash as key-value storageblock!.path! type in blocks. It seems it cannot be found in block nor used for selecting in block.>> q: 'a/1 == a/1 >> d: [a/1 x] == [a/1 x] >> q = d/1 == true >> find d q == none >> find d 'a/1 == none
find/onlypath! is a seriestext >> q: 'a/1 == a/1 >> d: [a/1 x] == [a/1 x] >> q = d/1 == true >> find/only d q == [a/1 x] >> find/only d 'a/1 == [a/1 x]
print supposed to output something in console after compilation?print system/script/args and launch executable from shell with some arguments, it should print them back, right?isheh@sam ~/dev/red $ ./scratchpad 123 123 isheh@sam ~/dev/red $ wine ./scratchpad.exe 123 fixme:dwmapi:DwmIsCompositionEnabled 0x33fdc0 *** Runtime Error err:seh:raise_exception Unhandled exception code c0000005 flags 0 addr 0x4161db
isheh@sam ~/dev/red $ wine ./scratchpad.exe 123 fixme:dwmapi:DwmIsCompositionEnabled 0x33fdc0 123
~/C/red ❯❯❯ wine delme.exe 0009:fixme:dwmapi:DwmIsCompositionEnabled 0x32fe40 *** Runtime Error 0009:err:seh:raise_exception Unhandled exception code c0000005 flags 0 addr 0x416203
do/args %red.r "your-program.red"Red [] print system/script/args
-c flag (you can also try -r), e.g. red.exe -c script.redscript blah-blah from cmdprintprint will be called in any caseC:\Users\Toomas\Documents\Red>red.exe -c script.red -=== Red Compiler 0.6.3 ===- Compiling C:\Users\Toomas\Documents\Red\script.red ... Compiling libRedRT... ...compilation time : 1666 ms Compiling to native code... ...compilation time : 47907 ms ...linking time : 544 ms ...output file size : 960512 bytes ...output file : C:\Users\Toomas\Documents\Red\libRedRT.dll ...compilation time : 31 ms Target: MSDOS Compiling to native code... ...compilation time : 1387 ms ...linking time : 82 ms ...output file size : 67072 bytes ...output file : C:\Users\Toomas\Documents\Red\script.exe
-c -t Windows ?WindowsXP, yesNeeds: View in the header:C:\Users\Toomas\Documents\Red>red.exe -c -t Windows script.red -=== Red Compiler 0.6.3 ===- Compiling C:\Users\Toomas\Documents\Red\script.red ... ...using libRedRT built on 6-Feb-2018/13:17:08+2:00 ...compilation time : 22 ms Target: Windows Compiling to native code... ...compilation time : 1182 ms ...linking time : 59 ms ...output file size : 67072 bytes ...output file : C:\Users\Toomas\Documents\Red\script.exe C:\Users\Toomas\Documents\Red>script.exe C:\Users\Toomas\Documents\Red>
C:\Users\Toomas\Documents\Red>red.exe -c -t WindowsXP script.red -=== Red Compiler 0.6.3 ===- Compiling C:\Users\Toomas\Documents\Red\script.red ... ...using libRedRT built on 6-Feb-2018/13:17:08+2:00 ...compilation time : 21 ms Target: WindowsXP Compiling to native code... ...compilation time : 1180 ms ...linking time : 56 ms ...output file size : 67072 bytes ...output file : C:\Users\Toomas\Documents\Red\script.exe C:\Users\Toomas\Documents\Red>script.exe C:\Users\Toomas\Documents\Red>
script.exe blah for exampleC:\Users\Toomas\Documents\Red>script.exe -p "hi" C:\Users\Toomas\Documents\Red>script.exe -p C:\Users\Toomas\Documents\Red>
C:\Users\Toomas\Documents\Red>red.exe -c -t Windows script.red -=== Red Compiler 0.6.3 ===- Compiling C:\Users\Toomas\Documents\Red\script.red ... ...using libRedRT built on 6-Feb-2018/13:17:08+2:00 ...compilation time : 26 ms Target: Windows Compiling to native code... ...compilation time : 1171 ms ...linking time : 58 ms ...output file size : 67072 bytes ...output file : C:\Users\Toomas\Documents\Red\script.exe C:\Users\Toomas\Documents\Red>script.exe blah C:\Users\Toomas\Documents\Red>
noneprinparse can be used for graph rewriting?graph [a - [b c - [d e - [g h] f]]] May I show you a picture?>> graph: [1 [2 [[3 4][5 6]]]] == [1 [2 [[3 4] [5 6]]]] >> rule: [some [change set value integer! (#"A" + value) | into rule]] == [some [change set value integer! (#"A" + value) | into rule]] >> parse graph rule == true >> graph == [#"B" [#"C" [[#"D" #"E"] [#"F" #"G"]]]]
into, ahead, change and suchc nodes ( let's replace e with c) and you need to rewrite only the upper onegraph [a - [b c - [d c - [g h] f]]]c's in this graph, right?xc, because there two of themc, each of them will be rewritten, but you need only one or another, not bothgraph [a - [b c - [d e "x" - [g h] f]]] ;or graph [a - [b c "x" - [d e - [g h] f]]]
>> graph: [a - [b c - [d c - [g h] f]]] == [a - [b c - [d c - [g h] f]]] >> index: 0 match: 1 == 1 >> rule: [some [ahead 'c (index: index + 1) if (index = match) change 'c 'x | into rule | skip]] == [some [ahead 'c (index: index + 1) if (index = match) change 'c 'x | into rule | skip]] >> parse graph rule == true >> graph == [a - [b 'x - [d c - [g h] f]]]
ab, and I want to check if there's exactly one a and exactly one b, but without any specific order (i.e. ba should match too). What's the best way to tackle this with parse?["a" | "b"]) after every successful match, so if a matched it becomes just ["b"][2 ["a" not "a" | "b" not "b"]]abcdefg say>> rulegen: func [string][out: collect [foreach char string [keep reduce [char 'not char '|]]] remove back tail out reduce [length? string out]] == func [string][out: collect [foreach char string [keep reduce [char 'not char '|]]] remove back tail out reduce [length? string out]] >> rulegen "abcdefg" == [7 [#"a" not #"a" | #"b" not #"b" | #"c" not #"c" | #"d" not #"d" | #"e" not #"e" | #"f" not #"f" | #"g" not #"g"]]
"abadefg"c: charset unique x might be better, but this was probably a stupid solution.>> parse [-1] [integer!] == true >> parse [-1 -1] [1 2 integer!] == true >> parse [-1 -1] [1 2 -1] *** Script Error: value out of range: -1 *** Where: parse *** Stack:
quote then.>> cs: charset "abcdefg"
== make bitset! #{0000000000000000000000007F}
>> st: "gfeabcd"
== "gfeabcd"
>> parse st [some [ copy c cs (probe c) not ahead c]]
"g"
"f"
"e"
"a"
"b"
"c"
"d"
== true
>> parse "abddef" [some [ copy c cs (probe c) not ahead c ]]
"a"
"b"
"d"
== falsetrue if and only if:parse <something> [
some [
["ab" | "ba"] [to [#"a" | #"b"] reject | to end]
| [#"a" | #"b"] reject
| skip [end reject |]]
]rule: [some [["ab" | "ba"] [to [#"a" | #"b"] reject | to end] | [#"a" | #"b"] reject | skip [end reject |]]] >> parse "" rule == false >> parse "ab" rule == true >> parse "ba" rule == true >> parse "bba" rule == false >> parse "baa" rule == false >> parse "b" rule == false >> parse "a" rule == false >> parse "skfjakabölfd" rule == false >> parse "skfjkablfd" rule == true >> parse "skfjkabläöafd" rule == false >> parse "skfbjkablfd" rule == false >> parse "skfabjkablfd" rule == false
fail instead of rejectin one place:rule: [some [["ab" | "ba"] [to [#"a" | #"b"] reject | to end] | [#"a" | #"b"] fail | skip [end reject |]]]
parse "cb" [some [["ab" | "ba"] [to [#"a" | #"b"] reject | to end] | [#"a" | #"b"] reject | skip [end reject |]]] == true
rule: [
some [
['my 'pattern | 'pattern 'my] [to ['my | 'pattern] reject | to end]
| ['my | 'pattern] fail
| skip [end reject |]]
]
>> parse [d my apples e my pattern] rule
== false
>> parse [d your apples e my pattern] rule
== true
>> parse [who's pattern] rule
== falsereject is needed, but sometimes fail :question: E.g. here reject works:rule: [some [['my 'pattern | 'pattern 'my] [to ['my | 'pattern] reject | to end] | ['my | 'pattern] reject | skip [end reject |]]] >> parse parse [my apples or my pattern] rule == false
fail does not:rule: [some [['my 'pattern | 'pattern 'my] [to ['my | 'pattern] reject | to end] | ['my | 'pattern] fail | skip [end reject |]]] >> parse [my apples or my pattern] rule == true
reject: break out of a matching loop, returning failure.fail: force current rule to fail and backtrack.>> x: [me] == [me] >> y: [me] == [me] >> equal? x y == true >> same? x y == false
>> bind x context [me: 'not-me] == [me] >> equal? x/1 y/1 == true >> same? x/1 y/1 == false
>> same? in o1 'a in o2 'a == false >> b: reduce [in o1 'a in o2 'a] == [a a] >> parse b ['a 'a] == true
equalness, which makes sense. parse? Yes, your rules define the meaning.>> parse b [set val 'a (if same? val in o1 'a [print "o1/a"]) set val 'a (if same? val in o2 'a [print "o2/a"])] o1/a o2/a
b with rule that is b itself, only slightly modified (words should be quoted)?parse [][]parse that it would be cool to construct such "quiney" ruleParse is based purely on data and lexical forms, but actions allow you to do meaningful checks above that level. That means you could write a semantic parsing dialect and generate both rules and actions, yes? I think that's the way to go. Unless someone comes up with a way to make it work directly in parse without confusion. Parse is already one of the more advanced features of Red.cs: charset "ab" parse str [ 2 [ copy c cs (probe c) not ahead c]]
as, *exact* number of bs, but in *no specific order*charset. But still:>> cs: charset "ab"
== make bitset! #{00000000000000000000000060}
>> str: "cdab" parse str [ 2 [ copy c cs (probe c) not ahead c]]
== false"ABC[DE][SG[HI[JK]L]MNO]PQ"
[#"A" #"B" #"C" [#"D" #"E"][#"S" ...]]
["BC"<"S">"G"["H"]"M"-"XX"]
S which you can find by following BC somewhere in the tree, and which itself is followed by a "tree" G[H]MXXcfollowed somewhere by single a and single bin whatever order and not necessarily consecutively?G[H]M[G | [H] | M]G[H][blah [bleh [bluh]]][another bleh][uh [oh]]M or somethingMMM[foo < bar > baz[qux] - stuff]? entab so @rebolek will respect me again.>> cs: charset "ab"
== make bitset! #{00000000000000000000000060}
>> no-cs: complement cs
== make bitset! [not #{00000000000000000000000060}]
>> str: "cdab" parse str [ some [ [copy c cs (probe c) not ahead c] | no-cs ]]
"a"
"b"
== true>> cs: charset "ab"
== make bitset! #{00000000000000000000000060}
>> no-cs: complement cs
== make bitset! [not #{00000000000000000000000060}]
>> str: "cdafb" parse str [ some [ [copy c cs (probe c) not ahead c] | no-cs ]]
"a"
"b"
== true
>> str: "cdafbfa" parse str [ some [ [copy c cs (probe c) not ahead c] | no-cs ]]
"a"
"b"
"a"
== true
>> str: "abfab" parse str [ some [ [copy c cs (probe c) not ahead c] | no-cs ]]
"a"
"b"
"a"
"b"
== truenot doesn't advance the inputselect doesn't work on nested blocks?/deep if that's what you mean.select [[[w 42] w 22]] 'w>> blk: make block! 50 == [] >> empty? blk == true >> append/dup blk 0 50 == [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0... >> blk/30: 1 == 1 >> find blk 1 == [1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0]
map!map!vector! restricts its values to be of the same datatypevector! does not accept Red datatypes in the usual senseblock! allocates the memory, but doesn't have to delete it.stats can help somehow?stats/info, which is crypticstats/show TBDtext
>> probe new-line/all stats/info on
[
[[9999 1 10000] [9999 1 10000] [2402 7598 10000]]
[[24 1048552 1048576] [918076 1179076 2097152]]
[]
]>> b: [] dt [loop 30000000 [append b 0]] == 0:00:10.190108 >> b: make block! 30000000 dt [loop 30000000 [append b 0]] == 0:00:08.296904
make specs?vector! http://www.red-lang.org/2015/04/053-faster-compilation-and-extended.htmlmap!s if I'm not mistaken?object ownershipinsert) is executed first and then you can run your code.on-deep-change, if you write your own functions, then fine.Red [
title: "Tiny Priority Queue"
file: %tiny-priority-queue.red
author: "Gregg Irwin"
email: gregg@pointillistic.com
date: "Ported from circa 2007 Rebol code"
version: 0.0.1
purpose: {
Provides functions, and an object def that uses them, to treat
a series as a priority queue. When you insert items, you give
them a priority (higher numbers mean a higher priority). In the
actual series, the priority is stored along with the value, so
you should always use the pq* functions to access them, to make
things easier.
}
]
; Standalone PQ funcs, usable outside PQ objects
pq-insert: func [
series [any-block!] "Series to insert value into"
value "The value to insert"
priority [integer!] "Higher numbers have higher priority"
][
sort/skip/reverse repend series [priority value] 2
]
pq-first: func [series [any-block!]] [pick series 2]
pq-take: func [series [any-block!]] [pick take/part series 2 2]
; PQ Prototype
priority-queue: make object! [
data: copy []
insert: func [item priority] [pq-insert data item priority]
first: does [pq-first data]
take: does [pq-take data]
]
pq: copy []
print pq-insert pq "A" 1
print pq-insert pq "B" 10
print pq-insert pq "C" 100
print pq-insert pq "D" 1000
print mold pq
print pq-insert pq "CC" 100
print pq-insert pq "CCC" 100
print pq-insert pq "D" 1000
print pq-insert pq "CCCC" 100
print pq-insert pq "CCCCC" 100
print pq-insert pq "CCCCCC" 100
print pq-insert pq "CCCCCCC" 100
print ""
while [not empty? pq] [print pq-take pq]
pq: make priority-queue []
print pq/insert"A" 1
print pq/insert"B" 10
print pq/insert"C" 100
print pq/insert"D" 1000
print mold pq/data
print pq/insert"CC" 100
print pq/insert"CCC" 100
print pq/insert"D" 1000
print pq/insert"CCCC" 100
print pq/insert"CCCCC" 100
print pq/insert"CCCCCC" 100
print pq/insert"CCCCCCC" 100
while [not empty? pq/data] [print pq/take]>> 1 / 0 *** Math Error: attempt to divide by zero *** Where: / *** Stack:
error! objects with try>> probe try [1 / 0]
make error! [
code: 400
type: 'math
id: 'zero-divide
arg1: none
arg2: none
arg3: none
near: none
where: '/
stack: 5474656
]
*** Math Error: attempt to divide by zero
*** Where: /
*** Stack: probetry is your friendformed id*** Script Error: path FontSel/color: is not valid for none! type *** Where: set-path *** Stack: view do-events do-actor do-safe FormFontChange *** Script Error: VID - invalid syntax at: [none 255.228.196 0.0.255] *** Where: do
Red [] allofit: copy [] a: "one" b: "two" aa: copy a bb: copy b append allofit [a b] append allofit [aa bb] print["allofit=" allofit]
reduce on your "array"block!Red [] allofit: copy [] a: "one" b: "two" append allofit reduce [a b] c: "three" d: "four" append allofit reduce [c d] foreach i allofit [ print[i/1] ]
o t t f
one three
append/only/info refinement witch is not documented in the read and write helps. Do you think i have to open an issue for that, to clarify this point ?/info refinement should be multi-purpose, and should be extended in the future versions/info is likely not documented, because it could change when we get full I/O. Most other refinements came from Rebol's design, and are well vetted. append clear body-of :func [new body]
spec>> foo: func [x y][x + y] == func [x y][x + y] >> foo 1 2 == 3 >> foo: func spec-of :foo [x - y] == func [x y][x - y] >> foo 1 2 == -1
bind [new body] :foo perhapstext >> foo: func [x y][x + y] == func [x y][x + y] >> foo 1 2 == 3 >> append clear body-of :foo [x - y] == [x - y] >> foo 1 2 *** Script Error: x has no value *** Where: - *** Stack: foo >> append clear body-of :foo bind [x - y] :foo == [x - y] >> foo 1 2 == -1
foo is calledform converts to *human readable* form, so you need to use mold:>> a: 'b == b >> type? a == word! >> a: quote 'b == 'b >> type? a == lit-word! >> form a == "b" >> mold a == "'b"
b'?' before word! means lit-word!, ' after word is just part of word, you can have word like a'b'c' for examplenum: dataitem try [num: to float! dataitem]
num: to float! ""
>> num: to float! "" *** Script Error: cannot MAKE/TO float! from: "" *** Where: to *** Stack:
>> about Red for macOS version 0.6.3 built 27-Jan-2018/14:34:08+10:00 >> num: to float! "" ^Cmacmini:red-crypto ralfwenske$
Red GUI Console has stopped working. This is strange - what Red version did you run it on?text >> about Red for Linux version 0.6.3 built 22-Dec-2017/23:01:43+05:00 >> to float! "" Segmentation fault
load instead of to float! and check for an empty block! in case of empty string!>> load "4.2" == 4.2 >> load "" == []
>> about Red for Windows version 0.6.3 built 18-Oct-2017/20:58:24-02:00 >> to float! "" *** Script Error: cannot MAKE/TO float! from: "" *** Where: to *** Stack:
actors object or a global event handler. win: layout [] win/actors: make object! [ on-key: func [face event][ ? event/key if event/key = tab [return probe 'done] ] ] view win
empty? return true is a series is at its tail? The data still exists - the series isn't emptytail? empty?: func [val][val: head val tail? val]tail? and empty?. You can use empty? on none! values, which is convenient. Beyond that, it can be a more meaningful word, depending on what you're doing. Which of the following reads better to you?if not tail? s: ask "Ready?" [print s] ; or if not empty? s: ask "Ready?" [print s]
blk: [1 2 3 4 5 6] blk-ref: at blk 4 while [not empty? blk-ref][print take/last blk-ref]
empty??: func [s][tail? head s] ; == yours above blk: [1 2 3 4 5 6] blk-ref: at blk 4 while [not empty?? blk-ref][print take/last blk-ref]
empty? noneif not tail? s: ask "Ready?" [print s] because empty? doesn't always mean there's nothing thereask?if not tail?Red [ needs 'view]
sampledata: {title;fn;args;amt
one;weekly;2.15;100
two;monthly;3.1;100}
sd: split sampledata "^/"
print ["sample data:^/" sd]
view [
Title "test"
below
srclist: text-list 700x300 data [sd]
]Red [ needs 'view]
sampledata: {title;fn;args;amt
one;weekly;2.15;100
two;monthly;3.1;100}
sd: split sampledata "^/"
bd: copy []
foreach s sd [
cc: split s ";"
append/only bd cc
]
foreach i bd [
i/1: pad i/1 6
i/2: pad i/2 10
i/3: pad i/3 5
i: rejoin i
print [i]
]
view [
Title "test"
below
srclist: text-list 700x300 data bdbd.sampledata: {title;fn;args;amt
one;weekly;2.15;100
two;monthly;3.1;100}
sd: split sampledata "^/"
bd: copy []
foreach s sd [
cc: split s ";"
append bd rejoin [
pad cc/1 6
pad cc/2 10
pad cc/3 5
]
]
view [
Title "test"
below
srclist: text-list 700x300 data bd
]base style and a rate though.probeanim type, it's really easy to do:Red[]
random-image: function [size][i: make image! size forall i [v: random 255 i/1: make tuple! reduce [v v v]] i]
images: collect [loop 12 [keep random-image 100x100]]
view [
style anim: base
on-create [
face/rate: 12
]
on-time [
face/image: first face/data
face/data: next face/data
if empty? face/data [face/data: head face/data]
]
anim data images
]random true or random false)func [prg] ... as object!, but it seems red know what I wanted :clap: bravo for red!prg argument refers to object.draw animation, plz. Thnx. :astonished:Red[]
view [
style anim: base 100x100
on-create [
face/rate: 12
face/extra: 0
]
on-time [
face/draw/3: face/draw/2 + as-pair 50 * cosine face/extra 50 * sine face/extra
face/extra: face/extra + 5 // 360
]
anim draw [line 50x50 0x50]
]view [ box 200x200 rate 10 on-time [square/2: square/2 + 1] draw [square: rotate 0 100x100 [fill-pen brick box 50x50 150x150]] ]
system/view/auto-sync?: off t: 0 view/tight [ box 200x200 all-over cursor hand draw [crv: curve 100x50 100x125 100x200 flr: translate 0x0 [rotate 0 100x50 fill-pen red polygon 100x50 95x48 90x35 97x40 100x30 103x40 110x35 105x48]] all-over on-down [ face/rate: none show face ] on-over [ if event/down? [ crv/2: event/offset flr/2: event/offset - 100x50 ; diff: crv/2 - crv/3 flr/3/2: 180 / pi * (arctangent2 diff/y diff/x) + 90 ] show face ] on-up [ d: 100x50 - crv/2 dst: max absolute d/x absolute d/y face/rate: 25 show face ] on-time [ t: t + 1 d: 100x50 - crv/2 crv/2/x: crv/2/x + round/to d/x / to-float dst 1 crv/2/y: crv/2/y + round/to d/y / to-float dst 1 flr/2/x: flr/2/x + round/to d/x / to-float dst 1 flr/2/y: flr/2/y + round/to d/y / to-float dst 1 diff: crv/2 - crv/3 flr/3/2: 180 / pi * (arctangent2 diff/y diff/x) + 90 dst: dst - 1 if dst = 0 [face/rate: none] show face ] ]
idx: to-integer! reduce atextlist/selected
Red [] rd: copy [] renderdata: function [d] [ clear rd foreach i d [ append rd rejoin [ pad i/1 10 pad i/2 5 pad i/3 5 ] ] ] somedata: [["one" "32" "xx"] ["two" "23" "ee"]] print["^/data before render:^/"somedata] probe somedata print["^/padding data..."] renderdata somedata print["^/render:^/"rd] probe rd print["^/corrupted data after render:^/"somedata] probe somedata
Red [] rd: copy [] renderdata: function [d] [ o: [] foreach i d [ append o rejoin [ pad i/1 10 pad i/2 5 pad i/3 5 ] ] o ] somedata: [["one" "32" "xx"] ["two" "23" "ee"]] print["^/data before render:^/"somedata] probe somedata print["^/padding data..."] clear rd copyofdata: copy/deep somedata rd: renderdata copyofdata print["^/render:^/"rd] probe rd print["^/data after render:^/"somedata] probe somedata
load "4.2" even better.error while loading shared libraries: libcurl.so.4: cannot open shared object file: No such file or directory
Compilation Error: Windows target requires View module (`Needs: View` in the header)
Red [needs 'view]
Red [needs: 'view] ; or Red [Needs: View], [needs: view], etc
Red [needs 'view]
' makes no difference AFAIK*** Runtime Error : access violation *** at: h
-d flag and probe places where error occurs, output should be displayed in shell window after compilation-e flag and see if problem disappearsRed/System []
#import [
"user32.dll" stdcall [
msgbox: "MessageBox" [
hwnd [integer!]
text [c-string!]
caption [c-string!]
type [integer!]
return: [byte!]
]
]
]
msgbox 0 "Hello" "Welcome" 1tab-panel/pane/1/text
view [t: tab-panel ["a" [button "change"[t/data/1: "bflm"]]]]"item count is " + to-string length? somedata + " items."
rejoin ["item count is " length? somedata " items."]rejoin stands for "reduce and join", so everything in the block is evaluated then joined together>> view/no-wait [
drp: drop-list data ["one" "two" "three"] select 1
[sel/text: pick face/data face/selected]
text 50x20 "Selected:"
sel: text with [text: pick drp/data drp/selected]
]
== make object! [ ...
>> drp/selected: 2
== 2
>> drp/selected: 3
== 3Red [needs: view] renderdata: function [] [ print[" renderdata: ... "] o: copy [] foreach r sampledata [ rr: copy/deep r append o rejoin [ pad rr/1 10 pad rr/2 10 pad rr/3 10 ] ] o ] getdata: function [d x] [ print[" getdata [d x]:" d x] huh: (pick d x) tf/text: huh/1 td/selected: index? find fndata huh/2 ] setdata: function [x t f] [ print[" setdata [x t f]:" x t f] sampledata/(reduce x)/1: tf/text sampledata/(reduce x)/2: fndata/(reduce f) rendereddata: renderdata tl/data: rendereddata ] sampledata: [["one" "fn1" "100"] ["two" "fn2" "200"] ["three" "fn3" "300"]] fndata: ["fn1" "fn2" "fn3"] rendereddata: renderdata view [ Title "test" across text "tl" 20x20 right tl: text-list data rendereddata on-change[print["tl on-change triggered..."] getdata sampledata (reduce tl/selected) ] return text "tf" 20x20 right tf: field on-change[print["tf on-change triggered..."] setdata (reduce tl/selected) tf/text (reduce td/selected) ] return text "td" 20x20 right td: drop-list data fndata select 1 on-change[print["td on-change triggered..."] setdata (reduce tl/selected) tf/text (reduce td/selected) ] ]
tl triggers its on-changetl's on-change calls getdatagetdata changes tf/texttf/text triggers on-change for tftf's on-change calls setdatasetdata sets both first and second field of selected sampledatatd/selectedis set in getdata, i.e. already changed data.setdata into two -- one for tfthe other for td and call them separately in respective on-changeactions.sampledata/:x/2: fndata/:f instead of sampledata/(reduce x)/2: fndata/(reduce f) and just getdata sampledata tl/selected instead of getdata sampledata (reduce tl/selected))tl: text-list data rendereddata
on-change[
amsetting: False
getdatafor sampledata (reduce tl/selected)
amsetting: True
]if amsetting [... in setdata...Red [] test: function [ callback [function!] ][ callback 12 ] f: function [ param [integer!] ][ print ["param: " param] ] test :f
>> do %code.red), but not when compiled (red -c -o code code.red)do [callback 12] or do reduce [callback 12].do [callback 12] worked. weird stuff :-)do switches to interpreter./codered-object! in R/S or maybe red-binary! is simpler to construct in R/S, and then could be decoded in Red into an object?red-object! at R/S level, but I'm afraid there are no docs, you should take a look at Red sources, how it's done.Occurs when user selects a new tab. event/picked holds the index of the newly selected tab. selected property is updated just after this event.event/pickedeven/picked inside blockRed [needs: 'view]
scroll: function [square] [
pos: square/offset/y
switch pos [
280 [square/data: "up"]
1 [square/data: "down"]
]
switch square/data [
"down" [square/offset: square/offset + 0x1]
"up" [square/offset: square/offset - 0x1]
]
]
view [
panel 150x300 [
across
a: base 20x20 green data "down" rate 20
on-time [scroll a]
b: base 20x20 blue data "down" rate 40
on-time [scroll b]
c: base 20x20 red data "down" rate 60
on-time [scroll c]
d: base 20x20 yellow data "down" rate 80
on-time [scroll d]
e: base 20x20 gray data "down" rate 100
on-time [scroll e]
]
]square/data: switch pos [
280 ["up"]
1 ["down"]
]
square/offset: square/offset + switch square/data [
"down" [0x1]
"up" [0x-1]
]Red [needs: 'view]
scroll: function [square] [
pos: square/offset/y
switch pos [
280 [square/data: "up"]
1 [square/data: "down"]
]
switch square/data [
"down" [square/offset: square/offset + 0x1]
"up" [square/offset: square/offset - 0x1]
]
]
view [
panel 150x300 [
style mybox: base 20x20 green data "down" rate 20
on-time [scroll face]
across
mybox green rate 20
mybox blue rate 40
mybox red rate 60
mybox yellow rate 80
mybox gray rate 100
]
]Red [
Title: "Simple animation"
Author: @JohnPeoplefox
Needs: View
]
scroll: function [square][
square/data: any [
select [280 "up" 1 "down"] square/offset/y
square/data
]
switch square/data [
"down" [square/offset: square/offset + 0x1]
"up" [square/offset: square/offset - 0x1]
]
]
view [
size 160x300
style box: base 20x20 data "down" on-time [scroll face]
box green rate 20
box blue rate 40
box red rate 60
box yellow rate 80
box gray rate 100
]box ... stufftext
Red [
Title: "Simple animation"
Author: @JohnPeoplefox
Needs: View
]
scroll: func [box][
box/data: any [
select [280 up 1 down] box/offset/y
box/data
]
box/offset: switch box/data [
down [box/offset: box/offset + 0x1]
up [box/offset: box/offset - 0x1]
]
]
colors: [green blue red yellow gray]
canvas: [
size 160x300
style box: base 20x20 data 'down on-time [scroll face]
]
boxes: collect [
r: 0
forall colors [
keep reduce ['box colors/1 'rate r: r + 10]
]
]
view append canvas boxesobject! by its class identifier?>> class-of object [] == 1000003
>> class-of system/words == -1
Red [] test1: function [ num [integer!] cb_arg [function! [param [integer!]]] ][ cb: function [ param [integer!] ][ do [cb_arg param] ] #system [ print "function " #call [cb 12] ; print num ;; *** Compilation Error: "undefined symbol: num" ] ] test2_r: routine [ num [integer!] cb [function! [param [integer!]]] ][ print "routine " ; #call [cb 14] ;; *** Compilation Error: "invalid #call function name: cb" print num ] f: function [ param [integer!] ][ print ["param: " param] ] test1 66 :f
[function! [param [integer!]]] isn't valid in a Red func spec. That is you can't, currently, match on a func arg's spec that way.num compilation error is because #system doesn't magically know the Red func arg names.-c bug?-c error?-r flag?Red [Needs: View]view [text "test"] instead-e flag among with -r or -c)do [] is not compiled but interpreteddo [ at the beginning of each test source and ] at the end and then compile the test to run it under the interpreter.call? call for detailsrate for facets, but for general usage?system./red-063 when you're in a working directorynow./red-063 your-script.redred my-script.reded I presumeisheh@sam ~/dev/red $ PATH=$PATH:~/dev/red/ isheh@sam ~/dev/red $ red-063 --== Red 0.6.3 ==-- Type HELP for starting information. >> print "hello!" hello!
$ nowhttpd.cfg where you configure your domain, add on-status-code like below:www.domain.com [ default [%index.rsp] on-status-code [ 404 "/index.rsp" ] ;your other settings here ]
index.rsp will get all requests for any urlindex.rsp:url: select request/parsed/headers 'internal-referer
file-1.redRed []
obj: make object! [
foo: "Foo"
bar: func [arg][probe foo probe arg]
]
bar: get in obj 'barfile-2.redRed [] #include %file-1.red probe bar "Baz"
"Foo" "Baz" "Baz", I'm getting the source of the function.do in compiler, when something doesn't work.do [...] or to use encap mode-t MSDOSsave/header %history.red collect/into [foreach line system/console/history [keep reduce [line newline]]] {} []Red[]
coordinates: func [] [
repeat x 20 [
to-pair [x 1]
]
]
coordinates*** Syntax Error: invalid construction spec: [x 1] *** Where: to *** Stack: coordinates to-pair
to-pair reduce [x 1]as-pair x 1Red[Needs: 'view]
coords: []
coordinates: func [] [
repeat i 400 [
factor: i * 0.04
s: sin factor
amplitude: s * 80
integ: to-integer amplitude
x: integ + 150
append coords as-pair x i
]
]
coordinates
print coords
view [
canvas: base 400x300 white
draw [line 0x150 400x150]
draw [line coords]
]coords) and line won't accept a series as the argument. The error I'm getting is *** Script Error: invalid Draw dialect input at: [coords] *** Where: ???
view compose/deep [... draw [line (coords]]coordinates function is pretty clumsymath dialectcoordinates: func [] [
repeat i 400 [
amplitude: 80 * sin i * 0.04
append coords as-pair amplitude + 150 i
]
]to-integer?Red[Needs: 'view]
coords: []
coordinates: func [] [
repeat i 400 [
amplitude: 80 * sin i * 0.04
append coords as-pair i amplitude + 150
]
]
;coordinates
view compose/deep[
canvas: base 400x300 white
do [coordinates]
draw [
pen green line 0x150 400x150
pen blue line (coords)]
]drawmust follow style to which it will draw. Move do line up:view compose/deep[
do [coordinates]
canvas: base 400x300 white
draw [
pen green line 0x150 400x150
pen blue line (coords)
]
]text
Red [Needs: View]
coordinates: collect [
repeat x 400 [
keep as-pair x add 150 80 * sin x * 0.04
]
]
view compose/deep [
base 400x300 white draw [
line 0x150 400x150 line (coordinates)
]
]Red [Needs: View]
coordinates: collect [
keep [line 0x150 400x150 line]
repeat x 400 [
keep as-pair x add 150 80 * sin x * 0.04
]
]
view [base 400x300 white draw coordinates]size? [1 2 3] ?length?switch (length? textS) [
2 [ switch (length? textS/2) [...x: 20 y: 10 switch x [ 10 [print "x = 10"] 20 [ print "x = 20" switch y [ 10 [print "y = 10"] 20 [print "y = 20"] ] ] ]
*** Compilation Error: undefined word font!marks: make font! [size: 8 name: "courier new" style: 'bold] append canvas/draw compose [font (marks)]
Red[]
enumerate: function [root] [
items: read to path! root
foreach item root[
is-dir: dir? item
either is-dir
[print item]
[enumerate item]
]
]
enumerate %/c/red/Red[]
items: read %/c/red/
foreach item items [
print item
]Red[]
enumerate: function [root] [
items: read root
foreach item items[
either dir? item
[
print ["directory " item]
enumerate root/:item
]
[print [" file " item]]
]
]
enumerate %/c/red/enumerate: function [root] [
indent: ""
enum: func [root][
items: read root
foreach item items [
either dir? item
[
print [indent "directory " item]
append indent " "
enum root/:item
remove/part indent 4
]
[print [indent "file " item]
]
]
]
enum root
]system/view/handlerscomment function that just eats its argument and returns (almost) nothing(...) or [...] if you want; as I said, comment just receives its argument and doesn't return anything backunset, but that shouldn't be a problem in most casesst command for printing the stack-trace.-v and hight verbosity levelssystem/state/trace to bigger integerstext >> 1 / 0 *** Math Error: attempt to divide by zero *** Where: / *** Stack: >> system/state/trace: 1337 == 1337 >> 1 / 0 *** Math Error: attempt to divide by zero *** Where: / *** Stack: launch launch either run while eval-command if either switch either do-command unless case print type? try either = set catch /
1system/state/trace: 2 gives the same as your 1337.Target: MSDOS
Compiling to native code...
*** Compilation Error: attempt to redefine existing function name: red/object/get-values
*** at line: 1
*** near: [332x1
#import ["libRedRT.dll" stdcall [
push: "red/object/push" [ctx [pointer! [integer!]] class [integer!] idx-s [integer!] loc-s [integer!] idx-d [integer!] loc-d [integer!] return: [red/red-object!]]
duplicate: "red/object/duplicate" [src [pointer! [integer!]] dst [pointer! [integer!]]]
transfer: "red/object/transfer" [src [pointer! [integer!]] dst [pointer! [integer!]]]
init-push: "red/object/init-push" [node [pointer! [integer!]] class [integer!] return: [red/red-object!]]
init-events: "red/object/init-events" [ctx [pointer! [integer!]] idx-s [integer!] loc-s [integer!] idx-d [integer!] loc-d [integer!]]
loc-fire-on-set*: "red/object/loc-fire-on-set*" [parent [red/cell!] field [red/red-word!]]
fire-on-set*: "red/object/fire-on-set*" [parent [red/red-word!] field [red/red-word!]]
get-values: "red/object/get-values" [obj [red/red-object!] return: [red/cell!]]
unchanged?: "red/object/unchanged?" [word [red/red-word!] id [integer!] return: [logic!]]
unchanged2?: "red/object/unchanged2?" [node [pointer! [integer!]] index [integer!] id [integer!] return: [logic!]]
get-word: "red/object/get-word" [obj [pointer! [integer!]] index [integer!] return: [red/cell!]]
get-values: "red/object/get-values" [obj [red-object!] return: [cell!]]
]]
]wait doesn't seem to be a good idea, since it doesn't behave well on console. I can' extract milisseconds from now. Create a face with a rate seems like too much for a silly delay. Any suggestions?asubdfile: to-local-file/full %ffmpeg/bin/ffmpeg.exe afile: to-local-file/full %test.txt probe asubdfile probe afile
{C:\1\test\\ffmpeg\bin\ffmpeg.exe}
"C:\1\test\\test.txt"clean-path instead of the /full refinement should work:>> to-local-file/full %test.txt == "E:\Red\red\\test.txt" >> clean-path %test.txt == %/E/Red/red/test.txt >> to-local-file clean-path %test.txt == "E:\Red\red\test.txt
block/-2 ?b: [1 2 3 4 5] r: skip tail b -2 probe r
b: [1 2 3 4 5] r: pick b ((length? b) - 1) probe r
b: [1 2 3 4 5] first skip tail b -2 == 4
b: [1 2 3 4 5] b/(-1 + length? b) == 4
b: [1 2 3 4 5] i: -1 + length? b b/:i == 4
b: skip [1 2 3 4 5] 2 == [3 4 5]
b/-2 return? 4 or 1? b/-2 doesn't work is because the pointer is parked at head with a new block. -2 is outside the bounds of b, so you get noneat head be used to grab the 1st two items in the block?copy/part or take/part:>> block: [a b c d] == [a b c d] >> copy/part block 2 == [a b] >> block == [a b c d] >> take/part block 2 == [a b] >> block == [c d]
rejoin... you mean like inserting comma after each element?>> rejoin skip collect [foreach item "abcd" [keep [comma space] keep item]] 2 == "a, b, c, d"
b: ["one" "two" "three"] p: to-string (to-path b)
b: ["C:" "test" "one" "two" "three"] p: form to path! b d: read (to-red-file p) probe p
*** Access Error: cannot open: %/C/test/one/two/three
%/C/test/one/two/three path is correct, but since you don't have this folders and file, Red can't open it :)>> %c:/test.bat *** Syntax Error: invalid value at ":/test.bat" *** Where: do *** Stack: load
/C/test.bat. Red accesses file using these POSIX paths.lp: ask "Enter file path ?" ; Enter things like "c:\test\one\two\three" rp: to-red-file lp print ["You said:" lp newline " This path" either exists? rp ["is valid"]["does not exist !"]] print ["This path is made of:" lpp: mold split lp #"\"] print ["You can recreate it with:" lp2: collect [keep lp/1 foreach item next lp [keep #"\" keep item]]] print ["Or work with the red syntax:" newline "This path is made of:" mold next rpp: split rp #"/"]
:, you need to use to-local-file>> b: ["C:" "test" "one" "two" "three"] == ["C:" "test" "one" "two" "three"] >> p: to-local-file form to path! b == "C:/test/one/two/three"
test/one/two nesting folders with three file at the end ;)Red [] lp: ask "Enter file path ?" ; Enter things like "c:\test\one\two\three" rp: to-red-file lp print ["You said:" lp newline " This path" either exists? rp ["is valid"]["does not exist !"]] print ["This path is made of:" mold lpp: split lp #"\"] print ["You can recreate it with:" lp2: collect [keep lpp/1 foreach item next lpp [keep #"\" keep item]]] print ["Or work with the red syntax:"] print ["This path is made of:" mold next rpp: split rp #"/"]
C: which is stopping read, which is odd as exists? says the path is valid... Red [] b: ["C:" "one" "two" "three"] print["b = " b] p: to-local-file form to path! b print["to-local-file form to path! b = " p] rp: form to path! b print["form to path! b = " rp] d: to-red-file rp print["to-red-file = " d] isd: exists? d print["path exists?" isd] rd: read d probe rd
>> read %/c *** Access Error: cannot open: %/c *** Where: read *** Stack: >> read %/c/ == [%$Recycle.Bin/ %Bat/ %program%20Files/]
pick "1" returns char! and converting character to integer will return its ASCII valueform)sum: sum + form pick "123" 1 does not "s" goodpath! topic, I think there's possible confusion in how best to approach this, or how best to leverage Red types. File! values are a string type. There are some funcs that work on them, e.g. split-path that "know" about path separators, but the datatype itself doesn't. Path! values are block values, where each slot can contain a different type of Red value, though not every value type, and most commonly words. One thing they can't contain is a set-word! value in any slot other than the last value. If there is a set-word! in the *first* slot, they are currently lexed as a url!, which is a different question, but may help explain why you can't treat these types interoperably or convert between them with complete confidence.path! when trying to make file values. What we need are a few more mezzanines to make what you want to do easy and safe.parse, but that might be a little tricky as you're counting. So how to make it easy to just loop on? Here's the trick. Put a space between each digit and use load on the result. Now you have a block of integers, which is easy to operate on.to-local-file/full issue?string path......... = "C:/one/two/three/" block path.......... = ["C:" "one" "two" "three"] red path............ = %/c/one/two/three/ read dir path block. = ["C:/one/two/three/backup/"] read file path block = ["C:/one/two/three/file.001.ext" "C:/one/two/three/file.002.ext"] read file name block = ["file.001.ext" "file.002.ext"]
C:\one\two\three\ backup\ file.001.ext file.002.ext
clean-path:>> help clean-path
USAGE:
CLEAN-PATH file
DESCRIPTION:
Cleans-up '.' and '..' in path; returns the cleaned path.
CLEAN-PATH is a function! value.>> path: "C:/windows/" == "C:/windows/" >> split path #"/" == ["C:" "windows"] >> to-red-file path == %/C/windows/ >> collect [foreach file read to-red-file path [if dir? file [keep clean-path file]]] == [%/Z/home/isheh/dev/red/logs/ %/Z/home/isheh/dev/red/inf/ %/Z/home/isheh/dev/red/mono/ %/Z/home... >> collect [foreach file read to-red-file path [unless dir? file [keep clean-path file]]] == [%/Z/home/isheh/dev/red/twain_32.dll %/Z/home/isheh/dev/red/win.ini %/Z/home/isheh/dev/red/twai... >> read to-red-file path == [%logs/ %inf/ %mono/ %winsxs/ %syswow64/ %twain_32.dll %win.ini %Installer/ %Fonts/ %twain.dll ... >> collect [foreach file read to-red-file path [unless dir? file [keep file]]] == [%twain_32.dll %win.ini %twain.dll %winhlp32.exe %system.ini %regedit.exe %explorer.exe %notepa...
dirize does, without checking help? ;)/ if neededdirizeme, bro!ellipsize-at ?... or something like that?... is called an ellipsis....read-thru ? :D*-thru functions are cache-related IIRCabsolute-path myself, and we can alias that easily if people want, but there's a reason Carl didn't use it. There's a reason for every word choice he made. "Clean" is shorter, that's one thing. Another is the goal of verb-noun naming. "Clean" is more verby. :^) Even absolute-path is jargon, yes? Maybe more people know it, but fully-qualified-path is even further down that spectrum, yes? help and we can (and *absolutely* should) write docs that help people find their footing when coming from other languages.help should be used and stuff, my case is more like you come from other language and you want to get "absolute path", help won't help you to find the clean-path name, nor the Carl's logic (it makes sense if you know about it, ofc)DEMO taghelp "path" and help "file!" both find clean-path along with lots of other stuff. So it's a bit less focused, but is my go-to next step for broadening the searchrotate with a block of text drawing commands.-r option?>> url? c:\ == true >> url? http://google.com == true >>
view [box blue [clear face/parent/pane]]view [box blue [face/visible?: off]]
view [style bb: box [remove find face/parent/pane face] bb red bb blue bb green]
exclude also works fine, just too verbosehelp def
default! typeset! [datatype! none! logic! block! paren! string! file.he" or "what is col", or any other thing without thinking too much>> help col
as-color routine! [r [integer!] g [integer!] b [integer!]]
collect function! Collect in a new block all the values passed to KEEP function from the bo...
>> help he
checksum native! Computes a checksum, CRC, hash, or HMAC.
dehex native! Converts URL-style hex encoded (%xx) strings.
either native! If conditional expression is true, eval true-block; else eval false-blk.
fetch-help function! Returns information about functions, values, objects, and datatypes.
head action! Returns a series at its first index.
head? action! Returns true if a series is at its first index.
help function! Displays information about functions, values, objects, and datatypes.
help-ctx object! [DOC_SEP DEF_SEP NO_DOC HELP_ARG_COL_SIZE HELP_TYPE_COL_SIZE HELP_COL_1_S...
help-string function! Returns information about functions, values, objects, and datatypes.
hex-to-rgb function! Converts a color in hex format to a tuple value; returns NONE if it fails.
to-hex native! Converts numeric value to a hex issue! datatype (with leading # and 0's).
wheat tuple! 245.222.129to-markdown: func [/wrap /local src out][
if wrap []
src: read-clipboard
out: rejoin [
newline
"```"
newline
src
newline
"```"
newline
]
write-clipboard out
]line1 line2
line1 line2
routine [data [string!]][
logic/box clipboard/write as red-value! data
]throw-error: func [
{Causes an immediate error throw with the provided information.}
err-type [word!]
err-id [word!]
args
][
parse args: compose [(:args)] [0 3 [args: any-function! (
change/only args copy/deep third first args
) | skip]]
args: head args
throw make error! reduce [err-type err-id pick args 1 pick args 2 pick args 3]
]system/catalog/errorswrite-clipboard mold get 'errors in system/catalog
cause-error though, you don't need Rebol's mezzanine.text command is unaffected by clip, translate or any other matrix transformations?clip and matrix transofrmations, so that team could check them?while [true] [
print 'loop1
while [true ] [
print 'loop2
while [true] [
print 'loop3
]
]
]loop3). When I put break there (after print 'loop3) it will only break from 'loop3 (so it will be in the 'loop2). text-box! and then abandoned it, because text-box! is much better approach.catch [
forever [
print 1
forever [
print 2
foo N
]
]
]N is the number of loops to break (e.g. foo 1 = break, foo 2 breaks 2 loops: catch [forever [forever [throw]] etc)halt, maybecatch and throw?catch/name [
forever [
print 1
catch/name [
forever [
print 2
throw/name 1 'outer
]
] 'inner
]
] 'outerif flag [print "blah"]make face! [bad: self]read-clipboard...read-clipboard...Red []
ytlink: define [
yurl [url!]
][
;; strip any list data from the url to get it in this form:
;; https://www.youtube.com/watch?v=x6F_S4LbdpE
if found? find yurl "&" [parse yurl [copy mlink to "&" to end] yurl: mlink]
;; get the video id
parse yurl [thru "watch?V=" copy mid to end]
;; define the new end point
ep: https://www.youtube.com/embed/
;; make the new url
yurl: join ep mid
;; define the tag
itag: <iframe width="560" height="315" src="***" frameborder="0" allow="autoplay; encrypted-media" allow fullscreen></iframe>
;; embed the url in the source attribute
change/part find itag "***" yurl 3
write-clipboard mold itag: head itag
return itag
]>> x: ytlink https://www.youtube.com/watch?v=dmckigvz7Hg&t=3s == <iframe width="560" height="315" src="https://www.youtub >> y: ytlink https://www.youtube.com/watch?v=t9TrUPoevXI&t=437s *** Script Error: change does not allow none! for its series argument *** Where: change *** Stack: ytlink
itag: copy