da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#pragma prototyped

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "defs.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <error.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <stak.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "io.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "name.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "history.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "builtins.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include "streval.h"

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <tmx.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#include <ccode.h>

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinunion types_t

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin unsigned char c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin short h;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int i;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin long l;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sflong_t ll;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdouble_t ld;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin double d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin float f;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int *ip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char **p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct printf

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sffmt_t hdr;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int argsize;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int intvar;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char **nextarg;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin char *lastarg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char cescape;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shell_t *sh;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int extend(Sfio_t*,void*, Sffmt_t*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic const char preformat[] = "";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char *genformat(char*);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int fmtvecho(const char*, struct printf*);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic ssize_t fmtbase64(Sfio_t*, char*, int);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstruct print

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Shell_t *sh;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char *options;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char raw;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char echon;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin};

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char* nullarg[] = { 0, 0 };

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !SHOPT_ECHOPRINT

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int B_echo(int argc, char *argv[],void *extra)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static char bsd_univ;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct print prdata;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.options = sh_optecho+5;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.raw = prdata.echon = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin prdata.sh = ((Shbltin_t*)extra)->shp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin NOT_USED(argc);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* This mess is because /bin/echo on BSD is different */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!prdata.sh->universe)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *universe;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(universe=astconf("UNIVERSE",0,0))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin bsd_univ = (strcmp(universe,"ucb")==0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.sh->universe = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!bsd_univ)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(b_print(0,argv,&prdata));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.options = sh_optecho;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.raw = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(argv[1] && *argv[1]=='-')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(strcmp(argv[1],"-n")==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.echon = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if !SHOPT_ECHOE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(strcmp(argv[1],"-e")==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.raw = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(strcmp(argv[1],"-ne")==0 || strcmp(argv[1],"-en")==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.raw = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.echon = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_ECHOE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(b_print(0,argv,&prdata));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_ECHOPRINT */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint b_printf(int argc, char *argv[],void *extra)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct print prdata;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin NOT_USED(argc);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memset(&prdata,0,sizeof(prdata));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin prdata.sh = ((Shbltin_t*)extra)->shp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin prdata.options = sh_optprintf;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(b_print(-1,argv,&prdata));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint b_print(int argc, char *argv[], void *extra)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register Sfio_t *outfile;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int exitval=0,n, fd = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register Shell_t *shp = ((Shbltin_t*)extra)->shp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin const char *options, *msg = e_file+4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *format = 0;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int sflag = 0, nflag=0, rflag=0, vflag=0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(argc>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin options = sh_optprint;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nflag = rflag = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin format = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct print *pp = (struct print*)extra;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp = pp->sh;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin options = pp->options;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(argc==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nflag = pp->echon;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rflag = pp->raw;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto skip;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((n = optget(argv,options))) switch(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nflag++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'p':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = shp->coutpipe;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin msg = e_query;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'f':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin format = opt_info.arg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* print to history file */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!sh_histinit((void*)shp))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),e_history);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = sffileno(shp->hist_ptr->histfp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onstate(SH_HISTORY);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sflag++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'e':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rflag = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'r':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rflag = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'u':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = (int)strtol(opt_info.arg,&opt_info.arg,10);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*opt_info.arg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(fd<0 || fd >= shp->lim.open_max)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!(sh.inuse_bits&(1<<fd)) && (sh_inuse(fd) || (shp->hist_ptr && fd==sffileno(shp->hist_ptr->histfp))))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fd = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case 'v':

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz vflag='v';

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz break;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz case 'C':

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz vflag='C';

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case ':':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* The following is for backward compatibility */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if OPT_VERSION >= 19990123

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(strcmp(opt_info.name,"-R")==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(strcmp(opt_info.option,"-R")==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin rflag = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(error_info.errors==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv += opt_info.index+1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* special case test for -Rn */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(strchr(argv[-1],'n'))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nflag++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*argv && strcmp(*argv,"-n")==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nflag++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto skip2;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,2, "%s", opt_info.arg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '?':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_usage(2), "%s", opt_info.arg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv += opt_info.index;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(error_info.errors || (argc<0 && !(format = *argv++)))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_usage(2),"%s",optusage((char*)0));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(vflag && format)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz errormsg(SH_DICT,ERROR_usage(2),"-%c and -f are mutually exclusive",vflag);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinskip:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(format)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin format = genformat(format);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* handle special case of '-' operand for print */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(argc>0 && *argv && strcmp(*argv,"-")==0 && strcmp(argv[-1],"--"))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin argv++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinskip2:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd < 0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errno = EBADF;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!(n=shp->fdstatus[fd]))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = sh_iocheckfd(shp,fd);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(n&IOWRITE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* don't print error message for stdout for compatibility */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fd==1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_system(1),msg);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!(outfile=shp->sftable[fd]))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_onstate(SH_NOTRACK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = SF_WRITE|((n&IOREAD)?SF_READ:0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin shp->sftable[fd] = outfile = sfnew(NIL(Sfio_t*),shp->outbuff,IOBSIZE,fd,n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_NOTRACK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfpool(outfile,shp->outpool,SF_WRITE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* turn off share to guarantee atomic writes for printf */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = sfset(outfile,SF_SHARE|SF_PUBLIC,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(format)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* printf style print */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfio_t *pool;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct printf pdata;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin memset(&pdata, 0, sizeof(pdata));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pdata.sh = shp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pdata.hdr.version = SFIO_VERSION;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pdata.hdr.extf = extend;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pdata.nextarg = argv;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_STOPOK);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pool=sfpool(sfstderr,NIL(Sfio_t*),SF_WRITE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin do

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(shp->trapnote&SH_SIGSET)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pdata.hdr.form = format;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(outfile,"%!",&pdata);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin } while(*pdata.nextarg && pdata.nextarg!=argv);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pdata.nextarg == nullarg && pdata.argsize>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfwrite(outfile,stakptr(staktell()),pdata.argsize);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(sffileno(outfile)!=sffileno(sfstderr))

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz sfsync(outfile);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfpool(sfstderr,pool,SF_WRITE);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin exitval = pdata.err;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(vflag)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin while(*argv)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fmtbase64(outfile,*argv++,vflag=='C');

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(!nflag)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz sfputc(outfile,'\n');

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* echo style print */

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(nflag && !argv[0])

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfsync((Sfio_t*)0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(sh_echolist(outfile,rflag,argv) && !nflag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(outfile,'\n');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sflag)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin hist_flush(shp->hist_ptr);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_offstate(SH_HISTORY);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n&SF_SHARE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfset(outfile,SF_SHARE|SF_PUBLIC,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfsync(outfile);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(exitval);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinint sh_echolist(Sfio_t *outfile, int raw, char *argv[])

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct printf pdata;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pdata.cescape = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pdata.err = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(!pdata.cescape && (cp= *argv++))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!raw && (n=fmtvecho(cp,&pdata))>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(n)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfwrite(outfile,stakptr(staktell()),n);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputr(outfile,cp,-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*argv)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfputc(outfile,' ');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sh_sigcheck();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(!pdata.cescape);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char strformat(char *s)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* t;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* b;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin b = t = s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for (;;)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch (c = *s++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\\':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*s==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = chresc(s - 1, &p);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin s = p;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c>UCHAR_MAX && mbwide())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin t += wctomb(t, c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='%')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '%';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = '%';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = 'Z';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(t - b);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *t++ = c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char *genformat(char *format)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char *fp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakseek(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputs(preformat);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputs(format);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fp = (char*)stakfreeze(1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin strformat(fp+sizeof(preformat)-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(fp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic char *fmthtml(const char *string)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *cp = string;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c, offset = staktell();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(c= *(unsigned char*)cp++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((s=mbsize(cp-1)) > 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp += (s-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c=='<')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputs("&lt;");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='>')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputs("&gt;");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='&')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputs("&amp;");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='"')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputs("&quot;");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c=='\'')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputs("&apos;");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(c==' ')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputs("&nbsp;");

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(!isprint(c) && c!='\n' && c!='\r')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin sfprintf(stkstd,"&#%X;",CCMAPC(c,CC_NATIVE,CC_ASCII));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputc(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputc(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(stakptr(offset));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if 1

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic ssize_t fmtbase64(Sfio_t *iop, char *string, int alt)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic void *fmtbase64(char *string, ssize_t *sz, int alt)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *cp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdouble_t d;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin ssize_t size;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *np = nv_open(string, NiL, NV_VARNAME|NV_NOASSIGN|NV_NOADD);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin static union types_t number;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!np || nv_isnull(np))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(sh_isoption(SH_NOUNSET))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin errormsg(SH_DICT,ERROR_exit(1),e_notset,string);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nv_isattr(np,NV_INTEGER))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = nv_getnum(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nv_isattr(np,NV_DOUBLE))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nv_isattr(np,NV_LONG))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(Sfdouble_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin number.ld = d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(nv_isattr(np,NV_SHORT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(float);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin number.f = (float)d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(double);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin number.d = (double)d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nv_isattr(np,NV_LONG))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(Sflong_t);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin number.ll = (Sflong_t)d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(nv_isattr(np,NV_SHORT))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(short);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin number.h = (short)d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = sizeof(short);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin number.i = (int)d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if 1

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(sfwrite(iop, (void*)&number, size));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sz)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *sz = size;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return((void*)&number);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nv_isattr(np,NV_BINARY))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#if 1

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin Namfun_t *fp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin for(fp=np->nvfun; fp;fp=fp->next)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(fp->disc && fp->disc->writef)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(fp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return (*fp->disc->writef)(np, iop, 0, fp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin int n = nv_size(np);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(nv_isarray(np))

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz nv_onattr(np,NV_RAW);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz cp = nv_getval(np);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz nv_offattr(np,NV_RAW);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz else

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz cp = (char*)np->nvalue.cp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if((size = n)==0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin size = strlen(cp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin size = sfwrite(iop, cp, size);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(n?n:size);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(nv_isarray(np) && nv_arrayptr(np))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_outnode(np,iop,(alt?-1:0),0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfputc(iop,')');

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(sftell(iop));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(alt && nv_isvtree(np))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin nv_onattr(np,NV_EXPORT);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!(cp = nv_getval(np)))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin size = strlen(cp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(sfwrite(iop,cp,size));

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_onattr(np,NV_RAW);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp = nv_getval(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(nv_isattr(np,NV_BINARY))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_offattr(np,NV_RAW);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((size = nv_size(np))==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin size = strlen(cp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sz)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *sz = size;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return((void*)cp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin}

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chinstatic int varname(const char *str, int n)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin{

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin register int c,dot=1,len=1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(n < 0)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(*str=='.')

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin str++;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin n = strlen(str);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin for(;n > 0; n-=len)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#ifdef SHOPT_MULTIBYTE

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin len = mbsize(str);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = mbchar(str);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin c = *(unsigned char*)str++;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin#endif

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(dot && !(isalpha(c)||c=='_'))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else if(dot==0 && !(isalnum(c) || c=='_' || c == '.'))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin dot = (c=='.');

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin return(n==0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int extend(Sfio_t* sp, void* v, Sffmt_t* fe)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char* lastchar = "";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int neg = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdouble_t d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdouble_t longmin = LDBL_LLONG_MIN;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Sfdouble_t longmax = LDBL_LLONG_MAX;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int format = fe->fmt;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int fold = fe->base;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin union types_t* value = (union types_t*)v;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin struct printf* pp = (struct printf*)fe;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register char* argp = *pp->nextarg;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz char* w;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(fe->n_str>0 && varname(fe->t_str,fe->n_str) && (!argp || varname(argp,-1)))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(argp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pp->lastarg = argp;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin argp = pp->lastarg;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(argp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sfprintf(pp->sh->strbuf,"%s.%.*s%c",argp,fe->n_str,fe->t_str,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin argp = sfstruse(pp->sh->strbuf);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin else

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pp->lastarg = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->flags |= SFFMT_VALUE;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!argp || format=='Z')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(format)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'c':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->flags &= ~SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'q':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin format = 's';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* FALL THROUGH */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'H':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'B':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'P':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'R':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'Z':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'b':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 's';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->base = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = "";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->flags &= ~SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'a':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'e':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'f':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'g':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'A':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'E':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'F':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'G':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(SFFMT_LDOUBLE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ld = 0.;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->d = 0.;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ip = &pp->intvar;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'Q':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'T':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 'd';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = tmxgettime();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!strchr("DdXxoUu",format))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_formspec,format);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 'd';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(format)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'p':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->p = (char**)strtol(argp,&lastchar,10);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin Namval_t *np;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin np = nv_open(argp,sh.var_tree,NV_VARNAME|NV_NOASSIGN|NV_NOARRAY);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_unset(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_onattr(np,NV_INTEGER);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (np->nvalue.lp = new_of(int32_t,0))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *np->nvalue.lp = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_setsize(np,10);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(sizeof(int)==sizeof(int32_t))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ip = (int*)np->nvalue.lp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int32_t sl = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ip = (int*)(((char*)np->nvalue.lp) + (*((char*)&sl) ? 0 : sizeof(int)));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin nv_close(np);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'q':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'b':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 's':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'B':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'H':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'P':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'R':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 's';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(format=='s' && fe->base>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->p = pp->nextarg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp->nextarg = nullarg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->base = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = argp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->flags &= ~SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'c':

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(mbwide() && (n = mbsize(argp)) > 1)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz {

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fe->fmt = 's';

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz fe->size = n;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz value->s = argp;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz }

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz else if(fe->base >=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = argp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->c = *argp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->flags &= ~SFFMT_LONG;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'o':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'x':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'X':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'u':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'U':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin longmax = LDBL_ULLONG_MAX;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '.':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fe->size==2 && strchr("bcsqHPRQTZ",*fe->form))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = ((unsigned char*)argp)[0];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'd':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'D':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'i':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(*argp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\'':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '"':

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz w = argp + 1;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(mbwide() && mbsize(w) > 1)

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz value->ll = mbchar(w);

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz else

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz value->ll = *(unsigned char*)w++;

34f9b3eef6fdadbda0a846aa4d68691ac40eace5Roland Mainz if(w[0] && (w[0] != argp[0] || w[1]))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin errormsg(SH_DICT,ERROR_warn(0),e_charconst,argp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pp->err = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = sh_strnum(argp,&lastchar,0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(d<longmin)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_overflow,argp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp->err = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = longmin;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(d>longmax)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_overflow,argp);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp->err = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = longmax;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = (Sflong_t)d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(lastchar == *pp->nextarg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = *argp;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin lastchar = "";

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(neg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = -value->ll;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = sizeof(value->ll);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'a':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'e':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'f':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'g':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'A':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'E':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'F':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'G':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin d = sh_strnum(*pp->nextarg,&lastchar,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin switch(*argp)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case '\'':

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin case '"':

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin d = ((unsigned char*)argp)[1];

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(argp[2] && (argp[2] != argp[0] || argp[3]))

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin {

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin errormsg(SH_DICT,ERROR_warn(0),e_charconst,argp);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin pp->err = 1;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin default:

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin d = sh_strnum(*pp->nextarg,&lastchar,0);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin break;

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(SFFMT_LDOUBLE)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ld = d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = sizeof(value->ld);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->d = d;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = sizeof(value->d);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'Q':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = (Sflong_t)strelapsed(*pp->nextarg,&lastchar,1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'T':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = (Sflong_t)tmxdate(*pp->nextarg,&lastchar,TMX_NOW);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->ll = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 'd';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = sizeof(value->ll);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_formspec,format);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (format == '.')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->i = value->ll;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*lastchar)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_warn(0),e_argtype,format);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp->err = 1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp->nextarg++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin switch(format)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'Z':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 'c';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->base = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'b':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if((n=fmtvecho(value->s,pp))>=0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(pp->nextarg == nullarg)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp->argsize = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = stakptr(staktell());

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'B':

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin if(!sh.strbuf2)

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin sh.strbuf2 = sfstropen();

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fe->size = fmtbase64(sh.strbuf2,value->s, fe->flags&SFFMT_ALTER);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin value->s = sfstruse(sh.strbuf2);

7c2fbfb345896881c631598ee3852ce9ce33fb07April Chin fe->flags |= SFFMT_SHORT;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'H':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = fmthtml(value->s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'q':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = sh_fmtqf(value->s, !!(fe->flags & SFFMT_ALTER), fold);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'P':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin char *s = fmtmatch(value->s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(!s || *s==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_badregexp,value->s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = s;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'R':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = fmtre(value->s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(*value->s==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin errormsg(SH_DICT,ERROR_exit(1),e_badregexp,value->s);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'Q':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (fe->n_str>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 'd';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = sizeof(value->ll);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = fmtelapsed(value->ll, 1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 's';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'T':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(fe->n_str>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin n = fe->t_str[fe->n_str];

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->t_str[fe->n_str] = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin value->s = fmttmx(fe->t_str, value->ll);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->t_str[fe->n_str] = n;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else value->s = fmttmx(NIL(char*), value->ll);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->fmt = 's';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin fe->size = -1;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chinstatic int fmtvecho(const char *string, struct printf *pp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin{

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register const char *cp = string, *cpmax;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int c;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin register int offset = staktell();

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin int chlen;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(mbwide())

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if ((chlen = mbsize(cp)) > 1)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* Skip over multibyte characters */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp += chlen;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if((c= *cp++)==0 || c == '\\')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while((c= *cp++) && (c!='\\'));

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c==0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = --cp - string;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if(c>0)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakwrite((void*)string,c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(; c= *cp; cp++)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#if SHOPT_MULTIBYTE

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if (mbwide() && ((chlen = mbsize(cp)) > 1))

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakwrite(cp,chlen);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp += (chlen-1);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin continue;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#endif /* SHOPT_MULTIBYTE */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin if( c=='\\') switch(*++cp)

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'E':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = ('a'==97?'\033':39); /* ASCII/EBCDIC */

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'a':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\a';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'b':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\b';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'c':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp->cescape++;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin pp->nextarg = nullarg;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin goto done;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'f':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\f';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'n':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\n';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'r':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\r';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 'v':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\v';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 't':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\t';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '\\':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = '\\';

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin break;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case '0':

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = 0;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cpmax = cp + 4;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin while(++cp<cpmax && *cp>='0' && *cp<='7')

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin {

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c <<= 3;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c |= (*cp-'0');

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin default:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin cp--;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputc(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin }

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chindone:

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin c = staktell()-offset;

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakputc(0);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin stakseek(offset);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin return(c);

da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin}