equal
deleted
inserted
replaced
910 |cmd srcBaseName srcF dstF d| |
910 |cmd srcBaseName srcF dstF d| |
911 |
911 |
912 srcF := src asFilename. |
912 srcF := src asFilename. |
913 dstF := dst asFilename. |
913 dstF := dst asFilename. |
914 |
914 |
|
915 srcF directory exists ifFalse:[ |
|
916 ^ self |
|
917 ]. |
|
918 |
915 srcBaseName := srcF baseName. |
919 srcBaseName := srcF baseName. |
916 (srcBaseName startsWith:'.#') ifTrue:[^ self]. |
920 (srcBaseName startsWith:'.#') ifTrue:[^ self]. |
917 |
921 |
918 (#( |
922 (#( |
919 'CVS' |
923 'CVS' |
931 ] ifFalse:[ |
935 ] ifFalse:[ |
932 commandTraceView showCR:('copy ' , srcF pathName , ' ' , dstF pathName). |
936 commandTraceView showCR:('copy ' , srcF pathName , ' ' , dstF pathName). |
933 ]. |
937 ]. |
934 commandTraceView endEntry. |
938 commandTraceView endEntry. |
935 ]. |
939 ]. |
|
940 |
936 (srcF directory directoryContents ? #()) do:[:fileName | |
941 (srcF directory directoryContents ? #()) do:[:fileName | |
937 (srcBaseName match:fileName) ifTrue:[ |
942 (srcBaseName match:fileName) ifTrue:[ |
938 (#( |
943 (#( |
939 'CVS' |
944 'CVS' |
940 'not_delivered' |
945 'not_delivered' |