mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
0024794: Drop unused files Standard_osd_ffi.c and Standard_symlink.c
This commit is contained in:
kgv
apn
parent
ced8e75119
commit
11500a8529
@ -57,8 +57,6 @@ Standard_Transient_proto.hxx
|
||||
Standard_TypeDef.hxx
|
||||
Standard_math.cxx
|
||||
Standard_math.hxx
|
||||
Standard_osd_ffi.c
|
||||
Standard_symlink.c
|
||||
Standard_values.h
|
||||
Standard_DefineHandle.hxx
|
||||
Standard_UUID.cxx
|
||||
|
||||
@ -1,427 +0,0 @@
|
||||
/*
|
||||
Copyright (c) 1998-1999 Matra Datavision
|
||||
Copyright (c) 1999-2014 OPEN CASCADE SAS
|
||||
|
||||
This file is part of Open CASCADE Technology software library.
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it under
|
||||
the terms of the GNU Lesser General Public License version 2.1 as published
|
||||
by the Free Software Foundation, with special exception defined in the file
|
||||
OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
||||
distribution for complete text of the license and disclaimer of any warranty.
|
||||
|
||||
Alternatively, this file may be used under the terms of Open CASCADE
|
||||
commercial license or contractual agreement.
|
||||
*/
|
||||
|
||||
/**********************************************************
|
||||
*/
|
||||
/** RBA 12/10/88
|
||||
*/
|
||||
/** --- --------
|
||||
*/
|
||||
/**
|
||||
*/
|
||||
/** Fichier : OSD_FFI.C (SUN/UNIX)
|
||||
*/
|
||||
/** Titre : osd_ffi_(dir, name, tab_res, max, l_dir, l_name, l_tab)
|
||||
*/
|
||||
/** char *dir, *nmae, *tab-res;
|
||||
*/
|
||||
/** int *max;
|
||||
*/
|
||||
/** int l_dir, l_name, l_tab;
|
||||
*/
|
||||
/** Retour:
|
||||
*/
|
||||
/** Nombre de fichier trouve (1 ou plus)
|
||||
*/
|
||||
/** 0 sinon.
|
||||
*/
|
||||
/**
|
||||
*/
|
||||
/** Role : Trouver tous les fichier qui ont le meme nom que 'name' sachant
|
||||
*/
|
||||
/** que 'name' peut etre un nom de fichier comportant le caractere
|
||||
*/
|
||||
/** joker '*'.
|
||||
*/
|
||||
/** Exemple :
|
||||
*/
|
||||
/** Appel en Fortran
|
||||
*/
|
||||
/**
|
||||
*/
|
||||
/** integer nb_fichier, osd_ffi
|
||||
*/
|
||||
/** character*80 dir, name
|
||||
*/
|
||||
/** character*80 tab_res(100)
|
||||
*/
|
||||
/** ....
|
||||
*/
|
||||
/** ....
|
||||
*/
|
||||
/** name = 'TOTO*.*'
|
||||
*/
|
||||
/** ....
|
||||
*/
|
||||
/** nb_fichier = osd_ffi(dir, name, tab_res, 100)
|
||||
*/
|
||||
/**
|
||||
*/
|
||||
/** Modifs : - sga 28/04/92 correction bug closedir
|
||||
*/
|
||||
/** - asi 11/04/90 correction de strcmp_joker
|
||||
*/
|
||||
/** - fsa 26/04/90 ajout du tri du tableau tab_res
|
||||
*/
|
||||
/** par ordre aphabethique
|
||||
*/
|
||||
/** - asi 06/09/90 ajout de la directorie aux noms de fichier
|
||||
*/
|
||||
/** retourne
|
||||
*/
|
||||
/** - J.P. TIRAULT le 3-Avril-1992 : Faire le close du directory
|
||||
*/
|
||||
/** apres l'avoir ouvert.
|
||||
*/
|
||||
/**
|
||||
*/
|
||||
/*************************************************************/
|
||||
#if defined(_MSC_VER) && !defined(WNT)
|
||||
#error "Wrong compiler options has been detected. Add /DWNT option for proper compilation!!!!!"
|
||||
#endif
|
||||
|
||||
#ifndef WNT
|
||||
|
||||
#ifdef HAVE_CONFIG_H
|
||||
# include <config.h>
|
||||
#endif
|
||||
|
||||
/* This hack is required to get HP's c89 to include a definition for DIR */
|
||||
#ifdef __hpux
|
||||
# ifndef _INCLUDE_POSIX_SOURCE
|
||||
# define _INCLUDE_POSIX_SOURCE
|
||||
# endif
|
||||
#endif
|
||||
|
||||
#include <stdio.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
|
||||
#ifdef HAVE_DIRENT_H
|
||||
# include <dirent.h>
|
||||
# define NAMLEN(dirent) strlen((dirent)->d_name)
|
||||
# ifdef VMS
|
||||
extern char *vmsify PARAMS ((char *name, int type));
|
||||
# endif
|
||||
#else
|
||||
# define dirent direct
|
||||
# define NAMLEN(dirent) (dirent)->d_namlen
|
||||
# ifdef HAVE_SYS_NDIR_H
|
||||
# include <sys/ndir.h>
|
||||
# endif
|
||||
# ifdef HAVE_SYS_DIR_H
|
||||
# include <sys/dir.h>
|
||||
# endif
|
||||
# ifdef HAVE_NDIR_H
|
||||
# include <ndir.h>
|
||||
# endif
|
||||
# ifdef HAVE_VMSDIR_H
|
||||
# include "vmsdir.h"
|
||||
# endif /* HAVE_VMSDIR_H */
|
||||
#endif
|
||||
|
||||
/* In GNU systems, <dirent.h> defines this macro for us. */
|
||||
#ifdef _D_NAMLEN
|
||||
# undef NAMLEN
|
||||
# define NAMLEN(d) _D_NAMLEN(d)
|
||||
#endif
|
||||
|
||||
#if (defined (POSIX) || defined (VMS) || defined (WINDOWS32)) && !defined (__GNU_LIBRARY__)
|
||||
/* Posix does not require that the d_ino field be present, and some
|
||||
systems do not provide it. */
|
||||
# define REAL_DIR_ENTRY(dp) 1
|
||||
# define FAKE_DIR_ENTRY(dp)
|
||||
#else
|
||||
# define REAL_DIR_ENTRY(dp) (dp->d_ino != 0)
|
||||
# define FAKE_DIR_ENTRY(dp) (dp->d_ino = 1)
|
||||
#endif /* POSIX */
|
||||
|
||||
DIR *dirp;
|
||||
struct dirent *dp;
|
||||
|
||||
void tri(int taille, char *list,int l_tab);
|
||||
int strcmp_joker(char *s1, char *s2);
|
||||
|
||||
int
|
||||
osd_ffi(char *dir, char *name, char *tab_res, int *max, int l_dir, int l_name, int l_tab)
|
||||
{
|
||||
char file[255], directory[255];
|
||||
int ii, jj, kk, nb_file;
|
||||
|
||||
/***** Le Nom de la directory ******/
|
||||
if (*dir == ' ') {
|
||||
directory[0] = '.';
|
||||
directory[1] = 0;
|
||||
}
|
||||
else {
|
||||
for (ii=0; ii<l_dir && ii<255 && *dir != ' '; ii++)
|
||||
directory[ii] = *(dir++);
|
||||
directory[ii]=0;
|
||||
}
|
||||
|
||||
/***** Le Nom de fichier recherche *******/
|
||||
for (ii=0; ii<l_name && ii<255 && *name != ' '; ii++)
|
||||
file[ii] = *(name++);
|
||||
file[ii]=0;
|
||||
|
||||
/****** On ouvre le directory pour trouver les fichiers ********/
|
||||
nb_file=0;
|
||||
if ((dirp = opendir(directory)) != NULL){
|
||||
while ((nb_file < *max) && (dp=readdir(dirp))) {
|
||||
/*====== Si on trouve un fichier qui lui ressemble ==========*/
|
||||
if(strcmp_joker(file,dp->d_name) == 0) {
|
||||
/*======= On copie sa valeur ========*/
|
||||
/* avec la directorie */
|
||||
/* jj tab_res, kk la ligne ,ii le nom */
|
||||
jj = nb_file * l_tab;
|
||||
kk = 0;
|
||||
if (directory[0] != '.') {
|
||||
for (; kk<l_tab && directory[kk] != 0; kk++,jj++)
|
||||
*(tab_res + jj) = directory[kk];
|
||||
if (directory[kk-1] != '/') *(tab_res + (jj++)) = '/';
|
||||
}
|
||||
for (ii=0; (kk)<l_tab && *(dp->d_name+ii); ii++,jj++,kk++)
|
||||
*(tab_res + jj) = *(dp->d_name + ii);
|
||||
/*======= En completant avec blanc ======*/
|
||||
for (; kk<l_tab ; jj++,kk++)
|
||||
*(tab_res + jj) = ' ';
|
||||
nb_file++;
|
||||
}
|
||||
}
|
||||
}
|
||||
/***** tri du tableau tab_res par ordre alpha *****/
|
||||
if (dirp){
|
||||
closedir(dirp);
|
||||
tri( nb_file , tab_res ,l_tab );
|
||||
}
|
||||
return(nb_file);
|
||||
}
|
||||
|
||||
/***********************************************
|
||||
* RBA Date: 27/06/88
|
||||
* --- ---------
|
||||
*
|
||||
* Title: STRCMP_JOKER(ch1,ch2)
|
||||
* Role : Compare ch1 with ch2
|
||||
* ch1 can have the joker caracter '*'
|
||||
* res = 0 they are identical
|
||||
* res <>0 otherwise
|
||||
* Modif: asi 11/04/90 correction
|
||||
***********************************************/
|
||||
|
||||
|
||||
#define TRUE 1
|
||||
#define FALSE 0
|
||||
#define JOKER '*'
|
||||
|
||||
int
|
||||
strcmp_joker(char *s1, char *s2)
|
||||
{
|
||||
char *c1=NULL,*c2=NULL; /* sauvegardes */
|
||||
int res;
|
||||
int deb = 1; /* 0 si 1er car est le joker, 1 sinon */
|
||||
|
||||
while (*s2) {
|
||||
if (*s1 == JOKER) {
|
||||
deb = 0;
|
||||
while(*s1 == JOKER) s1++;
|
||||
if (*s1) {
|
||||
while(*s2 && *s2 != *s1) s2++;
|
||||
c1 = s1, c2 = s2;
|
||||
}
|
||||
else return(0); /* s1 fini par un jocker */
|
||||
}
|
||||
else { /* comparaison de 2 car */
|
||||
res = *s1++ - *s2++;
|
||||
if (res != 0) {
|
||||
/* 1ere chaine pas de joker au debut */
|
||||
if (deb) return (res);
|
||||
else { /* on recherche la meme chaine plus loin */
|
||||
s1 = c1, s2 = ++c2;
|
||||
while(*s2 && *s2 != *s1) s2++;
|
||||
c2 = s2;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
while(*s1 == JOKER) s1++;
|
||||
return(*s1 - *s2);
|
||||
}
|
||||
|
||||
/**************************************************
|
||||
* FSA date: 26/04/90
|
||||
* --- ---------
|
||||
*
|
||||
* Titre : COMPAR (ch1,ch2)
|
||||
* Role : Comparer ch1 avec ch2
|
||||
* retourne : 0 si chaines identiques
|
||||
* >0 si ch2 avant ch1
|
||||
* <0 si ch1 avant ch2
|
||||
* Modif :
|
||||
**************************************************/
|
||||
|
||||
static int
|
||||
compar(char *ch1, char *ch2)
|
||||
{
|
||||
/* int strcmp(char *cha, const char *chb); */
|
||||
|
||||
return(strcmp(ch1,ch2));
|
||||
}
|
||||
|
||||
/**************************************************
|
||||
* FSA date: 26/04/90
|
||||
* --- ---------
|
||||
*
|
||||
* Titre : TRI (taille,list,l_tab)
|
||||
* Role : Tri un tableau de chaines par ordre
|
||||
* alphabetique
|
||||
* Modif :
|
||||
**************************************************/
|
||||
|
||||
void
|
||||
tri(int taille, char *list,int l_tab)
|
||||
{
|
||||
qsort( list , taille , l_tab ,(int (*)(const void *,const void *)) compar );
|
||||
}
|
||||
|
||||
#else
|
||||
// VERSION WNT
|
||||
//
|
||||
#include <io.h>
|
||||
#include <stdlib.h>
|
||||
#include <string.h>
|
||||
#include <stddef.h>
|
||||
|
||||
#ifdef VAC
|
||||
#include <windows.h> // added for VAC++ version -ChG 07081997
|
||||
#endif
|
||||
|
||||
#ifdef DOS
|
||||
#include <dos.h>
|
||||
static struct _find_t zeptr ;
|
||||
|
||||
#else
|
||||
|
||||
#ifdef VAC
|
||||
static LPWIN32_FIND_DATA zeptr ;
|
||||
#else
|
||||
static struct _finddata_t zeptr ;
|
||||
#endif
|
||||
|
||||
#endif
|
||||
#ifdef VAC
|
||||
HANDLE dirp;
|
||||
#else
|
||||
ptrdiff_t dirp;
|
||||
#endif
|
||||
|
||||
char filespec[255];
|
||||
|
||||
|
||||
int
|
||||
osd_ffi_(char *dir, char *name, char *tab_res, int *max, int l_dir, int l_name, int l_tab)
|
||||
{
|
||||
char file[255], directory[255];
|
||||
int ii, jj, kk, nb_file;
|
||||
#ifdef VAC
|
||||
BOOL fini ;
|
||||
#else
|
||||
int fini ;
|
||||
#endif
|
||||
|
||||
/***** Le Nom de la directory ******/
|
||||
if (*dir == ' ') {
|
||||
directory[0] = '.';
|
||||
directory[1] = '/';
|
||||
directory[2] = 0 ;
|
||||
}
|
||||
else {
|
||||
for (ii=0; ii<l_dir && ii<255 && *dir != ' '; ii++) {
|
||||
directory[ii] = *(dir++);
|
||||
if ( directory [ii] == '\\' ) directory [ii] = '/' ;
|
||||
}
|
||||
directory[ii]=0;
|
||||
}
|
||||
|
||||
/***** Le Nom de fichier recherche *******/
|
||||
for (ii=0; ii<l_name && ii<255 && *name != ' '; ii++)
|
||||
file[ii] = *(name++);
|
||||
file[ii]=0;
|
||||
|
||||
/****** On ouvre le directory pour trouver les fichiers ********/
|
||||
nb_file=0;
|
||||
|
||||
strcpy(filespec, directory );
|
||||
strcat(filespec, file );
|
||||
|
||||
#ifdef VAC
|
||||
if ((dirp = FindFirstFile(filespec, zeptr)) != INVALID_HANDLE_VALUE ) {
|
||||
#else
|
||||
if ((dirp = _findfirst(filespec, &zeptr)) != -1 ) {
|
||||
#endif
|
||||
fini = 0 ;
|
||||
while (nb_file < *max && (! fini ) ) {
|
||||
|
||||
/*====== Si on trouve un fichier qui lui ressemble ==========*/
|
||||
|
||||
|
||||
/*======= On copie sa valeur ========*/
|
||||
/* avec la directorie */
|
||||
/* jj tab_res, kk la ligne ,ii le nom */
|
||||
jj = nb_file * l_tab;
|
||||
kk = 0;
|
||||
if (directory[0] != '.') {
|
||||
for (; kk<l_tab && directory[kk] != 0; kk++,jj++)
|
||||
*(tab_res + jj) = directory[kk];
|
||||
|
||||
if (directory[kk-1] != '/') *(tab_res + (jj++)) = '/';
|
||||
}
|
||||
|
||||
#ifdef VAC
|
||||
for (ii=0; (kk)<l_tab && *((*zeptr).cFileName+ii); ii++,jj++,kk++)
|
||||
*(tab_res + jj) = *((*zeptr).cFileName + ii);
|
||||
#else
|
||||
for (ii=0; (kk)<l_tab && *(zeptr.name+ii); ii++,jj++,kk++)
|
||||
*(tab_res + jj) = *(zeptr.name + ii);
|
||||
#endif
|
||||
|
||||
/*======= En completant avec blanc ======*/
|
||||
|
||||
for (; kk<l_tab ; jj++,kk++)
|
||||
*(tab_res + jj) = ' ';
|
||||
nb_file++;
|
||||
|
||||
#ifdef VAC
|
||||
fini = FindNextFile(dirp, zeptr );
|
||||
#else
|
||||
fini = _findnext(dirp, &zeptr );
|
||||
#endif
|
||||
}
|
||||
}
|
||||
/***** pas de tri du tableau tab_res par ordre alpha *****/
|
||||
|
||||
#ifdef VAC
|
||||
if (dirp != INVALID_HANDLE_VALUE) FindClose(dirp);
|
||||
#else
|
||||
if (dirp) _findclose(dirp);
|
||||
#endif
|
||||
|
||||
return(nb_file);
|
||||
}
|
||||
#endif
|
||||
|
||||
@ -1,43 +0,0 @@
|
||||
/*
|
||||
Created by: PLOTNIKOV Eugeny
|
||||
Copyright (c) 1992-1999 Matra Datavision
|
||||
Copyright (c) 1999-2014 OPEN CASCADE SAS
|
||||
|
||||
This file is part of Open CASCADE Technology software library.
|
||||
|
||||
This library is free software; you can redistribute it and/or modify it under
|
||||
the terms of the GNU Lesser General Public License version 2.1 as published
|
||||
by the Free Software Foundation, with special exception defined in the file
|
||||
OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
|
||||
distribution for complete text of the license and disclaimer of any warranty.
|
||||
|
||||
Alternatively, this file may be used under the terms of Open CASCADE
|
||||
commercial license or contractual agreement.
|
||||
*/
|
||||
|
||||
#ifdef WNT
|
||||
/******************************************************************************/
|
||||
/* Purpose: Dummy routine to simulate UNIX's 'symlink'. */
|
||||
/* Warning: Symbolic links are not supported on Windows NT yet. So, in this */
|
||||
/* case simple copying of file is performing. */
|
||||
/******************************************************************************/
|
||||
/***/
|
||||
#define STRICT
|
||||
#include <windows.h>
|
||||
#include <tchar.h>
|
||||
|
||||
#ifdef __cplusplus
|
||||
extern "C" int symlink ( const _TCHAR*, const _TCHAR* );
|
||||
#endif /* __cplusplus */
|
||||
/***/
|
||||
/******************************* symlink **************************************/
|
||||
/***/
|
||||
__declspec( dllexport ) int symlink ( const _TCHAR* name1, const _TCHAR* name2 ) {
|
||||
|
||||
return CopyFile ( name1, name2, FALSE ) == TRUE ? 0 : -1;
|
||||
|
||||
} /* end symlink */
|
||||
/***/
|
||||
/******************************************************************************/
|
||||
#endif
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user