1069 lines
109 KiB
HTML
1069 lines
109 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-sh.info - bash-4.4.23/make_cmd.c</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">bash-4.4.23</a> - make_cmd.c<span style="font-size: 80%;"> (source / <a href="make_cmd.c.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-sh.info</td>
|
|
<td></td>
|
|
<td class="headerItem">Lines:</td>
|
|
<td class="headerCovTableEntry">271</td>
|
|
<td class="headerCovTableEntry">396</td>
|
|
<td class="headerCovTableEntryLo">68.4 %</td>
|
|
</tr>
|
|
<tr>
|
|
<td class="headerItem">Date:</td>
|
|
<td class="headerValue">2020-10-29 14:49:55</td>
|
|
<td></td>
|
|
<td class="headerItem">Functions:</td>
|
|
<td class="headerCovTableEntry">25</td>
|
|
<td class="headerCovTableEntry">34</td>
|
|
<td class="headerCovTableEntryLo">73.5 %</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> : /* make_cmd.c -- Functions for making instances of the various</a>
|
|
<a name="2"><span class="lineNum"> 2 </span> : parser constructs. */</a>
|
|
<a name="3"><span class="lineNum"> 3 </span> : </a>
|
|
<a name="4"><span class="lineNum"> 4 </span> : /* Copyright (C) 1989-2009 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> : </a>
|
|
<a name="22"><span class="lineNum"> 22 </span> : #include "config.h"</a>
|
|
<a name="23"><span class="lineNum"> 23 </span> : </a>
|
|
<a name="24"><span class="lineNum"> 24 </span> : #include <stdio.h></a>
|
|
<a name="25"><span class="lineNum"> 25 </span> : #include "bashtypes.h"</a>
|
|
<a name="26"><span class="lineNum"> 26 </span> : #if !defined (_MINIX) && defined (HAVE_SYS_FILE_H)</a>
|
|
<a name="27"><span class="lineNum"> 27 </span> : # include <sys/file.h></a>
|
|
<a name="28"><span class="lineNum"> 28 </span> : #endif</a>
|
|
<a name="29"><span class="lineNum"> 29 </span> : #include "filecntl.h"</a>
|
|
<a name="30"><span class="lineNum"> 30 </span> : #include "bashansi.h"</a>
|
|
<a name="31"><span class="lineNum"> 31 </span> : #if defined (HAVE_UNISTD_H)</a>
|
|
<a name="32"><span class="lineNum"> 32 </span> : # include <unistd.h></a>
|
|
<a name="33"><span class="lineNum"> 33 </span> : #endif</a>
|
|
<a name="34"><span class="lineNum"> 34 </span> : </a>
|
|
<a name="35"><span class="lineNum"> 35 </span> : #include "bashintl.h"</a>
|
|
<a name="36"><span class="lineNum"> 36 </span> : </a>
|
|
<a name="37"><span class="lineNum"> 37 </span> : #include "parser.h"</a>
|
|
<a name="38"><span class="lineNum"> 38 </span> : #include "syntax.h"</a>
|
|
<a name="39"><span class="lineNum"> 39 </span> : #include "command.h"</a>
|
|
<a name="40"><span class="lineNum"> 40 </span> : #include "general.h"</a>
|
|
<a name="41"><span class="lineNum"> 41 </span> : #include "error.h"</a>
|
|
<a name="42"><span class="lineNum"> 42 </span> : #include "flags.h"</a>
|
|
<a name="43"><span class="lineNum"> 43 </span> : #include "make_cmd.h"</a>
|
|
<a name="44"><span class="lineNum"> 44 </span> : #include "dispose_cmd.h"</a>
|
|
<a name="45"><span class="lineNum"> 45 </span> : #include "execute_cmd.h"</a>
|
|
<a name="46"><span class="lineNum"> 46 </span> : #include "variables.h"</a>
|
|
<a name="47"><span class="lineNum"> 47 </span> : #include "subst.h"</a>
|
|
<a name="48"><span class="lineNum"> 48 </span> : #include "input.h"</a>
|
|
<a name="49"><span class="lineNum"> 49 </span> : #include "ocache.h"</a>
|
|
<a name="50"><span class="lineNum"> 50 </span> : #include "externs.h"</a>
|
|
<a name="51"><span class="lineNum"> 51 </span> : #include "builtins.h"</a>
|
|
<a name="52"><span class="lineNum"> 52 </span> : </a>
|
|
<a name="53"><span class="lineNum"> 53 </span> : #include "builtins/common.h"</a>
|
|
<a name="54"><span class="lineNum"> 54 </span> : </a>
|
|
<a name="55"><span class="lineNum"> 55 </span> : #if defined (JOB_CONTROL)</a>
|
|
<a name="56"><span class="lineNum"> 56 </span> : #include "jobs.h"</a>
|
|
<a name="57"><span class="lineNum"> 57 </span> : #endif</a>
|
|
<a name="58"><span class="lineNum"> 58 </span> : </a>
|
|
<a name="59"><span class="lineNum"> 59 </span> : #include "shmbutil.h"</a>
|
|
<a name="60"><span class="lineNum"> 60 </span> : </a>
|
|
<a name="61"><span class="lineNum"> 61 </span> : extern int line_number, current_command_line_count, parser_state;</a>
|
|
<a name="62"><span class="lineNum"> 62 </span> : extern int last_command_exit_value;</a>
|
|
<a name="63"><span class="lineNum"> 63 </span> : extern int shell_initialized;</a>
|
|
<a name="64"><span class="lineNum"> 64 </span> : extern int rpm_requires;</a>
|
|
<a name="65"><span class="lineNum"> 65 </span> : </a>
|
|
<a name="66"><span class="lineNum"> 66 </span> : int here_doc_first_line = 0;</a>
|
|
<a name="67"><span class="lineNum"> 67 </span> : </a>
|
|
<a name="68"><span class="lineNum"> 68 </span> : static char *alphabet_set = "abcdefghijklmnopqrstuvwxyz"</a>
|
|
<a name="69"><span class="lineNum"> 69 </span> : "ABCDEFGHIJKLMNOPQRSTUVWXYZ";</a>
|
|
<a name="70"><span class="lineNum"> 70 </span> : </a>
|
|
<a name="71"><span class="lineNum"> 71 </span> : /* Object caching */</a>
|
|
<a name="72"><span class="lineNum"> 72 </span> : sh_obj_cache_t wdcache = {0, 0, 0};</a>
|
|
<a name="73"><span class="lineNum"> 73 </span> : sh_obj_cache_t wlcache = {0, 0, 0};</a>
|
|
<a name="74"><span class="lineNum"> 74 </span> : </a>
|
|
<a name="75"><span class="lineNum"> 75 </span> : #define WDCACHESIZE 128</a>
|
|
<a name="76"><span class="lineNum"> 76 </span> : #define WLCACHESIZE 128</a>
|
|
<a name="77"><span class="lineNum"> 77 </span> : </a>
|
|
<a name="78"><span class="lineNum"> 78 </span> : static COMMAND *make_for_or_select __P((enum command_type, WORD_DESC *, WORD_LIST *, COMMAND *, int));</a>
|
|
<a name="79"><span class="lineNum"> 79 </span> : #if defined (ARITH_FOR_COMMAND)</a>
|
|
<a name="80"><span class="lineNum"> 80 </span> : static WORD_LIST *make_arith_for_expr __P((char *));</a>
|
|
<a name="81"><span class="lineNum"> 81 </span> : #endif</a>
|
|
<a name="82"><span class="lineNum"> 82 </span> : static COMMAND *make_until_or_while __P((enum command_type, COMMAND *, COMMAND *));</a>
|
|
<a name="83"><span class="lineNum"> 83 </span> : </a>
|
|
<a name="84"><span class="lineNum"> 84 </span> : void</a>
|
|
<a name="85"><span class="lineNum"> 85 </span><span class="lineCov"> 9542926 : cmd_init ()</span></a>
|
|
<a name="86"><span class="lineNum"> 86 </span> : {</a>
|
|
<a name="87"><span class="lineNum"> 87 </span><span class="lineCov"> 9542926 : ocache_create (wdcache, WORD_DESC, WDCACHESIZE);</span></a>
|
|
<a name="88"><span class="lineNum"> 88 </span><span class="lineCov"> 9542926 : ocache_create (wlcache, WORD_LIST, WLCACHESIZE);</span></a>
|
|
<a name="89"><span class="lineNum"> 89 </span><span class="lineCov"> 9542926 : }</span></a>
|
|
<a name="90"><span class="lineNum"> 90 </span> : </a>
|
|
<a name="91"><span class="lineNum"> 91 </span> : WORD_DESC *</a>
|
|
<a name="92"><span class="lineNum"> 92 </span><span class="lineCov"> 1693158040 : alloc_word_desc ()</span></a>
|
|
<a name="93"><span class="lineNum"> 93 </span> : {</a>
|
|
<a name="94"><span class="lineNum"> 94 </span><span class="lineCov"> 1693158040 : WORD_DESC *temp;</span></a>
|
|
<a name="95"><span class="lineNum"> 95 </span> : </a>
|
|
<a name="96"><span class="lineNum"> 96 </span><span class="lineCov"> 1693158040 : ocache_alloc (wdcache, WORD_DESC, temp);</span></a>
|
|
<a name="97"><span class="lineNum"> 97 </span><span class="lineCov"> 1693158040 : temp->flags = 0;</span></a>
|
|
<a name="98"><span class="lineNum"> 98 </span><span class="lineCov"> 1693158040 : temp->word = 0;</span></a>
|
|
<a name="99"><span class="lineNum"> 99 </span><span class="lineCov"> 1693158040 : return temp;</span></a>
|
|
<a name="100"><span class="lineNum"> 100 </span> : }</a>
|
|
<a name="101"><span class="lineNum"> 101 </span> : </a>
|
|
<a name="102"><span class="lineNum"> 102 </span> : WORD_DESC *</a>
|
|
<a name="103"><span class="lineNum"> 103 </span><span class="lineCov"> 771689644 : make_bare_word (string)</span></a>
|
|
<a name="104"><span class="lineNum"> 104 </span> : const char *string;</a>
|
|
<a name="105"><span class="lineNum"> 105 </span> : {</a>
|
|
<a name="106"><span class="lineNum"> 106 </span><span class="lineCov"> 771689644 : WORD_DESC *temp;</span></a>
|
|
<a name="107"><span class="lineNum"> 107 </span> : </a>
|
|
<a name="108"><span class="lineNum"> 108 </span><span class="lineCov"> 771689644 : temp = alloc_word_desc ();</span></a>
|
|
<a name="109"><span class="lineNum"> 109 </span> : </a>
|
|
<a name="110"><span class="lineNum"> 110 </span><span class="lineCov"> 771689644 : if (*string)</span></a>
|
|
<a name="111"><span class="lineNum"> 111 </span><span class="lineCov"> 771689559 : temp->word = savestring (string);</span></a>
|
|
<a name="112"><span class="lineNum"> 112 </span> : else</a>
|
|
<a name="113"><span class="lineNum"> 113 </span> : {</a>
|
|
<a name="114"><span class="lineNum"> 114 </span><span class="lineCov"> 85 : temp->word = (char *)xmalloc (1);</span></a>
|
|
<a name="115"><span class="lineNum"> 115 </span><span class="lineCov"> 85 : temp->word[0] = '\0';</span></a>
|
|
<a name="116"><span class="lineNum"> 116 </span> : }</a>
|
|
<a name="117"><span class="lineNum"> 117 </span> : </a>
|
|
<a name="118"><span class="lineNum"> 118 </span><span class="lineCov"> 771689644 : return (temp);</span></a>
|
|
<a name="119"><span class="lineNum"> 119 </span> : }</a>
|
|
<a name="120"><span class="lineNum"> 120 </span> : </a>
|
|
<a name="121"><span class="lineNum"> 121 </span> : WORD_DESC *</a>
|
|
<a name="122"><span class="lineNum"> 122 </span><span class="lineCov"> 5658363 : make_word_flags (w, string)</span></a>
|
|
<a name="123"><span class="lineNum"> 123 </span> : WORD_DESC *w;</a>
|
|
<a name="124"><span class="lineNum"> 124 </span> : const char *string;</a>
|
|
<a name="125"><span class="lineNum"> 125 </span> : {</a>
|
|
<a name="126"><span class="lineNum"> 126 </span><span class="lineCov"> 5658363 : register int i;</span></a>
|
|
<a name="127"><span class="lineNum"> 127 </span><span class="lineCov"> 5658363 : size_t slen;</span></a>
|
|
<a name="128"><span class="lineNum"> 128 </span><span class="lineCov"> 5658363 : DECLARE_MBSTATE;</span></a>
|
|
<a name="129"><span class="lineNum"> 129 </span> : </a>
|
|
<a name="130"><span class="lineNum"> 130 </span><span class="lineCov"> 5658363 : i = 0;</span></a>
|
|
<a name="131"><span class="lineNum"> 131 </span><span class="lineCov"> 5658363 : slen = strlen (string);</span></a>
|
|
<a name="132"><span class="lineNum"> 132 </span><span class="lineCov"> 5658363 : while (i < slen)</span></a>
|
|
<a name="133"><span class="lineNum"> 133 </span> : {</a>
|
|
<a name="134"><span class="lineNum"> 134 </span><span class="lineCov"> 9034014 : switch (string[i])</span></a>
|
|
<a name="135"><span class="lineNum"> 135 </span> : {</a>
|
|
<a name="136"><span class="lineNum"> 136 </span><span class="lineCov"> 1806 : case '$':</span></a>
|
|
<a name="137"><span class="lineNum"> 137 </span><span class="lineCov"> 1806 : w->flags |= W_HASDOLLAR;</span></a>
|
|
<a name="138"><span class="lineNum"> 138 </span><span class="lineCov"> 1806 : break;</span></a>
|
|
<a name="139"><span class="lineNum"> 139 </span> : case '\\':</a>
|
|
<a name="140"><span class="lineNum"> 140 </span> : break; /* continue the loop */</a>
|
|
<a name="141"><span class="lineNum"> 141 </span><span class="lineCov"> 4439 : case '\'':</span></a>
|
|
<a name="142"><span class="lineNum"> 142 </span> : case '`':</a>
|
|
<a name="143"><span class="lineNum"> 143 </span> : case '"':</a>
|
|
<a name="144"><span class="lineNum"> 144 </span><span class="lineCov"> 4439 : w->flags |= W_QUOTED;</span></a>
|
|
<a name="145"><span class="lineNum"> 145 </span><span class="lineCov"> 4439 : break;</span></a>
|
|
<a name="146"><span class="lineNum"> 146 </span> : }</a>
|
|
<a name="147"><span class="lineNum"> 147 </span> : </a>
|
|
<a name="148"><span class="lineNum"> 148 </span><span class="lineCov"> 23726391 : ADVANCE_CHAR (string, slen, i);</span></a>
|
|
<a name="149"><span class="lineNum"> 149 </span> : }</a>
|
|
<a name="150"><span class="lineNum"> 150 </span> : </a>
|
|
<a name="151"><span class="lineNum"> 151 </span><span class="lineCov"> 5658363 : return (w);</span></a>
|
|
<a name="152"><span class="lineNum"> 152 </span> : }</a>
|
|
<a name="153"><span class="lineNum"> 153 </span> : </a>
|
|
<a name="154"><span class="lineNum"> 154 </span> : WORD_DESC *</a>
|
|
<a name="155"><span class="lineNum"> 155 </span><span class="lineCov"> 5656591 : make_word (string)</span></a>
|
|
<a name="156"><span class="lineNum"> 156 </span> : const char *string;</a>
|
|
<a name="157"><span class="lineNum"> 157 </span> : {</a>
|
|
<a name="158"><span class="lineNum"> 158 </span><span class="lineCov"> 5656591 : WORD_DESC *temp;</span></a>
|
|
<a name="159"><span class="lineNum"> 159 </span> : </a>
|
|
<a name="160"><span class="lineNum"> 160 </span><span class="lineCov"> 5656591 : temp = make_bare_word (string);</span></a>
|
|
<a name="161"><span class="lineNum"> 161 </span><span class="lineCov"> 5656591 : return (make_word_flags (temp, string));</span></a>
|
|
<a name="162"><span class="lineNum"> 162 </span> : }</a>
|
|
<a name="163"><span class="lineNum"> 163 </span> : </a>
|
|
<a name="164"><span class="lineNum"> 164 </span> : WORD_DESC *</a>
|
|
<a name="165"><span class="lineNum"> 165 </span><span class="lineNoCov"> 0 : make_word_from_token (token)</span></a>
|
|
<a name="166"><span class="lineNum"> 166 </span> : int token;</a>
|
|
<a name="167"><span class="lineNum"> 167 </span> : {</a>
|
|
<a name="168"><span class="lineNum"> 168 </span><span class="lineNoCov"> 0 : char tokenizer[2];</span></a>
|
|
<a name="169"><span class="lineNum"> 169 </span> : </a>
|
|
<a name="170"><span class="lineNum"> 170 </span><span class="lineNoCov"> 0 : tokenizer[0] = token;</span></a>
|
|
<a name="171"><span class="lineNum"> 171 </span><span class="lineNoCov"> 0 : tokenizer[1] = '\0';</span></a>
|
|
<a name="172"><span class="lineNum"> 172 </span> : </a>
|
|
<a name="173"><span class="lineNum"> 173 </span><span class="lineNoCov"> 0 : return (make_word (tokenizer));</span></a>
|
|
<a name="174"><span class="lineNum"> 174 </span> : }</a>
|
|
<a name="175"><span class="lineNum"> 175 </span> : </a>
|
|
<a name="176"><span class="lineNum"> 176 </span> : WORD_LIST *</a>
|
|
<a name="177"><span class="lineNum"> 177 </span><span class="lineCov"> 1522077523 : make_word_list (word, wlink)</span></a>
|
|
<a name="178"><span class="lineNum"> 178 </span> : WORD_DESC *word;</a>
|
|
<a name="179"><span class="lineNum"> 179 </span> : WORD_LIST *wlink;</a>
|
|
<a name="180"><span class="lineNum"> 180 </span> : {</a>
|
|
<a name="181"><span class="lineNum"> 181 </span><span class="lineCov"> 1522077523 : WORD_LIST *temp;</span></a>
|
|
<a name="182"><span class="lineNum"> 182 </span> : </a>
|
|
<a name="183"><span class="lineNum"> 183 </span><span class="lineCov"> 1522077523 : ocache_alloc (wlcache, WORD_LIST, temp);</span></a>
|
|
<a name="184"><span class="lineNum"> 184 </span> : </a>
|
|
<a name="185"><span class="lineNum"> 185 </span><span class="lineCov"> 1522077523 : temp->word = word;</span></a>
|
|
<a name="186"><span class="lineNum"> 186 </span><span class="lineCov"> 1522077523 : temp->next = wlink;</span></a>
|
|
<a name="187"><span class="lineNum"> 187 </span><span class="lineCov"> 1522077523 : return (temp);</span></a>
|
|
<a name="188"><span class="lineNum"> 188 </span> : }</a>
|
|
<a name="189"><span class="lineNum"> 189 </span> : </a>
|
|
<a name="190"><span class="lineNum"> 190 </span> : COMMAND *</a>
|
|
<a name="191"><span class="lineNum"> 191 </span><span class="lineNoCov"> 0 : make_command (type, pointer)</span></a>
|
|
<a name="192"><span class="lineNum"> 192 </span> : enum command_type type;</a>
|
|
<a name="193"><span class="lineNum"> 193 </span> : SIMPLE_COM *pointer;</a>
|
|
<a name="194"><span class="lineNum"> 194 </span> : {</a>
|
|
<a name="195"><span class="lineNum"> 195 </span><span class="lineCov"> 218732018 : COMMAND *temp;</span></a>
|
|
<a name="196"><span class="lineNum"> 196 </span> : </a>
|
|
<a name="197"><span class="lineNum"> 197 </span><span class="lineNoCov"> 0 : temp = (COMMAND *)xmalloc (sizeof (COMMAND));</span></a>
|
|
<a name="198"><span class="lineNum"> 198 </span><span class="lineCov"> 218732018 : temp->type = type;</span></a>
|
|
<a name="199"><span class="lineNum"> 199 </span><span class="lineCov"> 218732018 : temp->value.Simple = pointer;</span></a>
|
|
<a name="200"><span class="lineNum"> 200 </span><span class="lineCov"> 218732018 : temp->value.Simple->flags = temp->flags = 0;</span></a>
|
|
<a name="201"><span class="lineNum"> 201 </span><span class="lineCov"> 218732018 : temp->redirects = (REDIRECT *)NULL;</span></a>
|
|
<a name="202"><span class="lineNum"> 202 </span><span class="lineCov"> 218732018 : return (temp);</span></a>
|
|
<a name="203"><span class="lineNum"> 203 </span> : }</a>
|
|
<a name="204"><span class="lineNum"> 204 </span> : </a>
|
|
<a name="205"><span class="lineNum"> 205 </span> : COMMAND *</a>
|
|
<a name="206"><span class="lineNum"> 206 </span><span class="lineCov"> 86115900 : command_connect (com1, com2, connector)</span></a>
|
|
<a name="207"><span class="lineNum"> 207 </span> : COMMAND *com1, *com2;</a>
|
|
<a name="208"><span class="lineNum"> 208 </span> : int connector;</a>
|
|
<a name="209"><span class="lineNum"> 209 </span> : {</a>
|
|
<a name="210"><span class="lineNum"> 210 </span><span class="lineCov"> 86115900 : CONNECTION *temp;</span></a>
|
|
<a name="211"><span class="lineNum"> 211 </span> : </a>
|
|
<a name="212"><span class="lineNum"> 212 </span><span class="lineCov"> 86115900 : temp = (CONNECTION *)xmalloc (sizeof (CONNECTION));</span></a>
|
|
<a name="213"><span class="lineNum"> 213 </span><span class="lineCov"> 86115900 : temp->connector = connector;</span></a>
|
|
<a name="214"><span class="lineNum"> 214 </span><span class="lineCov"> 86115900 : temp->first = com1;</span></a>
|
|
<a name="215"><span class="lineNum"> 215 </span><span class="lineCov"> 86115900 : temp->second = com2;</span></a>
|
|
<a name="216"><span class="lineNum"> 216 </span><span class="lineCov"> 86115900 : return (make_command (cm_connection, (SIMPLE_COM *)temp));</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> : static COMMAND *</a>
|
|
<a name="220"><span class="lineNum"> 220 </span><span class="lineCov"> 9542934 : make_for_or_select (type, name, map_list, action, lineno)</span></a>
|
|
<a name="221"><span class="lineNum"> 221 </span> : enum command_type type;</a>
|
|
<a name="222"><span class="lineNum"> 222 </span> : WORD_DESC *name;</a>
|
|
<a name="223"><span class="lineNum"> 223 </span> : WORD_LIST *map_list;</a>
|
|
<a name="224"><span class="lineNum"> 224 </span> : COMMAND *action;</a>
|
|
<a name="225"><span class="lineNum"> 225 </span> : int lineno;</a>
|
|
<a name="226"><span class="lineNum"> 226 </span> : {</a>
|
|
<a name="227"><span class="lineNum"> 227 </span><span class="lineCov"> 9542934 : FOR_COM *temp;</span></a>
|
|
<a name="228"><span class="lineNum"> 228 </span> : </a>
|
|
<a name="229"><span class="lineNum"> 229 </span><span class="lineCov"> 9542934 : temp = (FOR_COM *)xmalloc (sizeof (FOR_COM));</span></a>
|
|
<a name="230"><span class="lineNum"> 230 </span><span class="lineCov"> 9542934 : temp->flags = 0;</span></a>
|
|
<a name="231"><span class="lineNum"> 231 </span><span class="lineCov"> 9542934 : temp->name = name;</span></a>
|
|
<a name="232"><span class="lineNum"> 232 </span><span class="lineCov"> 9542934 : temp->line = lineno;</span></a>
|
|
<a name="233"><span class="lineNum"> 233 </span><span class="lineCov"> 9542934 : temp->map_list = map_list;</span></a>
|
|
<a name="234"><span class="lineNum"> 234 </span><span class="lineCov"> 9542934 : temp->action = action;</span></a>
|
|
<a name="235"><span class="lineNum"> 235 </span><span class="lineCov"> 9542934 : return (make_command (type, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="236"><span class="lineNum"> 236 </span> : }</a>
|
|
<a name="237"><span class="lineNum"> 237 </span> : </a>
|
|
<a name="238"><span class="lineNum"> 238 </span> : COMMAND *</a>
|
|
<a name="239"><span class="lineNum"> 239 </span><span class="lineCov"> 9542934 : make_for_command (name, map_list, action, lineno)</span></a>
|
|
<a name="240"><span class="lineNum"> 240 </span> : WORD_DESC *name;</a>
|
|
<a name="241"><span class="lineNum"> 241 </span> : WORD_LIST *map_list;</a>
|
|
<a name="242"><span class="lineNum"> 242 </span> : COMMAND *action;</a>
|
|
<a name="243"><span class="lineNum"> 243 </span> : int lineno;</a>
|
|
<a name="244"><span class="lineNum"> 244 </span> : {</a>
|
|
<a name="245"><span class="lineNum"> 245 </span><span class="lineCov"> 9542934 : return (make_for_or_select (cm_for, name, map_list, action, lineno));</span></a>
|
|
<a name="246"><span class="lineNum"> 246 </span> : }</a>
|
|
<a name="247"><span class="lineNum"> 247 </span> : </a>
|
|
<a name="248"><span class="lineNum"> 248 </span> : COMMAND *</a>
|
|
<a name="249"><span class="lineNum"> 249 </span><span class="lineNoCov"> 0 : make_select_command (name, map_list, action, lineno)</span></a>
|
|
<a name="250"><span class="lineNum"> 250 </span> : WORD_DESC *name;</a>
|
|
<a name="251"><span class="lineNum"> 251 </span> : WORD_LIST *map_list;</a>
|
|
<a name="252"><span class="lineNum"> 252 </span> : COMMAND *action;</a>
|
|
<a name="253"><span class="lineNum"> 253 </span> : int lineno;</a>
|
|
<a name="254"><span class="lineNum"> 254 </span> : {</a>
|
|
<a name="255"><span class="lineNum"> 255 </span> : #if defined (SELECT_COMMAND)</a>
|
|
<a name="256"><span class="lineNum"> 256 </span><span class="lineNoCov"> 0 : return (make_for_or_select (cm_select, name, map_list, action, lineno));</span></a>
|
|
<a name="257"><span class="lineNum"> 257 </span> : #else</a>
|
|
<a name="258"><span class="lineNum"> 258 </span> : last_command_exit_value = 2;</a>
|
|
<a name="259"><span class="lineNum"> 259 </span> : return ((COMMAND *)NULL);</a>
|
|
<a name="260"><span class="lineNum"> 260 </span> : #endif</a>
|
|
<a name="261"><span class="lineNum"> 261 </span> : }</a>
|
|
<a name="262"><span class="lineNum"> 262 </span> : </a>
|
|
<a name="263"><span class="lineNum"> 263 </span> : #if defined (ARITH_FOR_COMMAND)</a>
|
|
<a name="264"><span class="lineNum"> 264 </span> : static WORD_LIST *</a>
|
|
<a name="265"><span class="lineNum"> 265 </span><span class="lineNoCov"> 0 : make_arith_for_expr (s)</span></a>
|
|
<a name="266"><span class="lineNum"> 266 </span> : char *s;</a>
|
|
<a name="267"><span class="lineNum"> 267 </span> : {</a>
|
|
<a name="268"><span class="lineNum"> 268 </span><span class="lineNoCov"> 0 : WORD_LIST *result;</span></a>
|
|
<a name="269"><span class="lineNum"> 269 </span><span class="lineNoCov"> 0 : WORD_DESC *wd;</span></a>
|
|
<a name="270"><span class="lineNum"> 270 </span> : </a>
|
|
<a name="271"><span class="lineNum"> 271 </span><span class="lineNoCov"> 0 : if (s == 0 || *s == '\0')</span></a>
|
|
<a name="272"><span class="lineNum"> 272 </span> : return ((WORD_LIST *)NULL);</a>
|
|
<a name="273"><span class="lineNum"> 273 </span><span class="lineNoCov"> 0 : wd = make_word (s);</span></a>
|
|
<a name="274"><span class="lineNum"> 274 </span><span class="lineNoCov"> 0 : wd->flags |= W_NOGLOB|W_NOSPLIT|W_QUOTED|W_DQUOTE; /* no word splitting or globbing */</span></a>
|
|
<a name="275"><span class="lineNum"> 275 </span> : #if defined (PROCESS_SUBSTITUTION)</a>
|
|
<a name="276"><span class="lineNum"> 276 </span><span class="lineNoCov"> 0 : wd->flags |= W_NOPROCSUB; /* no process substitution */</span></a>
|
|
<a name="277"><span class="lineNum"> 277 </span> : #endif</a>
|
|
<a name="278"><span class="lineNum"> 278 </span><span class="lineNoCov"> 0 : result = make_word_list (wd, (WORD_LIST *)NULL);</span></a>
|
|
<a name="279"><span class="lineNum"> 279 </span><span class="lineNoCov"> 0 : return result;</span></a>
|
|
<a name="280"><span class="lineNum"> 280 </span> : }</a>
|
|
<a name="281"><span class="lineNum"> 281 </span> : #endif</a>
|
|
<a name="282"><span class="lineNum"> 282 </span> : </a>
|
|
<a name="283"><span class="lineNum"> 283 </span> : /* Note that this function calls dispose_words on EXPRS, since it doesn't</a>
|
|
<a name="284"><span class="lineNum"> 284 </span> : use the word list directly. We free it here rather than at the caller</a>
|
|
<a name="285"><span class="lineNum"> 285 </span> : because no other function in this file requires that the caller free</a>
|
|
<a name="286"><span class="lineNum"> 286 </span> : any arguments. */</a>
|
|
<a name="287"><span class="lineNum"> 287 </span> : COMMAND *</a>
|
|
<a name="288"><span class="lineNum"> 288 </span><span class="lineNoCov"> 0 : make_arith_for_command (exprs, action, lineno)</span></a>
|
|
<a name="289"><span class="lineNum"> 289 </span> : WORD_LIST *exprs;</a>
|
|
<a name="290"><span class="lineNum"> 290 </span> : COMMAND *action;</a>
|
|
<a name="291"><span class="lineNum"> 291 </span> : int lineno;</a>
|
|
<a name="292"><span class="lineNum"> 292 </span> : {</a>
|
|
<a name="293"><span class="lineNum"> 293 </span> : #if defined (ARITH_FOR_COMMAND)</a>
|
|
<a name="294"><span class="lineNum"> 294 </span><span class="lineNoCov"> 0 : ARITH_FOR_COM *temp;</span></a>
|
|
<a name="295"><span class="lineNum"> 295 </span><span class="lineNoCov"> 0 : WORD_LIST *init, *test, *step;</span></a>
|
|
<a name="296"><span class="lineNum"> 296 </span><span class="lineNoCov"> 0 : char *s, *t, *start;</span></a>
|
|
<a name="297"><span class="lineNum"> 297 </span><span class="lineNoCov"> 0 : int nsemi, i;</span></a>
|
|
<a name="298"><span class="lineNum"> 298 </span> : </a>
|
|
<a name="299"><span class="lineNum"> 299 </span><span class="lineNoCov"> 0 : init = test = step = (WORD_LIST *)NULL;</span></a>
|
|
<a name="300"><span class="lineNum"> 300 </span> : /* Parse the string into the three component sub-expressions. */</a>
|
|
<a name="301"><span class="lineNum"> 301 </span><span class="lineNoCov"> 0 : start = t = s = exprs->word->word;</span></a>
|
|
<a name="302"><span class="lineNum"> 302 </span><span class="lineNoCov"> 0 : for (nsemi = 0; ;)</span></a>
|
|
<a name="303"><span class="lineNum"> 303 </span> : {</a>
|
|
<a name="304"><span class="lineNum"> 304 </span> : /* skip whitespace at the start of each sub-expression. */</a>
|
|
<a name="305"><span class="lineNum"> 305 </span><span class="lineNoCov"> 0 : while (whitespace (*s))</span></a>
|
|
<a name="306"><span class="lineNum"> 306 </span><span class="lineNoCov"> 0 : s++;</span></a>
|
|
<a name="307"><span class="lineNum"> 307 </span><span class="lineNoCov"> 0 : start = s;</span></a>
|
|
<a name="308"><span class="lineNum"> 308 </span> : /* skip to the semicolon or EOS */</a>
|
|
<a name="309"><span class="lineNum"> 309 </span><span class="lineNoCov"> 0 : i = skip_to_delim (start, 0, ";", SD_NOJMP|SD_NOPROCSUB);</span></a>
|
|
<a name="310"><span class="lineNum"> 310 </span><span class="lineNoCov"> 0 : s = start + i;</span></a>
|
|
<a name="311"><span class="lineNum"> 311 </span> : </a>
|
|
<a name="312"><span class="lineNum"> 312 </span><span class="lineNoCov"> 0 : t = (i > 0) ? substring (start, 0, i) : (char *)NULL;</span></a>
|
|
<a name="313"><span class="lineNum"> 313 </span> : </a>
|
|
<a name="314"><span class="lineNum"> 314 </span><span class="lineNoCov"> 0 : nsemi++;</span></a>
|
|
<a name="315"><span class="lineNum"> 315 </span><span class="lineNoCov"> 0 : switch (nsemi)</span></a>
|
|
<a name="316"><span class="lineNum"> 316 </span> : {</a>
|
|
<a name="317"><span class="lineNum"> 317 </span><span class="lineNoCov"> 0 : case 1:</span></a>
|
|
<a name="318"><span class="lineNum"> 318 </span><span class="lineNoCov"> 0 : init = make_arith_for_expr (t);</span></a>
|
|
<a name="319"><span class="lineNum"> 319 </span><span class="lineNoCov"> 0 : break;</span></a>
|
|
<a name="320"><span class="lineNum"> 320 </span><span class="lineNoCov"> 0 : case 2:</span></a>
|
|
<a name="321"><span class="lineNum"> 321 </span><span class="lineNoCov"> 0 : test = make_arith_for_expr (t);</span></a>
|
|
<a name="322"><span class="lineNum"> 322 </span><span class="lineNoCov"> 0 : break;</span></a>
|
|
<a name="323"><span class="lineNum"> 323 </span><span class="lineNoCov"> 0 : case 3:</span></a>
|
|
<a name="324"><span class="lineNum"> 324 </span><span class="lineNoCov"> 0 : step = make_arith_for_expr (t);</span></a>
|
|
<a name="325"><span class="lineNum"> 325 </span><span class="lineNoCov"> 0 : break;</span></a>
|
|
<a name="326"><span class="lineNum"> 326 </span> : }</a>
|
|
<a name="327"><span class="lineNum"> 327 </span> : </a>
|
|
<a name="328"><span class="lineNum"> 328 </span><span class="lineNoCov"> 0 : FREE (t);</span></a>
|
|
<a name="329"><span class="lineNum"> 329 </span><span class="lineNoCov"> 0 : if (*s == '\0')</span></a>
|
|
<a name="330"><span class="lineNum"> 330 </span> : break;</a>
|
|
<a name="331"><span class="lineNum"> 331 </span><span class="lineNoCov"> 0 : s++; /* skip over semicolon */</span></a>
|
|
<a name="332"><span class="lineNum"> 332 </span> : }</a>
|
|
<a name="333"><span class="lineNum"> 333 </span> : </a>
|
|
<a name="334"><span class="lineNum"> 334 </span><span class="lineNoCov"> 0 : if (nsemi != 3)</span></a>
|
|
<a name="335"><span class="lineNum"> 335 </span> : {</a>
|
|
<a name="336"><span class="lineNum"> 336 </span><span class="lineNoCov"> 0 : if (nsemi < 3)</span></a>
|
|
<a name="337"><span class="lineNum"> 337 </span><span class="lineNoCov"> 0 : parser_error (lineno, _("syntax error: arithmetic expression required"));</span></a>
|
|
<a name="338"><span class="lineNum"> 338 </span> : else</a>
|
|
<a name="339"><span class="lineNum"> 339 </span><span class="lineNoCov"> 0 : parser_error (lineno, _("syntax error: `;' unexpected"));</span></a>
|
|
<a name="340"><span class="lineNum"> 340 </span><span class="lineNoCov"> 0 : parser_error (lineno, _("syntax error: `((%s))'"), exprs->word->word);</span></a>
|
|
<a name="341"><span class="lineNum"> 341 </span><span class="lineNoCov"> 0 : free (init);</span></a>
|
|
<a name="342"><span class="lineNum"> 342 </span><span class="lineNoCov"> 0 : free (test);</span></a>
|
|
<a name="343"><span class="lineNum"> 343 </span><span class="lineNoCov"> 0 : free (step);</span></a>
|
|
<a name="344"><span class="lineNum"> 344 </span><span class="lineNoCov"> 0 : last_command_exit_value = 2;</span></a>
|
|
<a name="345"><span class="lineNum"> 345 </span><span class="lineNoCov"> 0 : return ((COMMAND *)NULL);</span></a>
|
|
<a name="346"><span class="lineNum"> 346 </span> : }</a>
|
|
<a name="347"><span class="lineNum"> 347 </span> : </a>
|
|
<a name="348"><span class="lineNum"> 348 </span><span class="lineNoCov"> 0 : temp = (ARITH_FOR_COM *)xmalloc (sizeof (ARITH_FOR_COM));</span></a>
|
|
<a name="349"><span class="lineNum"> 349 </span><span class="lineNoCov"> 0 : temp->flags = 0;</span></a>
|
|
<a name="350"><span class="lineNum"> 350 </span><span class="lineNoCov"> 0 : temp->line = lineno;</span></a>
|
|
<a name="351"><span class="lineNum"> 351 </span><span class="lineNoCov"> 0 : temp->init = init ? init : make_arith_for_expr ("1");</span></a>
|
|
<a name="352"><span class="lineNum"> 352 </span><span class="lineNoCov"> 0 : temp->test = test ? test : make_arith_for_expr ("1");</span></a>
|
|
<a name="353"><span class="lineNum"> 353 </span><span class="lineNoCov"> 0 : temp->step = step ? step : make_arith_for_expr ("1");</span></a>
|
|
<a name="354"><span class="lineNum"> 354 </span><span class="lineNoCov"> 0 : temp->action = action;</span></a>
|
|
<a name="355"><span class="lineNum"> 355 </span> : </a>
|
|
<a name="356"><span class="lineNum"> 356 </span><span class="lineNoCov"> 0 : dispose_words (exprs);</span></a>
|
|
<a name="357"><span class="lineNum"> 357 </span><span class="lineNoCov"> 0 : return (make_command (cm_arith_for, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="358"><span class="lineNum"> 358 </span> : #else</a>
|
|
<a name="359"><span class="lineNum"> 359 </span> : dispose_words (exprs);</a>
|
|
<a name="360"><span class="lineNum"> 360 </span> : last_command_exit_value = 2;</a>
|
|
<a name="361"><span class="lineNum"> 361 </span> : return ((COMMAND *)NULL);</a>
|
|
<a name="362"><span class="lineNum"> 362 </span> : #endif /* ARITH_FOR_COMMAND */</a>
|
|
<a name="363"><span class="lineNum"> 363 </span> : }</a>
|
|
<a name="364"><span class="lineNum"> 364 </span> : </a>
|
|
<a name="365"><span class="lineNum"> 365 </span> : COMMAND *</a>
|
|
<a name="366"><span class="lineNum"> 366 </span><span class="lineCov"> 18766112 : make_group_command (command)</span></a>
|
|
<a name="367"><span class="lineNum"> 367 </span> : COMMAND *command;</a>
|
|
<a name="368"><span class="lineNum"> 368 </span> : {</a>
|
|
<a name="369"><span class="lineNum"> 369 </span><span class="lineCov"> 18766112 : GROUP_COM *temp;</span></a>
|
|
<a name="370"><span class="lineNum"> 370 </span> : </a>
|
|
<a name="371"><span class="lineNum"> 371 </span><span class="lineCov"> 18766112 : temp = (GROUP_COM *)xmalloc (sizeof (GROUP_COM));</span></a>
|
|
<a name="372"><span class="lineNum"> 372 </span><span class="lineCov"> 18766112 : temp->command = command;</span></a>
|
|
<a name="373"><span class="lineNum"> 373 </span><span class="lineCov"> 18766112 : return (make_command (cm_group, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="374"><span class="lineNum"> 374 </span> : }</a>
|
|
<a name="375"><span class="lineNum"> 375 </span> : </a>
|
|
<a name="376"><span class="lineNum"> 376 </span> : COMMAND *</a>
|
|
<a name="377"><span class="lineNum"> 377 </span><span class="lineCov"> 15244939 : make_case_command (word, clauses, lineno)</span></a>
|
|
<a name="378"><span class="lineNum"> 378 </span> : WORD_DESC *word;</a>
|
|
<a name="379"><span class="lineNum"> 379 </span> : PATTERN_LIST *clauses;</a>
|
|
<a name="380"><span class="lineNum"> 380 </span> : int lineno;</a>
|
|
<a name="381"><span class="lineNum"> 381 </span> : {</a>
|
|
<a name="382"><span class="lineNum"> 382 </span><span class="lineCov"> 15244939 : CASE_COM *temp;</span></a>
|
|
<a name="383"><span class="lineNum"> 383 </span> : </a>
|
|
<a name="384"><span class="lineNum"> 384 </span><span class="lineCov"> 15244939 : temp = (CASE_COM *)xmalloc (sizeof (CASE_COM));</span></a>
|
|
<a name="385"><span class="lineNum"> 385 </span><span class="lineCov"> 15244939 : temp->flags = 0;</span></a>
|
|
<a name="386"><span class="lineNum"> 386 </span><span class="lineCov"> 15244939 : temp->line = lineno;</span></a>
|
|
<a name="387"><span class="lineNum"> 387 </span><span class="lineCov"> 15244939 : temp->word = word;</span></a>
|
|
<a name="388"><span class="lineNum"> 388 </span><span class="lineCov"> 15244939 : temp->clauses = REVERSE_LIST (clauses, PATTERN_LIST *);</span></a>
|
|
<a name="389"><span class="lineNum"> 389 </span><span class="lineCov"> 15244939 : return (make_command (cm_case, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="390"><span class="lineNum"> 390 </span> : }</a>
|
|
<a name="391"><span class="lineNum"> 391 </span> : </a>
|
|
<a name="392"><span class="lineNum"> 392 </span> : PATTERN_LIST *</a>
|
|
<a name="393"><span class="lineNum"> 393 </span><span class="lineCov"> 49355077 : make_pattern_list (patterns, action)</span></a>
|
|
<a name="394"><span class="lineNum"> 394 </span> : WORD_LIST *patterns;</a>
|
|
<a name="395"><span class="lineNum"> 395 </span> : COMMAND *action;</a>
|
|
<a name="396"><span class="lineNum"> 396 </span> : {</a>
|
|
<a name="397"><span class="lineNum"> 397 </span><span class="lineCov"> 49355077 : PATTERN_LIST *temp;</span></a>
|
|
<a name="398"><span class="lineNum"> 398 </span> : </a>
|
|
<a name="399"><span class="lineNum"> 399 </span><span class="lineCov"> 49355077 : temp = (PATTERN_LIST *)xmalloc (sizeof (PATTERN_LIST));</span></a>
|
|
<a name="400"><span class="lineNum"> 400 </span><span class="lineCov"> 49355077 : temp->patterns = REVERSE_LIST (patterns, WORD_LIST *);</span></a>
|
|
<a name="401"><span class="lineNum"> 401 </span><span class="lineCov"> 49355077 : temp->action = action;</span></a>
|
|
<a name="402"><span class="lineNum"> 402 </span><span class="lineCov"> 49355077 : temp->next = NULL;</span></a>
|
|
<a name="403"><span class="lineNum"> 403 </span><span class="lineCov"> 49355077 : temp->flags = 0;</span></a>
|
|
<a name="404"><span class="lineNum"> 404 </span><span class="lineCov"> 49355077 : return (temp);</span></a>
|
|
<a name="405"><span class="lineNum"> 405 </span> : }</a>
|
|
<a name="406"><span class="lineNum"> 406 </span> : </a>
|
|
<a name="407"><span class="lineNum"> 407 </span> : COMMAND *</a>
|
|
<a name="408"><span class="lineNum"> 408 </span><span class="lineCov"> 68460651 : make_if_command (test, true_case, false_case)</span></a>
|
|
<a name="409"><span class="lineNum"> 409 </span> : COMMAND *test, *true_case, *false_case;</a>
|
|
<a name="410"><span class="lineNum"> 410 </span> : {</a>
|
|
<a name="411"><span class="lineNum"> 411 </span><span class="lineCov"> 68460651 : IF_COM *temp;</span></a>
|
|
<a name="412"><span class="lineNum"> 412 </span> : </a>
|
|
<a name="413"><span class="lineNum"> 413 </span><span class="lineCov"> 68460651 : temp = (IF_COM *)xmalloc (sizeof (IF_COM));</span></a>
|
|
<a name="414"><span class="lineNum"> 414 </span><span class="lineCov"> 68460651 : temp->flags = 0;</span></a>
|
|
<a name="415"><span class="lineNum"> 415 </span><span class="lineCov"> 68460651 : temp->test = test;</span></a>
|
|
<a name="416"><span class="lineNum"> 416 </span><span class="lineCov"> 68460651 : temp->true_case = true_case;</span></a>
|
|
<a name="417"><span class="lineNum"> 417 </span><span class="lineCov"> 68460651 : temp->false_case = false_case;</span></a>
|
|
<a name="418"><span class="lineNum"> 418 </span><span class="lineCov"> 68460651 : return (make_command (cm_if, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="419"><span class="lineNum"> 419 </span> : }</a>
|
|
<a name="420"><span class="lineNum"> 420 </span> : </a>
|
|
<a name="421"><span class="lineNum"> 421 </span> : static COMMAND *</a>
|
|
<a name="422"><span class="lineNum"> 422 </span><span class="lineCov"> 1837387 : make_until_or_while (which, test, action)</span></a>
|
|
<a name="423"><span class="lineNum"> 423 </span> : enum command_type which;</a>
|
|
<a name="424"><span class="lineNum"> 424 </span> : COMMAND *test, *action;</a>
|
|
<a name="425"><span class="lineNum"> 425 </span> : {</a>
|
|
<a name="426"><span class="lineNum"> 426 </span><span class="lineCov"> 1837387 : WHILE_COM *temp;</span></a>
|
|
<a name="427"><span class="lineNum"> 427 </span> : </a>
|
|
<a name="428"><span class="lineNum"> 428 </span><span class="lineCov"> 1837387 : temp = (WHILE_COM *)xmalloc (sizeof (WHILE_COM));</span></a>
|
|
<a name="429"><span class="lineNum"> 429 </span><span class="lineCov"> 1837387 : temp->flags = 0;</span></a>
|
|
<a name="430"><span class="lineNum"> 430 </span><span class="lineCov"> 1837387 : temp->test = test;</span></a>
|
|
<a name="431"><span class="lineNum"> 431 </span><span class="lineCov"> 1837387 : temp->action = action;</span></a>
|
|
<a name="432"><span class="lineNum"> 432 </span><span class="lineCov"> 1837387 : return (make_command (which, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="433"><span class="lineNum"> 433 </span> : }</a>
|
|
<a name="434"><span class="lineNum"> 434 </span> : </a>
|
|
<a name="435"><span class="lineNum"> 435 </span> : COMMAND *</a>
|
|
<a name="436"><span class="lineNum"> 436 </span><span class="lineCov"> 1837387 : make_while_command (test, action)</span></a>
|
|
<a name="437"><span class="lineNum"> 437 </span> : COMMAND *test, *action;</a>
|
|
<a name="438"><span class="lineNum"> 438 </span> : {</a>
|
|
<a name="439"><span class="lineNum"> 439 </span><span class="lineCov"> 1837387 : return (make_until_or_while (cm_while, test, action));</span></a>
|
|
<a name="440"><span class="lineNum"> 440 </span> : }</a>
|
|
<a name="441"><span class="lineNum"> 441 </span> : </a>
|
|
<a name="442"><span class="lineNum"> 442 </span> : COMMAND *</a>
|
|
<a name="443"><span class="lineNum"> 443 </span><span class="lineNoCov"> 0 : make_until_command (test, action)</span></a>
|
|
<a name="444"><span class="lineNum"> 444 </span> : COMMAND *test, *action;</a>
|
|
<a name="445"><span class="lineNum"> 445 </span> : {</a>
|
|
<a name="446"><span class="lineNum"> 446 </span><span class="lineNoCov"> 0 : return (make_until_or_while (cm_until, test, action));</span></a>
|
|
<a name="447"><span class="lineNum"> 447 </span> : }</a>
|
|
<a name="448"><span class="lineNum"> 448 </span> : </a>
|
|
<a name="449"><span class="lineNum"> 449 </span> : COMMAND *</a>
|
|
<a name="450"><span class="lineNum"> 450 </span><span class="lineNoCov"> 0 : make_arith_command (exp)</span></a>
|
|
<a name="451"><span class="lineNum"> 451 </span> : WORD_LIST *exp;</a>
|
|
<a name="452"><span class="lineNum"> 452 </span> : {</a>
|
|
<a name="453"><span class="lineNum"> 453 </span> : #if defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="454"><span class="lineNum"> 454 </span><span class="lineNoCov"> 0 : COMMAND *command;</span></a>
|
|
<a name="455"><span class="lineNum"> 455 </span><span class="lineNoCov"> 0 : ARITH_COM *temp;</span></a>
|
|
<a name="456"><span class="lineNum"> 456 </span> : </a>
|
|
<a name="457"><span class="lineNum"> 457 </span><span class="lineNoCov"> 0 : command = (COMMAND *)xmalloc (sizeof (COMMAND));</span></a>
|
|
<a name="458"><span class="lineNum"> 458 </span><span class="lineNoCov"> 0 : command->value.Arith = temp = (ARITH_COM *)xmalloc (sizeof (ARITH_COM));</span></a>
|
|
<a name="459"><span class="lineNum"> 459 </span> : </a>
|
|
<a name="460"><span class="lineNum"> 460 </span><span class="lineNoCov"> 0 : temp->flags = 0;</span></a>
|
|
<a name="461"><span class="lineNum"> 461 </span><span class="lineNoCov"> 0 : temp->line = line_number;</span></a>
|
|
<a name="462"><span class="lineNum"> 462 </span><span class="lineNoCov"> 0 : temp->exp = exp;</span></a>
|
|
<a name="463"><span class="lineNum"> 463 </span> : </a>
|
|
<a name="464"><span class="lineNum"> 464 </span><span class="lineNoCov"> 0 : command->type = cm_arith;</span></a>
|
|
<a name="465"><span class="lineNum"> 465 </span><span class="lineNoCov"> 0 : command->redirects = (REDIRECT *)NULL;</span></a>
|
|
<a name="466"><span class="lineNum"> 466 </span><span class="lineNoCov"> 0 : command->flags = 0;</span></a>
|
|
<a name="467"><span class="lineNum"> 467 </span> : </a>
|
|
<a name="468"><span class="lineNum"> 468 </span><span class="lineNoCov"> 0 : return (command);</span></a>
|
|
<a name="469"><span class="lineNum"> 469 </span> : #else</a>
|
|
<a name="470"><span class="lineNum"> 470 </span> : last_command_exit_value = 2;</a>
|
|
<a name="471"><span class="lineNum"> 471 </span> : return ((COMMAND *)NULL);</a>
|
|
<a name="472"><span class="lineNum"> 472 </span> : #endif</a>
|
|
<a name="473"><span class="lineNum"> 473 </span> : }</a>
|
|
<a name="474"><span class="lineNum"> 474 </span> : </a>
|
|
<a name="475"><span class="lineNum"> 475 </span> : #if defined (COND_COMMAND)</a>
|
|
<a name="476"><span class="lineNum"> 476 </span> : struct cond_com *</a>
|
|
<a name="477"><span class="lineNum"> 477 </span><span class="lineCov"> 72 : make_cond_node (type, op, left, right)</span></a>
|
|
<a name="478"><span class="lineNum"> 478 </span> : int type;</a>
|
|
<a name="479"><span class="lineNum"> 479 </span> : WORD_DESC *op;</a>
|
|
<a name="480"><span class="lineNum"> 480 </span> : struct cond_com *left, *right;</a>
|
|
<a name="481"><span class="lineNum"> 481 </span> : {</a>
|
|
<a name="482"><span class="lineNum"> 482 </span><span class="lineCov"> 72 : COND_COM *temp;</span></a>
|
|
<a name="483"><span class="lineNum"> 483 </span> : </a>
|
|
<a name="484"><span class="lineNum"> 484 </span><span class="lineCov"> 72 : temp = (COND_COM *)xmalloc (sizeof (COND_COM));</span></a>
|
|
<a name="485"><span class="lineNum"> 485 </span><span class="lineCov"> 72 : temp->flags = 0;</span></a>
|
|
<a name="486"><span class="lineNum"> 486 </span><span class="lineCov"> 72 : temp->line = line_number;</span></a>
|
|
<a name="487"><span class="lineNum"> 487 </span><span class="lineCov"> 72 : temp->type = type;</span></a>
|
|
<a name="488"><span class="lineNum"> 488 </span><span class="lineCov"> 72 : temp->op = op;</span></a>
|
|
<a name="489"><span class="lineNum"> 489 </span><span class="lineCov"> 72 : temp->left = left;</span></a>
|
|
<a name="490"><span class="lineNum"> 490 </span><span class="lineCov"> 72 : temp->right = right;</span></a>
|
|
<a name="491"><span class="lineNum"> 491 </span> : </a>
|
|
<a name="492"><span class="lineNum"> 492 </span><span class="lineCov"> 72 : return (temp);</span></a>
|
|
<a name="493"><span class="lineNum"> 493 </span> : }</a>
|
|
<a name="494"><span class="lineNum"> 494 </span> : #endif</a>
|
|
<a name="495"><span class="lineNum"> 495 </span> : </a>
|
|
<a name="496"><span class="lineNum"> 496 </span> : COMMAND *</a>
|
|
<a name="497"><span class="lineNum"> 497 </span><span class="lineCov"> 72 : make_cond_command (cond_node)</span></a>
|
|
<a name="498"><span class="lineNum"> 498 </span> : COND_COM *cond_node;</a>
|
|
<a name="499"><span class="lineNum"> 499 </span> : {</a>
|
|
<a name="500"><span class="lineNum"> 500 </span> : #if defined (COND_COMMAND)</a>
|
|
<a name="501"><span class="lineNum"> 501 </span><span class="lineCov"> 72 : COMMAND *command;</span></a>
|
|
<a name="502"><span class="lineNum"> 502 </span> : </a>
|
|
<a name="503"><span class="lineNum"> 503 </span><span class="lineCov"> 72 : command = (COMMAND *)xmalloc (sizeof (COMMAND));</span></a>
|
|
<a name="504"><span class="lineNum"> 504 </span><span class="lineCov"> 72 : command->value.Cond = cond_node;</span></a>
|
|
<a name="505"><span class="lineNum"> 505 </span> : </a>
|
|
<a name="506"><span class="lineNum"> 506 </span><span class="lineCov"> 72 : command->type = cm_cond;</span></a>
|
|
<a name="507"><span class="lineNum"> 507 </span><span class="lineCov"> 72 : command->redirects = (REDIRECT *)NULL;</span></a>
|
|
<a name="508"><span class="lineNum"> 508 </span><span class="lineCov"> 72 : command->flags = 0;</span></a>
|
|
<a name="509"><span class="lineNum"> 509 </span><span class="lineCov"> 72 : command->line = cond_node ? cond_node->line : 0;</span></a>
|
|
<a name="510"><span class="lineNum"> 510 </span> : </a>
|
|
<a name="511"><span class="lineNum"> 511 </span><span class="lineCov"> 72 : return (command);</span></a>
|
|
<a name="512"><span class="lineNum"> 512 </span> : #else</a>
|
|
<a name="513"><span class="lineNum"> 513 </span> : last_command_exit_value = 2;</a>
|
|
<a name="514"><span class="lineNum"> 514 </span> : return ((COMMAND *)NULL);</a>
|
|
<a name="515"><span class="lineNum"> 515 </span> : #endif</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> : COMMAND *</a>
|
|
<a name="519"><span class="lineNum"> 519 </span><span class="lineCov"> 281724804 : make_bare_simple_command ()</span></a>
|
|
<a name="520"><span class="lineNum"> 520 </span> : {</a>
|
|
<a name="521"><span class="lineNum"> 521 </span><span class="lineCov"> 281724804 : COMMAND *command;</span></a>
|
|
<a name="522"><span class="lineNum"> 522 </span><span class="lineCov"> 281724804 : SIMPLE_COM *temp;</span></a>
|
|
<a name="523"><span class="lineNum"> 523 </span> : </a>
|
|
<a name="524"><span class="lineNum"> 524 </span><span class="lineCov"> 281724804 : command = (COMMAND *)xmalloc (sizeof (COMMAND));</span></a>
|
|
<a name="525"><span class="lineNum"> 525 </span><span class="lineCov"> 281724804 : command->value.Simple = temp = (SIMPLE_COM *)xmalloc (sizeof (SIMPLE_COM));</span></a>
|
|
<a name="526"><span class="lineNum"> 526 </span> : </a>
|
|
<a name="527"><span class="lineNum"> 527 </span><span class="lineCov"> 281724804 : temp->flags = 0;</span></a>
|
|
<a name="528"><span class="lineNum"> 528 </span><span class="lineCov"> 281724804 : temp->line = line_number;</span></a>
|
|
<a name="529"><span class="lineNum"> 529 </span><span class="lineCov"> 281724804 : temp->words = (WORD_LIST *)NULL;</span></a>
|
|
<a name="530"><span class="lineNum"> 530 </span><span class="lineCov"> 281724804 : temp->redirects = (REDIRECT *)NULL;</span></a>
|
|
<a name="531"><span class="lineNum"> 531 </span> : </a>
|
|
<a name="532"><span class="lineNum"> 532 </span><span class="lineCov"> 281724804 : command->type = cm_simple;</span></a>
|
|
<a name="533"><span class="lineNum"> 533 </span><span class="lineCov"> 281724804 : command->redirects = (REDIRECT *)NULL;</span></a>
|
|
<a name="534"><span class="lineNum"> 534 </span><span class="lineCov"> 281724804 : command->flags = 0;</span></a>
|
|
<a name="535"><span class="lineNum"> 535 </span> : </a>
|
|
<a name="536"><span class="lineNum"> 536 </span><span class="lineCov"> 281724804 : return (command);</span></a>
|
|
<a name="537"><span class="lineNum"> 537 </span> : }</a>
|
|
<a name="538"><span class="lineNum"> 538 </span> : </a>
|
|
<a name="539"><span class="lineNum"> 539 </span> : /* Return a command which is the connection of the word or redirection</a>
|
|
<a name="540"><span class="lineNum"> 540 </span> : in ELEMENT, and the command * or NULL in COMMAND. */</a>
|
|
<a name="541"><span class="lineNum"> 541 </span> : COMMAND *</a>
|
|
<a name="542"><span class="lineNum"> 542 </span><span class="lineCov"> 716132211 : make_simple_command (element, command)</span></a>
|
|
<a name="543"><span class="lineNum"> 543 </span> : ELEMENT element;</a>
|
|
<a name="544"><span class="lineNum"> 544 </span> : COMMAND *command;</a>
|
|
<a name="545"><span class="lineNum"> 545 </span> : {</a>
|
|
<a name="546"><span class="lineNum"> 546 </span> : /* If we are starting from scratch, then make the initial command</a>
|
|
<a name="547"><span class="lineNum"> 547 </span> : structure. Also note that we have to fill in all the slots, since</a>
|
|
<a name="548"><span class="lineNum"> 548 </span> : malloc doesn't return zeroed space. */</a>
|
|
<a name="549"><span class="lineNum"> 549 </span><span class="lineCov"> 716132211 : if (command == 0)</span></a>
|
|
<a name="550"><span class="lineNum"> 550 </span> : {</a>
|
|
<a name="551"><span class="lineNum"> 551 </span><span class="lineCov"> 281724787 : command = make_bare_simple_command ();</span></a>
|
|
<a name="552"><span class="lineNum"> 552 </span><span class="lineCov"> 281724787 : parser_state |= PST_REDIRLIST;</span></a>
|
|
<a name="553"><span class="lineNum"> 553 </span> : }</a>
|
|
<a name="554"><span class="lineNum"> 554 </span> : </a>
|
|
<a name="555"><span class="lineNum"> 555 </span><span class="lineCov"> 716132211 : if (element.word)</span></a>
|
|
<a name="556"><span class="lineNum"> 556 </span> : {</a>
|
|
<a name="557"><span class="lineNum"> 557 </span><span class="lineCov"> 699333905 : command->value.Simple->words = make_word_list (element.word, command->value.Simple->words);</span></a>
|
|
<a name="558"><span class="lineNum"> 558 </span><span class="lineCov"> 699333905 : parser_state &= ~PST_REDIRLIST;</span></a>
|
|
<a name="559"><span class="lineNum"> 559 </span> : }</a>
|
|
<a name="560"><span class="lineNum"> 560 </span><span class="lineCov"> 16798306 : else if (element.redirect)</span></a>
|
|
<a name="561"><span class="lineNum"> 561 </span> : {</a>
|
|
<a name="562"><span class="lineNum"> 562 </span> : REDIRECT *r = element.redirect;</a>
|
|
<a name="563"><span class="lineNum"> 563 </span> : /* Due to the way <> is implemented, there may be more than a single</a>
|
|
<a name="564"><span class="lineNum"> 564 </span> : redirection in element.redirect. We just follow the chain as far</a>
|
|
<a name="565"><span class="lineNum"> 565 </span> : as it goes, and hook onto the end. */</a>
|
|
<a name="566"><span class="lineNum"> 566 </span><span class="lineCov"> 16798041 : while (r->next)</span></a>
|
|
<a name="567"><span class="lineNum"> 567 </span> : r = r->next;</a>
|
|
<a name="568"><span class="lineNum"> 568 </span><span class="lineCov"> 16798041 : r->next = command->value.Simple->redirects;</span></a>
|
|
<a name="569"><span class="lineNum"> 569 </span><span class="lineCov"> 16798041 : command->value.Simple->redirects = element.redirect;</span></a>
|
|
<a name="570"><span class="lineNum"> 570 </span> : }</a>
|
|
<a name="571"><span class="lineNum"> 571 </span> : </a>
|
|
<a name="572"><span class="lineNum"> 572 </span><span class="lineCov"> 716132211 : return (command);</span></a>
|
|
<a name="573"><span class="lineNum"> 573 </span> : }</a>
|
|
<a name="574"><span class="lineNum"> 574 </span> : </a>
|
|
<a name="575"><span class="lineNum"> 575 </span> : /* Because we are Bourne compatible, we read the input for this</a>
|
|
<a name="576"><span class="lineNum"> 576 </span> : << or <<- redirection now, from wherever input is coming from.</a>
|
|
<a name="577"><span class="lineNum"> 577 </span> : We store the input read into a WORD_DESC. Replace the text of</a>
|
|
<a name="578"><span class="lineNum"> 578 </span> : the redirectee.word with the new input text. If <<- is on,</a>
|
|
<a name="579"><span class="lineNum"> 579 </span> : then remove leading TABS from each line. */</a>
|
|
<a name="580"><span class="lineNum"> 580 </span> : void</a>
|
|
<a name="581"><span class="lineNum"> 581 </span><span class="lineCov"> 285 : make_here_document (temp, lineno)</span></a>
|
|
<a name="582"><span class="lineNum"> 582 </span> : REDIRECT *temp;</a>
|
|
<a name="583"><span class="lineNum"> 583 </span> : int lineno;</a>
|
|
<a name="584"><span class="lineNum"> 584 </span> : {</a>
|
|
<a name="585"><span class="lineNum"> 585 </span><span class="lineCov"> 285 : int kill_leading, redir_len;</span></a>
|
|
<a name="586"><span class="lineNum"> 586 </span><span class="lineCov"> 285 : char *redir_word, *document, *full_line;</span></a>
|
|
<a name="587"><span class="lineNum"> 587 </span><span class="lineCov"> 285 : int document_index, document_size, delim_unquoted;</span></a>
|
|
<a name="588"><span class="lineNum"> 588 </span> : </a>
|
|
<a name="589"><span class="lineNum"> 589 </span><span class="lineCov"> 285 : if (temp->instruction != r_deblank_reading_until &&</span></a>
|
|
<a name="590"><span class="lineNum"> 590 </span> : temp->instruction != r_reading_until)</a>
|
|
<a name="591"><span class="lineNum"> 591 </span> : {</a>
|
|
<a name="592"><span class="lineNum"> 592 </span><span class="lineNoCov"> 0 : internal_error (_("make_here_document: bad instruction type %d"), temp->instruction);</span></a>
|
|
<a name="593"><span class="lineNum"> 593 </span><span class="lineNoCov"> 0 : return;</span></a>
|
|
<a name="594"><span class="lineNum"> 594 </span> : }</a>
|
|
<a name="595"><span class="lineNum"> 595 </span> : </a>
|
|
<a name="596"><span class="lineNum"> 596 </span><span class="lineCov"> 285 : kill_leading = temp->instruction == r_deblank_reading_until;</span></a>
|
|
<a name="597"><span class="lineNum"> 597 </span> : </a>
|
|
<a name="598"><span class="lineNum"> 598 </span><span class="lineCov"> 285 : document = (char *)NULL;</span></a>
|
|
<a name="599"><span class="lineNum"> 599 </span><span class="lineCov"> 285 : document_index = document_size = 0;</span></a>
|
|
<a name="600"><span class="lineNum"> 600 </span> : </a>
|
|
<a name="601"><span class="lineNum"> 601 </span> : /* Quote removal is the only expansion performed on the delimiter</a>
|
|
<a name="602"><span class="lineNum"> 602 </span> : for here documents, making it an extremely special case. */</a>
|
|
<a name="603"><span class="lineNum"> 603 </span><span class="lineCov"> 285 : redir_word = string_quote_removal (temp->redirectee.filename->word, 0);</span></a>
|
|
<a name="604"><span class="lineNum"> 604 </span> : </a>
|
|
<a name="605"><span class="lineNum"> 605 </span> : /* redirection_expand will return NULL if the expansion results in</a>
|
|
<a name="606"><span class="lineNum"> 606 </span> : multiple words or no words. Check for that here, and just abort</a>
|
|
<a name="607"><span class="lineNum"> 607 </span> : this here document if it does. */</a>
|
|
<a name="608"><span class="lineNum"> 608 </span><span class="lineCov"> 285 : if (redir_word)</span></a>
|
|
<a name="609"><span class="lineNum"> 609 </span><span class="lineCov"> 285 : redir_len = strlen (redir_word);</span></a>
|
|
<a name="610"><span class="lineNum"> 610 </span> : else</a>
|
|
<a name="611"><span class="lineNum"> 611 </span> : {</a>
|
|
<a name="612"><span class="lineNum"> 612 </span><span class="lineNoCov"> 0 : temp->here_doc_eof = (char *)xmalloc (1);</span></a>
|
|
<a name="613"><span class="lineNum"> 613 </span><span class="lineNoCov"> 0 : temp->here_doc_eof[0] = '\0';</span></a>
|
|
<a name="614"><span class="lineNum"> 614 </span><span class="lineNoCov"> 0 : goto document_done;</span></a>
|
|
<a name="615"><span class="lineNum"> 615 </span> : }</a>
|
|
<a name="616"><span class="lineNum"> 616 </span> : </a>
|
|
<a name="617"><span class="lineNum"> 617 </span><span class="lineCov"> 285 : free (temp->redirectee.filename->word);</span></a>
|
|
<a name="618"><span class="lineNum"> 618 </span><span class="lineCov"> 285 : temp->here_doc_eof = redir_word;</span></a>
|
|
<a name="619"><span class="lineNum"> 619 </span> : </a>
|
|
<a name="620"><span class="lineNum"> 620 </span> : /* Read lines from wherever lines are coming from.</a>
|
|
<a name="621"><span class="lineNum"> 621 </span> : For each line read, if kill_leading, then kill the</a>
|
|
<a name="622"><span class="lineNum"> 622 </span> : leading tab characters.</a>
|
|
<a name="623"><span class="lineNum"> 623 </span> : If the line matches redir_word exactly, then we have</a>
|
|
<a name="624"><span class="lineNum"> 624 </span> : manufactured the document. Otherwise, add the line to the</a>
|
|
<a name="625"><span class="lineNum"> 625 </span> : list of lines in the document. */</a>
|
|
<a name="626"><span class="lineNum"> 626 </span> : </a>
|
|
<a name="627"><span class="lineNum"> 627 </span> : /* If the here-document delimiter was quoted, the lines should</a>
|
|
<a name="628"><span class="lineNum"> 628 </span> : be read verbatim from the input. If it was not quoted, we</a>
|
|
<a name="629"><span class="lineNum"> 629 </span> : need to perform backslash-quoted newline removal. */</a>
|
|
<a name="630"><span class="lineNum"> 630 </span><span class="lineCov"> 285 : delim_unquoted = (temp->redirectee.filename->flags & W_QUOTED) == 0;</span></a>
|
|
<a name="631"><span class="lineNum"> 631 </span><span class="lineCov"> 1789 : while (full_line = read_secondary_line (delim_unquoted))</span></a>
|
|
<a name="632"><span class="lineNum"> 632 </span> : {</a>
|
|
<a name="633"><span class="lineNum"> 633 </span><span class="lineCov"> 1504 : register char *line;</span></a>
|
|
<a name="634"><span class="lineNum"> 634 </span><span class="lineCov"> 1504 : int len;</span></a>
|
|
<a name="635"><span class="lineNum"> 635 </span> : </a>
|
|
<a name="636"><span class="lineNum"> 636 </span><span class="lineCov"> 1504 : here_doc_first_line = 0;</span></a>
|
|
<a name="637"><span class="lineNum"> 637 </span><span class="lineCov"> 1504 : line = full_line;</span></a>
|
|
<a name="638"><span class="lineNum"> 638 </span><span class="lineCov"> 1504 : line_number++;</span></a>
|
|
<a name="639"><span class="lineNum"> 639 </span> : </a>
|
|
<a name="640"><span class="lineNum"> 640 </span> : /* If set -v is in effect, echo the line read. read_secondary_line/</a>
|
|
<a name="641"><span class="lineNum"> 641 </span> : read_a_line leaves the newline at the end, so don't print another. */</a>
|
|
<a name="642"><span class="lineNum"> 642 </span><span class="lineCov"> 1504 : if (echo_input_at_read)</span></a>
|
|
<a name="643"><span class="lineNum"> 643 </span><span class="lineNoCov"> 0 : fprintf (stderr, "%s", line);</span></a>
|
|
<a name="644"><span class="lineNum"> 644 </span> : </a>
|
|
<a name="645"><span class="lineNum"> 645 </span><span class="lineCov"> 1504 : if (kill_leading && *line)</span></a>
|
|
<a name="646"><span class="lineNum"> 646 </span> : {</a>
|
|
<a name="647"><span class="lineNum"> 647 </span> : /* Hack: To be compatible with some Bourne shells, we</a>
|
|
<a name="648"><span class="lineNum"> 648 </span> : check the word before stripping the whitespace. This</a>
|
|
<a name="649"><span class="lineNum"> 649 </span> : is a hack, though. */</a>
|
|
<a name="650"><span class="lineNum"> 650 </span><span class="lineNoCov"> 0 : if (STREQN (line, redir_word, redir_len) && line[redir_len] == '\n')</span></a>
|
|
<a name="651"><span class="lineNum"> 651 </span><span class="lineNoCov"> 0 : goto document_done;</span></a>
|
|
<a name="652"><span class="lineNum"> 652 </span> : </a>
|
|
<a name="653"><span class="lineNum"> 653 </span><span class="lineNoCov"> 0 : while (*line == '\t')</span></a>
|
|
<a name="654"><span class="lineNum"> 654 </span><span class="lineNoCov"> 0 : line++;</span></a>
|
|
<a name="655"><span class="lineNum"> 655 </span> : }</a>
|
|
<a name="656"><span class="lineNum"> 656 </span> : </a>
|
|
<a name="657"><span class="lineNum"> 657 </span><span class="lineCov"> 1504 : if (*line == 0)</span></a>
|
|
<a name="658"><span class="lineNum"> 658 </span> : continue;</a>
|
|
<a name="659"><span class="lineNum"> 659 </span> : </a>
|
|
<a name="660"><span class="lineNum"> 660 </span><span class="lineCov"> 1504 : if (STREQN (line, redir_word, redir_len) && line[redir_len] == '\n')</span></a>
|
|
<a name="661"><span class="lineNum"> 661 </span><span class="lineNoCov"> 0 : goto document_done;</span></a>
|
|
<a name="662"><span class="lineNum"> 662 </span> : </a>
|
|
<a name="663"><span class="lineNum"> 663 </span><span class="lineCov"> 1504 : len = strlen (line);</span></a>
|
|
<a name="664"><span class="lineNum"> 664 </span><span class="lineCov"> 1504 : if (len + document_index >= document_size)</span></a>
|
|
<a name="665"><span class="lineNum"> 665 </span> : {</a>
|
|
<a name="666"><span class="lineNum"> 666 </span><span class="lineCov"> 293 : document_size = document_size ? 2 * (document_size + len) : len + 2;</span></a>
|
|
<a name="667"><span class="lineNum"> 667 </span><span class="lineCov"> 293 : document = (char *)xrealloc (document, document_size);</span></a>
|
|
<a name="668"><span class="lineNum"> 668 </span> : }</a>
|
|
<a name="669"><span class="lineNum"> 669 </span> : </a>
|
|
<a name="670"><span class="lineNum"> 670 </span> : /* len is guaranteed to be > 0 because of the check for line</a>
|
|
<a name="671"><span class="lineNum"> 671 </span> : being an empty string before the call to strlen. */</a>
|
|
<a name="672"><span class="lineNum"> 672 </span><span class="lineCov"> 1504 : FASTCOPY (line, document + document_index, len);</span></a>
|
|
<a name="673"><span class="lineNum"> 673 </span><span class="lineCov"> 1504 : document_index += len;</span></a>
|
|
<a name="674"><span class="lineNum"> 674 </span> : }</a>
|
|
<a name="675"><span class="lineNum"> 675 </span> : </a>
|
|
<a name="676"><span class="lineNum"> 676 </span><span class="lineCov"> 285 : if (full_line == 0)</span></a>
|
|
<a name="677"><span class="lineNum"> 677 </span><span class="lineCov"> 285 : internal_warning (_("here-document at line %d delimited by end-of-file (wanted `%s')"), lineno, redir_word);</span></a>
|
|
<a name="678"><span class="lineNum"> 678 </span> : </a>
|
|
<a name="679"><span class="lineNum"> 679 </span><span class="lineCov"> 285 : document_done:</span></a>
|
|
<a name="680"><span class="lineNum"> 680 </span><span class="lineCov"> 285 : if (document)</span></a>
|
|
<a name="681"><span class="lineNum"> 681 </span><span class="lineCov"> 98 : document[document_index] = '\0';</span></a>
|
|
<a name="682"><span class="lineNum"> 682 </span> : else</a>
|
|
<a name="683"><span class="lineNum"> 683 </span> : {</a>
|
|
<a name="684"><span class="lineNum"> 684 </span><span class="lineCov"> 187 : document = (char *)xmalloc (1);</span></a>
|
|
<a name="685"><span class="lineNum"> 685 </span><span class="lineCov"> 187 : document[0] = '\0';</span></a>
|
|
<a name="686"><span class="lineNum"> 686 </span> : }</a>
|
|
<a name="687"><span class="lineNum"> 687 </span><span class="lineCov"> 285 : temp->redirectee.filename->word = document;</span></a>
|
|
<a name="688"><span class="lineNum"> 688 </span><span class="lineCov"> 285 : here_doc_first_line = 0;</span></a>
|
|
<a name="689"><span class="lineNum"> 689 </span> : }</a>
|
|
<a name="690"><span class="lineNum"> 690 </span> : </a>
|
|
<a name="691"><span class="lineNum"> 691 </span> : /* Generate a REDIRECT from SOURCE, DEST, and INSTRUCTION.</a>
|
|
<a name="692"><span class="lineNum"> 692 </span> : INSTRUCTION is the instruction type, SOURCE is a file descriptor,</a>
|
|
<a name="693"><span class="lineNum"> 693 </span> : and DEST is a file descriptor or a WORD_DESC *. */</a>
|
|
<a name="694"><span class="lineNum"> 694 </span> : REDIRECT *</a>
|
|
<a name="695"><span class="lineNum"> 695 </span><span class="lineCov"> 16799635 : make_redirection (source, instruction, dest_and_filename, flags)</span></a>
|
|
<a name="696"><span class="lineNum"> 696 </span> : REDIRECTEE source;</a>
|
|
<a name="697"><span class="lineNum"> 697 </span> : enum r_instruction instruction;</a>
|
|
<a name="698"><span class="lineNum"> 698 </span> : REDIRECTEE dest_and_filename;</a>
|
|
<a name="699"><span class="lineNum"> 699 </span> : int flags;</a>
|
|
<a name="700"><span class="lineNum"> 700 </span> : {</a>
|
|
<a name="701"><span class="lineNum"> 701 </span><span class="lineCov"> 16799635 : REDIRECT *temp;</span></a>
|
|
<a name="702"><span class="lineNum"> 702 </span><span class="lineCov"> 16799635 : WORD_DESC *w;</span></a>
|
|
<a name="703"><span class="lineNum"> 703 </span><span class="lineCov"> 16799635 : int wlen;</span></a>
|
|
<a name="704"><span class="lineNum"> 704 </span><span class="lineCov"> 16799635 : intmax_t lfd;</span></a>
|
|
<a name="705"><span class="lineNum"> 705 </span> : </a>
|
|
<a name="706"><span class="lineNum"> 706 </span><span class="lineCov"> 16799635 : temp = (REDIRECT *)xmalloc (sizeof (REDIRECT));</span></a>
|
|
<a name="707"><span class="lineNum"> 707 </span> : </a>
|
|
<a name="708"><span class="lineNum"> 708 </span> : /* First do the common cases. */</a>
|
|
<a name="709"><span class="lineNum"> 709 </span><span class="lineCov"> 16799635 : temp->redirector = source;</span></a>
|
|
<a name="710"><span class="lineNum"> 710 </span><span class="lineCov"> 16799635 : temp->redirectee = dest_and_filename;</span></a>
|
|
<a name="711"><span class="lineNum"> 711 </span><span class="lineCov"> 16799635 : temp->here_doc_eof = 0;</span></a>
|
|
<a name="712"><span class="lineNum"> 712 </span><span class="lineCov"> 16799635 : temp->instruction = instruction;</span></a>
|
|
<a name="713"><span class="lineNum"> 713 </span><span class="lineCov"> 16799635 : temp->flags = 0;</span></a>
|
|
<a name="714"><span class="lineNum"> 714 </span><span class="lineCov"> 16799635 : temp->rflags = flags;</span></a>
|
|
<a name="715"><span class="lineNum"> 715 </span><span class="lineCov"> 16799635 : temp->next = (REDIRECT *)NULL;</span></a>
|
|
<a name="716"><span class="lineNum"> 716 </span> : </a>
|
|
<a name="717"><span class="lineNum"> 717 </span><span class="lineCov"> 16799635 : switch (instruction)</span></a>
|
|
<a name="718"><span class="lineNum"> 718 </span> : {</a>
|
|
<a name="719"><span class="lineNum"> 719 </span> : </a>
|
|
<a name="720"><span class="lineNum"> 720 </span><span class="lineCov"> 7646448 : case r_output_direction: /* >foo */</span></a>
|
|
<a name="721"><span class="lineNum"> 721 </span> : case r_output_force: /* >| foo */</a>
|
|
<a name="722"><span class="lineNum"> 722 </span> : case r_err_and_out: /* &>filename */</a>
|
|
<a name="723"><span class="lineNum"> 723 </span><span class="lineCov"> 7646448 : temp->flags = O_TRUNC | O_WRONLY | O_CREAT;</span></a>
|
|
<a name="724"><span class="lineNum"> 724 </span><span class="lineCov"> 7646448 : break;</span></a>
|
|
<a name="725"><span class="lineNum"> 725 </span> : </a>
|
|
<a name="726"><span class="lineNum"> 726 </span><span class="lineCov"> 3500833 : case r_appending_to: /* >>foo */</span></a>
|
|
<a name="727"><span class="lineNum"> 727 </span> : case r_append_err_and_out: /* &>> filename */</a>
|
|
<a name="728"><span class="lineNum"> 728 </span><span class="lineCov"> 3500833 : temp->flags = O_APPEND | O_WRONLY | O_CREAT;</span></a>
|
|
<a name="729"><span class="lineNum"> 729 </span><span class="lineCov"> 3500833 : break;</span></a>
|
|
<a name="730"><span class="lineNum"> 730 </span> : </a>
|
|
<a name="731"><span class="lineNum"> 731 </span> : case r_input_direction: /* <foo */</a>
|
|
<a name="732"><span class="lineNum"> 732 </span> : case r_inputa_direction: /* foo & makes this. */</a>
|
|
<a name="733"><span class="lineNum"> 733 </span> : temp->flags = O_RDONLY;</a>
|
|
<a name="734"><span class="lineNum"> 734 </span> : break;</a>
|
|
<a name="735"><span class="lineNum"> 735 </span> : </a>
|
|
<a name="736"><span class="lineNum"> 736 </span><span class="lineCov"> 103 : case r_input_output: /* <>foo */</span></a>
|
|
<a name="737"><span class="lineNum"> 737 </span><span class="lineCov"> 103 : temp->flags = O_RDWR | O_CREAT;</span></a>
|
|
<a name="738"><span class="lineNum"> 738 </span><span class="lineCov"> 103 : break;</span></a>
|
|
<a name="739"><span class="lineNum"> 739 </span> : </a>
|
|
<a name="740"><span class="lineNum"> 740 </span> : case r_deblank_reading_until: /* <<-foo */</a>
|
|
<a name="741"><span class="lineNum"> 741 </span> : case r_reading_until: /* << foo */</a>
|
|
<a name="742"><span class="lineNum"> 742 </span> : case r_reading_string: /* <<< foo */</a>
|
|
<a name="743"><span class="lineNum"> 743 </span> : case r_close_this: /* <&- */</a>
|
|
<a name="744"><span class="lineNum"> 744 </span> : case r_duplicating_input: /* 1<&2 */</a>
|
|
<a name="745"><span class="lineNum"> 745 </span> : case r_duplicating_output: /* 1>&2 */</a>
|
|
<a name="746"><span class="lineNum"> 746 </span> : break;</a>
|
|
<a name="747"><span class="lineNum"> 747 </span> : </a>
|
|
<a name="748"><span class="lineNum"> 748 </span> : /* the parser doesn't pass these. */</a>
|
|
<a name="749"><span class="lineNum"> 749 </span> : case r_move_input: /* 1<&2- */</a>
|
|
<a name="750"><span class="lineNum"> 750 </span> : case r_move_output: /* 1>&2- */</a>
|
|
<a name="751"><span class="lineNum"> 751 </span> : case r_move_input_word: /* 1<&$foo- */</a>
|
|
<a name="752"><span class="lineNum"> 752 </span> : case r_move_output_word: /* 1>&$foo- */</a>
|
|
<a name="753"><span class="lineNum"> 753 </span> : break;</a>
|
|
<a name="754"><span class="lineNum"> 754 </span> : </a>
|
|
<a name="755"><span class="lineNum"> 755 </span> : /* The way the lexer works we have to do this here. */</a>
|
|
<a name="756"><span class="lineNum"> 756 </span><span class="lineCov"> 5408 : case r_duplicating_input_word: /* 1<&$foo */</span></a>
|
|
<a name="757"><span class="lineNum"> 757 </span> : case r_duplicating_output_word: /* 1>&$foo */</a>
|
|
<a name="758"><span class="lineNum"> 758 </span><span class="lineCov"> 5408 : w = dest_and_filename.filename;</span></a>
|
|
<a name="759"><span class="lineNum"> 759 </span><span class="lineCov"> 5408 : wlen = strlen (w->word) - 1;</span></a>
|
|
<a name="760"><span class="lineNum"> 760 </span><span class="lineCov"> 5408 : if (w->word[wlen] == '-') /* Yuck */</span></a>
|
|
<a name="761"><span class="lineNum"> 761 </span> : {</a>
|
|
<a name="762"><span class="lineNum"> 762 </span><span class="lineCov"> 9 : w->word[wlen] = '\0';</span></a>
|
|
<a name="763"><span class="lineNum"> 763 </span><span class="lineCov"> 9 : if (all_digits (w->word) && legal_number (w->word, &lfd) && lfd == (int)lfd)</span></a>
|
|
<a name="764"><span class="lineNum"> 764 </span> : {</a>
|
|
<a name="765"><span class="lineNum"> 765 </span><span class="lineCov"> 9 : dispose_word (w);</span></a>
|
|
<a name="766"><span class="lineNum"> 766 </span><span class="lineCov"> 9 : temp->instruction = (instruction == r_duplicating_input_word) ? r_move_input : r_move_output;</span></a>
|
|
<a name="767"><span class="lineNum"> 767 </span><span class="lineCov"> 9 : temp->redirectee.dest = lfd;</span></a>
|
|
<a name="768"><span class="lineNum"> 768 </span> : }</a>
|
|
<a name="769"><span class="lineNum"> 769 </span> : else</a>
|
|
<a name="770"><span class="lineNum"> 770 </span><span class="lineNoCov"> 0 : temp->instruction = (instruction == r_duplicating_input_word) ? r_move_input_word : r_move_output_word;</span></a>
|
|
<a name="771"><span class="lineNum"> 771 </span> : }</a>
|
|
<a name="772"><span class="lineNum"> 772 </span> : </a>
|
|
<a name="773"><span class="lineNum"> 773 </span> : break;</a>
|
|
<a name="774"><span class="lineNum"> 774 </span> : </a>
|
|
<a name="775"><span class="lineNum"> 775 </span><span class="lineNoCov"> 0 : default:</span></a>
|
|
<a name="776"><span class="lineNum"> 776 </span><span class="lineNoCov"> 0 : programming_error (_("make_redirection: redirection instruction `%d' out of range"), instruction);</span></a>
|
|
<a name="777"><span class="lineNum"> 777 </span><span class="lineNoCov"> 0 : abort ();</span></a>
|
|
<a name="778"><span class="lineNum"> 778 </span><span class="lineCov"> 16799635 : break;</span></a>
|
|
<a name="779"><span class="lineNum"> 779 </span> : }</a>
|
|
<a name="780"><span class="lineNum"> 780 </span><span class="lineCov"> 16799635 : return (temp);</span></a>
|
|
<a name="781"><span class="lineNum"> 781 </span> : }</a>
|
|
<a name="782"><span class="lineNum"> 782 </span> : </a>
|
|
<a name="783"><span class="lineNum"> 783 </span> : static void</a>
|
|
<a name="784"><span class="lineNum"> 784 </span><span class="lineNoCov"> 0 : output_requirement (deptype, filename)</span></a>
|
|
<a name="785"><span class="lineNum"> 785 </span> : const char *deptype;</a>
|
|
<a name="786"><span class="lineNum"> 786 </span> : char *filename;</a>
|
|
<a name="787"><span class="lineNum"> 787 </span> : {</a>
|
|
<a name="788"><span class="lineNum"> 788 </span><span class="lineNoCov"> 0 : if (strchr(filename, '$') || (filename[0] != '/' && strchr(filename, '/')))</span></a>
|
|
<a name="789"><span class="lineNum"> 789 </span> : return;</a>
|
|
<a name="790"><span class="lineNum"> 790 </span> : </a>
|
|
<a name="791"><span class="lineNum"> 791 </span> : /*</a>
|
|
<a name="792"><span class="lineNum"> 792 </span> : if the executable is called via variable substitution we can</a>
|
|
<a name="793"><span class="lineNum"> 793 </span> : not dermine what it is at compile time.</a>
|
|
<a name="794"><span class="lineNum"> 794 </span> : </a>
|
|
<a name="795"><span class="lineNum"> 795 </span> : if the executable consists only of characters not in the</a>
|
|
<a name="796"><span class="lineNum"> 796 </span> : alphabet we do not consider it a dependency just an artifact</a>
|
|
<a name="797"><span class="lineNum"> 797 </span> : of shell parsing (ex "exec < ${infile}").</a>
|
|
<a name="798"><span class="lineNum"> 798 </span> : */</a>
|
|
<a name="799"><span class="lineNum"> 799 </span> : </a>
|
|
<a name="800"><span class="lineNum"> 800 </span><span class="lineNoCov"> 0 : if (strpbrk(filename, alphabet_set))</span></a>
|
|
<a name="801"><span class="lineNum"> 801 </span><span class="lineNoCov"> 0 : printf ("%s(%s)\n", deptype, filename);</span></a>
|
|
<a name="802"><span class="lineNum"> 802 </span> : }</a>
|
|
<a name="803"><span class="lineNum"> 803 </span> : </a>
|
|
<a name="804"><span class="lineNum"> 804 </span> : COMMAND *</a>
|
|
<a name="805"><span class="lineNum"> 805 </span><span class="lineCov"> 18763882 : make_function_def (name, command, lineno, lstart)</span></a>
|
|
<a name="806"><span class="lineNum"> 806 </span> : WORD_DESC *name;</a>
|
|
<a name="807"><span class="lineNum"> 807 </span> : COMMAND *command;</a>
|
|
<a name="808"><span class="lineNum"> 808 </span> : int lineno, lstart;</a>
|
|
<a name="809"><span class="lineNum"> 809 </span> : {</a>
|
|
<a name="810"><span class="lineNum"> 810 </span><span class="lineCov"> 18763882 : FUNCTION_DEF *temp;</span></a>
|
|
<a name="811"><span class="lineNum"> 811 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="812"><span class="lineNum"> 812 </span><span class="lineCov"> 18763882 : SHELL_VAR *bash_source_v;</span></a>
|
|
<a name="813"><span class="lineNum"> 813 </span><span class="lineCov"> 18763882 : ARRAY *bash_source_a;</span></a>
|
|
<a name="814"><span class="lineNum"> 814 </span> : #endif</a>
|
|
<a name="815"><span class="lineNum"> 815 </span> : </a>
|
|
<a name="816"><span class="lineNum"> 816 </span><span class="lineCov"> 18763882 : temp = (FUNCTION_DEF *)xmalloc (sizeof (FUNCTION_DEF));</span></a>
|
|
<a name="817"><span class="lineNum"> 817 </span><span class="lineCov"> 18763882 : temp->command = command;</span></a>
|
|
<a name="818"><span class="lineNum"> 818 </span><span class="lineCov"> 18763882 : temp->name = name;</span></a>
|
|
<a name="819"><span class="lineNum"> 819 </span><span class="lineCov"> 18763882 : temp->line = lineno;</span></a>
|
|
<a name="820"><span class="lineNum"> 820 </span><span class="lineCov"> 18763882 : temp->flags = 0;</span></a>
|
|
<a name="821"><span class="lineNum"> 821 </span><span class="lineCov"> 18763882 : command->line = lstart;</span></a>
|
|
<a name="822"><span class="lineNum"> 822 </span> : </a>
|
|
<a name="823"><span class="lineNum"> 823 </span> : /* Information used primarily for debugging. */</a>
|
|
<a name="824"><span class="lineNum"> 824 </span><span class="lineCov"> 18763882 : temp->source_file = 0;</span></a>
|
|
<a name="825"><span class="lineNum"> 825 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="826"><span class="lineNum"> 826 </span><span class="lineCov"> 18763882 : GET_ARRAY_FROM_VAR ("BASH_SOURCE", bash_source_v, bash_source_a);</span></a>
|
|
<a name="827"><span class="lineNum"> 827 </span><span class="lineCov"> 18763882 : if (bash_source_a && array_num_elements (bash_source_a) > 0)</span></a>
|
|
<a name="828"><span class="lineNum"> 828 </span><span class="lineCov"> 54 : temp->source_file = array_reference (bash_source_a, 0);</span></a>
|
|
<a name="829"><span class="lineNum"> 829 </span> : #endif</a>
|
|
<a name="830"><span class="lineNum"> 830 </span> : /* Assume that shell functions without a source file before the shell is</a>
|
|
<a name="831"><span class="lineNum"> 831 </span> : initialized come from the environment. Otherwise default to "main"</a>
|
|
<a name="832"><span class="lineNum"> 832 </span> : (usually functions being defined interactively) */</a>
|
|
<a name="833"><span class="lineNum"> 833 </span><span class="lineCov"> 18763882 : if (temp->source_file == 0)</span></a>
|
|
<a name="834"><span class="lineNum"> 834 </span><span class="lineCov"> 18763828 : temp->source_file = shell_initialized ? "main" : "environment";</span></a>
|
|
<a name="835"><span class="lineNum"> 835 </span> : </a>
|
|
<a name="836"><span class="lineNum"> 836 </span> : #if defined (DEBUGGER)</a>
|
|
<a name="837"><span class="lineNum"> 837 </span><span class="lineCov"> 18763882 : bind_function_def (name->word, temp);</span></a>
|
|
<a name="838"><span class="lineNum"> 838 </span> : #endif</a>
|
|
<a name="839"><span class="lineNum"> 839 </span> : </a>
|
|
<a name="840"><span class="lineNum"> 840 </span><span class="lineCov"> 18763882 : temp->source_file = temp->source_file ? savestring (temp->source_file) : 0;</span></a>
|
|
<a name="841"><span class="lineNum"> 841 </span> : </a>
|
|
<a name="842"><span class="lineNum"> 842 </span><span class="lineCov"> 18763882 : if (rpm_requires) {</span></a>
|
|
<a name="843"><span class="lineNum"> 843 </span> : /* Each function is possibly required, which is, er, provided.</a>
|
|
<a name="844"><span class="lineNum"> 844 </span> : * I need to know function names in order to implement strong</a>
|
|
<a name="845"><span class="lineNum"> 845 </span> : * self-requires elimination in /usr/lib/rpm/shell.req. Just about</a>
|
|
<a name="846"><span class="lineNum"> 846 </span> : * the only way to achieve this without breaking "--rpm-requires"</a>
|
|
<a name="847"><span class="lineNum"> 847 </span> : * compatibility is to spit them here as they go.</a>
|
|
<a name="848"><span class="lineNum"> 848 </span> : *</a>
|
|
<a name="849"><span class="lineNum"> 849 </span> : * Also note that another "function" output in clean_simple_command()</a>
|
|
<a name="850"><span class="lineNum"> 850 </span> : * is not much useful since it only means that a function is defined</a>
|
|
<a name="851"><span class="lineNum"> 851 </span> : * in the very same file before being used (shell have seen it while</a>
|
|
<a name="852"><span class="lineNum"> 852 </span> : * parsing the script). My point is that it makes no sense to resolve</a>
|
|
<a name="853"><span class="lineNum"> 853 </span> : * function requirements -- functions are simply "provided" by its nature.</a>
|
|
<a name="854"><span class="lineNum"> 854 </span> : *</a>
|
|
<a name="855"><span class="lineNum"> 855 </span> : * -- at@altlinux</a>
|
|
<a name="856"><span class="lineNum"> 856 </span> : */</a>
|
|
<a name="857"><span class="lineNum"> 857 </span><span class="lineNoCov"> 0 : output_requirement ("function", name->word);</span></a>
|
|
<a name="858"><span class="lineNum"> 858 </span> : }</a>
|
|
<a name="859"><span class="lineNum"> 859 </span> : </a>
|
|
<a name="860"><span class="lineNum"> 860 </span><span class="lineCov"> 18763882 : return (make_command (cm_function_def, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="861"><span class="lineNum"> 861 </span> : }</a>
|
|
<a name="862"><span class="lineNum"> 862 </span> : </a>
|
|
<a name="863"><span class="lineNum"> 863 </span> : COMMAND *</a>
|
|
<a name="864"><span class="lineNum"> 864 </span><span class="lineCov"> 213 : make_subshell_command (command)</span></a>
|
|
<a name="865"><span class="lineNum"> 865 </span> : COMMAND *command;</a>
|
|
<a name="866"><span class="lineNum"> 866 </span> : {</a>
|
|
<a name="867"><span class="lineNum"> 867 </span><span class="lineCov"> 213 : SUBSHELL_COM *temp;</span></a>
|
|
<a name="868"><span class="lineNum"> 868 </span> : </a>
|
|
<a name="869"><span class="lineNum"> 869 </span><span class="lineCov"> 213 : temp = (SUBSHELL_COM *)xmalloc (sizeof (SUBSHELL_COM));</span></a>
|
|
<a name="870"><span class="lineNum"> 870 </span><span class="lineCov"> 213 : temp->command = command;</span></a>
|
|
<a name="871"><span class="lineNum"> 871 </span><span class="lineCov"> 213 : temp->flags = CMD_WANT_SUBSHELL;</span></a>
|
|
<a name="872"><span class="lineNum"> 872 </span><span class="lineCov"> 213 : return (make_command (cm_subshell, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="873"><span class="lineNum"> 873 </span> : }</a>
|
|
<a name="874"><span class="lineNum"> 874 </span> : </a>
|
|
<a name="875"><span class="lineNum"> 875 </span> : COMMAND *</a>
|
|
<a name="876"><span class="lineNum"> 876 </span><span class="lineNoCov"> 0 : make_coproc_command (name, command)</span></a>
|
|
<a name="877"><span class="lineNum"> 877 </span> : char *name;</a>
|
|
<a name="878"><span class="lineNum"> 878 </span> : COMMAND *command;</a>
|
|
<a name="879"><span class="lineNum"> 879 </span> : {</a>
|
|
<a name="880"><span class="lineNum"> 880 </span><span class="lineNoCov"> 0 : COPROC_COM *temp;</span></a>
|
|
<a name="881"><span class="lineNum"> 881 </span> : </a>
|
|
<a name="882"><span class="lineNum"> 882 </span><span class="lineNoCov"> 0 : temp = (COPROC_COM *)xmalloc (sizeof (COPROC_COM));</span></a>
|
|
<a name="883"><span class="lineNum"> 883 </span><span class="lineNoCov"> 0 : temp->name = savestring (name);</span></a>
|
|
<a name="884"><span class="lineNum"> 884 </span><span class="lineNoCov"> 0 : temp->command = command;</span></a>
|
|
<a name="885"><span class="lineNum"> 885 </span><span class="lineNoCov"> 0 : temp->flags = CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;</span></a>
|
|
<a name="886"><span class="lineNum"> 886 </span><span class="lineNoCov"> 0 : return (make_command (cm_coproc, (SIMPLE_COM *)temp));</span></a>
|
|
<a name="887"><span class="lineNum"> 887 </span> : }</a>
|
|
<a name="888"><span class="lineNum"> 888 </span> : </a>
|
|
<a name="889"><span class="lineNum"> 889 </span> : /* Reverse the word list and redirection list in the simple command</a>
|
|
<a name="890"><span class="lineNum"> 890 </span> : has just been parsed. It seems simpler to do this here the one</a>
|
|
<a name="891"><span class="lineNum"> 891 </span> : time then by any other method that I can think of. */</a>
|
|
<a name="892"><span class="lineNum"> 892 </span> : COMMAND *</a>
|
|
<a name="893"><span class="lineNum"> 893 </span><span class="lineCov"> 281712394 : clean_simple_command (command)</span></a>
|
|
<a name="894"><span class="lineNum"> 894 </span> : COMMAND *command;</a>
|
|
<a name="895"><span class="lineNum"> 895 </span> : {</a>
|
|
<a name="896"><span class="lineNum"> 896 </span><span class="lineCov"> 281712394 : if (command->type != cm_simple)</span></a>
|
|
<a name="897"><span class="lineNum"> 897 </span><span class="lineNoCov"> 0 : command_error ("clean_simple_command", CMDERR_BADTYPE, command->type, 0);</span></a>
|
|
<a name="898"><span class="lineNum"> 898 </span> : else</a>
|
|
<a name="899"><span class="lineNum"> 899 </span> : {</a>
|
|
<a name="900"><span class="lineNum"> 900 </span><span class="lineCov"> 563424788 : command->value.Simple->words =</span></a>
|
|
<a name="901"><span class="lineNum"> 901 </span><span class="lineCov"> 281712394 : REVERSE_LIST (command->value.Simple->words, WORD_LIST *);</span></a>
|
|
<a name="902"><span class="lineNum"> 902 </span><span class="lineCov"> 281712394 : command->value.Simple->redirects =</span></a>
|
|
<a name="903"><span class="lineNum"> 903 </span><span class="lineCov"> 281712394 : REVERSE_LIST (command->value.Simple->redirects, REDIRECT *);</span></a>
|
|
<a name="904"><span class="lineNum"> 904 </span> : }</a>
|
|
<a name="905"><span class="lineNum"> 905 </span> : </a>
|
|
<a name="906"><span class="lineNum"> 906 </span><span class="lineCov"> 281712394 : parser_state &= ~PST_REDIRLIST;</span></a>
|
|
<a name="907"><span class="lineNum"> 907 </span> : </a>
|
|
<a name="908"><span class="lineNum"> 908 </span><span class="lineCov"> 281712394 : if (rpm_requires && command->value.Simple->words)</span></a>
|
|
<a name="909"><span class="lineNum"> 909 </span> : {</a>
|
|
<a name="910"><span class="lineNum"> 910 </span><span class="lineNoCov"> 0 : WORD_LIST *words = command->value.Simple->words;</span></a>
|
|
<a name="911"><span class="lineNum"> 911 </span><span class="lineNoCov"> 0 : const char *cmd = words->word->word;</span></a>
|
|
<a name="912"><span class="lineNum"> 912 </span> : </a>
|
|
<a name="913"><span class="lineNum"> 913 </span> : /* skip LC_* assignments */</a>
|
|
<a name="914"><span class="lineNum"> 914 </span><span class="lineNoCov"> 0 : while (words->next && assignment (cmd, 0))</span></a>
|
|
<a name="915"><span class="lineNum"> 915 </span> : {</a>
|
|
<a name="916"><span class="lineNum"> 916 </span><span class="lineNoCov"> 0 : if (strncmp (cmd, "LC_", 3) != 0)</span></a>
|
|
<a name="917"><span class="lineNum"> 917 </span> : break;</a>
|
|
<a name="918"><span class="lineNum"> 918 </span><span class="lineNoCov"> 0 : words = words->next;</span></a>
|
|
<a name="919"><span class="lineNum"> 919 </span><span class="lineNoCov"> 0 : cmd = words->word->word;</span></a>
|
|
<a name="920"><span class="lineNum"> 920 </span> : }</a>
|
|
<a name="921"><span class="lineNum"> 921 </span> : </a>
|
|
<a name="922"><span class="lineNum"> 922 </span><span class="lineNoCov"> 0 : if (!assignment (cmd, 0))</span></a>
|
|
<a name="923"><span class="lineNum"> 923 </span> : {</a>
|
|
<a name="924"><span class="lineNum"> 924 </span><span class="lineNoCov"> 0 : struct builtin *b = builtin_address_internal (cmd, 0);</span></a>
|
|
<a name="925"><span class="lineNum"> 925 </span><span class="lineNoCov"> 0 : if (b)</span></a>
|
|
<a name="926"><span class="lineNum"> 926 </span> : {</a>
|
|
<a name="927"><span class="lineNum"> 927 </span> : /* exec-like builtin with an argument */</a>
|
|
<a name="928"><span class="lineNum"> 928 </span><span class="lineNoCov"> 0 : if ((b->flags & REQUIRES_BUILTIN) && words->next)</span></a>
|
|
<a name="929"><span class="lineNum"> 929 </span> : {</a>
|
|
<a name="930"><span class="lineNum"> 930 </span><span class="lineNoCov"> 0 : words = words->next;</span></a>
|
|
<a name="931"><span class="lineNum"> 931 </span><span class="lineNoCov"> 0 : cmd = words->word->word;</span></a>
|
|
<a name="932"><span class="lineNum"> 932 </span><span class="lineNoCov"> 0 : output_requirement ("executable", cmd);</span></a>
|
|
<a name="933"><span class="lineNum"> 933 </span> : }</a>
|
|
<a name="934"><span class="lineNum"> 934 </span> : }</a>
|
|
<a name="935"><span class="lineNum"> 935 </span> : else</a>
|
|
<a name="936"><span class="lineNum"> 936 </span> : {</a>
|
|
<a name="937"><span class="lineNum"> 937 </span><span class="lineNoCov"> 0 : if (find_function (cmd) || find_function_def (cmd))</span></a>
|
|
<a name="938"><span class="lineNum"> 938 </span><span class="lineNoCov"> 0 : output_requirement ("function", cmd);</span></a>
|
|
<a name="939"><span class="lineNum"> 939 </span> : else</a>
|
|
<a name="940"><span class="lineNum"> 940 </span><span class="lineNoCov"> 0 : output_requirement ("executable", cmd);</span></a>
|
|
<a name="941"><span class="lineNum"> 941 </span> : }</a>
|
|
<a name="942"><span class="lineNum"> 942 </span> : }</a>
|
|
<a name="943"><span class="lineNum"> 943 </span> : } /* rpm_requires */</a>
|
|
<a name="944"><span class="lineNum"> 944 </span> : </a>
|
|
<a name="945"><span class="lineNum"> 945 </span><span class="lineCov"> 281712394 : return (command);</span></a>
|
|
<a name="946"><span class="lineNum"> 946 </span> : }</a>
|
|
<a name="947"><span class="lineNum"> 947 </span> : </a>
|
|
<a name="948"><span class="lineNum"> 948 </span> : /* The Yacc grammar productions have a problem, in that they take a</a>
|
|
<a name="949"><span class="lineNum"> 949 </span> : list followed by an ampersand (`&') and do a simple command connection,</a>
|
|
<a name="950"><span class="lineNum"> 950 </span> : making the entire list effectively asynchronous, instead of just</a>
|
|
<a name="951"><span class="lineNum"> 951 </span> : the last command. This means that when the list is executed, all</a>
|
|
<a name="952"><span class="lineNum"> 952 </span> : the commands have stdin set to /dev/null when job control is not</a>
|
|
<a name="953"><span class="lineNum"> 953 </span> : active, instead of just the last. This is wrong, and needs fixing</a>
|
|
<a name="954"><span class="lineNum"> 954 </span> : up. This function takes the `&' and applies it to the last command</a>
|
|
<a name="955"><span class="lineNum"> 955 </span> : in the list. This is done only for lists connected by `;'; it makes</a>
|
|
<a name="956"><span class="lineNum"> 956 </span> : `;' bind `tighter' than `&'. */</a>
|
|
<a name="957"><span class="lineNum"> 957 </span> : COMMAND *</a>
|
|
<a name="958"><span class="lineNum"> 958 </span><span class="lineCov"> 10369 : connect_async_list (command, command2, connector)</span></a>
|
|
<a name="959"><span class="lineNum"> 959 </span> : COMMAND *command, *command2;</a>
|
|
<a name="960"><span class="lineNum"> 960 </span> : int connector;</a>
|
|
<a name="961"><span class="lineNum"> 961 </span> : {</a>
|
|
<a name="962"><span class="lineNum"> 962 </span><span class="lineCov"> 10369 : COMMAND *t, *t1, *t2;</span></a>
|
|
<a name="963"><span class="lineNum"> 963 </span> : </a>
|
|
<a name="964"><span class="lineNum"> 964 </span><span class="lineCov"> 10369 : t1 = command;</span></a>
|
|
<a name="965"><span class="lineNum"> 965 </span><span class="lineCov"> 10369 : t = command->value.Connection->second;</span></a>
|
|
<a name="966"><span class="lineNum"> 966 </span> : </a>
|
|
<a name="967"><span class="lineNum"> 967 </span><span class="lineCov"> 10369 : if (!t || (command->flags & CMD_WANT_SUBSHELL) ||</span></a>
|
|
<a name="968"><span class="lineNum"> 968 </span><span class="lineCov"> 10369 : command->value.Connection->connector != ';')</span></a>
|
|
<a name="969"><span class="lineNum"> 969 </span> : {</a>
|
|
<a name="970"><span class="lineNum"> 970 </span><span class="lineCov"> 7084 : t = command_connect (command, command2, connector);</span></a>
|
|
<a name="971"><span class="lineNum"> 971 </span><span class="lineCov"> 7084 : return t;</span></a>
|
|
<a name="972"><span class="lineNum"> 972 </span> : }</a>
|
|
<a name="973"><span class="lineNum"> 973 </span> : </a>
|
|
<a name="974"><span class="lineNum"> 974 </span> : /* This is just defensive programming. The Yacc precedence rules</a>
|
|
<a name="975"><span class="lineNum"> 975 </span> : will generally hand this function a command where t points directly</a>
|
|
<a name="976"><span class="lineNum"> 976 </span> : to the command we want (e.g. given a ; b ; c ; d &, t1 will point</a>
|
|
<a name="977"><span class="lineNum"> 977 </span> : to the `a ; b ; c' list and t will be the `d'). We only want to do</a>
|
|
<a name="978"><span class="lineNum"> 978 </span> : this if the list is not being executed as a unit in the background</a>
|
|
<a name="979"><span class="lineNum"> 979 </span> : with `( ... )', so we have to check for CMD_WANT_SUBSHELL. That's</a>
|
|
<a name="980"><span class="lineNum"> 980 </span> : the only way to tell. */</a>
|
|
<a name="981"><span class="lineNum"> 981 </span><span class="lineCov"> 3285 : while (((t->flags & CMD_WANT_SUBSHELL) == 0) && t->type == cm_connection &&</span></a>
|
|
<a name="982"><span class="lineNum"> 982 </span><span class="lineCov"> 582 : t->value.Connection->connector == ';')</span></a>
|
|
<a name="983"><span class="lineNum"> 983 </span> : {</a>
|
|
<a name="984"><span class="lineNum"> 984 </span><span class="lineNoCov"> 0 : t1 = t;</span></a>
|
|
<a name="985"><span class="lineNum"> 985 </span><span class="lineNoCov"> 0 : t = t->value.Connection->second;</span></a>
|
|
<a name="986"><span class="lineNum"> 986 </span> : }</a>
|
|
<a name="987"><span class="lineNum"> 987 </span> : /* Now we have t pointing to the last command in the list, and</a>
|
|
<a name="988"><span class="lineNum"> 988 </span> : t1->value.Connection->second == t. */</a>
|
|
<a name="989"><span class="lineNum"> 989 </span><span class="lineCov"> 3285 : t2 = command_connect (t, command2, connector);</span></a>
|
|
<a name="990"><span class="lineNum"> 990 </span><span class="lineCov"> 3285 : t1->value.Connection->second = t2;</span></a>
|
|
<a name="991"><span class="lineNum"> 991 </span><span class="lineCov"> 3285 : return command;</span></a>
|
|
<a name="992"><span class="lineNum"> 992 </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>
|