694 lines
70 KiB
HTML
694 lines
70 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
|
|
|
<html lang="en">
|
|
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
|
|
<title>LCOV - cov-bash.info - builtins/setattr.def</title>
|
|
<link rel="stylesheet" type="text/css" href="../gcov.css">
|
|
</head>
|
|
|
|
<body>
|
|
|
|
<table width="100%" border=0 cellspacing=0 cellpadding=0>
|
|
<tr><td class="title">LCOV - code coverage report</td></tr>
|
|
<tr><td class="ruler"><img src="../glass.png" width=3 height=3 alt=""></td></tr>
|
|
|
|
<tr>
|
|
<td width="100%">
|
|
<table cellpadding=1 border=0 width="100%">
|
|
<tr>
|
|
<td width="10%" class="headerItem">Current view:</td>
|
|
<td width="35%" class="headerValue"><a href="../index.html">top level</a> - <a href="index.html">builtins</a> - setattr.def<span style="font-size: 80%;"> (source / <a href="setattr.def.func-sort-c.html">functions</a>)</span></td>
|
|
<td width="5%"></td>
|
|
<td width="15%"></td>
|
|
<td width="10%" class="headerCovTableHead">Hit</td>
|
|
<td width="10%" class="headerCovTableHead">Total</td>
|
|
<td width="15%" class="headerCovTableHead">Coverage</td>
|
|
</tr>
|
|
<tr>
|
|
<td class="headerItem">Test:</td>
|
|
<td class="headerValue">cov-bash.info</td>
|
|
<td></td>
|
|
<td class="headerItem">Lines:</td>
|
|
<td class="headerCovTableEntry">124</td>
|
|
<td class="headerCovTableEntry">252</td>
|
|
<td class="headerCovTableEntryLo">49.2 %</td>
|
|
</tr>
|
|
<tr>
|
|
<td class="headerItem">Date:</td>
|
|
<td class="headerValue">2020-10-29 14:49:28</td>
|
|
<td></td>
|
|
<td class="headerItem">Functions:</td>
|
|
<td class="headerCovTableEntry">6</td>
|
|
<td class="headerCovTableEntry">9</td>
|
|
<td class="headerCovTableEntryLo">66.7 %</td>
|
|
</tr>
|
|
<tr><td><img src="../glass.png" width=3 height=3 alt=""></td></tr>
|
|
</table>
|
|
</td>
|
|
</tr>
|
|
|
|
<tr><td class="ruler"><img src="../glass.png" width=3 height=3 alt=""></td></tr>
|
|
</table>
|
|
|
|
<table cellpadding=0 cellspacing=0 border=0>
|
|
<tr>
|
|
<td><br></td>
|
|
</tr>
|
|
<tr>
|
|
<td>
|
|
<pre class="sourceHeading"> Line data Source code</pre>
|
|
<pre class="source">
|
|
<a name="1"><span class="lineNum"> 1 </span> : This file is setattr.def, from which is created setattr.c.</a>
|
|
<a name="2"><span class="lineNum"> 2 </span> : It implements the builtins "export" and "readonly", in Bash.</a>
|
|
<a name="3"><span class="lineNum"> 3 </span> : </a>
|
|
<a name="4"><span class="lineNum"> 4 </span> : Copyright (C) 1987-2015 Free Software Foundation, Inc.</a>
|
|
<a name="5"><span class="lineNum"> 5 </span> : </a>
|
|
<a name="6"><span class="lineNum"> 6 </span> : This file is part of GNU Bash, the Bourne Again SHell.</a>
|
|
<a name="7"><span class="lineNum"> 7 </span> : </a>
|
|
<a name="8"><span class="lineNum"> 8 </span> : Bash is free software: you can redistribute it and/or modify</a>
|
|
<a name="9"><span class="lineNum"> 9 </span> : it under the terms of the GNU General Public License as published by</a>
|
|
<a name="10"><span class="lineNum"> 10 </span> : the Free Software Foundation, either version 3 of the License, or</a>
|
|
<a name="11"><span class="lineNum"> 11 </span> : (at your option) any later version.</a>
|
|
<a name="12"><span class="lineNum"> 12 </span> : </a>
|
|
<a name="13"><span class="lineNum"> 13 </span> : Bash is distributed in the hope that it will be useful,</a>
|
|
<a name="14"><span class="lineNum"> 14 </span> : but WITHOUT ANY WARRANTY; without even the implied warranty of</a>
|
|
<a name="15"><span class="lineNum"> 15 </span> : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</a>
|
|
<a name="16"><span class="lineNum"> 16 </span> : GNU General Public License for more details.</a>
|
|
<a name="17"><span class="lineNum"> 17 </span> : </a>
|
|
<a name="18"><span class="lineNum"> 18 </span> : You should have received a copy of the GNU General Public License</a>
|
|
<a name="19"><span class="lineNum"> 19 </span> : along with Bash. If not, see <http://www.gnu.org/licenses/>.</a>
|
|
<a name="20"><span class="lineNum"> 20 </span> : </a>
|
|
<a name="21"><span class="lineNum"> 21 </span> : $PRODUCES setattr.c</a>
|
|
<a name="22"><span class="lineNum"> 22 </span> : </a>
|
|
<a name="23"><span class="lineNum"> 23 </span> : #include <config.h></a>
|
|
<a name="24"><span class="lineNum"> 24 </span> : </a>
|
|
<a name="25"><span class="lineNum"> 25 </span> : #if defined (HAVE_UNISTD_H)</a>
|
|
<a name="26"><span class="lineNum"> 26 </span> : # ifdef _MINIX</a>
|
|
<a name="27"><span class="lineNum"> 27 </span> : # include <sys/types.h></a>
|
|
<a name="28"><span class="lineNum"> 28 </span> : # endif</a>
|
|
<a name="29"><span class="lineNum"> 29 </span> : # include <unistd.h></a>
|
|
<a name="30"><span class="lineNum"> 30 </span> : #endif</a>
|
|
<a name="31"><span class="lineNum"> 31 </span> : </a>
|
|
<a name="32"><span class="lineNum"> 32 </span> : #include <stdio.h></a>
|
|
<a name="33"><span class="lineNum"> 33 </span> : #include "../bashansi.h"</a>
|
|
<a name="34"><span class="lineNum"> 34 </span> : #include "../bashintl.h"</a>
|
|
<a name="35"><span class="lineNum"> 35 </span> : </a>
|
|
<a name="36"><span class="lineNum"> 36 </span> : #include "../shell.h"</a>
|
|
<a name="37"><span class="lineNum"> 37 </span> : #include "../flags.h"</a>
|
|
<a name="38"><span class="lineNum"> 38 </span> : #include "common.h"</a>
|
|
<a name="39"><span class="lineNum"> 39 </span> : #include "bashgetopt.h"</a>
|
|
<a name="40"><span class="lineNum"> 40 </span> : </a>
|
|
<a name="41"><span class="lineNum"> 41 </span> : extern int posixly_correct;</a>
|
|
<a name="42"><span class="lineNum"> 42 </span> : extern int array_needs_making;</a>
|
|
<a name="43"><span class="lineNum"> 43 </span> : extern char *this_command_name;</a>
|
|
<a name="44"><span class="lineNum"> 44 </span> : extern sh_builtin_func_t *this_shell_builtin;</a>
|
|
<a name="45"><span class="lineNum"> 45 </span> : </a>
|
|
<a name="46"><span class="lineNum"> 46 </span> : #ifdef ARRAY_VARS</a>
|
|
<a name="47"><span class="lineNum"> 47 </span> : extern int declare_builtin __P((WORD_LIST *));</a>
|
|
<a name="48"><span class="lineNum"> 48 </span> : #endif</a>
|
|
<a name="49"><span class="lineNum"> 49 </span> : </a>
|
|
<a name="50"><span class="lineNum"> 50 </span> : #define READONLY_OR_EXPORT \</a>
|
|
<a name="51"><span class="lineNum"> 51 </span> : (this_shell_builtin == readonly_builtin || this_shell_builtin == export_builtin)</a>
|
|
<a name="52"><span class="lineNum"> 52 </span> : </a>
|
|
<a name="53"><span class="lineNum"> 53 </span> : $BUILTIN export</a>
|
|
<a name="54"><span class="lineNum"> 54 </span> : $FUNCTION export_builtin</a>
|
|
<a name="55"><span class="lineNum"> 55 </span> : $SHORT_DOC export [-fn] [name[=value] ...] or export -p</a>
|
|
<a name="56"><span class="lineNum"> 56 </span> : Set export attribute for shell variables.</a>
|
|
<a name="57"><span class="lineNum"> 57 </span> : </a>
|
|
<a name="58"><span class="lineNum"> 58 </span> : Marks each NAME for automatic export to the environment of subsequently</a>
|
|
<a name="59"><span class="lineNum"> 59 </span> : executed commands. If VALUE is supplied, assign VALUE before exporting.</a>
|
|
<a name="60"><span class="lineNum"> 60 </span> : </a>
|
|
<a name="61"><span class="lineNum"> 61 </span> : Options:</a>
|
|
<a name="62"><span class="lineNum"> 62 </span> : -f refer to shell functions</a>
|
|
<a name="63"><span class="lineNum"> 63 </span> : -n remove the export property from each NAME</a>
|
|
<a name="64"><span class="lineNum"> 64 </span> : -p display a list of all exported variables and functions</a>
|
|
<a name="65"><span class="lineNum"> 65 </span> : </a>
|
|
<a name="66"><span class="lineNum"> 66 </span> : An argument of `--' disables further option processing.</a>
|
|
<a name="67"><span class="lineNum"> 67 </span> : </a>
|
|
<a name="68"><span class="lineNum"> 68 </span> : Exit Status:</a>
|
|
<a name="69"><span class="lineNum"> 69 </span> : Returns success unless an invalid option is given or NAME is invalid.</a>
|
|
<a name="70"><span class="lineNum"> 70 </span> : $END</a>
|
|
<a name="71"><span class="lineNum"> 71 </span> : </a>
|
|
<a name="72"><span class="lineNum"> 72 </span> : /* For each variable name in LIST, make that variable appear in the</a>
|
|
<a name="73"><span class="lineNum"> 73 </span> : environment passed to simple commands. If there is no LIST, then</a>
|
|
<a name="74"><span class="lineNum"> 74 </span> : print all such variables. An argument of `-n' says to remove the</a>
|
|
<a name="75"><span class="lineNum"> 75 </span> : exported attribute from variables named in LIST. An argument of</a>
|
|
<a name="76"><span class="lineNum"> 76 </span> : -f indicates that the names present in LIST refer to functions. */</a>
|
|
<a name="77"><span class="lineNum"> 77 </span> : int</a>
|
|
<a name="78"><span class="lineNum"> 78 </span><span class="lineCov"> 131 : export_builtin (list)</span></a>
|
|
<a name="79"><span class="lineNum"> 79 </span> : register WORD_LIST *list;</a>
|
|
<a name="80"><span class="lineNum"> 80 </span> : {</a>
|
|
<a name="81"><span class="lineNum"> 81 </span><span class="lineCov"> 131 : return (set_or_show_attributes (list, att_exported, 0));</span></a>
|
|
<a name="82"><span class="lineNum"> 82 </span> : }</a>
|
|
<a name="83"><span class="lineNum"> 83 </span> : </a>
|
|
<a name="84"><span class="lineNum"> 84 </span> : $BUILTIN readonly</a>
|
|
<a name="85"><span class="lineNum"> 85 </span> : $FUNCTION readonly_builtin</a>
|
|
<a name="86"><span class="lineNum"> 86 </span> : $SHORT_DOC readonly [-aAf] [name[=value] ...] or readonly -p</a>
|
|
<a name="87"><span class="lineNum"> 87 </span> : Mark shell variables as unchangeable.</a>
|
|
<a name="88"><span class="lineNum"> 88 </span> : </a>
|
|
<a name="89"><span class="lineNum"> 89 </span> : Mark each NAME as read-only; the values of these NAMEs may not be</a>
|
|
<a name="90"><span class="lineNum"> 90 </span> : changed by subsequent assignment. If VALUE is supplied, assign VALUE</a>
|
|
<a name="91"><span class="lineNum"> 91 </span> : before marking as read-only.</a>
|
|
<a name="92"><span class="lineNum"> 92 </span> : </a>
|
|
<a name="93"><span class="lineNum"> 93 </span> : Options:</a>
|
|
<a name="94"><span class="lineNum"> 94 </span> : -a refer to indexed array variables</a>
|
|
<a name="95"><span class="lineNum"> 95 </span> : -A refer to associative array variables</a>
|
|
<a name="96"><span class="lineNum"> 96 </span> : -f refer to shell functions</a>
|
|
<a name="97"><span class="lineNum"> 97 </span> : -p display a list of all readonly variables or functions,</a>
|
|
<a name="98"><span class="lineNum"> 98 </span> : depending on whether or not the -f option is given</a>
|
|
<a name="99"><span class="lineNum"> 99 </span> : </a>
|
|
<a name="100"><span class="lineNum"> 100 </span> : An argument of `--' disables further option processing.</a>
|
|
<a name="101"><span class="lineNum"> 101 </span> : </a>
|
|
<a name="102"><span class="lineNum"> 102 </span> : Exit Status:</a>
|
|
<a name="103"><span class="lineNum"> 103 </span> : Returns success unless an invalid option is given or NAME is invalid.</a>
|
|
<a name="104"><span class="lineNum"> 104 </span> : $END</a>
|
|
<a name="105"><span class="lineNum"> 105 </span> : </a>
|
|
<a name="106"><span class="lineNum"> 106 </span> : /* For each variable name in LIST, make that variable readonly. Given an</a>
|
|
<a name="107"><span class="lineNum"> 107 </span> : empty LIST, print out all existing readonly variables. */</a>
|
|
<a name="108"><span class="lineNum"> 108 </span> : int</a>
|
|
<a name="109"><span class="lineNum"> 109 </span><span class="lineCov"> 83 : readonly_builtin (list)</span></a>
|
|
<a name="110"><span class="lineNum"> 110 </span> : register WORD_LIST *list;</a>
|
|
<a name="111"><span class="lineNum"> 111 </span> : {</a>
|
|
<a name="112"><span class="lineNum"> 112 </span><span class="lineCov"> 83 : return (set_or_show_attributes (list, att_readonly, 0));</span></a>
|
|
<a name="113"><span class="lineNum"> 113 </span> : }</a>
|
|
<a name="114"><span class="lineNum"> 114 </span> : </a>
|
|
<a name="115"><span class="lineNum"> 115 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="116"><span class="lineNum"> 116 </span> : # define ATTROPTS "aAfnp"</a>
|
|
<a name="117"><span class="lineNum"> 117 </span> : #else</a>
|
|
<a name="118"><span class="lineNum"> 118 </span> : # define ATTROPTS "fnp"</a>
|
|
<a name="119"><span class="lineNum"> 119 </span> : #endif</a>
|
|
<a name="120"><span class="lineNum"> 120 </span> : </a>
|
|
<a name="121"><span class="lineNum"> 121 </span> : /* For each variable name in LIST, make that variable have the specified</a>
|
|
<a name="122"><span class="lineNum"> 122 </span> : ATTRIBUTE. An arg of `-n' says to remove the attribute from the the</a>
|
|
<a name="123"><span class="lineNum"> 123 </span> : remaining names in LIST (doesn't work for readonly). */</a>
|
|
<a name="124"><span class="lineNum"> 124 </span> : int</a>
|
|
<a name="125"><span class="lineNum"> 125 </span><span class="lineCov"> 214 : set_or_show_attributes (list, attribute, nodefs)</span></a>
|
|
<a name="126"><span class="lineNum"> 126 </span> : register WORD_LIST *list;</a>
|
|
<a name="127"><span class="lineNum"> 127 </span> : int attribute, nodefs;</a>
|
|
<a name="128"><span class="lineNum"> 128 </span> : {</a>
|
|
<a name="129"><span class="lineNum"> 129 </span><span class="lineCov"> 214 : register SHELL_VAR *var;</span></a>
|
|
<a name="130"><span class="lineNum"> 130 </span><span class="lineCov"> 214 : int assign, undo, any_failed, assign_error, opt;</span></a>
|
|
<a name="131"><span class="lineNum"> 131 </span><span class="lineCov"> 214 : int functions_only, arrays_only, assoc_only;</span></a>
|
|
<a name="132"><span class="lineNum"> 132 </span><span class="lineCov"> 214 : int aflags;</span></a>
|
|
<a name="133"><span class="lineNum"> 133 </span><span class="lineCov"> 214 : char *name;</span></a>
|
|
<a name="134"><span class="lineNum"> 134 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="135"><span class="lineNum"> 135 </span><span class="lineCov"> 214 : WORD_LIST *nlist, *tlist;</span></a>
|
|
<a name="136"><span class="lineNum"> 136 </span><span class="lineCov"> 214 : WORD_DESC *w;</span></a>
|
|
<a name="137"><span class="lineNum"> 137 </span><span class="lineCov"> 214 : char optw[8];</span></a>
|
|
<a name="138"><span class="lineNum"> 138 </span><span class="lineCov"> 214 : int opti;</span></a>
|
|
<a name="139"><span class="lineNum"> 139 </span> : #endif</a>
|
|
<a name="140"><span class="lineNum"> 140 </span> : </a>
|
|
<a name="141"><span class="lineNum"> 141 </span><span class="lineCov"> 214 : functions_only = arrays_only = assoc_only = 0;</span></a>
|
|
<a name="142"><span class="lineNum"> 142 </span><span class="lineCov"> 214 : undo = any_failed = assign_error = 0;</span></a>
|
|
<a name="143"><span class="lineNum"> 143 </span> : /* Read arguments from the front of the list. */</a>
|
|
<a name="144"><span class="lineNum"> 144 </span><span class="lineCov"> 214 : reset_internal_getopt ();</span></a>
|
|
<a name="145"><span class="lineNum"> 145 </span><span class="lineCov"> 214 : while ((opt = internal_getopt (list, ATTROPTS)) != -1)</span></a>
|
|
<a name="146"><span class="lineNum"> 146 </span> : {</a>
|
|
<a name="147"><span class="lineNum"> 147 </span><span class="lineNoCov"> 0 : switch (opt)</span></a>
|
|
<a name="148"><span class="lineNum"> 148 </span> : {</a>
|
|
<a name="149"><span class="lineNum"> 149 </span><span class="lineNoCov"> 0 : case 'n':</span></a>
|
|
<a name="150"><span class="lineNum"> 150 </span><span class="lineNoCov"> 0 : undo = 1;</span></a>
|
|
<a name="151"><span class="lineNum"> 151 </span><span class="lineNoCov"> 0 : break;</span></a>
|
|
<a name="152"><span class="lineNum"> 152 </span><span class="lineNoCov"> 0 : case 'f':</span></a>
|
|
<a name="153"><span class="lineNum"> 153 </span><span class="lineNoCov"> 0 : functions_only = 1;</span></a>
|
|
<a name="154"><span class="lineNum"> 154 </span><span class="lineNoCov"> 0 : break;</span></a>
|
|
<a name="155"><span class="lineNum"> 155 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="156"><span class="lineNum"> 156 </span><span class="lineNoCov"> 0 : case 'a':</span></a>
|
|
<a name="157"><span class="lineNum"> 157 </span><span class="lineNoCov"> 0 : arrays_only = 1;</span></a>
|
|
<a name="158"><span class="lineNum"> 158 </span><span class="lineNoCov"> 0 : break;</span></a>
|
|
<a name="159"><span class="lineNum"> 159 </span><span class="lineNoCov"> 0 : case 'A':</span></a>
|
|
<a name="160"><span class="lineNum"> 160 </span><span class="lineNoCov"> 0 : assoc_only = 1;</span></a>
|
|
<a name="161"><span class="lineNum"> 161 </span><span class="lineNoCov"> 0 : break;</span></a>
|
|
<a name="162"><span class="lineNum"> 162 </span> : #endif</a>
|
|
<a name="163"><span class="lineNum"> 163 </span> : case 'p':</a>
|
|
<a name="164"><span class="lineNum"> 164 </span> : break;</a>
|
|
<a name="165"><span class="lineNum"> 165 </span><span class="lineNoCov"> 0 : CASE_HELPOPT;</span></a>
|
|
<a name="166"><span class="lineNum"> 166 </span><span class="lineNoCov"> 0 : default:</span></a>
|
|
<a name="167"><span class="lineNum"> 167 </span><span class="lineNoCov"> 0 : builtin_usage ();</span></a>
|
|
<a name="168"><span class="lineNum"> 168 </span><span class="lineNoCov"> 0 : return (EX_USAGE);</span></a>
|
|
<a name="169"><span class="lineNum"> 169 </span> : }</a>
|
|
<a name="170"><span class="lineNum"> 170 </span> : }</a>
|
|
<a name="171"><span class="lineNum"> 171 </span><span class="lineCov"> 214 : list = loptend;</span></a>
|
|
<a name="172"><span class="lineNum"> 172 </span> : </a>
|
|
<a name="173"><span class="lineNum"> 173 </span><span class="lineCov"> 214 : if (list)</span></a>
|
|
<a name="174"><span class="lineNum"> 174 </span> : {</a>
|
|
<a name="175"><span class="lineNum"> 175 </span><span class="lineCov"> 68 : if (attribute & att_exported)</span></a>
|
|
<a name="176"><span class="lineNum"> 176 </span><span class="lineCov"> 34 : array_needs_making = 1;</span></a>
|
|
<a name="177"><span class="lineNum"> 177 </span> : </a>
|
|
<a name="178"><span class="lineNum"> 178 </span> : /* Cannot undo readonly status, silently disallowed. */</a>
|
|
<a name="179"><span class="lineNum"> 179 </span><span class="lineCov"> 68 : if (undo && (attribute & att_readonly))</span></a>
|
|
<a name="180"><span class="lineNum"> 180 </span><span class="lineNoCov"> 0 : attribute &= ~att_readonly;</span></a>
|
|
<a name="181"><span class="lineNum"> 181 </span> : </a>
|
|
<a name="182"><span class="lineNum"> 182 </span><span class="lineCov"> 180 : while (list)</span></a>
|
|
<a name="183"><span class="lineNum"> 183 </span> : {</a>
|
|
<a name="184"><span class="lineNum"> 184 </span><span class="lineCov"> 112 : name = list->word->word;</span></a>
|
|
<a name="185"><span class="lineNum"> 185 </span> : </a>
|
|
<a name="186"><span class="lineNum"> 186 </span><span class="lineCov"> 112 : if (functions_only) /* xxx -f name */</span></a>
|
|
<a name="187"><span class="lineNum"> 187 </span> : {</a>
|
|
<a name="188"><span class="lineNum"> 188 </span><span class="lineNoCov"> 0 : var = find_function (name);</span></a>
|
|
<a name="189"><span class="lineNum"> 189 </span><span class="lineNoCov"> 0 : if (var == 0)</span></a>
|
|
<a name="190"><span class="lineNum"> 190 </span> : {</a>
|
|
<a name="191"><span class="lineNum"> 191 </span><span class="lineNoCov"> 0 : builtin_error (_("%s: not a function"), name);</span></a>
|
|
<a name="192"><span class="lineNum"> 192 </span><span class="lineNoCov"> 0 : any_failed++;</span></a>
|
|
<a name="193"><span class="lineNum"> 193 </span> : }</a>
|
|
<a name="194"><span class="lineNum"> 194 </span><span class="lineNoCov"> 0 : else if ((attribute & att_exported) && undo == 0 && exportable_function_name (name) == 0)</span></a>
|
|
<a name="195"><span class="lineNum"> 195 </span> : {</a>
|
|
<a name="196"><span class="lineNum"> 196 </span><span class="lineNoCov"> 0 : builtin_error (_("%s: cannot export"), name);</span></a>
|
|
<a name="197"><span class="lineNum"> 197 </span><span class="lineNoCov"> 0 : any_failed++;</span></a>
|
|
<a name="198"><span class="lineNum"> 198 </span> : }</a>
|
|
<a name="199"><span class="lineNum"> 199 </span> : else</a>
|
|
<a name="200"><span class="lineNum"> 200 </span><span class="lineNoCov"> 0 : SETVARATTR (var, attribute, undo);</span></a>
|
|
<a name="201"><span class="lineNum"> 201 </span> : </a>
|
|
<a name="202"><span class="lineNum"> 202 </span><span class="lineNoCov"> 0 : list = list->next;</span></a>
|
|
<a name="203"><span class="lineNum"> 203 </span><span class="lineNoCov"> 0 : continue;</span></a>
|
|
<a name="204"><span class="lineNum"> 204 </span> : }</a>
|
|
<a name="205"><span class="lineNum"> 205 </span> : </a>
|
|
<a name="206"><span class="lineNum"> 206 </span> : /* xxx [-np] name[=value] */</a>
|
|
<a name="207"><span class="lineNum"> 207 </span><span class="lineCov"> 112 : assign = assignment (name, 0);</span></a>
|
|
<a name="208"><span class="lineNum"> 208 </span> : </a>
|
|
<a name="209"><span class="lineNum"> 209 </span><span class="lineCov"> 112 : aflags = 0;</span></a>
|
|
<a name="210"><span class="lineNum"> 210 </span><span class="lineCov"> 112 : if (assign)</span></a>
|
|
<a name="211"><span class="lineNum"> 211 </span> : {</a>
|
|
<a name="212"><span class="lineNum"> 212 </span><span class="lineCov"> 24 : name[assign] = '\0';</span></a>
|
|
<a name="213"><span class="lineNum"> 213 </span><span class="lineCov"> 24 : if (name[assign - 1] == '+')</span></a>
|
|
<a name="214"><span class="lineNum"> 214 </span> : {</a>
|
|
<a name="215"><span class="lineNum"> 215 </span><span class="lineNoCov"> 0 : aflags |= ASS_APPEND;</span></a>
|
|
<a name="216"><span class="lineNum"> 216 </span><span class="lineNoCov"> 0 : name[assign - 1] = '\0';</span></a>
|
|
<a name="217"><span class="lineNum"> 217 </span> : }</a>
|
|
<a name="218"><span class="lineNum"> 218 </span> : }</a>
|
|
<a name="219"><span class="lineNum"> 219 </span> : </a>
|
|
<a name="220"><span class="lineNum"> 220 </span><span class="lineCov"> 112 : if (legal_identifier (name) == 0)</span></a>
|
|
<a name="221"><span class="lineNum"> 221 </span> : {</a>
|
|
<a name="222"><span class="lineNum"> 222 </span><span class="lineCov"> 53 : sh_invalidid (name);</span></a>
|
|
<a name="223"><span class="lineNum"> 223 </span><span class="lineCov"> 53 : if (assign)</span></a>
|
|
<a name="224"><span class="lineNum"> 224 </span><span class="lineNoCov"> 0 : assign_error++;</span></a>
|
|
<a name="225"><span class="lineNum"> 225 </span> : else</a>
|
|
<a name="226"><span class="lineNum"> 226 </span><span class="lineCov"> 53 : any_failed++;</span></a>
|
|
<a name="227"><span class="lineNum"> 227 </span><span class="lineCov"> 53 : list = list->next;</span></a>
|
|
<a name="228"><span class="lineNum"> 228 </span><span class="lineCov"> 53 : continue;</span></a>
|
|
<a name="229"><span class="lineNum"> 229 </span> : }</a>
|
|
<a name="230"><span class="lineNum"> 230 </span> : </a>
|
|
<a name="231"><span class="lineNum"> 231 </span><span class="lineCov"> 59 : if (assign) /* xxx [-np] name=value */</span></a>
|
|
<a name="232"><span class="lineNum"> 232 </span> : {</a>
|
|
<a name="233"><span class="lineNum"> 233 </span><span class="lineCov"> 24 : name[assign] = '=';</span></a>
|
|
<a name="234"><span class="lineNum"> 234 </span><span class="lineCov"> 24 : if (aflags & ASS_APPEND)</span></a>
|
|
<a name="235"><span class="lineNum"> 235 </span><span class="lineNoCov"> 0 : name[assign - 1] = '+';</span></a>
|
|
<a name="236"><span class="lineNum"> 236 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="237"><span class="lineNum"> 237 </span> : /* Let's try something here. Turn readonly -a xxx=yyy into</a>
|
|
<a name="238"><span class="lineNum"> 238 </span> : declare -ra xxx=yyy and see what that gets us. */</a>
|
|
<a name="239"><span class="lineNum"> 239 </span><span class="lineCov"> 24 : if (arrays_only || assoc_only)</span></a>
|
|
<a name="240"><span class="lineNum"> 240 </span> : {</a>
|
|
<a name="241"><span class="lineNum"> 241 </span><span class="lineNoCov"> 0 : tlist = list->next;</span></a>
|
|
<a name="242"><span class="lineNum"> 242 </span><span class="lineNoCov"> 0 : list->next = (WORD_LIST *)NULL;</span></a>
|
|
<a name="243"><span class="lineNum"> 243 </span> : /* Add -g to avoid readonly/export creating local variables:</a>
|
|
<a name="244"><span class="lineNum"> 244 </span> : only local/declare/typeset create local variables */</a>
|
|
<a name="245"><span class="lineNum"> 245 </span><span class="lineNoCov"> 0 : opti = 0;</span></a>
|
|
<a name="246"><span class="lineNum"> 246 </span><span class="lineNoCov"> 0 : optw[opti++] = '-';</span></a>
|
|
<a name="247"><span class="lineNum"> 247 </span><span class="lineNoCov"> 0 : optw[opti++] = 'g';</span></a>
|
|
<a name="248"><span class="lineNum"> 248 </span><span class="lineNoCov"> 0 : if (attribute & att_readonly)</span></a>
|
|
<a name="249"><span class="lineNum"> 249 </span><span class="lineNoCov"> 0 : optw[opti++] = 'r';</span></a>
|
|
<a name="250"><span class="lineNum"> 250 </span><span class="lineNoCov"> 0 : if (attribute & att_exported)</span></a>
|
|
<a name="251"><span class="lineNum"> 251 </span><span class="lineNoCov"> 0 : optw[opti++] = 'x';</span></a>
|
|
<a name="252"><span class="lineNum"> 252 </span><span class="lineNoCov"> 0 : if (arrays_only)</span></a>
|
|
<a name="253"><span class="lineNum"> 253 </span><span class="lineNoCov"> 0 : optw[opti++] = 'a';</span></a>
|
|
<a name="254"><span class="lineNum"> 254 </span> : else</a>
|
|
<a name="255"><span class="lineNum"> 255 </span><span class="lineNoCov"> 0 : optw[opti++] = 'A';</span></a>
|
|
<a name="256"><span class="lineNum"> 256 </span><span class="lineNoCov"> 0 : optw[opti] = '\0';</span></a>
|
|
<a name="257"><span class="lineNum"> 257 </span> : </a>
|
|
<a name="258"><span class="lineNum"> 258 </span><span class="lineNoCov"> 0 : w = make_word (optw);</span></a>
|
|
<a name="259"><span class="lineNum"> 259 </span><span class="lineNoCov"> 0 : nlist = make_word_list (w, list);</span></a>
|
|
<a name="260"><span class="lineNum"> 260 </span> : </a>
|
|
<a name="261"><span class="lineNum"> 261 </span><span class="lineNoCov"> 0 : opt = declare_builtin (nlist);</span></a>
|
|
<a name="262"><span class="lineNum"> 262 </span><span class="lineNoCov"> 0 : if (opt != EXECUTION_SUCCESS)</span></a>
|
|
<a name="263"><span class="lineNum"> 263 </span><span class="lineNoCov"> 0 : assign_error++;</span></a>
|
|
<a name="264"><span class="lineNum"> 264 </span><span class="lineNoCov"> 0 : list->next = tlist;</span></a>
|
|
<a name="265"><span class="lineNum"> 265 </span><span class="lineNoCov"> 0 : dispose_word (w);</span></a>
|
|
<a name="266"><span class="lineNum"> 266 </span><span class="lineNoCov"> 0 : free (nlist);</span></a>
|
|
<a name="267"><span class="lineNum"> 267 </span> : }</a>
|
|
<a name="268"><span class="lineNum"> 268 </span> : else</a>
|
|
<a name="269"><span class="lineNum"> 269 </span> : #endif</a>
|
|
<a name="270"><span class="lineNum"> 270 </span> : /* This word has already been expanded once with command</a>
|
|
<a name="271"><span class="lineNum"> 271 </span> : and parameter expansion. Call do_assignment_no_expand (),</a>
|
|
<a name="272"><span class="lineNum"> 272 </span> : which does not do command or parameter substitution. If</a>
|
|
<a name="273"><span class="lineNum"> 273 </span> : the assignment is not performed correctly, flag an error. */</a>
|
|
<a name="274"><span class="lineNum"> 274 </span><span class="lineCov"> 24 : if (do_assignment_no_expand (name) == 0)</span></a>
|
|
<a name="275"><span class="lineNum"> 275 </span><span class="lineNoCov"> 0 : assign_error++;</span></a>
|
|
<a name="276"><span class="lineNum"> 276 </span><span class="lineCov"> 24 : name[assign] = '\0';</span></a>
|
|
<a name="277"><span class="lineNum"> 277 </span><span class="lineCov"> 24 : if (aflags & ASS_APPEND)</span></a>
|
|
<a name="278"><span class="lineNum"> 278 </span><span class="lineNoCov"> 0 : name[assign - 1] = '\0';</span></a>
|
|
<a name="279"><span class="lineNum"> 279 </span> : }</a>
|
|
<a name="280"><span class="lineNum"> 280 </span> : </a>
|
|
<a name="281"><span class="lineNum"> 281 </span><span class="lineCov"> 59 : set_var_attribute (name, attribute, undo);</span></a>
|
|
<a name="282"><span class="lineNum"> 282 </span><span class="lineCov"> 59 : list = list->next;</span></a>
|
|
<a name="283"><span class="lineNum"> 283 </span> : }</a>
|
|
<a name="284"><span class="lineNum"> 284 </span> : }</a>
|
|
<a name="285"><span class="lineNum"> 285 </span> : else</a>
|
|
<a name="286"><span class="lineNum"> 286 </span> : {</a>
|
|
<a name="287"><span class="lineNum"> 287 </span><span class="lineCov"> 146 : SHELL_VAR **variable_list;</span></a>
|
|
<a name="288"><span class="lineNum"> 288 </span><span class="lineCov"> 146 : register int i;</span></a>
|
|
<a name="289"><span class="lineNum"> 289 </span> : </a>
|
|
<a name="290"><span class="lineNum"> 290 </span><span class="lineCov"> 146 : if ((attribute & att_function) || functions_only)</span></a>
|
|
<a name="291"><span class="lineNum"> 291 </span> : {</a>
|
|
<a name="292"><span class="lineNum"> 292 </span><span class="lineNoCov"> 0 : variable_list = all_shell_functions ();</span></a>
|
|
<a name="293"><span class="lineNum"> 293 </span><span class="lineNoCov"> 0 : if (attribute != att_function)</span></a>
|
|
<a name="294"><span class="lineNum"> 294 </span><span class="lineNoCov"> 0 : attribute &= ~att_function; /* so declare -xf works, for example */</span></a>
|
|
<a name="295"><span class="lineNum"> 295 </span> : }</a>
|
|
<a name="296"><span class="lineNum"> 296 </span> : else</a>
|
|
<a name="297"><span class="lineNum"> 297 </span><span class="lineCov"> 146 : variable_list = all_shell_variables ();</span></a>
|
|
<a name="298"><span class="lineNum"> 298 </span> : </a>
|
|
<a name="299"><span class="lineNum"> 299 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="300"><span class="lineNum"> 300 </span><span class="lineCov"> 146 : if (attribute & att_array)</span></a>
|
|
<a name="301"><span class="lineNum"> 301 </span> : {</a>
|
|
<a name="302"><span class="lineNum"> 302 </span><span class="lineNoCov"> 0 : arrays_only++;</span></a>
|
|
<a name="303"><span class="lineNum"> 303 </span><span class="lineNoCov"> 0 : if (attribute != att_array)</span></a>
|
|
<a name="304"><span class="lineNum"> 304 </span><span class="lineNoCov"> 0 : attribute &= ~att_array;</span></a>
|
|
<a name="305"><span class="lineNum"> 305 </span> : }</a>
|
|
<a name="306"><span class="lineNum"> 306 </span><span class="lineCov"> 146 : else if (attribute & att_assoc)</span></a>
|
|
<a name="307"><span class="lineNum"> 307 </span> : {</a>
|
|
<a name="308"><span class="lineNum"> 308 </span><span class="lineNoCov"> 0 : assoc_only++;</span></a>
|
|
<a name="309"><span class="lineNum"> 309 </span><span class="lineNoCov"> 0 : if (attribute != att_assoc)</span></a>
|
|
<a name="310"><span class="lineNum"> 310 </span><span class="lineNoCov"> 0 : attribute &= ~att_assoc;</span></a>
|
|
<a name="311"><span class="lineNum"> 311 </span> : }</a>
|
|
<a name="312"><span class="lineNum"> 312 </span> : #endif</a>
|
|
<a name="313"><span class="lineNum"> 313 </span> : </a>
|
|
<a name="314"><span class="lineNum"> 314 </span><span class="lineCov"> 146 : if (variable_list)</span></a>
|
|
<a name="315"><span class="lineNum"> 315 </span> : {</a>
|
|
<a name="316"><span class="lineNum"> 316 </span><span class="lineCov"> 8461 : for (i = 0; var = variable_list[i]; i++)</span></a>
|
|
<a name="317"><span class="lineNum"> 317 </span> : {</a>
|
|
<a name="318"><span class="lineNum"> 318 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="319"><span class="lineNum"> 319 </span><span class="lineCov"> 8345 : if (arrays_only && array_p (var) == 0)</span></a>
|
|
<a name="320"><span class="lineNum"> 320 </span> : continue;</a>
|
|
<a name="321"><span class="lineNum"> 321 </span><span class="lineCov"> 8345 : else if (assoc_only && assoc_p (var) == 0)</span></a>
|
|
<a name="322"><span class="lineNum"> 322 </span> : continue;</a>
|
|
<a name="323"><span class="lineNum"> 323 </span> : #endif</a>
|
|
<a name="324"><span class="lineNum"> 324 </span> : </a>
|
|
<a name="325"><span class="lineNum"> 325 </span> : /* If we imported a variable that's not a valid identifier, don't</a>
|
|
<a name="326"><span class="lineNum"> 326 </span> : show it in any lists. */</a>
|
|
<a name="327"><span class="lineNum"> 327 </span><span class="lineCov"> 8345 : if ((var->attributes & (att_invisible|att_imported)) == (att_invisible|att_imported))</span></a>
|
|
<a name="328"><span class="lineNum"> 328 </span> : continue;</a>
|
|
<a name="329"><span class="lineNum"> 329 </span> : </a>
|
|
<a name="330"><span class="lineNum"> 330 </span><span class="lineCov"> 8345 : if ((var->attributes & attribute))</span></a>
|
|
<a name="331"><span class="lineNum"> 331 </span> : {</a>
|
|
<a name="332"><span class="lineNum"> 332 </span><span class="lineCov"> 2785 : show_var_attributes (var, READONLY_OR_EXPORT, nodefs);</span></a>
|
|
<a name="333"><span class="lineNum"> 333 </span><span class="lineCov"> 2785 : if (any_failed = sh_chkwrite (any_failed))</span></a>
|
|
<a name="334"><span class="lineNum"> 334 </span> : break;</a>
|
|
<a name="335"><span class="lineNum"> 335 </span> : }</a>
|
|
<a name="336"><span class="lineNum"> 336 </span> : }</a>
|
|
<a name="337"><span class="lineNum"> 337 </span><span class="lineCov"> 146 : free (variable_list);</span></a>
|
|
<a name="338"><span class="lineNum"> 338 </span> : }</a>
|
|
<a name="339"><span class="lineNum"> 339 </span> : }</a>
|
|
<a name="340"><span class="lineNum"> 340 </span> : </a>
|
|
<a name="341"><span class="lineNum"> 341 </span><span class="lineCov"> 146 : return (assign_error ? EX_BADASSIGN</span></a>
|
|
<a name="342"><span class="lineNum"> 342 </span><span class="lineCov"> 68 : : ((any_failed == 0) ? EXECUTION_SUCCESS</span></a>
|
|
<a name="343"><span class="lineNum"> 343 </span><span class="lineCov"> 214 : : EXECUTION_FAILURE));</span></a>
|
|
<a name="344"><span class="lineNum"> 344 </span> : }</a>
|
|
<a name="345"><span class="lineNum"> 345 </span> : </a>
|
|
<a name="346"><span class="lineNum"> 346 </span> : /* Show all variable variables (v == 1) or functions (v == 0) with</a>
|
|
<a name="347"><span class="lineNum"> 347 </span> : attributes. */</a>
|
|
<a name="348"><span class="lineNum"> 348 </span> : int</a>
|
|
<a name="349"><span class="lineNum"> 349 </span><span class="lineNoCov"> 0 : show_all_var_attributes (v, nodefs)</span></a>
|
|
<a name="350"><span class="lineNum"> 350 </span> : int v, nodefs;</a>
|
|
<a name="351"><span class="lineNum"> 351 </span> : {</a>
|
|
<a name="352"><span class="lineNum"> 352 </span><span class="lineNoCov"> 0 : SHELL_VAR **variable_list, *var;</span></a>
|
|
<a name="353"><span class="lineNum"> 353 </span><span class="lineNoCov"> 0 : int any_failed;</span></a>
|
|
<a name="354"><span class="lineNum"> 354 </span><span class="lineNoCov"> 0 : register int i;</span></a>
|
|
<a name="355"><span class="lineNum"> 355 </span> : </a>
|
|
<a name="356"><span class="lineNum"> 356 </span><span class="lineNoCov"> 0 : variable_list = v ? all_shell_variables () : all_shell_functions ();</span></a>
|
|
<a name="357"><span class="lineNum"> 357 </span><span class="lineNoCov"> 0 : if (variable_list == 0) </span></a>
|
|
<a name="358"><span class="lineNum"> 358 </span> : return (EXECUTION_SUCCESS);</a>
|
|
<a name="359"><span class="lineNum"> 359 </span> : </a>
|
|
<a name="360"><span class="lineNum"> 360 </span><span class="lineNoCov"> 0 : for (i = any_failed = 0; var = variable_list[i]; i++)</span></a>
|
|
<a name="361"><span class="lineNum"> 361 </span> : {</a>
|
|
<a name="362"><span class="lineNum"> 362 </span><span class="lineNoCov"> 0 : show_var_attributes (var, READONLY_OR_EXPORT, nodefs);</span></a>
|
|
<a name="363"><span class="lineNum"> 363 </span><span class="lineNoCov"> 0 : if (any_failed = sh_chkwrite (any_failed))</span></a>
|
|
<a name="364"><span class="lineNum"> 364 </span> : break;</a>
|
|
<a name="365"><span class="lineNum"> 365 </span> : }</a>
|
|
<a name="366"><span class="lineNum"> 366 </span><span class="lineNoCov"> 0 : free (variable_list);</span></a>
|
|
<a name="367"><span class="lineNum"> 367 </span><span class="lineNoCov"> 0 : return (any_failed == 0 ? EXECUTION_SUCCESS : EXECUTION_FAILURE);</span></a>
|
|
<a name="368"><span class="lineNum"> 368 </span> : }</a>
|
|
<a name="369"><span class="lineNum"> 369 </span> : </a>
|
|
<a name="370"><span class="lineNum"> 370 </span> : int</a>
|
|
<a name="371"><span class="lineNum"> 371 </span><span class="lineCov"> 2785 : var_attribute_string (var, pattr, flags)</span></a>
|
|
<a name="372"><span class="lineNum"> 372 </span> : SHELL_VAR *var;</a>
|
|
<a name="373"><span class="lineNum"> 373 </span> : int pattr;</a>
|
|
<a name="374"><span class="lineNum"> 374 </span> : char *flags; /* filled in with attributes */</a>
|
|
<a name="375"><span class="lineNum"> 375 </span> : {</a>
|
|
<a name="376"><span class="lineNum"> 376 </span><span class="lineCov"> 2785 : int i;</span></a>
|
|
<a name="377"><span class="lineNum"> 377 </span> : </a>
|
|
<a name="378"><span class="lineNum"> 378 </span><span class="lineCov"> 2785 : i = 0;</span></a>
|
|
<a name="379"><span class="lineNum"> 379 </span> : </a>
|
|
<a name="380"><span class="lineNum"> 380 </span> : /* pattr == 0 means we are called from `declare'. */</a>
|
|
<a name="381"><span class="lineNum"> 381 </span><span class="lineCov"> 2785 : if (pattr == 0 || posixly_correct == 0)</span></a>
|
|
<a name="382"><span class="lineNum"> 382 </span> : {</a>
|
|
<a name="383"><span class="lineNum"> 383 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="384"><span class="lineNum"> 384 </span><span class="lineCov"> 2785 : if (array_p (var))</span></a>
|
|
<a name="385"><span class="lineNum"> 385 </span><span class="lineCov"> 49 : flags[i++] = 'a';</span></a>
|
|
<a name="386"><span class="lineNum"> 386 </span> : </a>
|
|
<a name="387"><span class="lineNum"> 387 </span><span class="lineCov"> 2785 : if (assoc_p (var))</span></a>
|
|
<a name="388"><span class="lineNum"> 388 </span><span class="lineNoCov"> 0 : flags[i++] = 'A';</span></a>
|
|
<a name="389"><span class="lineNum"> 389 </span> : #endif</a>
|
|
<a name="390"><span class="lineNum"> 390 </span> : </a>
|
|
<a name="391"><span class="lineNum"> 391 </span><span class="lineCov"> 2785 : if (function_p (var))</span></a>
|
|
<a name="392"><span class="lineNum"> 392 </span><span class="lineNoCov"> 0 : flags[i++] = 'f';</span></a>
|
|
<a name="393"><span class="lineNum"> 393 </span> : </a>
|
|
<a name="394"><span class="lineNum"> 394 </span><span class="lineCov"> 2785 : if (integer_p (var))</span></a>
|
|
<a name="395"><span class="lineNum"> 395 </span><span class="lineCov"> 196 : flags[i++] = 'i';</span></a>
|
|
<a name="396"><span class="lineNum"> 396 </span> : </a>
|
|
<a name="397"><span class="lineNum"> 397 </span><span class="lineCov"> 2785 : if (nameref_p (var))</span></a>
|
|
<a name="398"><span class="lineNum"> 398 </span><span class="lineNoCov"> 0 : flags[i++] = 'n';</span></a>
|
|
<a name="399"><span class="lineNum"> 399 </span> : </a>
|
|
<a name="400"><span class="lineNum"> 400 </span><span class="lineCov"> 2785 : if (readonly_p (var))</span></a>
|
|
<a name="401"><span class="lineNum"> 401 </span><span class="lineCov"> 343 : flags[i++] = 'r';</span></a>
|
|
<a name="402"><span class="lineNum"> 402 </span> : </a>
|
|
<a name="403"><span class="lineNum"> 403 </span><span class="lineCov"> 2785 : if (trace_p (var))</span></a>
|
|
<a name="404"><span class="lineNum"> 404 </span><span class="lineNoCov"> 0 : flags[i++] = 't';</span></a>
|
|
<a name="405"><span class="lineNum"> 405 </span> : </a>
|
|
<a name="406"><span class="lineNum"> 406 </span><span class="lineCov"> 2785 : if (exported_p (var))</span></a>
|
|
<a name="407"><span class="lineNum"> 407 </span><span class="lineCov"> 2442 : flags[i++] = 'x';</span></a>
|
|
<a name="408"><span class="lineNum"> 408 </span> : </a>
|
|
<a name="409"><span class="lineNum"> 409 </span><span class="lineCov"> 2785 : if (capcase_p (var))</span></a>
|
|
<a name="410"><span class="lineNum"> 410 </span><span class="lineNoCov"> 0 : flags[i++] = 'c';</span></a>
|
|
<a name="411"><span class="lineNum"> 411 </span> : </a>
|
|
<a name="412"><span class="lineNum"> 412 </span><span class="lineCov"> 2785 : if (lowercase_p (var))</span></a>
|
|
<a name="413"><span class="lineNum"> 413 </span><span class="lineNoCov"> 0 : flags[i++] = 'l';</span></a>
|
|
<a name="414"><span class="lineNum"> 414 </span> : </a>
|
|
<a name="415"><span class="lineNum"> 415 </span><span class="lineCov"> 2785 : if (uppercase_p (var))</span></a>
|
|
<a name="416"><span class="lineNum"> 416 </span><span class="lineNoCov"> 0 : flags[i++] = 'u';</span></a>
|
|
<a name="417"><span class="lineNum"> 417 </span> : }</a>
|
|
<a name="418"><span class="lineNum"> 418 </span> : else</a>
|
|
<a name="419"><span class="lineNum"> 419 </span> : {</a>
|
|
<a name="420"><span class="lineNum"> 420 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="421"><span class="lineNum"> 421 </span><span class="lineNoCov"> 0 : if (array_p (var))</span></a>
|
|
<a name="422"><span class="lineNum"> 422 </span><span class="lineNoCov"> 0 : flags[i++] = 'a';</span></a>
|
|
<a name="423"><span class="lineNum"> 423 </span> : </a>
|
|
<a name="424"><span class="lineNum"> 424 </span><span class="lineNoCov"> 0 : if (assoc_p (var))</span></a>
|
|
<a name="425"><span class="lineNum"> 425 </span><span class="lineNoCov"> 0 : flags[i++] = 'A';</span></a>
|
|
<a name="426"><span class="lineNum"> 426 </span> : #endif</a>
|
|
<a name="427"><span class="lineNum"> 427 </span> : </a>
|
|
<a name="428"><span class="lineNum"> 428 </span><span class="lineNoCov"> 0 : if (function_p (var))</span></a>
|
|
<a name="429"><span class="lineNum"> 429 </span><span class="lineNoCov"> 0 : flags[i++] = 'f';</span></a>
|
|
<a name="430"><span class="lineNum"> 430 </span> : }</a>
|
|
<a name="431"><span class="lineNum"> 431 </span> : </a>
|
|
<a name="432"><span class="lineNum"> 432 </span><span class="lineCov"> 2785 : flags[i] = '\0';</span></a>
|
|
<a name="433"><span class="lineNum"> 433 </span><span class="lineCov"> 2785 : return i;</span></a>
|
|
<a name="434"><span class="lineNum"> 434 </span> : }</a>
|
|
<a name="435"><span class="lineNum"> 435 </span> : </a>
|
|
<a name="436"><span class="lineNum"> 436 </span> : /* Show the attributes for shell variable VAR. If NODEFS is non-zero,</a>
|
|
<a name="437"><span class="lineNum"> 437 </span> : don't show function definitions along with the name. If PATTR is</a>
|
|
<a name="438"><span class="lineNum"> 438 </span> : non-zero, it indicates we're being called from `export' or `readonly'.</a>
|
|
<a name="439"><span class="lineNum"> 439 </span> : In POSIX mode, this prints the name of the calling builtin (`export'</a>
|
|
<a name="440"><span class="lineNum"> 440 </span> : or `readonly') instead of `declare', and doesn't print function defs</a>
|
|
<a name="441"><span class="lineNum"> 441 </span> : when called by `export' or `readonly'. */</a>
|
|
<a name="442"><span class="lineNum"> 442 </span> : int</a>
|
|
<a name="443"><span class="lineNum"> 443 </span><span class="lineCov"> 2785 : show_var_attributes (var, pattr, nodefs)</span></a>
|
|
<a name="444"><span class="lineNum"> 444 </span> : SHELL_VAR *var;</a>
|
|
<a name="445"><span class="lineNum"> 445 </span> : int pattr, nodefs;</a>
|
|
<a name="446"><span class="lineNum"> 446 </span> : {</a>
|
|
<a name="447"><span class="lineNum"> 447 </span><span class="lineCov"> 2785 : char flags[MAX_ATTRIBUTES], *x;</span></a>
|
|
<a name="448"><span class="lineNum"> 448 </span><span class="lineCov"> 2785 : int i;</span></a>
|
|
<a name="449"><span class="lineNum"> 449 </span> : </a>
|
|
<a name="450"><span class="lineNum"> 450 </span><span class="lineCov"> 2785 : i = var_attribute_string (var, pattr, flags);</span></a>
|
|
<a name="451"><span class="lineNum"> 451 </span> : </a>
|
|
<a name="452"><span class="lineNum"> 452 </span> : /* If we're printing functions with definitions, print the function def</a>
|
|
<a name="453"><span class="lineNum"> 453 </span> : first, then the attributes, instead of printing output that can't be</a>
|
|
<a name="454"><span class="lineNum"> 454 </span> : reused as input to recreate the current state. */</a>
|
|
<a name="455"><span class="lineNum"> 455 </span><span class="lineCov"> 2785 : if (function_p (var) && nodefs == 0 && (pattr == 0 || posixly_correct == 0))</span></a>
|
|
<a name="456"><span class="lineNum"> 456 </span> : {</a>
|
|
<a name="457"><span class="lineNum"> 457 </span><span class="lineNoCov"> 0 : printf ("%s\n", named_function_string (var->name, function_cell (var), FUNC_MULTILINE|FUNC_EXTERNAL));</span></a>
|
|
<a name="458"><span class="lineNum"> 458 </span><span class="lineNoCov"> 0 : nodefs++;</span></a>
|
|
<a name="459"><span class="lineNum"> 459 </span><span class="lineNoCov"> 0 : if (pattr == 0 && i == 1 && flags[0] == 'f')</span></a>
|
|
<a name="460"><span class="lineNum"> 460 </span> : return 0; /* don't print `declare -f name' */</a>
|
|
<a name="461"><span class="lineNum"> 461 </span> : }</a>
|
|
<a name="462"><span class="lineNum"> 462 </span> : </a>
|
|
<a name="463"><span class="lineNum"> 463 </span><span class="lineCov"> 2785 : if (pattr == 0 || posixly_correct == 0)</span></a>
|
|
<a name="464"><span class="lineNum"> 464 </span><span class="lineCov"> 2785 : printf ("declare -%s ", i ? flags : "-");</span></a>
|
|
<a name="465"><span class="lineNum"> 465 </span><span class="lineNoCov"> 0 : else if (i)</span></a>
|
|
<a name="466"><span class="lineNum"> 466 </span><span class="lineNoCov"> 0 : printf ("%s -%s ", this_command_name, flags);</span></a>
|
|
<a name="467"><span class="lineNum"> 467 </span> : else</a>
|
|
<a name="468"><span class="lineNum"> 468 </span><span class="lineNoCov"> 0 : printf ("%s ", this_command_name);</span></a>
|
|
<a name="469"><span class="lineNum"> 469 </span> : </a>
|
|
<a name="470"><span class="lineNum"> 470 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="471"><span class="lineNum"> 471 </span><span class="lineCov"> 2785 : if (invisible_p (var) && (array_p (var) || assoc_p (var)))</span></a>
|
|
<a name="472"><span class="lineNum"> 472 </span><span class="lineNoCov"> 0 : printf ("%s\n", var->name);</span></a>
|
|
<a name="473"><span class="lineNum"> 473 </span><span class="lineCov"> 2785 : else if (array_p (var))</span></a>
|
|
<a name="474"><span class="lineNum"> 474 </span><span class="lineCov"> 49 : print_array_assignment (var, 0);</span></a>
|
|
<a name="475"><span class="lineNum"> 475 </span><span class="lineCov"> 2736 : else if (assoc_p (var))</span></a>
|
|
<a name="476"><span class="lineNum"> 476 </span><span class="lineNoCov"> 0 : print_assoc_assignment (var, 0);</span></a>
|
|
<a name="477"><span class="lineNum"> 477 </span> : else</a>
|
|
<a name="478"><span class="lineNum"> 478 </span> : #endif</a>
|
|
<a name="479"><span class="lineNum"> 479 </span> : /* force `readonly' and `export' to not print out function definitions</a>
|
|
<a name="480"><span class="lineNum"> 480 </span> : when in POSIX mode. */</a>
|
|
<a name="481"><span class="lineNum"> 481 </span><span class="lineCov"> 2736 : if (nodefs || (function_p (var) && pattr != 0 && posixly_correct))</span></a>
|
|
<a name="482"><span class="lineNum"> 482 </span><span class="lineNoCov"> 0 : printf ("%s\n", var->name);</span></a>
|
|
<a name="483"><span class="lineNum"> 483 </span><span class="lineCov"> 2736 : else if (function_p (var))</span></a>
|
|
<a name="484"><span class="lineNum"> 484 </span><span class="lineNoCov"> 0 : printf ("%s\n", named_function_string (var->name, function_cell (var), FUNC_MULTILINE|FUNC_EXTERNAL));</span></a>
|
|
<a name="485"><span class="lineNum"> 485 </span><span class="lineCov"> 2736 : else if (invisible_p (var) || var_isset (var) == 0)</span></a>
|
|
<a name="486"><span class="lineNum"> 486 </span><span class="lineCov"> 49 : printf ("%s\n", var->name);</span></a>
|
|
<a name="487"><span class="lineNum"> 487 </span> : else</a>
|
|
<a name="488"><span class="lineNum"> 488 </span> : {</a>
|
|
<a name="489"><span class="lineNum"> 489 </span><span class="lineCov"> 2687 : x = sh_double_quote (value_cell (var));</span></a>
|
|
<a name="490"><span class="lineNum"> 490 </span><span class="lineCov"> 2687 : printf ("%s=%s\n", var->name, x);</span></a>
|
|
<a name="491"><span class="lineNum"> 491 </span><span class="lineCov"> 2687 : free (x);</span></a>
|
|
<a name="492"><span class="lineNum"> 492 </span> : }</a>
|
|
<a name="493"><span class="lineNum"> 493 </span> : return (0);</a>
|
|
<a name="494"><span class="lineNum"> 494 </span> : }</a>
|
|
<a name="495"><span class="lineNum"> 495 </span> : </a>
|
|
<a name="496"><span class="lineNum"> 496 </span> : int</a>
|
|
<a name="497"><span class="lineNum"> 497 </span><span class="lineNoCov"> 0 : show_name_attributes (name, nodefs)</span></a>
|
|
<a name="498"><span class="lineNum"> 498 </span> : char *name;</a>
|
|
<a name="499"><span class="lineNum"> 499 </span> : int nodefs;</a>
|
|
<a name="500"><span class="lineNum"> 500 </span> : {</a>
|
|
<a name="501"><span class="lineNum"> 501 </span><span class="lineNoCov"> 0 : SHELL_VAR *var;</span></a>
|
|
<a name="502"><span class="lineNum"> 502 </span> : </a>
|
|
<a name="503"><span class="lineNum"> 503 </span> : #if 0</a>
|
|
<a name="504"><span class="lineNum"> 504 </span> : var = find_variable_tempenv (name);</a>
|
|
<a name="505"><span class="lineNum"> 505 </span> : #else</a>
|
|
<a name="506"><span class="lineNum"> 506 </span><span class="lineNoCov"> 0 : var = find_variable_noref (name);</span></a>
|
|
<a name="507"><span class="lineNum"> 507 </span> : #endif</a>
|
|
<a name="508"><span class="lineNum"> 508 </span> : </a>
|
|
<a name="509"><span class="lineNum"> 509 </span><span class="lineNoCov"> 0 : if (var /* && invisible_p (var) == 0 */) /* XXX bash-4.4/bash-5.0 */</span></a>
|
|
<a name="510"><span class="lineNum"> 510 </span> : {</a>
|
|
<a name="511"><span class="lineNum"> 511 </span><span class="lineNoCov"> 0 : show_var_attributes (var, READONLY_OR_EXPORT, nodefs);</span></a>
|
|
<a name="512"><span class="lineNum"> 512 </span><span class="lineNoCov"> 0 : return (0);</span></a>
|
|
<a name="513"><span class="lineNum"> 513 </span> : }</a>
|
|
<a name="514"><span class="lineNum"> 514 </span> : else</a>
|
|
<a name="515"><span class="lineNum"> 515 </span> : return (1);</a>
|
|
<a name="516"><span class="lineNum"> 516 </span> : }</a>
|
|
<a name="517"><span class="lineNum"> 517 </span> : </a>
|
|
<a name="518"><span class="lineNum"> 518 </span> : int</a>
|
|
<a name="519"><span class="lineNum"> 519 </span><span class="lineNoCov"> 0 : show_func_attributes (name, nodefs)</span></a>
|
|
<a name="520"><span class="lineNum"> 520 </span> : char *name;</a>
|
|
<a name="521"><span class="lineNum"> 521 </span> : int nodefs;</a>
|
|
<a name="522"><span class="lineNum"> 522 </span> : {</a>
|
|
<a name="523"><span class="lineNum"> 523 </span><span class="lineNoCov"> 0 : SHELL_VAR *var;</span></a>
|
|
<a name="524"><span class="lineNum"> 524 </span> : </a>
|
|
<a name="525"><span class="lineNum"> 525 </span><span class="lineNoCov"> 0 : var = find_function (name);</span></a>
|
|
<a name="526"><span class="lineNum"> 526 </span> : </a>
|
|
<a name="527"><span class="lineNum"> 527 </span><span class="lineNoCov"> 0 : if (var)</span></a>
|
|
<a name="528"><span class="lineNum"> 528 </span> : {</a>
|
|
<a name="529"><span class="lineNum"> 529 </span><span class="lineNoCov"> 0 : show_var_attributes (var, READONLY_OR_EXPORT, nodefs);</span></a>
|
|
<a name="530"><span class="lineNum"> 530 </span><span class="lineNoCov"> 0 : return (0);</span></a>
|
|
<a name="531"><span class="lineNum"> 531 </span> : }</a>
|
|
<a name="532"><span class="lineNum"> 532 </span> : else</a>
|
|
<a name="533"><span class="lineNum"> 533 </span> : return (1);</a>
|
|
<a name="534"><span class="lineNum"> 534 </span> : }</a>
|
|
<a name="535"><span class="lineNum"> 535 </span> : </a>
|
|
<a name="536"><span class="lineNum"> 536 </span> : void</a>
|
|
<a name="537"><span class="lineNum"> 537 </span><span class="lineCov"> 59 : set_var_attribute (name, attribute, undo)</span></a>
|
|
<a name="538"><span class="lineNum"> 538 </span> : char *name;</a>
|
|
<a name="539"><span class="lineNum"> 539 </span> : int attribute, undo;</a>
|
|
<a name="540"><span class="lineNum"> 540 </span> : {</a>
|
|
<a name="541"><span class="lineNum"> 541 </span><span class="lineCov"> 59 : SHELL_VAR *var, *tv, *v, *refvar;</span></a>
|
|
<a name="542"><span class="lineNum"> 542 </span><span class="lineCov"> 59 : char *tvalue;</span></a>
|
|
<a name="543"><span class="lineNum"> 543 </span> : </a>
|
|
<a name="544"><span class="lineNum"> 544 </span><span class="lineCov"> 59 : if (undo)</span></a>
|
|
<a name="545"><span class="lineNum"> 545 </span><span class="lineNoCov"> 0 : var = find_variable (name);</span></a>
|
|
<a name="546"><span class="lineNum"> 546 </span> : else</a>
|
|
<a name="547"><span class="lineNum"> 547 </span> : {</a>
|
|
<a name="548"><span class="lineNum"> 548 </span><span class="lineCov"> 59 : tv = find_tempenv_variable (name);</span></a>
|
|
<a name="549"><span class="lineNum"> 549 </span> : /* XXX -- need to handle case where tv is a temp variable in a</a>
|
|
<a name="550"><span class="lineNum"> 550 </span> : function-scope context, since function_env has been merged into</a>
|
|
<a name="551"><span class="lineNum"> 551 </span> : the local variables table. */</a>
|
|
<a name="552"><span class="lineNum"> 552 </span><span class="lineCov"> 59 : if (tv && tempvar_p (tv))</span></a>
|
|
<a name="553"><span class="lineNum"> 553 </span> : {</a>
|
|
<a name="554"><span class="lineNum"> 554 </span><span class="lineNoCov"> 0 : tvalue = var_isset (tv) ? savestring (value_cell (tv)) : savestring ("");</span></a>
|
|
<a name="555"><span class="lineNum"> 555 </span> : </a>
|
|
<a name="556"><span class="lineNum"> 556 </span><span class="lineNoCov"> 0 : var = bind_variable (tv->name, tvalue, 0);</span></a>
|
|
<a name="557"><span class="lineNum"> 557 </span><span class="lineNoCov"> 0 : if (var == 0)</span></a>
|
|
<a name="558"><span class="lineNum"> 558 </span> : {</a>
|
|
<a name="559"><span class="lineNum"> 559 </span><span class="lineNoCov"> 0 : free (tvalue);</span></a>
|
|
<a name="560"><span class="lineNum"> 560 </span><span class="lineNoCov"> 0 : return; /* XXX - no error message here */</span></a>
|
|
<a name="561"><span class="lineNum"> 561 </span> : }</a>
|
|
<a name="562"><span class="lineNum"> 562 </span><span class="lineNoCov"> 0 : var->attributes |= tv->attributes & ~att_tempvar;</span></a>
|
|
<a name="563"><span class="lineNum"> 563 </span> : /* This avoids an error message when propagating a read-only var</a>
|
|
<a name="564"><span class="lineNum"> 564 </span> : later on. */</a>
|
|
<a name="565"><span class="lineNum"> 565 </span><span class="lineNoCov"> 0 : if (var->context == 0 && (attribute & att_readonly))</span></a>
|
|
<a name="566"><span class="lineNum"> 566 </span> : {</a>
|
|
<a name="567"><span class="lineNum"> 567 </span> : /* Don't bother to set the `propagate to the global variables</a>
|
|
<a name="568"><span class="lineNum"> 568 </span> : table' flag if we've just bound the variable in that table */</a>
|
|
<a name="569"><span class="lineNum"> 569 </span><span class="lineNoCov"> 0 : v = find_global_variable (tv->name);</span></a>
|
|
<a name="570"><span class="lineNum"> 570 </span><span class="lineNoCov"> 0 : if (v != var)</span></a>
|
|
<a name="571"><span class="lineNum"> 571 </span><span class="lineNoCov"> 0 : VSETATTR (tv, att_propagate);</span></a>
|
|
<a name="572"><span class="lineNum"> 572 </span> : }</a>
|
|
<a name="573"><span class="lineNum"> 573 </span> : else</a>
|
|
<a name="574"><span class="lineNum"> 574 </span><span class="lineNoCov"> 0 : VSETATTR (tv, att_propagate);</span></a>
|
|
<a name="575"><span class="lineNum"> 575 </span><span class="lineNoCov"> 0 : if (var->context != 0)</span></a>
|
|
<a name="576"><span class="lineNum"> 576 </span><span class="lineNoCov"> 0 : VSETATTR (var, att_propagate);</span></a>
|
|
<a name="577"><span class="lineNum"> 577 </span><span class="lineNoCov"> 0 : SETVARATTR (tv, attribute, undo); /* XXX */</span></a>
|
|
<a name="578"><span class="lineNum"> 578 </span> : </a>
|
|
<a name="579"><span class="lineNum"> 579 </span><span class="lineNoCov"> 0 : stupidly_hack_special_variables (tv->name);</span></a>
|
|
<a name="580"><span class="lineNum"> 580 </span> : </a>
|
|
<a name="581"><span class="lineNum"> 581 </span><span class="lineNoCov"> 0 : free (tvalue);</span></a>
|
|
<a name="582"><span class="lineNum"> 582 </span> : }</a>
|
|
<a name="583"><span class="lineNum"> 583 </span> : else</a>
|
|
<a name="584"><span class="lineNum"> 584 </span> : {</a>
|
|
<a name="585"><span class="lineNum"> 585 </span><span class="lineCov"> 59 : var = find_variable_notempenv (name);</span></a>
|
|
<a name="586"><span class="lineNum"> 586 </span><span class="lineCov"> 59 : if (var == 0)</span></a>
|
|
<a name="587"><span class="lineNum"> 587 </span> : {</a>
|
|
<a name="588"><span class="lineNum"> 588 </span> : /* We might have a nameref pointing to something that we can't</a>
|
|
<a name="589"><span class="lineNum"> 589 </span> : resolve to a shell variable. If we do, skip it. We do a little</a>
|
|
<a name="590"><span class="lineNum"> 590 </span> : checking just so we can print an error message. */</a>
|
|
<a name="591"><span class="lineNum"> 591 </span><span class="lineCov"> 35 : refvar = find_variable_nameref_for_create (name, 0);</span></a>
|
|
<a name="592"><span class="lineNum"> 592 </span><span class="lineCov"> 35 : if (refvar == INVALID_NAMEREF_VALUE)</span></a>
|
|
<a name="593"><span class="lineNum"> 593 </span> : return;</a>
|
|
<a name="594"><span class="lineNum"> 594 </span> : /* Otherwise we probably have a nameref pointing to a variable</a>
|
|
<a name="595"><span class="lineNum"> 595 </span> : that hasn't been created yet. bind_variable will take care</a>
|
|
<a name="596"><span class="lineNum"> 596 </span> : of that. */</a>
|
|
<a name="597"><span class="lineNum"> 597 </span> : }</a>
|
|
<a name="598"><span class="lineNum"> 598 </span><span class="lineCov"> 59 : if (var == 0)</span></a>
|
|
<a name="599"><span class="lineNum"> 599 </span> : {</a>
|
|
<a name="600"><span class="lineNum"> 600 </span><span class="lineCov"> 35 : var = bind_variable (name, (char *)NULL, 0);</span></a>
|
|
<a name="601"><span class="lineNum"> 601 </span><span class="lineCov"> 35 : if (var && no_invisible_vars == 0)</span></a>
|
|
<a name="602"><span class="lineNum"> 602 </span><span class="lineCov"> 35 : VSETATTR (var, att_invisible);</span></a>
|
|
<a name="603"><span class="lineNum"> 603 </span> : }</a>
|
|
<a name="604"><span class="lineNum"> 604 </span><span class="lineCov"> 24 : else if (var->context != 0)</span></a>
|
|
<a name="605"><span class="lineNum"> 605 </span><span class="lineNoCov"> 0 : VSETATTR (var, att_propagate);</span></a>
|
|
<a name="606"><span class="lineNum"> 606 </span> : }</a>
|
|
<a name="607"><span class="lineNum"> 607 </span> : }</a>
|
|
<a name="608"><span class="lineNum"> 608 </span> : </a>
|
|
<a name="609"><span class="lineNum"> 609 </span><span class="lineCov"> 59 : if (var)</span></a>
|
|
<a name="610"><span class="lineNum"> 610 </span><span class="lineCov"> 59 : SETVARATTR (var, attribute, undo);</span></a>
|
|
<a name="611"><span class="lineNum"> 611 </span> : </a>
|
|
<a name="612"><span class="lineNum"> 612 </span><span class="lineCov"> 59 : if (var && (exported_p (var) || (attribute & att_exported)))</span></a>
|
|
<a name="613"><span class="lineNum"> 613 </span><span class="lineCov"> 34 : array_needs_making++; /* XXX */</span></a>
|
|
<a name="614"><span class="lineNum"> 614 </span> : </a>
|
|
<a name="615"><span class="lineNum"> 615 </span><span class="lineCov"> 59 : if (var)</span></a>
|
|
<a name="616"><span class="lineNum"> 616 </span><span class="lineCov"> 59 : stupidly_hack_special_variables (name);</span></a>
|
|
<a name="617"><span class="lineNum"> 617 </span> : }</a>
|
|
</pre>
|
|
</td>
|
|
</tr>
|
|
</table>
|
|
<br>
|
|
|
|
<table width="100%" border=0 cellspacing=0 cellpadding=0>
|
|
<tr><td class="ruler"><img src="../glass.png" width=3 height=3 alt=""></td></tr>
|
|
<tr><td class="versionInfo">Generated by: <a href="http://ltp.sourceforge.net/coverage/lcov.php" target="_parent">LCOV version 1.14.0.6.4058</a></td></tr>
|
|
</table>
|
|
<br>
|
|
|
|
</body>
|
|
</html>
|