File: new-seqs

package info (click to toggle)
pcp 7.1.0-1
  • links: PTS
  • area: main
  • in suites: forky, sid
  • size: 252,748 kB
  • sloc: ansic: 1,483,656; sh: 182,366; xml: 160,462; cpp: 83,813; python: 24,980; perl: 18,327; yacc: 6,877; lex: 2,864; makefile: 2,738; awk: 165; fortran: 60; java: 52
file content (84 lines) | stat: -rwxr-xr-x 1,449 bytes parent folder | download | duplicates (2)
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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
#!/bin/sh
#
# Use the $min and $max from new to see how many test seq #s are available
#

tmp=/var/tmp/$$
trap "rm -f $tmp.*; exit 0" 0 1 2 3 15

_do_range()
{
    awk '
BEGIN	{ first = last = -2 }
	{ if ($1 == last+1) {
	    last = $1
	  }
	  else {
	    if (first != -2) {
		if (first == last) print first
		else print first "-" last
	    }
	    first = last = $1
	  }
	}'
}

eval `grep '^min=' new`
eval `grep '^max=' new`

sed -n <group >$tmp.taken \
    -e '/^[0-9]/{
s/[ :].*//
p
}' \
# end

try=000
while [ $try -lt $min ]
do
    if [ ! -f "$try" ]
    then
	if grep "^$try\$" $tmp.taken >/dev/null
	then
	    :
	else
	    echo $try
	fi
    fi
    try=`expr $try + 1`
    try=`printf "%03d" $try`
done >$tmp.avail

if [ -s $tmp.avail ]
then
    echo "9999999" >>$tmp.avail
    _do_range <$tmp.avail
    echo "Below min=$min [`wc -l <$tmp.avail | sed -e 's/ //g'` available] ..."
    echo
fi

try=$min
while [ $try -le $max ]
do
    if [ ! -f "$try" ]
    then
	if grep "^$try\$" $tmp.taken >/dev/null
	then
	    :
	else
	    echo $try
	fi
    fi
    try=`expr $try + 1`
    try=`printf "%03d" $try`
done >$tmp.avail

if [ -s $tmp.avail ]
then
    echo "9999999" >>$tmp.avail
    _do_range <$tmp.avail
    first=`head -1 <$tmp.avail`
    echo "$min $max $first `wc -l <$tmp.avail | sed -e 's/ //g'`" \
    | awk '
      { printf "Between min=" $1 " and max=" $2 ", " $4 " available (%.1f%% free, first=" $3 ")\n",100 * $4 /($2 - $1 + 1) }'
fi