| Revision 16,
536 bytes
checked in by marcus, 14 years ago
(diff) |
|
r1 | svn | 2007-12-13 11:10:29 +0100 (Do, 13 Dez 2007) | 2 lines
Initial import
|
-
Property svn:executable set to
*
|
| Line | |
|---|
| 1 | #! /bin/csh |
|---|
| 2 | # |
|---|
| 3 | # file find_free_station_entry.csh |
|---|
| 4 | # =========================== |
|---|
| 5 | # |
|---|
| 6 | # version 1, 15-Nov-2003 |
|---|
| 7 | # |
|---|
| 8 | # Finds free station entry in station sets |
|---|
| 9 | # K. Stammler 15-Nov-2003 |
|---|
| 10 | |
|---|
| 11 | set xprog=$SH_ROOT/setup |
|---|
| 12 | |
|---|
| 13 | set setnum=`$xprog/noof_button_sets.csh` |
|---|
| 14 | |
|---|
| 15 | set num=1 |
|---|
| 16 | while ($num <= $setnum) |
|---|
| 17 | set num=`printf "%02d" $num` |
|---|
| 18 | set fname=$SH_GLOBALS/STATLIST_$num.STX |
|---|
| 19 | set res=`grep '^*' $fname | grep -n '* ---' | head -1 | sed 's/:/ /' | awk '{print $1}'` |
|---|
| 20 | if ("$res" != "") then |
|---|
| 21 | echo $num $res |
|---|
| 22 | exit |
|---|
| 23 | endif |
|---|
| 24 | @ num = $num + 1 |
|---|
| 25 | end |
|---|
| 26 | |
|---|
| 27 | echo 0 0 |
|---|
Note: See
TracBrowser
for help on using the repository browser.
