ironwork-exec 0.7.0

//! SET (lir.md §9.1), each form as `Machine::set` runs it: condition-names TO TRUE and TO FALSE as
//! MOVEs, TO as a MOVE with pointer receivers taking only addresses, ADDRESS OF as one binding of
//! each LINKAGE record, and UP BY and DOWN BY with the step evaluated once.

use super::data::Value;
use super::{Lower, R};
use crate::layout::Resolved;
use rt::lir::{MovePlan, Op, SenderCheck, StepPlan, Terminator, UpDown};
use rt::storage::Kind;
use syntax::Pos;
use syntax::ast::{Figurative, SetStmt};

impl Lower<'_> {
    pub(super) fn set(&mut self, set: &SetStmt, pos: Pos) -> R<()> {
        match set {
            SetStmt::ConditionTrue(targets) | SetStmt::ConditionFalse(targets) => {
                let truth = matches!(set, SetStmt::ConditionTrue(_));
                for r in targets {
                    let index = match self.layout.resolve(&r.name, &r.qualifiers, r.pos) {
                        Ok(Resolved::Condition(index)) => index,
                        Ok(Resolved::Item(_)) => {
                            let abend = self.ironwork(&format!("SET {} TO {}: not a condition-name", r.name, if truth { "TRUE" } else { "FALSE" }))?;
                            return self.end(Terminator::Abend(abend), pos);
                        }
                        Err(e) => {
                            let abend = self.ironwork(&e.message)?;
                            return self.end(Terminator::Abend(abend), r.pos);
                        }
                    };
                    let condition = &self.layout.conditions[index];
                    let value = if truth { condition.values.first().map(|(v, _)| v) } else { condition.false_value.as_ref() };
                    let Some(value) = value else { continue };
                    let to = match self.conditional_variable(index, r)? {
                        Ok(place) => place,
                        Err((abend, at)) => return self.end(Terminator::Abend(abend), at),
                    };
                    let (from, side) = self.literal_const(value, pos)?;
                    let plan = self.move_plan(&side, self.kind_of(to), self.place_items[to as usize])?;
                    self.op(Op::Move { from: rt::lir::Operand::Const(from), to, plan, check: SenderCheck::None }, pos)?;
                }
            }
            SetStmt::To { targets, value } => {
                for r in targets {
                    let to = self.place(r, false)?;
                    let sender = self.operand(value, pos)?;
                    let kind = self.kind_of(to);
                    let plan = match (kind, sender.side.value) {
                        (Kind::Pointer, Value::Address | Value::Fig(Figurative::Null)) => MovePlan::Address,
                        (Kind::Pointer, _) => MovePlan::Refused(self.ironwork("SET a pointer TO ADDRESS OF, NULL or another pointer")?),
                        _ => self.move_plan(&sender.side, kind, self.place_items[to as usize])?,
                    };
                    self.op(Op::Set { from: sender.operand, to, plan }, pos)?;
                }
            }
            SetStmt::Entry { targets, entry } => {
                let entry = self.operand(entry, pos)?.operand;
                let mut places = Vec::with_capacity(targets.len());
                for r in targets {
                    places.push(self.place(r, false)?);
                }
                self.op(Op::SetEntry { entry, targets: places }, pos)?;
            }
            SetStmt::AddressOf { targets, value } => {
                let address = self.operand(value, pos)?.operand;
                let mut records = Vec::with_capacity(targets.len());
                for r in targets {
                    let refusal = match self.layout.resolve(&r.name, &r.qualifiers, r.pos) {
                        Ok(Resolved::Item(i)) => match self.layout.items[i].linkage.filter(|_| self.layout.items[i].parent.is_none()) {
                            Some(record) => {
                                records.push(record);
                                continue;
                            }
                            None => (format!("SET ADDRESS OF {}: only a LINKAGE record can be given an address", r.name), pos),
                        },
                        Ok(Resolved::Condition(_)) => (format!("SET ADDRESS OF {}: not a data item", r.name), pos),
                        Err(e) => (e.message, r.pos),
                    };
                    self.op(Op::SetAddress { records, address }, pos)?;
                    let abend = self.ironwork(&refusal.0)?;
                    return self.end(Terminator::Abend(abend), refusal.1);
                }
                self.op(Op::SetAddress { records, address }, pos)?;
            }
            SetStmt::UpDown { targets, down, by } => {
                let by = self.int_expr(by, pos)?;
                let mut moved = Vec::with_capacity(targets.len());
                for r in targets {
                    let place = self.place(r, false)?;
                    let kind = self.kind_of(place);
                    let how = match kind {
                        Kind::Pointer | Kind::ObjectReference | Kind::ProgramPointer => UpDown::Pointer,
                        Kind::Zoned { .. } | Kind::Packed { .. } | Kind::Binary { .. } | Kind::Index => {
                            UpDown::Number(StepPlan { dmax: 0, store: self.store_plan(kind, self.place_items[place as usize])? })
                        }
                        _ => UpDown::Refused(self.ironwork("SET UP BY and DOWN BY take an index, integer or pointer")?),
                    };
                    moved.push((place, how));
                }
                self.op(Op::SetUpDown { by, down: *down, targets: moved }, pos)?;
            }
        }
        Ok(())
    }

    /// A SET or test's conditional variable, by item index with the condition-name's subscripts, as
    /// the walker's `locate_item` takes it; or the abend a wrong count of subscripts gives.
    pub(super) fn conditional_variable(&mut self, index: usize, r: &syntax::ast::Ref) -> R<Result<rt::lir::PlaceId, (rt::lir::AbendId, Pos)>> {
        let item = self.layout.conditions[index].item;
        let dims = self.layout.items[item].dims.len();
        if r.subscripts.len() != dims {
            let message = format!("{} takes {dims} subscripts, not {}", r.name, r.subscripts.len());
            return Ok(Err((self.ironwork(&message)?, r.pos)));
        }
        Ok(Ok(self.item_place(item, r, false)?))
    }
}