[mLib] / quis.c

/* -*-c-*-
 *
 * $Id: quis.c,v 1.2 1999/02/28 15:16:29 mdw Exp $
 *
 * Setting the program name
 *
 * (c) 1998 Straylight/Edgeware
 */

/*----- Licensing notice --------------------------------------------------*
 *
 * This file is part of the mLib utilities library.
 *
 * mLib 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.
 *
 * mLib 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 mLib; if not, write to the Free Software Foundation,
 * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/*----- Revision history --------------------------------------------------*
 *
 * $Log: quis.c,v $
 * Revision 1.2  1999/02/28 15:16:29  mdw
 * quis: remove the leading `-' from the name, in case we're invoked as a
 * login shell.
 *
 * Revision 1.1.1.1  1998/06/17 23:44:42  mdw
 * Initial version of mLib
 *
 */

/*----- Header files ------------------------------------------------------*/

#include <stdarg.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "quis.h"

/*----- Global variables --------------------------------------------------*/

const char *pn__name = "<UNNAMED>";	/* Program name */

/*----- Functions provided ------------------------------------------------*/

/* --- @quis@ --- *
 *
 * Arguments:	---
 *
 * Returns:	Pointer to the program name.
 *
 * Use:		Returns the program name.
 */

const char *quis(void) { return (QUIS); }

/* --- @ego@ --- *
 *
 * Arguments:	@const char *p@ = pointer to program name
 *
 * Returns:	---
 *
 * Use:		Tells mLib what the program's name is.
 */

#ifndef PATHSEP
#  if defined(__riscos)
#    define PATHSEP '.'
#  elif defined(__unix) || defined(unix)
#    define PATHSEP '/'
#  else
#    define PATHSEP '\\'
#  endif
#endif

void ego(const char *p)
{
  const char *q = p;
  while (*q) {
    if (*q++ == PATHSEP)
      p = q;
  }
  if (*p == '-')
    p++;
  pn__name = p;
}

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