*** src/command.c.orig Mon Nov 7 15:23:31 1994 --- src/command.c Mon Aug 5 06:32:38 1996 *************** *** 244,249 **** --- 244,251 ---- "legendre series: n = 1,...N { Pn(X) }"}, {"lo!rentzian", do_stfunc, "set function lorentzian", "", "Lorentzian series: n = 3, 6...N { A[n-1]*((X*A[n])^2/((X^2-A[n-2]^2)^2+(X*A[n])^2) }"}, + {"n!one", do_stfunc, "set function none", "", + "none"}, {"p!olynomial", do_stfunc, "set function polynomial", "", "power series: n = 1,...N { A[n]*X^(n-1) }"}, {"u!ser", do_stfunc, "set function user", "definition", *************** *** 268,273 **** --- 270,277 ---- "least square linear regression"}, {"m!l_fit", do_stmeth, "set method ml_fit", "", "Marquardt-Levenberg iterative nonlinear fit"}, + {"n!one", do_stmeth, "set method none", "", + "none"}, {"s!vd_fit", do_stmeth, "set method svd_fit", "", "singular value decomposition linear fit"}, { 0, 0, 0, 0, 0 } *** src/fudgit.h.orig Thu Sep 8 16:02:47 1994 --- src/fudgit.h Mon Aug 5 06:32:38 1996 *************** *** 97,103 **** * name. * Ideally, this exception is left for .fudgitrc. */ ! /* #define EXTENSION ".ft" */ /* The following are required when defining argument prototypes of * loaded routines. */ --- 97,103 ---- * name. * Ideally, this exception is left for .fudgitrc. */ ! #define EXTENSION ".ft" /* The following are required when defining argument prototypes of * loaded routines. */ *** src/setshow.c.orig Mon Nov 7 07:57:49 1994 --- src/setshow.c Mon Aug 5 06:32:39 1996 *************** *** 67,73 **** int Ft_Funci; Meth Ft_Method[METHNUM] = { ! {"none", "none"}, {"ls_r!eg", "least square linear regression"}, {"lad!_reg", "least absolute deviation linear regression"}, {"ls_f!it", "least square linear fit"}, --- 67,73 ---- int Ft_Funci; Meth Ft_Method[METHNUM] = { ! {"n!one", "none"}, {"ls_r!eg", "least square linear regression"}, {"lad!_reg", "least absolute deviation linear regression"}, {"ls_f!it", "least square linear fit"}, *************** *** 76,82 **** }; Func Ft_Function[FUNCNUM] = { ! {"none", "none"}, {"str!aight", "straight line"}, {"po!lynomial", "polynomial"}, {"leg!endre", "Legendre polynomial"}, --- 76,82 ---- }; Func Ft_Function[FUNCNUM] = { ! {"n!one", "none"}, {"str!aight", "straight line"}, {"po!lynomial", "polynomial"}, {"leg!endre", "Legendre polynomial"}, *** src/vgetargp.c.orig Fri Sep 2 23:02:47 1994 --- src/vgetargp.c Mon Aug 5 06:32:39 1996 *************** *** 75,93 **** /* go along the string */ while (*b != '\0' && argno < MAXTOKEN) { ! switch (*b) { #ifdef BACKSLASH ! case '\\': /* only recognize \$ in non fmodes */ ! if (leavequotes == ERRR) { ! leavequotes = ( Ft_almost(p[0], "pm!ode") || ! Ft_almost(p[0], "cm!ode") || ! Ft_almost(p[0], "le!t") ); ! } ! if (expansion && b[1] != '\n' && (!leavequotes || b[1] == '$')) { ! b++; ! } ! COPY(b); ! break; #endif case SQUOTE: /* take following as one string, + turn off exp */ if (leavequotes == 1 || indquotes || inpar) { --- 75,187 ---- /* go along the string */ while (*b != '\0' && argno < MAXTOKEN) { ! switch (*b) ! { #ifdef BACKSLASH ! /* add support for C-style escape sequences */ ! case '\\': ! { ! if (leavequotes == ERRR) { ! leavequotes = ( ! Ft_almost(p[0], "pm!ode") || ! Ft_almost(p[0], "cm!ode") || ! Ft_almost(p[0], "le!t") ); ! } ! ! /* only recognize escape sequences in non fmodes */ ! if (expansion && b[1] != '\n' && (!leavequotes || b[1] == '$')) { ! int dummy = -1; ! int * dptr = &dummy; ! b++; /* skip over '\\' */ ! ! switch (*b) ! { ! case '\0': ! break; ! case '\'': ! dummy = '\''; ! break; ! case '\"': ! dummy = '\"'; ! break; ! case '$': ! dummy = '$'; ! break; ! case '?': ! dummy = '\?'; ! break; ! case 'a': ! dummy = '\a'; ! break; ! case 'b': ! dummy = '\b'; ! break; ! case 'f': ! dummy = '\f'; ! break; ! case 'n': ! dummy = '\n'; ! break; ! case 'r': ! dummy = '\r'; ! break; ! case 't': ! dummy = '\t'; ! break; ! case 'x': ! if (!isxdigit(b[1])) ! break; ! b++; ! dummy = tolower(*b) - ! (isdigit(*b) ? '0' : ('a' - 10)); ! if (!isxdigit(b[1])) ! break; ! b++; ! dummy *= 16; ! dummy += tolower(*b) - ! (isdigit(*b) ? '0' : ('a' - 10)); ! break; ! case 'v': ! dummy = '\v'; ! break; ! case '0': ! case '1': ! case '2': ! case '3': ! case '4': ! case '5': ! case '6': ! case '7': ! dummy = *b - '0'; ! if ((b[1] < '0') || (b[1] > '7')) ! break; ! b++; ! dummy *= 8; ! dummy += *b - '0'; ! if ((b[1] < '0') || (b[1] > '7')) ! break; ! b++; ! dummy *= 8; ! dummy += *b - '0'; ! break; ! case '\\': ! dummy = '\\'; ! break; ! default: ! break; ! } ! if (dummy < 0) { ! dummy = '\\'; ! } else { ! b++; ! } ! COPY(dptr); ! break; ! } else { ! COPY(b); ! break; ! } ! } #endif case SQUOTE: /* take following as one string, + turn off exp */ if (leavequotes == 1 || indquotes || inpar) {