Go

1The push refers to repository [xxxxxxxxxxx.dkr.ecr.ca-central-1.amazonaws.com/reponame]
2714c1b96dd83: Retrying in 1 second 
3d2cdc77dd068: Retrying in 1 second 
430aad807caf5: Retrying in 1 second 
50559774c4ea2: Retrying in 1 second 
6285b8616682f: Retrying in 1 second 
74aeea0ec2b15: Waiting 
81b1312f842d8: Waiting 
9c310009e0ef3: Waiting 
10a48777e566d3: Waiting 
112a0c9f28029a: Waiting 
12EOF
13aws ecr get-login-password --region us-east-1 --profile someprofile | docker login ....
14

1#include <iostream>
2#include <map>
3
4int main()
5{
6    auto values = { 1, 3, 5 };
7    std::map<int, int> valMap;
8
9    for (auto const & val : values) {
10        std::cout << "before assignment: valMap.size() = " << valMap.size();
11        valMap[val] = valMap.size();
12        std::cout << " -> set valMap[" << val << "] to " << valMap[val] << "\n";
13    }
14}
15before assignment: valMap.size() = 0 -> set valMap[1] to 0
16before assignment: valMap.size() = 1 -> set valMap[3] to 1
17before assignment: valMap.size() = 2 -> set valMap[5] to 2
18before assignment: valMap.size() = 0 -> set valMap[1] to 1
19before assignment: valMap.size() = 1 -> set valMap[3] to 2
20before assignment: valMap.size() = 2 -> set valMap[5] to 3
21auto size = valMap.size();
22valMap[val] = size;
23

