This code handle copying and renamimg files, but not handle deleteing files. p, li { white-space: pre-wrap; }
procedure(copyTriggerPrint(myFunction copyPhaseStr checkOffList supplementList otherFromSpecs otherToSpecs updateList retHint ctxList reserved "stgggggggx")
let((retOK)
retOK = t
printf("Copy phase is '%s'\n" copyPhaseStr)
printf("Calling options were %L\n", ctxList)
printf("Pre copy set is %L\n", checkOffList)
printf("Post copy is from %L\n", otherFromSpecs)
printf(" to %L\n", otherToSpecs)
;;---------------------------------------------------------------------
;; Exclude all .svn dirs and files from copy
;;---------------------------------------------------------------------
foreach( copyObj checkOffList
when( fromSpec = cadr(copyObj)
fromSpec = gdmInspectSpec(fromSpec)
objStr = buildString(setof(x fromSpec stringp(x)) "/")
printf("Checking %L\n" objStr);
printf("oBJECT %L\n" fromSpec)
); when fromSpec
); foreach copyObj
t
retOK
)
)
p, li { white-space: pre-wrap; }
ccpRegTrigger("ccpPostExpandTrigger" 'copyTriggerPrint nil)
ccpRegTrigger("ccpPreTransferTrigger" 'copyTriggerPrint nil)
ccpRegTrigger("ccpPostTransferTrigger" 'copyTriggerPrint nil)
ccpRegTrigger("ccpPreUpdateTrigger" 'copyTriggerPrint nil)
ccpRegTrigger("ccpPostCopyTrigger" 'copyTriggerPrint nil)
How handle deleting files?