XProfan

' DEQ.inc

Proc DEQHelp

    font 2:Cls:Imprimer:"\n\n============================================================"
    Imprimer "                        D E Q H e l p"
    Imprimer "============================================================"
    Imprimer "\n CLEAR q&[] ' natives XProfan ":Imprimer " sz&  = SizeOf(q&[]) ' sz=5 bedeutet: 0,1,2,3,4 "
    Imprimer " SetSize q&[],sizeof(q&[])+1 ' erweitert Array um 1 Stelle "
    Imprimer " MakeIndexDEQ(q&[],n&) ":Imprimer " MakeRevertIndexDEQ(q&[],n&) "
    Imprimer " MakeConstDEQ(q&[],n&,wert&) ":Imprimer "\n ShowDEQ q&[],nw&   ' Temporary NumWidth "
    Imprimer "\n Wert&= PopBtm(q&[]) ' -999999999 = OutOfRange Error "
    Imprimer " Wert&= PopTop(q&[]) ' or -999999999 ":Imprimer " PutTop Wert&,q&[] "
    Imprimer " PutBtm Wert&,q&[] ":Imprimer "\n Wert&= CopyBtm(q&[]) "
    Imprimer " Wert&= CopyTop(q&[]) ' -999999999 ":Imprimer " Wert&= CopyFromDEQ(q&[],n&) "
    Imprimer "\n LogVgl&=CmpInDEQ(q&[],n&,m&)' n=Pos1,m=Pos2: <1,'=0',>-1 "
    Imprimer "\n NisM&= SwapInDEQ(q&[],n&,m&)' (N=M)=1, -999999999 "
    Imprimer " Wert&= DelFromDEQ(q&[],n&) ":Imprimer " DEQHelp ' cette Text ausgeben":waitinput :endproc
    :proc MakeIndexDEQ :parameters q&[],n&:SetSize q&[],n&:q&[]=&index+1:endproc
    :proc MakeRevertIndexDEQ :parameters q&[],n&:SetSize q&[],n&:q&[]=n&-&index:endproc
    :proc MakeConstDEQ :parameters q&[],n&,wert&:SetSize q&[],n&:q&[]=Wert&:endproc
    :Proc PopBtm :parameters q&[]:var sz&=sizeof(q&[]):si sz&>0:var wert&=q&[0]
    q&[]=q&[&index+(&index<(sz&-1))]:setsize q&[],sizeof(q&[])-(sz&>0):return wert&
    d'autre :return int(-999999999):endif :endproc
    :proc PopTop :parameters q&[]:declare wert&:var sz&=sizeof(q&[]):si sz&>0:wert&=q&[sz&-1]
    d'autre :wert&=int(-999999999):endif :setsize q&[],sz&-(sz&>0):return wert&:endproc
    :Proc PutTop :parameters Wert&,q&[]:var sz&=sizeof(q&[]):inc sz&:setsize q&[],sz&:q&[sz&-1]=Wert&:endproc
    :Proc PutBtm :parameters Wert&,q&[]:declare tmp&[]:var sz&=sizeof(q&[]):inc sz&
    setsize q&[],sz&:tmp&[]=q&[]:q&[]=tmp&[&index-(&index>0)]:clear tmp&[]:q&[0]=Wert&:endproc
    :Proc CopyBtm :parameters q&[]:var sz&=sizeof(q&[]):si sz&>0:return q&[0]
    d'autre :return int(-999999999):endif :endproc
    :proc CopyTop :parameters q&[]:declare wert&:var sz&=sizeof(q&[])

    si sz&>0:wert&=q&[sz&-1]:d'autre :wert&=int(-999999999):endif :return wert&:endproc

        :proc ShowDEQ :parameters q&[],nw&:var tmp&=get("numwidth"):set("numwidth",nw&)
        var sz&=sizeof(q&[]):imprimer tab(2);"n=";sz&;":  ";:whileloop 0,sz&-1:imprimer q&[&Boucle],
        endwhile :imprimer:set("numwidth",tmp&):endproc
        :proc CopyFromDEQ :parameters q&[],n&:declare wert&:var sz&=sizeof(q&[])

        si (sz&>0) and (n&>=0) and (n&<sz&):wert&=q&[n&]:d'autre :wert&=int(-999999999):endif :return wert&:endproc

            :Proc CmpInDEQ :parameters q&[],n&,m&
            var sz&=sizeof(q&[]):si (sz&>0) and (n&>=0) and (n&<sz&) and (m&>=0) and (m&<sz&)
            return int((q&[n&]<q&[m&])-(q&[n&]>q&[m&])):d'autre :return int(-999999999):endif :ENDPROC
            :Proc SwapInDEQ :parameters q&[],n&,m&'Swaps two elements dans Queue
            var sz&=sizeof(q&[]):si (sz&>0) and (n&>=0) and (n&<sz&) and (m&>=0) and (m&<sz&):var tmp&=q&[n&]
            q&[n&]=q&[m&]:q&[m&]=tmp&:return int(n&<>m&):d'autre :return int(-999999999):endif :endproc
            :proc DelFromDEQ :parameters q&[],n&:var sz&=sizeof(q&[]) :declare wert&

            si (sz&>0) and (n&>0) and (n&<sz&):wert&=q&[n&]:q&[]=q&[&index+(&index>=n&)*(&index<(sz&-1))]

                dec sz&:setsize q&[],sz&:d'autre :wert&=int(-999999999):endif :return wert&

            endproc