ldfallas

namespace BooGtkTest
import System
import Gtk
import Cairo

class DrawingTestWidget(DrawingArea):
   
    public def constructor():
       self.ExposeEvent += ExposeHandler

ldfallas

Newsqueak2
'Langexplr
'

class ShapesExperiment usingLib: platform = (
"A small experiment for using Hopscotch shape classes ."
|
	CanvasDependent = platform CanvasDependent.
	Presenter = platform HPresenter.
	Subject = platform Subject.

ldfallas

class NewspeakLexer(RegexLexer):
    """
    For `Newspeak <http://newspeaklanguage.org/>` syntax.


    """
    name = 'Newspeak'
    filenames = ['*.ns2']
    aliases = ['newspeak', ]
    mimetypes = ['text/x-newspeak']

ldfallas

Newsqueak2
'LangexplrExperiments
'

class FFIExperiments usingLib: platform =  (
"Experiment for calling libcurl"
|
	Transcript = platform Transcript.
      Alien = platform Alien.
      Callback = platform Callback.

ldfallas

Newsqueak1
'LangexplrExperiments'
CurlWriteCallbackNs1 = Alien (
"Class used to represent arguments of the LibCurl write function."
'as yet unclassified'
data = (
 
	^Alien forPointer: (self unsignedLongAt: 1)
)

ldfallas

let rec MultiPartition aList (p:'a -> 'a -> bool) results = 
    match aList with
    | x::rest -> 
           let equivalent,newRest =
                  List.partition
                        (fun e -> p x e)
                        rest
             in MultiPartition newRest p ((x::equivalent)::results)
    | [] -> results

ldfallas

 +/ ((_1 * i. 2) (|. "0 1) ((p1 (*"_ 0) p2) (,"1 0) 0))

ldfallas

polymulti =: dyad : '+/ (((_1 * i. #y) (|. "0 1) ((x (*"_ 0) y) (,"1 1) ( ( (#y) - 1) $ 0))) , 0)'

ldfallas

package main

import "fmt"

type Environment struct {
    bindings map[string] SExp
}

func (e Environment) Lookup(name string) SExp {
   var result SExp;

ldfallas

namespace LangexplrExperiments
open System.Drawing
open System.Drawing.Imaging

module ImageProcExperiments = begin
  
  let Load24BitImageData (fileName:string) =
     using(new Bitmap(fileName)) 
          (fun bm ->
              if bm.PixelFormat <> PixelFormat.Format24bppRgb then