vendethiel

export const hasDefinedKey =
  <K extends PropertyKey>(key: K) =>
  <T extends Partial<Record<K, unknown>>>(
    obj: T,
  ): obj is T & Record<K, Exclude<T[K], undefined>> =>
    key in obj && obj[key] !== undefined;

vendethiel

say("Hello World");

vendethiel

import slick.jdbc.{GetResult, PositionedResult}

import scala.annotation.implicitNotFound
import scala.reflect.runtime.universe.TypeTag

/**
 * A type class that allows the user of GenericGetResult to support their own type.
 * This is mostly used to support `newtype`s (like wrappers around UUIDs).
 *
 * A user just has to use the helper to make the type known to GenericGetResult.

vendethiel

my @a = ('99 bottles', 'take one down', '98 bottles');
for @a {
     say "$^a of beer on the wall, $^a of beer.$^b, $^c of beer on the wall.".tc;
}
my @b = ('99 bottles', 'take one down', '98 bottles'), ('98 bottles', 'take one down', '97 bottles');
say @b.perl;
for @b {
     say "$^a of beer on the wall, $^a of beer.$^b, $^c of beer on the wall.".tc;
}

vendethiel

macro $do {
    rule {($($x = $y) (,) ...) $body} => {
        (function ($x (,) ...) $body)($y (,) ...)
    }
    rule {$name ($($x = $y) (,) ...) $body} => {
        (function $name ($x (,) ...) $body)($y (,) ...)
    }
}

macro $var {

vendethiel

macro null_helper {
    rule {($processed ...) ($rest)} => {
        $processed (.) ... . $rest
    }
    rule {($processed ...) ($rest_head $rest ...)} => {
        $processed (.) ... . $rest_head
        && null_helper ($processed ... $rest_head) ($rest ...)
    }
}

vendethiel

// y-combinator
macro $y {
    rule {( $var )} => {
        function(){
            return function (f){
                return f(f)
            }(function(f){
                return $var(function(x){
                    return f(f)(x);
                })

vendethiel

macro to_string {
  case $x => { (JSON.stringify({ $x: 0 }).slice(2, -4)) }
}

macro enum {
  case [ $val:ident (,) ... ] => {
      (function () {
        var e = {
            $( $val : (to_string $val) ) (,) ...
        };

vendethiel

macro $do {
    rule {($($x = $y) (,) ...) $body} => {
        (function ($x (,) ...) $body)($y (,) ...)
    }
    rule {$name ($($x = $y) (,) ...) $body} => {
        (function $name ($x (,) ...) $body)($y (,) ...)
    }
}

$do (a = 1, b = 2) {

vendethiel

macro sexp {
  rule {()} => {
    ; 
  }
  rule {($p)} => {
    $p
  }
  rule {($x $y)} => {
    $x($y);
  }