CacheSim/src/Main.elm

import CacheSim.Model exposing (..)
import CacheSim.Cache exposing (..)
import CacheSim.IntMap exposing (..)
import CacheSim.Hierarchy exposing (..)
import CacheSim.Raw exposing (..)
import CacheSim.View exposing (..)
import Browser exposing (Document, document)
import Html exposing (text)

testCacheModelHierarchy =
    [ { blockSize = "128", setCount = "8", setSize = "1" }
    ]

init : Flags -> (Model, Cmd Msg)
init f =
    let
        initialModel =
            { rawCacheModelHierarchy = testCacheModelHierarchy
            }
    in
        (initialModel, Cmd.none)

view : Model -> Document Msg
view m =
    { title = "Cache Simulator"
    , body = [ viewRawCacheModelHierarchy m.rawCacheModelHierarchy ]
    }

update : Msg -> Model -> (Model, Cmd Msg)
update msg m =
    case msg of
        UpdateRawModel l f ->
            ({ m | rawCacheModelHierarchy = intMapUpdate l f m.rawCacheModelHierarchy}, Cmd.none)

subscriptions : Model -> Sub Msg
subscriptions m = Sub.none 

main = document
    { init = init
    , view = view
    , update = update
    , subscriptions = subscriptions
    }