File: clone.csh

package info (click to toggle)
ace 8.0.5%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 47,088 kB
  • sloc: cpp: 342,864; perl: 31,902; sh: 1,963; python: 532; yacc: 524; xml: 330; lex: 158; lisp: 116; makefile: 85; csh: 20; ansic: 19; 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