Contents of /pvpgn-1.7.4/src/autoconf/mkdir-p

#! /bin/sh
# $XConsortium: mkdirhier.sh,v 1.7 94/03/24 15:46:34 gildea Exp $
# Courtesy of Paul Eggert

#
# Modified by QingLong <qinglong@Yggdrasil.com> for portability. 24-02-97.
#


newline='
'
IFS=$newline

#
# WARNING!  Some ancient shells do not understand `:=' and `:-' expansion.
#           Use just `=' instead of `:=' if you have lame one.
#: ${MKDIR:=mkdir} ${TR:=tr}
#

if test -z "${MKDIR-}" ;
 then
  MKDIR=mkdir
fi

if test -z "${TR-}" ;
 then
  TR=tr
fi


case ${1--} in
  -*) echo >&2 "mkdir-p: usage: mkdir-p directory ..."
      exit 1
esac

status=""

for directory
 do
  case $directory in
    '')
      echo >&2 "mkdir-p: empty directory name"
      status="1"
      continue
      ;;
    *"$newline"*)
      echo >&2 "mkdir-p: directory name contains a newline: \`\`$directory''"
      status="1"
      continue
      ;;
    ///*) prefix="/"      # See POSIX 2.3 "path".
      ;;
    //*) prefix="//"
      ;;
    /*) prefix="/"
      ;;
    -*) prefix="./"
      ;;
    *) prefix=""
  esac
  #
  IFS=/
  set x $directory
  #
  case $2 in
    */*)
      # IFS parsing is broken
      IFS=' '
      set x `echo $directory | ${TR} / ' '`
      ;;
  esac
  #
  IFS=$newline
  shift
  #
  for filename
   do
    path="$prefix$filename"
    prefix="$path/"
    shift
    #
    test -d "$path" || \
      {
       paths=$path
       for filename
        do
         if test "$filename" != "." ;
          then
           path="$path/$filename"
           paths="$paths$newline$path"
         fi
       done
       #
       ${MKDIR} $paths || status=$?
       #
       break
      }
  done
done

exit $status
1	#! /bin/sh
2	# $XConsortium: mkdirhier.sh,v 1.7 94/03/24 15:46:34 gildea Exp $
3	# Courtesy of Paul Eggert
4
5	#
6	# Modified by QingLong <qinglong@Yggdrasil.com> for portability. 24-02-97.
7	#
8
9
10	newline='
11	'
12	IFS=$newline
13
14	#
15	# WARNING! Some ancient shells do not understand `:=' and `:-' expansion.
16	# Use just `=' instead of `:=' if you have lame one.
17	#: ${MKDIR:=mkdir} ${TR:=tr}
18	#
19
20	if test -z "${MKDIR-}" ;
21	then
22	MKDIR=mkdir
23	fi
24
25	if test -z "${TR-}" ;
26	then
27	TR=tr
28	fi
29
30
31	case ${1--} in
32	-*) echo >&2 "mkdir-p: usage: mkdir-p directory ..."
33	exit 1
34	esac
35
36	status=""
37
38	for directory
39	do
40	case $directory in
41	'')
42	echo >&2 "mkdir-p: empty directory name"
43	status="1"
44	continue
45	;;
46	"$newline")
47	echo >&2 "mkdir-p: directory name contains a newline: \`\`$directory''"
48	status="1"
49	continue
50	;;
51	///*) prefix="/" # See POSIX 2.3 "path".
52	;;
53	//*) prefix="//"
54	;;
55	/*) prefix="/"
56	;;
57	-*) prefix="./"
58	;;
59	*) prefix=""
60	esac
61	#
62	IFS=/
63	set x $directory
64	#
65	case $2 in
66	/)
67	# IFS parsing is broken
68	IFS=' '
69	set x `echo $directory \| ${TR} / ' '`
70	;;
71	esac
72	#
73	IFS=$newline
74	shift
75	#
76	for filename
77	do
78	path="$prefix$filename"
79	prefix="$path/"
80	shift
81	#
82	test -d "$path" \|\| \
83	{
84	paths=$path
85	for filename
86	do
87	if test "$filename" != "." ;
88	then
89	path="$path/$filename"
90	paths="$paths$newline$path"
91	fi
92	done
93	#
94	${MKDIR} $paths \|\| status=$?
95	#
96	break
97	}
98	done
99	done
100
101	exit $status
webmaster@leafok.com	ViewVC Help
Powered by ViewVC 1.3.0-beta1