84 lines
1.7 KiB
Common Lisp
84 lines
1.7 KiB
Common Lisp
(:macro seq ())
|
|
|
|
(:macro c-not ( c )
|
|
)
|
|
; works because this has a higher constraints score:
|
|
(:macro c-not ( (c (:c-eq () _)) )
|
|
())
|
|
|
|
(:macro seq-exp (hd)
|
|
(':ot (':str-cat "- " (':t2ot-elt hd))))
|
|
(:macro seq-exp (hd .. tl)
|
|
(':seq-exp hd) (':seq-exp tl))
|
|
|
|
(:macro seq (hd)
|
|
(':t (':seq-exp hd)))
|
|
(:macro seq (hd .. tl)
|
|
(':t (':seq-exp hd tl)))
|
|
|
|
(:macro c-paren-eval ())
|
|
(:macro c-paren-eval (x)
|
|
(':c-atm x)
|
|
(':c-not (':c-colon-id x)))
|
|
|
|
(:macro @ ( (k(:c-paren-eval _)) )
|
|
(':t (':str-cat (':t2ot-elt k) ":")))
|
|
|
|
(:macro @ ( (k(:c-paren-eval _)) v )
|
|
(':t k ": " v))
|
|
|
|
(:macro @ ( (k(:c-paren-eval _)) (v(:c-atm _)) )
|
|
(':t (':str-cat (':str-cat (':atm-to-str k) ": ") (':atm-to-str v) )))
|
|
|
|
(:macro @ ( (k(:c-paren-eval _)) v .. other)
|
|
(k v)
|
|
other)
|
|
|
|
(:macro t2ot-elt ( hd )
|
|
(':atm-to-str hd))
|
|
|
|
(:macro t2ot-elt ( hd .. tl )
|
|
(':tree
|
|
(':t2ot-elt hd)
|
|
(':t2ot-elt tl)))
|
|
|
|
(:macro t () (':ot))
|
|
(:macro t ( .. tl )
|
|
(':ot
|
|
(':t2ot-elt tl)))
|
|
|
|
(:macro ot ( x )
|
|
(':yot (':indent x)))
|
|
|
|
(:macro indent ( (x(:c-str _)) )
|
|
(':str-cat " " x))
|
|
|
|
(:macro indent ( (hd(:c-atm _)) .. tl )
|
|
(':indent hd)
|
|
(':indent tl))
|
|
|
|
(:macro indent-each ( hd .. tl )
|
|
(':indent hd)
|
|
(':indent tl))
|
|
|
|
(:macro rm-first (x .. tl)
|
|
tl)
|
|
|
|
(:macro indent ( (x(:c-li0-eq _ :tree)) )
|
|
(':tree (':indent-each (':rm-first (':unpack x)))))
|
|
|
|
(name "Complex CI/CD Pipeline")
|
|
|
|
(on
|
|
(push
|
|
(branches
|
|
(:seq "main" "release/*")))
|
|
(pull_requests
|
|
(types
|
|
(:seq opened synchronize reopened)))
|
|
(workflow_dispatch))
|
|
|
|
(env
|
|
(NODE_VERSION 20)
|
|
(PYTHON_VERSION "3.11"))
|