tangentstorm

// sh.mjs: javascript shorthand

// array helpers (apl/j/k)
export const id=x=>x
export const af=(n,x)=>Array(n).fill(x) // TODO: make this 'afl' or 'fil' (aa?)
export const ii=(n,f)=>{for(let i=0;i<n;i++)f(i)}
export const im=(n,f)=>af(n,0).map((_,i)=>f(i))
export const ia=(n,f)=>im(n,id)
export const at=(a,ixs)=>ixs.map(i=>a[i])
export const io=(xs,ys)=>ys.map([].indexOf.bind(xs))

tangentstorm

customElements.define('ts-list', class extends HTMLElement {
  static observedAttributes = ['ix']
  constructor() { super(); this.ix=0 }
  connectedCallback() {
    let sh = this.attachShadow({mode: 'open'})
    sh.innerHTML=`
    <slot></slot>
    <button id="up">^</button>
    <button id="add">+</button>
    <button id="dn">v</button>`

tangentstorm

let set=(o,k,v)=>{let r={...o}; r[k]=v; return r}
let gs=k=>(x,y)=> y===undefined ? x[k] : set(y,k,x)
let mb=gs('mb'), // match bit
    ib=gs('ib'), // input buffer
    ix=gs('ix'), // index into input buffer
    ch=gs('ch'), // current character (ib[ix])
    mk=gs('mk'); // start index of current token
let s0=()=>({mb:0,ib:'',ch:'',ix:-1,mk:-1})
on=s=>ix(0,ch(s[0],ib(s,s0())))
m1=s=>mb(1,s) // match

tangentstorm

Class {
	#name : #GsEllipse,
	#superclass : #GsObject,
	#instVars : [
		'radius',
		'position'
	],
	#category : #GameSketchLib
}

tangentstorm

{$mode delphi}
program pcapdemo;
uses pcap, sysutils, crt;

procedure throw(msg:string; detail:pchar);
  begin raise Exception.Create(msg + ': ' + detail)
  end;

function IPv4ToStr(addr:dword) : string;
  // this probably exists somewhere but i don't know where.

tangentstorm

// An IRC bot for the k5 programming language,
// using oK from : https://github.com/JohnEarnest/ok
"use strict";
var irc = require('irc');
var ok = require('./ok/ok');

const MAXLINES = 8;

var client = new irc.Client('irc.freenode.net', 'oK-bot', {
    channels: ['#jsoftware', '#learnprogramming']

tangentstorm

# i wrote this, and it works, but then i decided to just use Godot's own Expression parser.
# https://docs.godotengine.org/en/latest/tutorials/scripting/evaluating_expressions.html

func _examples():
	test('@title["the deck"]')
	test('@show["jp-editor"; 0]')
	test('@ed.xy[  0 5]')

func test(cmd:String):
	if cmd.begins_with('@'):

tangentstorm

NB. Code from the "Basic Animation In J" video
NB. https://www.youtube.com/watch?v=uL-70fMTVnw
NB. ------------------------------------------------------------------------

NB. animation demo

load 'viewmat'
coinsert'jgl2'

wd 'pc w0 closeok'                  NB. parent control (window) named 'w0'

tangentstorm

NB. Core logic for a tiny editor in J.
NB. No select/copy/paste (in this gist), but it does support multiple cursors.
NB. This started as the code for editing a single line of text, but I'm now
NB. using three copies simultaneously: one for a single token, one for
NB. boxed tokens on a line, and one for boxed lines in a buffer.
coclass 'ed'

init =: {{
  B =: ''  NB. the buffer to edit.
  C =: 0   NB. cursor position(s)

tangentstorm

/ grammar combinators in K
/ for longer description (in python), see:
/ http://tangentstorm.github.io/draft/wejalboot.py.html


/ -- misc helper functions ------------------------------------

join:{[sep;strs] / join strs with 'sep' as delimiter
    (#sep) _ ,/ sep,' strs}