chiark / gitweb /
Change `-ise' to `-ize' throughout.
[mLib] / quis.c
CommitLineData
0875b58f 1/* -*-c-*-
2 *
0bd98442 3 * $Id: quis.c,v 1.4 1999/05/06 19:51:35 mdw Exp $
0875b58f 4 *
5 * Setting the program name
6 *
7 * (c) 1998 Straylight/Edgeware
8 */
9
c846879c 10/*----- Licensing notice --------------------------------------------------*
0875b58f 11 *
12 * This file is part of the mLib utilities library.
13 *
14 * mLib is free software; you can redistribute it and/or modify
c846879c 15 * it under the terms of the GNU Library General Public License as
16 * published by the Free Software Foundation; either version 2 of the
17 * License, or (at your option) any later version.
18 *
0875b58f 19 * mLib is distributed in the hope that it will be useful,
20 * but WITHOUT ANY WARRANTY; without even the implied warranty of
21 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c846879c 22 * GNU Library General Public License for more details.
23 *
24 * You should have received a copy of the GNU Library General Public
0bd98442 25 * License along with mLib; if not, write to the Free
26 * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
27 * MA 02111-1307, USA.
0875b58f 28 */
29
30/*----- Revision history --------------------------------------------------*
31 *
32 * $Log: quis.c,v $
0bd98442 33 * Revision 1.4 1999/05/06 19:51:35 mdw
34 * Reformatted the LGPL notice a little bit.
35 *
c846879c 36 * Revision 1.3 1999/05/05 18:50:31 mdw
37 * Change licensing conditions to LGPL.
38 *
1c66031e 39 * Revision 1.2 1999/02/28 15:16:29 mdw
40 * quis: remove the leading `-' from the name, in case we're invoked as a
41 * login shell.
42 *
43 * Revision 1.1.1.1 1998/06/17 23:44:42 mdw
44 * Initial version of mLib
0875b58f 45 *
46 */
47
48/*----- Header files ------------------------------------------------------*/
49
50#include <stdarg.h>
51#include <stdio.h>
52#include <stdlib.h>
53#include <string.h>
54
55#include "quis.h"
56
57/*----- Global variables --------------------------------------------------*/
58
59const char *pn__name = "<UNNAMED>"; /* Program name */
60
61/*----- Functions provided ------------------------------------------------*/
62
63/* --- @quis@ --- *
64 *
65 * Arguments: ---
66 *
67 * Returns: Pointer to the program name.
68 *
69 * Use: Returns the program name.
70 */
71
72const char *quis(void) { return (QUIS); }
73
74/* --- @ego@ --- *
75 *
76 * Arguments: @const char *p@ = pointer to program name
77 *
78 * Returns: ---
79 *
80 * Use: Tells mLib what the program's name is.
81 */
82
83#ifndef PATHSEP
84# if defined(__riscos)
85# define PATHSEP '.'
86# elif defined(__unix) || defined(unix)
87# define PATHSEP '/'
88# else
89# define PATHSEP '\\'
90# endif
91#endif
92
93void ego(const char *p)
94{
95 const char *q = p;
96 while (*q) {
97 if (*q++ == PATHSEP)
98 p = q;
99 }
1c66031e 100 if (*p == '-')
101 p++;
0875b58f 102 pn__name = p;
103}
104
105/*----- That's all, folks -------------------------------------------------*/