date and time created 88/07/21 17:35:15 by marc

SCCS-vsn: local/toolchest/ksh/shlib/adjust.c 1.1

diff --git a/usr/src/local/toolchest/ksh/shlib/adjust.c b/usr/src/local/toolchest/ksh/shlib/adjust.c
new file mode 100644 (file)
index 0000000..990f33a
--- /dev/null
+++ b/usr/src/local/toolchest/ksh/shlib/adjust.c
@@ -0,0 +1,138 @@
+/*
+
+ *      Copyright (c) 1984, 1985, 1986 AT&T
+ *      All Rights Reserved
+
+ *      THIS IS UNPUBLISHED PROPRIETARY SOURCE 
+ *      CODE OF AT&T.
+ *      The copyright notice above does not 
+ *      evidence any actual or intended
+ *      publication of such source code.
+
+ */
+/* @(#)adjust.c        1.1 */
+
+/*
+ *   ADJUST.C
+ *
+ *   Programmer:  D. A. Lambeth
+ *
+ *        Owner:  D. A. Lambeth
+ *
+ *         Date:  April 17, 1980
+ *
+ *
+ *
+ *   CHATTRIB (NODE, NEWATTS)
+ *
+ *        Give NODE the attribute(s) NEWATTS, and change its
+ *        value to conform to the new attributes.
+ *
+ *
+ *
+ *   See Also:  TYPESET(I)
+ */
+
+
+#include     "name.h"
+#include     "flags.h"
+
+extern char *valup();
+extern char *malloc();
+extern char *strcpy();
+extern void fassign();
+extern void unassign();
+extern void free();
+#ifdef BSD
+#define strchr index
+#endif /* BSD */
+extern char *strchr();
+#ifdef NAME_SCOPE
+extern struct Namnod *copy_nod();
+#endif
+#ifdef apollo
+extern void    ev_$delete_var();
+extern void    ev_$set_var();
+#endif /* apollo */
+
+
+/*
+ *   CHATTRIB (NODE, NEWATTS)
+ *
+ *        struct Namnod *NODE;
+ *
+ *        int NEWATTS;
+ *
+ *       int size;
+ *
+ *   Give NODE the attributes NEWATTS, and change its current
+ *   value to conform to NEWATTS.  The SIZE of left and right
+ *   justified fields may be given.
+ */
+
+chattrib (node, newatts, size)
+struct Namnod *node;
+unsigned int newatts;
+{
+       register char *sp;
+       register char *cp = NULL;
+       register struct Namnod *np = node;
+       register unsigned int n;
+
+#ifdef NAME_SCOPE
+       if(np->value.namflg&C_WRITE)
+               np = copy_nod(np,1);
+#endif
+       /* handle attributes that do not change data separately */
+       n = np->value.namflg;
+#ifdef apollo
+       if(((n^newatts)&N_EXPORT))
+       /* record changes to the environment */
+       {
+               short namlen = strlen(np->namid);
+               if(cp = strchr(np->namid,'='))
+               {
+                       namlen = cp - np->namid;
+                       cp = NULL;
+               }
+               if(n&N_EXPORT)
+                       ev_$delete_var(np->namid,&namlen);
+               else
+               {
+                       char *vp = valup(np);
+                       short vallen = strlen(vp);
+                       ev_$set_var(np->namid,&namlen,vp,&vallen);
+               }
+       }
+#endif /* apollo */
+       if(size==0 && ((n^newatts)&~(E_FLAG|N_IMPORT|N_EXPORT|N_RDONLY|T_FORM))==0)
+       {
+               if(((n^newatts)&N_EXPORT) && (cp=strchr(np->namid,'=')))
+               {
+                       /* get rid of import attribute */
+                       *cp = 0;
+                       newatts &= ~N_IMPORT;
+               }
+               np->value.namflg = newatts;
+               return;
+       }
+       if (sp = valup (np))
+       {
+               cp = malloc ((n=strlen (sp)) + 1);
+               strcpy (cp, sp);
+               unassign(np);
+               if(size==0 && (newatts&(L_JUST|R_JUST|Z_FILL)))
+                       np->namsz =  n;
+        else
+                       np->namsz = size;
+       }
+       else
+               np->namsz = size;
+       np->value.namflg = newatts;
+       if (cp != NULL)
+       {
+               fassign (np, cp);
+               free(cp);
+       }
+       return;
+}