Snippets

SeanB Push Pop Argument Stack for dataflex

Created by SeanB
ArgumentStack.pkg
Raw 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Function StrToSize Global String sSize Returns Integer  
    Integer iMultiply 
    Integer iSize 
    
    Move (Uppercase(sSize)) to sSize
    If (Pos("M",sSize)) Move (1024) to iMultiply
    If (Pos("K",sSize)) Move (1) to iMultiply
    If (Pos("G",sSize)) Move (1024*1024) to iMultiply
    
    Move (Replaces("K",sSize,"")) to sSize
    Move (Replaces("M",sSize,"")) to sSize
    Move (Replaces("G",sSize,"")) to sSize
    
    If (iMultiply>0) Begin 
        Move ((Number(sSize))*iMultiply) to iSize
        Move (iSize*1024) to iSize
    End
    Else Move sSize to iSize
    
    Function_Return iSize 
End_Function

Object oArgumentStack is a cObject 
    Property Integer[] paItems 
    
    //todo:better way of doing this (StrToSize)
    Procedure Push Global String sSize 
        Integer[] aItems 
        Integer iArgSize
        
        Get paItems to aItems 
        Get_Argument_Size to iArgSize
        Move iArgSize to aItems[sizeOfArray(aItems)]
        Set paItems to aItems
        
        Set_Argument_Size (StrToSize(sSize))
    End_Procedure
    
    Procedure Pop Global 
        Integer[] aItems 
        Integer iPos 
        
        Get paItems to aItems 
        Move ((SizeOfArray(aItems))-1) to iPos
        If (iPos<0) Procedure_Return  
        Set_Argument_Size aItems[iPos]
        Set paItems to (ResizeArray(aItems,iPos))
    End_Procedure
End_Object

Comments (0)

HTTPS SSH

You can clone a snippet to your computer for local editing. Learn more.