1#include <iostream>
2#include <map>
3
4int main()
5{
6    auto values = { 1, 3, 5 };
7    std::map<int, int> valMap;
8
9    for (auto const & val : values) {
10        std::cout << "before assignment: valMap.size() = " << valMap.size();
11        valMap[val] = valMap.size();
12        std::cout << " -> set valMap[" << val << "] to " << valMap[val] << "\n";
13    }
14}
15before assignment: valMap.size() = 0 -> set valMap[1] to 0
16before assignment: valMap.size() = 1 -> set valMap[3] to 1
17before assignment: valMap.size() = 2 -> set valMap[5] to 2
18before assignment: valMap.size() = 0 -> set valMap[1] to 1
19before assignment: valMap.size() = 1 -> set valMap[3] to 2
20before assignment: valMap.size() = 2 -> set valMap[5] to 3
21auto size = valMap.size();
22valMap[val] = size;
23valMap.emplace(val, size);
24

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36f <- function(...) substitute(...(<exprs>))
37

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36f <- function(...) substitute(...(<exprs>))
37f <- function(...) substitute(...())
38is.null(f())
39## [1] TRUE
40f <- function(...) substitute(...(n = 1))
41identical(f(a = sin(x), b = zzz), pairlist(a = quote(sin(x)), b = quote(zzz), n = 1))
42## [1] TRUE
43

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36f <- function(...) substitute(...(<exprs>))
37f <- function(...) substitute(...())
38is.null(f())
39## [1] TRUE
40f <- function(...) substitute(...(n = 1))
41identical(f(a = sin(x), b = zzz), pairlist(a = quote(sin(x)), b = quote(zzz), n = 1))
42## [1] TRUE
43    Rprintf("CAR(t) == R_DotsSymbol? %d\n",
44            CAR(t) == R_DotsSymbol);
45    if (TYPEOF(CAR(t)) == LISTSXP || TYPEOF(CAR(t)) == LANGSXP) {
46        Rprintf("TYPEOF(CAR(t)) = %s, length(CAR(t)) = %d\n",
47                type2char(TYPEOF(CAR(t))), length(CAR(t)));
48        Rprintf("CAR(CAR(t)) = R_DotsSymbol? %d\n",
49                CAR(CAR(t)) == R_DotsSymbol);
50        Rprintf("TYPEOF(CDR(CAR(t))) = %s, length(CDR(CAR(t))) = %d\n",
51                type2char(TYPEOF(CDR(CAR(t)))), length(CDR(CAR(t))));
52    }
53    if (TYPEOF(s) == LISTSXP || TYPEOF(s) == LANGSXP) {
54        Rprintf("TYPEOF(s) = %s, length(s) = %d\n",
55                type2char(TYPEOF(s)), length(s));
56        Rprintf("TYPEOF(CAR(s)) = %s, length(CAR(s)) = %d\n",
57                type2char(TYPEOF(CAR(s))), length(CAR(s)));
58    }
59

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36f <- function(...) substitute(...(<exprs>))
37f <- function(...) substitute(...())
38is.null(f())
39## [1] TRUE
40f <- function(...) substitute(...(n = 1))
41identical(f(a = sin(x), b = zzz), pairlist(a = quote(sin(x)), b = quote(zzz), n = 1))
42## [1] TRUE
43    Rprintf("CAR(t) == R_DotsSymbol? %d\n",
44            CAR(t) == R_DotsSymbol);
45    if (TYPEOF(CAR(t)) == LISTSXP || TYPEOF(CAR(t)) == LANGSXP) {
46        Rprintf("TYPEOF(CAR(t)) = %s, length(CAR(t)) = %d\n",
47                type2char(TYPEOF(CAR(t))), length(CAR(t)));
48        Rprintf("CAR(CAR(t)) = R_DotsSymbol? %d\n",
49                CAR(CAR(t)) == R_DotsSymbol);
50        Rprintf("TYPEOF(CDR(CAR(t))) = %s, length(CDR(CAR(t))) = %d\n",
51                type2char(TYPEOF(CDR(CAR(t)))), length(CDR(CAR(t))));
52    }
53    if (TYPEOF(s) == LISTSXP || TYPEOF(s) == LANGSXP) {
54        Rprintf("TYPEOF(s) = %s, length(s) = %d\n",
55                type2char(TYPEOF(s)), length(s));
56        Rprintf("TYPEOF(CAR(s)) = %s, length(CAR(s)) = %d\n",
57                type2char(TYPEOF(CAR(s))), length(CAR(s)));
58    }
59f <- function(...) substitute(...(n = 1))
60invisible(f(hello, world, hello(world)))
61

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36f <- function(...) substitute(...(<exprs>))
37f <- function(...) substitute(...())
38is.null(f())
39## [1] TRUE
40f <- function(...) substitute(...(n = 1))
41identical(f(a = sin(x), b = zzz), pairlist(a = quote(sin(x)), b = quote(zzz), n = 1))
42## [1] TRUE
43    Rprintf("CAR(t) == R_DotsSymbol? %d\n",
44            CAR(t) == R_DotsSymbol);
45    if (TYPEOF(CAR(t)) == LISTSXP || TYPEOF(CAR(t)) == LANGSXP) {
46        Rprintf("TYPEOF(CAR(t)) = %s, length(CAR(t)) = %d\n",
47                type2char(TYPEOF(CAR(t))), length(CAR(t)));
48        Rprintf("CAR(CAR(t)) = R_DotsSymbol? %d\n",
49                CAR(CAR(t)) == R_DotsSymbol);
50        Rprintf("TYPEOF(CDR(CAR(t))) = %s, length(CDR(CAR(t))) = %d\n",
51                type2char(TYPEOF(CDR(CAR(t)))), length(CDR(CAR(t))));
52    }
53    if (TYPEOF(s) == LISTSXP || TYPEOF(s) == LANGSXP) {
54        Rprintf("TYPEOF(s) = %s, length(s) = %d\n",
55                type2char(TYPEOF(s)), length(s));
56        Rprintf("TYPEOF(CAR(s)) = %s, length(CAR(s)) = %d\n",
57                type2char(TYPEOF(CAR(s))), length(CAR(s)));
58    }
59f <- function(...) substitute(...(n = 1))
60invisible(f(hello, world, hello(world)))
61CAR(t) == R_DotsSymbol? 0
62TYPEOF(CAR(t)) = language, length(CAR(t)) = 2
63CAR(CAR(t)) = R_DotsSymbol? 1
64TYPEOF(CDR(CAR(t))) = pairlist, length(CDR(CAR(t))) = 1
65TYPEOF(s) = pairlist, length(s) = 1
66TYPEOF(CAR(s)) = pairlist, length(CAR(s)) = 4
67

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36f <- function(...) substitute(...(<exprs>))
37f <- function(...) substitute(...())
38is.null(f())
39## [1] TRUE
40f <- function(...) substitute(...(n = 1))
41identical(f(a = sin(x), b = zzz), pairlist(a = quote(sin(x)), b = quote(zzz), n = 1))
42## [1] TRUE
43    Rprintf("CAR(t) == R_DotsSymbol? %d\n",
44            CAR(t) == R_DotsSymbol);
45    if (TYPEOF(CAR(t)) == LISTSXP || TYPEOF(CAR(t)) == LANGSXP) {
46        Rprintf("TYPEOF(CAR(t)) = %s, length(CAR(t)) = %d\n",
47                type2char(TYPEOF(CAR(t))), length(CAR(t)));
48        Rprintf("CAR(CAR(t)) = R_DotsSymbol? %d\n",
49                CAR(CAR(t)) == R_DotsSymbol);
50        Rprintf("TYPEOF(CDR(CAR(t))) = %s, length(CDR(CAR(t))) = %d\n",
51                type2char(TYPEOF(CDR(CAR(t)))), length(CDR(CAR(t))));
52    }
53    if (TYPEOF(s) == LISTSXP || TYPEOF(s) == LANGSXP) {
54        Rprintf("TYPEOF(s) = %s, length(s) = %d\n",
55                type2char(TYPEOF(s)), length(s));
56        Rprintf("TYPEOF(CAR(s)) = %s, length(CAR(s)) = %d\n",
57                type2char(TYPEOF(CAR(s))), length(CAR(s)));
58    }
59f <- function(...) substitute(...(n = 1))
60invisible(f(hello, world, hello(world)))
61CAR(t) == R_DotsSymbol? 0
62TYPEOF(CAR(t)) = language, length(CAR(t)) = 2
63CAR(CAR(t)) = R_DotsSymbol? 1
64TYPEOF(CDR(CAR(t))) = pairlist, length(CDR(CAR(t))) = 1
65TYPEOF(s) = pairlist, length(s) = 1
66TYPEOF(CAR(s)) = pairlist, length(CAR(s)) = 4
67invisible(substitute(...()))
68

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36f <- function(...) substitute(...(<exprs>))
37f <- function(...) substitute(...())
38is.null(f())
39## [1] TRUE
40f <- function(...) substitute(...(n = 1))
41identical(f(a = sin(x), b = zzz), pairlist(a = quote(sin(x)), b = quote(zzz), n = 1))
42## [1] TRUE
43    Rprintf("CAR(t) == R_DotsSymbol? %d\n",
44            CAR(t) == R_DotsSymbol);
45    if (TYPEOF(CAR(t)) == LISTSXP || TYPEOF(CAR(t)) == LANGSXP) {
46        Rprintf("TYPEOF(CAR(t)) = %s, length(CAR(t)) = %d\n",
47                type2char(TYPEOF(CAR(t))), length(CAR(t)));
48        Rprintf("CAR(CAR(t)) = R_DotsSymbol? %d\n",
49                CAR(CAR(t)) == R_DotsSymbol);
50        Rprintf("TYPEOF(CDR(CAR(t))) = %s, length(CDR(CAR(t))) = %d\n",
51                type2char(TYPEOF(CDR(CAR(t)))), length(CDR(CAR(t))));
52    }
53    if (TYPEOF(s) == LISTSXP || TYPEOF(s) == LANGSXP) {
54        Rprintf("TYPEOF(s) = %s, length(s) = %d\n",
55                type2char(TYPEOF(s)), length(s));
56        Rprintf("TYPEOF(CAR(s)) = %s, length(CAR(s)) = %d\n",
57                type2char(TYPEOF(CAR(s))), length(CAR(s)));
58    }
59f <- function(...) substitute(...(n = 1))
60invisible(f(hello, world, hello(world)))
61CAR(t) == R_DotsSymbol? 0
62TYPEOF(CAR(t)) = language, length(CAR(t)) = 2
63CAR(CAR(t)) = R_DotsSymbol? 1
64TYPEOF(CDR(CAR(t))) = pairlist, length(CDR(CAR(t))) = 1
65TYPEOF(s) = pairlist, length(s) = 1
66TYPEOF(CAR(s)) = pairlist, length(CAR(s)) = 4
67invisible(substitute(...()))
68CAR(t) == R_DotsSymbol? 0
69TYPEOF(CAR(t)) = language, length(CAR(t)) = 1
70CAR(CAR(t)) = R_DotsSymbol? 1
71TYPEOF(CDR(CAR(t))) = NULL, length(CDR(CAR(t))) = 0
72TYPEOF(s) = pairlist, length(s) = 1
73TYPEOF(CAR(s)) = language, length(CAR(s)) = 1
74

