open FSharp.Data
type Record = {
    voivoship: Option<int>;
    district: Option<int>;
    community: Option<int>;
    rozd: Option<int>;
    name: Option<string>;
    addinf: Option<string>
}

let emptyRecord = {
    voivoship = Option.None;
    district = Option.None;
    community = Option.None;
    rozd = Option.None;
    name = Option.None;
    addinf = Option.None;
}

type InputXml = XmlProvider<"Terc.xml">

let mapColumn state (column:InputXml.Col) =
    match column.Name with
    |"WOJ" -> {state with voivoship = column.Number}
    |"POW" -> {state with district = column.Number}
    |"GMI" -> {state with community = column.Number}
    |"RODZ" -> {state with rozd = column.Number}
    |"NAZWA" -> {state with name = column.String}
    |"NAZDOD" -> {state with addinf = column.String}
    |_->state



let mapRow (row:InputXml.Row) =
    row.Cols |> Array.fold mapColumn emptyRecord

let tercs = InputXml.GetSample()
let mappedData =  tercs.Rows |>  Array.map mapRow