patrick/WoofWare.Myriad
1
0
Fork 0
mirror of https://github.com/Smaug123/WoofWare.Myriad synced 2025-10-13 16:08:40 +00:00
Code Issues Packages Projects Releases Wiki Activity

WIP

Browse Source
This commit is contained in:
Smaug123
2025-04-15 09:23:24 +01:00
parent f8a1505b99
commit fccc981045
2 changed files with 149 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
WoofWare.Myriad.Plugins/ShibaGenerator.fs
View File

@@ -5,7 +5,6 @@ open System.Collections.Generic
open System.Text
open Fantomas.FCS.Syntax
open Fantomas.FCS.Text.Range
open TypeEquality
open WoofWare.Myriad.Plugins
open WoofWare.Whippet.Fantomas
@@ -1173,9 +1172,30 @@ module internal ShibaGenerator =
SynPat.named "args"
|> SynPat.annotateType (SynType.appPostfix "list" SynType.string)
let raiseErrors =
SynExpr.createIdent "e"
|> SynExpr.pipeThroughFunction (
SynExpr.applyFunction
(SynExpr.createLongIdent [ "String" ; "concat" ])
(SynExpr.createLongIdent [ "System" ; "Environment" ; "NewLine" ])
)
|> SynExpr.pipeThroughFunction (SynExpr.createIdent "failwith")
let parsePrime =
SynExpr.CreateConst "todo"
|> SynExpr.applyFunction (SynExpr.createIdent "failwith")
[
SynMatchClause.create
(SynPat.nameWithArgs "Ok" [ SynPat.named "result" ])
(SynExpr.createIdent "result")
SynMatchClause.create (SynPat.nameWithArgs "Error" [ SynPat.named "e" ]) raiseErrors
]
|> SynExpr.createMatch (SynExpr.createIdent "parseAttempt")
|> SynExpr.createLet
[
SynBinding.basic
[ Ident.create "parseAttempt" ]
[]
(SynExpr.applyFunction (SynExpr.createIdent "failwith") (SynExpr.CreateConst "TODO"))
]
|> SynExpr.createLet
[
SynBinding.basic
@@ -1186,6 +1206,12 @@ module internal ShibaGenerator =
helperModName @ [ taggedTypeInfo.NameOfInProgressType ; Ident.create "_Empty" ]
))
(SynExpr.CreateConst ()))
SynBinding.basic
[ Ident.create "positionals" ]
[]
(SynExpr.applyFunction (SynExpr.createIdent "ResizeArray") (SynExpr.CreateConst ()))
|> SynBinding.withReturnAnnotation (SynType.app "ResizeArray" [ SynType.string ])
]
|> SynBinding.basic
[ Ident.create "parse'" ]