1f = function(...) substitute(...()); f(a, b)
2[[1]]
3a
4[[2]]
5b
6# but, substitute returns ..1
7f2 = function(...) substitute(...); f2(a, b)
8a
9#  \-substitute #R
10#    \-do_substitute #C
11#      \-substituteList #C recursive
12#        \-substitute #C
13parse(text = "(\\(...) substitute(...()))(a, b)") |> getParseData() |> subset(text == "...", select = c(7, 9))
14
15#>                   token  text
16#> 4        SYMBOL_FORMALS   ...
17#> 10 SYMBOL_FUNCTION_CALL   ...
18typeof(substitute)
19[1] "special"
20findVarInFrame3(rho, R_DotsSymbol, TRUE)
21f0 <- function() substitute(...(n = 1)); f0()
22## ...(n = 1)
23f1 <- function(...) substitute(...(n = 1)); f1()
24## $n
25## [1] 1
26g0 <- function() {... <- quote(x); substitute(...(n = 1))}; g0()
27## Error in g0() : '...' used in an incorrect context
28g1 <- function(...) {... <- quote(x); substitute(...(n = 1))}; g1()
29## Error in g1() : '...' used in an incorrect context
30h0 <- function() {... <- NULL; substitute(...(n = 1))}; h0()
31## $n
32## [1] 1
33h1 <- function(...) {... <- NULL; substitute(...(n = 1))}; h1()
34## $n
35## [1] 1
36f <- function(...) substitute(...(<exprs>))
37f <- function(...) substitute(...())
38is.null(f())
39## [1] TRUE
40f <- function(...) substitute(...(n = 1))
41identical(f(a = sin(x), b = zzz), pairlist(a = quote(sin(x)), b = quote(zzz), n = 1))
42## [1] TRUE
43    Rprintf("CAR(t) == R_DotsSymbol? %d\n",
44            CAR(t) == R_DotsSymbol);
45    if (TYPEOF(CAR(t)) == LISTSXP || TYPEOF(CAR(t)) == LANGSXP) {
46        Rprintf("TYPEOF(CAR(t)) = %s, length(CAR(t)) = %d\n",
47                type2char(TYPEOF(CAR(t))), length(CAR(t)));
48        Rprintf("CAR(CAR(t)) = R_DotsSymbol? %d\n",
49                CAR(CAR(t)) == R_DotsSymbol);
50        Rprintf("TYPEOF(CDR(CAR(t))) = %s, length(CDR(CAR(t))) = %d\n",
51                type2char(TYPEOF(CDR(CAR(t)))), length(CDR(CAR(t))));
52    }
53    if (TYPEOF(s) == LISTSXP || TYPEOF(s) == LANGSXP) {
54        Rprintf("TYPEOF(s) = %s, length(s) = %d\n",
55                type2char(TYPEOF(s)), length(s));
56        Rprintf("TYPEOF(CAR(s)) = %s, length(CAR(s)) = %d\n",
57                type2char(TYPEOF(CAR(s))), length(CAR(s)));
58    }
59f <- function(...) substitute(...(n = 1))
60invisible(f(hello, world, hello(world)))
61CAR(t) == R_DotsSymbol? 0
62TYPEOF(CAR(t)) = language, length(CAR(t)) = 2
63CAR(CAR(t)) = R_DotsSymbol? 1
64TYPEOF(CDR(CAR(t))) = pairlist, length(CDR(CAR(t))) = 1
65TYPEOF(s) = pairlist, length(s) = 1
66TYPEOF(CAR(s)) = pairlist, length(CAR(s)) = 4
67invisible(substitute(...()))
68CAR(t) == R_DotsSymbol? 0
69TYPEOF(CAR(t)) = language, length(CAR(t)) = 1
70CAR(CAR(t)) = R_DotsSymbol? 1
71TYPEOF(CDR(CAR(t))) = NULL, length(CDR(CAR(t))) = 0
72TYPEOF(s) = pairlist, length(s) = 1
73TYPEOF(CAR(s)) = language, length(CAR(s)) = 1
74g <- function(...) substitute(...(n = 1), new.env())
75gab <- g(a = sin(x), b = zzz)
76typeof(gab)
77## [1] "language"
78gab
79## ...(n = 1)
80

