commit 3bf8391

make all variables lowercase

  1@@ -12,19 +12,20 @@ fn errexit {
  2 fn rcpm_help {log 'Usage: rcpm b|c|d||h|i|l|m|u|r|s'}
  3 
  4 if (~ $#* 0) rcpm_help
  5-if (~ $#RCPM_PATH 0) errexit RCPM_PATH needs to be set
  6-if (~ $#RCPM_ROOT 0) RCPM_ROOT=/
  7-if (~ $#RCPM_DB 0) RCPM_DB=/var/db/rcpm
  8-if (~ $#RCPM_CACHE 0) {
  9-	if (~ `{id -u} 0) RCPM_CACHE=/root/var/rcpm/bin
 10+if (~ $#rcpm_path 0) errexit rcpm_path needs to be set
 11+if (~ $#rcpm_root 0) rcpm_root=/
 12+if (~ $#rcpm_db 0) rcpm_db=/var/db/rcpm
 13+if (~ $#rcpm_cache 0) {
 14+	if (~ `{id -u} 0) rcpm_cache=/root/var/rcpm/bin
 15 	if not {
 16 		user=`{whoami}
 17-		RCPM_CACHE=/home/$user/var/rcpm/bin
 18+		rcpm_cache=/home/$user/var/rcpm/bin
 19 	}
 20 }
 21 
 22+
 23 fn dl_pkg {
 24-	cd $RCPM_PATH/$pkg
 25+	cd $rcpm_path/$pkg
 26 	srcs=()
 27 	if (test -f .submodule) {
 28 		git submodule update --init --checkout src
 29@@ -70,15 +71,15 @@ fn unpack_pkg {
 30 }
 31 
 32 fn get_ver {
 33-	version=`{cat $RCPM_PATH/$pkg/ver}
 34+	version=`{cat $rcpm_path/$pkg/ver}
 35 	ver=$version(1)
 36 	rev=$version(2)
 37 
 38 }
 39 
 40 fn rcpm_compressor {
 41-	if (~ $#RCPM_COMPRESSOR 0) RCPM_COMPRESSOR=gzip
 42-	switch($RCPM_COMPRESSOR) {
 43+	if (~ $#rcpm_compression 0) rcpm_compression=gzip
 44+	switch($rcpm_compression) {
 45 		case gzip
 46 			tool=gzip
 47 			ext=gz
 48@@ -95,18 +96,18 @@ fn rcpm_compressor {
 49 }
 50 
 51 fn packup_pkg {
 52-	mkdir -p ./$RCPM_DB/$pkg
 53+	mkdir -p ./$rcpm_db/$pkg
 54 	get_ver
 55-	printf $"version >./$RCPM_DB/$pkg/ver
 56+	printf $"version >./$rcpm_db/$pkg/ver
 57 	gen_manifest
 58-	test -d $RCPM_CACHE || mkdir -p $RCPM_CACHE
 59+	test -d $rcpm_cache || mkdir -p $rcpm_cache
 60 	rcpm_compressor
 61-	pax -w . | $tool > $RCPM_CACHE/$pkg@$ver-$rev.tar.$ext
 62+	pax -w . | $tool > $rcpm_cache/$pkg@$ver-$rev.tar.$ext
 63 }
 64 
 65 fn check_prebuilt {
 66 	rcpm_compressor
 67-	if (test ! -f $RCPM_CACHE/$pkg@$ver-$rev.tar.$ext) {
 68+	if (test ! -f $rcpm_cache/$pkg@$ver-$rev.tar.$ext) {
 69 		errexit $pkg is not built
 70 	}
 71 }
 72@@ -115,14 +116,14 @@ fn gen_manifest {
 73 	find . | sed -e '/^\.\/$/d' \
 74 		-e 's/^\.//g' -e 's/\/$//g' \
 75 		-e '/^[[:space:]]*$/d' | \
 76-		sort -ru >./$RCPM_DB/$pkg/manifest
 77+		sort -ru >./$rcpm_db/$pkg/manifest
 78 }
 79 
 80 fn install_pkg {
 81-	cd $RCPM_ROOT
 82+	cd $rcpm_root
 83 	get_ver || status=()
 84 	if (! check_prebuilt) {
 85-		$tool -dc $RCPM_CACHE/$pkg@$ver-$rev.tar.$ext | pax -r
 86+		$tool -dc $rcpm_cache/$pkg@$ver-$rev.tar.$ext | pax -r
 87 		log $pkg installed successfully
 88 	}
 89 }
 90@@ -142,23 +143,23 @@ fn build_pkg {
 91 }
 92 
 93 fn get_local_ver {
 94-	_version=`{cat $RCPM_ROOT/$RCPM_DB/$pkg/ver}
 95+	_version=`{cat $rcpm_root/$rcpm_db/$pkg/ver}
 96 	_ver=$_version(1)
 97 	_rev=$_version(2)
 98 }
 99 
100 fn rm_pkg {
101-	filelist=`{cat $RCPM_ROOT/$RCPM_DB/$pkg/manifest}
102+	filelist=`{cat $rcpm_root/$rcpm_db/$pkg/manifest}
103 	for (files in $filelist) {
104-		rmdir $RCPM_ROOT/$files >[2=] || rm -f $RCPM_ROOT/$files >[2=]
105+		rmdir $rcpm_root/$files >[2=] || rm -f $rcpm_root/$files >[2=]
106 	}
107 	log $pkg uninstalled successfully 
108 }
109 
110 fn update_pkg {
111-	for (file in $RCPM_ROOT/$RCPM_DB/*) {
112+	for (file in $rcpm_root/$rcpm_db/*) {
113 		pkg=`{basename $file}
114-		if (cmp -s $RCPM_ROOT/$RCPM_DB/$pkg/ver $RCPM_PATH/$pkg/ver) {
115+		if (cmp -s $rcpm_root/$rcpm_db/$pkg/ver $rcpm_path/$pkg/ver) {
116 			log $pkg is up to date
117 		}
118 		if not {
119@@ -186,7 +187,7 @@ switch($cmd) {
120 	case l
121 		switch($#*) {
122 		case 0
123-			for (file in $RCPM_ROOT/$RCPM_DB/*) {
124+			for (file in $rcpm_root/$rcpm_db/*) {
125 				pkg=`{basename $file}
126 				get_local_ver
127 				log $pkg $_ver-$_rev
128@@ -198,11 +199,11 @@ switch($cmd) {
129 			}
130 		}
131 	case m
132-		cat $RCPM_ROOT/$RCPM_DB/$1/manifest
133+		cat $rcpm_root/$rcpm_db/$1/manifest
134 	case r
135 		for (pkg) rm_pkg $pkg
136 	case s
137-		for (pkg) find $RCPM_PATH -type d -name $pkg
138+		for (pkg) find $rcpm_path -type d -name $pkg
139 	case u
140 		update_pkg
141 	case *