mirror of
https://github.com/antoinevignau/source.git
synced 2024-11-19 22:31:52 +00:00
1 line
5.4 KiB
Plaintext
1 line
5.4 KiB
Plaintext
|
LOAD 'Macros.dump'
INCLUDE 'SS.equ'
INCLUDE 'Driver.equ'
INCLUDE 'Heap.aii.i'
INCLUDE 'Eval.aii.i'
;-----------------------------------------------
;
; Imported addresses
;
;-----------------------------------------------
IMPORT D_AlertBox
IMPORT D_BitMapChanged
IMPORT D_BitMapPtr
IMPORT D_SetCursor
IMPORT S_AddCellToRecalcList
IMPORT S_ColLab2Text
IMPORT S_CurHeap
IMPORT S_GetCellPtr
IMPORT S_InsertDependency
IMPORT S_RecalcMemError
IMPORT S_RemoveDependency
IMPORT S_SetCircularBits
IMPORT S_UpdatePriorities
;---------------------------------------------------------------------
;
;
S_FormulaData PROC EXPORT
EXPORT S_ErrorFormulaLength
EXPORT S_NAFormulaLength
EXPORT S_INFFormulaLength
EXPORT S_NegINFFormulaLength
EXPORT S_ErrorFormula
EXPORT S_NAFormula
EXPORT S_INFFormula
EXPORT S_NegINFFormula
S_ErrorFormulaLength equ 6
S_NAFormulaLength equ 6
S_INFFormulaLength equ 6
S_NegINFFormulaLength equ 8
S_ErrorFormula DC.B $4,0,$4,0,E_ERRORfToken,0
S_NAFormula DC.B $4,0,$4,0,E_NAfToken,0
S_INFFormula DC.B $4,0,$4,0,E_INFfToken,0
S_NegINFFormula DC.B $4,0,$4,0,E_NegToken,E_InfFToken,E_CalcToken,0
ENDP
;----------------------------------------------------------------------
S_EvalFormula PROC EXPORT
;Using S_CurrentData
;Using S_ErrorData
;Using SANEequs
;Using D_GlobalData
input CellIndex:l
local CellPtr:l
local FormulaPtr:l,ValueStack:l
local TypeStack:l,CellFormat:w
local StrLen:l,StrPtr:l,Index:l,LookUpFlag:w
local Cell:l,ContentIndex:l,OldFormat:w,OldValue:l
error ErrFlag
BEGIN
stz ErrFlag
; Set up calculation stacks ;
MoveWord #1,>D_BitMapChanged
MoveLong >D_BitMapPtr,ValueStack
AddLong #$7000,ValueStack,TypeStack
; Get formula ;
H_GetBlockPtr CellIndex,CellPtr
MoveLong [CellPtr]:#S_CellID,Cell
H_GetBlockPtr [CellPtr]:#S_CellContent,FormulaPtr
; Evaluate formula ;
in FormulaPtr:l,ValueStack:l,TypeStack:l
in Cell:l
XCall E_EvalExpr
stx LookUpFlag
; Save the old value ;
MoveLong [CellPtr]:#S_CellValue,OldValue
MoveWord [CellPtr]:#S_CellFormat,x
and #S_CellType
sta OldFormat
; Move final result and type into the cell ;
txa
and #-1-S_CellTypeValue-S_CellError-S_CellInvalid
MoveWord a,CellFormat
lda [TypeStack]
cmp #E_NumType
jeq storeNum
cmp #E_StrType
jeq storeStr
cmp #E_EmptyType
; jeq storeEmpty ; store as 0
jeq storeStr ; store as null string
cmp #E_NAType
beq storeNA
; bra storeErr
storeErr
lda CellFormat
ora #S_CellInvalid+S_CellError+S_CellTypeValue
brl doneEval
storeNA
lda CellFormat
ora #S_CellInvalid+S_CellTypeValue
brl doneEval
;storeEmpty ; store as 0
; PushLong #ZeroValue
; AddLong CellPtr,#S_CellValue,s
; Tool FX2X,in=(:l,:l)
; lda CellFormat
; ora #S_CellTypeValue
; brl doneEval
storeNum
Tool FCLASSX,in=(ValueStack:l)
FBSNAN storeErr
FBQNAN storeErr
PushLong ValueStack
AddLong CellPtr,#S_CellValue,s
Tool FX2X,in=(:l,:l)
lda CellFormat
ora #S_CellTypeValue
brl doneEval
storeStr
stz StrLen+2
MoveWord [TypeStack]:#2,StrLen
inc StrLen ; allocate space for str + len
H_NewBlock StrLen,Index,StrPtr,err=ErrFlag
bcc contStoreStr
; Cant allocate enough memory to Save the result, so we'll
; pretend that we haven't calculated it and return error.
memError
Call D_SetCursor,in=(#ArrowCursor:w)
Call D_AlertBox,in=(#OKBox:w,#S_RecalcMemError:l),out=(a:w)
Call S_AddCellToRecalcList,in=(Cell:l)
brl Exit
contStoreStr
H_GetBlockPtr CellIndex,CellPtr
MoveLong Index,[CellPtr]:#S_CellValue
dec StrLen
MoveWord StrLen,[StrPtr]
IncL StrPtr
Tool _BlockMove,in=(ValueStack:l,StrPtr:l,StrLen:l)
lda CellFormat
doneEval
MoveWord a,[CellPtr]:#S_CellFormat
; If previous result was a string, free allocated space ;
lda OldFormat
and #S_CellTypeValue
bne disposed
H_DisposeBlock OldValue
disposed
lda LookUpFlag
be
|