"c-type" word-prop members>> keys [ name>> ] map ;
: values>enum ( values enum -- seq )
- '[ _ number>enum ] map ; inline
\ No newline at end of file
+ '[ _ number>enum ] map ; inline
+
[ "{\"a\":\"bcd\"}" >urlsafe-base64-jwt >string ] unit-test
{ "{\"a\":\"bcd\"}" }
-[ "{\"a\":\"bcd\"}" >urlsafe-base64-jwt urlsafe-base64> >string ] unit-test
\ No newline at end of file
+[ "{\"a\":\"bcd\"}" >urlsafe-base64-jwt urlsafe-base64> >string ] unit-test
+
big-endian off
-! [ "bootstrap.assembler.arm" forget-vocab ] with-compilation-unit
\ No newline at end of file
+! [ "bootstrap.assembler.arm" forget-vocab ] with-compilation-unit
+
FUNCTION: Class object_getClass ( id object )
-FUNCTION: void* object_getIvar ( Class class, Ivar ivar )
\ No newline at end of file
+FUNCTION: void* object_getIvar ( Class class, Ivar ivar )
+
FUNCTION: c-string ZSTD_getErrorName ( size_t code )
-! There are many more api calls but this is enough for basic payloads
\ No newline at end of file
+! There are many more api calls but this is enough for basic payloads
+
! bad compressed buffer, should fail
[
B{ 1 2 3 4 } zstd-uncompress-size
-] [ zstd-error? ] must-fail-with
\ No newline at end of file
+] [ zstd-error? ] must-fail-with
+
FUNCTION: sqlite3* sqlite3_db_handle ( sqlite3_stmt* pStmt )
FUNCTION: c-string sqlite3_db_filename ( sqlite3* db, c-string zDbName )
-FUNCTION: int sqlite3_db_readonly ( sqlite3* db, c-string zDbName )
\ No newline at end of file
+FUNCTION: int sqlite3_db_readonly ( sqlite3* db, c-string zDbName )
+
{ B{ 1 49 1 49 1 49 1 49 0 } } [ "1.1.1.1." >name ] unit-test
! "1.1.1.1" reverse-ipv4-lookup
-! "one.one.one.one" A IN dns-query
\ No newline at end of file
+! "one.one.one.one" A IN dns-query
+
"/plan9env" "PLAN9" [ plan9-path ] with-os-env ] with-variable ] unit-test
{ "/usr/local/plan9" } [ f \ plan9-path [
- f "PLAN9" [ plan9-path ] with-os-env ] with-variable ] unit-test
\ No newline at end of file
+ f "PLAN9" [ plan9-path ] with-os-env ] with-variable ] unit-test
+
{ "[0[]1]]0]" } [ "]1]" number-escape-string ] unit-test
{ "[2[]0]1]]2]" } [ "]0]1]" number-escape-string ] unit-test
{ "[00[]0]1]2]3]4]5]6]7]8]9]]00]" } [ "]0]1]2]3]4]5]6]7]8]9]" number-escape-string ] unit-test
-{ "[01[]0]1]2]3]4]5]6]7]8]9]00]]01]" } [ "]0]1]2]3]4]5]6]7]8]9]00]" number-escape-string ] unit-test
\ No newline at end of file
+{ "[01[]0]1]2]3]4]5]6]7]8]9]00]]01]" } [ "]0]1]2]3]4]5]6]7]8]9]00]" number-escape-string ] unit-test
+
{ T{ cookie { name "!#$%&'*+-.^_`|~:abc" } { value "def" } } }
} [
"!#$%&'*+-.^_`|~:abc=def;" parse-cookie
-] unit-test
\ No newline at end of file
+] unit-test
+
! 89 2^ 1 -
! 107 2^ 1 -
! 127 2^ 1 - * * factors
-! ] unit-test
\ No newline at end of file
+! ] unit-test
+
! { 93461639715357977769163558199606896584051237541638188580280321 1238926361552897 }
! } [
! 93461639715357977769163558199606896584051237541638188580280321 1238926361552897 * pollard-rho-brent-factors
-! ] unit-test
\ No newline at end of file
+! ] unit-test
+
"\r\n\r\n" <multipart>
"\r\n\r\n" parse-multipart
] with-input-stream
-] [ mime-decoding-ran-out-of-bytes? ] must-fail-with
\ No newline at end of file
+] [ mime-decoding-ran-out-of-bytes? ] must-fail-with
+
{ } [
world-buttons <model> "Active Buttons"
<active-buttons-popup> gadget.
-] unit-test
\ No newline at end of file
+] unit-test
+
{ { "a" "c" } } [
"abc" EBNF[=[ rule="a":a "b"+~ "c":c => [[ a c 2array ]] ]=]
-] unit-test
\ No newline at end of file
+] unit-test
+
1006 over reservoir-sample
1007 over reservoir-sample
] with-random
-] unit-test
\ No newline at end of file
+] unit-test
+
] [
3drop
] if
- ] if ;
\ No newline at end of file
+ ] if ;
+
"nameserver 127.0.0.53
options edns0
search localdomain" string>resolv.conf
-] unit-test
\ No newline at end of file
+] unit-test
+
{ } [
[ 2 = [ "not 2!" throw ] unless ]
1.1 100 <exponential-wait> 3 retries
-] unit-test
\ No newline at end of file
+] unit-test
+
ENUM: SHELL_UI_COMPONENT
{ SHELL_UI_COMPONENT_TASKBARS 0 }
{ SHELL_UI_COMPONENT_NOTIFICATIONAREA 1 }
- { SHELL_UI_COMPONENT_DESKBAND 2 } ;
\ No newline at end of file
+ { SHELL_UI_COMPONENT_DESKBAND 2 } ;
+
{ t } [ 10 -10 -2 <range> [ sum ] [ >array sum ] bi = ] unit-test
! Empty range
-{ 0 } [ 1 0 1 <range> sum ] unit-test
\ No newline at end of file
+{ 0 } [ 1 0 1 <range> sum ] unit-test
} [
{ { 10 100 } { 20 200 } { 30 300 } { 41 401 } }
[ [ dup 1 + 2array ] dip ] collect-assoc-by-multi
-] unit-test
\ No newline at end of file
+] unit-test
+
] with-destructors ;
! "192.168.88.255" 7777 start-broadcast-server
-! "USE: math 2 2 + ." over send-broadcast-command
\ No newline at end of file
+! "USE: math 2 2 + ." over send-broadcast-command
+
}
} [
2022 <year-gmt> timestamp>year-dates-gmt [ us-federal holiday? ] filter
-] unit-test
\ No newline at end of file
+] unit-test
+
{ $description
"Creates a bitmap image of a UI window."
}
- { $notes "If the current " { $link gl-scale-factor } " is " { $snippet "2.0" } ", then the " { $snippet "2x" } " slot in the resulting " { $link image } " will be " { $link t } "." } ;
\ No newline at end of file
+ { $notes "If the current " { $link gl-scale-factor } " is " { $snippet "2.0" } ", then the " { $snippet "2x" } " slot in the resulting " { $link image } " will be " { $link t } "." } ;
+
: directory-entries-without-git ( directory -- entries )
recursive-directory-entries
- [ name>> "/.git/" subseq-index? ] reject ;
\ No newline at end of file
+ [ name>> "/.git/" subseq-index? ] reject ;
+
{ "iat" 1516239022 }
}
"" sha-256 sign-jwt
-] unit-test
\ No newline at end of file
+] unit-test
+
: parse-html5 ( string -- document )
- [ <document> 0 ] dip data-state 2drop ;
\ No newline at end of file
+ [ <document> 0 ] dip data-state 2drop ;
+
seq ;
: with-counting-stream ( stream quot -- in-count out-count )
- [ <counting-stream> ] dip [ with-input-stream ] keepd [ in-count>> ] [ out-count>> ] bi ; inline
\ No newline at end of file
+ [ <counting-stream> ] dip [ with-input-stream ] keepd [ in-count>> ] [ out-count>> ] bi ; inline
+
svector{ 2.0 2.0 3.0 4.0 }
svector{ 3.0 2.0 3.0 4.0 }
} equal?
-] unit-test
\ No newline at end of file
+] unit-test
+
17232205271518152816
9857397594961175947
8327361040835137714
-} [ 0 1 2 3 long-jump-256 ] unit-test
\ No newline at end of file
+} [ 0 1 2 3 long-jump-256 ] unit-test
+
: bucket>alist ( bucket -- alist )
dup keys
- [ name>> get-object nip ] with zip-with ;
\ No newline at end of file
+ [ name>> get-object nip ] with zip-with ;
+
semver-gt-comparisons
[ first2 swap version<=> ] zip-with
values [ +lt+ = ] all?
-] unit-test
\ No newline at end of file
+] unit-test
+
semver-gt-comparisons
[ first2 swap [ parse-semver ] bi@ <=> ] zip-with
values [ +lt+ = ] all?
-] unit-test
\ No newline at end of file
+] unit-test
+
[
5 6 7 8
4 [ sq ] stack-map
-] unit-test
\ No newline at end of file
+] unit-test
+
{ -40 } [ -40 deg-C [ deg-F ] undo ] unit-test
{ 1024 } [ 1 kibi ] unit-test
-{ 1024 } [ 1 Ki ] unit-test
\ No newline at end of file
+{ 1024 } [ 1 Ki ] unit-test
+
: zealot-changed-vocabs ( -- ) ci-vocabs-to-test [ print ] each ;
-MAIN: zealot-changed-vocabs
\ No newline at end of file
+MAIN: zealot-changed-vocabs
+
projects / factor.git / commitdiff