File: ed

package info (click to toggle)
yash 2.43-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 7,184 kB
  • ctags: 3,159
  • sloc: ansic: 31,766; makefile: 812; sh: 407; sed: 16
file content (70 lines) | stat: -rw-r--r-- 1,510 bytes parent folder | download | duplicates (6)
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
# (C) 2010 magicant

# Completion script for the "ed" command.
# Supports POSIX 2008, GNU 1.1, FreeBSD 8.1, OpenBSD 4.8, NetBSD 5.0,
# Mac OS X 10.6.4, SunOS 5.10, HP-UX 11i v3.

function completion/ed {

	case $("${WORDS[1]}" --version 2>/dev/null) in
		(*'GNU'*) typeset type=GNU ;;
		(*)       typeset type="$(uname 2>/dev/null)" ;;
	esac
	case $type in
		(GNU) typeset long=true ;;
		(*)   typeset long= ;;
	esac

	typeset OPTIONS POSIXOPTIONS ADDOPTIONS ARGOPT PREFIX
	POSIXOPTIONS=( #>#
	"p: ${long:+--prompt:}; specify a prompt string"
	"s ${long:+--silent --quiet}; suppress diagnostic messages"
	) #<#

	ADDOPTIONS=()
	case $type in (*BSD|SunOS|HP-UX)
		ADDOPTIONS=("$ADDOPTIONS" #>#
		"x; enable encryption"
		) #<#
	esac
	case $type in
	(GNU)
		ADDOPTIONS=("$ADDOPTIONS" #>#
		"G --traditional; enable compatibility mode"
		"l --loose-exit-status; always exit with 0 status"
		"v --verbose; print detailed error messages"
		"h --help; print help"
		"V --version; print version info"
		) #<#
		;;
	(NetBSD)
		ADDOPTIONS=("$ADDOPTIONS" #>#
		"E; use extended regular expression"
		) #<#
		;;
	(SunOS)
		ADDOPTIONS=("$ADDOPTIONS" #>#
		"C; enable encryption and assume all text has been encrypted"
		) #<#
		;;
	esac

	OPTIONS=("$POSIXOPTIONS" "$ADDOPTIONS")
	unset POSIXOPTIONS ADDOPTIONS

	command -f completion//parseoptions ${long:+-es}
	case $ARGOPT in
	(-)
		command -f completion//completeoptions
		;;
	(p|--prompt)
		;;
	(*)
		complete -f
		;;
	esac

}


# vim: set ft=sh ts=8 sts=8 sw=8 noet: