File: clone.csh

package info (click to toggle)
ace 7.0.8%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 47,260 kB
  • sloc: cpp: 336,263; perl: 31,547; ansic: 11,648; sh: 1,911; python: 529; yacc: 511; xml: 330; lex: 158; lisp: 116; makefile: 89; csh: 20; tcl: 5
file content (26 lines) | stat: -rw-r--r-- 464 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
#!/bin/csh

set src_root=`pwd`
set dst_root=`abspath $1`

set subdirs=`find * -type d -print`

mkdir $dst_root
set files=`find * \( -type d -prune \) -o -type f -print`

if ($#files) then
	ln $files $dst_root
endif

if ($#subdirs) then
	foreach subdir ($subdirs)
		cd $src_root
		mkdir $dst_root/$subdir
		cd $src_root/$subdir
		set files=`find * \( -type d -prune \) -o -type f -print`
		if ($#files) then
			ln $files $dst_root/$subdir
		endif
	end
endif
exit 0