tluyben

/*
 * Minimal .NET Forth implementation. Just an experiment. Do not use for anything serious.
 * by Tycho Luyben (https://github.com/tluyben)
 * 
 * The only 'primitive' (built-in) is an foreign function interface word which allows you to define
 * whatever is needed, for example: 
 * 
 * hello System.String System.Console.WriteLine ffi 
 * 
 * will print hello. 

tluyben

package main

import (
        "fmt"
        "os"
        "encoding/hex"
        "github.com/mr-tron/base58/base58"
)

func main() {

tluyben

        Random r = new Random();

        static ConcurrentDictionary<int, Action> actions = new ConcurrentDictionary<int, Action>(); 

        public static void ExecuteAction(int i)
        {
            Action a; 
            actions.Remove(i, out a); 
            a();
        }

tluyben

        class InternalTextBox : MaskedTextBox
        {
            bool _PlaceholderHandled = false;
            void DoPlaceholder()
            {



                if (Placeholder.Length > 0 && this.Text == string.Empty && this.Text != this.Placeholder)
                {

tluyben

			Model model = diagram1.Model;
			diagram1.Model.SetSize(new Size(1000, 1000));

			Shape shape = new Shape();
			shape.Location = new PointF(10, 20);
			//model.Shapes.Add("a1", shape);

            Flowchart f = (Flowchart)diagram1;
            shape = f.AddFlowShape(shape.Location, FlowchartStencilType.Terminator);
            shape.Label = new Label("kaas");

tluyben

using System;
using System.Xml;
using System.Collections.Generic;
using System.Linq; 
using System.Linq.Expressions; 

namespace test1
{
	public static class XMLExtensions
	{

tluyben

#!/usr/bin/perl

@d = split(/\;/,`cat mailinglist.txt`);
print "Email\tFirst\tLast\n";
foreach(@d) {
    chomp;
    $s = $_;
    $s =~ s/^\s+|\s+$//g;
    if ($s=~/(.*?)\s*\((.*?)\)/igsm) {
        $e = $2;

tluyben

var si = setInterval(function() {WMSX.room.machine.systemPause(false);WMSX.room.machine.videoClockPulse(); console.log(WMSX.room.machine.cpu.toString());WMSX.room.machine.systemPause(true);}, 200);

tluyben

<?php

use Behat\Behat\Context\ClosuredContextInterface;
use Behat\Behat\Context\TranslatedContextInterface;
use Behat\Behat\Context\Context;
use Behat\Exception\PendingException;
use Behat\Gherkin\Node\PyStringNode;
use Behat\Gherkin\Node\TableNode;
use Illuminate\Routing\UrlGenerator;
use Behat\MinkExtension\Context\MinkContext;

tluyben

import ast
from cStringIO import StringIO
import sys

INFSTR = '1e308'

def interleave(inter, f, seq):
  seq = iter(seq)
  try:
    f(next(seq))