librols/saveargs.c

   1 /*
   2  * This file has been modified for the cdrkit suite.
   3  *
   4  * The behaviour and appearence of the program code below can differ to a major
   5  * extent from the version distributed by the original author(s).
   6  *
   7  * For details, see Changelog file distributed with the cdrkit package. If you
   8  * received this file from another source then ask the distributing person for
   9  * a log of modifications.
  10  *
  11  */
  12
  13 /* @(#)saveargs.c       1.11 03/07/13 Copyright 1995-2003 J. Schilling */
  14 /*
  15  *      save argc, argv for command error printing routines
  16  *
  17  *      Copyright (c) 1995-2003 J. Schilling
  18  */
  19 /*
  20  * This program is free software; you can redistribute it and/or modify
  21  * it under the terms of the GNU General Public License version 2
  22  * as published by the Free Software Foundation.
  23  *
  24  * This program is distributed in the hope that it will be useful,
  25  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  26  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  27  * GNU General Public License for more details.
  28  *
  29  * You should have received a copy of the GNU General Public License along with
  30  * this program; see the file COPYING.  If not, write to the Free Software
  31  * Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  32  */
  33
  34 #include <mconfig.h>
  35 #include <standard.h>
  36 #include <strdefs.h>
  37 #include <stdxlib.h>
  38 #include <avoffset.h>
  39 #include <schily.h>
  40
  41 #if     !defined(AV_OFFSET) || !defined(FP_INDIR)
  42 #       ifdef   HAVE_SCANSTACK
  43 #       undef   HAVE_SCANSTACK
  44 #       endif
  45 #endif
  46
  47 static  int     ac_saved;
  48 static  char    **av_saved;
  49 static  char    *av0_saved;
  50 static  char    *progname_saved;
  51
  52 static  char    av0_sp[32];     /* av0 space, avoid malloc() in most cases */
  53 static  char    prn_sp[32];     /* name space, avoid malloc() in most cases */
  54 static  char    dfl_str[] = "?";
  55
  56 EXPORT void
  57 save_args(ac, av)
  58         int     ac;
  59         char    *av[];
  60 {
  61         int     slen;
  62
  63         ac_saved = ac;
  64         av_saved = av;
  65
  66         if (av0_saved && av0_saved != av0_sp)
  67                 free(av0_saved);
  68
  69         slen = strlen(av[0]) + 1;
  70
  71         if (slen <= (int)sizeof (av0_sp))
  72                 av0_saved = av0_sp;
  73         else
  74                 av0_saved = malloc(slen);
  75
  76         if (av0_saved)
  77                 strcpy(av0_saved, av[0]);
  78 }
  79
  80 EXPORT int
  81 saved_ac()
  82 {
  83         return (ac_saved);
  84 }
  85
  86 EXPORT char **
  87 saved_av()
  88 {
  89         return (av_saved);
  90 }
  91
  92 EXPORT char *
  93 saved_av0()
  94 {
  95         return (av0_saved);
  96 }
  97
  98 EXPORT void
  99 set_progname(name)
 100         const char      *name;
 101 {
 102         int     slen;
 103
 104         if (progname_saved && progname_saved != prn_sp)
 105                 free(progname_saved);
 106
 107         slen = strlen(name) + 1;
 108
 109         if (slen <= sizeof (prn_sp))
 110                 progname_saved = prn_sp;
 111         else
 112                 progname_saved = malloc(slen);
 113
 114         if (progname_saved)
 115                 strcpy(progname_saved, name);
 116 }
 117
 118 EXPORT char *
 119 get_progname()
 120 {
 121 #ifdef  HAVE_SCANSTACK
 122         char    *progname;
 123 #endif
 124
 125         if (progname_saved)
 126                 return (progname_saved);
 127         if (av0_saved)
 128                 return (av0_saved);
 129 #ifdef  HAVE_SCANSTACK
 130         progname = getav0();            /* scan stack to get argv[0] */
 131         if (progname)
 132                 return (progname);
 133 #endif
 134         return (dfl_str);
 135 }