File: quit.cc

package info (click to toggle)
gri 2.8.7-1
  • links: PTS
  • area: main
  • in suites: woody
  • size: 4,472 kB
  • ctags: 2,092
  • sloc: cpp: 33,255; lisp: 3,980; perl: 1,037; makefile: 668; sh: 301
file content (25 lines) | stat: -rw-r--r-- 435 bytes parent folder | download | duplicates (4) 
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
 
#include	<string>
#include	"gr.hh"
#include	"extern.hh"

bool
quitCmd()
{
	double tmp;
	switch (_nword) {
	case 1:
		_done = 1;
		return true;
	case 2:
		if (!getdnum(_word[1], &tmp)) {
			fatal_err("Cannot interpret `quit' exit value `\\", _word[1], "'", "\\");
		}
		_exit_value = (int) floor(0.5 + tmp);
		_done = 1;
		return true;
	default:
		demonstrate_command_usage();
		fatal_err("Extra word in command");
		return false;
	}
}