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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
/*
Copyright 1990-2008 Light Infocon Tecnologia S/A
Este arquivo é parte do programa LightBase - Banco de Dados Textual Documental
O LightBase é um software livre; você pode redistribui-lo e/ou modifica-lo dentro
dos termos da Licença Pública Geral GNU como publicada pela Fundação do Software
Livre (FSF); na versão 2 da Licença.
Este programa é distribuído na esperança que possa ser útil, mas SEM NENHUMA
GARANTIA; sem uma garantia implícita de ADEQUAÇÃO a qualquer MERCADO ou APLICAÇÃO
EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
Você deve ter recebido uma cópia da Licença Pública Geral GNU versao 2, sob o
título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do
Software Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
*/
// C TRANSLATION FUNCTION
//
// extern "C" char * StripFileName( char *filename )
//
// VB TRANSLATION FUNCTION
//
// extern "C" long StripFileNameVB( char *filename )
//
// ARGUMENTS:
//
// filename : An ordinary VB or C string that contains a file name.
//
// RETURNS
//
// Either a C or VB string type, containing just the path. Note that
// the C version of the function copies over your existing string,
// whereas the VB version creates a new VB string.
//
// DESCRIPTION
//
// This function takes a file name, and strips off any filename and
// extension, leaving the drive and path name. These functions are
// very handy when it comes to wild card expansion, which is why
// they are in ArchiveLib.
//
// If you want to see how the C++ member functions perform these
// amazing feats, see OBJNAME.CPP.
//
// REVISION HISTORY
//
// May 22, 1994 1.0A : First release
//
// August 10, 1994 1.0B : Combined a bunch of #ifdefs into a single test
// against AL_VB
//
// The C translation function.
//
extern "C" char AL_DLL_FAR * AL_FUNCTION
//
// The VB translation function.
//
extern "C" long AL_FUNCTION
// C TRANSLATION FUNCTION
//
// extern "C" char * StripPath( char *filename )
//
// VB TRANSLATION FUNCTION
//
// extern "C" long StripPathVB( char *filename )
//
// ARGUMENTS:
//
// filename : An ordinary VB or C string that contains a file name.
//
// RETURNS
//
// Either a C or VB string type, with the drive and path stripped,
// leaving just a filename and extension. Note that
// the C version of the function copies over your existing string,
// whereas the VB version creates a new VB string.
//
// DESCRIPTION
//
// This function takes a file name, and strips off any path and drive
// information, leaving the file and extension. These functions are
// very handy when it comes to wild card expansion, which is why
// they are in ArchiveLib.
//
// If you want to see how the C++ member functions perform these
// amazing feats, see OBJNAME.CPP.
//
// REVISION HISTORY
//
// May 22, 1994 1.0A : First release
//
// August 10, 1994 1.0B : Combined a bunch of #ifdefs into a single test
// against AL_VB
//
// The C translation function.
//
extern "C" char AL_DLL_FAR * AL_FUNCTION
//
// The VB translation function
//
extern "C" long AL_FUNCTION