Topic: Purging with ODBX?

[MP]

Quasi pseudo code food for thought ...

Code: [Select]

([color=blue]defun [/color][color=red]_PurgeAxdbDocument[/color] ( axdbDocument / purgeableCollections initialCount thisCount lastCount flag )

    ([color=blue]setq [/color]
        purgeableCollections (_[color=red]GetPurgeAbleCollections [/color]axdbDocument)
        initialCount         ([color=blue]apply '+[/color] ([color=blue]mapcar [/color]'[color=red]_GetDeepCount [/color]purgeableCollections))
        thisCount            initialCount
        flag                 T
    )       

    ([color=blue]while [/color]flag [color=green];; do at least once[/color]
       
        ([color=blue]foreach [/color]collection purgeableCollections
       
            ([color=red]_RecursivelyKillItWithFire[/color] collection)
           
        )
       
        ([color=blue]setq [/color]
            lastCount thisCount
            thisCount ([color=blue]apply '+[/color] (mapcar '[color=red]_GetDeepCount[/color] purgeableCollections))
            flag      ([color=blue]/=[/color] lastCount thisCount)
        )
   
    )
   
    ([color=blue]princ [/color]([color=blue]strcat [/color][color=purple]"Purged "[/color] ([color=blue]itoa [/color]([color=blue]-[/color] initialCount thisCount)) [color=purple]" object(s).\n"[/color]))
   
    ([color=blue]princ[/color])
   
)

[T.Willey]

Not you too Michael.  Those color code post are horrible to read on Black22 theme.   

[MP]

For the benefit of the theme challenged:

Code: [Select]

(defun _PurgeAxdbDocument ( axdbDocument / purgeableCollections initialCount thisCount lastCount flag )

    (setq
        purgeableCollections (_GetPurgeAbleCollections axdbDocument)
        initialCount         (apply '+ (mapcar '_GetDeepCount purgeableCollections))
        thisCount            initialCount
        flag                 T
    )       

    (while flag ;; do at least once
       
        (foreach collection purgeableCollections
       
            (_RecursivelyKillItWithFire collection)
           
        )
       
        (setq
            lastCount thisCount
            thisCount (apply '+ (mapcar '_GetDeepCount purgeableCollections))
            flag      (/= lastCount thisCount)
        )
   
    )
   
    (princ (strcat "Purged " (itoa (- initialCount thisCount)) " object(s).\n"))
   
    (princ)
   
)

[Kerry]

Quasi pseudo code food for thought ...

Code: [Select]

([color=blue]defun [/color][color=red]_PurgeAxdbDocument[/color] ( axdbDocument / purgeableCollections initialCount thisCount lastCount flag )

    ([color=blue]setq [/color]
        purgeableCollections (_[color=red]GetPurgeAbleCollections [/color]axdbDocument)
        initialCount         ([color=blue]apply '+[/color] ([color=blue]mapcar [/color]'[color=red]_GetDeepCount [/color]purgeableCollections))
        thisCount            initialCount
        flag                 T
    )       

 < .... >   
)

For the benefit of the theme challenged:

Code: [Select]

(defun _PurgeAxdbDocument ( axdbDocument / purgeableCollections initialCount thisCount lastCount flag )

    (setq
        purgeableCollections (_GetPurgeAbleCollections axdbDocument)
        initialCount         (apply '+ (mapcar '_GetDeepCount purgeableCollections))
        thisCount            initialCount
        flag                 T
    ) 
< .. >


Both read fine for me in the Mercury theme .... 

I can even read the code without re-formatting 

[Lee Mac]

Perhaps this may help?

Maybe feed it this function 

Code: [Select]

(Mac-ODBX '(lambda (x) (repeat 3 (vla-purgeall x)) (vla-save x)) nil)

{ Untested }