Skip to content
Snippets Groups Projects
Commit d6fd653b authored by Rene Brun's avatar Rene Brun
Browse files

Remove duplicated files 

git-svn-id: http://root.cern.ch/svn/root/trunk@23338 27541ba8-7e3a-0410-8455-c3a389f83636
parent 99c581ed
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
main/win32/cfget.c deleted 100644 → 0
+ 0
− 74
View file @ 99c581ed
/* @(#)root/main:$Id$ */
/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/98 */
/*
* $Id$
*
* $Log: cfget.c,v $
* Revision 1.5 1997/10/23 16:33:18 mclareni
* NT mods
*
* Revision 1.4 1997/09/02 14:26:44 mclareni
* WINNT correction
*
* Revision 1.3 1997/02/04 17:35:10 mclareni
* Merge Winnt and 97a versions
*
* Revision 1.2 1997/01/15 16:25:31 cernlib
* fix from F.Hemmer to return rfio return code
*
* Revision 1.1.1.1.2.1 1997/01/21 11:30:09 mclareni
* All mods for Winnt 96a on winnt branch
*
* Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
* Kernlib
*
*/
/*> ROUTINE CFGET
CERN PROGLIB# Z310 CFGET .VERSION KERNFOR 4.29 910718
ORIG. 12/01/91, JZ
CALL CFGET (LUNDES, MEDIUM, NWREC, NWTAK, MBUF, ISTAT)
read from the file :
LUNDES file descriptor
MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
NWREC number of words record size
*NWTAK* number of words to be read / actually read
*MBUF vector to be read into
*ISTAT status, =zero if success
*/
#include <fcntl.h>
#include <stdlib.h>
#define NBYTPW 4
void __stdcall CFGET(lundes, medium, nwrec, nwtak, mbuf,lmbuf, stat)
int lmbuf;
char *mbuf;
int *lundes, *medium, *nwrec, *nwtak, *stat;
{
int fildes;
int nbdn, nbdo;
*stat = 0;
if (*nwtak <= 0) return;
/* read the file */
fildes = *lundes;
nbdo = *nwrec * NBYTPW;
nbdn = read (fildes, mbuf, nbdo);
if (nbdn == 0) goto heof;
if (nbdn < 0) goto herror;
retn: *nwtak = (nbdn - 1) / NBYTPW + 1;
return;
/* Handle exceptions */
heof: *stat = -1;
return;
herror: *stat = errno;
perror (" error in CFGET");
return;
}
/*> END <----------------------------------------------------------*/
main/win32/cfgeto.c deleted 100644 → 0
+ 0
− 76
View file @ 99c581ed
/* @(#)root/main:$Id$ */
/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/98 */
/*
* $Id$
*
* $Log: cfget.c,v $
* Revision 1.5 1997/10/23 16:33:18 mclareni
* NT mods
*
* Revision 1.4 1997/09/02 14:26:44 mclareni
* WINNT correction
*
* Revision 1.3 1997/02/04 17:35:10 mclareni
* Merge Winnt and 97a versions
*
* Revision 1.2 1997/01/15 16:25:31 cernlib
* fix from F.Hemmer to return rfio return code
*
* Revision 1.1.1.1.2.1 1997/01/21 11:30:09 mclareni
* All mods for Winnt 96a on winnt branch
*
* Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
* Kernlib
*
*/
/*> ROUTINE CFGET
CERN PROGLIB# Z310 CFGET .VERSION KERNFOR 4.29 910718
ORIG. 12/01/91, JZ
CALL CFGET (LUNDES, MEDIUM, NWREC, NWTAK, MBUF, ISTAT)
read from the file :
LUNDES file descriptor
MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
NWREC number of words record size
*NWTAK* number of words to be read / actually read
*MBUF vector to be read into
*ISTAT status, =zero if success
*/
#include <fcntl.h>
#include <stdlib.h>
#define NBYTPW 4
void __stdcall CFGET(lundes, medium, nwrec, nwtak, mbuf, stat)
char *mbuf;
int *lundes, *medium, *nwrec, *nwtak, *stat;
{
int fildes;
int nbdn, nbdo;
*stat = 0;
if (*nwtak <= 0) return;
/* read the file */
fildes = *lundes;
nbdo = *nwrec * NBYTPW;
nbdn = read (fildes, mbuf, nbdo);
if (nbdn == 0) goto heof;
if (nbdn < 0) goto herror;
retn: *nwtak = (nbdn - 1) / NBYTPW + 1;
return;
/* Handle exceptions */
heof: *stat = -1;
return;
#if defined(CERNLIB_PROJSHIFT)
herror: *stat = (serrno ? serrno : (rfio_errno ? rfio_errno : errno));
#else
herror: *stat = errno;
#endif
perror (" error in CFGET");
return;
}
/*> END <----------------------------------------------------------*/
main/win32/cfopei.c deleted 100644 → 0
+ 0
− 126
View file @ 99c581ed
/* @(#)root/main:$Id$ */
/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/98 */
/*
* $Id$
*
* $Log: cfopei.c,v $
* Revision 1.4 1997/09/02 14:26:46 mclareni
* WINNT correction
*
* Revision 1.3 1997/02/04 17:35:11 mclareni
* Merge Winnt and 97a versions
*
* Revision 1.2 1997/01/15 16:25:32 cernlib
* fix from F.Hemmer to return rfio return code
*
* Revision 1.1.1.1.2.1 1997/01/21 11:30:10 mclareni
* All mods for Winnt 96a on winnt branch
*
* Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
* Kernlib
*
*/
/*> ROUTINE CFOPEI
CERN PROGLIB# Z310 CFOPEI .VERSION KERNFOR 4.38 931108
ORIG. 12/01/91, JZ
CALL CFOPEN (LUNDES, MEDIUM, NWREC, MODE, NBUF, TEXT, ISTAT)
open a file :
*LUNDES file descriptor
MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
NWREC record length in number of words
MODE string selecting IO mode
= 'r ', 'w ', 'a ', 'r+ ', ...
NBUF number of buffers to be allocated, (not used)
TEXT name of the file
*ISTAT status, =zero if success
*/
#include <fcntl.h>
#include <stdlib.h>
int cfopen_perm = 0;
void __stdcall CFOPEI(lundes,medium,nwrec,mode,nbuf,ftext,len_ftext,stat,lgtx)
int len_ftext;
char *ftext;
int *lundes, *medium, *nwrec, *nbuf, *stat, *lgtx;
int *mode;
{
char *pttext, *fchtak();
int flags;
int fildes;
int perm;
*lundes = 0;
*stat = -1;
perm = cfopen_perm;
cfopen_perm = 0;
/* construct flags :
mode[0] = 0 r 1 w 2 a
mode[1] = 1 +
*/
/* flags for disk */
if (*medium == 1) goto fltp;
if (*medium == 3) goto fltp;
if (mode[0] == 0)
{if (mode[1] == 0)
flags = O_RDONLY;
else
flags = O_RDWR;}
else if (mode[0] == 1)
{if (mode[1] == 0)
flags = O_WRONLY | O_CREAT | O_TRUNC;
else
flags = O_RDWR | O_CREAT | O_TRUNC;}
else if (mode[0] == 2)
{if (mode[1] == 0)
flags = O_WRONLY | O_CREAT | O_APPEND;
else
flags = O_RDWR | O_CREAT | O_APPEND;}
goto act;
/* flags for tape */
fltp: if (mode[0] == 0)
{if (mode[1] == 0)
flags = O_RDONLY;
else
flags = O_RDWR;}
else if (mode[0] == 1)
{if (mode[1] == 0)
flags = O_WRONLY;
else
flags = O_RDWR;}
else if (mode[0] == 2) return;
/* open the file */
act: pttext = fchtak(ftext,*lgtx);
if (pttext == 0) return;
if (perm == 0) perm = 0644;
fildes = open (pttext, flags | O_BINARY, perm);
if (fildes < 0) goto errm;
*lundes = fildes;
*stat = 0;
goto done;
#if defined(CERNLIB_PROJSHIFT)
errm: *stat = (serrno ? serrno : (rfio_errno ? rfio_errno : errno));
#else
errm: *stat = errno;
#endif
perror (" error in CFOPEN");
done: free(pttext);
return;
}
/*> END <----------------------------------------------------------*/
main/win32/cfput.c deleted 100644 → 0
+ 0
− 72
View file @ 99c581ed
/* @(#)root/main:$Id$ */
/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/90 */
/*
* $Id$
*
* $Log: cfput.c,v $
* Revision 1.4 1997/10/23 16:33:19 mclareni
* NT mods
*
* Revision 1.3 1997/02/04 17:35:12 mclareni
* Merge Winnt and 97a versions
*
* Revision 1.2 1997/01/15 16:25:33 cernlib
* fix from F.Hemmer to return rfio return code
*
* Revision 1.1.1.1.2.1 1997/01/21 11:30:11 mclareni
* All mods for Winnt 96a on winnt branch
*
* Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
* Kernlib
*
*/
/*> ROUTINE CFPUT
CERN PROGLIB# Z310 CFPUT .VERSION KERNFOR 4.29 910718
ORIG. 12/01/91, JZ
CALL CFPUT (LUNDES, MEDIUM, NWREC, MBUF, ISTAT)
write to the file :
LUNDES file descriptor
MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
NWREC record size, number of words to be written
MBUF vector to be written
*ISTAT status, =zero if success
*/
#include <errno.h>
#define NBYTPW 4
#define CERNLIB_CFPUT_CHARACTER
void __stdcall CFPUT(lundes, medium, nwrec, mbuf,
# ifdef CERNLIB_CFPUT_CHARACTER
lmbuf,
# endif
stat)
# ifdef CERNLIB_CFPUT_CHARACTER
int lmbuf;
# endif
char *mbuf;
int *lundes, *medium, *nwrec, *stat;
{
int fildes;
int nbdn, nbdo;
*stat = 0;
if (*nwrec <= 0) return;
/* write the file */
fildes = *lundes;
nbdo = *nwrec * NBYTPW;
nbdn = write (fildes, mbuf, nbdo);
if (nbdn < 0) goto trouble;
return;
trouble: *stat = errno;
perror (" error in CFPUT");
return;
}
/*> END <----------------------------------------------------------*/
#ifdef CERNLIB_TCGEN_CFPUT
#undef CERNLIB_TCGEN_CFPUT
#endif
main/win32/cfputo.c deleted 100644 → 0
+ 0
− 74
View file @ 99c581ed
/* @(#)root/main:$Id$ */
/* Author: Valery Fine(fine@vxcern.cern.ch) 02/02/98 */
/*
* $Id$
*
* $Log: cfput.c,v $
* Revision 1.4 1997/10/23 16:33:19 mclareni
* NT mods
*
* Revision 1.3 1997/02/04 17:35:12 mclareni
* Merge Winnt and 97a versions
*
* Revision 1.2 1997/01/15 16:25:33 cernlib
* fix from F.Hemmer to return rfio return code
*
* Revision 1.1.1.1.2.1 1997/01/21 11:30:11 mclareni
* All mods for Winnt 96a on winnt branch
*
* Revision 1.1.1.1 1996/02/15 17:49:36 mclareni
* Kernlib
*
*/
/*> ROUTINE CFPUT
CERN PROGLIB# Z310 CFPUT .VERSION KERNFOR 4.29 910718
ORIG. 12/01/91, JZ
CALL CFPUT (LUNDES, MEDIUM, NWREC, MBUF, ISTAT)
write to the file :
LUNDES file descriptor
MEDIUM = 0,1,2,3 : primary disk/tape, secondary disk/tape
NWREC record size, number of words to be written
MBUF vector to be written
*ISTAT status, =zero if success
*/
#include <errno.h>
#define NBYTPW 4
#ifdef CERNLIB_CFPUT_CHARACTER
# undef CERNLIB_CFPUT_CHARACTER
#endif
void __stdcall CFPUT(lundes, medium, nwrec, mbuf,
# ifdef CERNLIB_CFPUT_CHARACTER
lmbuf,
# endif
stat)
# ifdef CERNLIB_CFPUT_CHARACTER
int lmbuf;
# endif
char *mbuf;
int *lundes, *medium, *nwrec, *stat;
{
int fildes;
int nbdn, nbdo;
*stat = 0;
if (*nwrec <= 0) return;
/* write the file */
fildes = *lundes;
nbdo = *nwrec * NBYTPW;
nbdn = write (fildes, mbuf, nbdo);
if (nbdn < 0) goto trouble;
return;
trouble: *stat = errno;
perror (" error in CFPUT");
return;
}
/*> END <----------------------------------------------------------*/
#ifdef CERNLIB_TCGEN_CFPUT
#undef CERNLIB_TCGEN_CFPUT
#endif
main/win32/tzvers.f deleted 100644 → 0
+ 0
− 259
View file @ 99c581ed
* @(#)root/main:$Id$ */
* Author: Valery Fine(fine@vxcern.cern.ch) 02/06/97 */
************************************************************************
* This subroutine conatined the wrong number of parameters and
* has not been fixed by CERNLIB yet.
* For that we include it in the ROOT distribution.
************************************************************************
* $Id$
*
* $Log: tzvers.F,v $
* Revision 1.2 1996/04/18 16:14:56 mclareni
* Incorporate changes from J.Zoll for version 3.77
*
* Revision 1.1.1.1 1996/03/06 10:47:28 mclareni
* Zebra
*
*
SUBROUTINE TZVERS (IXSTOR,LBK,CHIDH,IDNP,ISELP,IFLAG)
C- Find title bank with IDH (and IDN if non-zero)
C- and a validity range spanning ISELP
*
* $Id$
*
* $Log: mqsys.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:54 mclareni
* Zebra
*
*
*
*
* mqsys.inc
*
*
* $Id$
*
* $Log: mzbits.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
* Zebra
*
*
*
*
* mzbits.inc
*
PARAMETER (IQDROP=25, IQMARK=26, IQCRIT=27, IQSYSX=28)
*
* $Id$
*
* $Log: quest.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:52 mclareni
* Zebra
*
*
*
*
* quest.inc
*
COMMON /QUEST/ IQUEST(100)
*
* $Id$
*
* $Log: zebq.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
* Zebra
*
*
*
* zebq.inc
*
COMMON /ZEBQ/ IQFENC(4), LQ(100)
DIMENSION IQ(92), Q(92)
EQUIVALENCE (IQ(1),LQ(9)), (Q(1),IQ(1))
*
* $Id$
*
* $Log: mzca.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
* Zebra
*
*
* Process Master parameters
*
* mzca.inc
*
COMMON /MZCA/ NQSTOR,NQOFFT(16),NQOFFS(16),NQALLO(16), NQIAM
+, LQATAB,LQASTO,LQBTIS, LQWKTB,NQWKTB,LQWKFZ
+, MQKEYS(3),NQINIT,NQTSYS,NQM99,NQPERM,NQFATA,NQCASE
+, NQTRAC,MQTRAC(48)
EQUIVALENCE (KQSP,NQOFFS(1))
* Process Master parameters
*
* $Id$
*
* $Log: mzcb.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
* Zebra
*
* Current Store and Division
*
* mzcb.inc
*
COMMON /MZCB/ JQSTOR,KQT,KQS, JQDIVI,JQDIVR
+, JQKIND,JQMODE,JQDIVN,JQSHAR,JQSHR1,JQSHR2,NQRESV
+, LQSTOR,NQFEND,NQSTRU,NQREF,NQLINK,NQMINR,LQ2END
+, JQDVLL,JQDVSY,NQLOGL,NQSNAM(6)
DIMENSION IQCUR(16)
EQUIVALENCE (IQCUR(1),LQSTOR)
*
* $Id$
*
* $Log: mzcc.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
* Zebra
*
*
* Store Control Table (matrix)
*
* mzcc.inc
*
COMMON /MZCC/ LQPSTO,NQPFEN,NQPSTR,NQPREF,NQPLK,NQPMIN,LQP2E
+, JQPDVL,JQPDVS,NQPLOG,NQPNAM(6)
+, LQSYSS(10), LQSYSR(10), IQTDUM(22)
+, LQSTA(21), LQEND(20), NQDMAX(20),IQMODE(20)
+, IQKIND(20),IQRCU(20), IQRTO(20), IQRNO(20)
+, NQDINI(20),NQDWIP(20),NQDGAU(20),NQDGAF(20)
+, NQDPSH(20),NQDRED(20),NQDSIZ(20)
+, IQDN1(20), IQDN2(20), KQFT, LQFSTA(21)
DIMENSION IQTABV(16)
EQUIVALENCE (IQTABV(1),LQPSTO)
*
* $Id$
*
* $Log: eqlqt.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
* Zebra
*
*
* TZ - 1 structural link (only)
*
* eqlqt.inc
*
DIMENSION LQT(9)
EQUIVALENCE (LQT(1),LQSYSS(3))
C-------------- END CDE -----------------
INTEGER CHIDH(9), IDNP(9), ISELP(9)
DIMENSION NAMESR(2)
DATA NAMESR / 4HTZVE, 4HRS /
*
* $Id$
*
* $Log: q_jbyt.inc,v $
* Revision 1.1 1996/04/18 16:15:07 mclareni
* Incorporate changes from J.Zoll for version 3.77
*
*
*
* q_jbyt.inc
*
JBYT (IZW,IZP,NZB) = ISHFT (ISHFT(IZW,33-IZP-NZB), -32+NZB)
*
* $Id$
*
* $Log: qstore.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:53 mclareni
* Zebra
*
*
*
*
* qstore.inc
*
IF (JBYT(IXSTOR,27,6).NE.JQSTOR) CALL MZSDIV (IXSTOR,-7)
* ------------- for ZEBRA MZ ------------------------------
ISEL = ISELP(1)
IDN = IDNP(1)
C* CALL UCTOH (CHIDH,IDH,4,4)
CALL UCOPY (CHIDH,IDH,1)
L = LQT(KQT+1)
GO TO 12
11 L = LQ(KQS+L)
12 IF (L.EQ.0) GO TO 21
IF (IQ(KQS+L-4).NE.IDH) GO TO 11
IF (IDN.NE.0) THEN
IF (IDN.NE.IQ(KQS+L-5)) GO TO 11
ENDIF
IF (ISEL.LT.IQ(KQS+L+1)) GO TO 11
IF (ISEL.GT.IQ(KQS+L+2)) GO TO 11
LBK = L
RETURN
C-- bank not found
21 IF (IFLAG.EQ.0) THEN
LBK = 0
RETURN
ENDIF
*
* $Id$
*
* $Log: qtrace.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:54 mclareni
* Zebra
*
* with check on capacity MQTRAC
*
* qtrace.inc
*
MQTRAC(NQTRAC+1) = NAMESR(1)
MQTRAC(NQTRAC+2) = NAMESR(2)
NQTRAC = NQTRAC + 2
IF (NQTRAC.GE.41) CALL ZFATAL
IQUEST(2)= IDH
IQUEST(3)= IDN
IQUEST(4)= ISEL
IQUEST(5)= LQT(KQT+1)
K = IFLAG
IF (K.LT.100) K=62
CALL ZTELL (K,1)
END
* ==================================================
*
* $Id$
*
* $Log: qcardl.inc,v $
* Revision 1.1.1.1 1996/03/06 10:46:55 mclareni
* Zebra
*
*
*
*
* qcardl.inc
*
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment