combineIntoOneFile.fsx

(*
This pre build script is needed because F# extension members are not visible in C#.
So all 900 methods of the rhinoscriptingsyntax must be in one file.
But putting all methods in one file is really bad for editor performance.



This script combines several files into AutoGeneratedCode/AllScriptingFilesCombinedIntoOne_DontEditThisFile.fs before compiling.
the generated file gets deleted after compiling
this must be in fsproj file:

<!-- Combine all files of the rhinoscriptingsyntax into one:  https://stackoverflow.com/a/44829863/969070 -->
 <Target Name="GenerateSomeFiles" BeforeTargets="BeforeBuild">
    <Exec Command="dotnet fsi combineIntoOneFile.fsx" />
    <ItemGroup> <Compile Include="Src/AutoGeneratedCode/AllScriptingFilesCombinedIntoOne_DontEditThisFile.fs" /> </ItemGroup>
  </Target>

 <!-- Delete AutoGeneratedCode/AllScriptingFilesCombinedIntoOne_DontEditThisFile.fs when done-->
  <Target Name="DeleteMergedFile" BeforeTargets="AfterBuild"> <Delete Files="Src/AutoGeneratedCode/AllScriptingFilesCombinedIntoOne_DontEditThisFile.fs" TreatErrorsAsWarnings="true" /> </Target>


*)

module CombineIntoOneFile =

    open System

    let splitMarker = "{@$%^&*()*&^%$@}"

    let head = "Src/Scripting_Header.fs"

    let files = [
        "Src/Scripting_Coerce.fs"
        "Src/Scripting_Layer.fs"
        "Src/Scripting_Application.fs"
        "Src/Scripting_Block.fs"
        "Src/Scripting_Curve.fs"
        "Src/Scripting_Dimension.fs"
        "Src/Scripting_Document.fs"
        "Src/Scripting_Geometry.fs"
        "Src/Scripting_Grips.fs"
        "Src/Scripting_Group.fs"
        "Src/Scripting_Hatch.fs"
        "Src/Scripting_Light.fs"
        "Src/Scripting_Line.fs"
        "Src/Scripting_Linetype.fs"
        "Src/Scripting_Material.fs"
        "Src/Scripting_Mesh.fs"
        "Src/Scripting_Object.fs"
        "Src/Scripting_Plane.fs"
        "Src/Scripting_PointVector.fs"
        "Src/Scripting_Selection.fs"
        "Src/Scripting_Surface.fs"
        "Src/Scripting_Toolbar.fs"
        "Src/Scripting_Transformation.fs"
        "Src/Scripting_UserData.fs"
        "Src/Scripting_UserInterface.fs"
        "Src/Scripting_Utility.fs"
        "Src/Scripting_Views.fs"
        ]

    let getLines(p:string) =
        if IO.File.Exists p then
            IO.File.ReadAllLines p
        else
            eprintfn "*!*!*!*!*!* ERROR in build script "
            eprintfn "*!*!*!*!*!* File %s NOT found in CurrentDirectory: %s" p Environment.CurrentDirectory
            eprintfn "*!*!*!*!*!* ERROR in build script "
            [| |]

    let afterMarker file (lns:string []) :seq<string> =
        match lns |> Array.tryFindIndex( fun ln -> ln.Contains splitMarker) with
        |Some i ->
            //lns.[i+1 .. ] // |> Array.map (addNote file)
            Seq.skip i lns
        |None ->
            eprintfn "*!*!*!*!*!* ERROR in build script "
            eprintfn "*!*!*!*!*!* Split marker %s NOT found in %s !" splitMarker  file
            eprintfn "*!*!*!*!*!* ERROR in build script "
            Seq.empty

    let run() =
        let lines = ResizeArray<string>()

        // Start merging files:
        lines.AddRange(getLines head)

        printfn "--Pre Build Step:"
        printf  "--Combine all files of Src/Scripting_****.fs into one:"
        for i, file in files |> Seq.indexed do
            let n = file.Replace("Src/Scripting_", " ")
            lines.AddRange(file|> getLines |> afterMarker file)
            if i%7 =0 then
                printf "\r\n  -- %s" n
            else
                printf " %s" n
        printfn ""

        IO.File.WriteAllLines("Src/AutoGeneratedCode/AllScriptingFilesCombinedIntoOne_DontEditThisFile.fs", lines, Text.Encoding.UTF8)
        printfn "--Done combining files into Src/AutoGeneratedCode/AllScriptingFilesCombinedIntoOne_DontEditThisFile.fs. compiling now .."


CombineIntoOneFile.run()