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);
}
|