RENAME

*
    GIT.FILENAME = 'RENAME'
    GIT.REPO = 'https://github.com/Krowemoh/TCL-Utilities.git'
*
* VERSION
*
    VERSION = '1'
*
    @USER1 = 'RENAME'
    @USER2 = 'RENAME'
*
    EQU TRUE TO 1
    EQU FALSE TO 0
*
    CALL GET.ARGUMENTS(ARGS)
    DELETE.FLAG = TRUE
*
    ARGS.LEN = DCOUNT(ARGS,@AM)
*
    IF ARGS.LEN = 1 THEN
        PRINT 'RENAME - Rename Command'
        PRINT
        PRINT '    RENAME [DICT] {FILE} {CURRENT.NAME} {NEW.NAME}'
        PRINT
        STOP
*
    END ELSE IF ARGS.LEN # 4 AND ARGS.LEN # 5 THEN
        PRINT 'Invalid option.'
        STOP
    END
*
    IF ARGS<2> = 'DICT' THEN
        FILE = ARGS<3>
        CURRENT.NAME = ARGS<4>
        NEW.NAME = ARGS<5>
*
        ARGS = INSERT(ARGS,5;'DICT')
        ARGS = INSERT(ARGS,6;FILE)
*
    END ELSE
        FILE = ARGS<2>
        CURRENT.NAME = ARGS<3>
        NEW.NAME = ARGS<4>
*
        ARGS = INSERT(ARGS,4;FILE)
    END
*
    IF CURRENT.NAME = NEW.NAME THEN
        PRINT 'Cannot rename to the same name.'
        STOP
    END
*
    CLEARSELECT
*
    CALL MOVE.FILES(ARGS,DELETE.FLAG)
*
* END OF PROGRAM
*
    END
*