xp_comm_proj/rd_dicom/Papyrus3/PapyFileSystemUnix3.c
/********************************************************************************/
/*										*/
/*	Papy3FOpen : overwrites the standard open file function			*/
/*	return : standard error message						*/
/*										*/
/********************************************************************************/
Papy3FOpen : overwrites the standard open file function
return : standard error message
Papy3FOpen : overwrites the standard open file function return : standard error message
PapyShort
Papy3FOpen (char *inFilenameP, char inPermission, PAPY_FILE inVolumeNb, PAPY_FILE *outFp,
            void *inFSSpecP)
{
  PAPY_FILE    file;
  switch (inPermission) {
    case 'r' : if ((*outFp = fopen (inFilenameP, "rb")) == NULL) 
                 RETURN (papOpenFile);              
               break;
    case 'w' : if ((*outFp = fopen (inFilenameP, "wb")) == NULL) 
                 RETURN (papOpenFile);               
               break;
    case 'a' : 
    default  : if ((*outFp = fopen (inFilenameP, "r+")) == NULL) 
                 RETURN (papOpenFile);
  }
  return 0;
}
PapyShort Papy3FOpen ( char * inFilenameP , char inPermission , PAPY_FILE inVolumeNb , PAPY_FILE * outFp , void * inFSSpecP ) { PAPY_FILE file ; switch ( inPermission ) { case ' ' : if ( ( * outFp = fopen ( inFilenameP , " " ) ) == NULL ) RETURN ( papOpenFile ) ; break ; case ' ' : if ( ( * outFp = fopen ( inFilenameP , " " ) ) == NULL ) RETURN ( papOpenFile ) ; break ; case ' ' : default : if ( ( * outFp = fopen ( inFilenameP , " " ) ) == NULL ) RETURN ( papOpenFile ) ; } return 0 ; }
Papy3FOpen : overwrites the standard open file function
return : standard error message
Papy3FOpen : overwrites the standard open file function return : standard error message
/* inPermission r : read, w : write, a : read/write (all) */ /* endsandwich */ /*outFp = &file;*/