Added flask (wip)

Author: dbrattli

Build.fs

@@ -6,7 +6,7 @@ open Helpers
 initializeContext()
 
 let buildPath = Path.getFullName "build"
-let srcPath = Path.getFullName "src"
+let srcPath = Path.getFullName "stdlib"
 let deployPath = Path.getFullName "deploy"
 let testsPath = Path.getFullName "test"
 
@@ -19,8 +19,6 @@ Target.create "Clean" (fun _ ->
     // run dotnet $"run -c Release -p {cliPath} -- clean --yes --lang Python " buildPath
 )
 
-Target.create "InstallClient" (fun _ -> run npm "install" ".")
-
 Target.create "Build" (fun _ ->
     Shell.mkdir buildPath
     run dotnet $"run -c Release -p {cliPath} -- --lang Python --exclude Fable.Core --outDir {buildPath}/lib" srcPath
@@ -30,13 +28,14 @@ Target.create "Run" (fun _ ->
     run dotnet "build" srcPath
 )
 
-Target.create "RunTests" (fun _ ->
+Target.create "Test" (fun _ ->
     run dotnet "build" testsPath
     [ "native", dotnet "run" testsPath
       "python", dotnet $"run -c Release -p {cliPath} -- --lang Python --exclude Fable.Core --outDir {buildPath}/tests" testsPath
       ]
     |> runParallel
     Shell.Exec("touch", $"{buildPath}/tests/__init__.py") |> ignore
+    Shell.Exec("touch", $"{buildPath}/tests/stdlib/__init__.py") |> ignore
     run pytest $"{buildPath}/tests" ""
 )
 
@@ -48,16 +47,13 @@ open Fake.Core.TargetOperators
 
 let dependencies = [
     "Clean"
-        ==> "InstallClient"
         ==> "Build"
 
     "Clean"
-        ==> "InstallClient"
         ==> "Run"
 
-    "InstallClient"
-        ==> "Build"
-        ==> "RunTests"
+    "Build"
+        ==> "Test"
 ]
 
 [<EntryPoint>]

examples/flask/App.fs

@@ -0,0 +1,13 @@
+module Safe
+
+open Fable.Python.Builtins
+open Flask
+
+let app = Flask.Create(__name__)
+let index = app.route("/")
+
+let hello_world () =
+    "<p>Hello, World!</p>"
+    //flask.render_template()
+
+hello_world |> index |> ignore

examples/flask/Flask.fsproj

@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <TargetFramework>net5.0</TargetFramework>
+    <GenerateProgramFile>false</GenerateProgramFile>
+    <Author>Dag Brattli</Author>
+    <Copyright>Dag Brattli</Copyright>
+  </PropertyGroup>
+  <ItemGroup>
+    <Compile Include="App.fs" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="../../../Fable/src/Fable.Core/Fable.Core.fsproj" />
+    <ProjectReference Include="../../stdlib/Fable.Python.fsproj" />
+    <ProjectReference Include="../../flask/Fable.Python.Flask.fsproj" />
+  </ItemGroup>
+
+  <Import Project="..\..\.paket\Paket.Restore.targets" />
+</Project>

examples/flask/build.sh

@@ -0,0 +1,2 @@
+#!/bin/bash
+dotnet run -c Release -p ../../../Fable/src/Fable.Cli -- --lang Python --exclude Fable.Core

examples/flask/poetry.lock

@@ -0,0 +1,18 @@
+
+[tool.poetry]
+name = "flask-example"
+version = "0.1.0"
+description = "Flask Example"
+authors = ["Dag Brattli <[email protected]>"]
+license = "MIT"
+
+[tool.poetry.dependencies]
+python = "^3.8"
+fable-library = "^0.0.1"
+Flask = "^2.0.1"
+
+[tool.poetry.dev-dependencies]
+
+[build-system]
+requires = ["poetry-core>=1.0.0"]
+build-backend = "poetry.core.masonry.api"

examples/flask/pyproject.toml

@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <TargetFramework>net5.0</TargetFramework>
+    <GenerateDocumentationFile>true</GenerateDocumentationFile>
+    <Author>Dag Brattli</Author>
+    <Copyright>Dag Brattli</Copyright>
+    <PackageLicenseFile>LICENSE</PackageLicenseFile>
+    <WarnOn>3390;$(WarnOn)</WarnOn>
+  </PropertyGroup>
+  <ItemGroup>
+    <Compile Include="Flask.fs" />
+  </ItemGroup>
+  <ItemGroup>
+    <ProjectReference Include="../../Fable/src/Fable.Core/Fable.Core.fsproj" />
+  </ItemGroup>
+  <ItemGroup>
+    <Content Include="pyproject.toml; *.fsproj; **\*.fs; **\*.fsi" PackagePath="fable\" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="..\LICENSE" Pack="true" Visible="false" PackagePath=""/>
+  </ItemGroup>
+  <Import Project="..\.paket\Paket.Restore.targets" />
+</Project>

flask/Fable.Python.Flask.fsproj

@@ -0,0 +1,30 @@
+module Flask
+
+open Fable.Core
+
+// fsharplint:disable MemberNames
+type RequestBase =
+    abstract url : string
+
+type Request =
+    inherit RequestBase
+
+type Flask =
+    abstract route : rule: string -> ((unit -> string) -> Flask)
+    abstract route : rule: string * methods: string array -> ((unit -> string) -> Flask)
+
+
+type FlaskStatic =
+    [<Emit("$0(import_name=$1)")>]
+    abstract Create : string -> Flask
+
+[<Import("Flask", "flask")>]
+let Flask: FlaskStatic = nativeOnly
+
+type IExports =
+    abstract render_template : template_name_or_list: string -> string
+    abstract render_template : template_name_or_list: string seq -> string
+    abstract request : Request
+
+[<ImportAll("flask")>]
+let flask : IExports = nativeOnly

flask/Flask.fs

@@ -120,5 +120,5 @@ type IExports =
     /// Return a formatted dump of the tree in node.
     abstract dump : node: AST * annotate_fields: bool * include_attributes: bool -> string
 
-[<Import("ast")>]
+[<ImportAll("ast")>]
 let ast: IExports = nativeOnly

src/Ast.fs stdlib/Ast.fssrc/Ast.fs renamed to stdlib/Ast.fs

@@ -120,5 +120,8 @@ type IExports =
         file: _OpenFile * mode: OpenTextMode * buffering: int * encoding: string * errors: string * newline: string ->
         TextIOWrapper
 
-[<Import("builtins")>]
+[<ImportAll("builtins")>]
 let builtins: IExports = nativeOnly
+
+[<Emit("__name__")>]
+let __name__ : string = nativeOnly