File: menu.ll

package info (click to toggle)
lifelines 3.0.50-2
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 11,140 kB
  • ctags: 6,517
  • sloc: ansic: 57,468; xml: 8,014; sh: 4,255; makefile: 848; yacc: 601; perl: 170; sed: 16
file content (47 lines) | stat: -rw-r--r-- 1,210 bytes parent folder | download | duplicates (5)
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
/* 
 * @progname       menu.ll
 * @version        1.0
 * @author         ?
 * @category       
 * @output         GUI
 * @description    

   Menu driven shell for LifeLines report programs

menu.ll - Menu driven shell for LifeLines report programs

To use this shell, rename "proc main()" in a report to "proc <call_name>()",
then add the file/description/call names in three places here.

The menu loops until the first item is selected so pressing "q"
from LifeLines user interface does not result in quitting.

*/

include("eol.li")
include("longline.li")
include("stat9.li")

/* more file inclusions go here */

proc main() {
list(mnu)
enqueue(mnu, "         >> EXIT to LifeLines MAIN MENU << ")
enqueue(mnu, "eol2.ll     - End of Line Ancestors - Tom Wetmore, John Chandler")
enqueue(mnu, "longline.ll - Longest Lines         - John Chandler")
enqueue(mnu, "stat9.ll    - Statistics            - Jim Eggert")

/* more report descriptions go here */

set(xitem, 0)
while (ne(1, xitem)) {
set(xitem, menuchoose(mnu, "Choose the program to run"))

if     (eq(xitem, 2)) { call eol() }
elsif  (eq(xitem, 3)) { call longline() }
elsif  (eq(xitem, 4)) { call stat9() }

/* more procedure calls go here */

}
}