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

function CalculateRelative($path,$pathRelative)
{
    $parts1 = ($path.ToString()).Split("\")
    $parts2 = ($pathRelative.ToString()).Split("\")
    $prefixEqual = 0
    $min = [Math]::Min($parts1.Length, $parts2.Length)
    $continue = $true
    while($prefixEqual -lt $min)
    {
        if ($parts1[$prefixEqual] -ne $parts2[$prefixEqual])

ldfallas

module SCParser where


       import Text.Parsec
       import Text.Parsec.Token
       import Text.Parsec.Language


       data Expr = ScSymbol String
                   | ScString String

ldfallas

module SCPPrint where

    import SCParser
    import Text.PrettyPrint.HughesPJ 


       --toStringP :: Expr -> String
    toStringP (ScSymbol name) = text name
    toStringP (ScNumber num) = text $ show num
    toStringP (ScDouble num) = text $ show num

ldfallas

       data Expr = ScSymbol String
                   | ScString String
                   | ScNumber Integer
                   | ScDouble Double 
                   | ScCons Expr Expr
                   | ScNil
                   | ScBool Bool
                   | ScQuote Expr
            deriving Show

ldfallas

module SCParser where


       import Text.Parsec
       import Text.Parsec.Token
       import Text.Parsec.Language


       data Expr = ScSymbol String
                   | ScString String

ldfallas

module SCParser where


       import Text.Parsec
       import Text.Parsec.Token
       import Text.Parsec.Language


       data Expr = ScSymbol String
                   | ScString String

ldfallas

module Experiment where


       import Text.Parsec
       import Text.Parsec.Token
       import Text.Parsec.Language


       data Expr = ScSymbol String
                   | ScString String

ldfallas

module Experiment where


       import Text.Parsec
       import Text.Parsec.Token
       import Text.Parsec.Language


       data Expr = ScSymbol String
                   | ScString String

ldfallas

module Experiment where


       import Text.Parsec
       import Text.Parsec.Token
       import Text.Parsec.Language


       data Expr = ScSymbol String
                   | ScString String