ragnard

from typing import List, Set

import logging
from superset.security import SupersetSecurityManager

log = logging.getLogger(__name__)

class KeycloakSecurityManager(SupersetSecurityManager):
    def oauth_user_info(self, provider, resp):
        import pprint

ragnard

#!/usr/bin/env bash

decode_base64() {
    echo -n "$1" | tr -d - | tr _ / | base64 -d 2>/dev/null
}

IFS='.' read header payload signature <&0

echo $(decode_base64 $header)
echo $(decode_base64 $payload)

ragnard

Scenario

Let's say I have something like this:

src/pages/foo/index.svelte

• a page listing some foos

ragnard

(Thread. (reify Runnable
           (run [] (println "Running!"))))

ragnard

import javafx.scene.control.Cell;

public class JavaFX {
    public static Class f() {
        return Cell.class;
    }
}

ragnard

$ ~/projects/graalvm/graalvm-0.27/bin/native-image  -cp com.github.ragnard.shentruffle.klambda/target/classes:com.github.ragnard.shentruffle.shen/target/classes com.github.ragnard.shentruffle.KLambda
   classlist:   1,761.15 ms
       (cap):     960.01 ms
       setup:   1,509.68 ms
    analysis:   2,407.04 ms
fatal error: org.graalvm.compiler.java.BytecodeParser$BytecodeParserError: com.oracle.svm.core.util.UserError$UserException: ImageSingletons do not contain key com.oracle.svm.graal.GraalSupport
	at parsing com.oracle.svm.graal.GraalSupport.get(GraalSupport.java:235)
	at org.graalvm.compiler.java.BytecodeParser.asParserError(BytecodeParser.java:2157)
	at org.graalvm.compiler.java.BytecodeParser.iterateBytecodesForBlock(BytecodeParser.java:2840)
	at org.graalvm.compiler.java.BytecodeParser.processBlock(BytecodeParser.java:2659)

ragnard

(defun count-down (n)
  (if (= n 0) 
    done 
    (count-down (- n 1))))

(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)
(count-down 1000000)

ragnard

$ ./scripts/shen-truffle
Loading toplevel.kl
Loading core.kl
Loading sys.kl
Loading sequent.kl
Loading yacc.kl
Loading reader.kl
Loading prolog.kl
Loading track.kl
Loading load.kl

ragnard

$ mvn compile
...
$ ./scripts/kl --dump < tests/kl/count-down.kl

ragnard

(defun count-down (N)
  (if (= N 0) 
    done 
    (count-down (- N 1))))