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

ldfallas

<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        xmlns:utils="clr-namespace:Langexplr;assembly=utils"
        Title="Little query" Width="300" Height="300">
   <Window.Resources>
     <utils:TreeViewSelectedHelper x:Key="selHelper" />
   </Window.Resources>
   <StackPanel>

      <TextBlock Text="??"/>