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
|
/*
* xtel - Emulateur MINITEL sous X11
*
* Copyright (C) 1991-1996 Lectra Systemes & Pierre Ficheux
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
static char rcsid[] = "$Id: misc.c,v 1.4 1998/10/02 15:05:24 pierre Exp $";
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
static char buf[256];
/*
* Construit un nom codee ISO-8859 a partir de sequences ASCII
* ex: T\351l\351tel --> Tltel
*/
char *build_name (s)
char *s;
{
register int i = 0, ii = 0;
int x;
char *ss;
memset (buf, 0, 256);
while (*(s+i)) {
if (*(s+i) == '\\') {
sscanf (s+i+1, "%o", &x);
buf[ii++] = (char)x;
i += 4;
}
else {
buf[ii++] = *(s+i);
i++;
}
}
ss = calloc (1, i+1);
strcpy (ss, buf);
return ss;
}
/* Retourne le token suivant */
char *next_token (s, tok)
char *s, *tok;
{
char *pt = strtok (s, tok);
if (pt)
return pt;
else
return "";
}
/* Fonction 'basename' */
char *xtel_basename (s)
char *s;
{
register int i;
for (i = strlen(s)-1 ; s[i] != 0 && s[i] != '/' && i >= 0 ; i--);
return (s+i+1);
}
|
