[css2] Made interactive part loop.

--HG--
extra : convert_revision : svn%3A73dc7c4b-06e6-40f3-b4f7-9ed1dbc14bfc/trunk%40108

Author: bert-github

css2/bin/Attic/issues

@@ -108,6 +108,42 @@ list_to_be_updated ()
   ) < $ISSUES
 }
 
+generate_html ()
+{
+  pr "<table border=1>"
+      echo "<tr>"
+      echo "  <th>#"
+      echo "  <th>Description"
+      echo "  <th>Resolution"
+      echo "  <th>Reference"
+      echo "  <th>Archived&nbsp;on"
+      echo "  <th>Resolved&nbsp;on"
+      echo "  <th>Spec up-to-date?"
+  (
+    IFS='	'
+    i=0
+    while read desc res ref date1 date2 spec; do
+      i=`expr $i + 1`
+      echo "<tr valign=baseline>"
+      echo "  <td>$i"
+      echo "  <td>$desc"
+      echo "  <td>$res"
+      case "$ref" in
+	http:* | ftp:*) echo "  <td><a href='$ref'>here</a>";;
+	*)      echo "  <td>$ref";;
+      esac
+
+      echo "  <td>$date1"
+      echo "  <td>$date2"
+      echo "  <td>$spec"
+    done < $ISSUES
+  )
+  pr "</table>"
+  pr "<p>Last update: "`ls -l $ISSUES | cut -c 42-47`\
+   " (HTML version generated: "`date "$DATEFRM"`")"
+
+}
+
 add_issue ()
 {
   if [ -z "$ref" ]; then
@@ -121,6 +157,7 @@ add_issue ()
   ref=`echo $ref | tr "&	" "  "`
   desc=`echo $desc | tr "&	" "  "`
   pr "$desc	-	$ref	"`date "$DATEFRM"`"	-	no" >>$ISSUES
+  generate_html >$HTML
 }
 
 resolve_issue ()
@@ -129,14 +166,14 @@ resolve_issue ()
     pr "Number: \c"
     read num
   fi
+  case "$num" in
+    [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) ;;
+    *) pr "Error: not a valid issue number: $num" >&2; return 2;;
+  esac
   if [ -z "$res" ]; then
     pr "Resolution: \c"
     read res
   fi
-  case "$num" in
-    [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) ;;
-    *) pr "Error: not a valid issue number: $num" >&2; exit 2;;
-  esac
   res=`echo $res | tr "&	" "  "`
   date=`date "$DATEFRM"`
   (
@@ -152,6 +189,7 @@ resolve_issue ()
     done < $ISSUES >$TMP
   )
   mv $TMP $ISSUES
+  generate_html >$HTML
 }
 
 update_issue ()
@@ -162,7 +200,7 @@ update_issue ()
   fi
   case "$num" in
     [0-9] | [0-9][0-9] | [0-9][0-9][0-9] | [0-9][0-9][0-9][0-9]) ;;
-    *) pr "Error: not a valid issue number: $num" >&2; exit 2;;
+    *) pr "Error: not a valid issue number: $num" >&2; return 2;;
   esac
   (
     IFS='	'
@@ -180,69 +218,37 @@ update_issue ()
     done < $ISSUES >$TMP
   )
   mv $TMP $ISSUES
-}
-
-generate_html ()
-{
-  pr "<table border=1>"
-      echo "<tr>"
-      echo "  <th>#"
-      echo "  <th>Description"
-      echo "  <th>Resolution"
-      echo "  <th>Reference"
-      echo "  <th>Archived&nbsp;on"
-      echo "  <th>Resolved&nbsp;on"
-      echo "  <th>Spec up-to-date?"
-  (
-    IFS='	'
-    i=0
-    while read desc res ref date1 date2 spec; do
-      i=`expr $i + 1`
-      echo "<tr valign=baseline>"
-      echo "  <td>$i"
-      echo "  <td>$desc"
-      echo "  <td>$res"
-      case "$ref" in
-	http:* | ftp:*) echo "  <td><a href='$ref'>here</a>";;
-	*)      echo "  <td>$ref";;
-      esac
-
-      echo "  <td>$date1"
-      echo "  <td>$date2"
-      echo "  <td>$spec"
-    done < $ISSUES
-  )
-  pr "</table>"
-  pr "<p>Last update: "`ls -l $ISSUES | cut -c 42-47`\
-   " (HTML version generated: "`date "$DATEFRM"`")"
-
+  generate_html >$HTML
 }
 
 interactive ()
 {
-  pr "Choose one of:"
-  while [ "$reply" = "" ]; do
-    pr "	l	list the issues"
-    pr "	t	list only unresolved issues"
-    pr "	y	list issues to be updated in the spec"
-    pr "	a	add an issue"
-    pr "	r	mark an issue as resolved"
-    pr "	u	mark the spec as up-to-date w.r.t. an issue"
-    pr "	g	generate HTML page with the issues"
-    pr "	q	quit"
-    pr "? \c"
-    read reply
-    case "$reply" in
-      l) list_issues;;
-      a) add_issue; generate_html >$HTML;;
-      r) resolve_issue; generate_html >$HTML;;
-      u) update_issue; generate_html >$HTML;;
-      g) generate_html;;
-      t) list_unresolved;;
-      y) list_to_be_updated;;
-      q) ;;
-      *) pr "Not understood, please try again"; reply=;;
-    esac
+  while [ "$reply" != 'q' ]; do
+    reply=
+    pr "Choose one of:"
+    while [ "$reply" = "" ]; do
+      pr "	l	list the issues"
+      pr "	t	list only unresolved issues"
+      pr "	y	list issues to be updated in the spec"
+      pr "	a	add an issue"
+      pr "	r	mark an issue as resolved"
+      pr "	u	mark the spec as up-to-date w.r.t. an issue"
+      pr "	g	generate HTML page with the issues"
+      pr "	q	quit"
+      pr "? \c"
+      read reply
+      case "$reply" in
+	l) list_issues;;
+	a) add_issue; generate_html >$HTML;;
+	r) resolve_issue; generate_html >$HTML;;
+	u) update_issue; generate_html >$HTML;;
+	g) generate_html;;
+	t) list_unresolved;;
+	y) list_to_be_updated;;
+	q) ;;
+	*) pr "Not understood, please try again"; reply=;;
+      esac
+    done
   done
 }  
 
@@ -251,12 +257,13 @@ if [ $# = 0 ]; then
 else
   case "$1" in
     -l) list_issues;;
-    -a) ref=$2; shift 2; desc="$*"; add_issue; generate_html >$HTML;;
-    -r) num=$2; shift 2; res="$*"; resolve_issue; generate_html >$HTML;;
-    -u) num=$2; update_issue; generate_html >$HTML;;
+    -a) ref=$2; shift 2; desc="$*"; add_issue;;
+    -r) num=$2; shift 2; res="$*"; resolve_issue;;
+    -u) num=$2; update_issue;;
     -g) generate_html;;
     -t) list_unresolved;;
     -y) list_to_be_updated;;
+    -?) quick_help;;
     *) quick_help; exit 1;;
   esac
 fi