《powershell 的版本号所引起的载入 FSharp 编译器问题》基本解决

1、FSharp.Core.dll。不光要 Add-Type，还要在编译中引用。可是，在 VS2012 的环境下，就不须要引用，百思不得其解；

2、理顺了大部分系统引用的地址。

Function Compiler-FSharp([string] $fSharpCode,[Array]$References)
{
    # 推断 Powershell 的版本号
    $isAMD64= ($env:PROCESSOR_ARCHITECTURE).Contains( "AMD64" )
    $is32= $PSHOME.Contains("SysWOW64" )
    $ra= New-Object Collections.ArrayList

    # 添加 Path for FSC.exe 
    $FscPath= @("C:\ProgramFiles\Microsoft SDKs\F#\2.0\Framework\v4.0";
                 "C:\ProgramFiles\Microsoft SDKs\F#\3.0\Framework\v4.0";
                 "C:\ProgramFiles\Microsoft SDKs\F#\3.1\Framework\v4.0";
                 "C:\ProgramFiles\Microsoft SDKs\F#\4.0\Framework\v4.0";
                 "C:\ProgramFiles (x86)\Microsoft SDKs\F#\3.0\Framework\v4.0";
                 "C:\ProgramFiles (x86)\Microsoft SDKs\F#\3.0\Framework\v4.0";
                 "C:\ProgramFiles (x86)\Microsoft SDKs\F#\3.1\Framework\v4.0";
                 "C:\ProgramFiles (x86)\Microsoft SDKs\F#\4.0\Framework\v4.0";
                 )
    $FscPath| % { if (Test-Path $_) { $env:Path = $env:Path+ ";" + $_  } }

    if ($isAMD64)
    {
        $FSharpCorePath= @(
            "C:\ProgramFiles (x86)\ReferenceAssemblies\Microsoft\FSharp\.NETFramework\v4.0\4.3.0.0\FSharp.Core.dll"
        )

        if ($is32)
        {
           $mscorlibPath= @(
                "C:\Windows\Microsoft.NET\Framework\v4.0.30319\mscorlib.dll"
            )
        }
        else
        {
            $mscorlibPath= @(
                "C:\ProgramFiles (x86)\ReferenceAssemblies\Microsoft\Framework\.NETFramework\v4.5\mscorlib.dll"
            )
        }
    }
    else
    {
        if ($is32)
        {
            $FSharpCorePath= @(
                "C:\ProgramFiles (x86)\ReferenceAssemblies\Microsoft\FSharp\.NETFramework\v4.0\4.3.0.0\FSharp.Core.dll"
                )
            $mscorlibPath= @(
                "C:\ProgramFiles (x86)\ReferenceAssemblies\Microsoft\Framework\.NETFramework\v4.5\mscorlib.dll";
                "C:\ProgramFiles (x86)\ReferenceAssemblies\Microsoft\Framework\.NETFramework\v3.5\Profile\Client5\mscorlib.dll"

            )

        }
        else
        {
            $FSharpCorePath= @(
                "C:\ProgramFiles\ReferenceAssemblies\Microsoft\FSharp\3.0\Runtime\v4.0\FSharp.Core.dll";
                "C:\ProgramFiles\Reference Assemblies\Microsoft\FSharp\.NETFramework\v4.0\4.3.0.0\FSharp.Core.dll";
                )

            $mscorlibPath= @(            
                "C:\ProgramFiles\ReferenceAssemblies\Microsoft\Framework\.NETFramework\v3.0\mscorlib.dll"
                "C:\ProgramFiles\ReferenceAssemblies\Microsoft\Framework\.NETFramework\v3.5\mscorlib.dll"
                "C:\ProgramFiles\ReferenceAssemblies\Microsoft\Framework\.NETFramework\v4.0\mscorlib.dll"
                "C:\ProgramFiles\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\mscorlib.dll"
            )
       }
    }


    $FSharpCorePath| % { if(Test-Path( $_ )) { Add-Type -Path $_ } }
    $ra.AddRange( @( $mscorlibPath  | ? { Test-Path( $_ ) } | Select-Object -First1 ) )
    $ra.AddRange( @( $FSharpCorePath | ?

{Test-Path($_ ) } | Select-Object -First 1 ) ) 


    if ($references.Count-ge 1)
    {
        $ra.AddRange($References)
        $references|  % { if(Test-Path( $_ )) { Add-Type -Path$_ } else{ Add-Type -AssemblyName $_} }
    }
    # 载入 FSharp.Compiler.CodeDom.dll
    Add-Type -Path C:\FSharpPowerPack-4.0.0.0\bin\FSharp.Compiler.CodeDom.dll
    $provider= New-ObjectMicrosoft.FSharp.Compiler.CodeDom.FSharpCodeProvider
    <#
    假设要使用-CompilerParameters
    与-ReferencedAssemblies 不能同一时候使用
    $cp= New-ObjectSystem.CodeDom.Compiler.CompilerParameters
    $cp.CompilerOptions= "--platform:x86"
    #>
    $fSharpType= Add-Type-TypeDefinition $fSharpCode -CodeDomProvider $provider -ReferencedAssemblies $ra -ErrorActionIgnore -PassThru | where { $_.IsPublic }
    $fSharpType
}


============================

######################
# FSharp.Data
######################

$fSharpCode = Get-Content"$env:USERPROFILE\Desktop\Data.fs" | Out-String
$references = @("C:\FSharp.Data\bin\FSharp.Data.dll") 

Compiler-FSharp $fSharpCode $references

[Test]::http("http://www.baidu.com").Body.item

============================

Data.fs:

module Test

open FSharp.Data
//open FSharp.Net
// FSharp.Data 新版本号中所有的函数所有归到 Data 命名空间下了。

let http (url:string) = Http.Request url

本文转自mfrbuaa博客园博客，原文链接：http://www.cnblogs.com/mfrbuaa/p/5127061.html，如需转载请自行联系原作者