mirror of
https://github.com/Smaug123/WoofWare.Myriad
synced 2025-10-05 12:08:46 +00:00
33 lines
1.2 KiB
Forth
33 lines
1.2 KiB
Forth
namespace WoofWare.Myriad.Plugins
|
|
|
|
open Fantomas.FCS.Syntax
|
|
open Fantomas.FCS.Text.Range
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module internal Primitives =
|
|
/// Given e.g. "byte", returns "System.Byte".
|
|
let qualifyType (typeName : string) : LongIdent option =
|
|
match typeName with
|
|
| "float32"
|
|
| "single" -> [ "System" ; "Single" ] |> Some
|
|
| "float"
|
|
| "double" -> [ "System" ; "Double" ] |> Some
|
|
| "byte"
|
|
| "uint8" -> [ "System" ; "Byte" ] |> Some
|
|
| "sbyte"
|
|
| "int8" -> [ "System" ; "SByte" ] |> Some
|
|
| "int16" -> [ "System" ; "Int16" ] |> Some
|
|
| "int"
|
|
| "int32" -> [ "System" ; "Int32" ] |> Some
|
|
| "int64" -> [ "System" ; "Int64" ] |> Some
|
|
| "uint16" -> [ "System" ; "UInt16" ] |> Some
|
|
| "uint"
|
|
| "uint32" -> [ "System" ; "UInt32" ] |> Some
|
|
| "uint64" -> [ "System" ; "UInt64" ] |> Some
|
|
| "char" -> [ "System" ; "Char" ] |> Some
|
|
| "decimal" -> [ "System" ; "Decimal" ] |> Some
|
|
| "string" -> [ "System" ; "String" ] |> Some
|
|
| "bool" -> [ "System" ; "Boolean" ] |> Some
|
|
| _ -> None
|
|
|> Option.map (List.map (fun i -> (Ident (i, range0))))
|