Phase 4: Formularmodell und Objektsprache
This commit is contained in:
@@ -18,6 +18,8 @@ pub enum Value {
|
||||
Dbl(f64),
|
||||
Cur(i64),
|
||||
Str(Rc<str>),
|
||||
/// Formular-/Control-Objekt mit optionalem Index eines Control-Arrays.
|
||||
Obj(u16, Option<i32>),
|
||||
Arr(Rc<RefCell<ArrayObj>>),
|
||||
Rec(Rc<RefCell<RecordObj>>),
|
||||
/// Referenz (BYREF-Parameter-Slot).
|
||||
@@ -91,7 +93,11 @@ pub struct ArrayObj {
|
||||
}
|
||||
|
||||
impl ArrayObj {
|
||||
pub fn new(elem: TypeInit, dims: Vec<(i32, i32)>, udts: &[UdtLayout]) -> Result<Self, RuntimeError> {
|
||||
pub fn new(
|
||||
elem: TypeInit,
|
||||
dims: Vec<(i32, i32)>,
|
||||
udts: &[UdtLayout],
|
||||
) -> Result<Self, RuntimeError> {
|
||||
let mut len: usize = 1;
|
||||
for (lo, hi) in &dims {
|
||||
if hi < lo {
|
||||
|
||||
Reference in New Issue
Block a user