# system.ludic - the camera as a system: the roll and what has been photographed in its own save
# section, by key. The best per subject follows from the frames, as a buyer would judge them.
export function photo_config(photo_st: mut PhotoState, max: int) -> void {
  photo_st.pht_max = Math.max(max, 1)
  photo_reset(photo_st)
}

export function photo_reset(photo_st: mut PhotoState) -> void {
  pht_blank(photo_st)
  photo_st.pht_species_shot = 0
  photo_st.pht_legend_shot = 0
  photo_st.pht_cover = -1
  photo_st.pht_page = 0
  photo_frame_begin(photo_st)
  q_clear(photo_facts(photo_st))
}

export function photo_save(photo_st: PhotoState) -> Val {
  let v = Value.object()
  let l = Value.list()
  for i in 0 .. photo_st.pht_n {
    let o = Value.object()
    sv_put_int(o, "day", photo_st.pht_day[i])
    sv_put_float(o, "hour", photo_st.pht_hour[i])
    sv_put_int(o, "mask", photo_st.pht_mask[i])
    sv_put_int(o, "legend", photo_st.pht_legend[i])
    sv_put_bool(o, "sold", photo_st.pht_sold[i] != 0)
    sv_put_str(o, "tags", photo_st.pht_tags[i])
    sv_put_str(o, "file", photo_st.pht_file[i])
    sv_put_int(o, "grade", photo_st.pht_grade[i])
    sv_put_int(o, "why", photo_st.pht_why[i])
    Value.add(l, o)
  }
  Value.put(v, "frames", l)
  sv_put_int(v, "shot", photo_st.pht_species_shot)
  sv_put_int(v, "legend_shot", photo_st.pht_legend_shot)
  sv_put_int(v, "cover", photo_st.pht_cover)
  sv_put_int(v, "sort", photo_st.pht_sort)
  return v
}

export function photo_load(photo_st: mut PhotoState, v: Val, version: int) -> void {
  photo_reset(photo_st)
  if Value.has(v, "frames") != 0 {
    let l = Value.get(v, "frames")
    for i in 0 .. Value.count(l) {
      let o = Value.at(l, i)
      photo_add(photo_st, sv_int(o, "day", 1), sv_float(o, "hour", 0.0), sv_int(o, "mask", 0), sv_int(o, "legend", 0), sv_bool(o, "sold", false), sv_str(o, "tags", ""), sv_str(o, "file", ""), sv_int(o, "grade", 40), sv_int(o, "why", PHOTO_WHY_NONE))
    }
  }
  photo_record_set(photo_st, photo_st.pht_species_shot | sv_int(v, "shot", 0), sv_int(v, "legend_shot", 0))
  photo_st.pht_cover = sv_int(v, "cover", -1)
  photo_sort_set(photo_st, sv_int(v, "sort", PHOTO_NEWEST))
}

export function photo_system() -> System {
  let s = system_new("photo", PH_COMMIT)
  s.reset = fn photo_reset
  s.save = fn photo_save
  s.load = fn photo_load
  return s
}