/usr/include/cspack/czmess.inc is in libpacklib1-dev 20061220+dfsg3-4.
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 43 44 45 46 47 48 49 50 51 52 53 54 | *
* $Id: czmess.inc,v 1.1.1.1 1996/03/08 15:44:18 mclareni Exp $
*
* $Log: czmess.inc,v $
* Revision 1.1.1.1 1996/03/08 15:44:18 mclareni
* Cspack
*
*
#ifndef CERNLIB_CSPACK_CZMESS_INC
#define CERNLIB_CSPACK_CZMESS_INC
*
*
* czmess.inc
*
*
* Process server messages
*
IRC = 0
10 CONTINUE
CALL CZGETA(CHMAIL,ISTAT)
LCH = LENOCC(CHMAIL)
IF(CHMAIL(1:1).EQ.'0') THEN
*
* Nop
*
ELSEIF(CHMAIL(1:1).EQ.'1') THEN
PRINT *,CHMAIL(2:LCH)
ELSEIF(CHMAIL(1:1).EQ.'2') THEN
PRINT *,CHMAIL(2:LCH)
GOTO 10
ELSEIF(CHMAIL(1:1).EQ.'3') THEN
PRINT *,CHMAIL(2:LCH)
IQUEST(1) = 1
IRC = 1
ELSEIF(CHMAIL(1:1).EQ.'4') 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
*
* Number of bytes read from a variable length read
*
READ(CHMAIL(2:11),'(I10)') NGOT
GOTO 10
ELSE
PRINT *,'Unknown server message ',CHMAIL
IQUEST(1) = 1
IRC = 1
ENDIF
*
#endif
|