/usr/include/cspack/czflush.inc is in libpacklib1-dev 20061220+dfsg3-4.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | *
* $Id: czflush.inc,v 1.1.1.1 1996/03/08 15:44:17 mclareni Exp $
*
* $Log: czflush.inc,v $
* Revision 1.1.1.1 1996/03/08 15:44:17 mclareni
* Cspack
*
*
#ifndef CERNLIB_CSPACK_CZFLUSH_INC
#define CERNLIB_CSPACK_CZFLUSH_INC
*
*
* czflush.inc
*
*
* Flush server messages
*
10 CONTINUE
CALL CZGETA(CHMAIL,ISTAT)
LCH = LENOCC(CHMAIL)
IF(CHMAIL(1:1).EQ.'0') THEN
*
* Nop
*
ELSEIF(CHMAIL(1:1).EQ.'1') THEN
ELSEIF(CHMAIL(1:1).EQ.'2') THEN
GOTO 10
ELSEIF(CHMAIL(1:1).EQ.'3') THEN
IQUEST(1) = 1
IRC = 1
ELSEIF(CHMAIL(1:1).EQ.'E') THEN
IQUEST(1) = -1
IRC = -1
ELSEIF(CHMAIL(1:1).EQ.'V') THEN
GOTO 10
ELSE
IQUEST(1) = 1
IRC = 1
ENDIF
*
#endif
|