RPL That Stack

[raprism]

These are db48x examples for some 'file-like management stuff' to move or copy objects to subdirs or paths (and related chdir command).

Code:


«
    @ Usage: 'obj1' { HOME sub1 subsub2 } MVTO
    Duplicate2 CPTO Swap
    Purge Drop
»
'MVTO' STO

«
    @ Usage: 'obj1' { HOME sub1 subsub2 } CPTO
    DirectoryPath
    → new old
    «
        Duplicate new CD Recall
        Swap Store old CD
    »
»
'CPTO' STO

«
    @ Usage: 'obj1' 'obj2' MV
    2 Pick Recall Swap Store
    Purge
»
'MV' STO

«
    @ Usage: { HOME sub1 subsub2 } CD
    @ Usage: { subdirhere } CD
        «
                →Prg Evaluate
        »
»
'CD' STO

Note that at first I was trying to make use of local variables all the times, but contrary to some HP48 examples it turned out on db48x that with my beginner level evaluation of variables 'kicked in' too often.
So time to train also some stack commands.

For sure some conditional tests could be added. But for now I was happy to get something working as intended.

I'm sure RPL experts will have some ideas for improvements. Looking forward to it.

EDITs:

1. CD uses now MAP
2. CD uses now →Prg