File: quit.cc

package info (click to toggle)
gri 2.4.2-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 4,540 kB
  • ctags: 1,966
  • sloc: cpp: 32,542; lisp: 3,243; perl: 806; makefile: 548; sh: 253
file content (25 lines) | stat: -rw-r--r-- 445 bytes parent folder | download
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;
    }
}