1data = [{
2          "id"     : "matchme-foo",
3          "message": "hallo this is a message",
4      },{
5          "id"     : "matchme-bar",
6          "message": "goodbye",
7      },{
8          "id"     : "anotherid",
9          "message": "completely diffrent event"
10      }, ...]
11for event in data:
12    match event:
13        case {'id':'matchme-*'}: # Match all 'matchme-' no matter what comes next
14            log.INFO(event['message'])
15        case {'id':'anotherid'}:
16            log.ERROR(event['message'])
17for event in data:
18    match event:
19        case {'id': x} if x.startswith("matchme"): # guard
20            print(event["message"])
21        case {'id':'anotherid'}:
22            print(event["message"])
23

1data = [{
2          "id"     : "matchme-foo",
3          "message": "hallo this is a message",
4      },{
5          "id"     : "matchme-bar",
6          "message": "goodbye",
7      },{
8          "id"     : "anotherid",
9          "message": "completely diffrent event"
10      }, ...]
11for event in data:
12    match event:
13        case {'id':'matchme-*'}: # Match all 'matchme-' no matter what comes next
14            log.INFO(event['message'])
15        case {'id':'anotherid'}:
16            log.ERROR(event['message'])
17for event in data:
18    match event:
19        case {'id': x} if x.startswith("matchme"): # guard
20            print(event["message"])
21        case {'id':'anotherid'}:
22            print(event["message"])
23match point:
24     case Point(x, y) if x == y:
25         print(f"The point is located on the diagonal Y=X at {x}.")
26     case Point(x, y):
27         print(f"Point is not on the diagonal.")
28