Skip to content

Instantly share code, notes, and snippets.

@ingydotnet
Last active December 19, 2023 15:31
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ingydotnet/480d7243a797c9323b973cf5c5dea933 to your computer and use it in GitHub Desktop.
Save ingydotnet/480d7243a797c9323b973cf5c5dea933 to your computer and use it in GitHub Desktop.
;; Copyright 2023 Ingy dot Net
;; This code is licensed under MIT license (See License for details)
;; This is the YAMLScript standard library.
(ns ys.std
(:require
[yamlscript.debug]
[clojure.pprint :as pp]
[clojure.string :as str])
(:refer-clojure :exclude [print]))
(defn www [& xs]
(apply yamlscript.debug/www xs))
(defn xxx [& xs]
(apply yamlscript.debug/xxx xs))
(defn yyy [& xs]
(apply yamlscript.debug/yyy xs))
(defn zzz [& xs]
(apply yamlscript.debug/zzz xs))
(defn toBoo [x] boolean x)
(defn toFlt [x] (parse-double x))
(defn toInt [x] (parse-long x))
(defn toMap
([] {})
([x] (apply hash-map x))
([k v & xs] (apply hash-map k v xs)))
(defn toStr [& xs] (apply str xs))
(defn _get [coll key]
(if (string? key)
(or (get coll (keyword key))
(get coll key))
(get coll key))
)
(defn _. [x & xs]
(reduce _get x xs))
(defn _+ [x & xs]
(cond
(string? x) (apply str x xs)
(vector? x) (apply concat x xs)
(map? x) (apply merge x xs)
:else (apply + x xs)))
(defn _* [x y]
(if (and (string? x) (number? y))
(apply str (repeat y x))
(if (and (string? y) (number? x))
(apply str (repeat x y))
(* x y))))
(defmacro each [bindings & body]
`(do
(doall (for [~@bindings] (do ~@body)))
nil))
(defn err [& xs]
(binding [*out* *err*]
(apply clojure.core/print xs)
(flush)))
(defn join
([xs] (join "" xs))
([sep & xs]
(if (= 1 (count xs))
(str/join sep (first xs))
(str/join sep xs))))
(defn out [& xs]
(apply clojure.core/print xs)
(flush))
(defn pretty [o]
(str/trim-newline
(with-out-str
(pp/pprint o))))
(defn print [o]
(clojure.core/print o)
(flush))
(defn rng [x y]
(if (> y x)
(range x (inc y))
(range x (dec y) -1)))
(defn say [& xs]
(apply clojure.core/println xs))
(defn warn [& xs]
(binding [*out* *err*]
(apply clojure.core/println xs)
(flush)))
(comment)
;; GENERATED CODE - DO NOT EDIT
;; ys version: 0.1.28
;; Copyright 2023 Ingy dot Net
;; This code is licensed under MIT license (See License for details)
;; This is the YAMLScript standard library.
(ns ys.std
(:require [yamlscript.debug]
[clojure.pprint]
[clojure.string])
(:refer-clojure :exclude [print]))
(declare print)
(defn www [& xs] (apply yamlscript.debug/www xs))
(defn xxx [& xs] (apply yamlscript.debug/xxx xs))
(defn yyy [& xs] (apply yamlscript.debug/yyy xs))
(defn zzz [& xs] (apply yamlscript.debug/zzz xs))
(defn toBoo [x] (boolean x))
(defn toFlt [x] (parse-double x))
(defn toInt [x] (parse-long x))
(defn toMap
([] {})
([x] (apply hash-map x))
([k v & xs] (apply hash-map k v xs)))
(defn toStr [& xs] (apply str xs))
(defn _get
[coll key]
(if (string? key)
(or (get coll (keyword key)) (get coll key))
(get coll key)))
(defn _. [x & xs] (reduce _get x xs))
(defn _+
[x & xs]
(cond (string? x) (apply str x xs)
(vector? x) (apply concat x xs)
(map? x) (apply merge x xs)
:else (apply + x xs)))
(defn _*
[x y]
(if (and (string? x) (number? y))
(apply str (repeat y x))
(if (and (string? y) (number? x)) (apply str (repeat x y)) (_* x y))))
(defmacro each
[bindings & body]
`(do (doall (for [~@bindings] (do ~@body))) nil))
(defn err
[& xs]
(binding [*out* *err*]
(apply clojure.core/print xs)
(flush)))
(defn join
([xs] (join "" xs))
([sep & xs]
(if (= 1 (count xs))
(clojure.string/join sep (first xs))
(clojure.string/join sep xs))))
(defn out [& xs] (apply clojure.core/print xs) (flush))
(defn pretty
[o]
(clojure.string/trim-newline (with-out-str (clojure.pprint/pprint o))))
(defn print [o] (clojure.core/print o) (flush))
(defn rng [x y] (if (> y x) (range x (inc y)) (range x (dec y) -1)))
(defn say [& xs] (apply clojure.core/println xs))
(defn warn
[& xs]
(binding [*out* *err*]
(apply clojure.core/println xs)
(flush)))
(comment)
# Copyright 2023 Ingy dot Net
# This code is licensed under MIT license (See License for details)
# This is the YAMLScript standard library.
--- !yamlscript/v0
ns ys::std:
(:require
[yamlscript::debug]
[clojure::pprint]
[clojure::string])
(:refer-clojure :exclude [print])
defn www(& xs):
apply: yamlscript::debug.www xs
defn xxx(& xs):
apply: yamlscript::debug.xxx xs
defn yyy(& xs):
apply: yamlscript::debug.yyy xs
defn zzz(& xs):
apply: yamlscript::debug.zzz xs
defn toBoo(x): boolean(x)
defn toFlt(x): parse-double(x)
defn toInt(x): parse-long(x)
defn toMap:
.[]: .{}
.[x]:
apply: hash-map x
.[k v & xs]:
apply: hash-map k v xs
defn toStr(& xs):
apply: str xs
defn _get(coll key):
if (string? key):
or:
get: coll keyword(key)
get: coll key
get: coll key
defn _.(x & xs):
reduce: _get x xs
defn _+(x & xs):
(cond
(string? x) (apply str x xs)
(vector? x) (apply concat x xs)
(map? x) (apply merge x xs)
:else (apply + x xs))
defn _*(x y):
if (string?(x) && number?(y)):
apply: str repeat(y x)
if (string?(y) && number?(x)):
apply: str repeat(x y)
=>: x * y
defmacro each [bindings & body]:
.`(do
(doall
(for [~@bindings] (do ~@body)))
nil)
defn err(& xs):
binding [*out* *err*]:
apply: clojure::core.print xs
flush:
defn join:
.[xs]:
join: ."" xs
.[sep & xs]:
if (= 1 count(xs)):
clojure::string.join: sep first(xs)
clojure::string.join: sep xs
defn out(& xs):
apply: clojure::core.print xs
flush:
defn pretty(o):
clojure::string.trim-newline:
with-out-str:
clojure::pprint.pprint: o
defn print(o):
clojure::core.print: o
flush:
defn rng(x y):
if (y > x):
range: x inc(y)
range: x dec(y) -1
defn say(& xs):
apply: clojure::core.println xs
defn warn(& xs):
binding [*out* *err*]:
apply: clojure::core.println xs
flush:
comment:
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment