File: cleanname

package info (click to toggle)
libixp 0.6~20121202%2Bhg148-2
  • links: PTS, VCS
  • area: main
  • in suites: buster, jessie, jessie-kfreebsd, stretch
  • size: 968 kB
  • ctags: 1,619
  • sloc: ansic: 4,907; sh: 142; perl: 121; makefile: 110
file content (18 lines) | stat: -rwxr-xr-x 273 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/bin/sh -f

echo "$@" |
	awk -F'/+' '{
		delete a
		n = 0
		for(i = 1; i <= NF; i++) {
			if($i == ".." && n > 0 && a[n] != "..")
				n--
			else if($i != "" && $i != ".")
				a[++n] = $i
		}
		s = ""
		for(i = 1; i <= n; i++)
			s = s "/" a[i]
		print substr(s, 2)
	}'