input and rule aspects. text. to, thru are returning the same indexparse, so doesn't overlap there. Still some things to work out for it. I chip away as well. Took me a while just to decide what to try, and now I'm on try number 3. Unhandled Exception: System.TypeLoadException: Method 'ConfigureAsync' in type 'Microsoft.AzureRepos.AzureReposHostProvider' from assembly 'Microsoft.AzureRepos, Version=2.0.0.0, Culture=neutral, PublicKeyToken=null' does not have an implementation. at Microsoft.Git.CredentialManager.Program.Main(String[] args)
c: (charset " abcd") some cprotect function that would do nothing if one of the protected words was typed in after insert or change>> parse-trace [one] [thru word! copy x insert input]
-->
match: [thru word! copy x insert input]
input: [one]
-->
==> matched
<--
match: [copy x insert input]
input: []
-->
<--
<--
return: true
== true
>> x
== [func ["Wait for console user input"][ask ""]]x: func ["Wait for console user input"][ask ""] parse input: [one] [thru word! (answer: x) insert (answer)] input
true?: function [ "Returns true if the value is not false or none" value [any-type!] ][ either :value [true][false] ] false?: function [ "Returns false if the value is false or none" value [any-type!] ][ either not :value [true][false] ]
[true? false? on? off? yes? no?] for consistency? What we need are some examples where we all agree they make things clearer, but I don't think that's happened in the past. Subjectivity rules. :^)true?: func [
{Returns true if an expression can be used as true.}
value [any-type!]
][
not not :value
]unset!. one? two? three? .... But what you need to do is make the case for them; show their value.>> do %mysql-client.red
#{85A6EF01}
== [
print "mysql client"
client: open tcp://192.168.45.162:3306
>> do start
mysql client
epoll_ctl fd: 6 op: 1 evts: -2147483644
events: 1 1
val: 0
=== Client event: connect
connect
socket/recv -1 state: 1028
epoll_ctl fd: 6 op: 3 evts: -2147483643
events: 1 1
events: 1 1
read-io in wait fd: 00000006
read-io in wait: 93
=== Client event: read
read
"client read done"
#{
590000000A352E352E352D31302E322E33312D4D61726961444200AC2F01004F
40327B3534454000FEF72D0200BF8115000000000000070000004E485F263D41
6E277331375F006D7973716C5F6E61746976655F70617373776F726400
}
---
Y....5.5.5-10.2.31-MariaDB.¬/..O@2{54E@.þ÷-..¿...........NH_&=An's17_.mysql_native_password.
---
FLAGS: #{7261332E}
FLAGS: #{81BFF7FE}
make object! [
length: 89
seq-id: 0
type: 'handshake
payload: make object! [
server-version: "5.5.5-10.2.31-MariaDB"
version: 10
thread-id: 77740
auth-plugin-data: "O@2{54E@NH_&=An's17_"
capability-flags: [
found-rows
long-flag
connect-with-db
no-schema
compress
odbc
local-files
ignore-space
protocol-41
interactive
ignore-sigpipe
transactions
reserved
reserved2
multi-statements
multi-results
ps-multi-results
plugin-auth
connect-attrs
plugin-auth-lenenc-client-data
session-track
deprecate-eof
remember-options
]
character-set: #{2D}
status-flags: #{0200}
auth-plugin-name: "mysql_native_password"
]
]
--write--
#{
5000000185A6EF01FFFF00002D00000000000000000000000000000000000000
00000000726F6F740014F9D395DFB289EB584C1217F0C08CEF0400DADDF56D79
73716C5F6E61746976655F70617373776F726400
}
6 00000405 84
iocp/post: 4
queue/push: 1
insert#1
events: 1 1
queue/take: 0
=== Client event: wrote
wrote
socket/recv -1 state: 1029
events: 1 1
read-io in wait fd: 00000006
read-io in wait: 11
=== Client event: read
read
"client read done"
#{0700000200000002000000}
---
...........
---
make object! [
length: 7
seq-id: 2
type: 'ok
payload: make object! [
affected-rows: #{}
last-insert-id: #{}
status-flags: [
status-autocommit
]
warnings: 0
info: none
session-state-info: none
]
]mysql> ping
#{010000000E}
6 00000405 5
iocp/post: 4
queue/push: 1
events: 1 1
queue/take: 0
=== Client event: wrote
wrote
socket/recv -1 state: 1029
events: 1 1
read-io in wait fd: 00000006
read-io in wait: 11
=== Client event: read
read
"client read done"
#{0700000100000002000000}
---
...........
---
make object! [
length: 7
seq-id: 1
type: 'ok
payload: make object! [
affected-rows: #{}
last-insert-id: #{}
status-flags: [
status-autocommit
]
warnings: 0
info: none
session-state-info: none
]
]
epoll_ctl fd: 6 op: 2 evts: 1029
*** Runtime Error 1: access violation
*** at: 080D7AE7harrange function that operates on faces? At least to experiment.read http://www.google.com, User-Agent is set to Mozilla/5.0 (Windows NT 6.1; Win64; x64) (I am on Mac)write/binary http://www.google.com [GET []], User-Agent is set to Go-http-client/1.1User-Agent the above values are replaced. I’m not sure what’s going on here :) Can someone confirm it?send-requestread is the same on Linux Mint. make-block: function [data /all /with selection [word! block!]][ if word? selection [selection: to-block selection] either any [ accessors: select system/catalog/accessors type?/word data system/words/all [ url? data data: decode-url data accessors: words-of data ] ][ either selection [ if not empty? weird: exclude selection accessors [ cause-error 'user 'message rejoin ["make-block: Unknown accessor" pick [": " "s: "] single? weird weird] ] ][ selection: accessors ] collect [ foreach sel selection [ if all [keep to set-word! sel] keep switch/default type?/word d: data/:sel [ word! [to-lit-word d] path! [to-lit-path d] ][d] ] ] ][ if any [all with][ cause-error 'user 'message rejoin ["make-block: Data of type `" mold type? data "` does not have accessors!"] ] append copy [] data ] ]
query/mode. For other data it just en-blocks it.make-block 3x2 ;== [3 2] make-block/all tom@est.ee ;== [user: "tom" host: "est.ee"] make-block/all url: https://tom@www.est.ee?q=me ;== [scheme: 'https user-info: "tom" host: "www.est.ee" port: none path: none target: none query: "q=... vars: [query user-info host] ;== [query user-info host] reduce make-block/with/all url vars ;Careful -- modifies global query ;== ["q=me" "tom" "www.est.ee"] reduce vars ;== ["q=me" "tom" "www.est.ee"] make-block "hi" ;== ["hi"] to-block "hi" ;== [hi]
file, into either any [...] block:system/words/all [ file? data accessors: [path name suffix modified] data: object [ path: name: none set [path name] split-path data suffix: suffix? data modified: query data ] ]
make-block %abc/def.red ;== [%abc/ %def.red %.red none] make-block/all %entities.red ;== [path: %./ name: %entities.red suffix: %.red modified: 19-Dec-2018/21:08:35.815]
print rejoin morph read %morph.md do %md.scan [<h1> 'h1 </h1> lf (<h2> 'h2 </h2> lf ...)] <h1[MORPH DSL - A dialect for efficient local series conversion](morph.red)</h1> <h2>Status</h2> <h2>Goals</h2> <h2>Origins</h2> <h2>Examples</h2> <h2>Data model</h2> <h2>How it works</h2> <h2>Scanner type rules</h2> <h2>Emitter type rules</h2> <h2>Default rule dictionaries</h2> <h2>Partial update logic</h2> <h2>Further considerations</h2>
md.scan asRed [] context [ line: [not lf skip ...] return [ "# " h1: line | "## " h2: line | sub: [not "## " [line lf] ...] | skip ... ] ]
"" to rejoinmorph/into ... ""