let Name item = item.name . item , , (. , - ...)
, , item item. , :
let Name (itemParameter:item) = itemParameter.name
, , , , , , ( ).
: , . , , :
> let Name (item:item) = item.name;;
val Name : item:item -> string // EW!
, - :
> let item (item:item) : item = item;;
val item : item:item -> item //Huh?
:
let rec sentence s item = function
| s when s="Action" -> ""
| s when s="Client" -> ""
| s when s="Classifier" -> ""
| s when s="Container" -> ""
| s when s="ControlFlow" -> ""
| s when s="Gaurd" -> ""
| s when s="Name" -> Name item
| s when s="ObjectFlow" -> ""
| s when s="Source" -> ""
| _ -> ""
, :
let rec sentence s item =
match s with
| "Action" -> ""
| "Client" -> ""
| "Classifier" -> ""
| "Container" -> ""
| "ControlFlow" -> ""
| "Gaurd" -> "" //Guard maybe?
| "Name" -> Name item
| "ObjectFlow" -> ""
| "Source" -> ""
| _ -> ""
, item ( repl):
> type Item() =
member val name = "" with get,set
type item = Item
let Name (itemParameter:item) = itemParameter.name
let test = item();;
test.name <- "test"
Name test;;
val it : string = "test"