6592 lines
739 KiB
HTML
6592 lines
739 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/parse.y</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> - parse.y<span style="font-size: 80%;"> (source / <a href="parse.y.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">1463</td>
|
|
<td class="headerCovTableEntry">2308</td>
|
|
<td class="headerCovTableEntryLo">63.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">51</td>
|
|
<td class="headerCovTableEntry">74</td>
|
|
<td class="headerCovTableEntryLo">68.9 %</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> : /* parse.y - Yacc grammar for bash. */</a>
|
|
<a name="2"><span class="lineNum"> 2 </span> : </a>
|
|
<a name="3"><span class="lineNum"> 3 </span> : /* Copyright (C) 1989-2015 Free Software Foundation, Inc.</a>
|
|
<a name="4"><span class="lineNum"> 4 </span> : </a>
|
|
<a name="5"><span class="lineNum"> 5 </span> : This file is part of GNU Bash, the Bourne Again SHell.</a>
|
|
<a name="6"><span class="lineNum"> 6 </span> : </a>
|
|
<a name="7"><span class="lineNum"> 7 </span> : Bash is free software: you can redistribute it and/or modify</a>
|
|
<a name="8"><span class="lineNum"> 8 </span> : it under the terms of the GNU General Public License as published by</a>
|
|
<a name="9"><span class="lineNum"> 9 </span> : the Free Software Foundation, either version 3 of the License, or</a>
|
|
<a name="10"><span class="lineNum"> 10 </span> : (at your option) any later version.</a>
|
|
<a name="11"><span class="lineNum"> 11 </span> : </a>
|
|
<a name="12"><span class="lineNum"> 12 </span> : Bash is distributed in the hope that it will be useful,</a>
|
|
<a name="13"><span class="lineNum"> 13 </span> : but WITHOUT ANY WARRANTY; without even the implied warranty of</a>
|
|
<a name="14"><span class="lineNum"> 14 </span> : MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the</a>
|
|
<a name="15"><span class="lineNum"> 15 </span> : GNU General Public License for more details.</a>
|
|
<a name="16"><span class="lineNum"> 16 </span> : </a>
|
|
<a name="17"><span class="lineNum"> 17 </span> : You should have received a copy of the GNU General Public License</a>
|
|
<a name="18"><span class="lineNum"> 18 </span> : along with Bash. If not, see <http://www.gnu.org/licenses/>.</a>
|
|
<a name="19"><span class="lineNum"> 19 </span> : */</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 "bashtypes.h"</a>
|
|
<a name="25"><span class="lineNum"> 25 </span> : #include "bashansi.h"</a>
|
|
<a name="26"><span class="lineNum"> 26 </span> : </a>
|
|
<a name="27"><span class="lineNum"> 27 </span> : #include "filecntl.h"</a>
|
|
<a name="28"><span class="lineNum"> 28 </span> : </a>
|
|
<a name="29"><span class="lineNum"> 29 </span> : #if defined (HAVE_UNISTD_H)</a>
|
|
<a name="30"><span class="lineNum"> 30 </span> : # include <unistd.h></a>
|
|
<a name="31"><span class="lineNum"> 31 </span> : #endif</a>
|
|
<a name="32"><span class="lineNum"> 32 </span> : </a>
|
|
<a name="33"><span class="lineNum"> 33 </span> : #if defined (HAVE_LOCALE_H)</a>
|
|
<a name="34"><span class="lineNum"> 34 </span> : # include <locale.h></a>
|
|
<a name="35"><span class="lineNum"> 35 </span> : #endif</a>
|
|
<a name="36"><span class="lineNum"> 36 </span> : </a>
|
|
<a name="37"><span class="lineNum"> 37 </span> : #include <stdio.h></a>
|
|
<a name="38"><span class="lineNum"> 38 </span> : #include "chartypes.h"</a>
|
|
<a name="39"><span class="lineNum"> 39 </span> : #include <signal.h></a>
|
|
<a name="40"><span class="lineNum"> 40 </span> : </a>
|
|
<a name="41"><span class="lineNum"> 41 </span> : #include "memalloc.h"</a>
|
|
<a name="42"><span class="lineNum"> 42 </span> : </a>
|
|
<a name="43"><span class="lineNum"> 43 </span> : #include "bashintl.h"</a>
|
|
<a name="44"><span class="lineNum"> 44 </span> : </a>
|
|
<a name="45"><span class="lineNum"> 45 </span> : #define NEED_STRFTIME_DECL /* used in externs.h */</a>
|
|
<a name="46"><span class="lineNum"> 46 </span> : </a>
|
|
<a name="47"><span class="lineNum"> 47 </span> : #include "shell.h"</a>
|
|
<a name="48"><span class="lineNum"> 48 </span> : #include "typemax.h" /* SIZE_MAX if needed */</a>
|
|
<a name="49"><span class="lineNum"> 49 </span> : #include "trap.h"</a>
|
|
<a name="50"><span class="lineNum"> 50 </span> : #include "flags.h"</a>
|
|
<a name="51"><span class="lineNum"> 51 </span> : #include "parser.h"</a>
|
|
<a name="52"><span class="lineNum"> 52 </span> : #include "mailcheck.h"</a>
|
|
<a name="53"><span class="lineNum"> 53 </span> : #include "test.h"</a>
|
|
<a name="54"><span class="lineNum"> 54 </span> : #include "builtins.h"</a>
|
|
<a name="55"><span class="lineNum"> 55 </span> : #include "builtins/common.h"</a>
|
|
<a name="56"><span class="lineNum"> 56 </span> : #include "builtins/builtext.h"</a>
|
|
<a name="57"><span class="lineNum"> 57 </span> : </a>
|
|
<a name="58"><span class="lineNum"> 58 </span> : #include "shmbutil.h"</a>
|
|
<a name="59"><span class="lineNum"> 59 </span> : </a>
|
|
<a name="60"><span class="lineNum"> 60 </span> : #if defined (READLINE)</a>
|
|
<a name="61"><span class="lineNum"> 61 </span> : # include "bashline.h"</a>
|
|
<a name="62"><span class="lineNum"> 62 </span> : # include <readline/readline.h></a>
|
|
<a name="63"><span class="lineNum"> 63 </span> : #endif /* READLINE */</a>
|
|
<a name="64"><span class="lineNum"> 64 </span> : </a>
|
|
<a name="65"><span class="lineNum"> 65 </span> : #if defined (HISTORY)</a>
|
|
<a name="66"><span class="lineNum"> 66 </span> : # include "bashhist.h"</a>
|
|
<a name="67"><span class="lineNum"> 67 </span> : # include <readline/history.h></a>
|
|
<a name="68"><span class="lineNum"> 68 </span> : #endif /* HISTORY */</a>
|
|
<a name="69"><span class="lineNum"> 69 </span> : </a>
|
|
<a name="70"><span class="lineNum"> 70 </span> : #if defined (JOB_CONTROL)</a>
|
|
<a name="71"><span class="lineNum"> 71 </span> : # include "jobs.h"</a>
|
|
<a name="72"><span class="lineNum"> 72 </span> : #else</a>
|
|
<a name="73"><span class="lineNum"> 73 </span> : extern int cleanup_dead_jobs __P((void));</a>
|
|
<a name="74"><span class="lineNum"> 74 </span> : #endif /* JOB_CONTROL */</a>
|
|
<a name="75"><span class="lineNum"> 75 </span> : </a>
|
|
<a name="76"><span class="lineNum"> 76 </span> : #if defined (ALIAS)</a>
|
|
<a name="77"><span class="lineNum"> 77 </span> : # include "alias.h"</a>
|
|
<a name="78"><span class="lineNum"> 78 </span> : #else</a>
|
|
<a name="79"><span class="lineNum"> 79 </span> : typedef void *alias_t;</a>
|
|
<a name="80"><span class="lineNum"> 80 </span> : #endif /* ALIAS */</a>
|
|
<a name="81"><span class="lineNum"> 81 </span> : </a>
|
|
<a name="82"><span class="lineNum"> 82 </span> : #if defined (PROMPT_STRING_DECODE)</a>
|
|
<a name="83"><span class="lineNum"> 83 </span> : # ifndef _MINIX</a>
|
|
<a name="84"><span class="lineNum"> 84 </span> : # include <sys/param.h></a>
|
|
<a name="85"><span class="lineNum"> 85 </span> : # endif</a>
|
|
<a name="86"><span class="lineNum"> 86 </span> : # include <time.h></a>
|
|
<a name="87"><span class="lineNum"> 87 </span> : # if defined (TM_IN_SYS_TIME)</a>
|
|
<a name="88"><span class="lineNum"> 88 </span> : # include <sys/types.h></a>
|
|
<a name="89"><span class="lineNum"> 89 </span> : # include <sys/time.h></a>
|
|
<a name="90"><span class="lineNum"> 90 </span> : # endif /* TM_IN_SYS_TIME */</a>
|
|
<a name="91"><span class="lineNum"> 91 </span> : # include "maxpath.h"</a>
|
|
<a name="92"><span class="lineNum"> 92 </span> : #endif /* PROMPT_STRING_DECODE */</a>
|
|
<a name="93"><span class="lineNum"> 93 </span> : </a>
|
|
<a name="94"><span class="lineNum"> 94 </span> : #define RE_READ_TOKEN -99</a>
|
|
<a name="95"><span class="lineNum"> 95 </span> : #define NO_EXPANSION -100</a>
|
|
<a name="96"><span class="lineNum"> 96 </span> : </a>
|
|
<a name="97"><span class="lineNum"> 97 </span> : #ifdef DEBUG</a>
|
|
<a name="98"><span class="lineNum"> 98 </span> : # define YYDEBUG 1</a>
|
|
<a name="99"><span class="lineNum"> 99 </span> : #else</a>
|
|
<a name="100"><span class="lineNum"> 100 </span> : # define YYDEBUG 0</a>
|
|
<a name="101"><span class="lineNum"> 101 </span> : #endif</a>
|
|
<a name="102"><span class="lineNum"> 102 </span> : </a>
|
|
<a name="103"><span class="lineNum"> 103 </span> : #if defined (HANDLE_MULTIBYTE)</a>
|
|
<a name="104"><span class="lineNum"> 104 </span> : # define last_shell_getc_is_singlebyte \</a>
|
|
<a name="105"><span class="lineNum"> 105 </span> : ((shell_input_line_index > 1) \</a>
|
|
<a name="106"><span class="lineNum"> 106 </span> : ? shell_input_line_property[shell_input_line_index - 1] \</a>
|
|
<a name="107"><span class="lineNum"> 107 </span> : : 1)</a>
|
|
<a name="108"><span class="lineNum"> 108 </span> : # define MBTEST(x) ((x) && last_shell_getc_is_singlebyte)</a>
|
|
<a name="109"><span class="lineNum"> 109 </span> : #else</a>
|
|
<a name="110"><span class="lineNum"> 110 </span> : # define last_shell_getc_is_singlebyte 1</a>
|
|
<a name="111"><span class="lineNum"> 111 </span> : # define MBTEST(x) ((x))</a>
|
|
<a name="112"><span class="lineNum"> 112 </span> : #endif</a>
|
|
<a name="113"><span class="lineNum"> 113 </span> : </a>
|
|
<a name="114"><span class="lineNum"> 114 </span> : #if defined (EXTENDED_GLOB)</a>
|
|
<a name="115"><span class="lineNum"> 115 </span> : extern int extended_glob;</a>
|
|
<a name="116"><span class="lineNum"> 116 </span> : #endif</a>
|
|
<a name="117"><span class="lineNum"> 117 </span> : </a>
|
|
<a name="118"><span class="lineNum"> 118 </span> : extern int eof_encountered;</a>
|
|
<a name="119"><span class="lineNum"> 119 </span> : extern int no_line_editing, running_under_emacs;</a>
|
|
<a name="120"><span class="lineNum"> 120 </span> : extern int current_command_number;</a>
|
|
<a name="121"><span class="lineNum"> 121 </span> : extern int sourcelevel, parse_and_execute_level;</a>
|
|
<a name="122"><span class="lineNum"> 122 </span> : extern int posixly_correct;</a>
|
|
<a name="123"><span class="lineNum"> 123 </span> : extern int last_command_exit_value;</a>
|
|
<a name="124"><span class="lineNum"> 124 </span> : extern pid_t last_command_subst_pid;</a>
|
|
<a name="125"><span class="lineNum"> 125 </span> : extern char *shell_name, *current_host_name;</a>
|
|
<a name="126"><span class="lineNum"> 126 </span> : extern char *dist_version;</a>
|
|
<a name="127"><span class="lineNum"> 127 </span> : extern int patch_level;</a>
|
|
<a name="128"><span class="lineNum"> 128 </span> : extern int dump_translatable_strings, dump_po_strings;</a>
|
|
<a name="129"><span class="lineNum"> 129 </span> : extern sh_builtin_func_t *last_shell_builtin, *this_shell_builtin;</a>
|
|
<a name="130"><span class="lineNum"> 130 </span> : extern int here_doc_first_line;</a>
|
|
<a name="131"><span class="lineNum"> 131 </span> : #if defined (BUFFERED_INPUT)</a>
|
|
<a name="132"><span class="lineNum"> 132 </span> : extern int bash_input_fd_changed;</a>
|
|
<a name="133"><span class="lineNum"> 133 </span> : #endif</a>
|
|
<a name="134"><span class="lineNum"> 134 </span> : </a>
|
|
<a name="135"><span class="lineNum"> 135 </span> : extern int errno;</a>
|
|
<a name="136"><span class="lineNum"> 136 </span> : /* **************************************************************** */</a>
|
|
<a name="137"><span class="lineNum"> 137 </span> : /* */</a>
|
|
<a name="138"><span class="lineNum"> 138 </span> : /* "Forward" declarations */</a>
|
|
<a name="139"><span class="lineNum"> 139 </span> : /* */</a>
|
|
<a name="140"><span class="lineNum"> 140 </span> : /* **************************************************************** */</a>
|
|
<a name="141"><span class="lineNum"> 141 </span> : </a>
|
|
<a name="142"><span class="lineNum"> 142 </span> : #ifdef DEBUG</a>
|
|
<a name="143"><span class="lineNum"> 143 </span> : static void debug_parser __P((int));</a>
|
|
<a name="144"><span class="lineNum"> 144 </span> : #endif</a>
|
|
<a name="145"><span class="lineNum"> 145 </span> : </a>
|
|
<a name="146"><span class="lineNum"> 146 </span> : static int yy_getc __P((void));</a>
|
|
<a name="147"><span class="lineNum"> 147 </span> : static int yy_ungetc __P((int));</a>
|
|
<a name="148"><span class="lineNum"> 148 </span> : </a>
|
|
<a name="149"><span class="lineNum"> 149 </span> : #if defined (READLINE)</a>
|
|
<a name="150"><span class="lineNum"> 150 </span> : static int yy_readline_get __P((void));</a>
|
|
<a name="151"><span class="lineNum"> 151 </span> : static int yy_readline_unget __P((int));</a>
|
|
<a name="152"><span class="lineNum"> 152 </span> : #endif</a>
|
|
<a name="153"><span class="lineNum"> 153 </span> : </a>
|
|
<a name="154"><span class="lineNum"> 154 </span> : static int yy_string_get __P((void));</a>
|
|
<a name="155"><span class="lineNum"> 155 </span> : static int yy_string_unget __P((int));</a>
|
|
<a name="156"><span class="lineNum"> 156 </span> : static void rewind_input_string __P((void));</a>
|
|
<a name="157"><span class="lineNum"> 157 </span> : static int yy_stream_get __P((void));</a>
|
|
<a name="158"><span class="lineNum"> 158 </span> : static int yy_stream_unget __P((int));</a>
|
|
<a name="159"><span class="lineNum"> 159 </span> : </a>
|
|
<a name="160"><span class="lineNum"> 160 </span> : static int shell_getc __P((int));</a>
|
|
<a name="161"><span class="lineNum"> 161 </span> : static void shell_ungetc __P((int));</a>
|
|
<a name="162"><span class="lineNum"> 162 </span> : static void discard_until __P((int));</a>
|
|
<a name="163"><span class="lineNum"> 163 </span> : </a>
|
|
<a name="164"><span class="lineNum"> 164 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="165"><span class="lineNum"> 165 </span> : static void push_string __P((char *, int, alias_t *));</a>
|
|
<a name="166"><span class="lineNum"> 166 </span> : static void pop_string __P((void));</a>
|
|
<a name="167"><span class="lineNum"> 167 </span> : static void free_string_list __P((void));</a>
|
|
<a name="168"><span class="lineNum"> 168 </span> : #endif</a>
|
|
<a name="169"><span class="lineNum"> 169 </span> : </a>
|
|
<a name="170"><span class="lineNum"> 170 </span> : static char *read_a_line __P((int));</a>
|
|
<a name="171"><span class="lineNum"> 171 </span> : </a>
|
|
<a name="172"><span class="lineNum"> 172 </span> : static int reserved_word_acceptable __P((int));</a>
|
|
<a name="173"><span class="lineNum"> 173 </span> : static int yylex __P((void));</a>
|
|
<a name="174"><span class="lineNum"> 174 </span> : </a>
|
|
<a name="175"><span class="lineNum"> 175 </span> : static void push_heredoc __P((REDIRECT *));</a>
|
|
<a name="176"><span class="lineNum"> 176 </span> : static char *mk_alexpansion __P((char *));</a>
|
|
<a name="177"><span class="lineNum"> 177 </span> : static int alias_expand_token __P((char *));</a>
|
|
<a name="178"><span class="lineNum"> 178 </span> : static int time_command_acceptable __P((void));</a>
|
|
<a name="179"><span class="lineNum"> 179 </span> : static int special_case_tokens __P((char *));</a>
|
|
<a name="180"><span class="lineNum"> 180 </span> : static int read_token __P((int));</a>
|
|
<a name="181"><span class="lineNum"> 181 </span> : static char *parse_matched_pair __P((int, int, int, int *, int));</a>
|
|
<a name="182"><span class="lineNum"> 182 </span> : static char *parse_comsub __P((int, int, int, int *, int));</a>
|
|
<a name="183"><span class="lineNum"> 183 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="184"><span class="lineNum"> 184 </span> : static char *parse_compound_assignment __P((int *));</a>
|
|
<a name="185"><span class="lineNum"> 185 </span> : #endif</a>
|
|
<a name="186"><span class="lineNum"> 186 </span> : #if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)</a>
|
|
<a name="187"><span class="lineNum"> 187 </span> : static int parse_dparen __P((int));</a>
|
|
<a name="188"><span class="lineNum"> 188 </span> : static int parse_arith_cmd __P((char **, int));</a>
|
|
<a name="189"><span class="lineNum"> 189 </span> : #endif</a>
|
|
<a name="190"><span class="lineNum"> 190 </span> : #if defined (COND_COMMAND)</a>
|
|
<a name="191"><span class="lineNum"> 191 </span> : static void cond_error __P((void));</a>
|
|
<a name="192"><span class="lineNum"> 192 </span> : static COND_COM *cond_expr __P((void));</a>
|
|
<a name="193"><span class="lineNum"> 193 </span> : static COND_COM *cond_or __P((void));</a>
|
|
<a name="194"><span class="lineNum"> 194 </span> : static COND_COM *cond_and __P((void));</a>
|
|
<a name="195"><span class="lineNum"> 195 </span> : static COND_COM *cond_term __P((void));</a>
|
|
<a name="196"><span class="lineNum"> 196 </span> : static int cond_skip_newlines __P((void));</a>
|
|
<a name="197"><span class="lineNum"> 197 </span> : static COMMAND *parse_cond_command __P((void));</a>
|
|
<a name="198"><span class="lineNum"> 198 </span> : #endif</a>
|
|
<a name="199"><span class="lineNum"> 199 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="200"><span class="lineNum"> 200 </span> : static int token_is_assignment __P((char *, int));</a>
|
|
<a name="201"><span class="lineNum"> 201 </span> : static int token_is_ident __P((char *, int));</a>
|
|
<a name="202"><span class="lineNum"> 202 </span> : #endif</a>
|
|
<a name="203"><span class="lineNum"> 203 </span> : static int read_token_word __P((int));</a>
|
|
<a name="204"><span class="lineNum"> 204 </span> : #if 0</a>
|
|
<a name="205"><span class="lineNum"> 205 </span> : static void discard_parser_constructs __P((int));</a>
|
|
<a name="206"><span class="lineNum"> 206 </span> : #endif</a>
|
|
<a name="207"><span class="lineNum"> 207 </span> : </a>
|
|
<a name="208"><span class="lineNum"> 208 </span> : static char *error_token_from_token __P((int));</a>
|
|
<a name="209"><span class="lineNum"> 209 </span> : static char *error_token_from_text __P((void));</a>
|
|
<a name="210"><span class="lineNum"> 210 </span> : static void print_offending_line __P((void));</a>
|
|
<a name="211"><span class="lineNum"> 211 </span> : static void report_syntax_error __P((char *));</a>
|
|
<a name="212"><span class="lineNum"> 212 </span> : </a>
|
|
<a name="213"><span class="lineNum"> 213 </span> : static void handle_eof_input_unit __P((void));</a>
|
|
<a name="214"><span class="lineNum"> 214 </span> : static void prompt_again __P((void));</a>
|
|
<a name="215"><span class="lineNum"> 215 </span> : #if 0</a>
|
|
<a name="216"><span class="lineNum"> 216 </span> : static void reset_readline_prompt __P((void));</a>
|
|
<a name="217"><span class="lineNum"> 217 </span> : #endif</a>
|
|
<a name="218"><span class="lineNum"> 218 </span> : static void print_prompt __P((void));</a>
|
|
<a name="219"><span class="lineNum"> 219 </span> : </a>
|
|
<a name="220"><span class="lineNum"> 220 </span> : #if defined (HANDLE_MULTIBYTE)</a>
|
|
<a name="221"><span class="lineNum"> 221 </span> : static void set_line_mbstate __P((void));</a>
|
|
<a name="222"><span class="lineNum"> 222 </span> : static char *shell_input_line_property = NULL;</a>
|
|
<a name="223"><span class="lineNum"> 223 </span> : #else</a>
|
|
<a name="224"><span class="lineNum"> 224 </span> : # define set_line_mbstate()</a>
|
|
<a name="225"><span class="lineNum"> 225 </span> : #endif</a>
|
|
<a name="226"><span class="lineNum"> 226 </span> : </a>
|
|
<a name="227"><span class="lineNum"> 227 </span> : extern int yyerror __P((const char *));</a>
|
|
<a name="228"><span class="lineNum"> 228 </span> : </a>
|
|
<a name="229"><span class="lineNum"> 229 </span> : #ifdef DEBUG</a>
|
|
<a name="230"><span class="lineNum"> 230 </span> : extern int yydebug;</a>
|
|
<a name="231"><span class="lineNum"> 231 </span> : #endif</a>
|
|
<a name="232"><span class="lineNum"> 232 </span> : </a>
|
|
<a name="233"><span class="lineNum"> 233 </span> : /* Default prompt strings */</a>
|
|
<a name="234"><span class="lineNum"> 234 </span> : char *primary_prompt = PPROMPT;</a>
|
|
<a name="235"><span class="lineNum"> 235 </span> : char *secondary_prompt = SPROMPT;</a>
|
|
<a name="236"><span class="lineNum"> 236 </span> : </a>
|
|
<a name="237"><span class="lineNum"> 237 </span> : /* PROMPT_STRING_POINTER points to one of these, never to an actual string. */</a>
|
|
<a name="238"><span class="lineNum"> 238 </span> : char *ps1_prompt, *ps2_prompt;</a>
|
|
<a name="239"><span class="lineNum"> 239 </span> : </a>
|
|
<a name="240"><span class="lineNum"> 240 </span> : /* Displayed after reading a command but before executing it in an interactive shell */</a>
|
|
<a name="241"><span class="lineNum"> 241 </span> : char *ps0_prompt;</a>
|
|
<a name="242"><span class="lineNum"> 242 </span> : </a>
|
|
<a name="243"><span class="lineNum"> 243 </span> : /* Handle on the current prompt string. Indirectly points through</a>
|
|
<a name="244"><span class="lineNum"> 244 </span> : ps1_ or ps2_prompt. */</a>
|
|
<a name="245"><span class="lineNum"> 245 </span> : char **prompt_string_pointer = (char **)NULL;</a>
|
|
<a name="246"><span class="lineNum"> 246 </span> : char *current_prompt_string;</a>
|
|
<a name="247"><span class="lineNum"> 247 </span> : </a>
|
|
<a name="248"><span class="lineNum"> 248 </span> : /* Non-zero means we expand aliases in commands. */</a>
|
|
<a name="249"><span class="lineNum"> 249 </span> : int expand_aliases = 0;</a>
|
|
<a name="250"><span class="lineNum"> 250 </span> : </a>
|
|
<a name="251"><span class="lineNum"> 251 </span> : /* If non-zero, the decoded prompt string undergoes parameter and</a>
|
|
<a name="252"><span class="lineNum"> 252 </span> : variable substitution, command substitution, arithmetic substitution,</a>
|
|
<a name="253"><span class="lineNum"> 253 </span> : string expansion, process substitution, and quote removal in</a>
|
|
<a name="254"><span class="lineNum"> 254 </span> : decode_prompt_string. */</a>
|
|
<a name="255"><span class="lineNum"> 255 </span> : int promptvars = 1;</a>
|
|
<a name="256"><span class="lineNum"> 256 </span> : </a>
|
|
<a name="257"><span class="lineNum"> 257 </span> : /* If non-zero, $'...' and $"..." are expanded when they appear within</a>
|
|
<a name="258"><span class="lineNum"> 258 </span> : a ${...} expansion, even when the expansion appears within double</a>
|
|
<a name="259"><span class="lineNum"> 259 </span> : quotes. */</a>
|
|
<a name="260"><span class="lineNum"> 260 </span> : int extended_quote = 1;</a>
|
|
<a name="261"><span class="lineNum"> 261 </span> : </a>
|
|
<a name="262"><span class="lineNum"> 262 </span> : /* The number of lines read from input while creating the current command. */</a>
|
|
<a name="263"><span class="lineNum"> 263 </span> : int current_command_line_count;</a>
|
|
<a name="264"><span class="lineNum"> 264 </span> : </a>
|
|
<a name="265"><span class="lineNum"> 265 </span> : /* The number of lines in a command saved while we run parse_and_execute */</a>
|
|
<a name="266"><span class="lineNum"> 266 </span> : int saved_command_line_count;</a>
|
|
<a name="267"><span class="lineNum"> 267 </span> : </a>
|
|
<a name="268"><span class="lineNum"> 268 </span> : /* The token that currently denotes the end of parse. */</a>
|
|
<a name="269"><span class="lineNum"> 269 </span> : int shell_eof_token;</a>
|
|
<a name="270"><span class="lineNum"> 270 </span> : </a>
|
|
<a name="271"><span class="lineNum"> 271 </span> : /* The token currently being read. */</a>
|
|
<a name="272"><span class="lineNum"> 272 </span> : int current_token;</a>
|
|
<a name="273"><span class="lineNum"> 273 </span> : </a>
|
|
<a name="274"><span class="lineNum"> 274 </span> : /* The current parser state. */</a>
|
|
<a name="275"><span class="lineNum"> 275 </span> : int parser_state;</a>
|
|
<a name="276"><span class="lineNum"> 276 </span> : </a>
|
|
<a name="277"><span class="lineNum"> 277 </span> : /* Variables to manage the task of reading here documents, because we need to</a>
|
|
<a name="278"><span class="lineNum"> 278 </span> : defer the reading until after a complete command has been collected. */</a>
|
|
<a name="279"><span class="lineNum"> 279 </span> : static REDIRECT *redir_stack[HEREDOC_MAX];</a>
|
|
<a name="280"><span class="lineNum"> 280 </span> : int need_here_doc;</a>
|
|
<a name="281"><span class="lineNum"> 281 </span> : </a>
|
|
<a name="282"><span class="lineNum"> 282 </span> : /* Where shell input comes from. History expansion is performed on each</a>
|
|
<a name="283"><span class="lineNum"> 283 </span> : line when the shell is interactive. */</a>
|
|
<a name="284"><span class="lineNum"> 284 </span> : static char *shell_input_line = (char *)NULL;</a>
|
|
<a name="285"><span class="lineNum"> 285 </span> : static size_t shell_input_line_index;</a>
|
|
<a name="286"><span class="lineNum"> 286 </span> : static size_t shell_input_line_size; /* Amount allocated for shell_input_line. */</a>
|
|
<a name="287"><span class="lineNum"> 287 </span> : static size_t shell_input_line_len; /* strlen (shell_input_line) */</a>
|
|
<a name="288"><span class="lineNum"> 288 </span> : </a>
|
|
<a name="289"><span class="lineNum"> 289 </span> : /* Either zero or EOF. */</a>
|
|
<a name="290"><span class="lineNum"> 290 </span> : static int shell_input_line_terminator;</a>
|
|
<a name="291"><span class="lineNum"> 291 </span> : </a>
|
|
<a name="292"><span class="lineNum"> 292 </span> : /* The line number in a script on which a function definition starts. */</a>
|
|
<a name="293"><span class="lineNum"> 293 </span> : static int function_dstart;</a>
|
|
<a name="294"><span class="lineNum"> 294 </span> : </a>
|
|
<a name="295"><span class="lineNum"> 295 </span> : /* The line number in a script on which a function body starts. */</a>
|
|
<a name="296"><span class="lineNum"> 296 </span> : static int function_bstart;</a>
|
|
<a name="297"><span class="lineNum"> 297 </span> : </a>
|
|
<a name="298"><span class="lineNum"> 298 </span> : /* The line number in a script at which an arithmetic for command starts. */</a>
|
|
<a name="299"><span class="lineNum"> 299 </span> : static int arith_for_lineno;</a>
|
|
<a name="300"><span class="lineNum"> 300 </span> : </a>
|
|
<a name="301"><span class="lineNum"> 301 </span> : /* The decoded prompt string. Used if READLINE is not defined or if</a>
|
|
<a name="302"><span class="lineNum"> 302 </span> : editing is turned off. Analogous to current_readline_prompt. */</a>
|
|
<a name="303"><span class="lineNum"> 303 </span> : static char *current_decoded_prompt;</a>
|
|
<a name="304"><span class="lineNum"> 304 </span> : </a>
|
|
<a name="305"><span class="lineNum"> 305 </span> : /* The last read token, or NULL. read_token () uses this for context</a>
|
|
<a name="306"><span class="lineNum"> 306 </span> : checking. */</a>
|
|
<a name="307"><span class="lineNum"> 307 </span> : static int last_read_token;</a>
|
|
<a name="308"><span class="lineNum"> 308 </span> : </a>
|
|
<a name="309"><span class="lineNum"> 309 </span> : /* The token read prior to last_read_token. */</a>
|
|
<a name="310"><span class="lineNum"> 310 </span> : static int token_before_that;</a>
|
|
<a name="311"><span class="lineNum"> 311 </span> : </a>
|
|
<a name="312"><span class="lineNum"> 312 </span> : /* The token read prior to token_before_that. */</a>
|
|
<a name="313"><span class="lineNum"> 313 </span> : static int two_tokens_ago;</a>
|
|
<a name="314"><span class="lineNum"> 314 </span> : </a>
|
|
<a name="315"><span class="lineNum"> 315 </span> : static int global_extglob;</a>
|
|
<a name="316"><span class="lineNum"> 316 </span> : </a>
|
|
<a name="317"><span class="lineNum"> 317 </span> : /* The line number in a script where the word in a `case WORD', `select WORD'</a>
|
|
<a name="318"><span class="lineNum"> 318 </span> : or `for WORD' begins. This is a nested command maximum, since the array</a>
|
|
<a name="319"><span class="lineNum"> 319 </span> : index is decremented after a case, select, or for command is parsed. */</a>
|
|
<a name="320"><span class="lineNum"> 320 </span> : #define MAX_CASE_NEST 128</a>
|
|
<a name="321"><span class="lineNum"> 321 </span> : static int word_lineno[MAX_CASE_NEST+1];</a>
|
|
<a name="322"><span class="lineNum"> 322 </span> : static int word_top = -1;</a>
|
|
<a name="323"><span class="lineNum"> 323 </span> : </a>
|
|
<a name="324"><span class="lineNum"> 324 </span> : /* If non-zero, it is the token that we want read_token to return</a>
|
|
<a name="325"><span class="lineNum"> 325 </span> : regardless of what text is (or isn't) present to be read. This</a>
|
|
<a name="326"><span class="lineNum"> 326 </span> : is reset by read_token. If token_to_read == WORD or</a>
|
|
<a name="327"><span class="lineNum"> 327 </span> : ASSIGNMENT_WORD, yylval.word should be set to word_desc_to_read. */</a>
|
|
<a name="328"><span class="lineNum"> 328 </span> : static int token_to_read;</a>
|
|
<a name="329"><span class="lineNum"> 329 </span> : static WORD_DESC *word_desc_to_read;</a>
|
|
<a name="330"><span class="lineNum"> 330 </span> : </a>
|
|
<a name="331"><span class="lineNum"> 331 </span> : static REDIRECTEE source;</a>
|
|
<a name="332"><span class="lineNum"> 332 </span> : static REDIRECTEE redir;</a>
|
|
<a name="333"><span class="lineNum"> 333 </span> : %}</a>
|
|
<a name="334"><span class="lineNum"> 334 </span> : </a>
|
|
<a name="335"><span class="lineNum"> 335 </span> : %union {</a>
|
|
<a name="336"><span class="lineNum"> 336 </span> : WORD_DESC *word; /* the word that we read. */</a>
|
|
<a name="337"><span class="lineNum"> 337 </span> : int number; /* the number that we read. */</a>
|
|
<a name="338"><span class="lineNum"> 338 </span> : WORD_LIST *word_list;</a>
|
|
<a name="339"><span class="lineNum"> 339 </span> : COMMAND *command;</a>
|
|
<a name="340"><span class="lineNum"> 340 </span> : REDIRECT *redirect;</a>
|
|
<a name="341"><span class="lineNum"> 341 </span> : ELEMENT element;</a>
|
|
<a name="342"><span class="lineNum"> 342 </span> : PATTERN_LIST *pattern;</a>
|
|
<a name="343"><span class="lineNum"> 343 </span> : }</a>
|
|
<a name="344"><span class="lineNum"> 344 </span> : </a>
|
|
<a name="345"><span class="lineNum"> 345 </span> : /* Reserved words. Members of the first group are only recognized</a>
|
|
<a name="346"><span class="lineNum"> 346 </span> : in the case that they are preceded by a list_terminator. Members</a>
|
|
<a name="347"><span class="lineNum"> 347 </span> : of the second group are for [[...]] commands. Members of the</a>
|
|
<a name="348"><span class="lineNum"> 348 </span> : third group are recognized only under special circumstances. */</a>
|
|
<a name="349"><span class="lineNum"> 349 </span> : %token IF THEN ELSE ELIF FI CASE ESAC FOR SELECT WHILE UNTIL DO DONE FUNCTION COPROC</a>
|
|
<a name="350"><span class="lineNum"> 350 </span> : %token COND_START COND_END COND_ERROR</a>
|
|
<a name="351"><span class="lineNum"> 351 </span> : %token IN BANG TIME TIMEOPT TIMEIGN</a>
|
|
<a name="352"><span class="lineNum"> 352 </span> : </a>
|
|
<a name="353"><span class="lineNum"> 353 </span> : /* More general tokens. yylex () knows how to make these. */</a>
|
|
<a name="354"><span class="lineNum"> 354 </span> : %token <word> WORD ASSIGNMENT_WORD REDIR_WORD</a>
|
|
<a name="355"><span class="lineNum"> 355 </span> : %token <number> NUMBER</a>
|
|
<a name="356"><span class="lineNum"> 356 </span> : %token <word_list> ARITH_CMD ARITH_FOR_EXPRS</a>
|
|
<a name="357"><span class="lineNum"> 357 </span> : %token <command> COND_CMD</a>
|
|
<a name="358"><span class="lineNum"> 358 </span> : %token AND_AND OR_OR GREATER_GREATER LESS_LESS LESS_AND LESS_LESS_LESS</a>
|
|
<a name="359"><span class="lineNum"> 359 </span> : %token GREATER_AND SEMI_SEMI SEMI_AND SEMI_SEMI_AND</a>
|
|
<a name="360"><span class="lineNum"> 360 </span> : %token LESS_LESS_MINUS AND_GREATER AND_GREATER_GREATER LESS_GREATER</a>
|
|
<a name="361"><span class="lineNum"> 361 </span> : %token GREATER_BAR BAR_AND</a>
|
|
<a name="362"><span class="lineNum"> 362 </span> : </a>
|
|
<a name="363"><span class="lineNum"> 363 </span> : /* The types that the various syntactical units return. */</a>
|
|
<a name="364"><span class="lineNum"> 364 </span> : </a>
|
|
<a name="365"><span class="lineNum"> 365 </span> : %type <command> inputunit command pipeline pipeline_command</a>
|
|
<a name="366"><span class="lineNum"> 366 </span> : %type <command> list list0 list1 compound_list simple_list simple_list1</a>
|
|
<a name="367"><span class="lineNum"> 367 </span> : %type <command> simple_command shell_command</a>
|
|
<a name="368"><span class="lineNum"> 368 </span> : %type <command> for_command select_command case_command group_command</a>
|
|
<a name="369"><span class="lineNum"> 369 </span> : %type <command> arith_command</a>
|
|
<a name="370"><span class="lineNum"> 370 </span> : %type <command> cond_command</a>
|
|
<a name="371"><span class="lineNum"> 371 </span> : %type <command> arith_for_command</a>
|
|
<a name="372"><span class="lineNum"> 372 </span> : %type <command> coproc</a>
|
|
<a name="373"><span class="lineNum"> 373 </span> : %type <command> function_def function_body if_command elif_clause subshell</a>
|
|
<a name="374"><span class="lineNum"> 374 </span> : %type <redirect> redirection redirection_list</a>
|
|
<a name="375"><span class="lineNum"> 375 </span> : %type <element> simple_command_element</a>
|
|
<a name="376"><span class="lineNum"> 376 </span> : %type <word_list> word_list pattern</a>
|
|
<a name="377"><span class="lineNum"> 377 </span> : %type <pattern> pattern_list case_clause_sequence case_clause</a>
|
|
<a name="378"><span class="lineNum"> 378 </span> : %type <number> timespec</a>
|
|
<a name="379"><span class="lineNum"> 379 </span> : %type <number> list_terminator</a>
|
|
<a name="380"><span class="lineNum"> 380 </span> : </a>
|
|
<a name="381"><span class="lineNum"> 381 </span> : %start inputunit</a>
|
|
<a name="382"><span class="lineNum"> 382 </span> : </a>
|
|
<a name="383"><span class="lineNum"> 383 </span> : %left '&' ';' '\n' yacc_EOF</a>
|
|
<a name="384"><span class="lineNum"> 384 </span> : %left AND_AND OR_OR</a>
|
|
<a name="385"><span class="lineNum"> 385 </span> : %right '|' BAR_AND</a>
|
|
<a name="386"><span class="lineNum"> 386 </span> : %%</a>
|
|
<a name="387"><span class="lineNum"> 387 </span> : </a>
|
|
<a name="388"><span class="lineNum"> 388 </span> : inputunit: simple_list simple_list_terminator</a>
|
|
<a name="389"><span class="lineNum"> 389 </span> : {</a>
|
|
<a name="390"><span class="lineNum"> 390 </span> : /* Case of regular command. Discard the error</a>
|
|
<a name="391"><span class="lineNum"> 391 </span> : safety net,and return the command just parsed. */</a>
|
|
<a name="392"><span class="lineNum"> 392 </span><span class="lineCov"> 89378664 : global_command = $1;</span></a>
|
|
<a name="393"><span class="lineNum"> 393 </span><span class="lineCov"> 89378664 : eof_encountered = 0;</span></a>
|
|
<a name="394"><span class="lineNum"> 394 </span> : /* discard_parser_constructs (0); */</a>
|
|
<a name="395"><span class="lineNum"> 395 </span><span class="lineCov"> 89378664 : if (parser_state & PST_CMDSUBST)</span></a>
|
|
<a name="396"><span class="lineNum"> 396 </span><span class="lineCov"> 27 : parser_state |= PST_EOFTOKEN;</span></a>
|
|
<a name="397"><span class="lineNum"> 397 </span><span class="lineCov"> 89378664 : YYACCEPT;</span></a>
|
|
<a name="398"><span class="lineNum"> 398 </span> : }</a>
|
|
<a name="399"><span class="lineNum"> 399 </span> : | '\n'</a>
|
|
<a name="400"><span class="lineNum"> 400 </span> : {</a>
|
|
<a name="401"><span class="lineNum"> 401 </span> : /* Case of regular command, but not a very</a>
|
|
<a name="402"><span class="lineNum"> 402 </span> : interesting one. Return a NULL command. */</a>
|
|
<a name="403"><span class="lineNum"> 403 </span><span class="lineCov"> 202028703 : global_command = (COMMAND *)NULL;</span></a>
|
|
<a name="404"><span class="lineNum"> 404 </span><span class="lineCov"> 202028703 : if (parser_state & PST_CMDSUBST)</span></a>
|
|
<a name="405"><span class="lineNum"> 405 </span><span class="lineNoCov"> 0 : parser_state |= PST_EOFTOKEN;</span></a>
|
|
<a name="406"><span class="lineNum"> 406 </span><span class="lineCov"> 202028703 : YYACCEPT;</span></a>
|
|
<a name="407"><span class="lineNum"> 407 </span> : }</a>
|
|
<a name="408"><span class="lineNum"> 408 </span> : | error '\n'</a>
|
|
<a name="409"><span class="lineNum"> 409 </span> : {</a>
|
|
<a name="410"><span class="lineNum"> 410 </span> : /* Error during parsing. Return NULL command. */</a>
|
|
<a name="411"><span class="lineNum"> 411 </span><span class="lineCov"> 1914028 : global_command = (COMMAND *)NULL;</span></a>
|
|
<a name="412"><span class="lineNum"> 412 </span><span class="lineCov"> 1914028 : eof_encountered = 0;</span></a>
|
|
<a name="413"><span class="lineNum"> 413 </span> : /* discard_parser_constructs (1); */</a>
|
|
<a name="414"><span class="lineNum"> 414 </span><span class="lineCov"> 1914028 : if (interactive && parse_and_execute_level == 0)</span></a>
|
|
<a name="415"><span class="lineNum"> 415 </span> : {</a>
|
|
<a name="416"><span class="lineNum"> 416 </span> : YYACCEPT;</a>
|
|
<a name="417"><span class="lineNum"> 417 </span> : }</a>
|
|
<a name="418"><span class="lineNum"> 418 </span> : else</a>
|
|
<a name="419"><span class="lineNum"> 419 </span> : {</a>
|
|
<a name="420"><span class="lineNum"> 420 </span> : YYABORT;</a>
|
|
<a name="421"><span class="lineNum"> 421 </span> : }</a>
|
|
<a name="422"><span class="lineNum"> 422 </span> : }</a>
|
|
<a name="423"><span class="lineNum"> 423 </span> : | yacc_EOF</a>
|
|
<a name="424"><span class="lineNum"> 424 </span> : {</a>
|
|
<a name="425"><span class="lineNum"> 425 </span> : /* Case of EOF seen by itself. Do ignoreeof or</a>
|
|
<a name="426"><span class="lineNum"> 426 </span> : not. */</a>
|
|
<a name="427"><span class="lineNum"> 427 </span><span class="lineCov"> 110845 : global_command = (COMMAND *)NULL;</span></a>
|
|
<a name="428"><span class="lineNum"> 428 </span><span class="lineCov"> 110845 : handle_eof_input_unit ();</span></a>
|
|
<a name="429"><span class="lineNum"> 429 </span><span class="lineCov"> 110845 : YYACCEPT;</span></a>
|
|
<a name="430"><span class="lineNum"> 430 </span> : }</a>
|
|
<a name="431"><span class="lineNum"> 431 </span> : ;</a>
|
|
<a name="432"><span class="lineNum"> 432 </span> : </a>
|
|
<a name="433"><span class="lineNum"> 433 </span> : word_list: WORD</a>
|
|
<a name="434"><span class="lineNum"> 434 </span><span class="lineCov"> 9542969 : { $$ = make_word_list ($1, (WORD_LIST *)NULL); }</span></a>
|
|
<a name="435"><span class="lineNum"> 435 </span> : | word_list WORD</a>
|
|
<a name="436"><span class="lineNum"> 436 </span><span class="lineNoCov"> 0 : { $$ = make_word_list ($2, $1); }</span></a>
|
|
<a name="437"><span class="lineNum"> 437 </span> : ;</a>
|
|
<a name="438"><span class="lineNum"> 438 </span> : </a>
|
|
<a name="439"><span class="lineNum"> 439 </span> : redirection: '>' WORD</a>
|
|
<a name="440"><span class="lineNum"> 440 </span> : {</a>
|
|
<a name="441"><span class="lineNum"> 441 </span><span class="lineCov"> 6011052 : source.dest = 1;</span></a>
|
|
<a name="442"><span class="lineNum"> 442 </span><span class="lineCov"> 6011052 : redir.filename = $2;</span></a>
|
|
<a name="443"><span class="lineNum"> 443 </span><span class="lineCov"> 6011052 : $$ = make_redirection (source, r_output_direction, redir, 0);</span></a>
|
|
<a name="444"><span class="lineNum"> 444 </span> : }</a>
|
|
<a name="445"><span class="lineNum"> 445 </span> : | '<' WORD</a>
|
|
<a name="446"><span class="lineNum"> 446 </span> : {</a>
|
|
<a name="447"><span class="lineNum"> 447 </span><span class="lineCov"> 3786649 : source.dest = 0;</span></a>
|
|
<a name="448"><span class="lineNum"> 448 </span><span class="lineCov"> 3786649 : redir.filename = $2;</span></a>
|
|
<a name="449"><span class="lineNum"> 449 </span><span class="lineCov"> 3786649 : $$ = make_redirection (source, r_input_direction, redir, 0);</span></a>
|
|
<a name="450"><span class="lineNum"> 450 </span> : }</a>
|
|
<a name="451"><span class="lineNum"> 451 </span> : | NUMBER '>' WORD</a>
|
|
<a name="452"><span class="lineNum"> 452 </span> : {</a>
|
|
<a name="453"><span class="lineNum"> 453 </span><span class="lineCov"> 1635249 : source.dest = $1;</span></a>
|
|
<a name="454"><span class="lineNum"> 454 </span><span class="lineCov"> 1635249 : redir.filename = $3;</span></a>
|
|
<a name="455"><span class="lineNum"> 455 </span><span class="lineCov"> 1635249 : $$ = make_redirection (source, r_output_direction, redir, 0);</span></a>
|
|
<a name="456"><span class="lineNum"> 456 </span> : }</a>
|
|
<a name="457"><span class="lineNum"> 457 </span> : | NUMBER '<' WORD</a>
|
|
<a name="458"><span class="lineNum"> 458 </span> : {</a>
|
|
<a name="459"><span class="lineNum"> 459 </span><span class="lineCov"> 61 : source.dest = $1;</span></a>
|
|
<a name="460"><span class="lineNum"> 460 </span><span class="lineCov"> 61 : redir.filename = $3;</span></a>
|
|
<a name="461"><span class="lineNum"> 461 </span><span class="lineCov"> 61 : $$ = make_redirection (source, r_input_direction, redir, 0);</span></a>
|
|
<a name="462"><span class="lineNum"> 462 </span> : }</a>
|
|
<a name="463"><span class="lineNum"> 463 </span> : | REDIR_WORD '>' WORD</a>
|
|
<a name="464"><span class="lineNum"> 464 </span> : {</a>
|
|
<a name="465"><span class="lineNum"> 465 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="466"><span class="lineNum"> 466 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="467"><span class="lineNum"> 467 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_output_direction, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="468"><span class="lineNum"> 468 </span> : }</a>
|
|
<a name="469"><span class="lineNum"> 469 </span> : | REDIR_WORD '<' WORD</a>
|
|
<a name="470"><span class="lineNum"> 470 </span> : {</a>
|
|
<a name="471"><span class="lineNum"> 471 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="472"><span class="lineNum"> 472 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="473"><span class="lineNum"> 473 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_input_direction, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="474"><span class="lineNum"> 474 </span> : }</a>
|
|
<a name="475"><span class="lineNum"> 475 </span> : | GREATER_GREATER WORD</a>
|
|
<a name="476"><span class="lineNum"> 476 </span> : {</a>
|
|
<a name="477"><span class="lineNum"> 477 </span><span class="lineCov"> 3500837 : source.dest = 1;</span></a>
|
|
<a name="478"><span class="lineNum"> 478 </span><span class="lineCov"> 3500837 : redir.filename = $2;</span></a>
|
|
<a name="479"><span class="lineNum"> 479 </span><span class="lineCov"> 3500837 : $$ = make_redirection (source, r_appending_to, redir, 0);</span></a>
|
|
<a name="480"><span class="lineNum"> 480 </span> : }</a>
|
|
<a name="481"><span class="lineNum"> 481 </span> : | NUMBER GREATER_GREATER WORD</a>
|
|
<a name="482"><span class="lineNum"> 482 </span> : {</a>
|
|
<a name="483"><span class="lineNum"> 483 </span><span class="lineCov"> 19 : source.dest = $1;</span></a>
|
|
<a name="484"><span class="lineNum"> 484 </span><span class="lineCov"> 19 : redir.filename = $3;</span></a>
|
|
<a name="485"><span class="lineNum"> 485 </span><span class="lineCov"> 19 : $$ = make_redirection (source, r_appending_to, redir, 0);</span></a>
|
|
<a name="486"><span class="lineNum"> 486 </span> : }</a>
|
|
<a name="487"><span class="lineNum"> 487 </span> : | REDIR_WORD GREATER_GREATER WORD</a>
|
|
<a name="488"><span class="lineNum"> 488 </span> : {</a>
|
|
<a name="489"><span class="lineNum"> 489 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="490"><span class="lineNum"> 490 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="491"><span class="lineNum"> 491 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_appending_to, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="492"><span class="lineNum"> 492 </span> : }</a>
|
|
<a name="493"><span class="lineNum"> 493 </span> : | GREATER_BAR WORD</a>
|
|
<a name="494"><span class="lineNum"> 494 </span> : {</a>
|
|
<a name="495"><span class="lineNum"> 495 </span><span class="lineCov"> 80 : source.dest = 1;</span></a>
|
|
<a name="496"><span class="lineNum"> 496 </span><span class="lineCov"> 80 : redir.filename = $2;</span></a>
|
|
<a name="497"><span class="lineNum"> 497 </span><span class="lineCov"> 80 : $$ = make_redirection (source, r_output_force, redir, 0);</span></a>
|
|
<a name="498"><span class="lineNum"> 498 </span> : }</a>
|
|
<a name="499"><span class="lineNum"> 499 </span> : | NUMBER GREATER_BAR WORD</a>
|
|
<a name="500"><span class="lineNum"> 500 </span> : {</a>
|
|
<a name="501"><span class="lineNum"> 501 </span><span class="lineNoCov"> 0 : source.dest = $1;</span></a>
|
|
<a name="502"><span class="lineNum"> 502 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="503"><span class="lineNum"> 503 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_output_force, redir, 0);</span></a>
|
|
<a name="504"><span class="lineNum"> 504 </span> : }</a>
|
|
<a name="505"><span class="lineNum"> 505 </span> : | REDIR_WORD GREATER_BAR WORD</a>
|
|
<a name="506"><span class="lineNum"> 506 </span> : {</a>
|
|
<a name="507"><span class="lineNum"> 507 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="508"><span class="lineNum"> 508 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="509"><span class="lineNum"> 509 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_output_force, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="510"><span class="lineNum"> 510 </span> : }</a>
|
|
<a name="511"><span class="lineNum"> 511 </span> : | LESS_GREATER WORD</a>
|
|
<a name="512"><span class="lineNum"> 512 </span> : {</a>
|
|
<a name="513"><span class="lineNum"> 513 </span><span class="lineCov"> 103 : source.dest = 0;</span></a>
|
|
<a name="514"><span class="lineNum"> 514 </span><span class="lineCov"> 103 : redir.filename = $2;</span></a>
|
|
<a name="515"><span class="lineNum"> 515 </span><span class="lineCov"> 103 : $$ = make_redirection (source, r_input_output, redir, 0);</span></a>
|
|
<a name="516"><span class="lineNum"> 516 </span> : }</a>
|
|
<a name="517"><span class="lineNum"> 517 </span> : | NUMBER LESS_GREATER WORD</a>
|
|
<a name="518"><span class="lineNum"> 518 </span> : {</a>
|
|
<a name="519"><span class="lineNum"> 519 </span><span class="lineNoCov"> 0 : source.dest = $1;</span></a>
|
|
<a name="520"><span class="lineNum"> 520 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="521"><span class="lineNum"> 521 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_input_output, redir, 0);</span></a>
|
|
<a name="522"><span class="lineNum"> 522 </span> : }</a>
|
|
<a name="523"><span class="lineNum"> 523 </span> : | REDIR_WORD LESS_GREATER WORD</a>
|
|
<a name="524"><span class="lineNum"> 524 </span> : {</a>
|
|
<a name="525"><span class="lineNum"> 525 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="526"><span class="lineNum"> 526 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="527"><span class="lineNum"> 527 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_input_output, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="528"><span class="lineNum"> 528 </span> : }</a>
|
|
<a name="529"><span class="lineNum"> 529 </span> : | LESS_LESS WORD</a>
|
|
<a name="530"><span class="lineNum"> 530 </span> : {</a>
|
|
<a name="531"><span class="lineNum"> 531 </span><span class="lineCov"> 285 : source.dest = 0;</span></a>
|
|
<a name="532"><span class="lineNum"> 532 </span><span class="lineCov"> 285 : redir.filename = $2;</span></a>
|
|
<a name="533"><span class="lineNum"> 533 </span><span class="lineCov"> 285 : $$ = make_redirection (source, r_reading_until, redir, 0);</span></a>
|
|
<a name="534"><span class="lineNum"> 534 </span><span class="lineCov"> 285 : push_heredoc ($$);</span></a>
|
|
<a name="535"><span class="lineNum"> 535 </span> : }</a>
|
|
<a name="536"><span class="lineNum"> 536 </span> : | NUMBER LESS_LESS WORD</a>
|
|
<a name="537"><span class="lineNum"> 537 </span> : {</a>
|
|
<a name="538"><span class="lineNum"> 538 </span><span class="lineNoCov"> 0 : source.dest = $1;</span></a>
|
|
<a name="539"><span class="lineNum"> 539 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="540"><span class="lineNum"> 540 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_reading_until, redir, 0);</span></a>
|
|
<a name="541"><span class="lineNum"> 541 </span><span class="lineNoCov"> 0 : push_heredoc ($$);</span></a>
|
|
<a name="542"><span class="lineNum"> 542 </span> : }</a>
|
|
<a name="543"><span class="lineNum"> 543 </span> : | REDIR_WORD LESS_LESS WORD</a>
|
|
<a name="544"><span class="lineNum"> 544 </span> : {</a>
|
|
<a name="545"><span class="lineNum"> 545 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="546"><span class="lineNum"> 546 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="547"><span class="lineNum"> 547 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_reading_until, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="548"><span class="lineNum"> 548 </span><span class="lineNoCov"> 0 : push_heredoc ($$);</span></a>
|
|
<a name="549"><span class="lineNum"> 549 </span> : }</a>
|
|
<a name="550"><span class="lineNum"> 550 </span> : | LESS_LESS_MINUS WORD</a>
|
|
<a name="551"><span class="lineNum"> 551 </span> : {</a>
|
|
<a name="552"><span class="lineNum"> 552 </span><span class="lineNoCov"> 0 : source.dest = 0;</span></a>
|
|
<a name="553"><span class="lineNum"> 553 </span><span class="lineNoCov"> 0 : redir.filename = $2;</span></a>
|
|
<a name="554"><span class="lineNum"> 554 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_deblank_reading_until, redir, 0);</span></a>
|
|
<a name="555"><span class="lineNum"> 555 </span><span class="lineNoCov"> 0 : push_heredoc ($$);</span></a>
|
|
<a name="556"><span class="lineNum"> 556 </span> : }</a>
|
|
<a name="557"><span class="lineNum"> 557 </span> : | NUMBER LESS_LESS_MINUS WORD</a>
|
|
<a name="558"><span class="lineNum"> 558 </span> : {</a>
|
|
<a name="559"><span class="lineNum"> 559 </span><span class="lineNoCov"> 0 : source.dest = $1;</span></a>
|
|
<a name="560"><span class="lineNum"> 560 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="561"><span class="lineNum"> 561 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_deblank_reading_until, redir, 0);</span></a>
|
|
<a name="562"><span class="lineNum"> 562 </span><span class="lineNoCov"> 0 : push_heredoc ($$);</span></a>
|
|
<a name="563"><span class="lineNum"> 563 </span> : }</a>
|
|
<a name="564"><span class="lineNum"> 564 </span> : | REDIR_WORD LESS_LESS_MINUS WORD</a>
|
|
<a name="565"><span class="lineNum"> 565 </span> : {</a>
|
|
<a name="566"><span class="lineNum"> 566 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="567"><span class="lineNum"> 567 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="568"><span class="lineNum"> 568 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_deblank_reading_until, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="569"><span class="lineNum"> 569 </span><span class="lineNoCov"> 0 : push_heredoc ($$);</span></a>
|
|
<a name="570"><span class="lineNum"> 570 </span> : }</a>
|
|
<a name="571"><span class="lineNum"> 571 </span> : | LESS_LESS_LESS WORD</a>
|
|
<a name="572"><span class="lineNum"> 572 </span> : {</a>
|
|
<a name="573"><span class="lineNum"> 573 </span><span class="lineCov"> 69 : source.dest = 0;</span></a>
|
|
<a name="574"><span class="lineNum"> 574 </span><span class="lineCov"> 69 : redir.filename = $2;</span></a>
|
|
<a name="575"><span class="lineNum"> 575 </span><span class="lineCov"> 69 : $$ = make_redirection (source, r_reading_string, redir, 0);</span></a>
|
|
<a name="576"><span class="lineNum"> 576 </span> : }</a>
|
|
<a name="577"><span class="lineNum"> 577 </span> : | NUMBER LESS_LESS_LESS WORD</a>
|
|
<a name="578"><span class="lineNum"> 578 </span> : {</a>
|
|
<a name="579"><span class="lineNum"> 579 </span><span class="lineCov"> 9 : source.dest = $1;</span></a>
|
|
<a name="580"><span class="lineNum"> 580 </span><span class="lineCov"> 9 : redir.filename = $3;</span></a>
|
|
<a name="581"><span class="lineNum"> 581 </span><span class="lineCov"> 9 : $$ = make_redirection (source, r_reading_string, redir, 0);</span></a>
|
|
<a name="582"><span class="lineNum"> 582 </span> : }</a>
|
|
<a name="583"><span class="lineNum"> 583 </span> : | REDIR_WORD LESS_LESS_LESS WORD</a>
|
|
<a name="584"><span class="lineNum"> 584 </span> : {</a>
|
|
<a name="585"><span class="lineNum"> 585 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="586"><span class="lineNum"> 586 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="587"><span class="lineNum"> 587 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_reading_string, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="588"><span class="lineNum"> 588 </span> : }</a>
|
|
<a name="589"><span class="lineNum"> 589 </span> : | LESS_AND NUMBER</a>
|
|
<a name="590"><span class="lineNum"> 590 </span> : {</a>
|
|
<a name="591"><span class="lineNum"> 591 </span><span class="lineNoCov"> 0 : source.dest = 0;</span></a>
|
|
<a name="592"><span class="lineNum"> 592 </span><span class="lineNoCov"> 0 : redir.dest = $2;</span></a>
|
|
<a name="593"><span class="lineNum"> 593 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_duplicating_input, redir, 0);</span></a>
|
|
<a name="594"><span class="lineNum"> 594 </span> : }</a>
|
|
<a name="595"><span class="lineNum"> 595 </span> : | NUMBER LESS_AND NUMBER</a>
|
|
<a name="596"><span class="lineNum"> 596 </span> : {</a>
|
|
<a name="597"><span class="lineNum"> 597 </span><span class="lineCov"> 9 : source.dest = $1;</span></a>
|
|
<a name="598"><span class="lineNum"> 598 </span><span class="lineCov"> 9 : redir.dest = $3;</span></a>
|
|
<a name="599"><span class="lineNum"> 599 </span><span class="lineCov"> 9 : $$ = make_redirection (source, r_duplicating_input, redir, 0);</span></a>
|
|
<a name="600"><span class="lineNum"> 600 </span> : }</a>
|
|
<a name="601"><span class="lineNum"> 601 </span> : | REDIR_WORD LESS_AND NUMBER</a>
|
|
<a name="602"><span class="lineNum"> 602 </span> : {</a>
|
|
<a name="603"><span class="lineNum"> 603 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="604"><span class="lineNum"> 604 </span><span class="lineNoCov"> 0 : redir.dest = $3;</span></a>
|
|
<a name="605"><span class="lineNum"> 605 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_duplicating_input, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="606"><span class="lineNum"> 606 </span> : }</a>
|
|
<a name="607"><span class="lineNum"> 607 </span> : | GREATER_AND NUMBER</a>
|
|
<a name="608"><span class="lineNum"> 608 </span> : {</a>
|
|
<a name="609"><span class="lineNum"> 609 </span><span class="lineCov"> 4963 : source.dest = 1;</span></a>
|
|
<a name="610"><span class="lineNum"> 610 </span><span class="lineCov"> 4963 : redir.dest = $2;</span></a>
|
|
<a name="611"><span class="lineNum"> 611 </span><span class="lineCov"> 4963 : $$ = make_redirection (source, r_duplicating_output, redir, 0);</span></a>
|
|
<a name="612"><span class="lineNum"> 612 </span> : }</a>
|
|
<a name="613"><span class="lineNum"> 613 </span> : | NUMBER GREATER_AND NUMBER</a>
|
|
<a name="614"><span class="lineNum"> 614 </span> : {</a>
|
|
<a name="615"><span class="lineNum"> 615 </span><span class="lineCov"> 1853325 : source.dest = $1;</span></a>
|
|
<a name="616"><span class="lineNum"> 616 </span><span class="lineCov"> 1853325 : redir.dest = $3;</span></a>
|
|
<a name="617"><span class="lineNum"> 617 </span><span class="lineCov"> 1853325 : $$ = make_redirection (source, r_duplicating_output, redir, 0);</span></a>
|
|
<a name="618"><span class="lineNum"> 618 </span> : }</a>
|
|
<a name="619"><span class="lineNum"> 619 </span> : | REDIR_WORD GREATER_AND NUMBER</a>
|
|
<a name="620"><span class="lineNum"> 620 </span> : {</a>
|
|
<a name="621"><span class="lineNum"> 621 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="622"><span class="lineNum"> 622 </span><span class="lineNoCov"> 0 : redir.dest = $3;</span></a>
|
|
<a name="623"><span class="lineNum"> 623 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_duplicating_output, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="624"><span class="lineNum"> 624 </span> : }</a>
|
|
<a name="625"><span class="lineNum"> 625 </span> : | LESS_AND WORD</a>
|
|
<a name="626"><span class="lineNum"> 626 </span> : {</a>
|
|
<a name="627"><span class="lineNum"> 627 </span><span class="lineCov"> 51 : source.dest = 0;</span></a>
|
|
<a name="628"><span class="lineNum"> 628 </span><span class="lineCov"> 51 : redir.filename = $2;</span></a>
|
|
<a name="629"><span class="lineNum"> 629 </span><span class="lineCov"> 51 : $$ = make_redirection (source, r_duplicating_input_word, redir, 0);</span></a>
|
|
<a name="630"><span class="lineNum"> 630 </span> : }</a>
|
|
<a name="631"><span class="lineNum"> 631 </span> : | NUMBER LESS_AND WORD</a>
|
|
<a name="632"><span class="lineNum"> 632 </span> : {</a>
|
|
<a name="633"><span class="lineNum"> 633 </span><span class="lineNoCov"> 0 : source.dest = $1;</span></a>
|
|
<a name="634"><span class="lineNum"> 634 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="635"><span class="lineNum"> 635 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_duplicating_input_word, redir, 0);</span></a>
|
|
<a name="636"><span class="lineNum"> 636 </span> : }</a>
|
|
<a name="637"><span class="lineNum"> 637 </span> : | REDIR_WORD LESS_AND WORD</a>
|
|
<a name="638"><span class="lineNum"> 638 </span> : {</a>
|
|
<a name="639"><span class="lineNum"> 639 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="640"><span class="lineNum"> 640 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="641"><span class="lineNum"> 641 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_duplicating_input_word, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="642"><span class="lineNum"> 642 </span> : }</a>
|
|
<a name="643"><span class="lineNum"> 643 </span> : | GREATER_AND WORD</a>
|
|
<a name="644"><span class="lineNum"> 644 </span> : {</a>
|
|
<a name="645"><span class="lineNum"> 645 </span><span class="lineCov"> 68 : source.dest = 1;</span></a>
|
|
<a name="646"><span class="lineNum"> 646 </span><span class="lineCov"> 68 : redir.filename = $2;</span></a>
|
|
<a name="647"><span class="lineNum"> 647 </span><span class="lineCov"> 68 : $$ = make_redirection (source, r_duplicating_output_word, redir, 0);</span></a>
|
|
<a name="648"><span class="lineNum"> 648 </span> : }</a>
|
|
<a name="649"><span class="lineNum"> 649 </span> : | NUMBER GREATER_AND WORD</a>
|
|
<a name="650"><span class="lineNum"> 650 </span> : {</a>
|
|
<a name="651"><span class="lineNum"> 651 </span><span class="lineCov"> 5289 : source.dest = $1;</span></a>
|
|
<a name="652"><span class="lineNum"> 652 </span><span class="lineCov"> 5289 : redir.filename = $3;</span></a>
|
|
<a name="653"><span class="lineNum"> 653 </span><span class="lineCov"> 5289 : $$ = make_redirection (source, r_duplicating_output_word, redir, 0);</span></a>
|
|
<a name="654"><span class="lineNum"> 654 </span> : }</a>
|
|
<a name="655"><span class="lineNum"> 655 </span> : | REDIR_WORD GREATER_AND WORD</a>
|
|
<a name="656"><span class="lineNum"> 656 </span> : {</a>
|
|
<a name="657"><span class="lineNum"> 657 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="658"><span class="lineNum"> 658 </span><span class="lineNoCov"> 0 : redir.filename = $3;</span></a>
|
|
<a name="659"><span class="lineNum"> 659 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_duplicating_output_word, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="660"><span class="lineNum"> 660 </span> : }</a>
|
|
<a name="661"><span class="lineNum"> 661 </span> : | GREATER_AND '-'</a>
|
|
<a name="662"><span class="lineNum"> 662 </span> : {</a>
|
|
<a name="663"><span class="lineNum"> 663 </span><span class="lineNoCov"> 0 : source.dest = 1;</span></a>
|
|
<a name="664"><span class="lineNum"> 664 </span><span class="lineNoCov"> 0 : redir.dest = 0;</span></a>
|
|
<a name="665"><span class="lineNum"> 665 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_close_this, redir, 0);</span></a>
|
|
<a name="666"><span class="lineNum"> 666 </span> : }</a>
|
|
<a name="667"><span class="lineNum"> 667 </span> : | NUMBER GREATER_AND '-'</a>
|
|
<a name="668"><span class="lineNum"> 668 </span> : {</a>
|
|
<a name="669"><span class="lineNum"> 669 </span><span class="lineCov"> 10 : source.dest = $1;</span></a>
|
|
<a name="670"><span class="lineNum"> 670 </span><span class="lineCov"> 10 : redir.dest = 0;</span></a>
|
|
<a name="671"><span class="lineNum"> 671 </span><span class="lineCov"> 10 : $$ = make_redirection (source, r_close_this, redir, 0);</span></a>
|
|
<a name="672"><span class="lineNum"> 672 </span> : }</a>
|
|
<a name="673"><span class="lineNum"> 673 </span> : | REDIR_WORD GREATER_AND '-'</a>
|
|
<a name="674"><span class="lineNum"> 674 </span> : {</a>
|
|
<a name="675"><span class="lineNum"> 675 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="676"><span class="lineNum"> 676 </span><span class="lineNoCov"> 0 : redir.dest = 0;</span></a>
|
|
<a name="677"><span class="lineNum"> 677 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_close_this, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="678"><span class="lineNum"> 678 </span> : }</a>
|
|
<a name="679"><span class="lineNum"> 679 </span> : | LESS_AND '-'</a>
|
|
<a name="680"><span class="lineNum"> 680 </span> : {</a>
|
|
<a name="681"><span class="lineNum"> 681 </span><span class="lineNoCov"> 0 : source.dest = 0;</span></a>
|
|
<a name="682"><span class="lineNum"> 682 </span><span class="lineNoCov"> 0 : redir.dest = 0;</span></a>
|
|
<a name="683"><span class="lineNum"> 683 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_close_this, redir, 0);</span></a>
|
|
<a name="684"><span class="lineNum"> 684 </span> : }</a>
|
|
<a name="685"><span class="lineNum"> 685 </span> : | NUMBER LESS_AND '-'</a>
|
|
<a name="686"><span class="lineNum"> 686 </span> : {</a>
|
|
<a name="687"><span class="lineNum"> 687 </span><span class="lineNoCov"> 0 : source.dest = $1;</span></a>
|
|
<a name="688"><span class="lineNum"> 688 </span><span class="lineNoCov"> 0 : redir.dest = 0;</span></a>
|
|
<a name="689"><span class="lineNum"> 689 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_close_this, redir, 0);</span></a>
|
|
<a name="690"><span class="lineNum"> 690 </span> : }</a>
|
|
<a name="691"><span class="lineNum"> 691 </span> : | REDIR_WORD LESS_AND '-'</a>
|
|
<a name="692"><span class="lineNum"> 692 </span> : {</a>
|
|
<a name="693"><span class="lineNum"> 693 </span><span class="lineNoCov"> 0 : source.filename = $1;</span></a>
|
|
<a name="694"><span class="lineNum"> 694 </span><span class="lineNoCov"> 0 : redir.dest = 0;</span></a>
|
|
<a name="695"><span class="lineNum"> 695 </span><span class="lineNoCov"> 0 : $$ = make_redirection (source, r_close_this, redir, REDIR_VARASSIGN);</span></a>
|
|
<a name="696"><span class="lineNum"> 696 </span> : }</a>
|
|
<a name="697"><span class="lineNum"> 697 </span> : | AND_GREATER WORD</a>
|
|
<a name="698"><span class="lineNum"> 698 </span> : {</a>
|
|
<a name="699"><span class="lineNum"> 699 </span><span class="lineCov"> 50 : source.dest = 1;</span></a>
|
|
<a name="700"><span class="lineNum"> 700 </span><span class="lineCov"> 50 : redir.filename = $2;</span></a>
|
|
<a name="701"><span class="lineNum"> 701 </span><span class="lineCov"> 50 : $$ = make_redirection (source, r_err_and_out, redir, 0);</span></a>
|
|
<a name="702"><span class="lineNum"> 702 </span> : }</a>
|
|
<a name="703"><span class="lineNum"> 703 </span> : | AND_GREATER_GREATER WORD</a>
|
|
<a name="704"><span class="lineNum"> 704 </span> : {</a>
|
|
<a name="705"><span class="lineNum"> 705 </span><span class="lineCov"> 12 : source.dest = 1;</span></a>
|
|
<a name="706"><span class="lineNum"> 706 </span><span class="lineCov"> 12 : redir.filename = $2;</span></a>
|
|
<a name="707"><span class="lineNum"> 707 </span><span class="lineCov"> 12 : $$ = make_redirection (source, r_append_err_and_out, redir, 0);</span></a>
|
|
<a name="708"><span class="lineNum"> 708 </span> : }</a>
|
|
<a name="709"><span class="lineNum"> 709 </span> : ;</a>
|
|
<a name="710"><span class="lineNum"> 710 </span> : </a>
|
|
<a name="711"><span class="lineNum"> 711 </span> : simple_command_element: WORD</a>
|
|
<a name="712"><span class="lineNum"> 712 </span><span class="lineCov"> 642615775 : { $$.word = $1; $$.redirect = 0; }</span></a>
|
|
<a name="713"><span class="lineNum"> 713 </span> : | ASSIGNMENT_WORD</a>
|
|
<a name="714"><span class="lineNum"> 714 </span><span class="lineCov"> 56720875 : { $$.word = $1; $$.redirect = 0; }</span></a>
|
|
<a name="715"><span class="lineNum"> 715 </span> : | redirection</a>
|
|
<a name="716"><span class="lineNum"> 716 </span><span class="lineCov"> 16798181 : { $$.redirect = $1; $$.word = 0; }</span></a>
|
|
<a name="717"><span class="lineNum"> 717 </span> : ;</a>
|
|
<a name="718"><span class="lineNum"> 718 </span> : </a>
|
|
<a name="719"><span class="lineNum"> 719 </span> : redirection_list: redirection</a>
|
|
<a name="720"><span class="lineNum"> 720 </span> : {</a>
|
|
<a name="721"><span class="lineNum"> 721 </span><span class="lineCov"> 9 : $$ = $1;</span></a>
|
|
<a name="722"><span class="lineNum"> 722 </span> : }</a>
|
|
<a name="723"><span class="lineNum"> 723 </span> : | redirection_list redirection</a>
|
|
<a name="724"><span class="lineNum"> 724 </span> : {</a>
|
|
<a name="725"><span class="lineNum"> 725 </span><span class="lineNoCov"> 0 : register REDIRECT *t;</span></a>
|
|
<a name="726"><span class="lineNum"> 726 </span> : </a>
|
|
<a name="727"><span class="lineNum"> 727 </span><span class="lineNoCov"> 0 : for (t = $1; t->next; t = t->next)</span></a>
|
|
<a name="728"><span class="lineNum"> 728 </span> : ;</a>
|
|
<a name="729"><span class="lineNum"> 729 </span><span class="lineNoCov"> 0 : t->next = $2;</span></a>
|
|
<a name="730"><span class="lineNum"> 730 </span><span class="lineNoCov"> 0 : $$ = $1;</span></a>
|
|
<a name="731"><span class="lineNum"> 731 </span> : }</a>
|
|
<a name="732"><span class="lineNum"> 732 </span> : ;</a>
|
|
<a name="733"><span class="lineNum"> 733 </span> : </a>
|
|
<a name="734"><span class="lineNum"> 734 </span> : simple_command: simple_command_element</a>
|
|
<a name="735"><span class="lineNum"> 735 </span><span class="lineCov"> 281725662 : { $$ = make_simple_command ($1, (COMMAND *)NULL); }</span></a>
|
|
<a name="736"><span class="lineNum"> 736 </span> : | simple_command simple_command_element</a>
|
|
<a name="737"><span class="lineNum"> 737 </span><span class="lineCov"> 434409169 : { $$ = make_simple_command ($2, $1); }</span></a>
|
|
<a name="738"><span class="lineNum"> 738 </span> : ;</a>
|
|
<a name="739"><span class="lineNum"> 739 </span> : </a>
|
|
<a name="740"><span class="lineNum"> 740 </span> : command: simple_command</a>
|
|
<a name="741"><span class="lineNum"> 741 </span><span class="lineCov"> 281713534 : { $$ = clean_simple_command ($1); }</span></a>
|
|
<a name="742"><span class="lineNum"> 742 </span> : | shell_command</a>
|
|
<a name="743"><span class="lineNum"> 743 </span><span class="lineCov"> 95088693 : { $$ = $1; }</span></a>
|
|
<a name="744"><span class="lineNum"> 744 </span> : | shell_command redirection_list</a>
|
|
<a name="745"><span class="lineNum"> 745 </span> : {</a>
|
|
<a name="746"><span class="lineNum"> 746 </span><span class="lineCov"> 9 : COMMAND *tc;</span></a>
|
|
<a name="747"><span class="lineNum"> 747 </span> : </a>
|
|
<a name="748"><span class="lineNum"> 748 </span><span class="lineCov"> 9 : tc = $1;</span></a>
|
|
<a name="749"><span class="lineNum"> 749 </span><span class="lineCov"> 9 : if (tc->redirects)</span></a>
|
|
<a name="750"><span class="lineNum"> 750 </span> : {</a>
|
|
<a name="751"><span class="lineNum"> 751 </span> : register REDIRECT *t;</a>
|
|
<a name="752"><span class="lineNum"> 752 </span><span class="lineNoCov"> 0 : for (t = tc->redirects; t->next; t = t->next)</span></a>
|
|
<a name="753"><span class="lineNum"> 753 </span> : ;</a>
|
|
<a name="754"><span class="lineNum"> 754 </span><span class="lineNoCov"> 0 : t->next = $2;</span></a>
|
|
<a name="755"><span class="lineNum"> 755 </span> : }</a>
|
|
<a name="756"><span class="lineNum"> 756 </span> : else</a>
|
|
<a name="757"><span class="lineNum"> 757 </span><span class="lineCov"> 9 : tc->redirects = $2;</span></a>
|
|
<a name="758"><span class="lineNum"> 758 </span><span class="lineCov"> 9 : $$ = $1;</span></a>
|
|
<a name="759"><span class="lineNum"> 759 </span> : }</a>
|
|
<a name="760"><span class="lineNum"> 760 </span> : | function_def</a>
|
|
<a name="761"><span class="lineNum"> 761 </span><span class="lineCov"> 18763987 : { $$ = $1; }</span></a>
|
|
<a name="762"><span class="lineNum"> 762 </span> : | coproc</a>
|
|
<a name="763"><span class="lineNum"> 763 </span><span class="lineNoCov"> 0 : { $$ = $1; }</span></a>
|
|
<a name="764"><span class="lineNum"> 764 </span> : ;</a>
|
|
<a name="765"><span class="lineNum"> 765 </span> : </a>
|
|
<a name="766"><span class="lineNum"> 766 </span> : shell_command: for_command</a>
|
|
<a name="767"><span class="lineNum"> 767 </span><span class="lineCov"> 9542969 : { $$ = $1; }</span></a>
|
|
<a name="768"><span class="lineNum"> 768 </span> : | case_command</a>
|
|
<a name="769"><span class="lineNum"> 769 </span><span class="lineCov"> 15245007 : { $$ = $1; }</span></a>
|
|
<a name="770"><span class="lineNum"> 770 </span> : | WHILE compound_list DO compound_list DONE</a>
|
|
<a name="771"><span class="lineNum"> 771 </span><span class="lineCov"> 1837422 : { $$ = make_while_command ($2, $4); }</span></a>
|
|
<a name="772"><span class="lineNum"> 772 </span> : | UNTIL compound_list DO compound_list DONE</a>
|
|
<a name="773"><span class="lineNum"> 773 </span><span class="lineNoCov"> 0 : { $$ = make_until_command ($2, $4); }</span></a>
|
|
<a name="774"><span class="lineNum"> 774 </span> : | select_command</a>
|
|
<a name="775"><span class="lineNum"> 775 </span><span class="lineNoCov"> 0 : { $$ = $1; }</span></a>
|
|
<a name="776"><span class="lineNum"> 776 </span> : | if_command</a>
|
|
<a name="777"><span class="lineNum"> 777 </span><span class="lineCov"> 68460861 : { $$ = $1; }</span></a>
|
|
<a name="778"><span class="lineNum"> 778 </span> : | subshell</a>
|
|
<a name="779"><span class="lineNum"> 779 </span><span class="lineCov"> 213 : { $$ = $1; }</span></a>
|
|
<a name="780"><span class="lineNum"> 780 </span> : | group_command</a>
|
|
<a name="781"><span class="lineNum"> 781 </span><span class="lineCov"> 18766217 : { $$ = $1; }</span></a>
|
|
<a name="782"><span class="lineNum"> 782 </span> : | arith_command</a>
|
|
<a name="783"><span class="lineNum"> 783 </span><span class="lineNoCov"> 0 : { $$ = $1; }</span></a>
|
|
<a name="784"><span class="lineNum"> 784 </span> : | cond_command</a>
|
|
<a name="785"><span class="lineNum"> 785 </span><span class="lineNoCov"> 0 : { $$ = $1; }</span></a>
|
|
<a name="786"><span class="lineNum"> 786 </span> : | arith_for_command</a>
|
|
<a name="787"><span class="lineNum"> 787 </span><span class="lineNoCov"> 0 : { $$ = $1; }</span></a>
|
|
<a name="788"><span class="lineNum"> 788 </span> : ;</a>
|
|
<a name="789"><span class="lineNum"> 789 </span> : </a>
|
|
<a name="790"><span class="lineNum"> 790 </span> : for_command: FOR WORD newline_list DO compound_list DONE</a>
|
|
<a name="791"><span class="lineNum"> 791 </span> : {</a>
|
|
<a name="792"><span class="lineNum"> 792 </span><span class="lineNoCov"> 0 : $$ = make_for_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $5, word_lineno[word_top]);</span></a>
|
|
<a name="793"><span class="lineNum"> 793 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="794"><span class="lineNum"> 794 </span> : }</a>
|
|
<a name="795"><span class="lineNum"> 795 </span> : | FOR WORD newline_list '{' compound_list '}'</a>
|
|
<a name="796"><span class="lineNum"> 796 </span> : {</a>
|
|
<a name="797"><span class="lineNum"> 797 </span><span class="lineNoCov"> 0 : $$ = make_for_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $5, word_lineno[word_top]);</span></a>
|
|
<a name="798"><span class="lineNum"> 798 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="799"><span class="lineNum"> 799 </span> : }</a>
|
|
<a name="800"><span class="lineNum"> 800 </span> : | FOR WORD ';' newline_list DO compound_list DONE</a>
|
|
<a name="801"><span class="lineNum"> 801 </span> : {</a>
|
|
<a name="802"><span class="lineNum"> 802 </span><span class="lineNoCov"> 0 : $$ = make_for_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $6, word_lineno[word_top]);</span></a>
|
|
<a name="803"><span class="lineNum"> 803 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="804"><span class="lineNum"> 804 </span> : }</a>
|
|
<a name="805"><span class="lineNum"> 805 </span> : | FOR WORD ';' newline_list '{' compound_list '}'</a>
|
|
<a name="806"><span class="lineNum"> 806 </span> : {</a>
|
|
<a name="807"><span class="lineNum"> 807 </span><span class="lineNoCov"> 0 : $$ = make_for_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $6, word_lineno[word_top]);</span></a>
|
|
<a name="808"><span class="lineNum"> 808 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="809"><span class="lineNum"> 809 </span> : }</a>
|
|
<a name="810"><span class="lineNum"> 810 </span> : | FOR WORD newline_list IN word_list list_terminator newline_list DO compound_list DONE</a>
|
|
<a name="811"><span class="lineNum"> 811 </span> : {</a>
|
|
<a name="812"><span class="lineNum"> 812 </span><span class="lineCov"> 9542969 : $$ = make_for_command ($2, REVERSE_LIST ($5, WORD_LIST *), $9, word_lineno[word_top]);</span></a>
|
|
<a name="813"><span class="lineNum"> 813 </span><span class="lineCov"> 9542969 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="814"><span class="lineNum"> 814 </span> : }</a>
|
|
<a name="815"><span class="lineNum"> 815 </span> : | FOR WORD newline_list IN word_list list_terminator newline_list '{' compound_list '}'</a>
|
|
<a name="816"><span class="lineNum"> 816 </span> : {</a>
|
|
<a name="817"><span class="lineNum"> 817 </span><span class="lineNoCov"> 0 : $$ = make_for_command ($2, REVERSE_LIST ($5, WORD_LIST *), $9, word_lineno[word_top]);</span></a>
|
|
<a name="818"><span class="lineNum"> 818 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="819"><span class="lineNum"> 819 </span> : }</a>
|
|
<a name="820"><span class="lineNum"> 820 </span> : | FOR WORD newline_list IN list_terminator newline_list DO compound_list DONE</a>
|
|
<a name="821"><span class="lineNum"> 821 </span> : {</a>
|
|
<a name="822"><span class="lineNum"> 822 </span><span class="lineNoCov"> 0 : $$ = make_for_command ($2, (WORD_LIST *)NULL, $8, word_lineno[word_top]);</span></a>
|
|
<a name="823"><span class="lineNum"> 823 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="824"><span class="lineNum"> 824 </span> : }</a>
|
|
<a name="825"><span class="lineNum"> 825 </span> : | FOR WORD newline_list IN list_terminator newline_list '{' compound_list '}'</a>
|
|
<a name="826"><span class="lineNum"> 826 </span> : {</a>
|
|
<a name="827"><span class="lineNum"> 827 </span><span class="lineNoCov"> 0 : $$ = make_for_command ($2, (WORD_LIST *)NULL, $8, word_lineno[word_top]);</span></a>
|
|
<a name="828"><span class="lineNum"> 828 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="829"><span class="lineNum"> 829 </span> : }</a>
|
|
<a name="830"><span class="lineNum"> 830 </span> : ;</a>
|
|
<a name="831"><span class="lineNum"> 831 </span> : </a>
|
|
<a name="832"><span class="lineNum"> 832 </span> : arith_for_command: FOR ARITH_FOR_EXPRS list_terminator newline_list DO compound_list DONE</a>
|
|
<a name="833"><span class="lineNum"> 833 </span> : {</a>
|
|
<a name="834"><span class="lineNum"> 834 </span><span class="lineNoCov"> 0 : $$ = make_arith_for_command ($2, $6, arith_for_lineno);</span></a>
|
|
<a name="835"><span class="lineNum"> 835 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="836"><span class="lineNum"> 836 </span> : }</a>
|
|
<a name="837"><span class="lineNum"> 837 </span> : | FOR ARITH_FOR_EXPRS list_terminator newline_list '{' compound_list '}'</a>
|
|
<a name="838"><span class="lineNum"> 838 </span> : {</a>
|
|
<a name="839"><span class="lineNum"> 839 </span><span class="lineNoCov"> 0 : $$ = make_arith_for_command ($2, $6, arith_for_lineno);</span></a>
|
|
<a name="840"><span class="lineNum"> 840 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="841"><span class="lineNum"> 841 </span> : }</a>
|
|
<a name="842"><span class="lineNum"> 842 </span> : | FOR ARITH_FOR_EXPRS DO compound_list DONE</a>
|
|
<a name="843"><span class="lineNum"> 843 </span> : {</a>
|
|
<a name="844"><span class="lineNum"> 844 </span><span class="lineNoCov"> 0 : $$ = make_arith_for_command ($2, $4, arith_for_lineno);</span></a>
|
|
<a name="845"><span class="lineNum"> 845 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="846"><span class="lineNum"> 846 </span> : }</a>
|
|
<a name="847"><span class="lineNum"> 847 </span> : | FOR ARITH_FOR_EXPRS '{' compound_list '}'</a>
|
|
<a name="848"><span class="lineNum"> 848 </span> : {</a>
|
|
<a name="849"><span class="lineNum"> 849 </span><span class="lineNoCov"> 0 : $$ = make_arith_for_command ($2, $4, arith_for_lineno);</span></a>
|
|
<a name="850"><span class="lineNum"> 850 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="851"><span class="lineNum"> 851 </span> : }</a>
|
|
<a name="852"><span class="lineNum"> 852 </span> : ;</a>
|
|
<a name="853"><span class="lineNum"> 853 </span> : </a>
|
|
<a name="854"><span class="lineNum"> 854 </span> : select_command: SELECT WORD newline_list DO list DONE</a>
|
|
<a name="855"><span class="lineNum"> 855 </span> : {</a>
|
|
<a name="856"><span class="lineNum"> 856 </span><span class="lineNoCov"> 0 : $$ = make_select_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $5, word_lineno[word_top]);</span></a>
|
|
<a name="857"><span class="lineNum"> 857 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="858"><span class="lineNum"> 858 </span> : }</a>
|
|
<a name="859"><span class="lineNum"> 859 </span> : | SELECT WORD newline_list '{' list '}'</a>
|
|
<a name="860"><span class="lineNum"> 860 </span> : {</a>
|
|
<a name="861"><span class="lineNum"> 861 </span><span class="lineNoCov"> 0 : $$ = make_select_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $5, word_lineno[word_top]);</span></a>
|
|
<a name="862"><span class="lineNum"> 862 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="863"><span class="lineNum"> 863 </span> : }</a>
|
|
<a name="864"><span class="lineNum"> 864 </span> : | SELECT WORD ';' newline_list DO list DONE</a>
|
|
<a name="865"><span class="lineNum"> 865 </span> : {</a>
|
|
<a name="866"><span class="lineNum"> 866 </span><span class="lineNoCov"> 0 : $$ = make_select_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $6, word_lineno[word_top]);</span></a>
|
|
<a name="867"><span class="lineNum"> 867 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="868"><span class="lineNum"> 868 </span> : }</a>
|
|
<a name="869"><span class="lineNum"> 869 </span> : | SELECT WORD ';' newline_list '{' list '}'</a>
|
|
<a name="870"><span class="lineNum"> 870 </span> : {</a>
|
|
<a name="871"><span class="lineNum"> 871 </span><span class="lineNoCov"> 0 : $$ = make_select_command ($2, add_string_to_list ("\"$@\"", (WORD_LIST *)NULL), $6, word_lineno[word_top]);</span></a>
|
|
<a name="872"><span class="lineNum"> 872 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="873"><span class="lineNum"> 873 </span> : }</a>
|
|
<a name="874"><span class="lineNum"> 874 </span> : | SELECT WORD newline_list IN word_list list_terminator newline_list DO list DONE</a>
|
|
<a name="875"><span class="lineNum"> 875 </span> : {</a>
|
|
<a name="876"><span class="lineNum"> 876 </span><span class="lineNoCov"> 0 : $$ = make_select_command ($2, REVERSE_LIST ($5, WORD_LIST *), $9, word_lineno[word_top]);</span></a>
|
|
<a name="877"><span class="lineNum"> 877 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="878"><span class="lineNum"> 878 </span> : }</a>
|
|
<a name="879"><span class="lineNum"> 879 </span> : | SELECT WORD newline_list IN word_list list_terminator newline_list '{' list '}'</a>
|
|
<a name="880"><span class="lineNum"> 880 </span> : {</a>
|
|
<a name="881"><span class="lineNum"> 881 </span><span class="lineNoCov"> 0 : $$ = make_select_command ($2, REVERSE_LIST ($5, WORD_LIST *), $9, word_lineno[word_top]);</span></a>
|
|
<a name="882"><span class="lineNum"> 882 </span><span class="lineNoCov"> 0 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="883"><span class="lineNum"> 883 </span> : }</a>
|
|
<a name="884"><span class="lineNum"> 884 </span> : ;</a>
|
|
<a name="885"><span class="lineNum"> 885 </span> : </a>
|
|
<a name="886"><span class="lineNum"> 886 </span> : case_command: CASE WORD newline_list IN newline_list ESAC</a>
|
|
<a name="887"><span class="lineNum"> 887 </span> : {</a>
|
|
<a name="888"><span class="lineNum"> 888 </span><span class="lineCov"> 9 : $$ = make_case_command ($2, (PATTERN_LIST *)NULL, word_lineno[word_top]);</span></a>
|
|
<a name="889"><span class="lineNum"> 889 </span><span class="lineCov"> 9 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="890"><span class="lineNum"> 890 </span> : }</a>
|
|
<a name="891"><span class="lineNum"> 891 </span> : | CASE WORD newline_list IN case_clause_sequence newline_list ESAC</a>
|
|
<a name="892"><span class="lineNum"> 892 </span> : {</a>
|
|
<a name="893"><span class="lineNum"> 893 </span><span class="lineCov"> 11494761 : $$ = make_case_command ($2, $5, word_lineno[word_top]);</span></a>
|
|
<a name="894"><span class="lineNum"> 894 </span><span class="lineCov"> 11494761 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="895"><span class="lineNum"> 895 </span> : }</a>
|
|
<a name="896"><span class="lineNum"> 896 </span> : | CASE WORD newline_list IN case_clause ESAC</a>
|
|
<a name="897"><span class="lineNum"> 897 </span> : {</a>
|
|
<a name="898"><span class="lineNum"> 898 </span><span class="lineCov"> 3750237 : $$ = make_case_command ($2, $5, word_lineno[word_top]);</span></a>
|
|
<a name="899"><span class="lineNum"> 899 </span><span class="lineCov"> 3750237 : if (word_top > 0) word_top--;</span></a>
|
|
<a name="900"><span class="lineNum"> 900 </span> : }</a>
|
|
<a name="901"><span class="lineNum"> 901 </span> : ;</a>
|
|
<a name="902"><span class="lineNum"> 902 </span> : </a>
|
|
<a name="903"><span class="lineNum"> 903 </span> : function_def: WORD '(' ')' newline_list function_body</a>
|
|
<a name="904"><span class="lineNum"> 904 </span><span class="lineCov"> 18763978 : { $$ = make_function_def ($1, $5, function_dstart, function_bstart); }</span></a>
|
|
<a name="905"><span class="lineNum"> 905 </span> : </a>
|
|
<a name="906"><span class="lineNum"> 906 </span> : | FUNCTION WORD '(' ')' newline_list function_body</a>
|
|
<a name="907"><span class="lineNum"> 907 </span><span class="lineNoCov"> 0 : { $$ = make_function_def ($2, $6, function_dstart, function_bstart); }</span></a>
|
|
<a name="908"><span class="lineNum"> 908 </span> : </a>
|
|
<a name="909"><span class="lineNum"> 909 </span> : | FUNCTION WORD newline_list function_body</a>
|
|
<a name="910"><span class="lineNum"> 910 </span><span class="lineCov"> 9 : { $$ = make_function_def ($2, $4, function_dstart, function_bstart); }</span></a>
|
|
<a name="911"><span class="lineNum"> 911 </span> : ;</a>
|
|
<a name="912"><span class="lineNum"> 912 </span> : </a>
|
|
<a name="913"><span class="lineNum"> 913 </span> : function_body: shell_command</a>
|
|
<a name="914"><span class="lineNum"> 914 </span><span class="lineCov"> 18763987 : { $$ = $1; }</span></a>
|
|
<a name="915"><span class="lineNum"> 915 </span> : | shell_command redirection_list</a>
|
|
<a name="916"><span class="lineNum"> 916 </span> : {</a>
|
|
<a name="917"><span class="lineNum"> 917 </span><span class="lineNoCov"> 0 : COMMAND *tc;</span></a>
|
|
<a name="918"><span class="lineNum"> 918 </span> : </a>
|
|
<a name="919"><span class="lineNum"> 919 </span><span class="lineNoCov"> 0 : tc = $1;</span></a>
|
|
<a name="920"><span class="lineNum"> 920 </span> : /* According to Posix.2 3.9.5, redirections</a>
|
|
<a name="921"><span class="lineNum"> 921 </span> : specified after the body of a function should</a>
|
|
<a name="922"><span class="lineNum"> 922 </span> : be attached to the function and performed when</a>
|
|
<a name="923"><span class="lineNum"> 923 </span> : the function is executed, not as part of the</a>
|
|
<a name="924"><span class="lineNum"> 924 </span> : function definition command. */</a>
|
|
<a name="925"><span class="lineNum"> 925 </span> : /* XXX - I don't think it matters, but we might</a>
|
|
<a name="926"><span class="lineNum"> 926 </span> : want to change this in the future to avoid</a>
|
|
<a name="927"><span class="lineNum"> 927 </span> : problems differentiating between a function</a>
|
|
<a name="928"><span class="lineNum"> 928 </span> : definition with a redirection and a function</a>
|
|
<a name="929"><span class="lineNum"> 929 </span> : definition containing a single command with a</a>
|
|
<a name="930"><span class="lineNum"> 930 </span> : redirection. The two are semantically equivalent,</a>
|
|
<a name="931"><span class="lineNum"> 931 </span> : though -- the only difference is in how the</a>
|
|
<a name="932"><span class="lineNum"> 932 </span> : command printing code displays the redirections. */</a>
|
|
<a name="933"><span class="lineNum"> 933 </span><span class="lineNoCov"> 0 : if (tc->redirects)</span></a>
|
|
<a name="934"><span class="lineNum"> 934 </span> : {</a>
|
|
<a name="935"><span class="lineNum"> 935 </span> : register REDIRECT *t;</a>
|
|
<a name="936"><span class="lineNum"> 936 </span><span class="lineNoCov"> 0 : for (t = tc->redirects; t->next; t = t->next)</span></a>
|
|
<a name="937"><span class="lineNum"> 937 </span> : ;</a>
|
|
<a name="938"><span class="lineNum"> 938 </span><span class="lineNoCov"> 0 : t->next = $2;</span></a>
|
|
<a name="939"><span class="lineNum"> 939 </span> : }</a>
|
|
<a name="940"><span class="lineNum"> 940 </span> : else</a>
|
|
<a name="941"><span class="lineNum"> 941 </span><span class="lineNoCov"> 0 : tc->redirects = $2;</span></a>
|
|
<a name="942"><span class="lineNum"> 942 </span><span class="lineNoCov"> 0 : $$ = $1;</span></a>
|
|
<a name="943"><span class="lineNum"> 943 </span> : }</a>
|
|
<a name="944"><span class="lineNum"> 944 </span> : ;</a>
|
|
<a name="945"><span class="lineNum"> 945 </span> : </a>
|
|
<a name="946"><span class="lineNum"> 946 </span> : subshell: '(' compound_list ')'</a>
|
|
<a name="947"><span class="lineNum"> 947 </span> : {</a>
|
|
<a name="948"><span class="lineNum"> 948 </span><span class="lineCov"> 213 : $$ = make_subshell_command ($2);</span></a>
|
|
<a name="949"><span class="lineNum"> 949 </span><span class="lineCov"> 213 : $$->flags |= CMD_WANT_SUBSHELL;</span></a>
|
|
<a name="950"><span class="lineNum"> 950 </span> : }</a>
|
|
<a name="951"><span class="lineNum"> 951 </span> : ;</a>
|
|
<a name="952"><span class="lineNum"> 952 </span> : </a>
|
|
<a name="953"><span class="lineNum"> 953 </span> : coproc: COPROC shell_command</a>
|
|
<a name="954"><span class="lineNum"> 954 </span> : {</a>
|
|
<a name="955"><span class="lineNum"> 955 </span><span class="lineNoCov"> 0 : $$ = make_coproc_command ("COPROC", $2);</span></a>
|
|
<a name="956"><span class="lineNum"> 956 </span><span class="lineNoCov"> 0 : $$->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;</span></a>
|
|
<a name="957"><span class="lineNum"> 957 </span> : }</a>
|
|
<a name="958"><span class="lineNum"> 958 </span> : | COPROC shell_command redirection_list</a>
|
|
<a name="959"><span class="lineNum"> 959 </span> : {</a>
|
|
<a name="960"><span class="lineNum"> 960 </span><span class="lineNoCov"> 0 : COMMAND *tc;</span></a>
|
|
<a name="961"><span class="lineNum"> 961 </span> : </a>
|
|
<a name="962"><span class="lineNum"> 962 </span><span class="lineNoCov"> 0 : tc = $2;</span></a>
|
|
<a name="963"><span class="lineNum"> 963 </span><span class="lineNoCov"> 0 : if (tc->redirects)</span></a>
|
|
<a name="964"><span class="lineNum"> 964 </span> : {</a>
|
|
<a name="965"><span class="lineNum"> 965 </span> : register REDIRECT *t;</a>
|
|
<a name="966"><span class="lineNum"> 966 </span><span class="lineNoCov"> 0 : for (t = tc->redirects; t->next; t = t->next)</span></a>
|
|
<a name="967"><span class="lineNum"> 967 </span> : ;</a>
|
|
<a name="968"><span class="lineNum"> 968 </span><span class="lineNoCov"> 0 : t->next = $3;</span></a>
|
|
<a name="969"><span class="lineNum"> 969 </span> : }</a>
|
|
<a name="970"><span class="lineNum"> 970 </span> : else</a>
|
|
<a name="971"><span class="lineNum"> 971 </span><span class="lineNoCov"> 0 : tc->redirects = $3;</span></a>
|
|
<a name="972"><span class="lineNum"> 972 </span><span class="lineNoCov"> 0 : $$ = make_coproc_command ("COPROC", $2);</span></a>
|
|
<a name="973"><span class="lineNum"> 973 </span><span class="lineNoCov"> 0 : $$->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;</span></a>
|
|
<a name="974"><span class="lineNum"> 974 </span> : }</a>
|
|
<a name="975"><span class="lineNum"> 975 </span> : | COPROC WORD shell_command</a>
|
|
<a name="976"><span class="lineNum"> 976 </span> : {</a>
|
|
<a name="977"><span class="lineNum"> 977 </span><span class="lineNoCov"> 0 : $$ = make_coproc_command ($2->word, $3);</span></a>
|
|
<a name="978"><span class="lineNum"> 978 </span><span class="lineNoCov"> 0 : $$->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;</span></a>
|
|
<a name="979"><span class="lineNum"> 979 </span> : }</a>
|
|
<a name="980"><span class="lineNum"> 980 </span> : | COPROC WORD shell_command redirection_list</a>
|
|
<a name="981"><span class="lineNum"> 981 </span> : {</a>
|
|
<a name="982"><span class="lineNum"> 982 </span><span class="lineNoCov"> 0 : COMMAND *tc;</span></a>
|
|
<a name="983"><span class="lineNum"> 983 </span> : </a>
|
|
<a name="984"><span class="lineNum"> 984 </span><span class="lineNoCov"> 0 : tc = $3;</span></a>
|
|
<a name="985"><span class="lineNum"> 985 </span><span class="lineNoCov"> 0 : if (tc->redirects)</span></a>
|
|
<a name="986"><span class="lineNum"> 986 </span> : {</a>
|
|
<a name="987"><span class="lineNum"> 987 </span> : register REDIRECT *t;</a>
|
|
<a name="988"><span class="lineNum"> 988 </span><span class="lineNoCov"> 0 : for (t = tc->redirects; t->next; t = t->next)</span></a>
|
|
<a name="989"><span class="lineNum"> 989 </span> : ;</a>
|
|
<a name="990"><span class="lineNum"> 990 </span><span class="lineNoCov"> 0 : t->next = $4;</span></a>
|
|
<a name="991"><span class="lineNum"> 991 </span> : }</a>
|
|
<a name="992"><span class="lineNum"> 992 </span> : else</a>
|
|
<a name="993"><span class="lineNum"> 993 </span><span class="lineNoCov"> 0 : tc->redirects = $4;</span></a>
|
|
<a name="994"><span class="lineNum"> 994 </span><span class="lineNoCov"> 0 : $$ = make_coproc_command ($2->word, $3);</span></a>
|
|
<a name="995"><span class="lineNum"> 995 </span><span class="lineNoCov"> 0 : $$->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;</span></a>
|
|
<a name="996"><span class="lineNum"> 996 </span> : }</a>
|
|
<a name="997"><span class="lineNum"> 997 </span> : | COPROC simple_command</a>
|
|
<a name="998"><span class="lineNum"> 998 </span> : {</a>
|
|
<a name="999"><span class="lineNum"> 999 </span><span class="lineNoCov"> 0 : $$ = make_coproc_command ("COPROC", clean_simple_command ($2));</span></a>
|
|
<a name="1000"><span class="lineNum"> 1000 </span><span class="lineNoCov"> 0 : $$->flags |= CMD_WANT_SUBSHELL|CMD_COPROC_SUBSHELL;</span></a>
|
|
<a name="1001"><span class="lineNum"> 1001 </span> : }</a>
|
|
<a name="1002"><span class="lineNum"> 1002 </span> : ;</a>
|
|
<a name="1003"><span class="lineNum"> 1003 </span> : </a>
|
|
<a name="1004"><span class="lineNum"> 1004 </span> : if_command: IF compound_list THEN compound_list FI</a>
|
|
<a name="1005"><span class="lineNum"> 1005 </span><span class="lineCov"> 66804905 : { $$ = make_if_command ($2, $4, (COMMAND *)NULL); }</span></a>
|
|
<a name="1006"><span class="lineNum"> 1006 </span> : | IF compound_list THEN compound_list ELSE compound_list FI</a>
|
|
<a name="1007"><span class="lineNum"> 1007 </span><span class="lineCov"> 1655956 : { $$ = make_if_command ($2, $4, $6); }</span></a>
|
|
<a name="1008"><span class="lineNum"> 1008 </span> : | IF compound_list THEN compound_list elif_clause FI</a>
|
|
<a name="1009"><span class="lineNum"> 1009 </span><span class="lineNoCov"> 0 : { $$ = make_if_command ($2, $4, $5); }</span></a>
|
|
<a name="1010"><span class="lineNum"> 1010 </span> : ;</a>
|
|
<a name="1011"><span class="lineNum"> 1011 </span> : </a>
|
|
<a name="1012"><span class="lineNum"> 1012 </span> : </a>
|
|
<a name="1013"><span class="lineNum"> 1013 </span> : group_command: '{' compound_list '}'</a>
|
|
<a name="1014"><span class="lineNum"> 1014 </span><span class="lineCov"> 18766217 : { $$ = make_group_command ($2); }</span></a>
|
|
<a name="1015"><span class="lineNum"> 1015 </span> : ;</a>
|
|
<a name="1016"><span class="lineNum"> 1016 </span> : </a>
|
|
<a name="1017"><span class="lineNum"> 1017 </span> : arith_command: ARITH_CMD</a>
|
|
<a name="1018"><span class="lineNum"> 1018 </span><span class="lineNoCov"> 0 : { $$ = make_arith_command ($1); }</span></a>
|
|
<a name="1019"><span class="lineNum"> 1019 </span> : ;</a>
|
|
<a name="1020"><span class="lineNum"> 1020 </span> : </a>
|
|
<a name="1021"><span class="lineNum"> 1021 </span> : cond_command: COND_START COND_CMD COND_END</a>
|
|
<a name="1022"><span class="lineNum"> 1022 </span><span class="lineNoCov"> 0 : { $$ = $2; }</span></a>
|
|
<a name="1023"><span class="lineNum"> 1023 </span> : ; </a>
|
|
<a name="1024"><span class="lineNum"> 1024 </span> : </a>
|
|
<a name="1025"><span class="lineNum"> 1025 </span> : elif_clause: ELIF compound_list THEN compound_list</a>
|
|
<a name="1026"><span class="lineNum"> 1026 </span><span class="lineNoCov"> 0 : { $$ = make_if_command ($2, $4, (COMMAND *)NULL); }</span></a>
|
|
<a name="1027"><span class="lineNum"> 1027 </span> : | ELIF compound_list THEN compound_list ELSE compound_list</a>
|
|
<a name="1028"><span class="lineNum"> 1028 </span><span class="lineNoCov"> 0 : { $$ = make_if_command ($2, $4, $6); }</span></a>
|
|
<a name="1029"><span class="lineNum"> 1029 </span> : | ELIF compound_list THEN compound_list elif_clause</a>
|
|
<a name="1030"><span class="lineNum"> 1030 </span><span class="lineNoCov"> 0 : { $$ = make_if_command ($2, $4, $5); }</span></a>
|
|
<a name="1031"><span class="lineNum"> 1031 </span> : ;</a>
|
|
<a name="1032"><span class="lineNum"> 1032 </span> : </a>
|
|
<a name="1033"><span class="lineNum"> 1033 </span> : case_clause: pattern_list</a>
|
|
<a name="1034"><span class="lineNum"> 1034 </span> : | case_clause_sequence pattern_list</a>
|
|
<a name="1035"><span class="lineNum"> 1035 </span><span class="lineCov"> 3895982 : { $2->next = $1; $$ = $2; }</span></a>
|
|
<a name="1036"><span class="lineNum"> 1036 </span> : ;</a>
|
|
<a name="1037"><span class="lineNum"> 1037 </span> : </a>
|
|
<a name="1038"><span class="lineNum"> 1038 </span> : pattern_list: newline_list pattern ')' compound_list</a>
|
|
<a name="1039"><span class="lineNum"> 1039 </span><span class="lineCov"> 47359442 : { $$ = make_pattern_list ($2, $4); }</span></a>
|
|
<a name="1040"><span class="lineNum"> 1040 </span> : | newline_list pattern ')' newline_list</a>
|
|
<a name="1041"><span class="lineNum"> 1041 </span><span class="lineCov"> 1995782 : { $$ = make_pattern_list ($2, (COMMAND *)NULL); }</span></a>
|
|
<a name="1042"><span class="lineNum"> 1042 </span> : | newline_list '(' pattern ')' compound_list</a>
|
|
<a name="1043"><span class="lineNum"> 1043 </span><span class="lineCov"> 80 : { $$ = make_pattern_list ($3, $5); }</span></a>
|
|
<a name="1044"><span class="lineNum"> 1044 </span> : | newline_list '(' pattern ')' newline_list</a>
|
|
<a name="1045"><span class="lineNum"> 1045 </span><span class="lineCov"> 10 : { $$ = make_pattern_list ($3, (COMMAND *)NULL); }</span></a>
|
|
<a name="1046"><span class="lineNum"> 1046 </span> : ;</a>
|
|
<a name="1047"><span class="lineNum"> 1047 </span> : </a>
|
|
<a name="1048"><span class="lineNum"> 1048 </span> : case_clause_sequence: pattern_list SEMI_SEMI</a>
|
|
<a name="1049"><span class="lineNum"> 1049 </span><span class="lineCov"> 15663833 : { $$ = $1; }</span></a>
|
|
<a name="1050"><span class="lineNum"> 1050 </span> : | case_clause_sequence pattern_list SEMI_SEMI</a>
|
|
<a name="1051"><span class="lineNum"> 1051 </span><span class="lineCov"> 29780684 : { $2->next = $1; $$ = $2; }</span></a>
|
|
<a name="1052"><span class="lineNum"> 1052 </span> : | pattern_list SEMI_AND</a>
|
|
<a name="1053"><span class="lineNum"> 1053 </span><span class="lineCov"> 12 : { $1->flags |= CASEPAT_FALLTHROUGH; $$ = $1; }</span></a>
|
|
<a name="1054"><span class="lineNum"> 1054 </span> : | case_clause_sequence pattern_list SEMI_AND</a>
|
|
<a name="1055"><span class="lineNum"> 1055 </span><span class="lineCov"> 35 : { $2->flags |= CASEPAT_FALLTHROUGH; $2->next = $1; $$ = $2; }</span></a>
|
|
<a name="1056"><span class="lineNum"> 1056 </span> : | pattern_list SEMI_SEMI_AND</a>
|
|
<a name="1057"><span class="lineNum"> 1057 </span><span class="lineCov"> 13 : { $1->flags |= CASEPAT_TESTNEXT; $$ = $1; }</span></a>
|
|
<a name="1058"><span class="lineNum"> 1058 </span> : | case_clause_sequence pattern_list SEMI_SEMI_AND</a>
|
|
<a name="1059"><span class="lineNum"> 1059 </span><span class="lineCov"> 35 : { $2->flags |= CASEPAT_TESTNEXT; $2->next = $1; $$ = $2; } </span></a>
|
|
<a name="1060"><span class="lineNum"> 1060 </span> : ;</a>
|
|
<a name="1061"><span class="lineNum"> 1061 </span> : </a>
|
|
<a name="1062"><span class="lineNum"> 1062 </span> : pattern: WORD</a>
|
|
<a name="1063"><span class="lineNum"> 1063 </span><span class="lineCov"> 49637617 : { $$ = make_word_list ($1, (WORD_LIST *)NULL); }</span></a>
|
|
<a name="1064"><span class="lineNum"> 1064 </span> : | pattern '|' WORD</a>
|
|
<a name="1065"><span class="lineNum"> 1065 </span><span class="lineCov"> 25139881 : { $$ = make_word_list ($3, $1); }</span></a>
|
|
<a name="1066"><span class="lineNum"> 1066 </span> : ;</a>
|
|
<a name="1067"><span class="lineNum"> 1067 </span> : </a>
|
|
<a name="1068"><span class="lineNum"> 1068 </span> : /* A list allows leading or trailing newlines and</a>
|
|
<a name="1069"><span class="lineNum"> 1069 </span> : newlines as operators (equivalent to semicolons).</a>
|
|
<a name="1070"><span class="lineNum"> 1070 </span> : It must end with a newline or semicolon.</a>
|
|
<a name="1071"><span class="lineNum"> 1071 </span> : Lists are used within commands such as if, for, while. */</a>
|
|
<a name="1072"><span class="lineNum"> 1072 </span> : </a>
|
|
<a name="1073"><span class="lineNum"> 1073 </span> : list: newline_list list0</a>
|
|
<a name="1074"><span class="lineNum"> 1074 </span> : {</a>
|
|
<a name="1075"><span class="lineNum"> 1075 </span><span class="lineCov"> 218278565 : $$ = $2;</span></a>
|
|
<a name="1076"><span class="lineNum"> 1076 </span><span class="lineCov"> 218278565 : if (need_here_doc)</span></a>
|
|
<a name="1077"><span class="lineNum"> 1077 </span><span class="lineNoCov"> 0 : gather_here_documents ();</span></a>
|
|
<a name="1078"><span class="lineNum"> 1078 </span> : }</a>
|
|
<a name="1079"><span class="lineNum"> 1079 </span> : ;</a>
|
|
<a name="1080"><span class="lineNum"> 1080 </span> : </a>
|
|
<a name="1081"><span class="lineNum"> 1081 </span> : compound_list: list</a>
|
|
<a name="1082"><span class="lineNum"> 1082 </span> : | newline_list list1</a>
|
|
<a name="1083"><span class="lineNum"> 1083 </span> : {</a>
|
|
<a name="1084"><span class="lineNum"> 1084 </span><span class="lineCov"> 229977 : $$ = $2;</span></a>
|
|
<a name="1085"><span class="lineNum"> 1085 </span> : }</a>
|
|
<a name="1086"><span class="lineNum"> 1086 </span> : ;</a>
|
|
<a name="1087"><span class="lineNum"> 1087 </span> : </a>
|
|
<a name="1088"><span class="lineNum"> 1088 </span> : list0: list1 '\n' newline_list</a>
|
|
<a name="1089"><span class="lineNum"> 1089 </span> : | list1 '&' newline_list</a>
|
|
<a name="1090"><span class="lineNum"> 1090 </span> : {</a>
|
|
<a name="1091"><span class="lineNum"> 1091 </span><span class="lineCov"> 153 : if ($1->type == cm_connection)</span></a>
|
|
<a name="1092"><span class="lineNum"> 1092 </span><span class="lineCov"> 72 : $$ = connect_async_list ($1, (COMMAND *)NULL, '&');</span></a>
|
|
<a name="1093"><span class="lineNum"> 1093 </span> : else</a>
|
|
<a name="1094"><span class="lineNum"> 1094 </span><span class="lineCov"> 81 : $$ = command_connect ($1, (COMMAND *)NULL, '&');</span></a>
|
|
<a name="1095"><span class="lineNum"> 1095 </span> : }</a>
|
|
<a name="1096"><span class="lineNum"> 1096 </span> : | list1 ';' newline_list</a>
|
|
<a name="1097"><span class="lineNum"> 1097 </span> : </a>
|
|
<a name="1098"><span class="lineNum"> 1098 </span> : ;</a>
|
|
<a name="1099"><span class="lineNum"> 1099 </span> : </a>
|
|
<a name="1100"><span class="lineNum"> 1100 </span> : list1: list1 AND_AND newline_list list1</a>
|
|
<a name="1101"><span class="lineNum"> 1101 </span><span class="lineCov"> 9 : { $$ = command_connect ($1, $4, AND_AND); }</span></a>
|
|
<a name="1102"><span class="lineNum"> 1102 </span> : | list1 OR_OR newline_list list1</a>
|
|
<a name="1103"><span class="lineNum"> 1103 </span><span class="lineCov"> 1864345 : { $$ = command_connect ($1, $4, OR_OR); }</span></a>
|
|
<a name="1104"><span class="lineNum"> 1104 </span> : | list1 '&' newline_list list1</a>
|
|
<a name="1105"><span class="lineNum"> 1105 </span> : {</a>
|
|
<a name="1106"><span class="lineNum"> 1106 </span><span class="lineCov"> 3476 : if ($1->type == cm_connection)</span></a>
|
|
<a name="1107"><span class="lineNum"> 1107 </span><span class="lineCov"> 2895 : $$ = connect_async_list ($1, $4, '&');</span></a>
|
|
<a name="1108"><span class="lineNum"> 1108 </span> : else</a>
|
|
<a name="1109"><span class="lineNum"> 1109 </span><span class="lineCov"> 581 : $$ = command_connect ($1, $4, '&');</span></a>
|
|
<a name="1110"><span class="lineNum"> 1110 </span> : }</a>
|
|
<a name="1111"><span class="lineNum"> 1111 </span> : | list1 ';' newline_list list1</a>
|
|
<a name="1112"><span class="lineNum"> 1112 </span><span class="lineCov"> 135958 : { $$ = command_connect ($1, $4, ';'); }</span></a>
|
|
<a name="1113"><span class="lineNum"> 1113 </span> : | list1 '\n' newline_list list1</a>
|
|
<a name="1114"><span class="lineNum"> 1114 </span><span class="lineCov"> 79801281 : { $$ = command_connect ($1, $4, ';'); }</span></a>
|
|
<a name="1115"><span class="lineNum"> 1115 </span> : | pipeline_command</a>
|
|
<a name="1116"><span class="lineNum"> 1116 </span><span class="lineCov"> 300405325 : { $$ = $1; }</span></a>
|
|
<a name="1117"><span class="lineNum"> 1117 </span> : ;</a>
|
|
<a name="1118"><span class="lineNum"> 1118 </span> : </a>
|
|
<a name="1119"><span class="lineNum"> 1119 </span> : simple_list_terminator: '\n'</a>
|
|
<a name="1120"><span class="lineNum"> 1120 </span> : | yacc_EOF</a>
|
|
<a name="1121"><span class="lineNum"> 1121 </span> : ;</a>
|
|
<a name="1122"><span class="lineNum"> 1122 </span> : </a>
|
|
<a name="1123"><span class="lineNum"> 1123 </span> : list_terminator:'\n'</a>
|
|
<a name="1124"><span class="lineNum"> 1124 </span><span class="lineCov"> 189 : { $$ = '\n'; }</span></a>
|
|
<a name="1125"><span class="lineNum"> 1125 </span> : | ';'</a>
|
|
<a name="1126"><span class="lineNum"> 1126 </span><span class="lineCov"> 9543045 : { $$ = ';'; }</span></a>
|
|
<a name="1127"><span class="lineNum"> 1127 </span> : | yacc_EOF</a>
|
|
<a name="1128"><span class="lineNum"> 1128 </span><span class="lineNoCov"> 0 : { $$ = yacc_EOF; }</span></a>
|
|
<a name="1129"><span class="lineNum"> 1129 </span> : ;</a>
|
|
<a name="1130"><span class="lineNum"> 1130 </span> : </a>
|
|
<a name="1131"><span class="lineNum"> 1131 </span> : newline_list:</a>
|
|
<a name="1132"><span class="lineNum"> 1132 </span> : | newline_list '\n'</a>
|
|
<a name="1133"><span class="lineNum"> 1133 </span> : ;</a>
|
|
<a name="1134"><span class="lineNum"> 1134 </span> : </a>
|
|
<a name="1135"><span class="lineNum"> 1135 </span> : /* A simple_list is a list that contains no significant newlines</a>
|
|
<a name="1136"><span class="lineNum"> 1136 </span> : and no leading or trailing newlines. Newlines are allowed</a>
|
|
<a name="1137"><span class="lineNum"> 1137 </span> : only following operators, where they are not significant.</a>
|
|
<a name="1138"><span class="lineNum"> 1138 </span> : </a>
|
|
<a name="1139"><span class="lineNum"> 1139 </span> : This is what an inputunit consists of. */</a>
|
|
<a name="1140"><span class="lineNum"> 1140 </span> : </a>
|
|
<a name="1141"><span class="lineNum"> 1141 </span> : simple_list: simple_list1</a>
|
|
<a name="1142"><span class="lineNum"> 1142 </span> : {</a>
|
|
<a name="1143"><span class="lineNum"> 1143 </span><span class="lineCov"> 90431718 : $$ = $1;</span></a>
|
|
<a name="1144"><span class="lineNum"> 1144 </span><span class="lineCov"> 90431718 : if (need_here_doc)</span></a>
|
|
<a name="1145"><span class="lineNum"> 1145 </span><span class="lineCov"> 40 : gather_here_documents ();</span></a>
|
|
<a name="1146"><span class="lineNum"> 1146 </span><span class="lineCov"> 90431718 : if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)</span></a>
|
|
<a name="1147"><span class="lineNum"> 1147 </span> : {</a>
|
|
<a name="1148"><span class="lineNum"> 1148 </span><span class="lineCov"> 9 : global_command = $1;</span></a>
|
|
<a name="1149"><span class="lineNum"> 1149 </span><span class="lineCov"> 9 : eof_encountered = 0;</span></a>
|
|
<a name="1150"><span class="lineNum"> 1150 </span><span class="lineCov"> 18 : rewind_input_string ();</span></a>
|
|
<a name="1151"><span class="lineNum"> 1151 </span><span class="lineCov"> 9 : YYACCEPT;</span></a>
|
|
<a name="1152"><span class="lineNum"> 1152 </span> : }</a>
|
|
<a name="1153"><span class="lineNum"> 1153 </span> : }</a>
|
|
<a name="1154"><span class="lineNum"> 1154 </span> : | simple_list1 '&'</a>
|
|
<a name="1155"><span class="lineNum"> 1155 </span> : {</a>
|
|
<a name="1156"><span class="lineNum"> 1156 </span><span class="lineCov"> 4177 : if ($1->type == cm_connection)</span></a>
|
|
<a name="1157"><span class="lineNum"> 1157 </span><span class="lineCov"> 1475 : $$ = connect_async_list ($1, (COMMAND *)NULL, '&');</span></a>
|
|
<a name="1158"><span class="lineNum"> 1158 </span> : else</a>
|
|
<a name="1159"><span class="lineNum"> 1159 </span><span class="lineCov"> 2702 : $$ = command_connect ($1, (COMMAND *)NULL, '&');</span></a>
|
|
<a name="1160"><span class="lineNum"> 1160 </span><span class="lineCov"> 4177 : if (need_here_doc)</span></a>
|
|
<a name="1161"><span class="lineNum"> 1161 </span><span class="lineNoCov"> 0 : gather_here_documents ();</span></a>
|
|
<a name="1162"><span class="lineNum"> 1162 </span><span class="lineCov"> 4177 : if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)</span></a>
|
|
<a name="1163"><span class="lineNum"> 1163 </span> : {</a>
|
|
<a name="1164"><span class="lineNum"> 1164 </span><span class="lineNoCov"> 0 : global_command = $1;</span></a>
|
|
<a name="1165"><span class="lineNum"> 1165 </span><span class="lineNoCov"> 0 : eof_encountered = 0;</span></a>
|
|
<a name="1166"><span class="lineNum"> 1166 </span><span class="lineNoCov"> 0 : rewind_input_string ();</span></a>
|
|
<a name="1167"><span class="lineNum"> 1167 </span><span class="lineNoCov"> 0 : YYACCEPT;</span></a>
|
|
<a name="1168"><span class="lineNum"> 1168 </span> : }</a>
|
|
<a name="1169"><span class="lineNum"> 1169 </span> : }</a>
|
|
<a name="1170"><span class="lineNum"> 1170 </span> : | simple_list1 ';'</a>
|
|
<a name="1171"><span class="lineNum"> 1171 </span> : {</a>
|
|
<a name="1172"><span class="lineNum"> 1172 </span><span class="lineCov"> 34232 : $$ = $1;</span></a>
|
|
<a name="1173"><span class="lineNum"> 1173 </span><span class="lineCov"> 34232 : if (need_here_doc)</span></a>
|
|
<a name="1174"><span class="lineNum"> 1174 </span><span class="lineNoCov"> 0 : gather_here_documents ();</span></a>
|
|
<a name="1175"><span class="lineNum"> 1175 </span><span class="lineCov"> 34232 : if ((parser_state & PST_CMDSUBST) && current_token == shell_eof_token)</span></a>
|
|
<a name="1176"><span class="lineNum"> 1176 </span> : {</a>
|
|
<a name="1177"><span class="lineNum"> 1177 </span><span class="lineNoCov"> 0 : global_command = $1;</span></a>
|
|
<a name="1178"><span class="lineNum"> 1178 </span><span class="lineNoCov"> 0 : eof_encountered = 0;</span></a>
|
|
<a name="1179"><span class="lineNum"> 1179 </span><span class="lineNoCov"> 0 : rewind_input_string ();</span></a>
|
|
<a name="1180"><span class="lineNum"> 1180 </span><span class="lineNoCov"> 0 : YYACCEPT;</span></a>
|
|
<a name="1181"><span class="lineNum"> 1181 </span> : }</a>
|
|
<a name="1182"><span class="lineNum"> 1182 </span> : }</a>
|
|
<a name="1183"><span class="lineNum"> 1183 </span> : ;</a>
|
|
<a name="1184"><span class="lineNum"> 1184 </span> : </a>
|
|
<a name="1185"><span class="lineNum"> 1185 </span> : simple_list1: simple_list1 AND_AND newline_list simple_list1</a>
|
|
<a name="1186"><span class="lineNum"> 1186 </span><span class="lineCov"> 56 : { $$ = command_connect ($1, $4, AND_AND); }</span></a>
|
|
<a name="1187"><span class="lineNum"> 1187 </span> : | simple_list1 OR_OR newline_list simple_list1</a>
|
|
<a name="1188"><span class="lineNum"> 1188 </span><span class="lineCov"> 2364544 : { $$ = command_connect ($1, $4, OR_OR); }</span></a>
|
|
<a name="1189"><span class="lineNum"> 1189 </span> : | simple_list1 '&' simple_list1</a>
|
|
<a name="1190"><span class="lineNum"> 1190 </span> : {</a>
|
|
<a name="1191"><span class="lineNum"> 1191 </span><span class="lineCov"> 17699 : if ($1->type == cm_connection)</span></a>
|
|
<a name="1192"><span class="lineNum"> 1192 </span><span class="lineCov"> 5927 : $$ = connect_async_list ($1, $3, '&');</span></a>
|
|
<a name="1193"><span class="lineNum"> 1193 </span> : else</a>
|
|
<a name="1194"><span class="lineNum"> 1194 </span><span class="lineCov"> 11772 : $$ = command_connect ($1, $3, '&');</span></a>
|
|
<a name="1195"><span class="lineNum"> 1195 </span> : }</a>
|
|
<a name="1196"><span class="lineNum"> 1196 </span> : | simple_list1 ';' simple_list1</a>
|
|
<a name="1197"><span class="lineNum"> 1197 </span><span class="lineCov"> 18653 : { $$ = command_connect ($1, $3, ';'); }</span></a>
|
|
<a name="1198"><span class="lineNum"> 1198 </span> : </a>
|
|
<a name="1199"><span class="lineNum"> 1199 </span> : | pipeline_command</a>
|
|
<a name="1200"><span class="lineNum"> 1200 </span><span class="lineCov"> 92877136 : { $$ = $1; }</span></a>
|
|
<a name="1201"><span class="lineNum"> 1201 </span> : ;</a>
|
|
<a name="1202"><span class="lineNum"> 1202 </span> : </a>
|
|
<a name="1203"><span class="lineNum"> 1203 </span> : pipeline_command: pipeline</a>
|
|
<a name="1204"><span class="lineNum"> 1204 </span><span class="lineCov"> 393282196 : { $$ = $1; } </span></a>
|
|
<a name="1205"><span class="lineNum"> 1205 </span> : | BANG pipeline_command</a>
|
|
<a name="1206"><span class="lineNum"> 1206 </span> : {</a>
|
|
<a name="1207"><span class="lineNum"> 1207 </span><span class="lineCov"> 455 : if ($2)</span></a>
|
|
<a name="1208"><span class="lineNum"> 1208 </span><span class="lineCov"> 455 : $2->flags ^= CMD_INVERT_RETURN; /* toggle */</span></a>
|
|
<a name="1209"><span class="lineNum"> 1209 </span><span class="lineCov"> 455 : $$ = $2;</span></a>
|
|
<a name="1210"><span class="lineNum"> 1210 </span> : }</a>
|
|
<a name="1211"><span class="lineNum"> 1211 </span> : | timespec pipeline_command</a>
|
|
<a name="1212"><span class="lineNum"> 1212 </span> : {</a>
|
|
<a name="1213"><span class="lineNum"> 1213 </span><span class="lineNoCov"> 0 : if ($2)</span></a>
|
|
<a name="1214"><span class="lineNum"> 1214 </span><span class="lineNoCov"> 0 : $2->flags |= $1;</span></a>
|
|
<a name="1215"><span class="lineNum"> 1215 </span><span class="lineNoCov"> 0 : $$ = $2;</span></a>
|
|
<a name="1216"><span class="lineNum"> 1216 </span> : }</a>
|
|
<a name="1217"><span class="lineNum"> 1217 </span> : | timespec list_terminator</a>
|
|
<a name="1218"><span class="lineNum"> 1218 </span> : {</a>
|
|
<a name="1219"><span class="lineNum"> 1219 </span><span class="lineNoCov"> 0 : ELEMENT x;</span></a>
|
|
<a name="1220"><span class="lineNum"> 1220 </span> : </a>
|
|
<a name="1221"><span class="lineNum"> 1221 </span> : /* Boy, this is unclean. `time' by itself can</a>
|
|
<a name="1222"><span class="lineNum"> 1222 </span> : time a null command. We cheat and push a</a>
|
|
<a name="1223"><span class="lineNum"> 1223 </span> : newline back if the list_terminator was a newline</a>
|
|
<a name="1224"><span class="lineNum"> 1224 </span> : to avoid the double-newline problem (one to</a>
|
|
<a name="1225"><span class="lineNum"> 1225 </span> : terminate this, one to terminate the command) */</a>
|
|
<a name="1226"><span class="lineNum"> 1226 </span><span class="lineNoCov"> 0 : x.word = 0;</span></a>
|
|
<a name="1227"><span class="lineNum"> 1227 </span><span class="lineNoCov"> 0 : x.redirect = 0;</span></a>
|
|
<a name="1228"><span class="lineNum"> 1228 </span><span class="lineNoCov"> 0 : $$ = make_simple_command (x, (COMMAND *)NULL);</span></a>
|
|
<a name="1229"><span class="lineNum"> 1229 </span><span class="lineNoCov"> 0 : $$->flags |= $1;</span></a>
|
|
<a name="1230"><span class="lineNum"> 1230 </span> : /* XXX - let's cheat and push a newline back */</a>
|
|
<a name="1231"><span class="lineNum"> 1231 </span><span class="lineNoCov"> 0 : if ($2 == '\n')</span></a>
|
|
<a name="1232"><span class="lineNum"> 1232 </span><span class="lineNoCov"> 0 : token_to_read = '\n';</span></a>
|
|
<a name="1233"><span class="lineNum"> 1233 </span><span class="lineNoCov"> 0 : else if ($2 == ';')</span></a>
|
|
<a name="1234"><span class="lineNum"> 1234 </span><span class="lineNoCov"> 0 : token_to_read = ';';</span></a>
|
|
<a name="1235"><span class="lineNum"> 1235 </span> : }</a>
|
|
<a name="1236"><span class="lineNum"> 1236 </span> : | BANG list_terminator</a>
|
|
<a name="1237"><span class="lineNum"> 1237 </span> : {</a>
|
|
<a name="1238"><span class="lineNum"> 1238 </span><span class="lineCov"> 265 : ELEMENT x;</span></a>
|
|
<a name="1239"><span class="lineNum"> 1239 </span> : </a>
|
|
<a name="1240"><span class="lineNum"> 1240 </span> : /* This is just as unclean. Posix says that `!'</a>
|
|
<a name="1241"><span class="lineNum"> 1241 </span> : by itself should be equivalent to `false'.</a>
|
|
<a name="1242"><span class="lineNum"> 1242 </span> : We cheat and push a</a>
|
|
<a name="1243"><span class="lineNum"> 1243 </span> : newline back if the list_terminator was a newline</a>
|
|
<a name="1244"><span class="lineNum"> 1244 </span> : to avoid the double-newline problem (one to</a>
|
|
<a name="1245"><span class="lineNum"> 1245 </span> : terminate this, one to terminate the command) */</a>
|
|
<a name="1246"><span class="lineNum"> 1246 </span><span class="lineCov"> 265 : x.word = 0;</span></a>
|
|
<a name="1247"><span class="lineNum"> 1247 </span><span class="lineCov"> 265 : x.redirect = 0;</span></a>
|
|
<a name="1248"><span class="lineNum"> 1248 </span><span class="lineCov"> 265 : $$ = make_simple_command (x, (COMMAND *)NULL);</span></a>
|
|
<a name="1249"><span class="lineNum"> 1249 </span><span class="lineCov"> 265 : $$->flags |= CMD_INVERT_RETURN;</span></a>
|
|
<a name="1250"><span class="lineNum"> 1250 </span> : /* XXX - let's cheat and push a newline back */</a>
|
|
<a name="1251"><span class="lineNum"> 1251 </span><span class="lineCov"> 265 : if ($2 == '\n')</span></a>
|
|
<a name="1252"><span class="lineNum"> 1252 </span><span class="lineCov"> 189 : token_to_read = '\n';</span></a>
|
|
<a name="1253"><span class="lineNum"> 1253 </span><span class="lineCov"> 265 : if ($2 == ';')</span></a>
|
|
<a name="1254"><span class="lineNum"> 1254 </span><span class="lineCov"> 76 : token_to_read = ';';</span></a>
|
|
<a name="1255"><span class="lineNum"> 1255 </span> : }</a>
|
|
<a name="1256"><span class="lineNum"> 1256 </span> : ;</a>
|
|
<a name="1257"><span class="lineNum"> 1257 </span> : </a>
|
|
<a name="1258"><span class="lineNum"> 1258 </span> : pipeline: pipeline '|' newline_list pipeline</a>
|
|
<a name="1259"><span class="lineNum"> 1259 </span><span class="lineCov"> 1905840 : { $$ = command_connect ($1, $4, '|'); }</span></a>
|
|
<a name="1260"><span class="lineNum"> 1260 </span> : | pipeline BAR_AND newline_list pipeline</a>
|
|
<a name="1261"><span class="lineNum"> 1261 </span> : {</a>
|
|
<a name="1262"><span class="lineNum"> 1262 </span> : /* Make cmd1 |& cmd2 equivalent to cmd1 2>&1 | cmd2 */</a>
|
|
<a name="1263"><span class="lineNum"> 1263 </span><span class="lineCov"> 92 : COMMAND *tc;</span></a>
|
|
<a name="1264"><span class="lineNum"> 1264 </span><span class="lineCov"> 92 : REDIRECTEE rd, sd;</span></a>
|
|
<a name="1265"><span class="lineNum"> 1265 </span><span class="lineCov"> 92 : REDIRECT *r;</span></a>
|
|
<a name="1266"><span class="lineNum"> 1266 </span> : </a>
|
|
<a name="1267"><span class="lineNum"> 1267 </span><span class="lineCov"> 92 : tc = $1->type == cm_simple ? (COMMAND *)$1->value.Simple : $1;</span></a>
|
|
<a name="1268"><span class="lineNum"> 1268 </span><span class="lineCov"> 92 : sd.dest = 2;</span></a>
|
|
<a name="1269"><span class="lineNum"> 1269 </span><span class="lineCov"> 92 : rd.dest = 1;</span></a>
|
|
<a name="1270"><span class="lineNum"> 1270 </span><span class="lineCov"> 92 : r = make_redirection (sd, r_duplicating_output, rd, 0);</span></a>
|
|
<a name="1271"><span class="lineNum"> 1271 </span><span class="lineCov"> 92 : if (tc->redirects)</span></a>
|
|
<a name="1272"><span class="lineNum"> 1272 </span> : {</a>
|
|
<a name="1273"><span class="lineNum"> 1273 </span> : register REDIRECT *t;</a>
|
|
<a name="1274"><span class="lineNum"> 1274 </span><span class="lineCov"> 57 : for (t = tc->redirects; t->next; t = t->next)</span></a>
|
|
<a name="1275"><span class="lineNum"> 1275 </span> : ;</a>
|
|
<a name="1276"><span class="lineNum"> 1276 </span><span class="lineCov"> 33 : t->next = r;</span></a>
|
|
<a name="1277"><span class="lineNum"> 1277 </span> : }</a>
|
|
<a name="1278"><span class="lineNum"> 1278 </span> : else</a>
|
|
<a name="1279"><span class="lineNum"> 1279 </span><span class="lineCov"> 59 : tc->redirects = r;</span></a>
|
|
<a name="1280"><span class="lineNum"> 1280 </span> : </a>
|
|
<a name="1281"><span class="lineNum"> 1281 </span><span class="lineCov"> 92 : $$ = command_connect ($1, $4, '|');</span></a>
|
|
<a name="1282"><span class="lineNum"> 1282 </span> : }</a>
|
|
<a name="1283"><span class="lineNum"> 1283 </span> : | command</a>
|
|
<a name="1284"><span class="lineNum"> 1284 </span><span class="lineCov"> 395566223 : { $$ = $1; }</span></a>
|
|
<a name="1285"><span class="lineNum"> 1285 </span> : ;</a>
|
|
<a name="1286"><span class="lineNum"> 1286 </span> : </a>
|
|
<a name="1287"><span class="lineNum"> 1287 </span> : timespec: TIME</a>
|
|
<a name="1288"><span class="lineNum"> 1288 </span><span class="lineNoCov"> 0 : { $$ = CMD_TIME_PIPELINE; }</span></a>
|
|
<a name="1289"><span class="lineNum"> 1289 </span> : | TIME TIMEOPT</a>
|
|
<a name="1290"><span class="lineNum"> 1290 </span><span class="lineNoCov"> 0 : { $$ = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }</span></a>
|
|
<a name="1291"><span class="lineNum"> 1291 </span> : | TIME TIMEOPT TIMEIGN</a>
|
|
<a name="1292"><span class="lineNum"> 1292 </span><span class="lineNoCov"> 0 : { $$ = CMD_TIME_PIPELINE|CMD_TIME_POSIX; }</span></a>
|
|
<a name="1293"><span class="lineNum"> 1293 </span> : ;</a>
|
|
<a name="1294"><span class="lineNum"> 1294 </span> : %%</a>
|
|
<a name="1295"><span class="lineNum"> 1295 </span> : </a>
|
|
<a name="1296"><span class="lineNum"> 1296 </span> : /* Initial size to allocate for tokens, and the</a>
|
|
<a name="1297"><span class="lineNum"> 1297 </span> : amount to grow them by. */</a>
|
|
<a name="1298"><span class="lineNum"> 1298 </span> : #define TOKEN_DEFAULT_INITIAL_SIZE 496</a>
|
|
<a name="1299"><span class="lineNum"> 1299 </span> : #define TOKEN_DEFAULT_GROW_SIZE 512</a>
|
|
<a name="1300"><span class="lineNum"> 1300 </span> : </a>
|
|
<a name="1301"><span class="lineNum"> 1301 </span> : /* Should we call prompt_again? */</a>
|
|
<a name="1302"><span class="lineNum"> 1302 </span> : #define SHOULD_PROMPT() \</a>
|
|
<a name="1303"><span class="lineNum"> 1303 </span> : (interactive && (bash_input.type == st_stdin || bash_input.type == st_stream))</a>
|
|
<a name="1304"><span class="lineNum"> 1304 </span> : </a>
|
|
<a name="1305"><span class="lineNum"> 1305 </span> : #if defined (ALIAS)</a>
|
|
<a name="1306"><span class="lineNum"> 1306 </span> : # define expanding_alias() (pushed_string_list && pushed_string_list->expander)</a>
|
|
<a name="1307"><span class="lineNum"> 1307 </span> : #else</a>
|
|
<a name="1308"><span class="lineNum"> 1308 </span> : # define expanding_alias() 0</a>
|
|
<a name="1309"><span class="lineNum"> 1309 </span> : #endif</a>
|
|
<a name="1310"><span class="lineNum"> 1310 </span> : </a>
|
|
<a name="1311"><span class="lineNum"> 1311 </span> : /* Global var is non-zero when end of file has been reached. */</a>
|
|
<a name="1312"><span class="lineNum"> 1312 </span> : int EOF_Reached = 0;</a>
|
|
<a name="1313"><span class="lineNum"> 1313 </span> : </a>
|
|
<a name="1314"><span class="lineNum"> 1314 </span> : #ifdef DEBUG</a>
|
|
<a name="1315"><span class="lineNum"> 1315 </span> : static void</a>
|
|
<a name="1316"><span class="lineNum"> 1316 </span> : debug_parser (i)</a>
|
|
<a name="1317"><span class="lineNum"> 1317 </span> : int i;</a>
|
|
<a name="1318"><span class="lineNum"> 1318 </span> : {</a>
|
|
<a name="1319"><span class="lineNum"> 1319 </span> : #if YYDEBUG != 0</a>
|
|
<a name="1320"><span class="lineNum"> 1320 </span> : yydebug = i;</a>
|
|
<a name="1321"><span class="lineNum"> 1321 </span> : #endif</a>
|
|
<a name="1322"><span class="lineNum"> 1322 </span> : }</a>
|
|
<a name="1323"><span class="lineNum"> 1323 </span> : #endif</a>
|
|
<a name="1324"><span class="lineNum"> 1324 </span> : </a>
|
|
<a name="1325"><span class="lineNum"> 1325 </span> : /* yy_getc () returns the next available character from input or EOF.</a>
|
|
<a name="1326"><span class="lineNum"> 1326 </span> : yy_ungetc (c) makes `c' the next character to read.</a>
|
|
<a name="1327"><span class="lineNum"> 1327 </span> : init_yy_io (get, unget, type, location) makes the function GET the</a>
|
|
<a name="1328"><span class="lineNum"> 1328 </span> : installed function for getting the next character, makes UNGET the</a>
|
|
<a name="1329"><span class="lineNum"> 1329 </span> : installed function for un-getting a character, sets the type of stream</a>
|
|
<a name="1330"><span class="lineNum"> 1330 </span> : (either string or file) from TYPE, and makes LOCATION point to where</a>
|
|
<a name="1331"><span class="lineNum"> 1331 </span> : the input is coming from. */</a>
|
|
<a name="1332"><span class="lineNum"> 1332 </span> : </a>
|
|
<a name="1333"><span class="lineNum"> 1333 </span> : /* Unconditionally returns end-of-file. */</a>
|
|
<a name="1334"><span class="lineNum"> 1334 </span> : int</a>
|
|
<a name="1335"><span class="lineNum"> 1335 </span><span class="lineNoCov"> 0 : return_EOF ()</span></a>
|
|
<a name="1336"><span class="lineNum"> 1336 </span> : {</a>
|
|
<a name="1337"><span class="lineNum"> 1337 </span><span class="lineNoCov"> 0 : return (EOF);</span></a>
|
|
<a name="1338"><span class="lineNum"> 1338 </span> : }</a>
|
|
<a name="1339"><span class="lineNum"> 1339 </span> : </a>
|
|
<a name="1340"><span class="lineNum"> 1340 </span> : /* Variable containing the current get and unget functions.</a>
|
|
<a name="1341"><span class="lineNum"> 1341 </span> : See ./input.h for a clearer description. */</a>
|
|
<a name="1342"><span class="lineNum"> 1342 </span> : BASH_INPUT bash_input;</a>
|
|
<a name="1343"><span class="lineNum"> 1343 </span> : </a>
|
|
<a name="1344"><span class="lineNum"> 1344 </span> : /* Set all of the fields in BASH_INPUT to NULL. Free bash_input.name if it</a>
|
|
<a name="1345"><span class="lineNum"> 1345 </span> : is non-null, avoiding a memory leak. */</a>
|
|
<a name="1346"><span class="lineNum"> 1346 </span> : void</a>
|
|
<a name="1347"><span class="lineNum"> 1347 </span><span class="lineCov"> 9542961 : initialize_bash_input ()</span></a>
|
|
<a name="1348"><span class="lineNum"> 1348 </span> : {</a>
|
|
<a name="1349"><span class="lineNum"> 1349 </span><span class="lineCov"> 9542961 : bash_input.type = st_none;</span></a>
|
|
<a name="1350"><span class="lineNum"> 1350 </span><span class="lineCov"> 9542961 : FREE (bash_input.name);</span></a>
|
|
<a name="1351"><span class="lineNum"> 1351 </span><span class="lineCov"> 9542961 : bash_input.name = (char *)NULL;</span></a>
|
|
<a name="1352"><span class="lineNum"> 1352 </span><span class="lineCov"> 9542961 : bash_input.location.file = (FILE *)NULL;</span></a>
|
|
<a name="1353"><span class="lineNum"> 1353 </span><span class="lineCov"> 9542961 : bash_input.location.string = (char *)NULL;</span></a>
|
|
<a name="1354"><span class="lineNum"> 1354 </span><span class="lineCov"> 9542961 : bash_input.getter = (sh_cget_func_t *)NULL;</span></a>
|
|
<a name="1355"><span class="lineNum"> 1355 </span><span class="lineCov"> 9542961 : bash_input.ungetter = (sh_cunget_func_t *)NULL;</span></a>
|
|
<a name="1356"><span class="lineNum"> 1356 </span><span class="lineCov"> 9542961 : }</span></a>
|
|
<a name="1357"><span class="lineNum"> 1357 </span> : </a>
|
|
<a name="1358"><span class="lineNum"> 1358 </span> : /* Set the contents of the current bash input stream from</a>
|
|
<a name="1359"><span class="lineNum"> 1359 </span> : GET, UNGET, TYPE, NAME, and LOCATION. */</a>
|
|
<a name="1360"><span class="lineNum"> 1360 </span> : void</a>
|
|
<a name="1361"><span class="lineNum"> 1361 </span><span class="lineCov"> 47734156 : init_yy_io (get, unget, type, name, location)</span></a>
|
|
<a name="1362"><span class="lineNum"> 1362 </span> : sh_cget_func_t *get;</a>
|
|
<a name="1363"><span class="lineNum"> 1363 </span> : sh_cunget_func_t *unget;</a>
|
|
<a name="1364"><span class="lineNum"> 1364 </span> : enum stream_type type;</a>
|
|
<a name="1365"><span class="lineNum"> 1365 </span> : const char *name;</a>
|
|
<a name="1366"><span class="lineNum"> 1366 </span> : INPUT_STREAM location;</a>
|
|
<a name="1367"><span class="lineNum"> 1367 </span> : {</a>
|
|
<a name="1368"><span class="lineNum"> 1368 </span><span class="lineCov"> 47734156 : bash_input.type = type;</span></a>
|
|
<a name="1369"><span class="lineNum"> 1369 </span><span class="lineCov"> 47734156 : FREE (bash_input.name);</span></a>
|
|
<a name="1370"><span class="lineNum"> 1370 </span><span class="lineCov"> 47734156 : bash_input.name = name ? savestring (name) : (char *)NULL;</span></a>
|
|
<a name="1371"><span class="lineNum"> 1371 </span> : </a>
|
|
<a name="1372"><span class="lineNum"> 1372 </span> : /* XXX */</a>
|
|
<a name="1373"><span class="lineNum"> 1373 </span> : #if defined (CRAY)</a>
|
|
<a name="1374"><span class="lineNum"> 1374 </span> : memcpy((char *)&bash_input.location.string, (char *)&location.string, sizeof(location));</a>
|
|
<a name="1375"><span class="lineNum"> 1375 </span> : #else</a>
|
|
<a name="1376"><span class="lineNum"> 1376 </span><span class="lineCov"> 47734156 : bash_input.location = location;</span></a>
|
|
<a name="1377"><span class="lineNum"> 1377 </span> : #endif</a>
|
|
<a name="1378"><span class="lineNum"> 1378 </span><span class="lineCov"> 47734156 : bash_input.getter = get;</span></a>
|
|
<a name="1379"><span class="lineNum"> 1379 </span><span class="lineCov"> 47734156 : bash_input.ungetter = unget;</span></a>
|
|
<a name="1380"><span class="lineNum"> 1380 </span><span class="lineCov"> 47734156 : }</span></a>
|
|
<a name="1381"><span class="lineNum"> 1381 </span> : </a>
|
|
<a name="1382"><span class="lineNum"> 1382 </span> : char *</a>
|
|
<a name="1383"><span class="lineNum"> 1383 </span><span class="lineCov"> 4076515 : yy_input_name ()</span></a>
|
|
<a name="1384"><span class="lineNum"> 1384 </span> : {</a>
|
|
<a name="1385"><span class="lineNum"> 1385 </span><span class="lineCov"> 4076515 : return (bash_input.name ? bash_input.name : "stdin");</span></a>
|
|
<a name="1386"><span class="lineNum"> 1386 </span> : }</a>
|
|
<a name="1387"><span class="lineNum"> 1387 </span> : </a>
|
|
<a name="1388"><span class="lineNum"> 1388 </span> : /* Call this to get the next character of input. */</a>
|
|
<a name="1389"><span class="lineNum"> 1389 </span> : static int</a>
|
|
<a name="1390"><span class="lineNum"> 1390 </span> : yy_getc ()</a>
|
|
<a name="1391"><span class="lineNum"> 1391 </span> : {</a>
|
|
<a name="1392"><span class="lineNum"> 1392 </span><span class="lineCov">15269784262 : return (*(bash_input.getter)) ();</span></a>
|
|
<a name="1393"><span class="lineNum"> 1393 </span> : }</a>
|
|
<a name="1394"><span class="lineNum"> 1394 </span> : </a>
|
|
<a name="1395"><span class="lineNum"> 1395 </span> : /* Call this to unget C. That is, to make C the next character</a>
|
|
<a name="1396"><span class="lineNum"> 1396 </span> : to be read. */</a>
|
|
<a name="1397"><span class="lineNum"> 1397 </span> : static int</a>
|
|
<a name="1398"><span class="lineNum"> 1398 </span> : yy_ungetc (c)</a>
|
|
<a name="1399"><span class="lineNum"> 1399 </span> : int c;</a>
|
|
<a name="1400"><span class="lineNum"> 1400 </span> : {</a>
|
|
<a name="1401"><span class="lineNum"> 1401 </span><span class="lineCov"> 43 : return (*(bash_input.ungetter)) (c);</span></a>
|
|
<a name="1402"><span class="lineNum"> 1402 </span> : }</a>
|
|
<a name="1403"><span class="lineNum"> 1403 </span> : </a>
|
|
<a name="1404"><span class="lineNum"> 1404 </span> : #if defined (BUFFERED_INPUT)</a>
|
|
<a name="1405"><span class="lineNum"> 1405 </span> : #ifdef INCLUDE_UNUSED</a>
|
|
<a name="1406"><span class="lineNum"> 1406 </span> : int</a>
|
|
<a name="1407"><span class="lineNum"> 1407 </span> : input_file_descriptor ()</a>
|
|
<a name="1408"><span class="lineNum"> 1408 </span> : {</a>
|
|
<a name="1409"><span class="lineNum"> 1409 </span> : switch (bash_input.type)</a>
|
|
<a name="1410"><span class="lineNum"> 1410 </span> : {</a>
|
|
<a name="1411"><span class="lineNum"> 1411 </span> : case st_stream:</a>
|
|
<a name="1412"><span class="lineNum"> 1412 </span> : return (fileno (bash_input.location.file));</a>
|
|
<a name="1413"><span class="lineNum"> 1413 </span> : case st_bstream:</a>
|
|
<a name="1414"><span class="lineNum"> 1414 </span> : return (bash_input.location.buffered_fd);</a>
|
|
<a name="1415"><span class="lineNum"> 1415 </span> : case st_stdin:</a>
|
|
<a name="1416"><span class="lineNum"> 1416 </span> : default:</a>
|
|
<a name="1417"><span class="lineNum"> 1417 </span> : return (fileno (stdin));</a>
|
|
<a name="1418"><span class="lineNum"> 1418 </span> : }</a>
|
|
<a name="1419"><span class="lineNum"> 1419 </span> : }</a>
|
|
<a name="1420"><span class="lineNum"> 1420 </span> : #endif</a>
|
|
<a name="1421"><span class="lineNum"> 1421 </span> : #endif /* BUFFERED_INPUT */</a>
|
|
<a name="1422"><span class="lineNum"> 1422 </span> : </a>
|
|
<a name="1423"><span class="lineNum"> 1423 </span> : /* **************************************************************** */</a>
|
|
<a name="1424"><span class="lineNum"> 1424 </span> : /* */</a>
|
|
<a name="1425"><span class="lineNum"> 1425 </span> : /* Let input be read from readline (). */</a>
|
|
<a name="1426"><span class="lineNum"> 1426 </span> : /* */</a>
|
|
<a name="1427"><span class="lineNum"> 1427 </span> : /* **************************************************************** */</a>
|
|
<a name="1428"><span class="lineNum"> 1428 </span> : </a>
|
|
<a name="1429"><span class="lineNum"> 1429 </span> : #if defined (READLINE)</a>
|
|
<a name="1430"><span class="lineNum"> 1430 </span> : char *current_readline_prompt = (char *)NULL;</a>
|
|
<a name="1431"><span class="lineNum"> 1431 </span> : char *current_readline_line = (char *)NULL;</a>
|
|
<a name="1432"><span class="lineNum"> 1432 </span> : int current_readline_line_index = 0;</a>
|
|
<a name="1433"><span class="lineNum"> 1433 </span> : </a>
|
|
<a name="1434"><span class="lineNum"> 1434 </span> : static int</a>
|
|
<a name="1435"><span class="lineNum"> 1435 </span> : yy_readline_get ()</a>
|
|
<a name="1436"><span class="lineNum"> 1436 </span> : {</a>
|
|
<a name="1437"><span class="lineNum"> 1437 </span> : SigHandler *old_sigint;</a>
|
|
<a name="1438"><span class="lineNum"> 1438 </span> : int line_len;</a>
|
|
<a name="1439"><span class="lineNum"> 1439 </span> : unsigned char c;</a>
|
|
<a name="1440"><span class="lineNum"> 1440 </span> : </a>
|
|
<a name="1441"><span class="lineNum"> 1441 </span> : if (current_readline_line == 0)</a>
|
|
<a name="1442"><span class="lineNum"> 1442 </span> : {</a>
|
|
<a name="1443"><span class="lineNum"> 1443 </span> : if (bash_readline_initialized == 0)</a>
|
|
<a name="1444"><span class="lineNum"> 1444 </span> : initialize_readline ();</a>
|
|
<a name="1445"><span class="lineNum"> 1445 </span> : </a>
|
|
<a name="1446"><span class="lineNum"> 1446 </span> : #if defined (JOB_CONTROL)</a>
|
|
<a name="1447"><span class="lineNum"> 1447 </span> : if (job_control)</a>
|
|
<a name="1448"><span class="lineNum"> 1448 </span> : give_terminal_to (shell_pgrp, 0);</a>
|
|
<a name="1449"><span class="lineNum"> 1449 </span> : #endif /* JOB_CONTROL */</a>
|
|
<a name="1450"><span class="lineNum"> 1450 </span> : </a>
|
|
<a name="1451"><span class="lineNum"> 1451 </span> : old_sigint = IMPOSSIBLE_TRAP_HANDLER;</a>
|
|
<a name="1452"><span class="lineNum"> 1452 </span> : if (signal_is_ignored (SIGINT) == 0)</a>
|
|
<a name="1453"><span class="lineNum"> 1453 </span> : {</a>
|
|
<a name="1454"><span class="lineNum"> 1454 </span> : /* interrupt_immediately++; */</a>
|
|
<a name="1455"><span class="lineNum"> 1455 </span> : old_sigint = (SigHandler *)set_signal_handler (SIGINT, sigint_sighandler);</a>
|
|
<a name="1456"><span class="lineNum"> 1456 </span> : }</a>
|
|
<a name="1457"><span class="lineNum"> 1457 </span> : </a>
|
|
<a name="1458"><span class="lineNum"> 1458 </span> : sh_unset_nodelay_mode (fileno (rl_instream)); /* just in case */</a>
|
|
<a name="1459"><span class="lineNum"> 1459 </span> : current_readline_line = readline (current_readline_prompt ?</a>
|
|
<a name="1460"><span class="lineNum"> 1460 </span> : current_readline_prompt : "");</a>
|
|
<a name="1461"><span class="lineNum"> 1461 </span> : </a>
|
|
<a name="1462"><span class="lineNum"> 1462 </span> : CHECK_TERMSIG;</a>
|
|
<a name="1463"><span class="lineNum"> 1463 </span> : if (signal_is_ignored (SIGINT) == 0)</a>
|
|
<a name="1464"><span class="lineNum"> 1464 </span> : {</a>
|
|
<a name="1465"><span class="lineNum"> 1465 </span> : /* interrupt_immediately--; */</a>
|
|
<a name="1466"><span class="lineNum"> 1466 </span> : if (old_sigint != IMPOSSIBLE_TRAP_HANDLER)</a>
|
|
<a name="1467"><span class="lineNum"> 1467 </span> : set_signal_handler (SIGINT, old_sigint);</a>
|
|
<a name="1468"><span class="lineNum"> 1468 </span> : }</a>
|
|
<a name="1469"><span class="lineNum"> 1469 </span> : </a>
|
|
<a name="1470"><span class="lineNum"> 1470 </span> : #if 0</a>
|
|
<a name="1471"><span class="lineNum"> 1471 </span> : /* Reset the prompt to the decoded value of prompt_string_pointer. */</a>
|
|
<a name="1472"><span class="lineNum"> 1472 </span> : reset_readline_prompt ();</a>
|
|
<a name="1473"><span class="lineNum"> 1473 </span> : #endif</a>
|
|
<a name="1474"><span class="lineNum"> 1474 </span> : </a>
|
|
<a name="1475"><span class="lineNum"> 1475 </span> : if (current_readline_line == 0)</a>
|
|
<a name="1476"><span class="lineNum"> 1476 </span> : return (EOF);</a>
|
|
<a name="1477"><span class="lineNum"> 1477 </span> : </a>
|
|
<a name="1478"><span class="lineNum"> 1478 </span> : current_readline_line_index = 0;</a>
|
|
<a name="1479"><span class="lineNum"> 1479 </span> : line_len = strlen (current_readline_line);</a>
|
|
<a name="1480"><span class="lineNum"> 1480 </span> : </a>
|
|
<a name="1481"><span class="lineNum"> 1481 </span> : current_readline_line = (char *)xrealloc (current_readline_line, 2 + line_len);</a>
|
|
<a name="1482"><span class="lineNum"> 1482 </span> : current_readline_line[line_len++] = '\n';</a>
|
|
<a name="1483"><span class="lineNum"> 1483 </span> : current_readline_line[line_len] = '\0';</a>
|
|
<a name="1484"><span class="lineNum"> 1484 </span> : }</a>
|
|
<a name="1485"><span class="lineNum"> 1485 </span> : </a>
|
|
<a name="1486"><span class="lineNum"> 1486 </span> : if (current_readline_line[current_readline_line_index] == 0)</a>
|
|
<a name="1487"><span class="lineNum"> 1487 </span> : {</a>
|
|
<a name="1488"><span class="lineNum"> 1488 </span> : free (current_readline_line);</a>
|
|
<a name="1489"><span class="lineNum"> 1489 </span> : current_readline_line = (char *)NULL;</a>
|
|
<a name="1490"><span class="lineNum"> 1490 </span> : return (yy_readline_get ());</a>
|
|
<a name="1491"><span class="lineNum"> 1491 </span> : }</a>
|
|
<a name="1492"><span class="lineNum"> 1492 </span> : else</a>
|
|
<a name="1493"><span class="lineNum"> 1493 </span> : {</a>
|
|
<a name="1494"><span class="lineNum"> 1494 </span> : c = current_readline_line[current_readline_line_index++];</a>
|
|
<a name="1495"><span class="lineNum"> 1495 </span> : return (c);</a>
|
|
<a name="1496"><span class="lineNum"> 1496 </span> : }</a>
|
|
<a name="1497"><span class="lineNum"> 1497 </span> : }</a>
|
|
<a name="1498"><span class="lineNum"> 1498 </span> : </a>
|
|
<a name="1499"><span class="lineNum"> 1499 </span> : static int</a>
|
|
<a name="1500"><span class="lineNum"> 1500 </span> : yy_readline_unget (c)</a>
|
|
<a name="1501"><span class="lineNum"> 1501 </span> : int c;</a>
|
|
<a name="1502"><span class="lineNum"> 1502 </span> : {</a>
|
|
<a name="1503"><span class="lineNum"> 1503 </span> : if (current_readline_line_index && current_readline_line)</a>
|
|
<a name="1504"><span class="lineNum"> 1504 </span> : current_readline_line[--current_readline_line_index] = c;</a>
|
|
<a name="1505"><span class="lineNum"> 1505 </span> : return (c);</a>
|
|
<a name="1506"><span class="lineNum"> 1506 </span> : }</a>
|
|
<a name="1507"><span class="lineNum"> 1507 </span> : </a>
|
|
<a name="1508"><span class="lineNum"> 1508 </span> : void</a>
|
|
<a name="1509"><span class="lineNum"> 1509 </span> : with_input_from_stdin ()</a>
|
|
<a name="1510"><span class="lineNum"> 1510 </span> : {</a>
|
|
<a name="1511"><span class="lineNum"> 1511 </span> : INPUT_STREAM location;</a>
|
|
<a name="1512"><span class="lineNum"> 1512 </span> : </a>
|
|
<a name="1513"><span class="lineNum"> 1513 </span> : if (bash_input.type != st_stdin && stream_on_stack (st_stdin) == 0)</a>
|
|
<a name="1514"><span class="lineNum"> 1514 </span> : {</a>
|
|
<a name="1515"><span class="lineNum"> 1515 </span> : location.string = current_readline_line;</a>
|
|
<a name="1516"><span class="lineNum"> 1516 </span> : init_yy_io (yy_readline_get, yy_readline_unget,</a>
|
|
<a name="1517"><span class="lineNum"> 1517 </span> : st_stdin, "readline stdin", location);</a>
|
|
<a name="1518"><span class="lineNum"> 1518 </span> : }</a>
|
|
<a name="1519"><span class="lineNum"> 1519 </span> : }</a>
|
|
<a name="1520"><span class="lineNum"> 1520 </span> : </a>
|
|
<a name="1521"><span class="lineNum"> 1521 </span> : #else /* !READLINE */</a>
|
|
<a name="1522"><span class="lineNum"> 1522 </span> : </a>
|
|
<a name="1523"><span class="lineNum"> 1523 </span> : void</a>
|
|
<a name="1524"><span class="lineNum"> 1524 </span><span class="lineNoCov"> 0 : with_input_from_stdin ()</span></a>
|
|
<a name="1525"><span class="lineNum"> 1525 </span> : {</a>
|
|
<a name="1526"><span class="lineNum"> 1526 </span><span class="lineNoCov"> 0 : with_input_from_stream (stdin, "stdin");</span></a>
|
|
<a name="1527"><span class="lineNum"> 1527 </span><span class="lineNoCov"> 0 : }</span></a>
|
|
<a name="1528"><span class="lineNum"> 1528 </span> : #endif /* !READLINE */</a>
|
|
<a name="1529"><span class="lineNum"> 1529 </span> : </a>
|
|
<a name="1530"><span class="lineNum"> 1530 </span> : /* **************************************************************** */</a>
|
|
<a name="1531"><span class="lineNum"> 1531 </span> : /* */</a>
|
|
<a name="1532"><span class="lineNum"> 1532 </span> : /* Let input come from STRING. STRING is zero terminated. */</a>
|
|
<a name="1533"><span class="lineNum"> 1533 </span> : /* */</a>
|
|
<a name="1534"><span class="lineNum"> 1534 </span> : /* **************************************************************** */</a>
|
|
<a name="1535"><span class="lineNum"> 1535 </span> : </a>
|
|
<a name="1536"><span class="lineNum"> 1536 </span> : static int</a>
|
|
<a name="1537"><span class="lineNum"> 1537 </span><span class="lineCov"> 8275184999 : yy_string_get ()</span></a>
|
|
<a name="1538"><span class="lineNum"> 1538 </span> : {</a>
|
|
<a name="1539"><span class="lineNum"> 1539 </span><span class="lineCov"> 8275184999 : register char *string;</span></a>
|
|
<a name="1540"><span class="lineNum"> 1540 </span><span class="lineCov"> 8275184999 : register unsigned char c;</span></a>
|
|
<a name="1541"><span class="lineNum"> 1541 </span> : </a>
|
|
<a name="1542"><span class="lineNum"> 1542 </span><span class="lineCov"> 8275184999 : string = bash_input.location.string;</span></a>
|
|
<a name="1543"><span class="lineNum"> 1543 </span> : </a>
|
|
<a name="1544"><span class="lineNum"> 1544 </span> : /* If the string doesn't exist, or is empty, EOF found. */</a>
|
|
<a name="1545"><span class="lineNum"> 1545 </span><span class="lineCov"> 8275184999 : if (string && *string)</span></a>
|
|
<a name="1546"><span class="lineNum"> 1546 </span> : {</a>
|
|
<a name="1547"><span class="lineNum"> 1547 </span><span class="lineCov"> 8275173897 : c = *string++;</span></a>
|
|
<a name="1548"><span class="lineNum"> 1548 </span><span class="lineCov"> 8275173897 : bash_input.location.string = string;</span></a>
|
|
<a name="1549"><span class="lineNum"> 1549 </span><span class="lineCov"> 8275173897 : return (c);</span></a>
|
|
<a name="1550"><span class="lineNum"> 1550 </span> : }</a>
|
|
<a name="1551"><span class="lineNum"> 1551 </span> : else</a>
|
|
<a name="1552"><span class="lineNum"> 1552 </span> : return (EOF);</a>
|
|
<a name="1553"><span class="lineNum"> 1553 </span> : }</a>
|
|
<a name="1554"><span class="lineNum"> 1554 </span> : </a>
|
|
<a name="1555"><span class="lineNum"> 1555 </span> : static int</a>
|
|
<a name="1556"><span class="lineNum"> 1556 </span><span class="lineNoCov"> 0 : yy_string_unget (c)</span></a>
|
|
<a name="1557"><span class="lineNum"> 1557 </span> : int c;</a>
|
|
<a name="1558"><span class="lineNum"> 1558 </span> : {</a>
|
|
<a name="1559"><span class="lineNum"> 1559 </span><span class="lineNoCov"> 0 : *(--bash_input.location.string) = c;</span></a>
|
|
<a name="1560"><span class="lineNum"> 1560 </span><span class="lineNoCov"> 0 : return (c);</span></a>
|
|
<a name="1561"><span class="lineNum"> 1561 </span> : }</a>
|
|
<a name="1562"><span class="lineNum"> 1562 </span> : </a>
|
|
<a name="1563"><span class="lineNum"> 1563 </span> : void</a>
|
|
<a name="1564"><span class="lineNum"> 1564 </span><span class="lineCov"> 19096500 : with_input_from_string (string, name)</span></a>
|
|
<a name="1565"><span class="lineNum"> 1565 </span> : char *string;</a>
|
|
<a name="1566"><span class="lineNum"> 1566 </span> : const char *name;</a>
|
|
<a name="1567"><span class="lineNum"> 1567 </span> : {</a>
|
|
<a name="1568"><span class="lineNum"> 1568 </span><span class="lineCov"> 19096537 : INPUT_STREAM location;</span></a>
|
|
<a name="1569"><span class="lineNum"> 1569 </span> : </a>
|
|
<a name="1570"><span class="lineNum"> 1570 </span><span class="lineCov"> 19096537 : location.string = string;</span></a>
|
|
<a name="1571"><span class="lineNum"> 1571 </span><span class="lineCov"> 19096500 : init_yy_io (yy_string_get, yy_string_unget, st_string, name, location);</span></a>
|
|
<a name="1572"><span class="lineNum"> 1572 </span><span class="lineCov"> 19096500 : }</span></a>
|
|
<a name="1573"><span class="lineNum"> 1573 </span> : </a>
|
|
<a name="1574"><span class="lineNum"> 1574 </span> : /* Count the number of characters we've consumed from bash_input.location.string</a>
|
|
<a name="1575"><span class="lineNum"> 1575 </span> : and read into shell_input_line, but have not returned from shell_getc.</a>
|
|
<a name="1576"><span class="lineNum"> 1576 </span> : That is the true input location. Rewind bash_input.location.string by</a>
|
|
<a name="1577"><span class="lineNum"> 1577 </span> : that number of characters, so it points to the last character actually</a>
|
|
<a name="1578"><span class="lineNum"> 1578 </span> : consumed by the parser. */</a>
|
|
<a name="1579"><span class="lineNum"> 1579 </span> : static void</a>
|
|
<a name="1580"><span class="lineNum"> 1580 </span> : rewind_input_string ()</a>
|
|
<a name="1581"><span class="lineNum"> 1581 </span> : {</a>
|
|
<a name="1582"><span class="lineNum"> 1582 </span><span class="lineCov"> 72 : int xchars;</span></a>
|
|
<a name="1583"><span class="lineNum"> 1583 </span> : </a>
|
|
<a name="1584"><span class="lineNum"> 1584 </span> : /* number of unconsumed characters in the input -- XXX need to take newlines</a>
|
|
<a name="1585"><span class="lineNum"> 1585 </span> : into account, e.g., $(...\n) */</a>
|
|
<a name="1586"><span class="lineNum"> 1586 </span><span class="lineCov"> 72 : xchars = shell_input_line_len - shell_input_line_index;</span></a>
|
|
<a name="1587"><span class="lineNum"> 1587 </span><span class="lineCov"> 9 : if (bash_input.location.string[-1] == '\n')</span></a>
|
|
<a name="1588"><span class="lineNum"> 1588 </span><span class="lineCov"> 27 : xchars++;</span></a>
|
|
<a name="1589"><span class="lineNum"> 1589 </span> : </a>
|
|
<a name="1590"><span class="lineNum"> 1590 </span> : /* XXX - how to reflect bash_input.location.string back to string passed to</a>
|
|
<a name="1591"><span class="lineNum"> 1591 </span> : parse_and_execute or xparse_dolparen? xparse_dolparen needs to know how</a>
|
|
<a name="1592"><span class="lineNum"> 1592 </span> : far into the string we parsed. parse_and_execute knows where bash_input.</a>
|
|
<a name="1593"><span class="lineNum"> 1593 </span> : location.string is, and how far from orig_string that is -- that's the</a>
|
|
<a name="1594"><span class="lineNum"> 1594 </span> : number of characters the command consumed. */</a>
|
|
<a name="1595"><span class="lineNum"> 1595 </span> : </a>
|
|
<a name="1596"><span class="lineNum"> 1596 </span> : /* bash_input.location.string - xchars should be where we parsed to */</a>
|
|
<a name="1597"><span class="lineNum"> 1597 </span> : /* need to do more validation on xchars value for sanity -- test cases. */</a>
|
|
<a name="1598"><span class="lineNum"> 1598 </span><span class="lineCov"> 72 : bash_input.location.string -= xchars;</span></a>
|
|
<a name="1599"><span class="lineNum"> 1599 </span> : }</a>
|
|
<a name="1600"><span class="lineNum"> 1600 </span> : </a>
|
|
<a name="1601"><span class="lineNum"> 1601 </span> : /* **************************************************************** */</a>
|
|
<a name="1602"><span class="lineNum"> 1602 </span> : /* */</a>
|
|
<a name="1603"><span class="lineNum"> 1603 </span> : /* Let input come from STREAM. */</a>
|
|
<a name="1604"><span class="lineNum"> 1604 </span> : /* */</a>
|
|
<a name="1605"><span class="lineNum"> 1605 </span> : /* **************************************************************** */</a>
|
|
<a name="1606"><span class="lineNum"> 1606 </span> : </a>
|
|
<a name="1607"><span class="lineNum"> 1607 </span> : /* These two functions used to test the value of the HAVE_RESTARTABLE_SYSCALLS</a>
|
|
<a name="1608"><span class="lineNum"> 1608 </span> : define, and just use getc/ungetc if it was defined, but since bash</a>
|
|
<a name="1609"><span class="lineNum"> 1609 </span> : installs its signal handlers without the SA_RESTART flag, some signals</a>
|
|
<a name="1610"><span class="lineNum"> 1610 </span> : (like SIGCHLD, SIGWINCH, etc.) received during a read(2) will not cause</a>
|
|
<a name="1611"><span class="lineNum"> 1611 </span> : the read to be restarted. We need to restart it ourselves. */</a>
|
|
<a name="1612"><span class="lineNum"> 1612 </span> : </a>
|
|
<a name="1613"><span class="lineNum"> 1613 </span> : static int</a>
|
|
<a name="1614"><span class="lineNum"> 1614 </span><span class="lineNoCov"> 0 : yy_stream_get ()</span></a>
|
|
<a name="1615"><span class="lineNum"> 1615 </span> : {</a>
|
|
<a name="1616"><span class="lineNum"> 1616 </span><span class="lineNoCov"> 0 : int result;</span></a>
|
|
<a name="1617"><span class="lineNum"> 1617 </span> : </a>
|
|
<a name="1618"><span class="lineNum"> 1618 </span><span class="lineNoCov"> 0 : result = EOF;</span></a>
|
|
<a name="1619"><span class="lineNum"> 1619 </span><span class="lineNoCov"> 0 : if (bash_input.location.file)</span></a>
|
|
<a name="1620"><span class="lineNum"> 1620 </span> : {</a>
|
|
<a name="1621"><span class="lineNum"> 1621 </span> : #if 0</a>
|
|
<a name="1622"><span class="lineNum"> 1622 </span> : if (interactive)</a>
|
|
<a name="1623"><span class="lineNum"> 1623 </span> : interrupt_immediately++;</a>
|
|
<a name="1624"><span class="lineNum"> 1624 </span> : #endif</a>
|
|
<a name="1625"><span class="lineNum"> 1625 </span> : </a>
|
|
<a name="1626"><span class="lineNum"> 1626 </span> : /* XXX - don't need terminate_immediately; getc_with_restart checks</a>
|
|
<a name="1627"><span class="lineNum"> 1627 </span> : for terminating signals itself if read returns < 0 */</a>
|
|
<a name="1628"><span class="lineNum"> 1628 </span><span class="lineNoCov"> 0 : result = getc_with_restart (bash_input.location.file);</span></a>
|
|
<a name="1629"><span class="lineNum"> 1629 </span> : </a>
|
|
<a name="1630"><span class="lineNum"> 1630 </span> : #if 0</a>
|
|
<a name="1631"><span class="lineNum"> 1631 </span> : if (interactive)</a>
|
|
<a name="1632"><span class="lineNum"> 1632 </span> : interrupt_immediately--;</a>
|
|
<a name="1633"><span class="lineNum"> 1633 </span> : #endif</a>
|
|
<a name="1634"><span class="lineNum"> 1634 </span> : }</a>
|
|
<a name="1635"><span class="lineNum"> 1635 </span><span class="lineNoCov"> 0 : return (result);</span></a>
|
|
<a name="1636"><span class="lineNum"> 1636 </span> : }</a>
|
|
<a name="1637"><span class="lineNum"> 1637 </span> : </a>
|
|
<a name="1638"><span class="lineNum"> 1638 </span> : static int</a>
|
|
<a name="1639"><span class="lineNum"> 1639 </span><span class="lineNoCov"> 0 : yy_stream_unget (c)</span></a>
|
|
<a name="1640"><span class="lineNum"> 1640 </span> : int c;</a>
|
|
<a name="1641"><span class="lineNum"> 1641 </span> : {</a>
|
|
<a name="1642"><span class="lineNum"> 1642 </span><span class="lineNoCov"> 0 : return (ungetc_with_restart (c, bash_input.location.file));</span></a>
|
|
<a name="1643"><span class="lineNum"> 1643 </span> : }</a>
|
|
<a name="1644"><span class="lineNum"> 1644 </span> : </a>
|
|
<a name="1645"><span class="lineNum"> 1645 </span> : void</a>
|
|
<a name="1646"><span class="lineNum"> 1646 </span><span class="lineNoCov"> 0 : with_input_from_stream (stream, name)</span></a>
|
|
<a name="1647"><span class="lineNum"> 1647 </span> : FILE *stream;</a>
|
|
<a name="1648"><span class="lineNum"> 1648 </span> : const char *name;</a>
|
|
<a name="1649"><span class="lineNum"> 1649 </span> : {</a>
|
|
<a name="1650"><span class="lineNum"> 1650 </span><span class="lineNoCov"> 0 : INPUT_STREAM location;</span></a>
|
|
<a name="1651"><span class="lineNum"> 1651 </span> : </a>
|
|
<a name="1652"><span class="lineNum"> 1652 </span><span class="lineNoCov"> 0 : location.file = stream;</span></a>
|
|
<a name="1653"><span class="lineNum"> 1653 </span><span class="lineNoCov"> 0 : init_yy_io (yy_stream_get, yy_stream_unget, st_stream, name, location);</span></a>
|
|
<a name="1654"><span class="lineNum"> 1654 </span><span class="lineNoCov"> 0 : }</span></a>
|
|
<a name="1655"><span class="lineNum"> 1655 </span> : </a>
|
|
<a name="1656"><span class="lineNum"> 1656 </span> : typedef struct stream_saver {</a>
|
|
<a name="1657"><span class="lineNum"> 1657 </span> : struct stream_saver *next;</a>
|
|
<a name="1658"><span class="lineNum"> 1658 </span> : BASH_INPUT bash_input;</a>
|
|
<a name="1659"><span class="lineNum"> 1659 </span> : int line;</a>
|
|
<a name="1660"><span class="lineNum"> 1660 </span> : #if defined (BUFFERED_INPUT)</a>
|
|
<a name="1661"><span class="lineNum"> 1661 </span> : BUFFERED_STREAM *bstream;</a>
|
|
<a name="1662"><span class="lineNum"> 1662 </span> : #endif /* BUFFERED_INPUT */</a>
|
|
<a name="1663"><span class="lineNum"> 1663 </span> : } STREAM_SAVER;</a>
|
|
<a name="1664"><span class="lineNum"> 1664 </span> : </a>
|
|
<a name="1665"><span class="lineNum"> 1665 </span> : /* The globally known line number. */</a>
|
|
<a name="1666"><span class="lineNum"> 1666 </span> : int line_number = 0;</a>
|
|
<a name="1667"><span class="lineNum"> 1667 </span> : </a>
|
|
<a name="1668"><span class="lineNum"> 1668 </span> : /* The line number offset set by assigning to LINENO. Not currently used. */</a>
|
|
<a name="1669"><span class="lineNum"> 1669 </span> : int line_number_base = 0;</a>
|
|
<a name="1670"><span class="lineNum"> 1670 </span> : </a>
|
|
<a name="1671"><span class="lineNum"> 1671 </span> : #if defined (COND_COMMAND)</a>
|
|
<a name="1672"><span class="lineNum"> 1672 </span> : static int cond_lineno;</a>
|
|
<a name="1673"><span class="lineNum"> 1673 </span> : static int cond_token;</a>
|
|
<a name="1674"><span class="lineNum"> 1674 </span> : #endif</a>
|
|
<a name="1675"><span class="lineNum"> 1675 </span> : </a>
|
|
<a name="1676"><span class="lineNum"> 1676 </span> : STREAM_SAVER *stream_list = (STREAM_SAVER *)NULL;</a>
|
|
<a name="1677"><span class="lineNum"> 1677 </span> : </a>
|
|
<a name="1678"><span class="lineNum"> 1678 </span> : void</a>
|
|
<a name="1679"><span class="lineNum"> 1679 </span><span class="lineCov"> 19096537 : push_stream (reset_lineno)</span></a>
|
|
<a name="1680"><span class="lineNum"> 1680 </span> : int reset_lineno;</a>
|
|
<a name="1681"><span class="lineNum"> 1681 </span> : {</a>
|
|
<a name="1682"><span class="lineNum"> 1682 </span><span class="lineCov"> 19096537 : STREAM_SAVER *saver = (STREAM_SAVER *)xmalloc (sizeof (STREAM_SAVER));</span></a>
|
|
<a name="1683"><span class="lineNum"> 1683 </span> : </a>
|
|
<a name="1684"><span class="lineNum"> 1684 </span><span class="lineCov"> 19096537 : xbcopy ((char *)&bash_input, (char *)&(saver->bash_input), sizeof (BASH_INPUT));</span></a>
|
|
<a name="1685"><span class="lineNum"> 1685 </span> : </a>
|
|
<a name="1686"><span class="lineNum"> 1686 </span> : #if defined (BUFFERED_INPUT)</a>
|
|
<a name="1687"><span class="lineNum"> 1687 </span><span class="lineCov"> 19096537 : saver->bstream = (BUFFERED_STREAM *)NULL;</span></a>
|
|
<a name="1688"><span class="lineNum"> 1688 </span> : /* If we have a buffered stream, clear out buffers[fd]. */</a>
|
|
<a name="1689"><span class="lineNum"> 1689 </span><span class="lineCov"> 19096537 : if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)</span></a>
|
|
<a name="1690"><span class="lineNum"> 1690 </span><span class="lineCov"> 10615 : saver->bstream = set_buffered_stream (bash_input.location.buffered_fd,</span></a>
|
|
<a name="1691"><span class="lineNum"> 1691 </span> : (BUFFERED_STREAM *)NULL);</a>
|
|
<a name="1692"><span class="lineNum"> 1692 </span> : #endif /* BUFFERED_INPUT */</a>
|
|
<a name="1693"><span class="lineNum"> 1693 </span> : </a>
|
|
<a name="1694"><span class="lineNum"> 1694 </span><span class="lineCov"> 19096537 : saver->line = line_number;</span></a>
|
|
<a name="1695"><span class="lineNum"> 1695 </span><span class="lineCov"> 19096537 : bash_input.name = (char *)NULL;</span></a>
|
|
<a name="1696"><span class="lineNum"> 1696 </span><span class="lineCov"> 19096537 : saver->next = stream_list;</span></a>
|
|
<a name="1697"><span class="lineNum"> 1697 </span><span class="lineCov"> 19096537 : stream_list = saver;</span></a>
|
|
<a name="1698"><span class="lineNum"> 1698 </span><span class="lineCov"> 19096537 : EOF_Reached = 0;</span></a>
|
|
<a name="1699"><span class="lineNum"> 1699 </span><span class="lineCov"> 19096537 : if (reset_lineno)</span></a>
|
|
<a name="1700"><span class="lineNum"> 1700 </span><span class="lineCov"> 19086024 : line_number = 0;</span></a>
|
|
<a name="1701"><span class="lineNum"> 1701 </span><span class="lineCov"> 19096537 : }</span></a>
|
|
<a name="1702"><span class="lineNum"> 1702 </span> : </a>
|
|
<a name="1703"><span class="lineNum"> 1703 </span> : void</a>
|
|
<a name="1704"><span class="lineNum"> 1704 </span><span class="lineCov"> 19094658 : pop_stream ()</span></a>
|
|
<a name="1705"><span class="lineNum"> 1705 </span> : {</a>
|
|
<a name="1706"><span class="lineNum"> 1706 </span><span class="lineCov"> 19094658 : if (!stream_list)</span></a>
|
|
<a name="1707"><span class="lineNum"> 1707 </span><span class="lineNoCov"> 0 : EOF_Reached = 1;</span></a>
|
|
<a name="1708"><span class="lineNum"> 1708 </span> : else</a>
|
|
<a name="1709"><span class="lineNum"> 1709 </span> : {</a>
|
|
<a name="1710"><span class="lineNum"> 1710 </span><span class="lineCov"> 19094658 : STREAM_SAVER *saver = stream_list;</span></a>
|
|
<a name="1711"><span class="lineNum"> 1711 </span> : </a>
|
|
<a name="1712"><span class="lineNum"> 1712 </span><span class="lineCov"> 19094658 : EOF_Reached = 0;</span></a>
|
|
<a name="1713"><span class="lineNum"> 1713 </span><span class="lineCov"> 19094658 : stream_list = stream_list->next;</span></a>
|
|
<a name="1714"><span class="lineNum"> 1714 </span> : </a>
|
|
<a name="1715"><span class="lineNum"> 1715 </span><span class="lineCov"> 38189316 : init_yy_io (saver->bash_input.getter,</span></a>
|
|
<a name="1716"><span class="lineNum"> 1716 </span> : saver->bash_input.ungetter,</a>
|
|
<a name="1717"><span class="lineNum"> 1717 </span> : saver->bash_input.type,</a>
|
|
<a name="1718"><span class="lineNum"> 1718 </span><span class="lineCov"> 19094658 : saver->bash_input.name,</span></a>
|
|
<a name="1719"><span class="lineNum"> 1719 </span> : saver->bash_input.location);</a>
|
|
<a name="1720"><span class="lineNum"> 1720 </span> : </a>
|
|
<a name="1721"><span class="lineNum"> 1721 </span> : #if defined (BUFFERED_INPUT)</a>
|
|
<a name="1722"><span class="lineNum"> 1722 </span> : /* If we have a buffered stream, restore buffers[fd]. */</a>
|
|
<a name="1723"><span class="lineNum"> 1723 </span> : /* If the input file descriptor was changed while this was on the</a>
|
|
<a name="1724"><span class="lineNum"> 1724 </span> : save stack, update the buffered fd to the new file descriptor and</a>
|
|
<a name="1725"><span class="lineNum"> 1725 </span> : re-establish the buffer <-> bash_input fd correspondence. */</a>
|
|
<a name="1726"><span class="lineNum"> 1726 </span><span class="lineCov"> 19094658 : if (bash_input.type == st_bstream && bash_input.location.buffered_fd >= 0)</span></a>
|
|
<a name="1727"><span class="lineNum"> 1727 </span> : {</a>
|
|
<a name="1728"><span class="lineNum"> 1728 </span><span class="lineCov"> 8736 : if (bash_input_fd_changed)</span></a>
|
|
<a name="1729"><span class="lineNum"> 1729 </span> : {</a>
|
|
<a name="1730"><span class="lineNum"> 1730 </span><span class="lineNoCov"> 0 : bash_input_fd_changed = 0;</span></a>
|
|
<a name="1731"><span class="lineNum"> 1731 </span><span class="lineNoCov"> 0 : if (default_buffered_input >= 0)</span></a>
|
|
<a name="1732"><span class="lineNum"> 1732 </span> : {</a>
|
|
<a name="1733"><span class="lineNum"> 1733 </span><span class="lineNoCov"> 0 : bash_input.location.buffered_fd = default_buffered_input;</span></a>
|
|
<a name="1734"><span class="lineNum"> 1734 </span><span class="lineNoCov"> 0 : saver->bstream->b_fd = default_buffered_input;</span></a>
|
|
<a name="1735"><span class="lineNum"> 1735 </span><span class="lineNoCov"> 0 : SET_CLOSE_ON_EXEC (default_buffered_input);</span></a>
|
|
<a name="1736"><span class="lineNum"> 1736 </span> : }</a>
|
|
<a name="1737"><span class="lineNum"> 1737 </span> : }</a>
|
|
<a name="1738"><span class="lineNum"> 1738 </span> : /* XXX could free buffered stream returned as result here. */</a>
|
|
<a name="1739"><span class="lineNum"> 1739 </span><span class="lineCov"> 8736 : set_buffered_stream (bash_input.location.buffered_fd, saver->bstream);</span></a>
|
|
<a name="1740"><span class="lineNum"> 1740 </span> : }</a>
|
|
<a name="1741"><span class="lineNum"> 1741 </span> : #endif /* BUFFERED_INPUT */</a>
|
|
<a name="1742"><span class="lineNum"> 1742 </span> : </a>
|
|
<a name="1743"><span class="lineNum"> 1743 </span><span class="lineCov"> 19094658 : line_number = saver->line;</span></a>
|
|
<a name="1744"><span class="lineNum"> 1744 </span> : </a>
|
|
<a name="1745"><span class="lineNum"> 1745 </span><span class="lineCov"> 19094658 : FREE (saver->bash_input.name);</span></a>
|
|
<a name="1746"><span class="lineNum"> 1746 </span><span class="lineCov"> 19094658 : free (saver);</span></a>
|
|
<a name="1747"><span class="lineNum"> 1747 </span> : }</a>
|
|
<a name="1748"><span class="lineNum"> 1748 </span><span class="lineCov"> 19094658 : }</span></a>
|
|
<a name="1749"><span class="lineNum"> 1749 </span> : </a>
|
|
<a name="1750"><span class="lineNum"> 1750 </span> : /* Return 1 if a stream of type TYPE is saved on the stack. */</a>
|
|
<a name="1751"><span class="lineNum"> 1751 </span> : int</a>
|
|
<a name="1752"><span class="lineNum"> 1752 </span><span class="lineNoCov"> 0 : stream_on_stack (type)</span></a>
|
|
<a name="1753"><span class="lineNum"> 1753 </span> : enum stream_type type;</a>
|
|
<a name="1754"><span class="lineNum"> 1754 </span> : {</a>
|
|
<a name="1755"><span class="lineNum"> 1755 </span><span class="lineNoCov"> 0 : register STREAM_SAVER *s;</span></a>
|
|
<a name="1756"><span class="lineNum"> 1756 </span> : </a>
|
|
<a name="1757"><span class="lineNum"> 1757 </span><span class="lineNoCov"> 0 : for (s = stream_list; s; s = s->next)</span></a>
|
|
<a name="1758"><span class="lineNum"> 1758 </span><span class="lineNoCov"> 0 : if (s->bash_input.type == type)</span></a>
|
|
<a name="1759"><span class="lineNum"> 1759 </span> : return 1;</a>
|
|
<a name="1760"><span class="lineNum"> 1760 </span> : return 0;</a>
|
|
<a name="1761"><span class="lineNum"> 1761 </span> : }</a>
|
|
<a name="1762"><span class="lineNum"> 1762 </span> : </a>
|
|
<a name="1763"><span class="lineNum"> 1763 </span> : /* Save the current token state and return it in a malloced array. */</a>
|
|
<a name="1764"><span class="lineNum"> 1764 </span> : int *</a>
|
|
<a name="1765"><span class="lineNum"> 1765 </span><span class="lineCov"> 81 : save_token_state ()</span></a>
|
|
<a name="1766"><span class="lineNum"> 1766 </span> : {</a>
|
|
<a name="1767"><span class="lineNum"> 1767 </span><span class="lineCov"> 81 : int *ret;</span></a>
|
|
<a name="1768"><span class="lineNum"> 1768 </span> : </a>
|
|
<a name="1769"><span class="lineNum"> 1769 </span><span class="lineCov"> 81 : ret = (int *)xmalloc (4 * sizeof (int));</span></a>
|
|
<a name="1770"><span class="lineNum"> 1770 </span><span class="lineCov"> 81 : ret[0] = last_read_token;</span></a>
|
|
<a name="1771"><span class="lineNum"> 1771 </span><span class="lineCov"> 81 : ret[1] = token_before_that;</span></a>
|
|
<a name="1772"><span class="lineNum"> 1772 </span><span class="lineCov"> 81 : ret[2] = two_tokens_ago;</span></a>
|
|
<a name="1773"><span class="lineNum"> 1773 </span><span class="lineCov"> 81 : ret[3] = current_token;</span></a>
|
|
<a name="1774"><span class="lineNum"> 1774 </span><span class="lineCov"> 81 : return ret;</span></a>
|
|
<a name="1775"><span class="lineNum"> 1775 </span> : }</a>
|
|
<a name="1776"><span class="lineNum"> 1776 </span> : </a>
|
|
<a name="1777"><span class="lineNum"> 1777 </span> : void</a>
|
|
<a name="1778"><span class="lineNum"> 1778 </span><span class="lineNoCov"> 0 : restore_token_state (ts)</span></a>
|
|
<a name="1779"><span class="lineNum"> 1779 </span> : int *ts;</a>
|
|
<a name="1780"><span class="lineNum"> 1780 </span> : {</a>
|
|
<a name="1781"><span class="lineNum"> 1781 </span><span class="lineNoCov"> 0 : if (ts == 0)</span></a>
|
|
<a name="1782"><span class="lineNum"> 1782 </span> : return;</a>
|
|
<a name="1783"><span class="lineNum"> 1783 </span><span class="lineCov"> 81 : last_read_token = ts[0];</span></a>
|
|
<a name="1784"><span class="lineNum"> 1784 </span><span class="lineCov"> 81 : token_before_that = ts[1];</span></a>
|
|
<a name="1785"><span class="lineNum"> 1785 </span><span class="lineCov"> 81 : two_tokens_ago = ts[2];</span></a>
|
|
<a name="1786"><span class="lineNum"> 1786 </span><span class="lineNoCov"> 0 : current_token = ts[3];</span></a>
|
|
<a name="1787"><span class="lineNum"> 1787 </span> : }</a>
|
|
<a name="1788"><span class="lineNum"> 1788 </span> : </a>
|
|
<a name="1789"><span class="lineNum"> 1789 </span> : /*</a>
|
|
<a name="1790"><span class="lineNum"> 1790 </span> : * This is used to inhibit alias expansion and reserved word recognition</a>
|
|
<a name="1791"><span class="lineNum"> 1791 </span> : * inside case statement pattern lists. A `case statement pattern list' is:</a>
|
|
<a name="1792"><span class="lineNum"> 1792 </span> : *</a>
|
|
<a name="1793"><span class="lineNum"> 1793 </span> : * everything between the `in' in a `case word in' and the next ')'</a>
|
|
<a name="1794"><span class="lineNum"> 1794 </span> : * or `esac'</a>
|
|
<a name="1795"><span class="lineNum"> 1795 </span> : * everything between a `;;' and the next `)' or `esac'</a>
|
|
<a name="1796"><span class="lineNum"> 1796 </span> : */</a>
|
|
<a name="1797"><span class="lineNum"> 1797 </span> : </a>
|
|
<a name="1798"><span class="lineNum"> 1798 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="1799"><span class="lineNum"> 1799 </span> : </a>
|
|
<a name="1800"><span class="lineNum"> 1800 </span> : #define END_OF_ALIAS 0</a>
|
|
<a name="1801"><span class="lineNum"> 1801 </span> : </a>
|
|
<a name="1802"><span class="lineNum"> 1802 </span> : /*</a>
|
|
<a name="1803"><span class="lineNum"> 1803 </span> : * Pseudo-global variables used in implementing token-wise alias expansion.</a>
|
|
<a name="1804"><span class="lineNum"> 1804 </span> : */</a>
|
|
<a name="1805"><span class="lineNum"> 1805 </span> : </a>
|
|
<a name="1806"><span class="lineNum"> 1806 </span> : /*</a>
|
|
<a name="1807"><span class="lineNum"> 1807 </span> : * Pushing and popping strings. This works together with shell_getc to</a>
|
|
<a name="1808"><span class="lineNum"> 1808 </span> : * implement alias expansion on a per-token basis.</a>
|
|
<a name="1809"><span class="lineNum"> 1809 </span> : */</a>
|
|
<a name="1810"><span class="lineNum"> 1810 </span> : </a>
|
|
<a name="1811"><span class="lineNum"> 1811 </span> : #define PSH_ALIAS 0x01</a>
|
|
<a name="1812"><span class="lineNum"> 1812 </span> : #define PSH_DPAREN 0x02</a>
|
|
<a name="1813"><span class="lineNum"> 1813 </span> : #define PSH_SOURCE 0x04</a>
|
|
<a name="1814"><span class="lineNum"> 1814 </span> : </a>
|
|
<a name="1815"><span class="lineNum"> 1815 </span> : typedef struct string_saver {</a>
|
|
<a name="1816"><span class="lineNum"> 1816 </span> : struct string_saver *next;</a>
|
|
<a name="1817"><span class="lineNum"> 1817 </span> : int expand_alias; /* Value to set expand_alias to when string is popped. */</a>
|
|
<a name="1818"><span class="lineNum"> 1818 </span> : char *saved_line;</a>
|
|
<a name="1819"><span class="lineNum"> 1819 </span> : #if defined (ALIAS)</a>
|
|
<a name="1820"><span class="lineNum"> 1820 </span> : alias_t *expander; /* alias that caused this line to be pushed. */</a>
|
|
<a name="1821"><span class="lineNum"> 1821 </span> : #endif</a>
|
|
<a name="1822"><span class="lineNum"> 1822 </span> : size_t saved_line_size, saved_line_index;</a>
|
|
<a name="1823"><span class="lineNum"> 1823 </span> : int saved_line_terminator;</a>
|
|
<a name="1824"><span class="lineNum"> 1824 </span> : int flags;</a>
|
|
<a name="1825"><span class="lineNum"> 1825 </span> : } STRING_SAVER;</a>
|
|
<a name="1826"><span class="lineNum"> 1826 </span> : </a>
|
|
<a name="1827"><span class="lineNum"> 1827 </span> : STRING_SAVER *pushed_string_list = (STRING_SAVER *)NULL;</a>
|
|
<a name="1828"><span class="lineNum"> 1828 </span> : </a>
|
|
<a name="1829"><span class="lineNum"> 1829 </span> : /*</a>
|
|
<a name="1830"><span class="lineNum"> 1830 </span> : * Push the current shell_input_line onto a stack of such lines and make S</a>
|
|
<a name="1831"><span class="lineNum"> 1831 </span> : * the current input. Used when expanding aliases. EXPAND is used to set</a>
|
|
<a name="1832"><span class="lineNum"> 1832 </span> : * the value of expand_next_token when the string is popped, so that the</a>
|
|
<a name="1833"><span class="lineNum"> 1833 </span> : * word after the alias in the original line is handled correctly when the</a>
|
|
<a name="1834"><span class="lineNum"> 1834 </span> : * alias expands to multiple words. TOKEN is the token that was expanded</a>
|
|
<a name="1835"><span class="lineNum"> 1835 </span> : * into S; it is saved and used to prevent infinite recursive expansion.</a>
|
|
<a name="1836"><span class="lineNum"> 1836 </span> : */</a>
|
|
<a name="1837"><span class="lineNum"> 1837 </span> : static void</a>
|
|
<a name="1838"><span class="lineNum"> 1838 </span><span class="lineCov"> 54 : push_string (s, expand, ap)</span></a>
|
|
<a name="1839"><span class="lineNum"> 1839 </span> : char *s;</a>
|
|
<a name="1840"><span class="lineNum"> 1840 </span> : int expand;</a>
|
|
<a name="1841"><span class="lineNum"> 1841 </span> : alias_t *ap;</a>
|
|
<a name="1842"><span class="lineNum"> 1842 </span> : {</a>
|
|
<a name="1843"><span class="lineNum"> 1843 </span><span class="lineCov"> 54 : STRING_SAVER *temp = (STRING_SAVER *)xmalloc (sizeof (STRING_SAVER));</span></a>
|
|
<a name="1844"><span class="lineNum"> 1844 </span> : </a>
|
|
<a name="1845"><span class="lineNum"> 1845 </span><span class="lineCov"> 54 : temp->expand_alias = expand;</span></a>
|
|
<a name="1846"><span class="lineNum"> 1846 </span><span class="lineCov"> 54 : temp->saved_line = shell_input_line;</span></a>
|
|
<a name="1847"><span class="lineNum"> 1847 </span><span class="lineCov"> 54 : temp->saved_line_size = shell_input_line_size;</span></a>
|
|
<a name="1848"><span class="lineNum"> 1848 </span><span class="lineCov"> 54 : temp->saved_line_index = shell_input_line_index;</span></a>
|
|
<a name="1849"><span class="lineNum"> 1849 </span><span class="lineCov"> 54 : temp->saved_line_terminator = shell_input_line_terminator;</span></a>
|
|
<a name="1850"><span class="lineNum"> 1850 </span><span class="lineCov"> 54 : temp->flags = 0;</span></a>
|
|
<a name="1851"><span class="lineNum"> 1851 </span> : #if defined (ALIAS)</a>
|
|
<a name="1852"><span class="lineNum"> 1852 </span><span class="lineCov"> 54 : temp->expander = ap;</span></a>
|
|
<a name="1853"><span class="lineNum"> 1853 </span><span class="lineCov"> 54 : if (ap)</span></a>
|
|
<a name="1854"><span class="lineNum"> 1854 </span><span class="lineNoCov"> 0 : temp->flags = PSH_ALIAS;</span></a>
|
|
<a name="1855"><span class="lineNum"> 1855 </span> : #endif</a>
|
|
<a name="1856"><span class="lineNum"> 1856 </span><span class="lineCov"> 54 : temp->next = pushed_string_list;</span></a>
|
|
<a name="1857"><span class="lineNum"> 1857 </span><span class="lineCov"> 54 : pushed_string_list = temp;</span></a>
|
|
<a name="1858"><span class="lineNum"> 1858 </span> : </a>
|
|
<a name="1859"><span class="lineNum"> 1859 </span> : #if defined (ALIAS)</a>
|
|
<a name="1860"><span class="lineNum"> 1860 </span><span class="lineCov"> 54 : if (ap)</span></a>
|
|
<a name="1861"><span class="lineNum"> 1861 </span><span class="lineNoCov"> 0 : ap->flags |= AL_BEINGEXPANDED;</span></a>
|
|
<a name="1862"><span class="lineNum"> 1862 </span> : #endif</a>
|
|
<a name="1863"><span class="lineNum"> 1863 </span> : </a>
|
|
<a name="1864"><span class="lineNum"> 1864 </span><span class="lineCov"> 54 : shell_input_line = s;</span></a>
|
|
<a name="1865"><span class="lineNum"> 1865 </span><span class="lineCov"> 54 : shell_input_line_size = STRLEN (s);</span></a>
|
|
<a name="1866"><span class="lineNum"> 1866 </span><span class="lineCov"> 54 : shell_input_line_index = 0;</span></a>
|
|
<a name="1867"><span class="lineNum"> 1867 </span><span class="lineCov"> 54 : shell_input_line_terminator = '\0';</span></a>
|
|
<a name="1868"><span class="lineNum"> 1868 </span> : #if 0</a>
|
|
<a name="1869"><span class="lineNum"> 1869 </span> : parser_state &= ~PST_ALEXPNEXT; /* XXX */</a>
|
|
<a name="1870"><span class="lineNum"> 1870 </span> : #endif</a>
|
|
<a name="1871"><span class="lineNum"> 1871 </span> : </a>
|
|
<a name="1872"><span class="lineNum"> 1872 </span><span class="lineCov"> 54 : set_line_mbstate ();</span></a>
|
|
<a name="1873"><span class="lineNum"> 1873 </span><span class="lineCov"> 54 : }</span></a>
|
|
<a name="1874"><span class="lineNum"> 1874 </span> : </a>
|
|
<a name="1875"><span class="lineNum"> 1875 </span> : /*</a>
|
|
<a name="1876"><span class="lineNum"> 1876 </span> : * Make the top of the pushed_string stack be the current shell input.</a>
|
|
<a name="1877"><span class="lineNum"> 1877 </span> : * Only called when there is something on the stack. Called from shell_getc</a>
|
|
<a name="1878"><span class="lineNum"> 1878 </span> : * when it thinks it has consumed the string generated by an alias expansion</a>
|
|
<a name="1879"><span class="lineNum"> 1879 </span> : * and needs to return to the original input line.</a>
|
|
<a name="1880"><span class="lineNum"> 1880 </span> : */</a>
|
|
<a name="1881"><span class="lineNum"> 1881 </span> : static void</a>
|
|
<a name="1882"><span class="lineNum"> 1882 </span><span class="lineNoCov"> 0 : pop_string ()</span></a>
|
|
<a name="1883"><span class="lineNum"> 1883 </span> : {</a>
|
|
<a name="1884"><span class="lineNum"> 1884 </span><span class="lineNoCov"> 0 : STRING_SAVER *t;</span></a>
|
|
<a name="1885"><span class="lineNum"> 1885 </span> : </a>
|
|
<a name="1886"><span class="lineNum"> 1886 </span><span class="lineNoCov"> 0 : FREE (shell_input_line);</span></a>
|
|
<a name="1887"><span class="lineNum"> 1887 </span><span class="lineNoCov"> 0 : shell_input_line = pushed_string_list->saved_line;</span></a>
|
|
<a name="1888"><span class="lineNum"> 1888 </span><span class="lineNoCov"> 0 : shell_input_line_index = pushed_string_list->saved_line_index;</span></a>
|
|
<a name="1889"><span class="lineNum"> 1889 </span><span class="lineNoCov"> 0 : shell_input_line_size = pushed_string_list->saved_line_size;</span></a>
|
|
<a name="1890"><span class="lineNum"> 1890 </span><span class="lineNoCov"> 0 : shell_input_line_terminator = pushed_string_list->saved_line_terminator;</span></a>
|
|
<a name="1891"><span class="lineNum"> 1891 </span> : </a>
|
|
<a name="1892"><span class="lineNum"> 1892 </span><span class="lineNoCov"> 0 : if (pushed_string_list->expand_alias)</span></a>
|
|
<a name="1893"><span class="lineNum"> 1893 </span><span class="lineNoCov"> 0 : parser_state |= PST_ALEXPNEXT;</span></a>
|
|
<a name="1894"><span class="lineNum"> 1894 </span> : else</a>
|
|
<a name="1895"><span class="lineNum"> 1895 </span><span class="lineNoCov"> 0 : parser_state &= ~PST_ALEXPNEXT;</span></a>
|
|
<a name="1896"><span class="lineNum"> 1896 </span> : </a>
|
|
<a name="1897"><span class="lineNum"> 1897 </span><span class="lineNoCov"> 0 : t = pushed_string_list;</span></a>
|
|
<a name="1898"><span class="lineNum"> 1898 </span><span class="lineNoCov"> 0 : pushed_string_list = pushed_string_list->next;</span></a>
|
|
<a name="1899"><span class="lineNum"> 1899 </span> : </a>
|
|
<a name="1900"><span class="lineNum"> 1900 </span> : #if defined (ALIAS)</a>
|
|
<a name="1901"><span class="lineNum"> 1901 </span><span class="lineNoCov"> 0 : if (t->expander)</span></a>
|
|
<a name="1902"><span class="lineNum"> 1902 </span><span class="lineNoCov"> 0 : t->expander->flags &= ~AL_BEINGEXPANDED;</span></a>
|
|
<a name="1903"><span class="lineNum"> 1903 </span> : #endif</a>
|
|
<a name="1904"><span class="lineNum"> 1904 </span> : </a>
|
|
<a name="1905"><span class="lineNum"> 1905 </span><span class="lineNoCov"> 0 : free ((char *)t);</span></a>
|
|
<a name="1906"><span class="lineNum"> 1906 </span> : </a>
|
|
<a name="1907"><span class="lineNum"> 1907 </span><span class="lineNoCov"> 0 : set_line_mbstate ();</span></a>
|
|
<a name="1908"><span class="lineNum"> 1908 </span><span class="lineNoCov"> 0 : }</span></a>
|
|
<a name="1909"><span class="lineNum"> 1909 </span> : </a>
|
|
<a name="1910"><span class="lineNum"> 1910 </span> : static void</a>
|
|
<a name="1911"><span class="lineNum"> 1911 </span><span class="lineCov"> 10399 : free_string_list ()</span></a>
|
|
<a name="1912"><span class="lineNum"> 1912 </span> : {</a>
|
|
<a name="1913"><span class="lineNum"> 1913 </span><span class="lineCov"> 10399 : register STRING_SAVER *t, *t1;</span></a>
|
|
<a name="1914"><span class="lineNum"> 1914 </span> : </a>
|
|
<a name="1915"><span class="lineNum"> 1915 </span><span class="lineCov"> 10453 : for (t = pushed_string_list; t; )</span></a>
|
|
<a name="1916"><span class="lineNum"> 1916 </span> : {</a>
|
|
<a name="1917"><span class="lineNum"> 1917 </span><span class="lineCov"> 54 : t1 = t->next;</span></a>
|
|
<a name="1918"><span class="lineNum"> 1918 </span><span class="lineCov"> 54 : FREE (t->saved_line);</span></a>
|
|
<a name="1919"><span class="lineNum"> 1919 </span> : #if defined (ALIAS)</a>
|
|
<a name="1920"><span class="lineNum"> 1920 </span><span class="lineCov"> 54 : if (t->expander)</span></a>
|
|
<a name="1921"><span class="lineNum"> 1921 </span><span class="lineNoCov"> 0 : t->expander->flags &= ~AL_BEINGEXPANDED;</span></a>
|
|
<a name="1922"><span class="lineNum"> 1922 </span> : #endif</a>
|
|
<a name="1923"><span class="lineNum"> 1923 </span><span class="lineCov"> 54 : free ((char *)t);</span></a>
|
|
<a name="1924"><span class="lineNum"> 1924 </span><span class="lineCov"> 54 : t = t1;</span></a>
|
|
<a name="1925"><span class="lineNum"> 1925 </span> : }</a>
|
|
<a name="1926"><span class="lineNum"> 1926 </span><span class="lineCov"> 10399 : pushed_string_list = (STRING_SAVER *)NULL;</span></a>
|
|
<a name="1927"><span class="lineNum"> 1927 </span><span class="lineCov"> 10399 : }</span></a>
|
|
<a name="1928"><span class="lineNum"> 1928 </span> : </a>
|
|
<a name="1929"><span class="lineNum"> 1929 </span> : #endif /* ALIAS || DPAREN_ARITHMETIC */</a>
|
|
<a name="1930"><span class="lineNum"> 1930 </span> : </a>
|
|
<a name="1931"><span class="lineNum"> 1931 </span> : void</a>
|
|
<a name="1932"><span class="lineNum"> 1932 </span><span class="lineCov"> 10381 : free_pushed_string_input ()</span></a>
|
|
<a name="1933"><span class="lineNum"> 1933 </span> : {</a>
|
|
<a name="1934"><span class="lineNum"> 1934 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="1935"><span class="lineNum"> 1935 </span><span class="lineCov"> 10381 : free_string_list ();</span></a>
|
|
<a name="1936"><span class="lineNum"> 1936 </span> : #endif</a>
|
|
<a name="1937"><span class="lineNum"> 1937 </span><span class="lineCov"> 10381 : }</span></a>
|
|
<a name="1938"><span class="lineNum"> 1938 </span> : </a>
|
|
<a name="1939"><span class="lineNum"> 1939 </span> : int</a>
|
|
<a name="1940"><span class="lineNum"> 1940 </span><span class="lineCov"> 38193000 : parser_expanding_alias ()</span></a>
|
|
<a name="1941"><span class="lineNum"> 1941 </span> : {</a>
|
|
<a name="1942"><span class="lineNum"> 1942 </span><span class="lineCov"> 38193000 : return (expanding_alias ());</span></a>
|
|
<a name="1943"><span class="lineNum"> 1943 </span> : }</a>
|
|
<a name="1944"><span class="lineNum"> 1944 </span> : </a>
|
|
<a name="1945"><span class="lineNum"> 1945 </span> : void</a>
|
|
<a name="1946"><span class="lineNum"> 1946 </span><span class="lineNoCov"> 0 : parser_save_alias ()</span></a>
|
|
<a name="1947"><span class="lineNum"> 1947 </span> : {</a>
|
|
<a name="1948"><span class="lineNum"> 1948 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="1949"><span class="lineNum"> 1949 </span><span class="lineNoCov"> 0 : push_string ((char *)NULL, 0, (alias_t *)NULL);</span></a>
|
|
<a name="1950"><span class="lineNum"> 1950 </span><span class="lineNoCov"> 0 : pushed_string_list->flags = PSH_SOURCE; /* XXX - for now */</span></a>
|
|
<a name="1951"><span class="lineNum"> 1951 </span> : #else</a>
|
|
<a name="1952"><span class="lineNum"> 1952 </span> : ;</a>
|
|
<a name="1953"><span class="lineNum"> 1953 </span> : #endif</a>
|
|
<a name="1954"><span class="lineNum"> 1954 </span><span class="lineNoCov"> 0 : }</span></a>
|
|
<a name="1955"><span class="lineNum"> 1955 </span> : </a>
|
|
<a name="1956"><span class="lineNum"> 1956 </span> : void</a>
|
|
<a name="1957"><span class="lineNum"> 1957 </span><span class="lineNoCov"> 0 : parser_restore_alias ()</span></a>
|
|
<a name="1958"><span class="lineNum"> 1958 </span> : {</a>
|
|
<a name="1959"><span class="lineNum"> 1959 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="1960"><span class="lineNum"> 1960 </span><span class="lineNoCov"> 0 : if (pushed_string_list)</span></a>
|
|
<a name="1961"><span class="lineNum"> 1961 </span><span class="lineNoCov"> 0 : pop_string ();</span></a>
|
|
<a name="1962"><span class="lineNum"> 1962 </span> : #else</a>
|
|
<a name="1963"><span class="lineNum"> 1963 </span> : ;</a>
|
|
<a name="1964"><span class="lineNum"> 1964 </span> : #endif</a>
|
|
<a name="1965"><span class="lineNum"> 1965 </span><span class="lineNoCov"> 0 : }</span></a>
|
|
<a name="1966"><span class="lineNum"> 1966 </span> : </a>
|
|
<a name="1967"><span class="lineNum"> 1967 </span> : void</a>
|
|
<a name="1968"><span class="lineNum"> 1968 </span><span class="lineCov"> 19096419 : clear_shell_input_line ()</span></a>
|
|
<a name="1969"><span class="lineNum"> 1969 </span> : {</a>
|
|
<a name="1970"><span class="lineNum"> 1970 </span><span class="lineCov"> 19096419 : if (shell_input_line)</span></a>
|
|
<a name="1971"><span class="lineNum"> 1971 </span><span class="lineCov"> 9553449 : shell_input_line[shell_input_line_index = 0] = '\0';</span></a>
|
|
<a name="1972"><span class="lineNum"> 1972 </span><span class="lineCov"> 19096419 : }</span></a>
|
|
<a name="1973"><span class="lineNum"> 1973 </span> : </a>
|
|
<a name="1974"><span class="lineNum"> 1974 </span> : /* Return a line of text, taken from wherever yylex () reads input.</a>
|
|
<a name="1975"><span class="lineNum"> 1975 </span> : If there is no more input, then we return NULL. If REMOVE_QUOTED_NEWLINE</a>
|
|
<a name="1976"><span class="lineNum"> 1976 </span> : is non-zero, we remove unquoted \<newline> pairs. This is used by</a>
|
|
<a name="1977"><span class="lineNum"> 1977 </span> : read_secondary_line to read here documents. */</a>
|
|
<a name="1978"><span class="lineNum"> 1978 </span> : static char *</a>
|
|
<a name="1979"><span class="lineNum"> 1979 </span><span class="lineCov"> 1789 : read_a_line (remove_quoted_newline)</span></a>
|
|
<a name="1980"><span class="lineNum"> 1980 </span> : int remove_quoted_newline;</a>
|
|
<a name="1981"><span class="lineNum"> 1981 </span> : {</a>
|
|
<a name="1982"><span class="lineNum"> 1982 </span><span class="lineCov"> 1789 : static char *line_buffer = (char *)NULL;</span></a>
|
|
<a name="1983"><span class="lineNum"> 1983 </span><span class="lineCov"> 1789 : static int buffer_size = 0;</span></a>
|
|
<a name="1984"><span class="lineNum"> 1984 </span><span class="lineCov"> 1789 : int indx, c, peekc, pass_next;</span></a>
|
|
<a name="1985"><span class="lineNum"> 1985 </span> : </a>
|
|
<a name="1986"><span class="lineNum"> 1986 </span> : #if defined (READLINE)</a>
|
|
<a name="1987"><span class="lineNum"> 1987 </span> : if (no_line_editing && SHOULD_PROMPT ())</a>
|
|
<a name="1988"><span class="lineNum"> 1988 </span> : #else</a>
|
|
<a name="1989"><span class="lineNum"> 1989 </span><span class="lineCov"> 1789 : if (SHOULD_PROMPT ())</span></a>
|
|
<a name="1990"><span class="lineNum"> 1990 </span> : #endif</a>
|
|
<a name="1991"><span class="lineNum"> 1991 </span><span class="lineNoCov"> 0 : print_prompt ();</span></a>
|
|
<a name="1992"><span class="lineNum"> 1992 </span> : </a>
|
|
<a name="1993"><span class="lineNum"> 1993 </span> : pass_next = indx = 0;</a>
|
|
<a name="1994"><span class="lineNum"> 1994 </span><span class="lineCov"> 26248 : while (1)</span></a>
|
|
<a name="1995"><span class="lineNum"> 1995 </span> : {</a>
|
|
<a name="1996"><span class="lineNum"> 1996 </span> : /* Allow immediate exit if interrupted during input. */</a>
|
|
<a name="1997"><span class="lineNum"> 1997 </span><span class="lineCov"> 26248 : QUIT;</span></a>
|
|
<a name="1998"><span class="lineNum"> 1998 </span> : </a>
|
|
<a name="1999"><span class="lineNum"> 1999 </span><span class="lineCov"> 26248 : c = yy_getc ();</span></a>
|
|
<a name="2000"><span class="lineNum"> 2000 </span> : </a>
|
|
<a name="2001"><span class="lineNum"> 2001 </span> : /* Ignore null bytes in input. */</a>
|
|
<a name="2002"><span class="lineNum"> 2002 </span><span class="lineCov"> 26248 : if (c == 0)</span></a>
|
|
<a name="2003"><span class="lineNum"> 2003 </span> : {</a>
|
|
<a name="2004"><span class="lineNum"> 2004 </span> : #if 0</a>
|
|
<a name="2005"><span class="lineNum"> 2005 </span> : internal_warning ("read_a_line: ignored null byte in input");</a>
|
|
<a name="2006"><span class="lineNum"> 2006 </span> : #endif</a>
|
|
<a name="2007"><span class="lineNum"> 2007 </span> : continue;</a>
|
|
<a name="2008"><span class="lineNum"> 2008 </span> : }</a>
|
|
<a name="2009"><span class="lineNum"> 2009 </span> : </a>
|
|
<a name="2010"><span class="lineNum"> 2010 </span> : /* If there is no more input, then we return NULL. */</a>
|
|
<a name="2011"><span class="lineNum"> 2011 </span><span class="lineCov"> 25763 : if (c == EOF)</span></a>
|
|
<a name="2012"><span class="lineNum"> 2012 </span> : {</a>
|
|
<a name="2013"><span class="lineNum"> 2013 </span><span class="lineCov"> 336 : if (interactive && bash_input.type == st_stream)</span></a>
|
|
<a name="2014"><span class="lineNum"> 2014 </span><span class="lineNoCov"> 0 : clearerr (stdin);</span></a>
|
|
<a name="2015"><span class="lineNum"> 2015 </span><span class="lineCov"> 336 : if (indx == 0)</span></a>
|
|
<a name="2016"><span class="lineNum"> 2016 </span> : return ((char *)NULL);</a>
|
|
<a name="2017"><span class="lineNum"> 2017 </span> : c = '\n';</a>
|
|
<a name="2018"><span class="lineNum"> 2018 </span> : }</a>
|
|
<a name="2019"><span class="lineNum"> 2019 </span> : </a>
|
|
<a name="2020"><span class="lineNum"> 2020 </span> : /* `+2' in case the final character in the buffer is a newline. */</a>
|
|
<a name="2021"><span class="lineNum"> 2021 </span><span class="lineCov"> 25585 : RESIZE_MALLOCED_BUFFER (line_buffer, indx, 2, buffer_size, 128);</span></a>
|
|
<a name="2022"><span class="lineNum"> 2022 </span> : </a>
|
|
<a name="2023"><span class="lineNum"> 2023 </span> : /* IF REMOVE_QUOTED_NEWLINES is non-zero, we are reading a</a>
|
|
<a name="2024"><span class="lineNum"> 2024 </span> : here document with an unquoted delimiter. In this case,</a>
|
|
<a name="2025"><span class="lineNum"> 2025 </span> : the line will be expanded as if it were in double quotes.</a>
|
|
<a name="2026"><span class="lineNum"> 2026 </span> : We allow a backslash to escape the next character, but we</a>
|
|
<a name="2027"><span class="lineNum"> 2027 </span> : need to treat the backslash specially only if a backslash</a>
|
|
<a name="2028"><span class="lineNum"> 2028 </span> : quoting a backslash-newline pair appears in the line. */</a>
|
|
<a name="2029"><span class="lineNum"> 2029 </span><span class="lineCov"> 25478 : if (pass_next)</span></a>
|
|
<a name="2030"><span class="lineNum"> 2030 </span> : {</a>
|
|
<a name="2031"><span class="lineNum"> 2031 </span><span class="lineCov"> 43 : line_buffer[indx++] = c;</span></a>
|
|
<a name="2032"><span class="lineNum"> 2032 </span><span class="lineCov"> 43 : pass_next = 0;</span></a>
|
|
<a name="2033"><span class="lineNum"> 2033 </span> : }</a>
|
|
<a name="2034"><span class="lineNum"> 2034 </span><span class="lineCov"> 25435 : else if (c == '\\' && remove_quoted_newline)</span></a>
|
|
<a name="2035"><span class="lineNum"> 2035 </span> : {</a>
|
|
<a name="2036"><span class="lineNum"> 2036 </span><span class="lineCov"> 43 : QUIT;</span></a>
|
|
<a name="2037"><span class="lineNum"> 2037 </span><span class="lineCov"> 43 : peekc = yy_getc ();</span></a>
|
|
<a name="2038"><span class="lineNum"> 2038 </span><span class="lineCov"> 43 : if (peekc == '\n')</span></a>
|
|
<a name="2039"><span class="lineNum"> 2039 </span> : {</a>
|
|
<a name="2040"><span class="lineNum"> 2040 </span><span class="lineNoCov"> 0 : line_number++;</span></a>
|
|
<a name="2041"><span class="lineNum"> 2041 </span><span class="lineNoCov"> 0 : continue; /* Make the unquoted \<newline> pair disappear. */</span></a>
|
|
<a name="2042"><span class="lineNum"> 2042 </span> : }</a>
|
|
<a name="2043"><span class="lineNum"> 2043 </span> : else</a>
|
|
<a name="2044"><span class="lineNum"> 2044 </span> : {</a>
|
|
<a name="2045"><span class="lineNum"> 2045 </span><span class="lineCov"> 43 : yy_ungetc (peekc);</span></a>
|
|
<a name="2046"><span class="lineNum"> 2046 </span><span class="lineCov"> 43 : pass_next = 1;</span></a>
|
|
<a name="2047"><span class="lineNum"> 2047 </span><span class="lineCov"> 43 : line_buffer[indx++] = c; /* Preserve the backslash. */</span></a>
|
|
<a name="2048"><span class="lineNum"> 2048 </span> : }</a>
|
|
<a name="2049"><span class="lineNum"> 2049 </span> : }</a>
|
|
<a name="2050"><span class="lineNum"> 2050 </span> : else</a>
|
|
<a name="2051"><span class="lineNum"> 2051 </span><span class="lineCov"> 25392 : line_buffer[indx++] = c;</span></a>
|
|
<a name="2052"><span class="lineNum"> 2052 </span> : </a>
|
|
<a name="2053"><span class="lineNum"> 2053 </span><span class="lineCov"> 25478 : if (c == '\n')</span></a>
|
|
<a name="2054"><span class="lineNum"> 2054 </span> : {</a>
|
|
<a name="2055"><span class="lineNum"> 2055 </span><span class="lineCov"> 1504 : line_buffer[indx] = '\0';</span></a>
|
|
<a name="2056"><span class="lineNum"> 2056 </span><span class="lineCov"> 1504 : return (line_buffer);</span></a>
|
|
<a name="2057"><span class="lineNum"> 2057 </span> : }</a>
|
|
<a name="2058"><span class="lineNum"> 2058 </span> : }</a>
|
|
<a name="2059"><span class="lineNum"> 2059 </span> : }</a>
|
|
<a name="2060"><span class="lineNum"> 2060 </span> : </a>
|
|
<a name="2061"><span class="lineNum"> 2061 </span> : /* Return a line as in read_a_line (), but insure that the prompt is</a>
|
|
<a name="2062"><span class="lineNum"> 2062 </span> : the secondary prompt. This is used to read the lines of a here</a>
|
|
<a name="2063"><span class="lineNum"> 2063 </span> : document. REMOVE_QUOTED_NEWLINE is non-zero if we should remove</a>
|
|
<a name="2064"><span class="lineNum"> 2064 </span> : newlines quoted with backslashes while reading the line. It is</a>
|
|
<a name="2065"><span class="lineNum"> 2065 </span> : non-zero unless the delimiter of the here document was quoted. */</a>
|
|
<a name="2066"><span class="lineNum"> 2066 </span> : char *</a>
|
|
<a name="2067"><span class="lineNum"> 2067 </span><span class="lineCov"> 1789 : read_secondary_line (remove_quoted_newline)</span></a>
|
|
<a name="2068"><span class="lineNum"> 2068 </span> : int remove_quoted_newline;</a>
|
|
<a name="2069"><span class="lineNum"> 2069 </span> : {</a>
|
|
<a name="2070"><span class="lineNum"> 2070 </span><span class="lineCov"> 1789 : char *ret;</span></a>
|
|
<a name="2071"><span class="lineNum"> 2071 </span> : </a>
|
|
<a name="2072"><span class="lineNum"> 2072 </span><span class="lineCov"> 1789 : prompt_string_pointer = &ps2_prompt;</span></a>
|
|
<a name="2073"><span class="lineNum"> 2073 </span><span class="lineCov"> 1789 : if (SHOULD_PROMPT())</span></a>
|
|
<a name="2074"><span class="lineNum"> 2074 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="2075"><span class="lineNum"> 2075 </span><span class="lineCov"> 1789 : ret = read_a_line (remove_quoted_newline);</span></a>
|
|
<a name="2076"><span class="lineNum"> 2076 </span> : #if defined (HISTORY)</a>
|
|
<a name="2077"><span class="lineNum"> 2077 </span> : if (ret && remember_on_history && (parser_state & PST_HEREDOC))</a>
|
|
<a name="2078"><span class="lineNum"> 2078 </span> : {</a>
|
|
<a name="2079"><span class="lineNum"> 2079 </span> : /* To make adding the here-document body right, we need to rely on</a>
|
|
<a name="2080"><span class="lineNum"> 2080 </span> : history_delimiting_chars() returning \n for the first line of the</a>
|
|
<a name="2081"><span class="lineNum"> 2081 </span> : here-document body and the null string for the second and subsequent</a>
|
|
<a name="2082"><span class="lineNum"> 2082 </span> : lines, so we avoid double newlines.</a>
|
|
<a name="2083"><span class="lineNum"> 2083 </span> : current_command_line_count == 2 for the first line of the body. */</a>
|
|
<a name="2084"><span class="lineNum"> 2084 </span> : </a>
|
|
<a name="2085"><span class="lineNum"> 2085 </span> : current_command_line_count++;</a>
|
|
<a name="2086"><span class="lineNum"> 2086 </span> : maybe_add_history (ret);</a>
|
|
<a name="2087"><span class="lineNum"> 2087 </span> : }</a>
|
|
<a name="2088"><span class="lineNum"> 2088 </span> : #endif /* HISTORY */</a>
|
|
<a name="2089"><span class="lineNum"> 2089 </span><span class="lineCov"> 1789 : return ret;</span></a>
|
|
<a name="2090"><span class="lineNum"> 2090 </span> : }</a>
|
|
<a name="2091"><span class="lineNum"> 2091 </span> : </a>
|
|
<a name="2092"><span class="lineNum"> 2092 </span> : /* **************************************************************** */</a>
|
|
<a name="2093"><span class="lineNum"> 2093 </span> : /* */</a>
|
|
<a name="2094"><span class="lineNum"> 2094 </span> : /* YYLEX () */</a>
|
|
<a name="2095"><span class="lineNum"> 2095 </span> : /* */</a>
|
|
<a name="2096"><span class="lineNum"> 2096 </span> : /* **************************************************************** */</a>
|
|
<a name="2097"><span class="lineNum"> 2097 </span> : </a>
|
|
<a name="2098"><span class="lineNum"> 2098 </span> : /* Reserved words. These are only recognized as the first word of a</a>
|
|
<a name="2099"><span class="lineNum"> 2099 </span> : command. */</a>
|
|
<a name="2100"><span class="lineNum"> 2100 </span> : STRING_INT_ALIST word_token_alist[] = {</a>
|
|
<a name="2101"><span class="lineNum"> 2101 </span> : { "if", IF },</a>
|
|
<a name="2102"><span class="lineNum"> 2102 </span> : { "then", THEN },</a>
|
|
<a name="2103"><span class="lineNum"> 2103 </span> : { "else", ELSE },</a>
|
|
<a name="2104"><span class="lineNum"> 2104 </span> : { "elif", ELIF },</a>
|
|
<a name="2105"><span class="lineNum"> 2105 </span> : { "fi", FI },</a>
|
|
<a name="2106"><span class="lineNum"> 2106 </span> : { "case", CASE },</a>
|
|
<a name="2107"><span class="lineNum"> 2107 </span> : { "esac", ESAC },</a>
|
|
<a name="2108"><span class="lineNum"> 2108 </span> : { "for", FOR },</a>
|
|
<a name="2109"><span class="lineNum"> 2109 </span> : #if defined (SELECT_COMMAND)</a>
|
|
<a name="2110"><span class="lineNum"> 2110 </span> : { "select", SELECT },</a>
|
|
<a name="2111"><span class="lineNum"> 2111 </span> : #endif</a>
|
|
<a name="2112"><span class="lineNum"> 2112 </span> : { "while", WHILE },</a>
|
|
<a name="2113"><span class="lineNum"> 2113 </span> : { "until", UNTIL },</a>
|
|
<a name="2114"><span class="lineNum"> 2114 </span> : { "do", DO },</a>
|
|
<a name="2115"><span class="lineNum"> 2115 </span> : { "done", DONE },</a>
|
|
<a name="2116"><span class="lineNum"> 2116 </span> : { "in", IN },</a>
|
|
<a name="2117"><span class="lineNum"> 2117 </span> : { "function", FUNCTION },</a>
|
|
<a name="2118"><span class="lineNum"> 2118 </span> : #if defined (COMMAND_TIMING)</a>
|
|
<a name="2119"><span class="lineNum"> 2119 </span> : { "time", TIME },</a>
|
|
<a name="2120"><span class="lineNum"> 2120 </span> : #endif</a>
|
|
<a name="2121"><span class="lineNum"> 2121 </span> : { "{", '{' },</a>
|
|
<a name="2122"><span class="lineNum"> 2122 </span> : { "}", '}' },</a>
|
|
<a name="2123"><span class="lineNum"> 2123 </span> : { "!", BANG },</a>
|
|
<a name="2124"><span class="lineNum"> 2124 </span> : #if defined (COND_COMMAND)</a>
|
|
<a name="2125"><span class="lineNum"> 2125 </span> : { "[[", COND_START },</a>
|
|
<a name="2126"><span class="lineNum"> 2126 </span> : { "]]", COND_END },</a>
|
|
<a name="2127"><span class="lineNum"> 2127 </span> : #endif</a>
|
|
<a name="2128"><span class="lineNum"> 2128 </span> : #if defined (COPROCESS_SUPPORT)</a>
|
|
<a name="2129"><span class="lineNum"> 2129 </span> : { "coproc", COPROC },</a>
|
|
<a name="2130"><span class="lineNum"> 2130 </span> : #endif</a>
|
|
<a name="2131"><span class="lineNum"> 2131 </span> : { (char *)NULL, 0}</a>
|
|
<a name="2132"><span class="lineNum"> 2132 </span> : };</a>
|
|
<a name="2133"><span class="lineNum"> 2133 </span> : </a>
|
|
<a name="2134"><span class="lineNum"> 2134 </span> : /* other tokens that can be returned by read_token() */</a>
|
|
<a name="2135"><span class="lineNum"> 2135 </span> : STRING_INT_ALIST other_token_alist[] = {</a>
|
|
<a name="2136"><span class="lineNum"> 2136 </span> : /* Multiple-character tokens with special values */</a>
|
|
<a name="2137"><span class="lineNum"> 2137 </span> : { "--", TIMEIGN },</a>
|
|
<a name="2138"><span class="lineNum"> 2138 </span> : { "-p", TIMEOPT },</a>
|
|
<a name="2139"><span class="lineNum"> 2139 </span> : { "&&", AND_AND },</a>
|
|
<a name="2140"><span class="lineNum"> 2140 </span> : { "||", OR_OR },</a>
|
|
<a name="2141"><span class="lineNum"> 2141 </span> : { ">>", GREATER_GREATER },</a>
|
|
<a name="2142"><span class="lineNum"> 2142 </span> : { "<<", LESS_LESS },</a>
|
|
<a name="2143"><span class="lineNum"> 2143 </span> : { "<&", LESS_AND },</a>
|
|
<a name="2144"><span class="lineNum"> 2144 </span> : { ">&", GREATER_AND },</a>
|
|
<a name="2145"><span class="lineNum"> 2145 </span> : { ";;", SEMI_SEMI },</a>
|
|
<a name="2146"><span class="lineNum"> 2146 </span> : { ";&", SEMI_AND },</a>
|
|
<a name="2147"><span class="lineNum"> 2147 </span> : { ";;&", SEMI_SEMI_AND },</a>
|
|
<a name="2148"><span class="lineNum"> 2148 </span> : { "<<-", LESS_LESS_MINUS },</a>
|
|
<a name="2149"><span class="lineNum"> 2149 </span> : { "<<<", LESS_LESS_LESS },</a>
|
|
<a name="2150"><span class="lineNum"> 2150 </span> : { "&>", AND_GREATER },</a>
|
|
<a name="2151"><span class="lineNum"> 2151 </span> : { "&>>", AND_GREATER_GREATER },</a>
|
|
<a name="2152"><span class="lineNum"> 2152 </span> : { "<>", LESS_GREATER },</a>
|
|
<a name="2153"><span class="lineNum"> 2153 </span> : { ">|", GREATER_BAR },</a>
|
|
<a name="2154"><span class="lineNum"> 2154 </span> : { "|&", BAR_AND },</a>
|
|
<a name="2155"><span class="lineNum"> 2155 </span> : { "EOF", yacc_EOF },</a>
|
|
<a name="2156"><span class="lineNum"> 2156 </span> : /* Tokens whose value is the character itself */</a>
|
|
<a name="2157"><span class="lineNum"> 2157 </span> : { ">", '>' },</a>
|
|
<a name="2158"><span class="lineNum"> 2158 </span> : { "<", '<' },</a>
|
|
<a name="2159"><span class="lineNum"> 2159 </span> : { "-", '-' },</a>
|
|
<a name="2160"><span class="lineNum"> 2160 </span> : { "{", '{' },</a>
|
|
<a name="2161"><span class="lineNum"> 2161 </span> : { "}", '}' },</a>
|
|
<a name="2162"><span class="lineNum"> 2162 </span> : { ";", ';' },</a>
|
|
<a name="2163"><span class="lineNum"> 2163 </span> : { "(", '(' },</a>
|
|
<a name="2164"><span class="lineNum"> 2164 </span> : { ")", ')' },</a>
|
|
<a name="2165"><span class="lineNum"> 2165 </span> : { "|", '|' },</a>
|
|
<a name="2166"><span class="lineNum"> 2166 </span> : { "&", '&' },</a>
|
|
<a name="2167"><span class="lineNum"> 2167 </span> : { "newline", '\n' },</a>
|
|
<a name="2168"><span class="lineNum"> 2168 </span> : { (char *)NULL, 0}</a>
|
|
<a name="2169"><span class="lineNum"> 2169 </span> : };</a>
|
|
<a name="2170"><span class="lineNum"> 2170 </span> : </a>
|
|
<a name="2171"><span class="lineNum"> 2171 </span> : /* others not listed here:</a>
|
|
<a name="2172"><span class="lineNum"> 2172 </span> : WORD look at yylval.word</a>
|
|
<a name="2173"><span class="lineNum"> 2173 </span> : ASSIGNMENT_WORD look at yylval.word</a>
|
|
<a name="2174"><span class="lineNum"> 2174 </span> : NUMBER look at yylval.number</a>
|
|
<a name="2175"><span class="lineNum"> 2175 </span> : ARITH_CMD look at yylval.word_list</a>
|
|
<a name="2176"><span class="lineNum"> 2176 </span> : ARITH_FOR_EXPRS look at yylval.word_list</a>
|
|
<a name="2177"><span class="lineNum"> 2177 </span> : COND_CMD look at yylval.command</a>
|
|
<a name="2178"><span class="lineNum"> 2178 </span> : */</a>
|
|
<a name="2179"><span class="lineNum"> 2179 </span> : </a>
|
|
<a name="2180"><span class="lineNum"> 2180 </span> : /* These are used by read_token_word, but appear up here so that shell_getc</a>
|
|
<a name="2181"><span class="lineNum"> 2181 </span> : can use them to decide when to add otherwise blank lines to the history. */</a>
|
|
<a name="2182"><span class="lineNum"> 2182 </span> : </a>
|
|
<a name="2183"><span class="lineNum"> 2183 </span> : /* The primary delimiter stack. */</a>
|
|
<a name="2184"><span class="lineNum"> 2184 </span> : struct dstack dstack = { (char *)NULL, 0, 0 };</a>
|
|
<a name="2185"><span class="lineNum"> 2185 </span> : </a>
|
|
<a name="2186"><span class="lineNum"> 2186 </span> : /* A temporary delimiter stack to be used when decoding prompt strings.</a>
|
|
<a name="2187"><span class="lineNum"> 2187 </span> : This is needed because command substitutions in prompt strings (e.g., PS2)</a>
|
|
<a name="2188"><span class="lineNum"> 2188 </span> : can screw up the parser's quoting state. */</a>
|
|
<a name="2189"><span class="lineNum"> 2189 </span> : static struct dstack temp_dstack = { (char *)NULL, 0, 0 };</a>
|
|
<a name="2190"><span class="lineNum"> 2190 </span> : </a>
|
|
<a name="2191"><span class="lineNum"> 2191 </span> : /* Macro for accessing the top delimiter on the stack. Returns the</a>
|
|
<a name="2192"><span class="lineNum"> 2192 </span> : delimiter or zero if none. */</a>
|
|
<a name="2193"><span class="lineNum"> 2193 </span> : #define current_delimiter(ds) \</a>
|
|
<a name="2194"><span class="lineNum"> 2194 </span> : (ds.delimiter_depth ? ds.delimiters[ds.delimiter_depth - 1] : 0)</a>
|
|
<a name="2195"><span class="lineNum"> 2195 </span> : </a>
|
|
<a name="2196"><span class="lineNum"> 2196 </span> : #define push_delimiter(ds, character) \</a>
|
|
<a name="2197"><span class="lineNum"> 2197 </span> : do \</a>
|
|
<a name="2198"><span class="lineNum"> 2198 </span> : { \</a>
|
|
<a name="2199"><span class="lineNum"> 2199 </span> : if (ds.delimiter_depth + 2 > ds.delimiter_space) \</a>
|
|
<a name="2200"><span class="lineNum"> 2200 </span> : ds.delimiters = (char *)xrealloc \</a>
|
|
<a name="2201"><span class="lineNum"> 2201 </span> : (ds.delimiters, (ds.delimiter_space += 10) * sizeof (char)); \</a>
|
|
<a name="2202"><span class="lineNum"> 2202 </span> : ds.delimiters[ds.delimiter_depth] = character; \</a>
|
|
<a name="2203"><span class="lineNum"> 2203 </span> : ds.delimiter_depth++; \</a>
|
|
<a name="2204"><span class="lineNum"> 2204 </span> : } \</a>
|
|
<a name="2205"><span class="lineNum"> 2205 </span> : while (0)</a>
|
|
<a name="2206"><span class="lineNum"> 2206 </span> : </a>
|
|
<a name="2207"><span class="lineNum"> 2207 </span> : #define pop_delimiter(ds) ds.delimiter_depth--</a>
|
|
<a name="2208"><span class="lineNum"> 2208 </span> : </a>
|
|
<a name="2209"><span class="lineNum"> 2209 </span> : /* Return the next shell input character. This always reads characters</a>
|
|
<a name="2210"><span class="lineNum"> 2210 </span> : from shell_input_line; when that line is exhausted, it is time to</a>
|
|
<a name="2211"><span class="lineNum"> 2211 </span> : read the next line. This is called by read_token when the shell is</a>
|
|
<a name="2212"><span class="lineNum"> 2212 </span> : processing normal command input. */</a>
|
|
<a name="2213"><span class="lineNum"> 2213 </span> : </a>
|
|
<a name="2214"><span class="lineNum"> 2214 </span> : /* This implements one-character lookahead/lookbehind across physical input</a>
|
|
<a name="2215"><span class="lineNum"> 2215 </span> : lines, to avoid something being lost because it's pushed back with</a>
|
|
<a name="2216"><span class="lineNum"> 2216 </span> : shell_ungetc when we're at the start of a line. */</a>
|
|
<a name="2217"><span class="lineNum"> 2217 </span> : static int eol_ungetc_lookahead = 0;</a>
|
|
<a name="2218"><span class="lineNum"> 2218 </span> : </a>
|
|
<a name="2219"><span class="lineNum"> 2219 </span> : static int</a>
|
|
<a name="2220"><span class="lineNum"> 2220 </span><span class="lineCov">16662975830 : shell_getc (remove_quoted_newline)</span></a>
|
|
<a name="2221"><span class="lineNum"> 2221 </span> : int remove_quoted_newline;</a>
|
|
<a name="2222"><span class="lineNum"> 2222 </span> : {</a>
|
|
<a name="2223"><span class="lineNum"> 2223 </span><span class="lineCov">16662975830 : register int i;</span></a>
|
|
<a name="2224"><span class="lineNum"> 2224 </span><span class="lineCov">16662975830 : int c, truncating, last_was_backslash;</span></a>
|
|
<a name="2225"><span class="lineNum"> 2225 </span><span class="lineCov">16662975830 : unsigned char uc;</span></a>
|
|
<a name="2226"><span class="lineNum"> 2226 </span> : </a>
|
|
<a name="2227"><span class="lineNum"> 2227 </span><span class="lineCov">16662975830 : QUIT;</span></a>
|
|
<a name="2228"><span class="lineNum"> 2228 </span> : </a>
|
|
<a name="2229"><span class="lineNum"> 2229 </span><span class="lineCov">16662975830 : last_was_backslash = 0;</span></a>
|
|
<a name="2230"><span class="lineNum"> 2230 </span><span class="lineCov">16662975830 : if (sigwinch_received)</span></a>
|
|
<a name="2231"><span class="lineNum"> 2231 </span> : {</a>
|
|
<a name="2232"><span class="lineNum"> 2232 </span><span class="lineNoCov"> 0 : sigwinch_received = 0;</span></a>
|
|
<a name="2233"><span class="lineNum"> 2233 </span><span class="lineNoCov"> 0 : get_new_window_size (0, (int *)0, (int *)0);</span></a>
|
|
<a name="2234"><span class="lineNum"> 2234 </span> : }</a>
|
|
<a name="2235"><span class="lineNum"> 2235 </span> : </a>
|
|
<a name="2236"><span class="lineNum"> 2236 </span><span class="lineCov">16662975830 : if (eol_ungetc_lookahead)</span></a>
|
|
<a name="2237"><span class="lineNum"> 2237 </span> : {</a>
|
|
<a name="2238"><span class="lineNum"> 2238 </span><span class="lineCov"> 223 : c = eol_ungetc_lookahead;</span></a>
|
|
<a name="2239"><span class="lineNum"> 2239 </span><span class="lineCov"> 223 : eol_ungetc_lookahead = 0;</span></a>
|
|
<a name="2240"><span class="lineNum"> 2240 </span><span class="lineCov"> 223 : return (c);</span></a>
|
|
<a name="2241"><span class="lineNum"> 2241 </span> : }</a>
|
|
<a name="2242"><span class="lineNum"> 2242 </span> : </a>
|
|
<a name="2243"><span class="lineNum"> 2243 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="2244"><span class="lineNum"> 2244 </span> : /* If shell_input_line[shell_input_line_index] == 0, but there is</a>
|
|
<a name="2245"><span class="lineNum"> 2245 </span> : something on the pushed list of strings, then we don't want to go</a>
|
|
<a name="2246"><span class="lineNum"> 2246 </span> : off and get another line. We let the code down below handle it. */</a>
|
|
<a name="2247"><span class="lineNum"> 2247 </span> : </a>
|
|
<a name="2248"><span class="lineNum"> 2248 </span><span class="lineCov">16662975607 : if (!shell_input_line || ((!shell_input_line[shell_input_line_index]) &&</span></a>
|
|
<a name="2249"><span class="lineNum"> 2249 </span><span class="lineCov"> 808888645 : (pushed_string_list == (STRING_SAVER *)NULL)))</span></a>
|
|
<a name="2250"><span class="lineNum"> 2250 </span> : #else /* !ALIAS && !DPAREN_ARITHMETIC */</a>
|
|
<a name="2251"><span class="lineNum"> 2251 </span> : if (!shell_input_line || !shell_input_line[shell_input_line_index])</a>
|
|
<a name="2252"><span class="lineNum"> 2252 </span> : #endif /* !ALIAS && !DPAREN_ARITHMETIC */</a>
|
|
<a name="2253"><span class="lineNum"> 2253 </span> : {</a>
|
|
<a name="2254"><span class="lineNum"> 2254 </span><span class="lineCov"> 818431936 : line_number++;</span></a>
|
|
<a name="2255"><span class="lineNum"> 2255 </span> : </a>
|
|
<a name="2256"><span class="lineNum"> 2256 </span> : /* Let's not let one really really long line blow up memory allocation */</a>
|
|
<a name="2257"><span class="lineNum"> 2257 </span><span class="lineCov"> 818431936 : if (shell_input_line && shell_input_line_size >= 32768)</span></a>
|
|
<a name="2258"><span class="lineNum"> 2258 </span> : {</a>
|
|
<a name="2259"><span class="lineNum"> 2259 </span><span class="lineNoCov"> 0 : free (shell_input_line);</span></a>
|
|
<a name="2260"><span class="lineNum"> 2260 </span><span class="lineNoCov"> 0 : shell_input_line = 0;</span></a>
|
|
<a name="2261"><span class="lineNum"> 2261 </span><span class="lineNoCov"> 0 : shell_input_line_size = 0;</span></a>
|
|
<a name="2262"><span class="lineNum"> 2262 </span> : }</a>
|
|
<a name="2263"><span class="lineNum"> 2263 </span> : </a>
|
|
<a name="2264"><span class="lineNum"> 2264 </span><span class="lineCov"> 818431936 : restart_read:</span></a>
|
|
<a name="2265"><span class="lineNum"> 2265 </span> : </a>
|
|
<a name="2266"><span class="lineNum"> 2266 </span> : /* Allow immediate exit if interrupted during input. */</a>
|
|
<a name="2267"><span class="lineNum"> 2267 </span><span class="lineCov"> 818432675 : QUIT;</span></a>
|
|
<a name="2268"><span class="lineNum"> 2268 </span> : </a>
|
|
<a name="2269"><span class="lineNum"> 2269 </span><span class="lineCov"> 818432675 : i = truncating = 0;</span></a>
|
|
<a name="2270"><span class="lineNum"> 2270 </span><span class="lineCov"> 818432675 : shell_input_line_terminator = 0;</span></a>
|
|
<a name="2271"><span class="lineNum"> 2271 </span> : </a>
|
|
<a name="2272"><span class="lineNum"> 2272 </span> : /* If the shell is interatctive, but not currently printing a prompt</a>
|
|
<a name="2273"><span class="lineNum"> 2273 </span> : (interactive_shell && interactive == 0), we don't want to print</a>
|
|
<a name="2274"><span class="lineNum"> 2274 </span> : notifies or cleanup the jobs -- we want to defer it until we do</a>
|
|
<a name="2275"><span class="lineNum"> 2275 </span> : print the next prompt. */</a>
|
|
<a name="2276"><span class="lineNum"> 2276 </span><span class="lineCov"> 818432675 : if (interactive_shell == 0 || SHOULD_PROMPT())</span></a>
|
|
<a name="2277"><span class="lineNum"> 2277 </span> : {</a>
|
|
<a name="2278"><span class="lineNum"> 2278 </span> : #if defined (JOB_CONTROL)</a>
|
|
<a name="2279"><span class="lineNum"> 2279 </span> : /* This can cause a problem when reading a command as the result</a>
|
|
<a name="2280"><span class="lineNum"> 2280 </span> : of a trap, when the trap is called from flush_child. This call</a>
|
|
<a name="2281"><span class="lineNum"> 2281 </span> : had better not cause jobs to disappear from the job table in</a>
|
|
<a name="2282"><span class="lineNum"> 2282 </span> : that case, or we will have big trouble. */</a>
|
|
<a name="2283"><span class="lineNum"> 2283 </span><span class="lineCov"> 818432675 : notify_and_cleanup ();</span></a>
|
|
<a name="2284"><span class="lineNum"> 2284 </span> : #else /* !JOB_CONTROL */</a>
|
|
<a name="2285"><span class="lineNum"> 2285 </span> : cleanup_dead_jobs ();</a>
|
|
<a name="2286"><span class="lineNum"> 2286 </span> : #endif /* !JOB_CONTROL */</a>
|
|
<a name="2287"><span class="lineNum"> 2287 </span> : }</a>
|
|
<a name="2288"><span class="lineNum"> 2288 </span> : </a>
|
|
<a name="2289"><span class="lineNum"> 2289 </span> : #if defined (READLINE)</a>
|
|
<a name="2290"><span class="lineNum"> 2290 </span> : if (no_line_editing && SHOULD_PROMPT())</a>
|
|
<a name="2291"><span class="lineNum"> 2291 </span> : #else</a>
|
|
<a name="2292"><span class="lineNum"> 2292 </span><span class="lineCov"> 818432675 : if (SHOULD_PROMPT())</span></a>
|
|
<a name="2293"><span class="lineNum"> 2293 </span> : #endif</a>
|
|
<a name="2294"><span class="lineNum"> 2294 </span><span class="lineNoCov"> 0 : print_prompt ();</span></a>
|
|
<a name="2295"><span class="lineNum"> 2295 </span> : </a>
|
|
<a name="2296"><span class="lineNum"> 2296 </span><span class="lineCov"> 818432675 : if (bash_input.type == st_stream)</span></a>
|
|
<a name="2297"><span class="lineNum"> 2297 </span><span class="lineNoCov"> 0 : clearerr (stdin);</span></a>
|
|
<a name="2298"><span class="lineNum"> 2298 </span> : </a>
|
|
<a name="2299"><span class="lineNum"> 2299 </span><span class="lineCov">15269757971 : while (1)</span></a>
|
|
<a name="2300"><span class="lineNum"> 2300 </span> : {</a>
|
|
<a name="2301"><span class="lineNum"> 2301 </span><span class="lineCov">15269757971 : c = yy_getc ();</span></a>
|
|
<a name="2302"><span class="lineNum"> 2302 </span> : </a>
|
|
<a name="2303"><span class="lineNum"> 2303 </span> : /* Allow immediate exit if interrupted during input. */</a>
|
|
<a name="2304"><span class="lineNum"> 2304 </span><span class="lineCov">15269757971 : QUIT;</span></a>
|
|
<a name="2305"><span class="lineNum"> 2305 </span> : </a>
|
|
<a name="2306"><span class="lineNum"> 2306 </span><span class="lineCov">15269757971 : if (c == '\0')</span></a>
|
|
<a name="2307"><span class="lineNum"> 2307 </span> : {</a>
|
|
<a name="2308"><span class="lineNum"> 2308 </span> : #if 0</a>
|
|
<a name="2309"><span class="lineNum"> 2309 </span> : internal_warning ("shell_getc: ignored null byte in input");</a>
|
|
<a name="2310"><span class="lineNum"> 2310 </span> : #endif</a>
|
|
<a name="2311"><span class="lineNum"> 2311 </span> : continue;</a>
|
|
<a name="2312"><span class="lineNum"> 2312 </span> : }</a>
|
|
<a name="2313"><span class="lineNum"> 2313 </span> : </a>
|
|
<a name="2314"><span class="lineNum"> 2314 </span> : /* Theoretical overflow */</a>
|
|
<a name="2315"><span class="lineNum"> 2315 </span> : /* If we can't put 256 bytes more into the buffer, allocate</a>
|
|
<a name="2316"><span class="lineNum"> 2316 </span> : everything we can and fill it as full as we can. */</a>
|
|
<a name="2317"><span class="lineNum"> 2317 </span> : /* XXX - we ignore rest of line using `truncating' flag */</a>
|
|
<a name="2318"><span class="lineNum"> 2318 </span><span class="lineCov">15203272930 : if (shell_input_line_size > (SIZE_MAX - 256))</span></a>
|
|
<a name="2319"><span class="lineNum"> 2319 </span> : {</a>
|
|
<a name="2320"><span class="lineNum"> 2320 </span><span class="lineNoCov"> 0 : size_t n;</span></a>
|
|
<a name="2321"><span class="lineNum"> 2321 </span> : </a>
|
|
<a name="2322"><span class="lineNum"> 2322 </span><span class="lineNoCov"> 0 : n = SIZE_MAX - i; /* how much more can we put into the buffer? */</span></a>
|
|
<a name="2323"><span class="lineNum"> 2323 </span><span class="lineNoCov"> 0 : if (n <= 2) /* we have to save 1 for the newline added below */</span></a>
|
|
<a name="2324"><span class="lineNum"> 2324 </span> : {</a>
|
|
<a name="2325"><span class="lineNum"> 2325 </span><span class="lineNoCov"> 0 : if (truncating == 0)</span></a>
|
|
<a name="2326"><span class="lineNum"> 2326 </span><span class="lineNoCov"> 0 : internal_warning(_("shell_getc: shell_input_line_size (%zu) exceeds SIZE_MAX (%lu): line truncated"), shell_input_line_size, (unsigned long)SIZE_MAX);</span></a>
|
|
<a name="2327"><span class="lineNum"> 2327 </span><span class="lineNoCov"> 0 : shell_input_line[i] = '\0';</span></a>
|
|
<a name="2328"><span class="lineNum"> 2328 </span><span class="lineNoCov"> 0 : truncating = 1;</span></a>
|
|
<a name="2329"><span class="lineNum"> 2329 </span> : }</a>
|
|
<a name="2330"><span class="lineNum"> 2330 </span><span class="lineNoCov"> 0 : if (shell_input_line_size < SIZE_MAX)</span></a>
|
|
<a name="2331"><span class="lineNum"> 2331 </span> : {</a>
|
|
<a name="2332"><span class="lineNum"> 2332 </span><span class="lineNoCov"> 0 : shell_input_line_size = SIZE_MAX;</span></a>
|
|
<a name="2333"><span class="lineNum"> 2333 </span><span class="lineNoCov"> 0 : shell_input_line = xrealloc (shell_input_line, shell_input_line_size);</span></a>
|
|
<a name="2334"><span class="lineNum"> 2334 </span> : }</a>
|
|
<a name="2335"><span class="lineNum"> 2335 </span> : }</a>
|
|
<a name="2336"><span class="lineNum"> 2336 </span> : else</a>
|
|
<a name="2337"><span class="lineNum"> 2337 </span><span class="lineCov">15213779532 : RESIZE_MALLOCED_BUFFER (shell_input_line, i, 2, shell_input_line_size, 256);</span></a>
|
|
<a name="2338"><span class="lineNum"> 2338 </span> : </a>
|
|
<a name="2339"><span class="lineNum"> 2339 </span><span class="lineCov">15203272930 : if (c == EOF)</span></a>
|
|
<a name="2340"><span class="lineNum"> 2340 </span> : {</a>
|
|
<a name="2341"><span class="lineNum"> 2341 </span><span class="lineCov"> 1497289 : if (bash_input.type == st_stream)</span></a>
|
|
<a name="2342"><span class="lineNum"> 2342 </span><span class="lineNoCov"> 0 : clearerr (stdin);</span></a>
|
|
<a name="2343"><span class="lineNum"> 2343 </span> : </a>
|
|
<a name="2344"><span class="lineNum"> 2344 </span><span class="lineCov"> 1497289 : if (i == 0)</span></a>
|
|
<a name="2345"><span class="lineNum"> 2345 </span><span class="lineCov"> 433218 : shell_input_line_terminator = EOF;</span></a>
|
|
<a name="2346"><span class="lineNum"> 2346 </span> : </a>
|
|
<a name="2347"><span class="lineNum"> 2347 </span><span class="lineCov"> 1497289 : shell_input_line[i] = '\0';</span></a>
|
|
<a name="2348"><span class="lineNum"> 2348 </span><span class="lineCov"> 1497289 : break;</span></a>
|
|
<a name="2349"><span class="lineNum"> 2349 </span> : }</a>
|
|
<a name="2350"><span class="lineNum"> 2350 </span> : </a>
|
|
<a name="2351"><span class="lineNum"> 2351 </span><span class="lineCov">15201775641 : if (truncating == 0 || c == '\n')</span></a>
|
|
<a name="2352"><span class="lineNum"> 2352 </span><span class="lineCov">15201775641 : shell_input_line[i++] = c;</span></a>
|
|
<a name="2353"><span class="lineNum"> 2353 </span> : </a>
|
|
<a name="2354"><span class="lineNum"> 2354 </span><span class="lineCov">15201775641 : if (c == '\n')</span></a>
|
|
<a name="2355"><span class="lineNum"> 2355 </span> : {</a>
|
|
<a name="2356"><span class="lineNum"> 2356 </span><span class="lineCov"> 816935386 : shell_input_line[--i] = '\0';</span></a>
|
|
<a name="2357"><span class="lineNum"> 2357 </span><span class="lineCov"> 816935386 : current_command_line_count++;</span></a>
|
|
<a name="2358"><span class="lineNum"> 2358 </span><span class="lineCov"> 816935386 : break;</span></a>
|
|
<a name="2359"><span class="lineNum"> 2359 </span> : }</a>
|
|
<a name="2360"><span class="lineNum"> 2360 </span> : </a>
|
|
<a name="2361"><span class="lineNum"> 2361 </span><span class="lineCov">14384840255 : last_was_backslash = last_was_backslash == 0 && c == '\\';</span></a>
|
|
<a name="2362"><span class="lineNum"> 2362 </span> : }</a>
|
|
<a name="2363"><span class="lineNum"> 2363 </span> : </a>
|
|
<a name="2364"><span class="lineNum"> 2364 </span><span class="lineCov"> 818432675 : shell_input_line_index = 0;</span></a>
|
|
<a name="2365"><span class="lineNum"> 2365 </span><span class="lineCov"> 818432675 : shell_input_line_len = i; /* == strlen (shell_input_line) */</span></a>
|
|
<a name="2366"><span class="lineNum"> 2366 </span> : </a>
|
|
<a name="2367"><span class="lineNum"> 2367 </span><span class="lineCov"> 818432675 : set_line_mbstate ();</span></a>
|
|
<a name="2368"><span class="lineNum"> 2368 </span> : </a>
|
|
<a name="2369"><span class="lineNum"> 2369 </span> : #if defined (HISTORY)</a>
|
|
<a name="2370"><span class="lineNum"> 2370 </span> : if (remember_on_history && shell_input_line && shell_input_line[0])</a>
|
|
<a name="2371"><span class="lineNum"> 2371 </span> : {</a>
|
|
<a name="2372"><span class="lineNum"> 2372 </span> : char *expansions;</a>
|
|
<a name="2373"><span class="lineNum"> 2373 </span> : # if defined (BANG_HISTORY)</a>
|
|
<a name="2374"><span class="lineNum"> 2374 </span> : int old_hist;</a>
|
|
<a name="2375"><span class="lineNum"> 2375 </span> : </a>
|
|
<a name="2376"><span class="lineNum"> 2376 </span> : /* If the current delimiter is a single quote, we should not be</a>
|
|
<a name="2377"><span class="lineNum"> 2377 </span> : performing history expansion, even if we're on a different</a>
|
|
<a name="2378"><span class="lineNum"> 2378 </span> : line from the original single quote. */</a>
|
|
<a name="2379"><span class="lineNum"> 2379 </span> : old_hist = history_expansion_inhibited;</a>
|
|
<a name="2380"><span class="lineNum"> 2380 </span> : if (current_delimiter (dstack) == '\'')</a>
|
|
<a name="2381"><span class="lineNum"> 2381 </span> : history_expansion_inhibited = 1;</a>
|
|
<a name="2382"><span class="lineNum"> 2382 </span> : # endif</a>
|
|
<a name="2383"><span class="lineNum"> 2383 </span> : /* Calling with a third argument of 1 allows remember_on_history to</a>
|
|
<a name="2384"><span class="lineNum"> 2384 </span> : determine whether or not the line is saved to the history list */</a>
|
|
<a name="2385"><span class="lineNum"> 2385 </span> : expansions = pre_process_line (shell_input_line, 1, 1);</a>
|
|
<a name="2386"><span class="lineNum"> 2386 </span> : # if defined (BANG_HISTORY)</a>
|
|
<a name="2387"><span class="lineNum"> 2387 </span> : history_expansion_inhibited = old_hist;</a>
|
|
<a name="2388"><span class="lineNum"> 2388 </span> : # endif</a>
|
|
<a name="2389"><span class="lineNum"> 2389 </span> : if (expansions != shell_input_line)</a>
|
|
<a name="2390"><span class="lineNum"> 2390 </span> : {</a>
|
|
<a name="2391"><span class="lineNum"> 2391 </span> : free (shell_input_line);</a>
|
|
<a name="2392"><span class="lineNum"> 2392 </span> : shell_input_line = expansions;</a>
|
|
<a name="2393"><span class="lineNum"> 2393 </span> : shell_input_line_len = shell_input_line ?</a>
|
|
<a name="2394"><span class="lineNum"> 2394 </span> : strlen (shell_input_line) : 0;</a>
|
|
<a name="2395"><span class="lineNum"> 2395 </span> : if (shell_input_line_len == 0)</a>
|
|
<a name="2396"><span class="lineNum"> 2396 </span> : current_command_line_count--;</a>
|
|
<a name="2397"><span class="lineNum"> 2397 </span> : </a>
|
|
<a name="2398"><span class="lineNum"> 2398 </span> : /* We have to force the xrealloc below because we don't know</a>
|
|
<a name="2399"><span class="lineNum"> 2399 </span> : the true allocated size of shell_input_line anymore. */</a>
|
|
<a name="2400"><span class="lineNum"> 2400 </span> : shell_input_line_size = shell_input_line_len;</a>
|
|
<a name="2401"><span class="lineNum"> 2401 </span> : </a>
|
|
<a name="2402"><span class="lineNum"> 2402 </span> : set_line_mbstate ();</a>
|
|
<a name="2403"><span class="lineNum"> 2403 </span> : }</a>
|
|
<a name="2404"><span class="lineNum"> 2404 </span> : }</a>
|
|
<a name="2405"><span class="lineNum"> 2405 </span> : /* Try to do something intelligent with blank lines encountered while</a>
|
|
<a name="2406"><span class="lineNum"> 2406 </span> : entering multi-line commands. XXX - this is grotesque */</a>
|
|
<a name="2407"><span class="lineNum"> 2407 </span> : else if (remember_on_history && shell_input_line &&</a>
|
|
<a name="2408"><span class="lineNum"> 2408 </span> : shell_input_line[0] == '\0' &&</a>
|
|
<a name="2409"><span class="lineNum"> 2409 </span> : current_command_line_count > 1)</a>
|
|
<a name="2410"><span class="lineNum"> 2410 </span> : {</a>
|
|
<a name="2411"><span class="lineNum"> 2411 </span> : if (current_delimiter (dstack))</a>
|
|
<a name="2412"><span class="lineNum"> 2412 </span> : /* We know shell_input_line[0] == 0 and we're reading some sort of</a>
|
|
<a name="2413"><span class="lineNum"> 2413 </span> : quoted string. This means we've got a line consisting of only</a>
|
|
<a name="2414"><span class="lineNum"> 2414 </span> : a newline in a quoted string. We want to make sure this line</a>
|
|
<a name="2415"><span class="lineNum"> 2415 </span> : gets added to the history. */</a>
|
|
<a name="2416"><span class="lineNum"> 2416 </span> : maybe_add_history (shell_input_line);</a>
|
|
<a name="2417"><span class="lineNum"> 2417 </span> : else</a>
|
|
<a name="2418"><span class="lineNum"> 2418 </span> : {</a>
|
|
<a name="2419"><span class="lineNum"> 2419 </span> : char *hdcs;</a>
|
|
<a name="2420"><span class="lineNum"> 2420 </span> : hdcs = history_delimiting_chars (shell_input_line);</a>
|
|
<a name="2421"><span class="lineNum"> 2421 </span> : if (hdcs && hdcs[0] == ';')</a>
|
|
<a name="2422"><span class="lineNum"> 2422 </span> : maybe_add_history (shell_input_line);</a>
|
|
<a name="2423"><span class="lineNum"> 2423 </span> : }</a>
|
|
<a name="2424"><span class="lineNum"> 2424 </span> : }</a>
|
|
<a name="2425"><span class="lineNum"> 2425 </span> : </a>
|
|
<a name="2426"><span class="lineNum"> 2426 </span> : #endif /* HISTORY */</a>
|
|
<a name="2427"><span class="lineNum"> 2427 </span> : </a>
|
|
<a name="2428"><span class="lineNum"> 2428 </span><span class="lineCov"> 818432675 : if (shell_input_line)</span></a>
|
|
<a name="2429"><span class="lineNum"> 2429 </span> : {</a>
|
|
<a name="2430"><span class="lineNum"> 2430 </span> : /* Lines that signify the end of the shell's input should not be</a>
|
|
<a name="2431"><span class="lineNum"> 2431 </span> : echoed. We should not echo lines while parsing command</a>
|
|
<a name="2432"><span class="lineNum"> 2432 </span> : substitutions with recursive calls into the parsing engine; those</a>
|
|
<a name="2433"><span class="lineNum"> 2433 </span> : should only be echoed once when we read the word. That is the</a>
|
|
<a name="2434"><span class="lineNum"> 2434 </span> : reason for the test against shell_eof_token, which is set to a</a>
|
|
<a name="2435"><span class="lineNum"> 2435 </span> : right paren when parsing the contents of command substitutions. */</a>
|
|
<a name="2436"><span class="lineNum"> 2436 </span><span class="lineCov"> 818432675 : if (echo_input_at_read && (shell_input_line[0] ||</span></a>
|
|
<a name="2437"><span class="lineNum"> 2437 </span><span class="lineNoCov"> 0 : shell_input_line_terminator != EOF) &&</span></a>
|
|
<a name="2438"><span class="lineNum"> 2438 </span><span class="lineNoCov"> 0 : shell_eof_token == 0)</span></a>
|
|
<a name="2439"><span class="lineNum"> 2439 </span><span class="lineNoCov"> 0 : fprintf (stderr, "%s\n", shell_input_line);</span></a>
|
|
<a name="2440"><span class="lineNum"> 2440 </span> : }</a>
|
|
<a name="2441"><span class="lineNum"> 2441 </span> : else</a>
|
|
<a name="2442"><span class="lineNum"> 2442 </span> : {</a>
|
|
<a name="2443"><span class="lineNum"> 2443 </span><span class="lineNoCov"> 0 : shell_input_line_size = 0;</span></a>
|
|
<a name="2444"><span class="lineNum"> 2444 </span><span class="lineNoCov"> 0 : prompt_string_pointer = &current_prompt_string;</span></a>
|
|
<a name="2445"><span class="lineNum"> 2445 </span><span class="lineNoCov"> 0 : if (SHOULD_PROMPT ())</span></a>
|
|
<a name="2446"><span class="lineNum"> 2446 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="2447"><span class="lineNum"> 2447 </span><span class="lineNoCov"> 0 : goto restart_read;</span></a>
|
|
<a name="2448"><span class="lineNum"> 2448 </span> : }</a>
|
|
<a name="2449"><span class="lineNum"> 2449 </span> : </a>
|
|
<a name="2450"><span class="lineNum"> 2450 </span> : /* Add the newline to the end of this string, iff the string does</a>
|
|
<a name="2451"><span class="lineNum"> 2451 </span> : not already end in an EOF character. */</a>
|
|
<a name="2452"><span class="lineNum"> 2452 </span><span class="lineCov"> 818432675 : if (shell_input_line_terminator != EOF)</span></a>
|
|
<a name="2453"><span class="lineNum"> 2453 </span> : {</a>
|
|
<a name="2454"><span class="lineNum"> 2454 </span><span class="lineCov"> 817999457 : if (shell_input_line_size < SIZE_MAX-3 && (shell_input_line_len+3 > shell_input_line_size))</span></a>
|
|
<a name="2455"><span class="lineNum"> 2455 </span><span class="lineNoCov"> 0 : shell_input_line = (char *)xrealloc (shell_input_line,</span></a>
|
|
<a name="2456"><span class="lineNum"> 2456 </span><span class="lineNoCov"> 0 : 1 + (shell_input_line_size += 2));</span></a>
|
|
<a name="2457"><span class="lineNum"> 2457 </span> : </a>
|
|
<a name="2458"><span class="lineNum"> 2458 </span> : /* Don't add a newline to a string that ends with a backslash if we're</a>
|
|
<a name="2459"><span class="lineNum"> 2459 </span> : going to be removing quoted newlines, since that will eat the</a>
|
|
<a name="2460"><span class="lineNum"> 2460 </span> : backslash. Add another backslash instead (will be removed by</a>
|
|
<a name="2461"><span class="lineNum"> 2461 </span> : word expansion). */</a>
|
|
<a name="2462"><span class="lineNum"> 2462 </span><span class="lineCov"> 817999457 : if (bash_input.type == st_string && expanding_alias() == 0 && last_was_backslash && c == EOF && remove_quoted_newline)</span></a>
|
|
<a name="2463"><span class="lineNum"> 2463 </span><span class="lineNoCov"> 0 : shell_input_line[shell_input_line_len] = '\\';</span></a>
|
|
<a name="2464"><span class="lineNum"> 2464 </span> : else</a>
|
|
<a name="2465"><span class="lineNum"> 2465 </span><span class="lineCov"> 817999457 : shell_input_line[shell_input_line_len] = '\n';</span></a>
|
|
<a name="2466"><span class="lineNum"> 2466 </span><span class="lineCov"> 817999457 : shell_input_line[shell_input_line_len + 1] = '\0';</span></a>
|
|
<a name="2467"><span class="lineNum"> 2467 </span> : </a>
|
|
<a name="2468"><span class="lineNum"> 2468 </span><span class="lineCov"> 817999457 : set_line_mbstate ();</span></a>
|
|
<a name="2469"><span class="lineNum"> 2469 </span> : }</a>
|
|
<a name="2470"><span class="lineNum"> 2470 </span> : }</a>
|
|
<a name="2471"><span class="lineNum"> 2471 </span> : </a>
|
|
<a name="2472"><span class="lineNum"> 2472 </span><span class="lineCov">16662976346 : next_alias_char:</span></a>
|
|
<a name="2473"><span class="lineNum"> 2473 </span><span class="lineCov">16662976346 : uc = shell_input_line[shell_input_line_index];</span></a>
|
|
<a name="2474"><span class="lineNum"> 2474 </span> : </a>
|
|
<a name="2475"><span class="lineNum"> 2475 </span><span class="lineCov">16662976346 : if (uc)</span></a>
|
|
<a name="2476"><span class="lineNum"> 2476 </span><span class="lineCov">16662543128 : shell_input_line_index++;</span></a>
|
|
<a name="2477"><span class="lineNum"> 2477 </span> : </a>
|
|
<a name="2478"><span class="lineNum"> 2478 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="2479"><span class="lineNum"> 2479 </span> : /* If UC is NULL, we have reached the end of the current input string. If</a>
|
|
<a name="2480"><span class="lineNum"> 2480 </span> : pushed_string_list is non-empty, it's time to pop to the previous string</a>
|
|
<a name="2481"><span class="lineNum"> 2481 </span> : because we have fully consumed the result of the last alias expansion.</a>
|
|
<a name="2482"><span class="lineNum"> 2482 </span> : Do it transparently; just return the next character of the string popped</a>
|
|
<a name="2483"><span class="lineNum"> 2483 </span> : to. */</a>
|
|
<a name="2484"><span class="lineNum"> 2484 </span> : /* If pushed_string_list != 0 but pushed_string_list->expander == 0 (not</a>
|
|
<a name="2485"><span class="lineNum"> 2485 </span> : currently tested) and the flags value is not PSH_SOURCE, we are not</a>
|
|
<a name="2486"><span class="lineNum"> 2486 </span> : parsing an alias, we have just saved one (push_string, when called by</a>
|
|
<a name="2487"><span class="lineNum"> 2487 </span> : the parse_dparen code) In this case, just go on as well. The PSH_SOURCE</a>
|
|
<a name="2488"><span class="lineNum"> 2488 </span> : case is handled below. */</a>
|
|
<a name="2489"><span class="lineNum"> 2489 </span><span class="lineCov"> 433218 : pop_alias:</span></a>
|
|
<a name="2490"><span class="lineNum"> 2490 </span><span class="lineCov">16662976346 : if (uc == 0 && pushed_string_list && pushed_string_list->flags != PSH_SOURCE)</span></a>
|
|
<a name="2491"><span class="lineNum"> 2491 </span> : {</a>
|
|
<a name="2492"><span class="lineNum"> 2492 </span><span class="lineNoCov"> 0 : pop_string ();</span></a>
|
|
<a name="2493"><span class="lineNum"> 2493 </span><span class="lineNoCov"> 0 : uc = shell_input_line[shell_input_line_index];</span></a>
|
|
<a name="2494"><span class="lineNum"> 2494 </span><span class="lineNoCov"> 0 : if (uc)</span></a>
|
|
<a name="2495"><span class="lineNum"> 2495 </span><span class="lineNoCov"> 0 : shell_input_line_index++;</span></a>
|
|
<a name="2496"><span class="lineNum"> 2496 </span> : }</a>
|
|
<a name="2497"><span class="lineNum"> 2497 </span> : #endif /* ALIAS || DPAREN_ARITHMETIC */</a>
|
|
<a name="2498"><span class="lineNum"> 2498 </span> : </a>
|
|
<a name="2499"><span class="lineNum"> 2499 </span><span class="lineCov">16662976346 : if MBTEST(uc == '\\' && remove_quoted_newline && shell_input_line[shell_input_line_index] == '\n')</span></a>
|
|
<a name="2500"><span class="lineNum"> 2500 </span> : {</a>
|
|
<a name="2501"><span class="lineNum"> 2501 </span><span class="lineCov"> 739 : if (SHOULD_PROMPT ())</span></a>
|
|
<a name="2502"><span class="lineNum"> 2502 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="2503"><span class="lineNum"> 2503 </span><span class="lineCov"> 739 : line_number++;</span></a>
|
|
<a name="2504"><span class="lineNum"> 2504 </span> : /* What do we do here if we're expanding an alias whose definition</a>
|
|
<a name="2505"><span class="lineNum"> 2505 </span> : includes an escaped newline? If that's the last character in the</a>
|
|
<a name="2506"><span class="lineNum"> 2506 </span> : alias expansion, we just pop the pushed string list (recall that</a>
|
|
<a name="2507"><span class="lineNum"> 2507 </span> : we inhibit the appending of a space in mk_alexpansion() if newline</a>
|
|
<a name="2508"><span class="lineNum"> 2508 </span> : is the last character). If it's not the last character, we need</a>
|
|
<a name="2509"><span class="lineNum"> 2509 </span> : to consume the quoted newline and move to the next character in</a>
|
|
<a name="2510"><span class="lineNum"> 2510 </span> : the expansion. */</a>
|
|
<a name="2511"><span class="lineNum"> 2511 </span> : #if defined (ALIAS)</a>
|
|
<a name="2512"><span class="lineNum"> 2512 </span><span class="lineCov"> 739 : if (expanding_alias () && shell_input_line[shell_input_line_index+1] == '\0')</span></a>
|
|
<a name="2513"><span class="lineNum"> 2513 </span> : {</a>
|
|
<a name="2514"><span class="lineNum"> 2514 </span> : uc = 0;</a>
|
|
<a name="2515"><span class="lineNum"> 2515 </span> : goto pop_alias;</a>
|
|
<a name="2516"><span class="lineNum"> 2516 </span> : }</a>
|
|
<a name="2517"><span class="lineNum"> 2517 </span><span class="lineCov"> 739 : else if (expanding_alias () && shell_input_line[shell_input_line_index+1] != '\0')</span></a>
|
|
<a name="2518"><span class="lineNum"> 2518 </span> : {</a>
|
|
<a name="2519"><span class="lineNum"> 2519 </span><span class="lineNoCov"> 0 : shell_input_line_index++; /* skip newline */</span></a>
|
|
<a name="2520"><span class="lineNum"> 2520 </span><span class="lineNoCov"> 0 : goto next_alias_char; /* and get next character */</span></a>
|
|
<a name="2521"><span class="lineNum"> 2521 </span> : }</a>
|
|
<a name="2522"><span class="lineNum"> 2522 </span> : else</a>
|
|
<a name="2523"><span class="lineNum"> 2523 </span> : #endif </a>
|
|
<a name="2524"><span class="lineNum"> 2524 </span> : goto restart_read;</a>
|
|
<a name="2525"><span class="lineNum"> 2525 </span> : }</a>
|
|
<a name="2526"><span class="lineNum"> 2526 </span> : </a>
|
|
<a name="2527"><span class="lineNum"> 2527 </span><span class="lineCov">16662975607 : if (uc == 0 && shell_input_line_terminator == EOF)</span></a>
|
|
<a name="2528"><span class="lineNum"> 2528 </span><span class="lineCov"> 866436 : return ((shell_input_line_index != 0) ? '\n' : EOF);</span></a>
|
|
<a name="2529"><span class="lineNum"> 2529 </span> : </a>
|
|
<a name="2530"><span class="lineNum"> 2530 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="2531"><span class="lineNum"> 2531 </span> : /* We already know that we are not parsing an alias expansion because of the</a>
|
|
<a name="2532"><span class="lineNum"> 2532 </span> : check for expanding_alias() above. This knows how parse_and_execute</a>
|
|
<a name="2533"><span class="lineNum"> 2533 </span> : handles switching to st_string input while an alias is being expanded,</a>
|
|
<a name="2534"><span class="lineNum"> 2534 </span> : hence the check for pushed_string_list without pushed_string_list->expander</a>
|
|
<a name="2535"><span class="lineNum"> 2535 </span> : and the check for PSH_SOURCE as pushed_string_list->flags.</a>
|
|
<a name="2536"><span class="lineNum"> 2536 </span> : parse_and_execute and parse_string both change the input type to st_string</a>
|
|
<a name="2537"><span class="lineNum"> 2537 </span> : and place the string to be parsed and executed into location.string, so</a>
|
|
<a name="2538"><span class="lineNum"> 2538 </span> : we should not stop reading that until the pointer is '\0'.</a>
|
|
<a name="2539"><span class="lineNum"> 2539 </span> : The check for shell_input_line_terminator may be superfluous.</a>
|
|
<a name="2540"><span class="lineNum"> 2540 </span> : </a>
|
|
<a name="2541"><span class="lineNum"> 2541 </span> : This solves the problem of `.' inside a multi-line alias with embedded</a>
|
|
<a name="2542"><span class="lineNum"> 2542 </span> : newlines executing things out of order. */</a>
|
|
<a name="2543"><span class="lineNum"> 2543 </span><span class="lineCov">16662542389 : if (uc == 0 && bash_input.type == st_string && *bash_input.location.string &&</span></a>
|
|
<a name="2544"><span class="lineNum"> 2544 </span><span class="lineNoCov"> 0 : pushed_string_list && pushed_string_list->flags == PSH_SOURCE &&</span></a>
|
|
<a name="2545"><span class="lineNum"> 2545 </span><span class="lineNoCov"> 0 : shell_input_line_terminator == 0)</span></a>
|
|
<a name="2546"><span class="lineNum"> 2546 </span> : {</a>
|
|
<a name="2547"><span class="lineNum"> 2547 </span><span class="lineNoCov"> 0 : shell_input_line_index = 0;</span></a>
|
|
<a name="2548"><span class="lineNum"> 2548 </span><span class="lineNoCov"> 0 : goto restart_read;</span></a>
|
|
<a name="2549"><span class="lineNum"> 2549 </span> : }</a>
|
|
<a name="2550"><span class="lineNum"> 2550 </span> : #endif</a>
|
|
<a name="2551"><span class="lineNum"> 2551 </span> : </a>
|
|
<a name="2552"><span class="lineNum"> 2552 </span><span class="lineCov">16662542389 : return (uc);</span></a>
|
|
<a name="2553"><span class="lineNum"> 2553 </span> : }</a>
|
|
<a name="2554"><span class="lineNum"> 2554 </span> : </a>
|
|
<a name="2555"><span class="lineNum"> 2555 </span> : /* Put C back into the input for the shell. This might need changes for</a>
|
|
<a name="2556"><span class="lineNum"> 2556 </span> : HANDLE_MULTIBYTE around EOLs. Since we (currently) never push back a</a>
|
|
<a name="2557"><span class="lineNum"> 2557 </span> : character different than we read, shell_input_line_property doesn't need</a>
|
|
<a name="2558"><span class="lineNum"> 2558 </span> : to change when manipulating shell_input_line. The define for</a>
|
|
<a name="2559"><span class="lineNum"> 2559 </span> : last_shell_getc_is_singlebyte should take care of it, though. */</a>
|
|
<a name="2560"><span class="lineNum"> 2560 </span> : static void</a>
|
|
<a name="2561"><span class="lineNum"> 2561 </span> : shell_ungetc (c)</a>
|
|
<a name="2562"><span class="lineNum"> 2562 </span> : int c;</a>
|
|
<a name="2563"><span class="lineNum"> 2563 </span> : {</a>
|
|
<a name="2564"><span class="lineNum"> 2564 </span><span class="lineCov"> 1684210839 : if (shell_input_line && shell_input_line_index)</span></a>
|
|
<a name="2565"><span class="lineNum"> 2565 </span><span class="lineCov"> 1684210616 : shell_input_line[--shell_input_line_index] = c;</span></a>
|
|
<a name="2566"><span class="lineNum"> 2566 </span> : else</a>
|
|
<a name="2567"><span class="lineNum"> 2567 </span><span class="lineCov"> 223 : eol_ungetc_lookahead = c;</span></a>
|
|
<a name="2568"><span class="lineNum"> 2568 </span> : }</a>
|
|
<a name="2569"><span class="lineNum"> 2569 </span> : </a>
|
|
<a name="2570"><span class="lineNum"> 2570 </span> : char *</a>
|
|
<a name="2571"><span class="lineNum"> 2571 </span><span class="lineNoCov"> 0 : parser_remaining_input ()</span></a>
|
|
<a name="2572"><span class="lineNum"> 2572 </span> : {</a>
|
|
<a name="2573"><span class="lineNum"> 2573 </span><span class="lineNoCov"> 0 : if (shell_input_line == 0)</span></a>
|
|
<a name="2574"><span class="lineNum"> 2574 </span> : return 0;</a>
|
|
<a name="2575"><span class="lineNum"> 2575 </span><span class="lineNoCov"> 0 : if (shell_input_line_index < 0 || shell_input_line_index >= shell_input_line_len)</span></a>
|
|
<a name="2576"><span class="lineNum"> 2576 </span> : return ""; /* XXX */</a>
|
|
<a name="2577"><span class="lineNum"> 2577 </span><span class="lineNoCov"> 0 : return (shell_input_line + shell_input_line_index);</span></a>
|
|
<a name="2578"><span class="lineNum"> 2578 </span> : }</a>
|
|
<a name="2579"><span class="lineNum"> 2579 </span> : </a>
|
|
<a name="2580"><span class="lineNum"> 2580 </span> : #ifdef INCLUDE_UNUSED</a>
|
|
<a name="2581"><span class="lineNum"> 2581 </span> : /* Back the input pointer up by one, effectively `ungetting' a character. */</a>
|
|
<a name="2582"><span class="lineNum"> 2582 </span> : static void</a>
|
|
<a name="2583"><span class="lineNum"> 2583 </span> : shell_ungetchar ()</a>
|
|
<a name="2584"><span class="lineNum"> 2584 </span> : {</a>
|
|
<a name="2585"><span class="lineNum"> 2585 </span> : if (shell_input_line && shell_input_line_index)</a>
|
|
<a name="2586"><span class="lineNum"> 2586 </span> : shell_input_line_index--;</a>
|
|
<a name="2587"><span class="lineNum"> 2587 </span> : }</a>
|
|
<a name="2588"><span class="lineNum"> 2588 </span> : #endif</a>
|
|
<a name="2589"><span class="lineNum"> 2589 </span> : </a>
|
|
<a name="2590"><span class="lineNum"> 2590 </span> : /* Discard input until CHARACTER is seen, then push that character back</a>
|
|
<a name="2591"><span class="lineNum"> 2591 </span> : onto the input stream. */</a>
|
|
<a name="2592"><span class="lineNum"> 2592 </span> : static void</a>
|
|
<a name="2593"><span class="lineNum"> 2593 </span><span class="lineCov"> 153743623 : discard_until (character)</span></a>
|
|
<a name="2594"><span class="lineNum"> 2594 </span> : int character;</a>
|
|
<a name="2595"><span class="lineNum"> 2595 </span> : {</a>
|
|
<a name="2596"><span class="lineNum"> 2596 </span><span class="lineCov"> 153743623 : int c;</span></a>
|
|
<a name="2597"><span class="lineNum"> 2597 </span> : </a>
|
|
<a name="2598"><span class="lineNum"> 2598 </span><span class="lineCov"> 4934545329 : while ((c = shell_getc (0)) != EOF && c != character)</span></a>
|
|
<a name="2599"><span class="lineNum"> 2599 </span><span class="lineCov"> 4780801706 : ;</span></a>
|
|
<a name="2600"><span class="lineNum"> 2600 </span> : </a>
|
|
<a name="2601"><span class="lineNum"> 2601 </span><span class="lineCov"> 153743623 : if (c != EOF)</span></a>
|
|
<a name="2602"><span class="lineNum"> 2602 </span><span class="lineCov"> 153743623 : shell_ungetc (c);</span></a>
|
|
<a name="2603"><span class="lineNum"> 2603 </span><span class="lineCov"> 153743623 : }</span></a>
|
|
<a name="2604"><span class="lineNum"> 2604 </span> : </a>
|
|
<a name="2605"><span class="lineNum"> 2605 </span> : void</a>
|
|
<a name="2606"><span class="lineNum"> 2606 </span><span class="lineNoCov"> 0 : execute_variable_command (command, vname)</span></a>
|
|
<a name="2607"><span class="lineNum"> 2607 </span> : char *command, *vname;</a>
|
|
<a name="2608"><span class="lineNum"> 2608 </span> : {</a>
|
|
<a name="2609"><span class="lineNum"> 2609 </span><span class="lineNoCov"> 0 : char *last_lastarg;</span></a>
|
|
<a name="2610"><span class="lineNum"> 2610 </span><span class="lineNoCov"> 0 : sh_parser_state_t ps;</span></a>
|
|
<a name="2611"><span class="lineNum"> 2611 </span> : </a>
|
|
<a name="2612"><span class="lineNum"> 2612 </span><span class="lineNoCov"> 0 : save_parser_state (&ps);</span></a>
|
|
<a name="2613"><span class="lineNum"> 2613 </span><span class="lineNoCov"> 0 : last_lastarg = get_string_value ("_");</span></a>
|
|
<a name="2614"><span class="lineNum"> 2614 </span><span class="lineNoCov"> 0 : if (last_lastarg)</span></a>
|
|
<a name="2615"><span class="lineNum"> 2615 </span><span class="lineNoCov"> 0 : last_lastarg = savestring (last_lastarg);</span></a>
|
|
<a name="2616"><span class="lineNum"> 2616 </span> : </a>
|
|
<a name="2617"><span class="lineNum"> 2617 </span><span class="lineNoCov"> 0 : parse_and_execute (savestring (command), vname, SEVAL_NONINT|SEVAL_NOHIST);</span></a>
|
|
<a name="2618"><span class="lineNum"> 2618 </span> : </a>
|
|
<a name="2619"><span class="lineNum"> 2619 </span><span class="lineNoCov"> 0 : restore_parser_state (&ps);</span></a>
|
|
<a name="2620"><span class="lineNum"> 2620 </span><span class="lineNoCov"> 0 : bind_variable ("_", last_lastarg, 0);</span></a>
|
|
<a name="2621"><span class="lineNum"> 2621 </span><span class="lineNoCov"> 0 : FREE (last_lastarg);</span></a>
|
|
<a name="2622"><span class="lineNum"> 2622 </span> : </a>
|
|
<a name="2623"><span class="lineNum"> 2623 </span><span class="lineNoCov"> 0 : if (token_to_read == '\n') /* reset_parser was called */</span></a>
|
|
<a name="2624"><span class="lineNum"> 2624 </span><span class="lineNoCov"> 0 : token_to_read = 0;</span></a>
|
|
<a name="2625"><span class="lineNum"> 2625 </span><span class="lineNoCov"> 0 : }</span></a>
|
|
<a name="2626"><span class="lineNum"> 2626 </span> : </a>
|
|
<a name="2627"><span class="lineNum"> 2627 </span> : void</a>
|
|
<a name="2628"><span class="lineNum"> 2628 </span><span class="lineNoCov"> 0 : push_token (x)</span></a>
|
|
<a name="2629"><span class="lineNum"> 2629 </span> : int x;</a>
|
|
<a name="2630"><span class="lineNum"> 2630 </span> : {</a>
|
|
<a name="2631"><span class="lineNum"> 2631 </span><span class="lineNoCov"> 0 : two_tokens_ago = token_before_that;</span></a>
|
|
<a name="2632"><span class="lineNum"> 2632 </span><span class="lineNoCov"> 0 : token_before_that = last_read_token;</span></a>
|
|
<a name="2633"><span class="lineNum"> 2633 </span><span class="lineNoCov"> 0 : last_read_token = current_token;</span></a>
|
|
<a name="2634"><span class="lineNum"> 2634 </span> : </a>
|
|
<a name="2635"><span class="lineNum"> 2635 </span><span class="lineNoCov"> 0 : current_token = x;</span></a>
|
|
<a name="2636"><span class="lineNum"> 2636 </span><span class="lineNoCov"> 0 : }</span></a>
|
|
<a name="2637"><span class="lineNum"> 2637 </span> : </a>
|
|
<a name="2638"><span class="lineNum"> 2638 </span> : /* Place to remember the token. We try to keep the buffer</a>
|
|
<a name="2639"><span class="lineNum"> 2639 </span> : at a reasonable size, but it can grow. */</a>
|
|
<a name="2640"><span class="lineNum"> 2640 </span> : static char *token = (char *)NULL;</a>
|
|
<a name="2641"><span class="lineNum"> 2641 </span> : </a>
|
|
<a name="2642"><span class="lineNum"> 2642 </span> : /* Current size of the token buffer. */</a>
|
|
<a name="2643"><span class="lineNum"> 2643 </span> : static int token_buffer_size;</a>
|
|
<a name="2644"><span class="lineNum"> 2644 </span> : </a>
|
|
<a name="2645"><span class="lineNum"> 2645 </span> : /* Command to read_token () explaining what we want it to do. */</a>
|
|
<a name="2646"><span class="lineNum"> 2646 </span> : #define READ 0</a>
|
|
<a name="2647"><span class="lineNum"> 2647 </span> : #define RESET 1</a>
|
|
<a name="2648"><span class="lineNum"> 2648 </span> : #define prompt_is_ps1 \</a>
|
|
<a name="2649"><span class="lineNum"> 2649 </span> : (!prompt_string_pointer || prompt_string_pointer == &ps1_prompt)</a>
|
|
<a name="2650"><span class="lineNum"> 2650 </span> : </a>
|
|
<a name="2651"><span class="lineNum"> 2651 </span> : /* Function for yyparse to call. yylex keeps track of</a>
|
|
<a name="2652"><span class="lineNum"> 2652 </span> : the last two tokens read, and calls read_token. */</a>
|
|
<a name="2653"><span class="lineNum"> 2653 </span> : static int</a>
|
|
<a name="2654"><span class="lineNum"> 2654 </span><span class="lineCov"> 2261648820 : yylex ()</span></a>
|
|
<a name="2655"><span class="lineNum"> 2655 </span> : {</a>
|
|
<a name="2656"><span class="lineNum"> 2656 </span><span class="lineCov"> 2261648820 : if (interactive && (current_token == 0 || current_token == '\n'))</span></a>
|
|
<a name="2657"><span class="lineNum"> 2657 </span> : {</a>
|
|
<a name="2658"><span class="lineNum"> 2658 </span> : /* Before we print a prompt, we might have to check mailboxes.</a>
|
|
<a name="2659"><span class="lineNum"> 2659 </span> : We do this only if it is time to do so. Notice that only here</a>
|
|
<a name="2660"><span class="lineNum"> 2660 </span> : is the mail alarm reset; nothing takes place in check_mail ()</a>
|
|
<a name="2661"><span class="lineNum"> 2661 </span> : except the checking of mail. Please don't change this. */</a>
|
|
<a name="2662"><span class="lineNum"> 2662 </span><span class="lineNoCov"> 0 : if (prompt_is_ps1 && parse_and_execute_level == 0 && time_to_check_mail ())</span></a>
|
|
<a name="2663"><span class="lineNum"> 2663 </span> : {</a>
|
|
<a name="2664"><span class="lineNum"> 2664 </span><span class="lineNoCov"> 0 : check_mail ();</span></a>
|
|
<a name="2665"><span class="lineNum"> 2665 </span><span class="lineNoCov"> 0 : reset_mail_timer ();</span></a>
|
|
<a name="2666"><span class="lineNum"> 2666 </span> : }</a>
|
|
<a name="2667"><span class="lineNum"> 2667 </span> : </a>
|
|
<a name="2668"><span class="lineNum"> 2668 </span> : /* Avoid printing a prompt if we're not going to read anything, e.g.</a>
|
|
<a name="2669"><span class="lineNum"> 2669 </span> : after resetting the parser with read_token (RESET). */</a>
|
|
<a name="2670"><span class="lineNum"> 2670 </span><span class="lineNoCov"> 0 : if (token_to_read == 0 && SHOULD_PROMPT ())</span></a>
|
|
<a name="2671"><span class="lineNum"> 2671 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="2672"><span class="lineNum"> 2672 </span> : }</a>
|
|
<a name="2673"><span class="lineNum"> 2673 </span> : </a>
|
|
<a name="2674"><span class="lineNum"> 2674 </span><span class="lineCov"> 2261648820 : two_tokens_ago = token_before_that;</span></a>
|
|
<a name="2675"><span class="lineNum"> 2675 </span><span class="lineCov"> 2261648820 : token_before_that = last_read_token;</span></a>
|
|
<a name="2676"><span class="lineNum"> 2676 </span><span class="lineCov"> 2261648820 : last_read_token = current_token;</span></a>
|
|
<a name="2677"><span class="lineNum"> 2677 </span><span class="lineCov"> 2261648820 : current_token = read_token (READ);</span></a>
|
|
<a name="2678"><span class="lineNum"> 2678 </span> : </a>
|
|
<a name="2679"><span class="lineNum"> 2679 </span><span class="lineCov"> 2261648614 : if ((parser_state & PST_EOFTOKEN) && current_token == shell_eof_token)</span></a>
|
|
<a name="2680"><span class="lineNum"> 2680 </span> : {</a>
|
|
<a name="2681"><span class="lineNum"> 2681 </span><span class="lineCov"> 63 : current_token = yacc_EOF;</span></a>
|
|
<a name="2682"><span class="lineNum"> 2682 </span><span class="lineCov"> 63 : if (bash_input.type == st_string)</span></a>
|
|
<a name="2683"><span class="lineNum"> 2683 </span><span class="lineCov"> 63 : rewind_input_string ();</span></a>
|
|
<a name="2684"><span class="lineNum"> 2684 </span> : }</a>
|
|
<a name="2685"><span class="lineNum"> 2685 </span><span class="lineCov"> 2261648614 : parser_state &= ~PST_EOFTOKEN;</span></a>
|
|
<a name="2686"><span class="lineNum"> 2686 </span> : </a>
|
|
<a name="2687"><span class="lineNum"> 2687 </span><span class="lineCov"> 2261648614 : return (current_token);</span></a>
|
|
<a name="2688"><span class="lineNum"> 2688 </span> : }</a>
|
|
<a name="2689"><span class="lineNum"> 2689 </span> : </a>
|
|
<a name="2690"><span class="lineNum"> 2690 </span> : /* When non-zero, we have read the required tokens</a>
|
|
<a name="2691"><span class="lineNum"> 2691 </span> : which allow ESAC to be the next one read. */</a>
|
|
<a name="2692"><span class="lineNum"> 2692 </span> : static int esacs_needed_count;</a>
|
|
<a name="2693"><span class="lineNum"> 2693 </span> : </a>
|
|
<a name="2694"><span class="lineNum"> 2694 </span> : static void</a>
|
|
<a name="2695"><span class="lineNum"> 2695 </span><span class="lineCov"> 285 : push_heredoc (r)</span></a>
|
|
<a name="2696"><span class="lineNum"> 2696 </span> : REDIRECT *r;</a>
|
|
<a name="2697"><span class="lineNum"> 2697 </span> : {</a>
|
|
<a name="2698"><span class="lineNum"> 2698 </span><span class="lineCov"> 285 : if (need_here_doc >= HEREDOC_MAX)</span></a>
|
|
<a name="2699"><span class="lineNum"> 2699 </span> : {</a>
|
|
<a name="2700"><span class="lineNum"> 2700 </span><span class="lineNoCov"> 0 : last_command_exit_value = EX_BADUSAGE;</span></a>
|
|
<a name="2701"><span class="lineNum"> 2701 </span><span class="lineNoCov"> 0 : need_here_doc = 0;</span></a>
|
|
<a name="2702"><span class="lineNum"> 2702 </span><span class="lineNoCov"> 0 : report_syntax_error (_("maximum here-document count exceeded"));</span></a>
|
|
<a name="2703"><span class="lineNum"> 2703 </span><span class="lineNoCov"> 0 : reset_parser ();</span></a>
|
|
<a name="2704"><span class="lineNum"> 2704 </span><span class="lineNoCov"> 0 : exit_shell (last_command_exit_value);</span></a>
|
|
<a name="2705"><span class="lineNum"> 2705 </span> : }</a>
|
|
<a name="2706"><span class="lineNum"> 2706 </span><span class="lineCov"> 285 : redir_stack[need_here_doc++] = r;</span></a>
|
|
<a name="2707"><span class="lineNum"> 2707 </span><span class="lineCov"> 285 : }</span></a>
|
|
<a name="2708"><span class="lineNum"> 2708 </span> : </a>
|
|
<a name="2709"><span class="lineNum"> 2709 </span> : void</a>
|
|
<a name="2710"><span class="lineNum"> 2710 </span><span class="lineCov"> 252 : gather_here_documents ()</span></a>
|
|
<a name="2711"><span class="lineNum"> 2711 </span> : {</a>
|
|
<a name="2712"><span class="lineNum"> 2712 </span><span class="lineCov"> 252 : int r;</span></a>
|
|
<a name="2713"><span class="lineNum"> 2713 </span> : </a>
|
|
<a name="2714"><span class="lineNum"> 2714 </span><span class="lineCov"> 252 : r = 0;</span></a>
|
|
<a name="2715"><span class="lineNum"> 2715 </span><span class="lineCov"> 252 : here_doc_first_line = 1;</span></a>
|
|
<a name="2716"><span class="lineNum"> 2716 </span><span class="lineCov"> 537 : while (need_here_doc > 0)</span></a>
|
|
<a name="2717"><span class="lineNum"> 2717 </span> : {</a>
|
|
<a name="2718"><span class="lineNum"> 2718 </span><span class="lineCov"> 285 : parser_state |= PST_HEREDOC;</span></a>
|
|
<a name="2719"><span class="lineNum"> 2719 </span><span class="lineCov"> 285 : make_here_document (redir_stack[r++], line_number);</span></a>
|
|
<a name="2720"><span class="lineNum"> 2720 </span><span class="lineCov"> 285 : parser_state &= ~PST_HEREDOC;</span></a>
|
|
<a name="2721"><span class="lineNum"> 2721 </span><span class="lineCov"> 285 : need_here_doc--;</span></a>
|
|
<a name="2722"><span class="lineNum"> 2722 </span><span class="lineCov"> 285 : redir_stack[r - 1] = 0; /* XXX */</span></a>
|
|
<a name="2723"><span class="lineNum"> 2723 </span> : }</a>
|
|
<a name="2724"><span class="lineNum"> 2724 </span><span class="lineCov"> 252 : here_doc_first_line = 0; /* just in case */</span></a>
|
|
<a name="2725"><span class="lineNum"> 2725 </span><span class="lineCov"> 252 : }</span></a>
|
|
<a name="2726"><span class="lineNum"> 2726 </span> : </a>
|
|
<a name="2727"><span class="lineNum"> 2727 </span> : /* When non-zero, an open-brace used to create a group is awaiting a close</a>
|
|
<a name="2728"><span class="lineNum"> 2728 </span> : brace partner. */</a>
|
|
<a name="2729"><span class="lineNum"> 2729 </span> : static int open_brace_count;</a>
|
|
<a name="2730"><span class="lineNum"> 2730 </span> : </a>
|
|
<a name="2731"><span class="lineNum"> 2731 </span> : /* In the following three macros, `token' is always last_read_token */</a>
|
|
<a name="2732"><span class="lineNum"> 2732 </span> : </a>
|
|
<a name="2733"><span class="lineNum"> 2733 </span> : /* Are we in the middle of parsing a redirection where we are about to read</a>
|
|
<a name="2734"><span class="lineNum"> 2734 </span> : a word? This is used to make sure alias expansion doesn't happen in the</a>
|
|
<a name="2735"><span class="lineNum"> 2735 </span> : middle of a redirection, even though we're parsing a simple command. */</a>
|
|
<a name="2736"><span class="lineNum"> 2736 </span> : #define parsing_redirection(token) \</a>
|
|
<a name="2737"><span class="lineNum"> 2737 </span> : (token == '<' || token == '>' || \</a>
|
|
<a name="2738"><span class="lineNum"> 2738 </span> : token == GREATER_GREATER || token == GREATER_BAR || \</a>
|
|
<a name="2739"><span class="lineNum"> 2739 </span> : token == LESS_GREATER || token == LESS_LESS_MINUS || \</a>
|
|
<a name="2740"><span class="lineNum"> 2740 </span> : token == LESS_LESS || token == LESS_LESS_LESS || \</a>
|
|
<a name="2741"><span class="lineNum"> 2741 </span> : token == LESS_AND || token == GREATER_AND || token == AND_GREATER)</a>
|
|
<a name="2742"><span class="lineNum"> 2742 </span> : </a>
|
|
<a name="2743"><span class="lineNum"> 2743 </span> : /* Is `token' one that will allow a WORD to be read in a command position?</a>
|
|
<a name="2744"><span class="lineNum"> 2744 </span> : We can read a simple command name on which we should attempt alias expansion</a>
|
|
<a name="2745"><span class="lineNum"> 2745 </span> : or we can read an assignment statement. */</a>
|
|
<a name="2746"><span class="lineNum"> 2746 </span> : #define command_token_position(token) \</a>
|
|
<a name="2747"><span class="lineNum"> 2747 </span> : (((token) == ASSIGNMENT_WORD) || \</a>
|
|
<a name="2748"><span class="lineNum"> 2748 </span> : ((parser_state&PST_REDIRLIST) && parsing_redirection(token) == 0) || \</a>
|
|
<a name="2749"><span class="lineNum"> 2749 </span> : ((token) != SEMI_SEMI && (token) != SEMI_AND && (token) != SEMI_SEMI_AND && reserved_word_acceptable(token)))</a>
|
|
<a name="2750"><span class="lineNum"> 2750 </span> : </a>
|
|
<a name="2751"><span class="lineNum"> 2751 </span> : /* Are we in a position where we can read an assignment statement? */</a>
|
|
<a name="2752"><span class="lineNum"> 2752 </span> : #define assignment_acceptable(token) \</a>
|
|
<a name="2753"><span class="lineNum"> 2753 </span> : (command_token_position(token) && ((parser_state & PST_CASEPAT) == 0))</a>
|
|
<a name="2754"><span class="lineNum"> 2754 </span> : </a>
|
|
<a name="2755"><span class="lineNum"> 2755 </span> : /* Check to see if TOKEN is a reserved word and return the token</a>
|
|
<a name="2756"><span class="lineNum"> 2756 </span> : value if it is. */</a>
|
|
<a name="2757"><span class="lineNum"> 2757 </span> : #define CHECK_FOR_RESERVED_WORD(tok) \</a>
|
|
<a name="2758"><span class="lineNum"> 2758 </span> : do { \</a>
|
|
<a name="2759"><span class="lineNum"> 2759 </span> : if (!dollar_present && !quoted && \</a>
|
|
<a name="2760"><span class="lineNum"> 2760 </span> : reserved_word_acceptable (last_read_token)) \</a>
|
|
<a name="2761"><span class="lineNum"> 2761 </span> : { \</a>
|
|
<a name="2762"><span class="lineNum"> 2762 </span> : int i; \</a>
|
|
<a name="2763"><span class="lineNum"> 2763 </span> : for (i = 0; word_token_alist[i].word != (char *)NULL; i++) \</a>
|
|
<a name="2764"><span class="lineNum"> 2764 </span> : if (STREQ (tok, word_token_alist[i].word)) \</a>
|
|
<a name="2765"><span class="lineNum"> 2765 </span> : { \</a>
|
|
<a name="2766"><span class="lineNum"> 2766 </span> : if ((parser_state & PST_CASEPAT) && (word_token_alist[i].token != ESAC)) \</a>
|
|
<a name="2767"><span class="lineNum"> 2767 </span> : break; \</a>
|
|
<a name="2768"><span class="lineNum"> 2768 </span> : if (word_token_alist[i].token == TIME && time_command_acceptable () == 0) \</a>
|
|
<a name="2769"><span class="lineNum"> 2769 </span> : break; \</a>
|
|
<a name="2770"><span class="lineNum"> 2770 </span> : if ((parser_state & PST_CASEPAT) && last_read_token == '|' && word_token_alist[i].token == ESAC) \</a>
|
|
<a name="2771"><span class="lineNum"> 2771 </span> : break; /* Posix grammar rule 4 */ \</a>
|
|
<a name="2772"><span class="lineNum"> 2772 </span> : if (word_token_alist[i].token == ESAC) \</a>
|
|
<a name="2773"><span class="lineNum"> 2773 </span> : parser_state &= ~(PST_CASEPAT|PST_CASESTMT); \</a>
|
|
<a name="2774"><span class="lineNum"> 2774 </span> : else if (word_token_alist[i].token == CASE) \</a>
|
|
<a name="2775"><span class="lineNum"> 2775 </span> : parser_state |= PST_CASESTMT; \</a>
|
|
<a name="2776"><span class="lineNum"> 2776 </span> : else if (word_token_alist[i].token == COND_END) \</a>
|
|
<a name="2777"><span class="lineNum"> 2777 </span> : parser_state &= ~(PST_CONDCMD|PST_CONDEXPR); \</a>
|
|
<a name="2778"><span class="lineNum"> 2778 </span> : else if (word_token_alist[i].token == COND_START) \</a>
|
|
<a name="2779"><span class="lineNum"> 2779 </span> : parser_state |= PST_CONDCMD; \</a>
|
|
<a name="2780"><span class="lineNum"> 2780 </span> : else if (word_token_alist[i].token == '{') \</a>
|
|
<a name="2781"><span class="lineNum"> 2781 </span> : open_brace_count++; \</a>
|
|
<a name="2782"><span class="lineNum"> 2782 </span> : else if (word_token_alist[i].token == '}' && open_brace_count) \</a>
|
|
<a name="2783"><span class="lineNum"> 2783 </span> : open_brace_count--; \</a>
|
|
<a name="2784"><span class="lineNum"> 2784 </span> : return (word_token_alist[i].token); \</a>
|
|
<a name="2785"><span class="lineNum"> 2785 </span> : } \</a>
|
|
<a name="2786"><span class="lineNum"> 2786 </span> : } \</a>
|
|
<a name="2787"><span class="lineNum"> 2787 </span> : } while (0)</a>
|
|
<a name="2788"><span class="lineNum"> 2788 </span> : </a>
|
|
<a name="2789"><span class="lineNum"> 2789 </span> : #if defined (ALIAS)</a>
|
|
<a name="2790"><span class="lineNum"> 2790 </span> : </a>
|
|
<a name="2791"><span class="lineNum"> 2791 </span> : /* OK, we have a token. Let's try to alias expand it, if (and only if)</a>
|
|
<a name="2792"><span class="lineNum"> 2792 </span> : it's eligible.</a>
|
|
<a name="2793"><span class="lineNum"> 2793 </span> : </a>
|
|
<a name="2794"><span class="lineNum"> 2794 </span> : It is eligible for expansion if EXPAND_ALIASES is set, and</a>
|
|
<a name="2795"><span class="lineNum"> 2795 </span> : the token is unquoted and the last token read was a command</a>
|
|
<a name="2796"><span class="lineNum"> 2796 </span> : separator (or expand_next_token is set), and we are currently</a>
|
|
<a name="2797"><span class="lineNum"> 2797 </span> : processing an alias (pushed_string_list is non-empty) and this</a>
|
|
<a name="2798"><span class="lineNum"> 2798 </span> : token is not the same as the current or any previously</a>
|
|
<a name="2799"><span class="lineNum"> 2799 </span> : processed alias.</a>
|
|
<a name="2800"><span class="lineNum"> 2800 </span> : </a>
|
|
<a name="2801"><span class="lineNum"> 2801 </span> : Special cases that disqualify:</a>
|
|
<a name="2802"><span class="lineNum"> 2802 </span> : In a pattern list in a case statement (parser_state & PST_CASEPAT). */</a>
|
|
<a name="2803"><span class="lineNum"> 2803 </span> : </a>
|
|
<a name="2804"><span class="lineNum"> 2804 </span> : static char *</a>
|
|
<a name="2805"><span class="lineNum"> 2805 </span><span class="lineNoCov"> 0 : mk_alexpansion (s)</span></a>
|
|
<a name="2806"><span class="lineNum"> 2806 </span> : char *s;</a>
|
|
<a name="2807"><span class="lineNum"> 2807 </span> : {</a>
|
|
<a name="2808"><span class="lineNum"> 2808 </span><span class="lineNoCov"> 0 : int l;</span></a>
|
|
<a name="2809"><span class="lineNum"> 2809 </span><span class="lineNoCov"> 0 : char *r;</span></a>
|
|
<a name="2810"><span class="lineNum"> 2810 </span> : </a>
|
|
<a name="2811"><span class="lineNum"> 2811 </span><span class="lineNoCov"> 0 : l = strlen (s);</span></a>
|
|
<a name="2812"><span class="lineNum"> 2812 </span><span class="lineNoCov"> 0 : r = xmalloc (l + 2);</span></a>
|
|
<a name="2813"><span class="lineNum"> 2813 </span><span class="lineNoCov"> 0 : strcpy (r, s);</span></a>
|
|
<a name="2814"><span class="lineNum"> 2814 </span> : /* If the last character in the alias is a newline, don't add a trailing</a>
|
|
<a name="2815"><span class="lineNum"> 2815 </span> : space to the expansion. Works with shell_getc above. */</a>
|
|
<a name="2816"><span class="lineNum"> 2816 </span><span class="lineNoCov"> 0 : if (r[l - 1] != ' ' && r[l - 1] != '\n' && shellmeta(r[l - 1]) == 0)</span></a>
|
|
<a name="2817"><span class="lineNum"> 2817 </span><span class="lineNoCov"> 0 : r[l++] = ' ';</span></a>
|
|
<a name="2818"><span class="lineNum"> 2818 </span><span class="lineNoCov"> 0 : r[l] = '\0';</span></a>
|
|
<a name="2819"><span class="lineNum"> 2819 </span><span class="lineNoCov"> 0 : return r;</span></a>
|
|
<a name="2820"><span class="lineNum"> 2820 </span> : }</a>
|
|
<a name="2821"><span class="lineNum"> 2821 </span> : </a>
|
|
<a name="2822"><span class="lineNum"> 2822 </span> : static int</a>
|
|
<a name="2823"><span class="lineNum"> 2823 </span><span class="lineNoCov"> 0 : alias_expand_token (tokstr)</span></a>
|
|
<a name="2824"><span class="lineNum"> 2824 </span> : char *tokstr;</a>
|
|
<a name="2825"><span class="lineNum"> 2825 </span> : {</a>
|
|
<a name="2826"><span class="lineNum"> 2826 </span><span class="lineNoCov"> 0 : char *expanded;</span></a>
|
|
<a name="2827"><span class="lineNum"> 2827 </span><span class="lineNoCov"> 0 : alias_t *ap;</span></a>
|
|
<a name="2828"><span class="lineNum"> 2828 </span> : </a>
|
|
<a name="2829"><span class="lineNum"> 2829 </span><span class="lineNoCov"> 0 : if (((parser_state & PST_ALEXPNEXT) || command_token_position (last_read_token)) &&</span></a>
|
|
<a name="2830"><span class="lineNum"> 2830 </span><span class="lineNoCov"> 0 : (parser_state & PST_CASEPAT) == 0)</span></a>
|
|
<a name="2831"><span class="lineNum"> 2831 </span> : {</a>
|
|
<a name="2832"><span class="lineNum"> 2832 </span><span class="lineNoCov"> 0 : ap = find_alias (tokstr);</span></a>
|
|
<a name="2833"><span class="lineNum"> 2833 </span> : </a>
|
|
<a name="2834"><span class="lineNum"> 2834 </span> : /* Currently expanding this token. */</a>
|
|
<a name="2835"><span class="lineNum"> 2835 </span><span class="lineNoCov"> 0 : if (ap && (ap->flags & AL_BEINGEXPANDED))</span></a>
|
|
<a name="2836"><span class="lineNum"> 2836 </span> : return (NO_EXPANSION);</a>
|
|
<a name="2837"><span class="lineNum"> 2837 </span> : </a>
|
|
<a name="2838"><span class="lineNum"> 2838 </span> : /* mk_alexpansion puts an extra space on the end of the alias expansion,</a>
|
|
<a name="2839"><span class="lineNum"> 2839 </span> : so the lookahead by the parser works right. If this gets changed,</a>
|
|
<a name="2840"><span class="lineNum"> 2840 </span> : make sure the code in shell_getc that deals with reaching the end of</a>
|
|
<a name="2841"><span class="lineNum"> 2841 </span> : an expanded alias is changed with it. */</a>
|
|
<a name="2842"><span class="lineNum"> 2842 </span><span class="lineNoCov"> 0 : expanded = ap ? mk_alexpansion (ap->value) : (char *)NULL;</span></a>
|
|
<a name="2843"><span class="lineNum"> 2843 </span> : </a>
|
|
<a name="2844"><span class="lineNum"> 2844 </span><span class="lineNoCov"> 0 : if (expanded)</span></a>
|
|
<a name="2845"><span class="lineNum"> 2845 </span> : {</a>
|
|
<a name="2846"><span class="lineNum"> 2846 </span><span class="lineNoCov"> 0 : push_string (expanded, ap->flags & AL_EXPANDNEXT, ap);</span></a>
|
|
<a name="2847"><span class="lineNum"> 2847 </span><span class="lineNoCov"> 0 : return (RE_READ_TOKEN);</span></a>
|
|
<a name="2848"><span class="lineNum"> 2848 </span> : }</a>
|
|
<a name="2849"><span class="lineNum"> 2849 </span> : else</a>
|
|
<a name="2850"><span class="lineNum"> 2850 </span> : /* This is an eligible token that does not have an expansion. */</a>
|
|
<a name="2851"><span class="lineNum"> 2851 </span><span class="lineNoCov"> 0 : return (NO_EXPANSION);</span></a>
|
|
<a name="2852"><span class="lineNum"> 2852 </span> : }</a>
|
|
<a name="2853"><span class="lineNum"> 2853 </span> : return (NO_EXPANSION);</a>
|
|
<a name="2854"><span class="lineNum"> 2854 </span> : }</a>
|
|
<a name="2855"><span class="lineNum"> 2855 </span> : #endif /* ALIAS */</a>
|
|
<a name="2856"><span class="lineNum"> 2856 </span> : </a>
|
|
<a name="2857"><span class="lineNum"> 2857 </span> : static int</a>
|
|
<a name="2858"><span class="lineNum"> 2858 </span> : time_command_acceptable ()</a>
|
|
<a name="2859"><span class="lineNum"> 2859 </span> : {</a>
|
|
<a name="2860"><span class="lineNum"> 2860 </span> : #if defined (COMMAND_TIMING)</a>
|
|
<a name="2861"><span class="lineNum"> 2861 </span> : int i;</a>
|
|
<a name="2862"><span class="lineNum"> 2862 </span> : </a>
|
|
<a name="2863"><span class="lineNum"> 2863 </span> : if (posixly_correct && shell_compatibility_level > 41)</a>
|
|
<a name="2864"><span class="lineNum"> 2864 </span> : {</a>
|
|
<a name="2865"><span class="lineNum"> 2865 </span> : /* Quick check of the rest of the line to find the next token. If it</a>
|
|
<a name="2866"><span class="lineNum"> 2866 </span> : begins with a `-', Posix says to not return `time' as the token.</a>
|
|
<a name="2867"><span class="lineNum"> 2867 </span> : This was interp 267. */</a>
|
|
<a name="2868"><span class="lineNum"> 2868 </span> : i = shell_input_line_index;</a>
|
|
<a name="2869"><span class="lineNum"> 2869 </span> : while (i < shell_input_line_len && (shell_input_line[i] == ' ' || shell_input_line[i] == '\t'))</a>
|
|
<a name="2870"><span class="lineNum"> 2870 </span> : i++;</a>
|
|
<a name="2871"><span class="lineNum"> 2871 </span> : if (shell_input_line[i] == '-')</a>
|
|
<a name="2872"><span class="lineNum"> 2872 </span> : return 0;</a>
|
|
<a name="2873"><span class="lineNum"> 2873 </span> : }</a>
|
|
<a name="2874"><span class="lineNum"> 2874 </span> : </a>
|
|
<a name="2875"><span class="lineNum"> 2875 </span> : switch (last_read_token)</a>
|
|
<a name="2876"><span class="lineNum"> 2876 </span> : {</a>
|
|
<a name="2877"><span class="lineNum"> 2877 </span> : case 0:</a>
|
|
<a name="2878"><span class="lineNum"> 2878 </span> : case ';':</a>
|
|
<a name="2879"><span class="lineNum"> 2879 </span> : case '\n':</a>
|
|
<a name="2880"><span class="lineNum"> 2880 </span> : if (token_before_that == '|')</a>
|
|
<a name="2881"><span class="lineNum"> 2881 </span> : return (0);</a>
|
|
<a name="2882"><span class="lineNum"> 2882 </span> : /* FALLTHROUGH */</a>
|
|
<a name="2883"><span class="lineNum"> 2883 </span> : case AND_AND:</a>
|
|
<a name="2884"><span class="lineNum"> 2884 </span> : case OR_OR:</a>
|
|
<a name="2885"><span class="lineNum"> 2885 </span> : case '&':</a>
|
|
<a name="2886"><span class="lineNum"> 2886 </span> : case WHILE:</a>
|
|
<a name="2887"><span class="lineNum"> 2887 </span> : case DO:</a>
|
|
<a name="2888"><span class="lineNum"> 2888 </span> : case UNTIL:</a>
|
|
<a name="2889"><span class="lineNum"> 2889 </span> : case IF:</a>
|
|
<a name="2890"><span class="lineNum"> 2890 </span> : case THEN:</a>
|
|
<a name="2891"><span class="lineNum"> 2891 </span> : case ELIF:</a>
|
|
<a name="2892"><span class="lineNum"> 2892 </span> : case ELSE:</a>
|
|
<a name="2893"><span class="lineNum"> 2893 </span> : case '{': /* } */</a>
|
|
<a name="2894"><span class="lineNum"> 2894 </span> : case '(': /* )( */</a>
|
|
<a name="2895"><span class="lineNum"> 2895 </span> : case ')': /* only valid in case statement */</a>
|
|
<a name="2896"><span class="lineNum"> 2896 </span> : case BANG: /* ! time pipeline */</a>
|
|
<a name="2897"><span class="lineNum"> 2897 </span> : case TIME: /* time time pipeline */</a>
|
|
<a name="2898"><span class="lineNum"> 2898 </span> : case TIMEOPT: /* time -p time pipeline */</a>
|
|
<a name="2899"><span class="lineNum"> 2899 </span> : case TIMEIGN: /* time -p -- ... */</a>
|
|
<a name="2900"><span class="lineNum"> 2900 </span> : return 1;</a>
|
|
<a name="2901"><span class="lineNum"> 2901 </span> : default:</a>
|
|
<a name="2902"><span class="lineNum"> 2902 </span> : return 0;</a>
|
|
<a name="2903"><span class="lineNum"> 2903 </span> : }</a>
|
|
<a name="2904"><span class="lineNum"> 2904 </span> : #else</a>
|
|
<a name="2905"><span class="lineNum"> 2905 </span> : return 0;</a>
|
|
<a name="2906"><span class="lineNum"> 2906 </span> : #endif /* COMMAND_TIMING */</a>
|
|
<a name="2907"><span class="lineNum"> 2907 </span> : }</a>
|
|
<a name="2908"><span class="lineNum"> 2908 </span> : </a>
|
|
<a name="2909"><span class="lineNum"> 2909 </span> : /* Handle special cases of token recognition:</a>
|
|
<a name="2910"><span class="lineNum"> 2910 </span> : IN is recognized if the last token was WORD and the token</a>
|
|
<a name="2911"><span class="lineNum"> 2911 </span> : before that was FOR or CASE or SELECT.</a>
|
|
<a name="2912"><span class="lineNum"> 2912 </span> : </a>
|
|
<a name="2913"><span class="lineNum"> 2913 </span> : DO is recognized if the last token was WORD and the token</a>
|
|
<a name="2914"><span class="lineNum"> 2914 </span> : before that was FOR or SELECT.</a>
|
|
<a name="2915"><span class="lineNum"> 2915 </span> : </a>
|
|
<a name="2916"><span class="lineNum"> 2916 </span> : ESAC is recognized if the last token caused `esacs_needed_count'</a>
|
|
<a name="2917"><span class="lineNum"> 2917 </span> : to be set</a>
|
|
<a name="2918"><span class="lineNum"> 2918 </span> : </a>
|
|
<a name="2919"><span class="lineNum"> 2919 </span> : `{' is recognized if the last token as WORD and the token</a>
|
|
<a name="2920"><span class="lineNum"> 2920 </span> : before that was FUNCTION, or if we just parsed an arithmetic</a>
|
|
<a name="2921"><span class="lineNum"> 2921 </span> : `for' command.</a>
|
|
<a name="2922"><span class="lineNum"> 2922 </span> : </a>
|
|
<a name="2923"><span class="lineNum"> 2923 </span> : `}' is recognized if there is an unclosed `{' present.</a>
|
|
<a name="2924"><span class="lineNum"> 2924 </span> : </a>
|
|
<a name="2925"><span class="lineNum"> 2925 </span> : `-p' is returned as TIMEOPT if the last read token was TIME.</a>
|
|
<a name="2926"><span class="lineNum"> 2926 </span> : `--' is returned as TIMEIGN if the last read token was TIMEOPT.</a>
|
|
<a name="2927"><span class="lineNum"> 2927 </span> : </a>
|
|
<a name="2928"><span class="lineNum"> 2928 </span> : ']]' is returned as COND_END if the parser is currently parsing</a>
|
|
<a name="2929"><span class="lineNum"> 2929 </span> : a conditional expression ((parser_state & PST_CONDEXPR) != 0)</a>
|
|
<a name="2930"><span class="lineNum"> 2930 </span> : </a>
|
|
<a name="2931"><span class="lineNum"> 2931 </span> : `time' is returned as TIME if and only if it is immediately</a>
|
|
<a name="2932"><span class="lineNum"> 2932 </span> : preceded by one of `;', `\n', `||', `&&', or `&'.</a>
|
|
<a name="2933"><span class="lineNum"> 2933 </span> : */</a>
|
|
<a name="2934"><span class="lineNum"> 2934 </span> : </a>
|
|
<a name="2935"><span class="lineNum"> 2935 </span> : static int</a>
|
|
<a name="2936"><span class="lineNum"> 2936 </span><span class="lineCov"> 1179036241 : special_case_tokens (tokstr)</span></a>
|
|
<a name="2937"><span class="lineNum"> 2937 </span> : char *tokstr;</a>
|
|
<a name="2938"><span class="lineNum"> 2938 </span> : {</a>
|
|
<a name="2939"><span class="lineNum"> 2939 </span><span class="lineCov"> 1179036241 : if ((last_read_token == WORD) &&</span></a>
|
|
<a name="2940"><span class="lineNum"> 2940 </span> : #if defined (SELECT_COMMAND)</a>
|
|
<a name="2941"><span class="lineNum"> 2941 </span><span class="lineCov"> 442940164 : ((token_before_that == FOR) || (token_before_that == CASE) || (token_before_that == SELECT)) &&</span></a>
|
|
<a name="2942"><span class="lineNum"> 2942 </span> : #else</a>
|
|
<a name="2943"><span class="lineNum"> 2943 </span> : ((token_before_that == FOR) || (token_before_that == CASE)) &&</a>
|
|
<a name="2944"><span class="lineNum"> 2944 </span> : #endif</a>
|
|
<a name="2945"><span class="lineNum"> 2945 </span><span class="lineCov"> 25263591 : (tokstr[0] == 'i' && tokstr[1] == 'n' && tokstr[2] == 0))</span></a>
|
|
<a name="2946"><span class="lineNum"> 2946 </span> : {</a>
|
|
<a name="2947"><span class="lineNum"> 2947 </span><span class="lineCov"> 25235144 : if (token_before_that == CASE)</span></a>
|
|
<a name="2948"><span class="lineNum"> 2948 </span> : {</a>
|
|
<a name="2949"><span class="lineNum"> 2949 </span><span class="lineCov"> 15692175 : parser_state |= PST_CASEPAT;</span></a>
|
|
<a name="2950"><span class="lineNum"> 2950 </span><span class="lineCov"> 15692175 : esacs_needed_count++;</span></a>
|
|
<a name="2951"><span class="lineNum"> 2951 </span> : }</a>
|
|
<a name="2952"><span class="lineNum"> 2952 </span><span class="lineCov"> 25235144 : return (IN);</span></a>
|
|
<a name="2953"><span class="lineNum"> 2953 </span> : }</a>
|
|
<a name="2954"><span class="lineNum"> 2954 </span> : </a>
|
|
<a name="2955"><span class="lineNum"> 2955 </span><span class="lineCov"> 1153801097 : if (last_read_token == WORD &&</span></a>
|
|
<a name="2956"><span class="lineNum"> 2956 </span> : #if defined (SELECT_COMMAND)</a>
|
|
<a name="2957"><span class="lineNum"> 2957 </span><span class="lineCov"> 417705020 : (token_before_that == FOR || token_before_that == SELECT) &&</span></a>
|
|
<a name="2958"><span class="lineNum"> 2958 </span> : #else</a>
|
|
<a name="2959"><span class="lineNum"> 2959 </span> : (token_before_that == FOR) &&</a>
|
|
<a name="2960"><span class="lineNum"> 2960 </span> : #endif</a>
|
|
<a name="2961"><span class="lineNum"> 2961 </span><span class="lineCov"> 73 : (tokstr[0] == 'd' && tokstr[1] == 'o' && tokstr[2] == '\0'))</span></a>
|
|
<a name="2962"><span class="lineNum"> 2962 </span> : return (DO);</a>
|
|
<a name="2963"><span class="lineNum"> 2963 </span> : </a>
|
|
<a name="2964"><span class="lineNum"> 2964 </span> : /* Ditto for ESAC in the CASE case.</a>
|
|
<a name="2965"><span class="lineNum"> 2965 </span> : Specifically, this handles "case word in esac", which is a legal</a>
|
|
<a name="2966"><span class="lineNum"> 2966 </span> : construct, certainly because someone will pass an empty arg to the</a>
|
|
<a name="2967"><span class="lineNum"> 2967 </span> : case construct, and we don't want it to barf. Of course, we should</a>
|
|
<a name="2968"><span class="lineNum"> 2968 </span> : insist that the case construct has at least one pattern in it, but</a>
|
|
<a name="2969"><span class="lineNum"> 2969 </span> : the designers disagree. */</a>
|
|
<a name="2970"><span class="lineNum"> 2970 </span><span class="lineCov"> 1153801097 : if (esacs_needed_count)</span></a>
|
|
<a name="2971"><span class="lineNum"> 2971 </span> : {</a>
|
|
<a name="2972"><span class="lineNum"> 2972 </span><span class="lineCov"> 15691575 : esacs_needed_count--;</span></a>
|
|
<a name="2973"><span class="lineNum"> 2973 </span><span class="lineCov"> 15691575 : if (STREQ (tokstr, "esac"))</span></a>
|
|
<a name="2974"><span class="lineNum"> 2974 </span> : {</a>
|
|
<a name="2975"><span class="lineNum"> 2975 </span><span class="lineCov"> 9 : parser_state &= ~PST_CASEPAT;</span></a>
|
|
<a name="2976"><span class="lineNum"> 2976 </span><span class="lineCov"> 9 : return (ESAC);</span></a>
|
|
<a name="2977"><span class="lineNum"> 2977 </span> : }</a>
|
|
<a name="2978"><span class="lineNum"> 2978 </span> : }</a>
|
|
<a name="2979"><span class="lineNum"> 2979 </span> : </a>
|
|
<a name="2980"><span class="lineNum"> 2980 </span> : /* The start of a shell function definition. */</a>
|
|
<a name="2981"><span class="lineNum"> 2981 </span><span class="lineCov"> 1153801088 : if (parser_state & PST_ALLOWOPNBRC)</span></a>
|
|
<a name="2982"><span class="lineNum"> 2982 </span> : {</a>
|
|
<a name="2983"><span class="lineNum"> 2983 </span><span class="lineCov"> 19016144 : parser_state &= ~PST_ALLOWOPNBRC;</span></a>
|
|
<a name="2984"><span class="lineNum"> 2984 </span><span class="lineCov"> 19016144 : if (tokstr[0] == '{' && tokstr[1] == '\0') /* } */</span></a>
|
|
<a name="2985"><span class="lineNum"> 2985 </span> : {</a>
|
|
<a name="2986"><span class="lineNum"> 2986 </span><span class="lineCov"> 18940225 : open_brace_count++;</span></a>
|
|
<a name="2987"><span class="lineNum"> 2987 </span><span class="lineCov"> 18940225 : function_bstart = line_number;</span></a>
|
|
<a name="2988"><span class="lineNum"> 2988 </span><span class="lineCov"> 18940225 : return ('{'); /* } */</span></a>
|
|
<a name="2989"><span class="lineNum"> 2989 </span> : }</a>
|
|
<a name="2990"><span class="lineNum"> 2990 </span> : }</a>
|
|
<a name="2991"><span class="lineNum"> 2991 </span> : </a>
|
|
<a name="2992"><span class="lineNum"> 2992 </span> : /* We allow a `do' after a for ((...)) without an intervening</a>
|
|
<a name="2993"><span class="lineNum"> 2993 </span> : list_terminator */</a>
|
|
<a name="2994"><span class="lineNum"> 2994 </span><span class="lineCov"> 1134860863 : if (last_read_token == ARITH_FOR_EXPRS && tokstr[0] == 'd' && tokstr[1] == 'o' && !tokstr[2])</span></a>
|
|
<a name="2995"><span class="lineNum"> 2995 </span> : return (DO);</a>
|
|
<a name="2996"><span class="lineNum"> 2996 </span><span class="lineCov"> 1134860863 : if (last_read_token == ARITH_FOR_EXPRS && tokstr[0] == '{' && tokstr[1] == '\0') /* } */</span></a>
|
|
<a name="2997"><span class="lineNum"> 2997 </span> : {</a>
|
|
<a name="2998"><span class="lineNum"> 2998 </span><span class="lineNoCov"> 0 : open_brace_count++;</span></a>
|
|
<a name="2999"><span class="lineNum"> 2999 </span><span class="lineNoCov"> 0 : return ('{'); /* } */</span></a>
|
|
<a name="3000"><span class="lineNum"> 3000 </span> : }</a>
|
|
<a name="3001"><span class="lineNum"> 3001 </span> : </a>
|
|
<a name="3002"><span class="lineNum"> 3002 </span><span class="lineCov"> 1134860863 : if (open_brace_count && reserved_word_acceptable (last_read_token) && tokstr[0] == '}' && !tokstr[1])</span></a>
|
|
<a name="3003"><span class="lineNum"> 3003 </span> : {</a>
|
|
<a name="3004"><span class="lineNum"> 3004 </span><span class="lineCov"> 18782077 : open_brace_count--; /* { */</span></a>
|
|
<a name="3005"><span class="lineNum"> 3005 </span><span class="lineCov"> 18782077 : return ('}');</span></a>
|
|
<a name="3006"><span class="lineNum"> 3006 </span> : }</a>
|
|
<a name="3007"><span class="lineNum"> 3007 </span> : </a>
|
|
<a name="3008"><span class="lineNum"> 3008 </span> : #if defined (COMMAND_TIMING)</a>
|
|
<a name="3009"><span class="lineNum"> 3009 </span> : /* Handle -p after `time'. */</a>
|
|
<a name="3010"><span class="lineNum"> 3010 </span> : if (last_read_token == TIME && tokstr[0] == '-' && tokstr[1] == 'p' && !tokstr[2])</a>
|
|
<a name="3011"><span class="lineNum"> 3011 </span> : return (TIMEOPT);</a>
|
|
<a name="3012"><span class="lineNum"> 3012 </span> : /* Handle -- after `time -p'. */</a>
|
|
<a name="3013"><span class="lineNum"> 3013 </span> : if (last_read_token == TIMEOPT && tokstr[0] == '-' && tokstr[1] == '-' && !tokstr[2])</a>
|
|
<a name="3014"><span class="lineNum"> 3014 </span> : return (TIMEIGN);</a>
|
|
<a name="3015"><span class="lineNum"> 3015 </span> : #endif</a>
|
|
<a name="3016"><span class="lineNum"> 3016 </span> : </a>
|
|
<a name="3017"><span class="lineNum"> 3017 </span> : #if defined (COND_COMMAND) /* [[ */</a>
|
|
<a name="3018"><span class="lineNum"> 3018 </span><span class="lineCov"> 1116078786 : if ((parser_state & PST_CONDEXPR) && tokstr[0] == ']' && tokstr[1] == ']' && tokstr[2] == '\0')</span></a>
|
|
<a name="3019"><span class="lineNum"> 3019 </span><span class="lineNoCov"> 0 : return (COND_END);</span></a>
|
|
<a name="3020"><span class="lineNum"> 3020 </span> : #endif</a>
|
|
<a name="3021"><span class="lineNum"> 3021 </span> : </a>
|
|
<a name="3022"><span class="lineNum"> 3022 </span> : return (-1);</a>
|
|
<a name="3023"><span class="lineNum"> 3023 </span> : }</a>
|
|
<a name="3024"><span class="lineNum"> 3024 </span> : </a>
|
|
<a name="3025"><span class="lineNum"> 3025 </span> : /* Called from shell.c when Control-C is typed at top level. Or</a>
|
|
<a name="3026"><span class="lineNum"> 3026 </span> : by the error rule at top level. */</a>
|
|
<a name="3027"><span class="lineNum"> 3027 </span> : void</a>
|
|
<a name="3028"><span class="lineNum"> 3028 </span><span class="lineCov"> 2104417 : reset_parser ()</span></a>
|
|
<a name="3029"><span class="lineNum"> 3029 </span> : {</a>
|
|
<a name="3030"><span class="lineNum"> 3030 </span><span class="lineCov"> 2104417 : dstack.delimiter_depth = 0; /* No delimiters found so far. */</span></a>
|
|
<a name="3031"><span class="lineNum"> 3031 </span><span class="lineCov"> 2104417 : open_brace_count = 0;</span></a>
|
|
<a name="3032"><span class="lineNum"> 3032 </span> : </a>
|
|
<a name="3033"><span class="lineNum"> 3033 </span> : #if defined (EXTENDED_GLOB)</a>
|
|
<a name="3034"><span class="lineNum"> 3034 </span> : /* Reset to global value of extended glob */</a>
|
|
<a name="3035"><span class="lineNum"> 3035 </span><span class="lineCov"> 2104417 : if (parser_state & PST_EXTPAT)</span></a>
|
|
<a name="3036"><span class="lineNum"> 3036 </span><span class="lineNoCov"> 0 : extended_glob = global_extglob;</span></a>
|
|
<a name="3037"><span class="lineNum"> 3037 </span> : #endif</a>
|
|
<a name="3038"><span class="lineNum"> 3038 </span> : </a>
|
|
<a name="3039"><span class="lineNum"> 3039 </span><span class="lineCov"> 2104417 : parser_state = 0;</span></a>
|
|
<a name="3040"><span class="lineNum"> 3040 </span><span class="lineCov"> 2104417 : here_doc_first_line = 0;</span></a>
|
|
<a name="3041"><span class="lineNum"> 3041 </span> : </a>
|
|
<a name="3042"><span class="lineNum"> 3042 </span> : #if defined (ALIAS) || defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="3043"><span class="lineNum"> 3043 </span><span class="lineCov"> 2104417 : if (pushed_string_list)</span></a>
|
|
<a name="3044"><span class="lineNum"> 3044 </span><span class="lineCov"> 18 : free_string_list ();</span></a>
|
|
<a name="3045"><span class="lineNum"> 3045 </span> : #endif /* ALIAS || DPAREN_ARITHMETIC */</a>
|
|
<a name="3046"><span class="lineNum"> 3046 </span> : </a>
|
|
<a name="3047"><span class="lineNum"> 3047 </span> : /* This is where we resynchronize to the next newline on error/reset */</a>
|
|
<a name="3048"><span class="lineNum"> 3048 </span><span class="lineCov"> 2104417 : if (shell_input_line)</span></a>
|
|
<a name="3049"><span class="lineNum"> 3049 </span> : {</a>
|
|
<a name="3050"><span class="lineNum"> 3050 </span><span class="lineCov"> 2104408 : free (shell_input_line);</span></a>
|
|
<a name="3051"><span class="lineNum"> 3051 </span><span class="lineCov"> 2104408 : shell_input_line = (char *)NULL;</span></a>
|
|
<a name="3052"><span class="lineNum"> 3052 </span><span class="lineCov"> 2104408 : shell_input_line_size = shell_input_line_index = 0;</span></a>
|
|
<a name="3053"><span class="lineNum"> 3053 </span> : }</a>
|
|
<a name="3054"><span class="lineNum"> 3054 </span> : </a>
|
|
<a name="3055"><span class="lineNum"> 3055 </span><span class="lineCov"> 2104417 : FREE (word_desc_to_read);</span></a>
|
|
<a name="3056"><span class="lineNum"> 3056 </span><span class="lineCov"> 2104417 : word_desc_to_read = (WORD_DESC *)NULL;</span></a>
|
|
<a name="3057"><span class="lineNum"> 3057 </span> : </a>
|
|
<a name="3058"><span class="lineNum"> 3058 </span><span class="lineCov"> 2104417 : eol_ungetc_lookahead = 0;</span></a>
|
|
<a name="3059"><span class="lineNum"> 3059 </span> : </a>
|
|
<a name="3060"><span class="lineNum"> 3060 </span><span class="lineCov"> 2104417 : current_token = '\n'; /* XXX */</span></a>
|
|
<a name="3061"><span class="lineNum"> 3061 </span><span class="lineCov"> 2104417 : last_read_token = '\n';</span></a>
|
|
<a name="3062"><span class="lineNum"> 3062 </span><span class="lineCov"> 2104417 : token_to_read = '\n';</span></a>
|
|
<a name="3063"><span class="lineNum"> 3063 </span><span class="lineCov"> 2104417 : }</span></a>
|
|
<a name="3064"><span class="lineNum"> 3064 </span> : </a>
|
|
<a name="3065"><span class="lineNum"> 3065 </span> : /* Read the next token. Command can be READ (normal operation) or</a>
|
|
<a name="3066"><span class="lineNum"> 3066 </span> : RESET (to normalize state). */</a>
|
|
<a name="3067"><span class="lineNum"> 3067 </span> : static int</a>
|
|
<a name="3068"><span class="lineNum"> 3068 </span><span class="lineCov"> 2261650730 : read_token (command)</span></a>
|
|
<a name="3069"><span class="lineNum"> 3069 </span> : int command;</a>
|
|
<a name="3070"><span class="lineNum"> 3070 </span> : {</a>
|
|
<a name="3071"><span class="lineNum"> 3071 </span><span class="lineCov"> 2261650730 : int character; /* Current character. */</span></a>
|
|
<a name="3072"><span class="lineNum"> 3072 </span><span class="lineCov"> 2261650730 : int peek_char; /* Temporary look-ahead character. */</span></a>
|
|
<a name="3073"><span class="lineNum"> 3073 </span><span class="lineCov"> 2261650730 : int result; /* The thing to return. */</span></a>
|
|
<a name="3074"><span class="lineNum"> 3074 </span> : </a>
|
|
<a name="3075"><span class="lineNum"> 3075 </span><span class="lineCov"> 2261650730 : if (command == RESET)</span></a>
|
|
<a name="3076"><span class="lineNum"> 3076 </span> : {</a>
|
|
<a name="3077"><span class="lineNum"> 3077 </span><span class="lineNoCov"> 0 : reset_parser ();</span></a>
|
|
<a name="3078"><span class="lineNum"> 3078 </span><span class="lineNoCov"> 0 : return ('\n');</span></a>
|
|
<a name="3079"><span class="lineNum"> 3079 </span> : }</a>
|
|
<a name="3080"><span class="lineNum"> 3080 </span> : </a>
|
|
<a name="3081"><span class="lineNum"> 3081 </span><span class="lineCov"> 2261650730 : if (token_to_read)</span></a>
|
|
<a name="3082"><span class="lineNum"> 3082 </span> : {</a>
|
|
<a name="3083"><span class="lineNum"> 3083 </span><span class="lineCov"> 1852392 : result = token_to_read;</span></a>
|
|
<a name="3084"><span class="lineNum"> 3084 </span><span class="lineCov"> 1852392 : if (token_to_read == WORD || token_to_read == ASSIGNMENT_WORD)</span></a>
|
|
<a name="3085"><span class="lineNum"> 3085 </span> : {</a>
|
|
<a name="3086"><span class="lineNum"> 3086 </span><span class="lineNoCov"> 0 : yylval.word = word_desc_to_read;</span></a>
|
|
<a name="3087"><span class="lineNum"> 3087 </span><span class="lineNoCov"> 0 : word_desc_to_read = (WORD_DESC *)NULL;</span></a>
|
|
<a name="3088"><span class="lineNum"> 3088 </span> : }</a>
|
|
<a name="3089"><span class="lineNum"> 3089 </span><span class="lineCov"> 1852392 : token_to_read = 0;</span></a>
|
|
<a name="3090"><span class="lineNum"> 3090 </span><span class="lineCov"> 1852392 : return (result);</span></a>
|
|
<a name="3091"><span class="lineNum"> 3091 </span> : }</a>
|
|
<a name="3092"><span class="lineNum"> 3092 </span> : </a>
|
|
<a name="3093"><span class="lineNum"> 3093 </span> : #if defined (COND_COMMAND)</a>
|
|
<a name="3094"><span class="lineNum"> 3094 </span><span class="lineCov"> 2259798338 : if ((parser_state & (PST_CONDCMD|PST_CONDEXPR)) == PST_CONDCMD)</span></a>
|
|
<a name="3095"><span class="lineNum"> 3095 </span> : {</a>
|
|
<a name="3096"><span class="lineNum"> 3096 </span><span class="lineCov"> 72 : cond_lineno = line_number;</span></a>
|
|
<a name="3097"><span class="lineNum"> 3097 </span><span class="lineCov"> 72 : parser_state |= PST_CONDEXPR;</span></a>
|
|
<a name="3098"><span class="lineNum"> 3098 </span><span class="lineCov"> 72 : yylval.command = parse_cond_command ();</span></a>
|
|
<a name="3099"><span class="lineNum"> 3099 </span><span class="lineCov"> 72 : if (cond_token != COND_END)</span></a>
|
|
<a name="3100"><span class="lineNum"> 3100 </span> : {</a>
|
|
<a name="3101"><span class="lineNum"> 3101 </span><span class="lineCov"> 72 : cond_error ();</span></a>
|
|
<a name="3102"><span class="lineNum"> 3102 </span><span class="lineCov"> 72 : return (-1);</span></a>
|
|
<a name="3103"><span class="lineNum"> 3103 </span> : }</a>
|
|
<a name="3104"><span class="lineNum"> 3104 </span><span class="lineNoCov"> 0 : token_to_read = COND_END;</span></a>
|
|
<a name="3105"><span class="lineNum"> 3105 </span><span class="lineNoCov"> 0 : parser_state &= ~(PST_CONDEXPR|PST_CONDCMD);</span></a>
|
|
<a name="3106"><span class="lineNum"> 3106 </span><span class="lineNoCov"> 0 : return (COND_CMD);</span></a>
|
|
<a name="3107"><span class="lineNum"> 3107 </span> : }</a>
|
|
<a name="3108"><span class="lineNum"> 3108 </span> : #endif</a>
|
|
<a name="3109"><span class="lineNum"> 3109 </span> : </a>
|
|
<a name="3110"><span class="lineNum"> 3110 </span> : #if defined (ALIAS)</a>
|
|
<a name="3111"><span class="lineNum"> 3111 </span> : /* This is a place to jump back to once we have successfully expanded a</a>
|
|
<a name="3112"><span class="lineNum"> 3112 </span> : token with an alias and pushed the string with push_string () */</a>
|
|
<a name="3113"><span class="lineNum"> 3113 </span><span class="lineCov"> 2259798266 : re_read_token:</span></a>
|
|
<a name="3114"><span class="lineNum"> 3114 </span> : #endif /* ALIAS */</a>
|
|
<a name="3115"><span class="lineNum"> 3115 </span> : </a>
|
|
<a name="3116"><span class="lineNum"> 3116 </span> : /* Read a single word from input. Start by skipping blanks. */</a>
|
|
<a name="3117"><span class="lineNum"> 3117 </span><span class="lineCov"> 3720150635 : while ((character = shell_getc (1)) != EOF && shellblank (character))</span></a>
|
|
<a name="3118"><span class="lineNum"> 3118 </span><span class="lineCov"> 3720150635 : ;</span></a>
|
|
<a name="3119"><span class="lineNum"> 3119 </span> : </a>
|
|
<a name="3120"><span class="lineNum"> 3120 </span><span class="lineCov"> 2259798266 : if (character == EOF)</span></a>
|
|
<a name="3121"><span class="lineNum"> 3121 </span> : {</a>
|
|
<a name="3122"><span class="lineNum"> 3122 </span><span class="lineCov"> 243108 : EOF_Reached = 1;</span></a>
|
|
<a name="3123"><span class="lineNum"> 3123 </span><span class="lineCov"> 243108 : return (yacc_EOF);</span></a>
|
|
<a name="3124"><span class="lineNum"> 3124 </span> : }</a>
|
|
<a name="3125"><span class="lineNum"> 3125 </span> : </a>
|
|
<a name="3126"><span class="lineNum"> 3126 </span><span class="lineCov"> 2259555158 : if MBTEST(character == '#' && (!interactive || interactive_comments))</span></a>
|
|
<a name="3127"><span class="lineNum"> 3127 </span> : {</a>
|
|
<a name="3128"><span class="lineNum"> 3128 </span> : /* A comment. Discard until EOL or EOF, and then return a newline. */</a>
|
|
<a name="3129"><span class="lineNum"> 3129 </span><span class="lineCov"> 153743623 : discard_until ('\n');</span></a>
|
|
<a name="3130"><span class="lineNum"> 3130 </span><span class="lineCov"> 153743623 : shell_getc (0);</span></a>
|
|
<a name="3131"><span class="lineNum"> 3131 </span><span class="lineCov"> 153743623 : character = '\n'; /* this will take the next if statement and return. */</span></a>
|
|
<a name="3132"><span class="lineNum"> 3132 </span> : }</a>
|
|
<a name="3133"><span class="lineNum"> 3133 </span> : </a>
|
|
<a name="3134"><span class="lineNum"> 3134 </span><span class="lineCov"> 2259555158 : if (character == '\n')</span></a>
|
|
<a name="3135"><span class="lineNum"> 3135 </span> : {</a>
|
|
<a name="3136"><span class="lineNum"> 3136 </span> : /* If we're about to return an unquoted newline, we can go and collect</a>
|
|
<a name="3137"><span class="lineNum"> 3137 </span> : the text of any pending here document. */</a>
|
|
<a name="3138"><span class="lineNum"> 3138 </span><span class="lineCov"> 811919490 : if (need_here_doc)</span></a>
|
|
<a name="3139"><span class="lineNum"> 3139 </span><span class="lineCov"> 174 : gather_here_documents ();</span></a>
|
|
<a name="3140"><span class="lineNum"> 3140 </span> : </a>
|
|
<a name="3141"><span class="lineNum"> 3141 </span> : #if defined (ALIAS)</a>
|
|
<a name="3142"><span class="lineNum"> 3142 </span><span class="lineCov"> 811919490 : parser_state &= ~PST_ALEXPNEXT;</span></a>
|
|
<a name="3143"><span class="lineNum"> 3143 </span> : #endif /* ALIAS */</a>
|
|
<a name="3144"><span class="lineNum"> 3144 </span> : </a>
|
|
<a name="3145"><span class="lineNum"> 3145 </span><span class="lineCov"> 811919490 : parser_state &= ~PST_ASSIGNOK;</span></a>
|
|
<a name="3146"><span class="lineNum"> 3146 </span> : </a>
|
|
<a name="3147"><span class="lineNum"> 3147 </span><span class="lineCov"> 811919490 : return (character);</span></a>
|
|
<a name="3148"><span class="lineNum"> 3148 </span> : }</a>
|
|
<a name="3149"><span class="lineNum"> 3149 </span> : </a>
|
|
<a name="3150"><span class="lineNum"> 3150 </span><span class="lineCov"> 1447635668 : if (parser_state & PST_REGEXP)</span></a>
|
|
<a name="3151"><span class="lineNum"> 3151 </span> : goto tokword;</a>
|
|
<a name="3152"><span class="lineNum"> 3152 </span> : </a>
|
|
<a name="3153"><span class="lineNum"> 3153 </span> : /* Shell meta-characters. */</a>
|
|
<a name="3154"><span class="lineNum"> 3154 </span><span class="lineCov"> 1447635668 : if MBTEST(shellmeta (character) && ((parser_state & PST_DBLPAREN) == 0))</span></a>
|
|
<a name="3155"><span class="lineNum"> 3155 </span> : {</a>
|
|
<a name="3156"><span class="lineNum"> 3156 </span> : #if defined (ALIAS)</a>
|
|
<a name="3157"><span class="lineNum"> 3157 </span> : /* Turn off alias tokenization iff this character sequence would</a>
|
|
<a name="3158"><span class="lineNum"> 3158 </span> : not leave us ready to read a command. */</a>
|
|
<a name="3159"><span class="lineNum"> 3159 </span><span class="lineCov"> 262995028 : if (character == '<' || character == '>')</span></a>
|
|
<a name="3160"><span class="lineNum"> 3160 </span><span class="lineCov"> 16813734 : parser_state &= ~PST_ALEXPNEXT;</span></a>
|
|
<a name="3161"><span class="lineNum"> 3161 </span> : #endif /* ALIAS */</a>
|
|
<a name="3162"><span class="lineNum"> 3162 </span> : </a>
|
|
<a name="3163"><span class="lineNum"> 3163 </span><span class="lineCov"> 262995028 : parser_state &= ~PST_ASSIGNOK;</span></a>
|
|
<a name="3164"><span class="lineNum"> 3164 </span> : </a>
|
|
<a name="3165"><span class="lineNum"> 3165 </span> : /* If we are parsing a command substitution and we have read a character</a>
|
|
<a name="3166"><span class="lineNum"> 3166 </span> : that marks the end of it, don't bother to skip over quoted newlines</a>
|
|
<a name="3167"><span class="lineNum"> 3167 </span> : when we read the next token. We're just interested in a character</a>
|
|
<a name="3168"><span class="lineNum"> 3168 </span> : that will turn this into a two-character token, so we let the higher</a>
|
|
<a name="3169"><span class="lineNum"> 3169 </span> : layers deal with quoted newlines following the command substitution. */</a>
|
|
<a name="3170"><span class="lineNum"> 3170 </span><span class="lineCov"> 262995028 : if ((parser_state & PST_CMDSUBST) && character == shell_eof_token)</span></a>
|
|
<a name="3171"><span class="lineNum"> 3171 </span><span class="lineCov"> 72 : peek_char = shell_getc (0);</span></a>
|
|
<a name="3172"><span class="lineNum"> 3172 </span> : else</a>
|
|
<a name="3173"><span class="lineNum"> 3173 </span><span class="lineCov"> 262994956 : peek_char = shell_getc (1);</span></a>
|
|
<a name="3174"><span class="lineNum"> 3174 </span> : </a>
|
|
<a name="3175"><span class="lineNum"> 3175 </span><span class="lineCov"> 262995028 : if (character == peek_char)</span></a>
|
|
<a name="3176"><span class="lineNum"> 3176 </span> : {</a>
|
|
<a name="3177"><span class="lineNum"> 3177 </span><span class="lineCov"> 53233911 : switch (character)</span></a>
|
|
<a name="3178"><span class="lineNum"> 3178 </span> : {</a>
|
|
<a name="3179"><span class="lineNum"> 3179 </span><span class="lineCov"> 571 : case '<':</span></a>
|
|
<a name="3180"><span class="lineNum"> 3180 </span> : /* If '<' then we could be at "<<" or at "<<-". We have to</a>
|
|
<a name="3181"><span class="lineNum"> 3181 </span> : look ahead one more character. */</a>
|
|
<a name="3182"><span class="lineNum"> 3182 </span><span class="lineCov"> 571 : peek_char = shell_getc (1);</span></a>
|
|
<a name="3183"><span class="lineNum"> 3183 </span><span class="lineCov"> 571 : if MBTEST(peek_char == '-')</span></a>
|
|
<a name="3184"><span class="lineNum"> 3184 </span> : return (LESS_LESS_MINUS);</a>
|
|
<a name="3185"><span class="lineNum"> 3185 </span><span class="lineCov"> 571 : else if MBTEST(peek_char == '<')</span></a>
|
|
<a name="3186"><span class="lineNum"> 3186 </span> : return (LESS_LESS_LESS);</a>
|
|
<a name="3187"><span class="lineNum"> 3187 </span> : else</a>
|
|
<a name="3188"><span class="lineNum"> 3188 </span> : {</a>
|
|
<a name="3189"><span class="lineNum"> 3189 </span><span class="lineCov"> 307 : shell_ungetc (peek_char);</span></a>
|
|
<a name="3190"><span class="lineNum"> 3190 </span><span class="lineCov"> 307 : return (LESS_LESS);</span></a>
|
|
<a name="3191"><span class="lineNum"> 3191 </span> : }</a>
|
|
<a name="3192"><span class="lineNum"> 3192 </span> : </a>
|
|
<a name="3193"><span class="lineNum"> 3193 </span> : case '>':</a>
|
|
<a name="3194"><span class="lineNum"> 3194 </span> : return (GREATER_GREATER);</a>
|
|
<a name="3195"><span class="lineNum"> 3195 </span> : </a>
|
|
<a name="3196"><span class="lineNum"> 3196 </span><span class="lineCov"> 45496904 : case ';':</span></a>
|
|
<a name="3197"><span class="lineNum"> 3197 </span><span class="lineCov"> 45496904 : parser_state |= PST_CASEPAT;</span></a>
|
|
<a name="3198"><span class="lineNum"> 3198 </span> : #if defined (ALIAS)</a>
|
|
<a name="3199"><span class="lineNum"> 3199 </span><span class="lineCov"> 45496904 : parser_state &= ~PST_ALEXPNEXT;</span></a>
|
|
<a name="3200"><span class="lineNum"> 3200 </span> : #endif /* ALIAS */</a>
|
|
<a name="3201"><span class="lineNum"> 3201 </span> : </a>
|
|
<a name="3202"><span class="lineNum"> 3202 </span><span class="lineCov"> 45496904 : peek_char = shell_getc (1);</span></a>
|
|
<a name="3203"><span class="lineNum"> 3203 </span><span class="lineCov"> 45496904 : if MBTEST(peek_char == '&')</span></a>
|
|
<a name="3204"><span class="lineNum"> 3204 </span> : return (SEMI_SEMI_AND);</a>
|
|
<a name="3205"><span class="lineNum"> 3205 </span> : else</a>
|
|
<a name="3206"><span class="lineNum"> 3206 </span> : {</a>
|
|
<a name="3207"><span class="lineNum"> 3207 </span><span class="lineCov"> 45496853 : shell_ungetc (peek_char);</span></a>
|
|
<a name="3208"><span class="lineNum"> 3208 </span><span class="lineCov"> 45496853 : return (SEMI_SEMI);</span></a>
|
|
<a name="3209"><span class="lineNum"> 3209 </span> : }</a>
|
|
<a name="3210"><span class="lineNum"> 3210 </span> : </a>
|
|
<a name="3211"><span class="lineNum"> 3211 </span><span class="lineCov"> 212 : case '&':</span></a>
|
|
<a name="3212"><span class="lineNum"> 3212 </span><span class="lineCov"> 212 : return (AND_AND);</span></a>
|
|
<a name="3213"><span class="lineNum"> 3213 </span> : </a>
|
|
<a name="3214"><span class="lineNum"> 3214 </span><span class="lineCov"> 4233846 : case '|':</span></a>
|
|
<a name="3215"><span class="lineNum"> 3215 </span><span class="lineCov"> 4233846 : return (OR_OR);</span></a>
|
|
<a name="3216"><span class="lineNum"> 3216 </span> : </a>
|
|
<a name="3217"><span class="lineNum"> 3217 </span> : #if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)</a>
|
|
<a name="3218"><span class="lineNum"> 3218 </span><span class="lineCov"> 585 : case '(': /* ) */</span></a>
|
|
<a name="3219"><span class="lineNum"> 3219 </span><span class="lineCov"> 585 : result = parse_dparen (character);</span></a>
|
|
<a name="3220"><span class="lineNum"> 3220 </span><span class="lineCov"> 585 : if (result == -2)</span></a>
|
|
<a name="3221"><span class="lineNum"> 3221 </span> : break;</a>
|
|
<a name="3222"><span class="lineNum"> 3222 </span> : else</a>
|
|
<a name="3223"><span class="lineNum"> 3223 </span><span class="lineCov"> 145 : return result;</span></a>
|
|
<a name="3224"><span class="lineNum"> 3224 </span> : #endif</a>
|
|
<a name="3225"><span class="lineNum"> 3225 </span> : }</a>
|
|
<a name="3226"><span class="lineNum"> 3226 </span><span class="lineCov"> 440 : }</span></a>
|
|
<a name="3227"><span class="lineNum"> 3227 </span><span class="lineCov"> 209761117 : else if MBTEST(character == '<' && peek_char == '&')</span></a>
|
|
<a name="3228"><span class="lineNum"> 3228 </span> : return (LESS_AND);</a>
|
|
<a name="3229"><span class="lineNum"> 3229 </span><span class="lineCov"> 209761032 : else if MBTEST(character == '>' && peek_char == '&')</span></a>
|
|
<a name="3230"><span class="lineNum"> 3230 </span> : return (GREATER_AND);</a>
|
|
<a name="3231"><span class="lineNum"> 3231 </span><span class="lineCov"> 207897322 : else if MBTEST(character == '<' && peek_char == '>')</span></a>
|
|
<a name="3232"><span class="lineNum"> 3232 </span> : return (LESS_GREATER);</a>
|
|
<a name="3233"><span class="lineNum"> 3233 </span><span class="lineCov"> 207897180 : else if MBTEST(character == '>' && peek_char == '|')</span></a>
|
|
<a name="3234"><span class="lineNum"> 3234 </span> : return (GREATER_BAR);</a>
|
|
<a name="3235"><span class="lineNum"> 3235 </span><span class="lineCov"> 207897069 : else if MBTEST(character == '&' && peek_char == '>')</span></a>
|
|
<a name="3236"><span class="lineNum"> 3236 </span> : {</a>
|
|
<a name="3237"><span class="lineNum"> 3237 </span><span class="lineCov"> 87 : peek_char = shell_getc (1);</span></a>
|
|
<a name="3238"><span class="lineNum"> 3238 </span><span class="lineCov"> 87 : if MBTEST(peek_char == '>')</span></a>
|
|
<a name="3239"><span class="lineNum"> 3239 </span> : return (AND_GREATER_GREATER);</a>
|
|
<a name="3240"><span class="lineNum"> 3240 </span> : else</a>
|
|
<a name="3241"><span class="lineNum"> 3241 </span> : {</a>
|
|
<a name="3242"><span class="lineNum"> 3242 </span><span class="lineCov"> 75 : shell_ungetc (peek_char);</span></a>
|
|
<a name="3243"><span class="lineNum"> 3243 </span><span class="lineCov"> 75 : return (AND_GREATER);</span></a>
|
|
<a name="3244"><span class="lineNum"> 3244 </span> : }</a>
|
|
<a name="3245"><span class="lineNum"> 3245 </span> : }</a>
|
|
<a name="3246"><span class="lineNum"> 3246 </span><span class="lineCov"> 207896982 : else if MBTEST(character == '|' && peek_char == '&')</span></a>
|
|
<a name="3247"><span class="lineNum"> 3247 </span> : return (BAR_AND);</a>
|
|
<a name="3248"><span class="lineNum"> 3248 </span><span class="lineCov"> 207896866 : else if MBTEST(character == ';' && peek_char == '&')</span></a>
|
|
<a name="3249"><span class="lineNum"> 3249 </span> : {</a>
|
|
<a name="3250"><span class="lineNum"> 3250 </span><span class="lineCov"> 135 : parser_state |= PST_CASEPAT;</span></a>
|
|
<a name="3251"><span class="lineNum"> 3251 </span> : #if defined (ALIAS)</a>
|
|
<a name="3252"><span class="lineNum"> 3252 </span><span class="lineCov"> 135 : parser_state &= ~PST_ALEXPNEXT;</span></a>
|
|
<a name="3253"><span class="lineNum"> 3253 </span> : #endif /* ALIAS */</a>
|
|
<a name="3254"><span class="lineNum"> 3254 </span><span class="lineCov"> 135 : return (SEMI_AND);</span></a>
|
|
<a name="3255"><span class="lineNum"> 3255 </span> : }</a>
|
|
<a name="3256"><span class="lineNum"> 3256 </span> : </a>
|
|
<a name="3257"><span class="lineNum"> 3257 </span><span class="lineCov"> 207897605 : shell_ungetc (peek_char);</span></a>
|
|
<a name="3258"><span class="lineNum"> 3258 </span> : </a>
|
|
<a name="3259"><span class="lineNum"> 3259 </span> : /* If we look like we are reading the start of a function</a>
|
|
<a name="3260"><span class="lineNum"> 3260 </span> : definition, then let the reader know about it so that</a>
|
|
<a name="3261"><span class="lineNum"> 3261 </span> : we will do the right thing with `{'. */</a>
|
|
<a name="3262"><span class="lineNum"> 3262 </span><span class="lineCov"> 207897605 : if MBTEST(character == ')' && last_read_token == '(' && token_before_that == WORD)</span></a>
|
|
<a name="3263"><span class="lineNum"> 3263 </span> : {</a>
|
|
<a name="3264"><span class="lineNum"> 3264 </span><span class="lineCov"> 19017551 : parser_state |= PST_ALLOWOPNBRC;</span></a>
|
|
<a name="3265"><span class="lineNum"> 3265 </span> : #if defined (ALIAS)</a>
|
|
<a name="3266"><span class="lineNum"> 3266 </span><span class="lineCov"> 19017551 : parser_state &= ~PST_ALEXPNEXT;</span></a>
|
|
<a name="3267"><span class="lineNum"> 3267 </span> : #endif /* ALIAS */</a>
|
|
<a name="3268"><span class="lineNum"> 3268 </span><span class="lineCov"> 19017551 : function_dstart = line_number;</span></a>
|
|
<a name="3269"><span class="lineNum"> 3269 </span> : }</a>
|
|
<a name="3270"><span class="lineNum"> 3270 </span> : </a>
|
|
<a name="3271"><span class="lineNum"> 3271 </span> : /* case pattern lists may be preceded by an optional left paren. If</a>
|
|
<a name="3272"><span class="lineNum"> 3272 </span> : we're not trying to parse a case pattern list, the left paren</a>
|
|
<a name="3273"><span class="lineNum"> 3273 </span> : indicates a subshell. */</a>
|
|
<a name="3274"><span class="lineNum"> 3274 </span><span class="lineCov"> 207897605 : if MBTEST(character == '(' && (parser_state & PST_CASEPAT) == 0) /* ) */</span></a>
|
|
<a name="3275"><span class="lineNum"> 3275 </span><span class="lineCov"> 20032806 : parser_state |= PST_SUBSHELL;</span></a>
|
|
<a name="3276"><span class="lineNum"> 3276 </span> : /*(*/</a>
|
|
<a name="3277"><span class="lineNum"> 3277 </span><span class="lineCov"> 187864799 : else if MBTEST((parser_state & PST_CASEPAT) && character == ')')</span></a>
|
|
<a name="3278"><span class="lineNum"> 3278 </span><span class="lineCov"> 49481197 : parser_state &= ~PST_CASEPAT;</span></a>
|
|
<a name="3279"><span class="lineNum"> 3279 </span> : /*(*/</a>
|
|
<a name="3280"><span class="lineNum"> 3280 </span><span class="lineCov"> 138383602 : else if MBTEST((parser_state & PST_SUBSHELL) && character == ')')</span></a>
|
|
<a name="3281"><span class="lineNum"> 3281 </span><span class="lineCov"> 19017891 : parser_state &= ~PST_SUBSHELL;</span></a>
|
|
<a name="3282"><span class="lineNum"> 3282 </span> : </a>
|
|
<a name="3283"><span class="lineNum"> 3283 </span> : #if defined (PROCESS_SUBSTITUTION)</a>
|
|
<a name="3284"><span class="lineNum"> 3284 </span> : /* Check for the constructs which introduce process substitution.</a>
|
|
<a name="3285"><span class="lineNum"> 3285 </span> : Shells running in `posix mode' don't do process substitution. */</a>
|
|
<a name="3286"><span class="lineNum"> 3286 </span><span class="lineCov"> 207897605 : if MBTEST(posixly_correct || ((character != '>' && character != '<') || peek_char != '(')) /*)*/</span></a>
|
|
<a name="3287"><span class="lineNum"> 3287 </span> : #endif /* PROCESS_SUBSTITUTION */</a>
|
|
<a name="3288"><span class="lineNum"> 3288 </span><span class="lineCov"> 207897534 : return (character);</span></a>
|
|
<a name="3289"><span class="lineNum"> 3289 </span> : }</a>
|
|
<a name="3290"><span class="lineNum"> 3290 </span> : </a>
|
|
<a name="3291"><span class="lineNum"> 3291 </span> : /* Hack <&- (close stdin) case. Also <&N- (dup and close). */</a>
|
|
<a name="3292"><span class="lineNum"> 3292 </span><span class="lineCov"> 1184640711 : if MBTEST(character == '-' && (last_read_token == LESS_AND || last_read_token == GREATER_AND))</span></a>
|
|
<a name="3293"><span class="lineNum"> 3293 </span> : return (character);</a>
|
|
<a name="3294"><span class="lineNum"> 3294 </span> : </a>
|
|
<a name="3295"><span class="lineNum"> 3295 </span><span class="lineCov"> 1184640701 : tokword:</span></a>
|
|
<a name="3296"><span class="lineNum"> 3296 </span> : /* Okay, if we got this far, we have to read a word. Read one,</a>
|
|
<a name="3297"><span class="lineNum"> 3297 </span> : and then check it against the known ones. */</a>
|
|
<a name="3298"><span class="lineNum"> 3298 </span><span class="lineCov"> 1184640701 : result = read_token_word (character);</span></a>
|
|
<a name="3299"><span class="lineNum"> 3299 </span> : #if defined (ALIAS)</a>
|
|
<a name="3300"><span class="lineNum"> 3300 </span><span class="lineCov"> 1184640495 : if (result == RE_READ_TOKEN)</span></a>
|
|
<a name="3301"><span class="lineNum"> 3301 </span> : goto re_read_token;</a>
|
|
<a name="3302"><span class="lineNum"> 3302 </span> : #endif</a>
|
|
<a name="3303"><span class="lineNum"> 3303 </span> : return result;</a>
|
|
<a name="3304"><span class="lineNum"> 3304 </span> : }</a>
|
|
<a name="3305"><span class="lineNum"> 3305 </span> : </a>
|
|
<a name="3306"><span class="lineNum"> 3306 </span> : /*</a>
|
|
<a name="3307"><span class="lineNum"> 3307 </span> : * Match a $(...) or other grouping construct. This has to handle embedded</a>
|
|
<a name="3308"><span class="lineNum"> 3308 </span> : * quoted strings ('', ``, "") and nested constructs. It also must handle</a>
|
|
<a name="3309"><span class="lineNum"> 3309 </span> : * reprompting the user, if necessary, after reading a newline, and returning</a>
|
|
<a name="3310"><span class="lineNum"> 3310 </span> : * correct error values if it reads EOF.</a>
|
|
<a name="3311"><span class="lineNum"> 3311 </span> : */</a>
|
|
<a name="3312"><span class="lineNum"> 3312 </span> : #define P_FIRSTCLOSE 0x0001</a>
|
|
<a name="3313"><span class="lineNum"> 3313 </span> : #define P_ALLOWESC 0x0002</a>
|
|
<a name="3314"><span class="lineNum"> 3314 </span> : #define P_DQUOTE 0x0004</a>
|
|
<a name="3315"><span class="lineNum"> 3315 </span> : #define P_COMMAND 0x0008 /* parsing a command, so look for comments */</a>
|
|
<a name="3316"><span class="lineNum"> 3316 </span> : #define P_BACKQUOTE 0x0010 /* parsing a backquoted command substitution */</a>
|
|
<a name="3317"><span class="lineNum"> 3317 </span> : #define P_ARRAYSUB 0x0020 /* parsing a [...] array subscript for assignment */</a>
|
|
<a name="3318"><span class="lineNum"> 3318 </span> : #define P_DOLBRACE 0x0040 /* parsing a ${...} construct */</a>
|
|
<a name="3319"><span class="lineNum"> 3319 </span> : </a>
|
|
<a name="3320"><span class="lineNum"> 3320 </span> : /* Lexical state while parsing a grouping construct or $(...). */</a>
|
|
<a name="3321"><span class="lineNum"> 3321 </span> : #define LEX_WASDOL 0x001</a>
|
|
<a name="3322"><span class="lineNum"> 3322 </span> : #define LEX_CKCOMMENT 0x002</a>
|
|
<a name="3323"><span class="lineNum"> 3323 </span> : #define LEX_INCOMMENT 0x004</a>
|
|
<a name="3324"><span class="lineNum"> 3324 </span> : #define LEX_PASSNEXT 0x008</a>
|
|
<a name="3325"><span class="lineNum"> 3325 </span> : #define LEX_RESWDOK 0x010</a>
|
|
<a name="3326"><span class="lineNum"> 3326 </span> : #define LEX_CKCASE 0x020</a>
|
|
<a name="3327"><span class="lineNum"> 3327 </span> : #define LEX_INCASE 0x040</a>
|
|
<a name="3328"><span class="lineNum"> 3328 </span> : #define LEX_INHEREDOC 0x080</a>
|
|
<a name="3329"><span class="lineNum"> 3329 </span> : #define LEX_HEREDELIM 0x100 /* reading here-doc delimiter */</a>
|
|
<a name="3330"><span class="lineNum"> 3330 </span> : #define LEX_STRIPDOC 0x200 /* <<- strip tabs from here doc delim */</a>
|
|
<a name="3331"><span class="lineNum"> 3331 </span> : #define LEX_QUOTEDDOC 0x400 /* here doc with quoted delim */</a>
|
|
<a name="3332"><span class="lineNum"> 3332 </span> : #define LEX_INWORD 0x800</a>
|
|
<a name="3333"><span class="lineNum"> 3333 </span> : </a>
|
|
<a name="3334"><span class="lineNum"> 3334 </span> : #define COMSUB_META(ch) ((ch) == ';' || (ch) == '&' || (ch) == '|')</a>
|
|
<a name="3335"><span class="lineNum"> 3335 </span> : </a>
|
|
<a name="3336"><span class="lineNum"> 3336 </span> : #define CHECK_NESTRET_ERROR() \</a>
|
|
<a name="3337"><span class="lineNum"> 3337 </span> : do { \</a>
|
|
<a name="3338"><span class="lineNum"> 3338 </span> : if (nestret == &matched_pair_error) \</a>
|
|
<a name="3339"><span class="lineNum"> 3339 </span> : { \</a>
|
|
<a name="3340"><span class="lineNum"> 3340 </span> : free (ret); \</a>
|
|
<a name="3341"><span class="lineNum"> 3341 </span> : return &matched_pair_error; \</a>
|
|
<a name="3342"><span class="lineNum"> 3342 </span> : } \</a>
|
|
<a name="3343"><span class="lineNum"> 3343 </span> : } while (0)</a>
|
|
<a name="3344"><span class="lineNum"> 3344 </span> : </a>
|
|
<a name="3345"><span class="lineNum"> 3345 </span> : #define APPEND_NESTRET() \</a>
|
|
<a name="3346"><span class="lineNum"> 3346 </span> : do { \</a>
|
|
<a name="3347"><span class="lineNum"> 3347 </span> : if (nestlen) \</a>
|
|
<a name="3348"><span class="lineNum"> 3348 </span> : { \</a>
|
|
<a name="3349"><span class="lineNum"> 3349 </span> : RESIZE_MALLOCED_BUFFER (ret, retind, nestlen, retsize, 64); \</a>
|
|
<a name="3350"><span class="lineNum"> 3350 </span> : strcpy (ret + retind, nestret); \</a>
|
|
<a name="3351"><span class="lineNum"> 3351 </span> : retind += nestlen; \</a>
|
|
<a name="3352"><span class="lineNum"> 3352 </span> : } \</a>
|
|
<a name="3353"><span class="lineNum"> 3353 </span> : } while (0)</a>
|
|
<a name="3354"><span class="lineNum"> 3354 </span> : </a>
|
|
<a name="3355"><span class="lineNum"> 3355 </span> : static char matched_pair_error;</a>
|
|
<a name="3356"><span class="lineNum"> 3356 </span> : </a>
|
|
<a name="3357"><span class="lineNum"> 3357 </span> : static char *</a>
|
|
<a name="3358"><span class="lineNum"> 3358 </span><span class="lineCov"> 179500548 : parse_matched_pair (qc, open, close, lenp, flags)</span></a>
|
|
<a name="3359"><span class="lineNum"> 3359 </span> : int qc; /* `"' if this construct is within double quotes */</a>
|
|
<a name="3360"><span class="lineNum"> 3360 </span> : int open, close;</a>
|
|
<a name="3361"><span class="lineNum"> 3361 </span> : int *lenp, flags;</a>
|
|
<a name="3362"><span class="lineNum"> 3362 </span> : {</a>
|
|
<a name="3363"><span class="lineNum"> 3363 </span><span class="lineCov"> 179500548 : int count, ch, tflags;</span></a>
|
|
<a name="3364"><span class="lineNum"> 3364 </span><span class="lineCov"> 179500548 : int nestlen, ttranslen, start_lineno;</span></a>
|
|
<a name="3365"><span class="lineNum"> 3365 </span><span class="lineCov"> 179500548 : char *ret, *nestret, *ttrans;</span></a>
|
|
<a name="3366"><span class="lineNum"> 3366 </span><span class="lineCov"> 179500548 : int retind, retsize, rflags;</span></a>
|
|
<a name="3367"><span class="lineNum"> 3367 </span><span class="lineCov"> 179500548 : int dolbrace_state;</span></a>
|
|
<a name="3368"><span class="lineNum"> 3368 </span> : </a>
|
|
<a name="3369"><span class="lineNum"> 3369 </span><span class="lineCov"> 179500548 : dolbrace_state = (flags & P_DOLBRACE) ? DOLBRACE_PARAM : 0;</span></a>
|
|
<a name="3370"><span class="lineNum"> 3370 </span> : </a>
|
|
<a name="3371"><span class="lineNum"> 3371 </span> : /*itrace("parse_matched_pair[%d]: open = %c close = %c flags = %d", line_number, open, close, flags);*/</a>
|
|
<a name="3372"><span class="lineNum"> 3372 </span><span class="lineCov"> 179500548 : count = 1;</span></a>
|
|
<a name="3373"><span class="lineNum"> 3373 </span><span class="lineCov"> 179500548 : tflags = 0;</span></a>
|
|
<a name="3374"><span class="lineNum"> 3374 </span> : </a>
|
|
<a name="3375"><span class="lineNum"> 3375 </span><span class="lineCov"> 179500548 : if ((flags & P_COMMAND) && qc != '`' && qc != '\'' && qc != '"' && (flags & P_DQUOTE) == 0)</span></a>
|
|
<a name="3376"><span class="lineNum"> 3376 </span><span class="lineNoCov"> 0 : tflags |= LEX_CKCOMMENT;</span></a>
|
|
<a name="3377"><span class="lineNum"> 3377 </span> : </a>
|
|
<a name="3378"><span class="lineNum"> 3378 </span> : /* RFLAGS is the set of flags we want to pass to recursive calls. */</a>
|
|
<a name="3379"><span class="lineNum"> 3379 </span><span class="lineCov"> 179500548 : rflags = (qc == '"') ? P_DQUOTE : (flags & P_DQUOTE);</span></a>
|
|
<a name="3380"><span class="lineNum"> 3380 </span> : </a>
|
|
<a name="3381"><span class="lineNum"> 3381 </span><span class="lineCov"> 179500548 : ret = (char *)xmalloc (retsize = 64);</span></a>
|
|
<a name="3382"><span class="lineNum"> 3382 </span><span class="lineCov"> 179500548 : retind = 0;</span></a>
|
|
<a name="3383"><span class="lineNum"> 3383 </span> : </a>
|
|
<a name="3384"><span class="lineNum"> 3384 </span><span class="lineCov"> 179500548 : start_lineno = line_number;</span></a>
|
|
<a name="3385"><span class="lineNum"> 3385 </span><span class="lineCov"> 2534469559 : while (count)</span></a>
|
|
<a name="3386"><span class="lineNum"> 3386 </span> : {</a>
|
|
<a name="3387"><span class="lineNum"> 3387 </span><span class="lineCov"> 3565847433 : ch = shell_getc (qc != '\'' && (tflags & (LEX_PASSNEXT)) == 0);</span></a>
|
|
<a name="3388"><span class="lineNum"> 3388 </span> : </a>
|
|
<a name="3389"><span class="lineNum"> 3389 </span><span class="lineCov"> 2534469559 : if (ch == EOF)</span></a>
|
|
<a name="3390"><span class="lineNum"> 3390 </span> : {</a>
|
|
<a name="3391"><span class="lineNum"> 3391 </span><span class="lineCov"> 189827 : free (ret);</span></a>
|
|
<a name="3392"><span class="lineNum"> 3392 </span><span class="lineCov"> 189827 : parser_error (start_lineno, _("unexpected EOF while looking for matching `%c'"), close);</span></a>
|
|
<a name="3393"><span class="lineNum"> 3393 </span><span class="lineCov"> 189827 : EOF_Reached = 1; /* XXX */</span></a>
|
|
<a name="3394"><span class="lineNum"> 3394 </span><span class="lineCov"> 189827 : return (&matched_pair_error);</span></a>
|
|
<a name="3395"><span class="lineNum"> 3395 </span> : }</a>
|
|
<a name="3396"><span class="lineNum"> 3396 </span> : </a>
|
|
<a name="3397"><span class="lineNum"> 3397 </span> : /* Possible reprompting. */</a>
|
|
<a name="3398"><span class="lineNum"> 3398 </span><span class="lineCov"> 2534279732 : if (ch == '\n' && SHOULD_PROMPT ())</span></a>
|
|
<a name="3399"><span class="lineNum"> 3399 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="3400"><span class="lineNum"> 3400 </span> : </a>
|
|
<a name="3401"><span class="lineNum"> 3401 </span> : /* Don't bother counting parens or doing anything else if in a comment</a>
|
|
<a name="3402"><span class="lineNum"> 3402 </span> : or part of a case statement */</a>
|
|
<a name="3403"><span class="lineNum"> 3403 </span><span class="lineCov"> 2534279732 : if (tflags & LEX_INCOMMENT)</span></a>
|
|
<a name="3404"><span class="lineNum"> 3404 </span> : {</a>
|
|
<a name="3405"><span class="lineNum"> 3405 </span> : /* Add this character. */</a>
|
|
<a name="3406"><span class="lineNum"> 3406 </span><span class="lineNoCov"> 0 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="3407"><span class="lineNum"> 3407 </span><span class="lineNoCov"> 0 : ret[retind++] = ch;</span></a>
|
|
<a name="3408"><span class="lineNum"> 3408 </span> : </a>
|
|
<a name="3409"><span class="lineNum"> 3409 </span><span class="lineNoCov"> 0 : if (ch == '\n')</span></a>
|
|
<a name="3410"><span class="lineNum"> 3410 </span><span class="lineNoCov"> 0 : tflags &= ~LEX_INCOMMENT;</span></a>
|
|
<a name="3411"><span class="lineNum"> 3411 </span> : </a>
|
|
<a name="3412"><span class="lineNum"> 3412 </span><span class="lineNoCov"> 0 : continue;</span></a>
|
|
<a name="3413"><span class="lineNum"> 3413 </span> : }</a>
|
|
<a name="3414"><span class="lineNum"> 3414 </span> : </a>
|
|
<a name="3415"><span class="lineNum"> 3415 </span> : /* Not exactly right yet, should handle shell metacharacters, too. If</a>
|
|
<a name="3416"><span class="lineNum"> 3416 </span> : any changes are made to this test, make analogous changes to subst.c:</a>
|
|
<a name="3417"><span class="lineNum"> 3417 </span> : extract_delimited_string(). */</a>
|
|
<a name="3418"><span class="lineNum"> 3418 </span><span class="lineCov"> 2534279732 : else if MBTEST((tflags & LEX_CKCOMMENT) && (tflags & LEX_INCOMMENT) == 0 && ch == '#' && (retind == 0 || ret[retind-1] == '\n' || shellblank (ret[retind - 1])))</span></a>
|
|
<a name="3419"><span class="lineNum"> 3419 </span><span class="lineNoCov"> 0 : tflags |= LEX_INCOMMENT;</span></a>
|
|
<a name="3420"><span class="lineNum"> 3420 </span> : </a>
|
|
<a name="3421"><span class="lineNum"> 3421 </span><span class="lineCov"> 2534279732 : if (tflags & LEX_PASSNEXT) /* last char was backslash */</span></a>
|
|
<a name="3422"><span class="lineNum"> 3422 </span> : {</a>
|
|
<a name="3423"><span class="lineNum"> 3423 </span><span class="lineCov"> 73431 : tflags &= ~LEX_PASSNEXT;</span></a>
|
|
<a name="3424"><span class="lineNum"> 3424 </span><span class="lineCov"> 73431 : if (qc != '\'' && ch == '\n') /* double-quoted \<newline> disappears. */</span></a>
|
|
<a name="3425"><span class="lineNum"> 3425 </span> : {</a>
|
|
<a name="3426"><span class="lineNum"> 3426 </span><span class="lineNoCov"> 0 : if (retind > 0)</span></a>
|
|
<a name="3427"><span class="lineNum"> 3427 </span><span class="lineNoCov"> 0 : retind--; /* swallow previously-added backslash */</span></a>
|
|
<a name="3428"><span class="lineNum"> 3428 </span><span class="lineNoCov"> 0 : continue;</span></a>
|
|
<a name="3429"><span class="lineNum"> 3429 </span> : }</a>
|
|
<a name="3430"><span class="lineNum"> 3430 </span> : </a>
|
|
<a name="3431"><span class="lineNum"> 3431 </span><span class="lineCov"> 74085 : RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);</span></a>
|
|
<a name="3432"><span class="lineNum"> 3432 </span><span class="lineCov"> 73431 : if MBTEST(ch == CTLESC)</span></a>
|
|
<a name="3433"><span class="lineNum"> 3433 </span><span class="lineCov"> 63 : ret[retind++] = CTLESC;</span></a>
|
|
<a name="3434"><span class="lineNum"> 3434 </span><span class="lineCov"> 73431 : ret[retind++] = ch;</span></a>
|
|
<a name="3435"><span class="lineNum"> 3435 </span><span class="lineCov"> 73431 : continue;</span></a>
|
|
<a name="3436"><span class="lineNum"> 3436 </span> : }</a>
|
|
<a name="3437"><span class="lineNum"> 3437 </span> : /* If we're reparsing the input (e.g., from parse_string_to_word_list),</a>
|
|
<a name="3438"><span class="lineNum"> 3438 </span> : we've already prepended CTLESC to single-quoted results of $'...'.</a>
|
|
<a name="3439"><span class="lineNum"> 3439 </span> : We may want to do this for other CTLESC-quoted characters in</a>
|
|
<a name="3440"><span class="lineNum"> 3440 </span> : reparse, too. */</a>
|
|
<a name="3441"><span class="lineNum"> 3441 </span><span class="lineCov"> 2534206301 : else if MBTEST((parser_state & PST_REPARSE) && open == '\'' && (ch == CTLESC || ch == CTLNUL))</span></a>
|
|
<a name="3442"><span class="lineNum"> 3442 </span> : {</a>
|
|
<a name="3443"><span class="lineNum"> 3443 </span><span class="lineNoCov"> 0 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="3444"><span class="lineNum"> 3444 </span><span class="lineNoCov"> 0 : ret[retind++] = ch;</span></a>
|
|
<a name="3445"><span class="lineNum"> 3445 </span><span class="lineNoCov"> 0 : continue;</span></a>
|
|
<a name="3446"><span class="lineNum"> 3446 </span> : }</a>
|
|
<a name="3447"><span class="lineNum"> 3447 </span><span class="lineCov"> 2534206301 : else if MBTEST(ch == CTLESC || ch == CTLNUL) /* special shell escapes */</span></a>
|
|
<a name="3448"><span class="lineNum"> 3448 </span> : {</a>
|
|
<a name="3449"><span class="lineNum"> 3449 </span><span class="lineCov"> 110583 : RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);</span></a>
|
|
<a name="3450"><span class="lineNum"> 3450 </span><span class="lineCov"> 108375 : ret[retind++] = CTLESC;</span></a>
|
|
<a name="3451"><span class="lineNum"> 3451 </span><span class="lineCov"> 108375 : ret[retind++] = ch;</span></a>
|
|
<a name="3452"><span class="lineNum"> 3452 </span><span class="lineCov"> 108375 : continue;</span></a>
|
|
<a name="3453"><span class="lineNum"> 3453 </span> : }</a>
|
|
<a name="3454"><span class="lineNum"> 3454 </span><span class="lineCov"> 2534097926 : else if MBTEST(ch == close) /* ending delimiter */</span></a>
|
|
<a name="3455"><span class="lineNum"> 3455 </span><span class="lineCov"> 179306156 : count--;</span></a>
|
|
<a name="3456"><span class="lineNum"> 3456 </span> : /* handle nested ${...} specially. */</a>
|
|
<a name="3457"><span class="lineNum"> 3457 </span><span class="lineCov"> 2354791770 : else if MBTEST(open != close && (tflags & LEX_WASDOL) && open == '{' && ch == open) /* } */</span></a>
|
|
<a name="3458"><span class="lineNum"> 3458 </span><span class="lineCov"> 180 : count++;</span></a>
|
|
<a name="3459"><span class="lineNum"> 3459 </span><span class="lineCov"> 2354791590 : else if MBTEST(((flags & P_FIRSTCLOSE) == 0) && ch == open) /* nested begin */</span></a>
|
|
<a name="3460"><span class="lineNum"> 3460 </span><span class="lineCov"> 6535 : count++;</span></a>
|
|
<a name="3461"><span class="lineNum"> 3461 </span> : </a>
|
|
<a name="3462"><span class="lineNum"> 3462 </span> : /* Add this character. */</a>
|
|
<a name="3463"><span class="lineNum"> 3463 </span><span class="lineCov"> 2548522641 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="3464"><span class="lineNum"> 3464 </span><span class="lineCov"> 2534097926 : ret[retind++] = ch;</span></a>
|
|
<a name="3465"><span class="lineNum"> 3465 </span> : </a>
|
|
<a name="3466"><span class="lineNum"> 3466 </span> : /* If we just read the ending character, don't bother continuing. */</a>
|
|
<a name="3467"><span class="lineNum"> 3467 </span><span class="lineCov"> 2534097926 : if (count == 0)</span></a>
|
|
<a name="3468"><span class="lineNum"> 3468 </span> : break;</a>
|
|
<a name="3469"><span class="lineNum"> 3469 </span> : </a>
|
|
<a name="3470"><span class="lineNum"> 3470 </span><span class="lineCov"> 2354795727 : if (open == '\'') /* '' inside grouping construct */</span></a>
|
|
<a name="3471"><span class="lineNum"> 3471 </span> : {</a>
|
|
<a name="3472"><span class="lineNum"> 3472 </span><span class="lineCov"> 997257625 : if MBTEST((flags & P_ALLOWESC) && ch == '\\')</span></a>
|
|
<a name="3473"><span class="lineNum"> 3473 </span><span class="lineCov"> 137 : tflags |= LEX_PASSNEXT;</span></a>
|
|
<a name="3474"><span class="lineNum"> 3474 </span><span class="lineCov"> 997257625 : continue;</span></a>
|
|
<a name="3475"><span class="lineNum"> 3475 </span> : }</a>
|
|
<a name="3476"><span class="lineNum"> 3476 </span> : </a>
|
|
<a name="3477"><span class="lineNum"> 3477 </span><span class="lineCov"> 1357538102 : if MBTEST(ch == '\\') /* backslashes */</span></a>
|
|
<a name="3478"><span class="lineNum"> 3478 </span><span class="lineCov"> 73294 : tflags |= LEX_PASSNEXT;</span></a>
|
|
<a name="3479"><span class="lineNum"> 3479 </span> : </a>
|
|
<a name="3480"><span class="lineNum"> 3480 </span> : /* Based on which dolstate is currently in (param, op, or word),</a>
|
|
<a name="3481"><span class="lineNum"> 3481 </span> : decide what the op is. We're really only concerned if it's % or</a>
|
|
<a name="3482"><span class="lineNum"> 3482 </span> : #, so we can turn on a flag that says whether or not we should</a>
|
|
<a name="3483"><span class="lineNum"> 3483 </span> : treat single quotes as special when inside a double-quoted</a>
|
|
<a name="3484"><span class="lineNum"> 3484 </span> : ${...}. This logic must agree with subst.c:extract_dollar_brace_string</a>
|
|
<a name="3485"><span class="lineNum"> 3485 </span> : since they share the same defines. */</a>
|
|
<a name="3486"><span class="lineNum"> 3486 </span> : /* FLAG POSIX INTERP 221 */</a>
|
|
<a name="3487"><span class="lineNum"> 3487 </span><span class="lineCov"> 1357538102 : if (flags & P_DOLBRACE)</span></a>
|
|
<a name="3488"><span class="lineNum"> 3488 </span> : {</a>
|
|
<a name="3489"><span class="lineNum"> 3489 </span> : /* ${param%[%]word} */</a>
|
|
<a name="3490"><span class="lineNum"> 3490 </span><span class="lineCov"> 363695118 : if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '%' && retind > 1)</span></a>
|
|
<a name="3491"><span class="lineNum"> 3491 </span> : dolbrace_state = DOLBRACE_QUOTE;</a>
|
|
<a name="3492"><span class="lineNum"> 3492 </span> : /* ${param#[#]word} */</a>
|
|
<a name="3493"><span class="lineNum"> 3493 </span><span class="lineCov"> 363695089 : else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '#' && retind > 1)</span></a>
|
|
<a name="3494"><span class="lineNum"> 3494 </span> : dolbrace_state = DOLBRACE_QUOTE;</a>
|
|
<a name="3495"><span class="lineNum"> 3495 </span> : /* ${param/[/]pat/rep} */</a>
|
|
<a name="3496"><span class="lineNum"> 3496 </span><span class="lineCov"> 357889777 : else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '/' && retind > 1)</span></a>
|
|
<a name="3497"><span class="lineNum"> 3497 </span> : dolbrace_state = DOLBRACE_QUOTE2; /* XXX */</a>
|
|
<a name="3498"><span class="lineNum"> 3498 </span> : /* ${param^[^]pat} */</a>
|
|
<a name="3499"><span class="lineNum"> 3499 </span><span class="lineCov"> 357889126 : else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == '^' && retind > 1)</span></a>
|
|
<a name="3500"><span class="lineNum"> 3500 </span> : dolbrace_state = DOLBRACE_QUOTE;</a>
|
|
<a name="3501"><span class="lineNum"> 3501 </span> : /* ${param,[,]pat} */</a>
|
|
<a name="3502"><span class="lineNum"> 3502 </span><span class="lineCov"> 357889107 : else if MBTEST(dolbrace_state == DOLBRACE_PARAM && ch == ',' && retind > 1)</span></a>
|
|
<a name="3503"><span class="lineNum"> 3503 </span> : dolbrace_state = DOLBRACE_QUOTE;</a>
|
|
<a name="3504"><span class="lineNum"> 3504 </span><span class="lineCov"> 357889027 : else if MBTEST(dolbrace_state == DOLBRACE_PARAM && strchr ("#%^,~:-=?+/", ch) != 0)</span></a>
|
|
<a name="3505"><span class="lineNum"> 3505 </span> : dolbrace_state = DOLBRACE_OP;</a>
|
|
<a name="3506"><span class="lineNum"> 3506 </span><span class="lineCov"> 338801835 : else if MBTEST(dolbrace_state == DOLBRACE_OP && strchr ("#%^,~:-=?+/", ch) == 0)</span></a>
|
|
<a name="3507"><span class="lineNum"> 3507 </span><span class="lineCov"> 19087187 : dolbrace_state = DOLBRACE_WORD;</span></a>
|
|
<a name="3508"><span class="lineNum"> 3508 </span> : }</a>
|
|
<a name="3509"><span class="lineNum"> 3509 </span> : </a>
|
|
<a name="3510"><span class="lineNum"> 3510 </span> : /* The big hammer. Single quotes aren't special in double quotes. The</a>
|
|
<a name="3511"><span class="lineNum"> 3511 </span> : problem is that Posix used to say the single quotes are semi-special:</a>
|
|
<a name="3512"><span class="lineNum"> 3512 </span> : within a double-quoted ${...} construct "an even number of</a>
|
|
<a name="3513"><span class="lineNum"> 3513 </span> : unescaped double-quotes or single-quotes, if any, shall occur." */</a>
|
|
<a name="3514"><span class="lineNum"> 3514 </span> : /* This was changed in Austin Group Interp 221 */</a>
|
|
<a name="3515"><span class="lineNum"> 3515 </span><span class="lineCov"> 1357538102 : if MBTEST(posixly_correct && shell_compatibility_level > 41 && dolbrace_state != DOLBRACE_QUOTE && dolbrace_state != DOLBRACE_QUOTE2 && (flags & P_DQUOTE) && (flags & P_DOLBRACE) && ch == '\'')</span></a>
|
|
<a name="3516"><span class="lineNum"> 3516 </span> : continue;</a>
|
|
<a name="3517"><span class="lineNum"> 3517 </span> : </a>
|
|
<a name="3518"><span class="lineNum"> 3518 </span> : /* Could also check open == '`' if we want to parse grouping constructs</a>
|
|
<a name="3519"><span class="lineNum"> 3519 </span> : inside old-style command substitution. */</a>
|
|
<a name="3520"><span class="lineNum"> 3520 </span><span class="lineCov"> 1357538102 : if (open != close) /* a grouping construct */</span></a>
|
|
<a name="3521"><span class="lineNum"> 3521 </span> : {</a>
|
|
<a name="3522"><span class="lineNum"> 3522 </span><span class="lineCov"> 365112057 : if MBTEST(shellquote (ch))</span></a>
|
|
<a name="3523"><span class="lineNum"> 3523 </span> : {</a>
|
|
<a name="3524"><span class="lineNum"> 3524 </span> : /* '', ``, or "" inside $(...) or other grouping construct. */</a>
|
|
<a name="3525"><span class="lineNum"> 3525 </span><span class="lineCov"> 31507 : push_delimiter (dstack, ch);</span></a>
|
|
<a name="3526"><span class="lineNum"> 3526 </span><span class="lineCov"> 31507 : if MBTEST((tflags & LEX_WASDOL) && ch == '\'') /* $'...' inside group */</span></a>
|
|
<a name="3527"><span class="lineNum"> 3527 </span><span class="lineCov"> 9 : nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC|rflags);</span></a>
|
|
<a name="3528"><span class="lineNum"> 3528 </span> : else</a>
|
|
<a name="3529"><span class="lineNum"> 3529 </span><span class="lineCov"> 31498 : nestret = parse_matched_pair (ch, ch, ch, &nestlen, rflags);</span></a>
|
|
<a name="3530"><span class="lineNum"> 3530 </span><span class="lineCov"> 31507 : pop_delimiter (dstack);</span></a>
|
|
<a name="3531"><span class="lineNum"> 3531 </span><span class="lineCov"> 31507 : CHECK_NESTRET_ERROR ();</span></a>
|
|
<a name="3532"><span class="lineNum"> 3532 </span> : </a>
|
|
<a name="3533"><span class="lineNum"> 3533 </span><span class="lineCov"> 29845 : if MBTEST((tflags & LEX_WASDOL) && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))</span></a>
|
|
<a name="3534"><span class="lineNum"> 3534 </span> : {</a>
|
|
<a name="3535"><span class="lineNum"> 3535 </span> : /* Translate $'...' here. */</a>
|
|
<a name="3536"><span class="lineNum"> 3536 </span><span class="lineCov"> 9 : ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);</span></a>
|
|
<a name="3537"><span class="lineNum"> 3537 </span><span class="lineCov"> 9 : xfree (nestret);</span></a>
|
|
<a name="3538"><span class="lineNum"> 3538 </span> : </a>
|
|
<a name="3539"><span class="lineNum"> 3539 </span> : /* If we're parsing a double-quoted brace expansion and we are</a>
|
|
<a name="3540"><span class="lineNum"> 3540 </span> : not in a place where single quotes are treated specially,</a>
|
|
<a name="3541"><span class="lineNum"> 3541 </span> : make sure we single-quote the results of the ansi</a>
|
|
<a name="3542"><span class="lineNum"> 3542 </span> : expansion because quote removal should remove them later */</a>
|
|
<a name="3543"><span class="lineNum"> 3543 </span> : /* FLAG POSIX INTERP 221 */</a>
|
|
<a name="3544"><span class="lineNum"> 3544 </span><span class="lineCov"> 9 : if ((shell_compatibility_level > 42) && (rflags & P_DQUOTE) && (dolbrace_state == DOLBRACE_QUOTE2) && (flags & P_DOLBRACE))</span></a>
|
|
<a name="3545"><span class="lineNum"> 3545 </span> : {</a>
|
|
<a name="3546"><span class="lineNum"> 3546 </span><span class="lineNoCov"> 0 : nestret = sh_single_quote (ttrans);</span></a>
|
|
<a name="3547"><span class="lineNum"> 3547 </span><span class="lineNoCov"> 0 : free (ttrans);</span></a>
|
|
<a name="3548"><span class="lineNum"> 3548 </span><span class="lineNoCov"> 0 : nestlen = strlen (nestret);</span></a>
|
|
<a name="3549"><span class="lineNum"> 3549 </span> : }</a>
|
|
<a name="3550"><span class="lineNum"> 3550 </span><span class="lineCov"> 9 : else if ((rflags & P_DQUOTE) == 0)</span></a>
|
|
<a name="3551"><span class="lineNum"> 3551 </span> : {</a>
|
|
<a name="3552"><span class="lineNum"> 3552 </span><span class="lineCov"> 9 : nestret = sh_single_quote (ttrans);</span></a>
|
|
<a name="3553"><span class="lineNum"> 3553 </span><span class="lineCov"> 9 : free (ttrans);</span></a>
|
|
<a name="3554"><span class="lineNum"> 3554 </span><span class="lineCov"> 9 : nestlen = strlen (nestret);</span></a>
|
|
<a name="3555"><span class="lineNum"> 3555 </span> : }</a>
|
|
<a name="3556"><span class="lineNum"> 3556 </span> : else</a>
|
|
<a name="3557"><span class="lineNum"> 3557 </span> : {</a>
|
|
<a name="3558"><span class="lineNum"> 3558 </span><span class="lineNoCov"> 0 : nestret = ttrans;</span></a>
|
|
<a name="3559"><span class="lineNum"> 3559 </span><span class="lineNoCov"> 0 : nestlen = ttranslen;</span></a>
|
|
<a name="3560"><span class="lineNum"> 3560 </span> : }</a>
|
|
<a name="3561"><span class="lineNum"> 3561 </span><span class="lineCov"> 9 : retind -= 2; /* back up before the $' */</span></a>
|
|
<a name="3562"><span class="lineNum"> 3562 </span> : }</a>
|
|
<a name="3563"><span class="lineNum"> 3563 </span><span class="lineCov"> 29836 : else if MBTEST((tflags & LEX_WASDOL) && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))</span></a>
|
|
<a name="3564"><span class="lineNum"> 3564 </span> : {</a>
|
|
<a name="3565"><span class="lineNum"> 3565 </span> : /* Locale expand $"..." here. */</a>
|
|
<a name="3566"><span class="lineNum"> 3566 </span><span class="lineCov"> 11 : ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);</span></a>
|
|
<a name="3567"><span class="lineNum"> 3567 </span><span class="lineCov"> 11 : xfree (nestret);</span></a>
|
|
<a name="3568"><span class="lineNum"> 3568 </span> : </a>
|
|
<a name="3569"><span class="lineNum"> 3569 </span><span class="lineCov"> 11 : nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);</span></a>
|
|
<a name="3570"><span class="lineNum"> 3570 </span><span class="lineCov"> 11 : free (ttrans);</span></a>
|
|
<a name="3571"><span class="lineNum"> 3571 </span><span class="lineCov"> 11 : nestlen = ttranslen + 2;</span></a>
|
|
<a name="3572"><span class="lineNum"> 3572 </span><span class="lineCov"> 11 : retind -= 2; /* back up before the $" */</span></a>
|
|
<a name="3573"><span class="lineNum"> 3573 </span> : }</a>
|
|
<a name="3574"><span class="lineNum"> 3574 </span> : </a>
|
|
<a name="3575"><span class="lineNum"> 3575 </span><span class="lineCov"> 37276 : APPEND_NESTRET ();</span></a>
|
|
<a name="3576"><span class="lineNum"> 3576 </span><span class="lineCov"> 29845 : FREE (nestret);</span></a>
|
|
<a name="3577"><span class="lineNum"> 3577 </span> : }</a>
|
|
<a name="3578"><span class="lineNum"> 3578 </span><span class="lineCov"> 365080550 : else if ((flags & (P_ARRAYSUB|P_DOLBRACE)) && (tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */</span></a>
|
|
<a name="3579"><span class="lineNum"> 3579 </span> : goto parse_dollar_word;</a>
|
|
<a name="3580"><span class="lineNum"> 3580 </span> : }</a>
|
|
<a name="3581"><span class="lineNum"> 3581 </span> : /* Parse an old-style command substitution within double quotes as a</a>
|
|
<a name="3582"><span class="lineNum"> 3582 </span> : single word. */</a>
|
|
<a name="3583"><span class="lineNum"> 3583 </span> : /* XXX - sh and ksh93 don't do this - XXX */</a>
|
|
<a name="3584"><span class="lineNum"> 3584 </span><span class="lineCov"> 992426045 : else if MBTEST(open == '"' && ch == '`')</span></a>
|
|
<a name="3585"><span class="lineNum"> 3585 </span> : {</a>
|
|
<a name="3586"><span class="lineNum"> 3586 </span><span class="lineCov"> 10259 : nestret = parse_matched_pair (0, '`', '`', &nestlen, rflags);</span></a>
|
|
<a name="3587"><span class="lineNum"> 3587 </span> : </a>
|
|
<a name="3588"><span class="lineNum"> 3588 </span><span class="lineCov"> 10259 : CHECK_NESTRET_ERROR ();</span></a>
|
|
<a name="3589"><span class="lineNum"> 3589 </span><span class="lineCov"> 9591 : APPEND_NESTRET ();</span></a>
|
|
<a name="3590"><span class="lineNum"> 3590 </span> : </a>
|
|
<a name="3591"><span class="lineNum"> 3591 </span><span class="lineCov"> 4429 : FREE (nestret);</span></a>
|
|
<a name="3592"><span class="lineNum"> 3592 </span> : }</a>
|
|
<a name="3593"><span class="lineNum"> 3593 </span><span class="lineCov"> 992415786 : else if MBTEST(open != '`' && (tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */</span></a>
|
|
<a name="3594"><span class="lineNum"> 3594 </span> : /* check for $(), $[], or ${} inside quoted string. */</a>
|
|
<a name="3595"><span class="lineNum"> 3595 </span> : {</a>
|
|
<a name="3596"><span class="lineNum"> 3596 </span><span class="lineCov"> 24833559 : parse_dollar_word:</span></a>
|
|
<a name="3597"><span class="lineNum"> 3597 </span><span class="lineCov"> 24833895 : if (open == ch) /* undo previous increment */</span></a>
|
|
<a name="3598"><span class="lineNum"> 3598 </span><span class="lineCov"> 180 : count--;</span></a>
|
|
<a name="3599"><span class="lineNum"> 3599 </span><span class="lineCov"> 24833895 : if (ch == '(') /* ) */</span></a>
|
|
<a name="3600"><span class="lineNum"> 3600 </span><span class="lineCov"> 216 : nestret = parse_comsub (0, '(', ')', &nestlen, (rflags|P_COMMAND) & ~P_DQUOTE);</span></a>
|
|
<a name="3601"><span class="lineNum"> 3601 </span><span class="lineCov"> 24833679 : else if (ch == '{') /* } */</span></a>
|
|
<a name="3602"><span class="lineNum"> 3602 </span><span class="lineCov"> 24833529 : nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|P_DOLBRACE|rflags);</span></a>
|
|
<a name="3603"><span class="lineNum"> 3603 </span><span class="lineCov"> 150 : else if (ch == '[') /* ] */</span></a>
|
|
<a name="3604"><span class="lineNum"> 3604 </span><span class="lineCov"> 150 : nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);</span></a>
|
|
<a name="3605"><span class="lineNum"> 3605 </span> : </a>
|
|
<a name="3606"><span class="lineNum"> 3606 </span><span class="lineCov"> 24833895 : CHECK_NESTRET_ERROR ();</span></a>
|
|
<a name="3607"><span class="lineNum"> 3607 </span><span class="lineCov"> 24837593 : APPEND_NESTRET ();</span></a>
|
|
<a name="3608"><span class="lineNum"> 3608 </span> : </a>
|
|
<a name="3609"><span class="lineNum"> 3609 </span><span class="lineCov"> 24832865 : FREE (nestret);</span></a>
|
|
<a name="3610"><span class="lineNum"> 3610 </span> : }</a>
|
|
<a name="3611"><span class="lineNum"> 3611 </span><span class="lineCov"> 1357529580 : if MBTEST(ch == '$')</span></a>
|
|
<a name="3612"><span class="lineNum"> 3612 </span><span class="lineCov"> 116712213 : tflags |= LEX_WASDOL;</span></a>
|
|
<a name="3613"><span class="lineNum"> 3613 </span> : else</a>
|
|
<a name="3614"><span class="lineNum"> 3614 </span><span class="lineCov"> 1240817367 : tflags &= ~LEX_WASDOL;</span></a>
|
|
<a name="3615"><span class="lineNum"> 3615 </span> : }</a>
|
|
<a name="3616"><span class="lineNum"> 3616 </span> : </a>
|
|
<a name="3617"><span class="lineNum"> 3617 </span><span class="lineCov"> 179302199 : ret[retind] = '\0';</span></a>
|
|
<a name="3618"><span class="lineNum"> 3618 </span><span class="lineCov"> 179302199 : if (lenp)</span></a>
|
|
<a name="3619"><span class="lineNum"> 3619 </span><span class="lineCov"> 179302199 : *lenp = retind;</span></a>
|
|
<a name="3620"><span class="lineNum"> 3620 </span> : /*itrace("parse_matched_pair[%d]: returning %s", line_number, ret);*/</a>
|
|
<a name="3621"><span class="lineNum"> 3621 </span> : return ret;</a>
|
|
<a name="3622"><span class="lineNum"> 3622 </span> : }</a>
|
|
<a name="3623"><span class="lineNum"> 3623 </span> : </a>
|
|
<a name="3624"><span class="lineNum"> 3624 </span> : #if defined (DEBUG)</a>
|
|
<a name="3625"><span class="lineNum"> 3625 </span> : static void</a>
|
|
<a name="3626"><span class="lineNum"> 3626 </span> : dump_tflags (flags)</a>
|
|
<a name="3627"><span class="lineNum"> 3627 </span> : int flags;</a>
|
|
<a name="3628"><span class="lineNum"> 3628 </span> : {</a>
|
|
<a name="3629"><span class="lineNum"> 3629 </span> : int f;</a>
|
|
<a name="3630"><span class="lineNum"> 3630 </span> : </a>
|
|
<a name="3631"><span class="lineNum"> 3631 </span> : f = flags;</a>
|
|
<a name="3632"><span class="lineNum"> 3632 </span> : fprintf (stderr, "%d -> ", f);</a>
|
|
<a name="3633"><span class="lineNum"> 3633 </span> : if (f & LEX_WASDOL)</a>
|
|
<a name="3634"><span class="lineNum"> 3634 </span> : {</a>
|
|
<a name="3635"><span class="lineNum"> 3635 </span> : f &= ~LEX_WASDOL;</a>
|
|
<a name="3636"><span class="lineNum"> 3636 </span> : fprintf (stderr, "LEX_WASDOL%s", f ? "|" : "");</a>
|
|
<a name="3637"><span class="lineNum"> 3637 </span> : }</a>
|
|
<a name="3638"><span class="lineNum"> 3638 </span> : if (f & LEX_CKCOMMENT)</a>
|
|
<a name="3639"><span class="lineNum"> 3639 </span> : {</a>
|
|
<a name="3640"><span class="lineNum"> 3640 </span> : f &= ~LEX_CKCOMMENT;</a>
|
|
<a name="3641"><span class="lineNum"> 3641 </span> : fprintf (stderr, "LEX_CKCOMMENT%s", f ? "|" : "");</a>
|
|
<a name="3642"><span class="lineNum"> 3642 </span> : }</a>
|
|
<a name="3643"><span class="lineNum"> 3643 </span> : if (f & LEX_INCOMMENT)</a>
|
|
<a name="3644"><span class="lineNum"> 3644 </span> : {</a>
|
|
<a name="3645"><span class="lineNum"> 3645 </span> : f &= ~LEX_INCOMMENT;</a>
|
|
<a name="3646"><span class="lineNum"> 3646 </span> : fprintf (stderr, "LEX_INCOMMENT%s", f ? "|" : "");</a>
|
|
<a name="3647"><span class="lineNum"> 3647 </span> : }</a>
|
|
<a name="3648"><span class="lineNum"> 3648 </span> : if (f & LEX_PASSNEXT)</a>
|
|
<a name="3649"><span class="lineNum"> 3649 </span> : {</a>
|
|
<a name="3650"><span class="lineNum"> 3650 </span> : f &= ~LEX_PASSNEXT;</a>
|
|
<a name="3651"><span class="lineNum"> 3651 </span> : fprintf (stderr, "LEX_PASSNEXT%s", f ? "|" : "");</a>
|
|
<a name="3652"><span class="lineNum"> 3652 </span> : }</a>
|
|
<a name="3653"><span class="lineNum"> 3653 </span> : if (f & LEX_RESWDOK)</a>
|
|
<a name="3654"><span class="lineNum"> 3654 </span> : {</a>
|
|
<a name="3655"><span class="lineNum"> 3655 </span> : f &= ~LEX_RESWDOK;</a>
|
|
<a name="3656"><span class="lineNum"> 3656 </span> : fprintf (stderr, "LEX_RESWDOK%s", f ? "|" : "");</a>
|
|
<a name="3657"><span class="lineNum"> 3657 </span> : }</a>
|
|
<a name="3658"><span class="lineNum"> 3658 </span> : if (f & LEX_CKCASE)</a>
|
|
<a name="3659"><span class="lineNum"> 3659 </span> : {</a>
|
|
<a name="3660"><span class="lineNum"> 3660 </span> : f &= ~LEX_CKCASE;</a>
|
|
<a name="3661"><span class="lineNum"> 3661 </span> : fprintf (stderr, "LEX_CKCASE%s", f ? "|" : "");</a>
|
|
<a name="3662"><span class="lineNum"> 3662 </span> : }</a>
|
|
<a name="3663"><span class="lineNum"> 3663 </span> : if (f & LEX_INCASE)</a>
|
|
<a name="3664"><span class="lineNum"> 3664 </span> : {</a>
|
|
<a name="3665"><span class="lineNum"> 3665 </span> : f &= ~LEX_INCASE;</a>
|
|
<a name="3666"><span class="lineNum"> 3666 </span> : fprintf (stderr, "LEX_INCASE%s", f ? "|" : "");</a>
|
|
<a name="3667"><span class="lineNum"> 3667 </span> : }</a>
|
|
<a name="3668"><span class="lineNum"> 3668 </span> : if (f & LEX_INHEREDOC)</a>
|
|
<a name="3669"><span class="lineNum"> 3669 </span> : {</a>
|
|
<a name="3670"><span class="lineNum"> 3670 </span> : f &= ~LEX_INHEREDOC;</a>
|
|
<a name="3671"><span class="lineNum"> 3671 </span> : fprintf (stderr, "LEX_INHEREDOC%s", f ? "|" : "");</a>
|
|
<a name="3672"><span class="lineNum"> 3672 </span> : }</a>
|
|
<a name="3673"><span class="lineNum"> 3673 </span> : if (f & LEX_HEREDELIM)</a>
|
|
<a name="3674"><span class="lineNum"> 3674 </span> : {</a>
|
|
<a name="3675"><span class="lineNum"> 3675 </span> : f &= ~LEX_HEREDELIM;</a>
|
|
<a name="3676"><span class="lineNum"> 3676 </span> : fprintf (stderr, "LEX_HEREDELIM%s", f ? "|" : "");</a>
|
|
<a name="3677"><span class="lineNum"> 3677 </span> : }</a>
|
|
<a name="3678"><span class="lineNum"> 3678 </span> : if (f & LEX_STRIPDOC)</a>
|
|
<a name="3679"><span class="lineNum"> 3679 </span> : {</a>
|
|
<a name="3680"><span class="lineNum"> 3680 </span> : f &= ~LEX_STRIPDOC;</a>
|
|
<a name="3681"><span class="lineNum"> 3681 </span> : fprintf (stderr, "LEX_WASDOL%s", f ? "|" : "");</a>
|
|
<a name="3682"><span class="lineNum"> 3682 </span> : }</a>
|
|
<a name="3683"><span class="lineNum"> 3683 </span> : if (f & LEX_QUOTEDDOC)</a>
|
|
<a name="3684"><span class="lineNum"> 3684 </span> : {</a>
|
|
<a name="3685"><span class="lineNum"> 3685 </span> : f &= ~LEX_QUOTEDDOC;</a>
|
|
<a name="3686"><span class="lineNum"> 3686 </span> : fprintf (stderr, "LEX_QUOTEDDOC%s", f ? "|" : "");</a>
|
|
<a name="3687"><span class="lineNum"> 3687 </span> : }</a>
|
|
<a name="3688"><span class="lineNum"> 3688 </span> : if (f & LEX_INWORD)</a>
|
|
<a name="3689"><span class="lineNum"> 3689 </span> : {</a>
|
|
<a name="3690"><span class="lineNum"> 3690 </span> : f &= ~LEX_INWORD;</a>
|
|
<a name="3691"><span class="lineNum"> 3691 </span> : fprintf (stderr, "LEX_INWORD%s", f ? "|" : "");</a>
|
|
<a name="3692"><span class="lineNum"> 3692 </span> : }</a>
|
|
<a name="3693"><span class="lineNum"> 3693 </span> : </a>
|
|
<a name="3694"><span class="lineNum"> 3694 </span> : fprintf (stderr, "\n");</a>
|
|
<a name="3695"><span class="lineNum"> 3695 </span> : fflush (stderr);</a>
|
|
<a name="3696"><span class="lineNum"> 3696 </span> : }</a>
|
|
<a name="3697"><span class="lineNum"> 3697 </span> : #endif</a>
|
|
<a name="3698"><span class="lineNum"> 3698 </span> : </a>
|
|
<a name="3699"><span class="lineNum"> 3699 </span> : /* Parse a $(...) command substitution. This is messier than I'd like, and</a>
|
|
<a name="3700"><span class="lineNum"> 3700 </span> : reproduces a lot more of the token-reading code than I'd like. */</a>
|
|
<a name="3701"><span class="lineNum"> 3701 </span> : static char *</a>
|
|
<a name="3702"><span class="lineNum"> 3702 </span><span class="lineCov"> 676 : parse_comsub (qc, open, close, lenp, flags)</span></a>
|
|
<a name="3703"><span class="lineNum"> 3703 </span> : int qc; /* `"' if this construct is within double quotes */</a>
|
|
<a name="3704"><span class="lineNum"> 3704 </span> : int open, close;</a>
|
|
<a name="3705"><span class="lineNum"> 3705 </span> : int *lenp, flags;</a>
|
|
<a name="3706"><span class="lineNum"> 3706 </span> : {</a>
|
|
<a name="3707"><span class="lineNum"> 3707 </span><span class="lineCov"> 676 : int count, ch, peekc, tflags, lex_rwlen, lex_wlen, lex_firstind;</span></a>
|
|
<a name="3708"><span class="lineNum"> 3708 </span><span class="lineCov"> 676 : int nestlen, ttranslen, start_lineno;</span></a>
|
|
<a name="3709"><span class="lineNum"> 3709 </span><span class="lineCov"> 676 : char *ret, *nestret, *ttrans, *heredelim;</span></a>
|
|
<a name="3710"><span class="lineNum"> 3710 </span><span class="lineCov"> 676 : int retind, retsize, rflags, hdlen = 0;</span></a>
|
|
<a name="3711"><span class="lineNum"> 3711 </span> : </a>
|
|
<a name="3712"><span class="lineNum"> 3712 </span> : /* Posix interp 217 says arithmetic expressions have precedence, so</a>
|
|
<a name="3713"><span class="lineNum"> 3713 </span> : assume $(( introduces arithmetic expansion and parse accordingly. */</a>
|
|
<a name="3714"><span class="lineNum"> 3714 </span><span class="lineCov"> 676 : peekc = shell_getc (0);</span></a>
|
|
<a name="3715"><span class="lineNum"> 3715 </span><span class="lineCov"> 676 : shell_ungetc (peekc);</span></a>
|
|
<a name="3716"><span class="lineNum"> 3716 </span><span class="lineCov"> 676 : if (peekc == '(')</span></a>
|
|
<a name="3717"><span class="lineNum"> 3717 </span><span class="lineCov"> 10 : return (parse_matched_pair (qc, open, close, lenp, 0));</span></a>
|
|
<a name="3718"><span class="lineNum"> 3718 </span> : </a>
|
|
<a name="3719"><span class="lineNum"> 3719 </span> : /*itrace("parse_comsub: qc = `%c' open = %c close = %c", qc, open, close);*/</a>
|
|
<a name="3720"><span class="lineNum"> 3720 </span><span class="lineCov"> 666 : count = 1;</span></a>
|
|
<a name="3721"><span class="lineNum"> 3721 </span><span class="lineCov"> 666 : tflags = LEX_RESWDOK;</span></a>
|
|
<a name="3722"><span class="lineNum"> 3722 </span> : </a>
|
|
<a name="3723"><span class="lineNum"> 3723 </span><span class="lineCov"> 666 : if ((flags & P_COMMAND) && qc != '\'' && qc != '"' && (flags & P_DQUOTE) == 0)</span></a>
|
|
<a name="3724"><span class="lineNum"> 3724 </span><span class="lineCov"> 666 : tflags |= LEX_CKCASE;</span></a>
|
|
<a name="3725"><span class="lineNum"> 3725 </span><span class="lineCov"> 666 : if ((tflags & LEX_CKCASE) && (interactive == 0 || interactive_comments))</span></a>
|
|
<a name="3726"><span class="lineNum"> 3726 </span><span class="lineCov"> 666 : tflags |= LEX_CKCOMMENT;</span></a>
|
|
<a name="3727"><span class="lineNum"> 3727 </span> : </a>
|
|
<a name="3728"><span class="lineNum"> 3728 </span> : /* RFLAGS is the set of flags we want to pass to recursive calls. */</a>
|
|
<a name="3729"><span class="lineNum"> 3729 </span><span class="lineCov"> 666 : rflags = (flags & P_DQUOTE);</span></a>
|
|
<a name="3730"><span class="lineNum"> 3730 </span> : </a>
|
|
<a name="3731"><span class="lineNum"> 3731 </span><span class="lineCov"> 666 : ret = (char *)xmalloc (retsize = 64);</span></a>
|
|
<a name="3732"><span class="lineNum"> 3732 </span><span class="lineCov"> 666 : retind = 0;</span></a>
|
|
<a name="3733"><span class="lineNum"> 3733 </span> : </a>
|
|
<a name="3734"><span class="lineNum"> 3734 </span><span class="lineCov"> 666 : start_lineno = line_number;</span></a>
|
|
<a name="3735"><span class="lineNum"> 3735 </span><span class="lineCov"> 666 : lex_rwlen = lex_wlen = 0;</span></a>
|
|
<a name="3736"><span class="lineNum"> 3736 </span> : </a>
|
|
<a name="3737"><span class="lineNum"> 3737 </span><span class="lineCov"> 666 : heredelim = 0;</span></a>
|
|
<a name="3738"><span class="lineNum"> 3738 </span><span class="lineCov"> 666 : lex_firstind = -1;</span></a>
|
|
<a name="3739"><span class="lineNum"> 3739 </span> : </a>
|
|
<a name="3740"><span class="lineNum"> 3740 </span><span class="lineCov"> 88794 : while (count)</span></a>
|
|
<a name="3741"><span class="lineNum"> 3741 </span> : {</a>
|
|
<a name="3742"><span class="lineNum"> 3742 </span><span class="lineCov"> 96265 : ch = shell_getc (qc != '\'' && (tflags & (LEX_INCOMMENT|LEX_PASSNEXT)) == 0);</span></a>
|
|
<a name="3743"><span class="lineNum"> 3743 </span> : </a>
|
|
<a name="3744"><span class="lineNum"> 3744 </span><span class="lineCov"> 88794 : if (ch == EOF)</span></a>
|
|
<a name="3745"><span class="lineNum"> 3745 </span> : {</a>
|
|
<a name="3746"><span class="lineNum"> 3746 </span><span class="lineCov"> 224 : eof_error:</span></a>
|
|
<a name="3747"><span class="lineNum"> 3747 </span><span class="lineCov"> 224 : free (ret);</span></a>
|
|
<a name="3748"><span class="lineNum"> 3748 </span><span class="lineCov"> 224 : FREE (heredelim);</span></a>
|
|
<a name="3749"><span class="lineNum"> 3749 </span><span class="lineCov"> 224 : parser_error (start_lineno, _("unexpected EOF while looking for matching `%c'"), close);</span></a>
|
|
<a name="3750"><span class="lineNum"> 3750 </span><span class="lineCov"> 224 : EOF_Reached = 1; /* XXX */</span></a>
|
|
<a name="3751"><span class="lineNum"> 3751 </span><span class="lineCov"> 224 : return (&matched_pair_error);</span></a>
|
|
<a name="3752"><span class="lineNum"> 3752 </span> : }</a>
|
|
<a name="3753"><span class="lineNum"> 3753 </span> : </a>
|
|
<a name="3754"><span class="lineNum"> 3754 </span> : /* If we hit the end of a line and are reading the contents of a here</a>
|
|
<a name="3755"><span class="lineNum"> 3755 </span> : document, and it's not the same line that the document starts on,</a>
|
|
<a name="3756"><span class="lineNum"> 3756 </span> : check for this line being the here doc delimiter. Otherwise, if</a>
|
|
<a name="3757"><span class="lineNum"> 3757 </span> : we're in a here document, mark the next character as the beginning</a>
|
|
<a name="3758"><span class="lineNum"> 3758 </span> : of a line. */</a>
|
|
<a name="3759"><span class="lineNum"> 3759 </span><span class="lineCov"> 88570 : if (ch == '\n')</span></a>
|
|
<a name="3760"><span class="lineNum"> 3760 </span> : {</a>
|
|
<a name="3761"><span class="lineNum"> 3761 </span><span class="lineCov"> 5890 : if ((tflags & LEX_HEREDELIM) && heredelim)</span></a>
|
|
<a name="3762"><span class="lineNum"> 3762 </span> : {</a>
|
|
<a name="3763"><span class="lineNum"> 3763 </span><span class="lineNoCov"> 0 : tflags &= ~LEX_HEREDELIM;</span></a>
|
|
<a name="3764"><span class="lineNum"> 3764 </span><span class="lineNoCov"> 0 : tflags |= LEX_INHEREDOC;</span></a>
|
|
<a name="3765"><span class="lineNum"> 3765 </span><span class="lineNoCov"> 0 : lex_firstind = retind + 1;</span></a>
|
|
<a name="3766"><span class="lineNum"> 3766 </span> : }</a>
|
|
<a name="3767"><span class="lineNum"> 3767 </span><span class="lineCov"> 5890 : else if (tflags & LEX_INHEREDOC)</span></a>
|
|
<a name="3768"><span class="lineNum"> 3768 </span> : {</a>
|
|
<a name="3769"><span class="lineNum"> 3769 </span> : int tind;</a>
|
|
<a name="3770"><span class="lineNum"> 3770 </span> : tind = lex_firstind;</a>
|
|
<a name="3771"><span class="lineNum"> 3771 </span><span class="lineNoCov"> 0 : while ((tflags & LEX_STRIPDOC) && ret[tind] == '\t')</span></a>
|
|
<a name="3772"><span class="lineNum"> 3772 </span><span class="lineNoCov"> 0 : tind++;</span></a>
|
|
<a name="3773"><span class="lineNum"> 3773 </span><span class="lineNoCov"> 0 : if (STREQN (ret + tind, heredelim, hdlen))</span></a>
|
|
<a name="3774"><span class="lineNum"> 3774 </span> : {</a>
|
|
<a name="3775"><span class="lineNum"> 3775 </span><span class="lineNoCov"> 0 : tflags &= ~(LEX_STRIPDOC|LEX_INHEREDOC|LEX_QUOTEDDOC);</span></a>
|
|
<a name="3776"><span class="lineNum"> 3776 </span> : /*itrace("parse_comsub:%d: found here doc end `%s'", line_number, ret + tind);*/</a>
|
|
<a name="3777"><span class="lineNum"> 3777 </span><span class="lineNoCov"> 0 : free (heredelim);</span></a>
|
|
<a name="3778"><span class="lineNum"> 3778 </span><span class="lineNoCov"> 0 : heredelim = 0;</span></a>
|
|
<a name="3779"><span class="lineNum"> 3779 </span><span class="lineNoCov"> 0 : lex_firstind = -1;</span></a>
|
|
<a name="3780"><span class="lineNum"> 3780 </span> : }</a>
|
|
<a name="3781"><span class="lineNum"> 3781 </span> : else</a>
|
|
<a name="3782"><span class="lineNum"> 3782 </span><span class="lineNoCov"> 0 : lex_firstind = retind + 1;</span></a>
|
|
<a name="3783"><span class="lineNum"> 3783 </span> : }</a>
|
|
<a name="3784"><span class="lineNum"> 3784 </span> : }</a>
|
|
<a name="3785"><span class="lineNum"> 3785 </span> : </a>
|
|
<a name="3786"><span class="lineNum"> 3786 </span> : /* Possible reprompting. */</a>
|
|
<a name="3787"><span class="lineNum"> 3787 </span><span class="lineCov"> 88570 : if (ch == '\n' && SHOULD_PROMPT ())</span></a>
|
|
<a name="3788"><span class="lineNum"> 3788 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="3789"><span class="lineNum"> 3789 </span> : </a>
|
|
<a name="3790"><span class="lineNum"> 3790 </span> : /* XXX -- possibly allow here doc to be delimited by ending right</a>
|
|
<a name="3791"><span class="lineNum"> 3791 </span> : paren. */</a>
|
|
<a name="3792"><span class="lineNum"> 3792 </span><span class="lineCov"> 88570 : if ((tflags & LEX_INHEREDOC) && ch == close && count == 1)</span></a>
|
|
<a name="3793"><span class="lineNum"> 3793 </span> : {</a>
|
|
<a name="3794"><span class="lineNum"> 3794 </span> : int tind;</a>
|
|
<a name="3795"><span class="lineNum"> 3795 </span> : /*itrace("parse_comsub:%d: in here doc, ch == close, retind - firstind = %d hdlen = %d retind = %d", line_number, retind-lex_firstind, hdlen, retind);*/</a>
|
|
<a name="3796"><span class="lineNum"> 3796 </span> : tind = lex_firstind;</a>
|
|
<a name="3797"><span class="lineNum"> 3797 </span><span class="lineNoCov"> 0 : while ((tflags & LEX_STRIPDOC) && ret[tind] == '\t')</span></a>
|
|
<a name="3798"><span class="lineNum"> 3798 </span><span class="lineNoCov"> 0 : tind++;</span></a>
|
|
<a name="3799"><span class="lineNum"> 3799 </span><span class="lineNoCov"> 0 : if (retind-tind == hdlen && STREQN (ret + tind, heredelim, hdlen))</span></a>
|
|
<a name="3800"><span class="lineNum"> 3800 </span> : {</a>
|
|
<a name="3801"><span class="lineNum"> 3801 </span><span class="lineNoCov"> 0 : tflags &= ~(LEX_STRIPDOC|LEX_INHEREDOC|LEX_QUOTEDDOC);</span></a>
|
|
<a name="3802"><span class="lineNum"> 3802 </span> : /*itrace("parse_comsub:%d: found here doc end `%*s'", line_number, hdlen, ret + tind);*/</a>
|
|
<a name="3803"><span class="lineNum"> 3803 </span><span class="lineNoCov"> 0 : free (heredelim);</span></a>
|
|
<a name="3804"><span class="lineNum"> 3804 </span><span class="lineNoCov"> 0 : heredelim = 0;</span></a>
|
|
<a name="3805"><span class="lineNum"> 3805 </span><span class="lineNoCov"> 0 : lex_firstind = -1;</span></a>
|
|
<a name="3806"><span class="lineNum"> 3806 </span> : }</a>
|
|
<a name="3807"><span class="lineNum"> 3807 </span> : }</a>
|
|
<a name="3808"><span class="lineNum"> 3808 </span> : </a>
|
|
<a name="3809"><span class="lineNum"> 3809 </span> : /* Don't bother counting parens or doing anything else if in a comment or</a>
|
|
<a name="3810"><span class="lineNum"> 3810 </span> : here document (not exactly right for here-docs -- if we want to allow</a>
|
|
<a name="3811"><span class="lineNum"> 3811 </span> : recursive calls to parse_comsub to have their own here documents,</a>
|
|
<a name="3812"><span class="lineNum"> 3812 </span> : change the LEX_INHEREDOC to LEX_QUOTEDDOC here and uncomment the next</a>
|
|
<a name="3813"><span class="lineNum"> 3813 </span> : clause below. Note that to make this work completely, we need to make</a>
|
|
<a name="3814"><span class="lineNum"> 3814 </span> : additional changes to allow xparse_dolparen to work right when the</a>
|
|
<a name="3815"><span class="lineNum"> 3815 </span> : command substitution is parsed, because read_secondary_line doesn't know</a>
|
|
<a name="3816"><span class="lineNum"> 3816 </span> : to recursively parse through command substitutions embedded in here-</a>
|
|
<a name="3817"><span class="lineNum"> 3817 </span> : documents */</a>
|
|
<a name="3818"><span class="lineNum"> 3818 </span><span class="lineCov"> 88570 : if (tflags & (LEX_INCOMMENT|LEX_INHEREDOC))</span></a>
|
|
<a name="3819"><span class="lineNum"> 3819 </span> : {</a>
|
|
<a name="3820"><span class="lineNum"> 3820 </span> : /* Add this character. */</a>
|
|
<a name="3821"><span class="lineNum"> 3821 </span><span class="lineCov"> 7525 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="3822"><span class="lineNum"> 3822 </span><span class="lineCov"> 7408 : ret[retind++] = ch;</span></a>
|
|
<a name="3823"><span class="lineNum"> 3823 </span> : </a>
|
|
<a name="3824"><span class="lineNum"> 3824 </span><span class="lineCov"> 7408 : if ((tflags & LEX_INCOMMENT) && ch == '\n')</span></a>
|
|
<a name="3825"><span class="lineNum"> 3825 </span> : {</a>
|
|
<a name="3826"><span class="lineNum"> 3826 </span> : /*itrace("parse_comsub:%d: lex_incomment -> 0 ch = `%c'", line_number, ch);*/</a>
|
|
<a name="3827"><span class="lineNum"> 3827 </span><span class="lineCov"> 172 : tflags &= ~LEX_INCOMMENT;</span></a>
|
|
<a name="3828"><span class="lineNum"> 3828 </span> : }</a>
|
|
<a name="3829"><span class="lineNum"> 3829 </span> : </a>
|
|
<a name="3830"><span class="lineNum"> 3830 </span><span class="lineCov"> 7408 : continue;</span></a>
|
|
<a name="3831"><span class="lineNum"> 3831 </span> : }</a>
|
|
<a name="3832"><span class="lineNum"> 3832 </span> : #if 0</a>
|
|
<a name="3833"><span class="lineNum"> 3833 </span> : /* If we're going to recursively parse a command substitution inside a</a>
|
|
<a name="3834"><span class="lineNum"> 3834 </span> : here-document, make sure we call parse_comsub recursively below. See</a>
|
|
<a name="3835"><span class="lineNum"> 3835 </span> : above for additional caveats. */</a>
|
|
<a name="3836"><span class="lineNum"> 3836 </span> : if ((tflags & LEX_INHEREDOC) && ((tflags & LEX_WASDOL) == 0 || ch != '(')) /*)*/</a>
|
|
<a name="3837"><span class="lineNum"> 3837 </span> : {</a>
|
|
<a name="3838"><span class="lineNum"> 3838 </span> : /* Add this character. */</a>
|
|
<a name="3839"><span class="lineNum"> 3839 </span> : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</a>
|
|
<a name="3840"><span class="lineNum"> 3840 </span> : ret[retind++] = ch;</a>
|
|
<a name="3841"><span class="lineNum"> 3841 </span> : if MBTEST(ch == '$')</a>
|
|
<a name="3842"><span class="lineNum"> 3842 </span> : tflags |= LEX_WASDOL;</a>
|
|
<a name="3843"><span class="lineNum"> 3843 </span> : else</a>
|
|
<a name="3844"><span class="lineNum"> 3844 </span> : tflags &= ~LEX_WASDOL;</a>
|
|
<a name="3845"><span class="lineNum"> 3845 </span> : }</a>
|
|
<a name="3846"><span class="lineNum"> 3846 </span> : #endif</a>
|
|
<a name="3847"><span class="lineNum"> 3847 </span> : </a>
|
|
<a name="3848"><span class="lineNum"> 3848 </span><span class="lineCov"> 81162 : if (tflags & LEX_PASSNEXT) /* last char was backslash */</span></a>
|
|
<a name="3849"><span class="lineNum"> 3849 </span> : {</a>
|
|
<a name="3850"><span class="lineNum"> 3850 </span> : /*itrace("parse_comsub:%d: lex_passnext -> 0 ch = `%c' (%d)", line_number, ch, __LINE__);*/</a>
|
|
<a name="3851"><span class="lineNum"> 3851 </span><span class="lineCov"> 63 : tflags &= ~LEX_PASSNEXT;</span></a>
|
|
<a name="3852"><span class="lineNum"> 3852 </span><span class="lineCov"> 63 : if (qc != '\'' && ch == '\n') /* double-quoted \<newline> disappears. */</span></a>
|
|
<a name="3853"><span class="lineNum"> 3853 </span> : {</a>
|
|
<a name="3854"><span class="lineNum"> 3854 </span><span class="lineNoCov"> 0 : if (retind > 0)</span></a>
|
|
<a name="3855"><span class="lineNum"> 3855 </span><span class="lineNoCov"> 0 : retind--; /* swallow previously-added backslash */</span></a>
|
|
<a name="3856"><span class="lineNum"> 3856 </span><span class="lineNoCov"> 0 : continue;</span></a>
|
|
<a name="3857"><span class="lineNum"> 3857 </span> : }</a>
|
|
<a name="3858"><span class="lineNum"> 3858 </span> : </a>
|
|
<a name="3859"><span class="lineNum"> 3859 </span><span class="lineCov"> 63 : RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);</span></a>
|
|
<a name="3860"><span class="lineNum"> 3860 </span><span class="lineCov"> 63 : if MBTEST(ch == CTLESC)</span></a>
|
|
<a name="3861"><span class="lineNum"> 3861 </span><span class="lineNoCov"> 0 : ret[retind++] = CTLESC;</span></a>
|
|
<a name="3862"><span class="lineNum"> 3862 </span><span class="lineCov"> 63 : ret[retind++] = ch;</span></a>
|
|
<a name="3863"><span class="lineNum"> 3863 </span><span class="lineCov"> 63 : continue;</span></a>
|
|
<a name="3864"><span class="lineNum"> 3864 </span> : }</a>
|
|
<a name="3865"><span class="lineNum"> 3865 </span> : </a>
|
|
<a name="3866"><span class="lineNum"> 3866 </span> : /* If this is a shell break character, we are not in a word. If not,</a>
|
|
<a name="3867"><span class="lineNum"> 3867 </span> : we either start or continue a word. */</a>
|
|
<a name="3868"><span class="lineNum"> 3868 </span><span class="lineCov"> 81099 : if MBTEST(shellbreak (ch))</span></a>
|
|
<a name="3869"><span class="lineNum"> 3869 </span> : {</a>
|
|
<a name="3870"><span class="lineNum"> 3870 </span><span class="lineCov"> 20334 : tflags &= ~LEX_INWORD;</span></a>
|
|
<a name="3871"><span class="lineNum"> 3871 </span> : /*itrace("parse_comsub:%d: lex_inword -> 0 ch = `%c' (%d)", line_number, ch, __LINE__);*/</a>
|
|
<a name="3872"><span class="lineNum"> 3872 </span> : }</a>
|
|
<a name="3873"><span class="lineNum"> 3873 </span> : else</a>
|
|
<a name="3874"><span class="lineNum"> 3874 </span> : {</a>
|
|
<a name="3875"><span class="lineNum"> 3875 </span><span class="lineCov"> 60765 : if (tflags & LEX_INWORD)</span></a>
|
|
<a name="3876"><span class="lineNum"> 3876 </span> : {</a>
|
|
<a name="3877"><span class="lineNum"> 3877 </span><span class="lineCov"> 52505 : lex_wlen++;</span></a>
|
|
<a name="3878"><span class="lineNum"> 3878 </span> : /*itrace("parse_comsub:%d: lex_inword == 1 ch = `%c' lex_wlen = %d (%d)", line_number, ch, lex_wlen, __LINE__);*/</a>
|
|
<a name="3879"><span class="lineNum"> 3879 </span> : } </a>
|
|
<a name="3880"><span class="lineNum"> 3880 </span> : else</a>
|
|
<a name="3881"><span class="lineNum"> 3881 </span> : {</a>
|
|
<a name="3882"><span class="lineNum"> 3882 </span> : /*itrace("parse_comsub:%d: lex_inword -> 1 ch = `%c' (%d)", line_number, ch, __LINE__);*/</a>
|
|
<a name="3883"><span class="lineNum"> 3883 </span><span class="lineCov"> 8260 : tflags |= LEX_INWORD;</span></a>
|
|
<a name="3884"><span class="lineNum"> 3884 </span><span class="lineCov"> 8260 : lex_wlen = 0;</span></a>
|
|
<a name="3885"><span class="lineNum"> 3885 </span><span class="lineCov"> 8260 : if (tflags & LEX_RESWDOK)</span></a>
|
|
<a name="3886"><span class="lineNum"> 3886 </span><span class="lineCov"> 5511 : lex_rwlen = 0;</span></a>
|
|
<a name="3887"><span class="lineNum"> 3887 </span> : }</a>
|
|
<a name="3888"><span class="lineNum"> 3888 </span> : }</a>
|
|
<a name="3889"><span class="lineNum"> 3889 </span> : </a>
|
|
<a name="3890"><span class="lineNum"> 3890 </span> : /* Skip whitespace */</a>
|
|
<a name="3891"><span class="lineNum"> 3891 </span><span class="lineCov"> 81099 : if MBTEST(shellblank (ch) && (tflags & LEX_HEREDELIM) == 0 && lex_rwlen == 0)</span></a>
|
|
<a name="3892"><span class="lineNum"> 3892 </span> : {</a>
|
|
<a name="3893"><span class="lineNum"> 3893 </span> : /* Add this character. */</a>
|
|
<a name="3894"><span class="lineNum"> 3894 </span><span class="lineCov"> 7464 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="3895"><span class="lineNum"> 3895 </span><span class="lineCov"> 7360 : ret[retind++] = ch;</span></a>
|
|
<a name="3896"><span class="lineNum"> 3896 </span><span class="lineCov"> 7360 : continue;</span></a>
|
|
<a name="3897"><span class="lineNum"> 3897 </span> : }</a>
|
|
<a name="3898"><span class="lineNum"> 3898 </span> : </a>
|
|
<a name="3899"><span class="lineNum"> 3899 </span> : /* Either we are looking for the start of the here-doc delimiter</a>
|
|
<a name="3900"><span class="lineNum"> 3900 </span> : (lex_firstind == -1) or we are reading one (lex_firstind >= 0).</a>
|
|
<a name="3901"><span class="lineNum"> 3901 </span> : If this character is a shell break character and we are reading</a>
|
|
<a name="3902"><span class="lineNum"> 3902 </span> : the delimiter, save it and note that we are now reading a here</a>
|
|
<a name="3903"><span class="lineNum"> 3903 </span> : document. If we've found the start of the delimiter, note it by</a>
|
|
<a name="3904"><span class="lineNum"> 3904 </span> : setting lex_firstind. Backslashes can quote shell metacharacters</a>
|
|
<a name="3905"><span class="lineNum"> 3905 </span> : in here-doc delimiters. */</a>
|
|
<a name="3906"><span class="lineNum"> 3906 </span><span class="lineCov"> 73739 : if (tflags & LEX_HEREDELIM)</span></a>
|
|
<a name="3907"><span class="lineNum"> 3907 </span> : {</a>
|
|
<a name="3908"><span class="lineNum"> 3908 </span><span class="lineNoCov"> 0 : if (lex_firstind == -1 && shellbreak (ch) == 0)</span></a>
|
|
<a name="3909"><span class="lineNum"> 3909 </span> : lex_firstind = retind;</a>
|
|
<a name="3910"><span class="lineNum"> 3910 </span> : #if 0</a>
|
|
<a name="3911"><span class="lineNum"> 3911 </span> : else if (heredelim && (tflags & LEX_PASSNEXT) == 0 && ch == '\n')</a>
|
|
<a name="3912"><span class="lineNum"> 3912 </span> : {</a>
|
|
<a name="3913"><span class="lineNum"> 3913 </span> : tflags |= LEX_INHEREDOC;</a>
|
|
<a name="3914"><span class="lineNum"> 3914 </span> : tflags &= ~LEX_HEREDELIM;</a>
|
|
<a name="3915"><span class="lineNum"> 3915 </span> : lex_firstind = retind + 1;</a>
|
|
<a name="3916"><span class="lineNum"> 3916 </span> : }</a>
|
|
<a name="3917"><span class="lineNum"> 3917 </span> : #endif</a>
|
|
<a name="3918"><span class="lineNum"> 3918 </span><span class="lineNoCov"> 0 : else if (lex_firstind >= 0 && (tflags & LEX_PASSNEXT) == 0 && shellbreak (ch))</span></a>
|
|
<a name="3919"><span class="lineNum"> 3919 </span> : {</a>
|
|
<a name="3920"><span class="lineNum"> 3920 </span><span class="lineNoCov"> 0 : if (heredelim == 0)</span></a>
|
|
<a name="3921"><span class="lineNum"> 3921 </span> : {</a>
|
|
<a name="3922"><span class="lineNum"> 3922 </span><span class="lineNoCov"> 0 : nestret = substring (ret, lex_firstind, retind);</span></a>
|
|
<a name="3923"><span class="lineNum"> 3923 </span><span class="lineNoCov"> 0 : heredelim = string_quote_removal (nestret, 0);</span></a>
|
|
<a name="3924"><span class="lineNum"> 3924 </span><span class="lineNoCov"> 0 : hdlen = STRLEN(heredelim);</span></a>
|
|
<a name="3925"><span class="lineNum"> 3925 </span> : /*itrace("parse_comsub:%d: found here doc delimiter `%s' (%d)", line_number, heredelim, hdlen);*/</a>
|
|
<a name="3926"><span class="lineNum"> 3926 </span><span class="lineNoCov"> 0 : if (STREQ (heredelim, nestret) == 0)</span></a>
|
|
<a name="3927"><span class="lineNum"> 3927 </span><span class="lineNoCov"> 0 : tflags |= LEX_QUOTEDDOC;</span></a>
|
|
<a name="3928"><span class="lineNum"> 3928 </span><span class="lineNoCov"> 0 : free (nestret);</span></a>
|
|
<a name="3929"><span class="lineNum"> 3929 </span> : }</a>
|
|
<a name="3930"><span class="lineNum"> 3930 </span><span class="lineNoCov"> 0 : if (ch == '\n')</span></a>
|
|
<a name="3931"><span class="lineNum"> 3931 </span> : {</a>
|
|
<a name="3932"><span class="lineNum"> 3932 </span><span class="lineNoCov"> 0 : tflags |= LEX_INHEREDOC;</span></a>
|
|
<a name="3933"><span class="lineNum"> 3933 </span><span class="lineNoCov"> 0 : tflags &= ~LEX_HEREDELIM;</span></a>
|
|
<a name="3934"><span class="lineNum"> 3934 </span><span class="lineNoCov"> 0 : lex_firstind = retind + 1;</span></a>
|
|
<a name="3935"><span class="lineNum"> 3935 </span> : }</a>
|
|
<a name="3936"><span class="lineNum"> 3936 </span> : else</a>
|
|
<a name="3937"><span class="lineNum"> 3937 </span> : lex_firstind = -1;</a>
|
|
<a name="3938"><span class="lineNum"> 3938 </span> : }</a>
|
|
<a name="3939"><span class="lineNum"> 3939 </span> : }</a>
|
|
<a name="3940"><span class="lineNum"> 3940 </span> : </a>
|
|
<a name="3941"><span class="lineNum"> 3941 </span> : /* Meta-characters that can introduce a reserved word. Not perfect yet. */</a>
|
|
<a name="3942"><span class="lineNum"> 3942 </span><span class="lineCov"> 73739 : if MBTEST((tflags & LEX_RESWDOK) == 0 && (tflags & LEX_CKCASE) && (tflags & LEX_INCOMMENT) == 0 && (shellmeta(ch) || ch == '\n'))</span></a>
|
|
<a name="3943"><span class="lineNum"> 3943 </span> : {</a>
|
|
<a name="3944"><span class="lineNum"> 3944 </span> : /* Add this character. */</a>
|
|
<a name="3945"><span class="lineNum"> 3945 </span><span class="lineCov"> 5051 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="3946"><span class="lineNum"> 3946 </span><span class="lineCov"> 4977 : ret[retind++] = ch;</span></a>
|
|
<a name="3947"><span class="lineNum"> 3947 </span><span class="lineCov"> 4977 : peekc = shell_getc (1);</span></a>
|
|
<a name="3948"><span class="lineNum"> 3948 </span><span class="lineCov"> 4977 : if (ch == peekc && (ch == '&' || ch == '|' || ch == ';')) /* two-character tokens */</span></a>
|
|
<a name="3949"><span class="lineNum"> 3949 </span> : {</a>
|
|
<a name="3950"><span class="lineNum"> 3950 </span><span class="lineCov"> 416 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="3951"><span class="lineNum"> 3951 </span><span class="lineCov"> 397 : ret[retind++] = peekc;</span></a>
|
|
<a name="3952"><span class="lineNum"> 3952 </span> : /*itrace("parse_comsub:%d: set lex_reswordok = 1, ch = `%c'", line_number, ch);*/</a>
|
|
<a name="3953"><span class="lineNum"> 3953 </span><span class="lineCov"> 397 : tflags |= LEX_RESWDOK;</span></a>
|
|
<a name="3954"><span class="lineNum"> 3954 </span><span class="lineCov"> 397 : lex_rwlen = 0;</span></a>
|
|
<a name="3955"><span class="lineNum"> 3955 </span><span class="lineCov"> 397 : continue;</span></a>
|
|
<a name="3956"><span class="lineNum"> 3956 </span> : }</a>
|
|
<a name="3957"><span class="lineNum"> 3957 </span><span class="lineCov"> 4580 : else if (ch == '\n' || COMSUB_META(ch))</span></a>
|
|
<a name="3958"><span class="lineNum"> 3958 </span> : {</a>
|
|
<a name="3959"><span class="lineNum"> 3959 </span><span class="lineCov"> 3825 : shell_ungetc (peekc);</span></a>
|
|
<a name="3960"><span class="lineNum"> 3960 </span> : /*itrace("parse_comsub:%d: set lex_reswordok = 1, ch = `%c'", line_number, ch);*/</a>
|
|
<a name="3961"><span class="lineNum"> 3961 </span><span class="lineCov"> 3825 : tflags |= LEX_RESWDOK;</span></a>
|
|
<a name="3962"><span class="lineNum"> 3962 </span><span class="lineCov"> 3825 : lex_rwlen = 0;</span></a>
|
|
<a name="3963"><span class="lineNum"> 3963 </span><span class="lineCov"> 3825 : continue;</span></a>
|
|
<a name="3964"><span class="lineNum"> 3964 </span> : }</a>
|
|
<a name="3965"><span class="lineNum"> 3965 </span><span class="lineCov"> 755 : else if (ch == EOF)</span></a>
|
|
<a name="3966"><span class="lineNum"> 3966 </span> : goto eof_error;</a>
|
|
<a name="3967"><span class="lineNum"> 3967 </span> : else</a>
|
|
<a name="3968"><span class="lineNum"> 3968 </span> : {</a>
|
|
<a name="3969"><span class="lineNum"> 3969 </span> : /* `unget' the character we just added and fall through */</a>
|
|
<a name="3970"><span class="lineNum"> 3970 </span><span class="lineCov"> 755 : retind--;</span></a>
|
|
<a name="3971"><span class="lineNum"> 3971 </span><span class="lineCov"> 755 : shell_ungetc (peekc);</span></a>
|
|
<a name="3972"><span class="lineNum"> 3972 </span> : }</a>
|
|
<a name="3973"><span class="lineNum"> 3973 </span> : }</a>
|
|
<a name="3974"><span class="lineNum"> 3974 </span> : </a>
|
|
<a name="3975"><span class="lineNum"> 3975 </span> : /* If we can read a reserved word, try to read one. */</a>
|
|
<a name="3976"><span class="lineNum"> 3976 </span><span class="lineCov"> 69517 : if (tflags & LEX_RESWDOK)</span></a>
|
|
<a name="3977"><span class="lineNum"> 3977 </span> : {</a>
|
|
<a name="3978"><span class="lineNum"> 3978 </span><span class="lineCov"> 24367 : if MBTEST(islower ((unsigned char)ch))</span></a>
|
|
<a name="3979"><span class="lineNum"> 3979 </span> : {</a>
|
|
<a name="3980"><span class="lineNum"> 3980 </span> : /* Add this character. */</a>
|
|
<a name="3981"><span class="lineNum"> 3981 </span><span class="lineCov"> 16110 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="3982"><span class="lineNum"> 3982 </span><span class="lineCov"> 15899 : ret[retind++] = ch;</span></a>
|
|
<a name="3983"><span class="lineNum"> 3983 </span><span class="lineCov"> 15899 : lex_rwlen++;</span></a>
|
|
<a name="3984"><span class="lineNum"> 3984 </span><span class="lineCov"> 15899 : continue;</span></a>
|
|
<a name="3985"><span class="lineNum"> 3985 </span> : }</a>
|
|
<a name="3986"><span class="lineNum"> 3986 </span><span class="lineCov"> 8468 : else if MBTEST(lex_rwlen == 4 && shellbreak (ch))</span></a>
|
|
<a name="3987"><span class="lineNum"> 3987 </span> : {</a>
|
|
<a name="3988"><span class="lineNum"> 3988 </span><span class="lineCov"> 1148 : if (STREQN (ret + retind - 4, "case", 4))</span></a>
|
|
<a name="3989"><span class="lineNum"> 3989 </span> : {</a>
|
|
<a name="3990"><span class="lineNum"> 3990 </span><span class="lineCov"> 122 : tflags |= LEX_INCASE;</span></a>
|
|
<a name="3991"><span class="lineNum"> 3991 </span><span class="lineCov"> 122 : tflags &= ~LEX_RESWDOK;</span></a>
|
|
<a name="3992"><span class="lineNum"> 3992 </span> : /*itrace("parse_comsub:%d: found `case', lex_incase -> 1 lex_reswdok -> 0", line_number);*/</a>
|
|
<a name="3993"><span class="lineNum"> 3993 </span> : }</a>
|
|
<a name="3994"><span class="lineNum"> 3994 </span><span class="lineCov"> 1026 : else if (STREQN (ret + retind - 4, "esac", 4))</span></a>
|
|
<a name="3995"><span class="lineNum"> 3995 </span> : {</a>
|
|
<a name="3996"><span class="lineNum"> 3996 </span><span class="lineCov"> 95 : tflags &= ~LEX_INCASE;</span></a>
|
|
<a name="3997"><span class="lineNum"> 3997 </span> : /*itrace("parse_comsub:%d: found `esac', lex_incase -> 0 lex_reswdok -> 1", line_number);*/</a>
|
|
<a name="3998"><span class="lineNum"> 3998 </span><span class="lineCov"> 95 : tflags |= LEX_RESWDOK;</span></a>
|
|
<a name="3999"><span class="lineNum"> 3999 </span><span class="lineCov"> 95 : lex_rwlen = 0;</span></a>
|
|
<a name="4000"><span class="lineNum"> 4000 </span> : }</a>
|
|
<a name="4001"><span class="lineNum"> 4001 </span><span class="lineCov"> 931 : else if (STREQN (ret + retind - 4, "done", 4) ||</span></a>
|
|
<a name="4002"><span class="lineNum"> 4002 </span><span class="lineCov"> 911 : STREQN (ret + retind - 4, "then", 4) ||</span></a>
|
|
<a name="4003"><span class="lineNum"> 4003 </span><span class="lineCov"> 798 : STREQN (ret + retind - 4, "else", 4) ||</span></a>
|
|
<a name="4004"><span class="lineNum"> 4004 </span><span class="lineCov"> 788 : STREQN (ret + retind - 4, "elif", 4) ||</span></a>
|
|
<a name="4005"><span class="lineNum"> 4005 </span><span class="lineNoCov"> 0 : STREQN (ret + retind - 4, "time", 4))</span></a>
|
|
<a name="4006"><span class="lineNum"> 4006 </span> : {</a>
|
|
<a name="4007"><span class="lineNum"> 4007 </span> : /* these are four-character reserved words that can be</a>
|
|
<a name="4008"><span class="lineNum"> 4008 </span> : followed by a reserved word; anything else turns off</a>
|
|
<a name="4009"><span class="lineNum"> 4009 </span> : the reserved-word-ok flag */</a>
|
|
<a name="4010"><span class="lineNum"> 4010 </span> : /*itrace("parse_comsub:%d: found `%.4s', lex_reswdok -> 1", line_number, ret+retind-4);*/</a>
|
|
<a name="4011"><span class="lineNum"> 4011 </span><span class="lineCov"> 143 : tflags |= LEX_RESWDOK;</span></a>
|
|
<a name="4012"><span class="lineNum"> 4012 </span><span class="lineCov"> 143 : lex_rwlen = 0;</span></a>
|
|
<a name="4013"><span class="lineNum"> 4013 </span> : }</a>
|
|
<a name="4014"><span class="lineNum"> 4014 </span><span class="lineCov"> 788 : else if (shellmeta (ch) == 0)</span></a>
|
|
<a name="4015"><span class="lineNum"> 4015 </span> : {</a>
|
|
<a name="4016"><span class="lineNum"> 4016 </span><span class="lineCov"> 549 : tflags &= ~LEX_RESWDOK;</span></a>
|
|
<a name="4017"><span class="lineNum"> 4017 </span> : /*itrace("parse_comsub:%d: found `%.4s', lex_reswdok -> 0", line_number, ret+retind-4);*/</a>
|
|
<a name="4018"><span class="lineNum"> 4018 </span> : }</a>
|
|
<a name="4019"><span class="lineNum"> 4019 </span> : else /* can't be in a reserved word any more */</a>
|
|
<a name="4020"><span class="lineNum"> 4020 </span> : lex_rwlen = 0;</a>
|
|
<a name="4021"><span class="lineNum"> 4021 </span> : }</a>
|
|
<a name="4022"><span class="lineNum"> 4022 </span><span class="lineCov"> 7320 : else if MBTEST((tflags & LEX_CKCOMMENT) && ch == '#' && (lex_rwlen == 0 || ((tflags & LEX_INWORD) && lex_wlen == 0)))</span></a>
|
|
<a name="4023"><span class="lineNum"> 4023 </span> : ; /* don't modify LEX_RESWDOK if we're starting a comment */</a>
|
|
<a name="4024"><span class="lineNum"> 4024 </span> : /* Allow `do' followed by space, tab, or newline to preserve the</a>
|
|
<a name="4025"><span class="lineNum"> 4025 </span> : RESWDOK flag, but reset the reserved word length counter so we</a>
|
|
<a name="4026"><span class="lineNum"> 4026 </span> : can read another one. */</a>
|
|
<a name="4027"><span class="lineNum"> 4027 </span><span class="lineCov"> 7157 : else if MBTEST(((tflags & LEX_INCASE) == 0) &&</span></a>
|
|
<a name="4028"><span class="lineNum"> 4028 </span> : (isblank((unsigned char)ch) || ch == '\n') &&</a>
|
|
<a name="4029"><span class="lineNum"> 4029 </span> : lex_rwlen == 2 &&</a>
|
|
<a name="4030"><span class="lineNum"> 4030 </span> : STREQN (ret + retind - 2, "do", 2))</a>
|
|
<a name="4031"><span class="lineNum"> 4031 </span> : {</a>
|
|
<a name="4032"><span class="lineNum"> 4032 </span> : /*itrace("parse_comsub:%d: lex_incase == 0 found `%c', found \"do\"", line_number, ch);*/</a>
|
|
<a name="4033"><span class="lineNum"> 4033 </span> : lex_rwlen = 0;</a>
|
|
<a name="4034"><span class="lineNum"> 4034 </span> : }</a>
|
|
<a name="4035"><span class="lineNum"> 4035 </span><span class="lineCov"> 7147 : else if MBTEST((tflags & LEX_INCASE) && ch != '\n')</span></a>
|
|
<a name="4036"><span class="lineNum"> 4036 </span> : /* If we can read a reserved word and we're in case, we're at the</a>
|
|
<a name="4037"><span class="lineNum"> 4037 </span> : point where we can read a new pattern list or an esac. We</a>
|
|
<a name="4038"><span class="lineNum"> 4038 </span> : handle the esac case above. If we read a newline, we want to</a>
|
|
<a name="4039"><span class="lineNum"> 4039 </span> : leave LEX_RESWDOK alone. If we read anything else, we want to</a>
|
|
<a name="4040"><span class="lineNum"> 4040 </span> : turn off LEX_RESWDOK, since we're going to read a pattern list. */</a>
|
|
<a name="4041"><span class="lineNum"> 4041 </span> : {</a>
|
|
<a name="4042"><span class="lineNum"> 4042 </span><span class="lineCov"> 1712 : tflags &= ~LEX_RESWDOK;</span></a>
|
|
<a name="4043"><span class="lineNum"> 4043 </span> : /*itrace("parse_comsub:%d: lex_incase == 1 found `%c', lex_reswordok -> 0", line_number, ch);*/</a>
|
|
<a name="4044"><span class="lineNum"> 4044 </span> : }</a>
|
|
<a name="4045"><span class="lineNum"> 4045 </span><span class="lineCov"> 5435 : else if MBTEST(shellbreak (ch) == 0)</span></a>
|
|
<a name="4046"><span class="lineNum"> 4046 </span> : {</a>
|
|
<a name="4047"><span class="lineNum"> 4047 </span><span class="lineCov"> 2181 : tflags &= ~LEX_RESWDOK;</span></a>
|
|
<a name="4048"><span class="lineNum"> 4048 </span> : /*itrace("parse_comsub:%d: found `%c', lex_reswordok -> 0", line_number, ch);*/</a>
|
|
<a name="4049"><span class="lineNum"> 4049 </span> : }</a>
|
|
<a name="4050"><span class="lineNum"> 4050 </span> : #if 0</a>
|
|
<a name="4051"><span class="lineNum"> 4051 </span> : /* If we find a space or tab but have read something and it's not</a>
|
|
<a name="4052"><span class="lineNum"> 4052 </span> : `do', turn off the reserved-word-ok flag */</a>
|
|
<a name="4053"><span class="lineNum"> 4053 </span> : else if MBTEST(isblank ((unsigned char)ch) && lex_rwlen > 0)</a>
|
|
<a name="4054"><span class="lineNum"> 4054 </span> : {</a>
|
|
<a name="4055"><span class="lineNum"> 4055 </span> : tflags &= ~LEX_RESWDOK;</a>
|
|
<a name="4056"><span class="lineNum"> 4056 </span> : /*itrace("parse_comsub:%d: found `%c', lex_reswordok -> 0", line_number, ch);*/</a>
|
|
<a name="4057"><span class="lineNum"> 4057 </span> : }</a>
|
|
<a name="4058"><span class="lineNum"> 4058 </span> : #endif</a>
|
|
<a name="4059"><span class="lineNum"> 4059 </span> : }</a>
|
|
<a name="4060"><span class="lineNum"> 4060 </span> : </a>
|
|
<a name="4061"><span class="lineNum"> 4061 </span> : /* Might be the start of a here-doc delimiter */</a>
|
|
<a name="4062"><span class="lineNum"> 4062 </span><span class="lineCov"> 53618 : if MBTEST((tflags & LEX_INCOMMENT) == 0 && (tflags & LEX_CKCASE) && ch == '<')</span></a>
|
|
<a name="4063"><span class="lineNum"> 4063 </span> : {</a>
|
|
<a name="4064"><span class="lineNum"> 4064 </span> : /* Add this character. */</a>
|
|
<a name="4065"><span class="lineNum"> 4065 </span><span class="lineCov"> 149 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="4066"><span class="lineNum"> 4066 </span><span class="lineCov"> 149 : ret[retind++] = ch;</span></a>
|
|
<a name="4067"><span class="lineNum"> 4067 </span><span class="lineCov"> 149 : peekc = shell_getc (1);</span></a>
|
|
<a name="4068"><span class="lineNum"> 4068 </span><span class="lineCov"> 149 : if (peekc == EOF)</span></a>
|
|
<a name="4069"><span class="lineNum"> 4069 </span><span class="lineNoCov"> 0 : goto eof_error;</span></a>
|
|
<a name="4070"><span class="lineNum"> 4070 </span><span class="lineCov"> 149 : if (peekc == ch)</span></a>
|
|
<a name="4071"><span class="lineNum"> 4071 </span> : {</a>
|
|
<a name="4072"><span class="lineNum"> 4072 </span><span class="lineNoCov"> 0 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="4073"><span class="lineNum"> 4073 </span><span class="lineNoCov"> 0 : ret[retind++] = peekc;</span></a>
|
|
<a name="4074"><span class="lineNum"> 4074 </span><span class="lineNoCov"> 0 : peekc = shell_getc (1);</span></a>
|
|
<a name="4075"><span class="lineNum"> 4075 </span><span class="lineNoCov"> 0 : if (peekc == EOF)</span></a>
|
|
<a name="4076"><span class="lineNum"> 4076 </span><span class="lineNoCov"> 0 : goto eof_error;</span></a>
|
|
<a name="4077"><span class="lineNum"> 4077 </span><span class="lineNoCov"> 0 : if (peekc == '-')</span></a>
|
|
<a name="4078"><span class="lineNum"> 4078 </span> : {</a>
|
|
<a name="4079"><span class="lineNum"> 4079 </span><span class="lineNoCov"> 0 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="4080"><span class="lineNum"> 4080 </span><span class="lineNoCov"> 0 : ret[retind++] = peekc;</span></a>
|
|
<a name="4081"><span class="lineNum"> 4081 </span><span class="lineNoCov"> 0 : tflags |= LEX_STRIPDOC;</span></a>
|
|
<a name="4082"><span class="lineNum"> 4082 </span> : }</a>
|
|
<a name="4083"><span class="lineNum"> 4083 </span> : else</a>
|
|
<a name="4084"><span class="lineNum"> 4084 </span><span class="lineNoCov"> 0 : shell_ungetc (peekc);</span></a>
|
|
<a name="4085"><span class="lineNum"> 4085 </span><span class="lineNoCov"> 0 : if (peekc != '<')</span></a>
|
|
<a name="4086"><span class="lineNum"> 4086 </span> : {</a>
|
|
<a name="4087"><span class="lineNum"> 4087 </span><span class="lineNoCov"> 0 : tflags |= LEX_HEREDELIM;</span></a>
|
|
<a name="4088"><span class="lineNum"> 4088 </span><span class="lineNoCov"> 0 : lex_firstind = -1;</span></a>
|
|
<a name="4089"><span class="lineNum"> 4089 </span> : }</a>
|
|
<a name="4090"><span class="lineNum"> 4090 </span><span class="lineNoCov"> 0 : continue;</span></a>
|
|
<a name="4091"><span class="lineNum"> 4091 </span> : }</a>
|
|
<a name="4092"><span class="lineNum"> 4092 </span> : else</a>
|
|
<a name="4093"><span class="lineNum"> 4093 </span> : ch = peekc; /* fall through and continue XXX */</a>
|
|
<a name="4094"><span class="lineNum"> 4094 </span> : }</a>
|
|
<a name="4095"><span class="lineNum"> 4095 </span><span class="lineCov"> 53469 : else if MBTEST((tflags & LEX_CKCOMMENT) && (tflags & LEX_INCOMMENT) == 0 && ch == '#' && (((tflags & LEX_RESWDOK) && lex_rwlen == 0) || ((tflags & LEX_INWORD) && lex_wlen == 0)))</span></a>
|
|
<a name="4096"><span class="lineNum"> 4096 </span> : {</a>
|
|
<a name="4097"><span class="lineNum"> 4097 </span> : /*itrace("parse_comsub:%d: lex_incomment -> 1 (%d)", line_number, __LINE__);*/</a>
|
|
<a name="4098"><span class="lineNum"> 4098 </span><span class="lineCov"> 172 : tflags |= LEX_INCOMMENT;</span></a>
|
|
<a name="4099"><span class="lineNum"> 4099 </span> : }</a>
|
|
<a name="4100"><span class="lineNum"> 4100 </span> : </a>
|
|
<a name="4101"><span class="lineNum"> 4101 </span><span class="lineCov"> 53618 : if MBTEST(ch == CTLESC || ch == CTLNUL) /* special shell escapes */</span></a>
|
|
<a name="4102"><span class="lineNum"> 4102 </span> : {</a>
|
|
<a name="4103"><span class="lineNum"> 4103 </span><span class="lineCov"> 444 : RESIZE_MALLOCED_BUFFER (ret, retind, 2, retsize, 64);</span></a>
|
|
<a name="4104"><span class="lineNum"> 4104 </span><span class="lineCov"> 435 : ret[retind++] = CTLESC;</span></a>
|
|
<a name="4105"><span class="lineNum"> 4105 </span><span class="lineCov"> 435 : ret[retind++] = ch;</span></a>
|
|
<a name="4106"><span class="lineNum"> 4106 </span><span class="lineCov"> 435 : continue;</span></a>
|
|
<a name="4107"><span class="lineNum"> 4107 </span> : }</a>
|
|
<a name="4108"><span class="lineNum"> 4108 </span> : #if 0</a>
|
|
<a name="4109"><span class="lineNum"> 4109 </span> : else if MBTEST((tflags & LEX_INCASE) && ch == close && close == ')')</a>
|
|
<a name="4110"><span class="lineNum"> 4110 </span> : tflags &= ~LEX_INCASE; /* XXX */</a>
|
|
<a name="4111"><span class="lineNum"> 4111 </span> : #endif</a>
|
|
<a name="4112"><span class="lineNum"> 4112 </span><span class="lineCov"> 53183 : else if MBTEST(ch == close && (tflags & LEX_INCASE) == 0) /* ending delimiter */</span></a>
|
|
<a name="4113"><span class="lineNum"> 4113 </span> : {</a>
|
|
<a name="4114"><span class="lineNum"> 4114 </span><span class="lineCov"> 405 : count--;</span></a>
|
|
<a name="4115"><span class="lineNum"> 4115 </span> : /*itrace("parse_comsub:%d: found close: count = %d", line_number, count);*/</a>
|
|
<a name="4116"><span class="lineNum"> 4116 </span> : }</a>
|
|
<a name="4117"><span class="lineNum"> 4117 </span><span class="lineCov"> 52778 : else if MBTEST(((flags & P_FIRSTCLOSE) == 0) && (tflags & LEX_INCASE) == 0 && ch == open) /* nested begin */</span></a>
|
|
<a name="4118"><span class="lineNum"> 4118 </span> : {</a>
|
|
<a name="4119"><span class="lineNum"> 4119 </span><span class="lineCov"> 278 : count++;</span></a>
|
|
<a name="4120"><span class="lineNum"> 4120 </span> : /*itrace("parse_comsub:%d: found open: count = %d", line_number, count);*/</a>
|
|
<a name="4121"><span class="lineNum"> 4121 </span> : }</a>
|
|
<a name="4122"><span class="lineNum"> 4122 </span> : </a>
|
|
<a name="4123"><span class="lineNum"> 4123 </span> : /* Add this character. */</a>
|
|
<a name="4124"><span class="lineNum"> 4124 </span><span class="lineCov"> 53859 : RESIZE_MALLOCED_BUFFER (ret, retind, 1, retsize, 64);</span></a>
|
|
<a name="4125"><span class="lineNum"> 4125 </span><span class="lineCov"> 53183 : ret[retind++] = ch;</span></a>
|
|
<a name="4126"><span class="lineNum"> 4126 </span> : </a>
|
|
<a name="4127"><span class="lineNum"> 4127 </span> : /* If we just read the ending character, don't bother continuing. */</a>
|
|
<a name="4128"><span class="lineNum"> 4128 </span><span class="lineCov"> 53183 : if (count == 0)</span></a>
|
|
<a name="4129"><span class="lineNum"> 4129 </span> : break;</a>
|
|
<a name="4130"><span class="lineNum"> 4130 </span> : </a>
|
|
<a name="4131"><span class="lineNum"> 4131 </span><span class="lineCov"> 53029 : if MBTEST(ch == '\\') /* backslashes */</span></a>
|
|
<a name="4132"><span class="lineNum"> 4132 </span><span class="lineCov"> 63 : tflags |= LEX_PASSNEXT;</span></a>
|
|
<a name="4133"><span class="lineNum"> 4133 </span> : </a>
|
|
<a name="4134"><span class="lineNum"> 4134 </span><span class="lineCov"> 53029 : if MBTEST(shellquote (ch))</span></a>
|
|
<a name="4135"><span class="lineNum"> 4135 </span> : {</a>
|
|
<a name="4136"><span class="lineNum"> 4136 </span> : /* '', ``, or "" inside $(...). */</a>
|
|
<a name="4137"><span class="lineNum"> 4137 </span><span class="lineCov"> 1096 : push_delimiter (dstack, ch);</span></a>
|
|
<a name="4138"><span class="lineNum"> 4138 </span><span class="lineCov"> 1096 : if MBTEST((tflags & LEX_WASDOL) && ch == '\'') /* $'...' inside group */</span></a>
|
|
<a name="4139"><span class="lineNum"> 4139 </span><span class="lineNoCov"> 0 : nestret = parse_matched_pair (ch, ch, ch, &nestlen, P_ALLOWESC|rflags);</span></a>
|
|
<a name="4140"><span class="lineNum"> 4140 </span> : else</a>
|
|
<a name="4141"><span class="lineNum"> 4141 </span><span class="lineCov"> 1096 : nestret = parse_matched_pair (ch, ch, ch, &nestlen, rflags);</span></a>
|
|
<a name="4142"><span class="lineNum"> 4142 </span><span class="lineCov"> 1096 : pop_delimiter (dstack);</span></a>
|
|
<a name="4143"><span class="lineNum"> 4143 </span><span class="lineCov"> 1096 : CHECK_NESTRET_ERROR ();</span></a>
|
|
<a name="4144"><span class="lineNum"> 4144 </span> : </a>
|
|
<a name="4145"><span class="lineNum"> 4145 </span><span class="lineCov"> 827 : if MBTEST((tflags & LEX_WASDOL) && ch == '\'' && (extended_quote || (rflags & P_DQUOTE) == 0))</span></a>
|
|
<a name="4146"><span class="lineNum"> 4146 </span> : {</a>
|
|
<a name="4147"><span class="lineNum"> 4147 </span> : /* Translate $'...' here. */</a>
|
|
<a name="4148"><span class="lineNum"> 4148 </span><span class="lineNoCov"> 0 : ttrans = ansiexpand (nestret, 0, nestlen - 1, &ttranslen);</span></a>
|
|
<a name="4149"><span class="lineNum"> 4149 </span><span class="lineNoCov"> 0 : xfree (nestret);</span></a>
|
|
<a name="4150"><span class="lineNum"> 4150 </span> : </a>
|
|
<a name="4151"><span class="lineNum"> 4151 </span><span class="lineNoCov"> 0 : if ((rflags & P_DQUOTE) == 0)</span></a>
|
|
<a name="4152"><span class="lineNum"> 4152 </span> : {</a>
|
|
<a name="4153"><span class="lineNum"> 4153 </span><span class="lineNoCov"> 0 : nestret = sh_single_quote (ttrans);</span></a>
|
|
<a name="4154"><span class="lineNum"> 4154 </span><span class="lineNoCov"> 0 : free (ttrans);</span></a>
|
|
<a name="4155"><span class="lineNum"> 4155 </span><span class="lineNoCov"> 0 : nestlen = strlen (nestret);</span></a>
|
|
<a name="4156"><span class="lineNum"> 4156 </span> : }</a>
|
|
<a name="4157"><span class="lineNum"> 4157 </span> : else</a>
|
|
<a name="4158"><span class="lineNum"> 4158 </span> : {</a>
|
|
<a name="4159"><span class="lineNum"> 4159 </span><span class="lineNoCov"> 0 : nestret = ttrans;</span></a>
|
|
<a name="4160"><span class="lineNum"> 4160 </span><span class="lineNoCov"> 0 : nestlen = ttranslen;</span></a>
|
|
<a name="4161"><span class="lineNum"> 4161 </span> : }</a>
|
|
<a name="4162"><span class="lineNum"> 4162 </span><span class="lineNoCov"> 0 : retind -= 2; /* back up before the $' */</span></a>
|
|
<a name="4163"><span class="lineNum"> 4163 </span> : }</a>
|
|
<a name="4164"><span class="lineNum"> 4164 </span><span class="lineCov"> 827 : else if MBTEST((tflags & LEX_WASDOL) && ch == '"' && (extended_quote || (rflags & P_DQUOTE) == 0))</span></a>
|
|
<a name="4165"><span class="lineNum"> 4165 </span> : {</a>
|
|
<a name="4166"><span class="lineNum"> 4166 </span> : /* Locale expand $"..." here. */</a>
|
|
<a name="4167"><span class="lineNum"> 4167 </span><span class="lineNoCov"> 0 : ttrans = localeexpand (nestret, 0, nestlen - 1, start_lineno, &ttranslen);</span></a>
|
|
<a name="4168"><span class="lineNum"> 4168 </span><span class="lineNoCov"> 0 : xfree (nestret);</span></a>
|
|
<a name="4169"><span class="lineNum"> 4169 </span> : </a>
|
|
<a name="4170"><span class="lineNum"> 4170 </span><span class="lineNoCov"> 0 : nestret = sh_mkdoublequoted (ttrans, ttranslen, 0);</span></a>
|
|
<a name="4171"><span class="lineNum"> 4171 </span><span class="lineNoCov"> 0 : free (ttrans);</span></a>
|
|
<a name="4172"><span class="lineNum"> 4172 </span><span class="lineNoCov"> 0 : nestlen = ttranslen + 2;</span></a>
|
|
<a name="4173"><span class="lineNum"> 4173 </span><span class="lineNoCov"> 0 : retind -= 2; /* back up before the $" */</span></a>
|
|
<a name="4174"><span class="lineNum"> 4174 </span> : }</a>
|
|
<a name="4175"><span class="lineNum"> 4175 </span> : </a>
|
|
<a name="4176"><span class="lineNum"> 4176 </span><span class="lineCov"> 1299 : APPEND_NESTRET ();</span></a>
|
|
<a name="4177"><span class="lineNum"> 4177 </span><span class="lineCov"> 827 : FREE (nestret);</span></a>
|
|
<a name="4178"><span class="lineNum"> 4178 </span> : }</a>
|
|
<a name="4179"><span class="lineNum"> 4179 </span><span class="lineCov"> 51933 : else if MBTEST((tflags & LEX_WASDOL) && (ch == '(' || ch == '{' || ch == '[')) /* ) } ] */</span></a>
|
|
<a name="4180"><span class="lineNum"> 4180 </span> : /* check for $(), $[], or ${} inside command substitution. */</a>
|
|
<a name="4181"><span class="lineNum"> 4181 </span> : {</a>
|
|
<a name="4182"><span class="lineNum"> 4182 </span><span class="lineCov"> 69 : if ((tflags & LEX_INCASE) == 0 && open == ch) /* undo previous increment */</span></a>
|
|
<a name="4183"><span class="lineNum"> 4183 </span><span class="lineCov"> 10 : count--;</span></a>
|
|
<a name="4184"><span class="lineNum"> 4184 </span><span class="lineCov"> 69 : if (ch == '(') /* ) */</span></a>
|
|
<a name="4185"><span class="lineNum"> 4185 </span><span class="lineCov"> 10 : nestret = parse_comsub (0, '(', ')', &nestlen, (rflags|P_COMMAND) & ~P_DQUOTE);</span></a>
|
|
<a name="4186"><span class="lineNum"> 4186 </span><span class="lineCov"> 59 : else if (ch == '{') /* } */</span></a>
|
|
<a name="4187"><span class="lineNum"> 4187 </span><span class="lineCov"> 59 : nestret = parse_matched_pair (0, '{', '}', &nestlen, P_FIRSTCLOSE|P_DOLBRACE|rflags);</span></a>
|
|
<a name="4188"><span class="lineNum"> 4188 </span><span class="lineNoCov"> 0 : else if (ch == '[') /* ] */</span></a>
|
|
<a name="4189"><span class="lineNum"> 4189 </span><span class="lineNoCov"> 0 : nestret = parse_matched_pair (0, '[', ']', &nestlen, rflags);</span></a>
|
|
<a name="4190"><span class="lineNum"> 4190 </span> : </a>
|
|
<a name="4191"><span class="lineNum"> 4191 </span><span class="lineCov"> 69 : CHECK_NESTRET_ERROR ();</span></a>
|
|
<a name="4192"><span class="lineNum"> 4192 </span><span class="lineCov"> 50 : APPEND_NESTRET ();</span></a>
|
|
<a name="4193"><span class="lineNum"> 4193 </span> : </a>
|
|
<a name="4194"><span class="lineNum"> 4194 </span><span class="lineCov"> 50 : FREE (nestret);</span></a>
|
|
<a name="4195"><span class="lineNum"> 4195 </span> : }</a>
|
|
<a name="4196"><span class="lineNum"> 4196 </span><span class="lineCov"> 52741 : if MBTEST(ch == '$')</span></a>
|
|
<a name="4197"><span class="lineNum"> 4197 </span><span class="lineCov"> 891 : tflags |= LEX_WASDOL;</span></a>
|
|
<a name="4198"><span class="lineNum"> 4198 </span> : else</a>
|
|
<a name="4199"><span class="lineNum"> 4199 </span><span class="lineCov"> 51850 : tflags &= ~LEX_WASDOL;</span></a>
|
|
<a name="4200"><span class="lineNum"> 4200 </span> : }</a>
|
|
<a name="4201"><span class="lineNum"> 4201 </span> : </a>
|
|
<a name="4202"><span class="lineNum"> 4202 </span><span class="lineCov"> 154 : FREE (heredelim);</span></a>
|
|
<a name="4203"><span class="lineNum"> 4203 </span><span class="lineCov"> 154 : ret[retind] = '\0';</span></a>
|
|
<a name="4204"><span class="lineNum"> 4204 </span><span class="lineCov"> 154 : if (lenp)</span></a>
|
|
<a name="4205"><span class="lineNum"> 4205 </span><span class="lineCov"> 154 : *lenp = retind;</span></a>
|
|
<a name="4206"><span class="lineNum"> 4206 </span> : /*itrace("parse_comsub:%d: returning `%s'", line_number, ret);*/</a>
|
|
<a name="4207"><span class="lineNum"> 4207 </span> : return ret;</a>
|
|
<a name="4208"><span class="lineNum"> 4208 </span> : }</a>
|
|
<a name="4209"><span class="lineNum"> 4209 </span> : </a>
|
|
<a name="4210"><span class="lineNum"> 4210 </span> : /* Recursively call the parser to parse a $(...) command substitution. */</a>
|
|
<a name="4211"><span class="lineNum"> 4211 </span> : char *</a>
|
|
<a name="4212"><span class="lineNum"> 4212 </span><span class="lineCov"> 81 : xparse_dolparen (base, string, indp, flags)</span></a>
|
|
<a name="4213"><span class="lineNum"> 4213 </span> : char *base;</a>
|
|
<a name="4214"><span class="lineNum"> 4214 </span> : char *string;</a>
|
|
<a name="4215"><span class="lineNum"> 4215 </span> : int *indp;</a>
|
|
<a name="4216"><span class="lineNum"> 4216 </span> : int flags;</a>
|
|
<a name="4217"><span class="lineNum"> 4217 </span> : {</a>
|
|
<a name="4218"><span class="lineNum"> 4218 </span><span class="lineCov"> 81 : sh_parser_state_t ps;</span></a>
|
|
<a name="4219"><span class="lineNum"> 4219 </span><span class="lineCov"> 81 : sh_input_line_state_t ls;</span></a>
|
|
<a name="4220"><span class="lineNum"> 4220 </span><span class="lineCov"> 81 : int nc, sflags, orig_eof_token;</span></a>
|
|
<a name="4221"><span class="lineNum"> 4221 </span><span class="lineCov"> 81 : char *ret, *ep, *ostring;</span></a>
|
|
<a name="4222"><span class="lineNum"> 4222 </span> : </a>
|
|
<a name="4223"><span class="lineNum"> 4223 </span> : /*yydebug = 1;*/</a>
|
|
<a name="4224"><span class="lineNum"> 4224 </span><span class="lineCov"> 81 : ostring = string;</span></a>
|
|
<a name="4225"><span class="lineNum"> 4225 </span> : </a>
|
|
<a name="4226"><span class="lineNum"> 4226 </span> : /*itrace("xparse_dolparen: size = %d shell_input_line = `%s'", shell_input_line_size, shell_input_line);*/</a>
|
|
<a name="4227"><span class="lineNum"> 4227 </span><span class="lineCov"> 81 : sflags = SEVAL_NONINT|SEVAL_NOHIST|SEVAL_NOFREE;</span></a>
|
|
<a name="4228"><span class="lineNum"> 4228 </span><span class="lineCov"> 81 : if (flags & SX_NOLONGJMP)</span></a>
|
|
<a name="4229"><span class="lineNum"> 4229 </span><span class="lineNoCov"> 0 : sflags |= SEVAL_NOLONGJMP;</span></a>
|
|
<a name="4230"><span class="lineNum"> 4230 </span><span class="lineCov"> 81 : save_parser_state (&ps);</span></a>
|
|
<a name="4231"><span class="lineNum"> 4231 </span><span class="lineCov"> 81 : save_input_line_state (&ls);</span></a>
|
|
<a name="4232"><span class="lineNum"> 4232 </span><span class="lineCov"> 81 : orig_eof_token = shell_eof_token;</span></a>
|
|
<a name="4233"><span class="lineNum"> 4233 </span> : </a>
|
|
<a name="4234"><span class="lineNum"> 4234 </span> : /*(*/</a>
|
|
<a name="4235"><span class="lineNum"> 4235 </span><span class="lineCov"> 81 : parser_state |= PST_CMDSUBST|PST_EOFTOKEN; /* allow instant ')' */ /*(*/</span></a>
|
|
<a name="4236"><span class="lineNum"> 4236 </span><span class="lineCov"> 81 : shell_eof_token = ')';</span></a>
|
|
<a name="4237"><span class="lineNum"> 4237 </span> : </a>
|
|
<a name="4238"><span class="lineNum"> 4238 </span><span class="lineCov"> 81 : nc = parse_string (string, "command substitution", sflags, &ep);</span></a>
|
|
<a name="4239"><span class="lineNum"> 4239 </span> : </a>
|
|
<a name="4240"><span class="lineNum"> 4240 </span><span class="lineCov"> 81 : shell_eof_token = orig_eof_token;</span></a>
|
|
<a name="4241"><span class="lineNum"> 4241 </span><span class="lineCov"> 81 : restore_parser_state (&ps);</span></a>
|
|
<a name="4242"><span class="lineNum"> 4242 </span><span class="lineCov"> 81 : reset_parser ();</span></a>
|
|
<a name="4243"><span class="lineNum"> 4243 </span> : /* reset_parser clears shell_input_line and associated variables */</a>
|
|
<a name="4244"><span class="lineNum"> 4244 </span><span class="lineCov"> 81 : restore_input_line_state (&ls);</span></a>
|
|
<a name="4245"><span class="lineNum"> 4245 </span> : </a>
|
|
<a name="4246"><span class="lineNum"> 4246 </span><span class="lineCov"> 81 : token_to_read = 0;</span></a>
|
|
<a name="4247"><span class="lineNum"> 4247 </span> : </a>
|
|
<a name="4248"><span class="lineNum"> 4248 </span> : /* If parse_string returns < 0, we need to jump to top level with the</a>
|
|
<a name="4249"><span class="lineNum"> 4249 </span> : negative of the return value */</a>
|
|
<a name="4250"><span class="lineNum"> 4250 </span><span class="lineCov"> 81 : if (nc < 0)</span></a>
|
|
<a name="4251"><span class="lineNum"> 4251 </span><span class="lineCov"> 9 : jump_to_top_level (-nc); /* XXX */</span></a>
|
|
<a name="4252"><span class="lineNum"> 4252 </span> : </a>
|
|
<a name="4253"><span class="lineNum"> 4253 </span> : /* Need to find how many characters parse_and_execute consumed, update</a>
|
|
<a name="4254"><span class="lineNum"> 4254 </span> : *indp, if flags != 0, copy the portion of the string parsed into RET</a>
|
|
<a name="4255"><span class="lineNum"> 4255 </span> : and return it. If flags & 1 (EX_NOALLOC) we can return NULL. */</a>
|
|
<a name="4256"><span class="lineNum"> 4256 </span> : </a>
|
|
<a name="4257"><span class="lineNum"> 4257 </span> : /*(*/</a>
|
|
<a name="4258"><span class="lineNum"> 4258 </span><span class="lineCov"> 72 : if (ep[-1] != ')')</span></a>
|
|
<a name="4259"><span class="lineNum"> 4259 </span> : {</a>
|
|
<a name="4260"><span class="lineNum"> 4260 </span> : #if DEBUG</a>
|
|
<a name="4261"><span class="lineNum"> 4261 </span> : if (ep[-1] != '\n')</a>
|
|
<a name="4262"><span class="lineNum"> 4262 </span> : itrace("xparse_dolparen:%d: ep[-1] != RPAREN (%d), ep = `%s'", line_number, ep[-1], ep);</a>
|
|
<a name="4263"><span class="lineNum"> 4263 </span> : #endif</a>
|
|
<a name="4264"><span class="lineNum"> 4264 </span><span class="lineNoCov"> 0 : while (ep > ostring && ep[-1] == '\n') ep--;</span></a>
|
|
<a name="4265"><span class="lineNum"> 4265 </span> : }</a>
|
|
<a name="4266"><span class="lineNum"> 4266 </span> : </a>
|
|
<a name="4267"><span class="lineNum"> 4267 </span><span class="lineCov"> 72 : nc = ep - ostring;</span></a>
|
|
<a name="4268"><span class="lineNum"> 4268 </span><span class="lineCov"> 72 : *indp = ep - base - 1;</span></a>
|
|
<a name="4269"><span class="lineNum"> 4269 </span> : </a>
|
|
<a name="4270"><span class="lineNum"> 4270 </span> : /*(*/</a>
|
|
<a name="4271"><span class="lineNum"> 4271 </span> : #if DEBUG</a>
|
|
<a name="4272"><span class="lineNum"> 4272 </span> : if (base[*indp] != ')')</a>
|
|
<a name="4273"><span class="lineNum"> 4273 </span> : itrace("xparse_dolparen:%d: base[%d] != RPAREN (%d), base = `%s'", line_number, *indp, base[*indp], base);</a>
|
|
<a name="4274"><span class="lineNum"> 4274 </span> : #endif</a>
|
|
<a name="4275"><span class="lineNum"> 4275 </span> : </a>
|
|
<a name="4276"><span class="lineNum"> 4276 </span><span class="lineCov"> 72 : if (flags & SX_NOALLOC) </span></a>
|
|
<a name="4277"><span class="lineNum"> 4277 </span> : return (char *)NULL;</a>
|
|
<a name="4278"><span class="lineNum"> 4278 </span> : </a>
|
|
<a name="4279"><span class="lineNum"> 4279 </span><span class="lineCov"> 72 : if (nc == 0)</span></a>
|
|
<a name="4280"><span class="lineNum"> 4280 </span> : {</a>
|
|
<a name="4281"><span class="lineNum"> 4281 </span><span class="lineNoCov"> 0 : ret = xmalloc (1);</span></a>
|
|
<a name="4282"><span class="lineNum"> 4282 </span><span class="lineNoCov"> 0 : ret[0] = '\0';</span></a>
|
|
<a name="4283"><span class="lineNum"> 4283 </span> : }</a>
|
|
<a name="4284"><span class="lineNum"> 4284 </span> : else</a>
|
|
<a name="4285"><span class="lineNum"> 4285 </span><span class="lineCov"> 72 : ret = substring (ostring, 0, nc - 1);</span></a>
|
|
<a name="4286"><span class="lineNum"> 4286 </span> : </a>
|
|
<a name="4287"><span class="lineNum"> 4287 </span> : return ret;</a>
|
|
<a name="4288"><span class="lineNum"> 4288 </span> : }</a>
|
|
<a name="4289"><span class="lineNum"> 4289 </span> : </a>
|
|
<a name="4290"><span class="lineNum"> 4290 </span> : #if defined (DPAREN_ARITHMETIC) || defined (ARITH_FOR_COMMAND)</a>
|
|
<a name="4291"><span class="lineNum"> 4291 </span> : /* Parse a double-paren construct. It can be either an arithmetic</a>
|
|
<a name="4292"><span class="lineNum"> 4292 </span> : command, an arithmetic `for' command, or a nested subshell. Returns</a>
|
|
<a name="4293"><span class="lineNum"> 4293 </span> : the parsed token, -1 on error, or -2 if we didn't do anything and</a>
|
|
<a name="4294"><span class="lineNum"> 4294 </span> : should just go on. */</a>
|
|
<a name="4295"><span class="lineNum"> 4295 </span> : static int</a>
|
|
<a name="4296"><span class="lineNum"> 4296 </span><span class="lineCov"> 585 : parse_dparen (c)</span></a>
|
|
<a name="4297"><span class="lineNum"> 4297 </span> : int c;</a>
|
|
<a name="4298"><span class="lineNum"> 4298 </span> : {</a>
|
|
<a name="4299"><span class="lineNum"> 4299 </span><span class="lineCov"> 585 : int cmdtyp;</span></a>
|
|
<a name="4300"><span class="lineNum"> 4300 </span><span class="lineCov"> 585 : char *wval;</span></a>
|
|
<a name="4301"><span class="lineNum"> 4301 </span><span class="lineCov"> 585 : WORD_DESC *wd;</span></a>
|
|
<a name="4302"><span class="lineNum"> 4302 </span> : </a>
|
|
<a name="4303"><span class="lineNum"> 4303 </span> : #if defined (ARITH_FOR_COMMAND)</a>
|
|
<a name="4304"><span class="lineNum"> 4304 </span><span class="lineCov"> 585 : if (last_read_token == FOR)</span></a>
|
|
<a name="4305"><span class="lineNum"> 4305 </span> : {</a>
|
|
<a name="4306"><span class="lineNum"> 4306 </span><span class="lineNoCov"> 0 : arith_for_lineno = line_number;</span></a>
|
|
<a name="4307"><span class="lineNum"> 4307 </span><span class="lineNoCov"> 0 : cmdtyp = parse_arith_cmd (&wval, 0);</span></a>
|
|
<a name="4308"><span class="lineNum"> 4308 </span><span class="lineNoCov"> 0 : if (cmdtyp == 1)</span></a>
|
|
<a name="4309"><span class="lineNum"> 4309 </span> : {</a>
|
|
<a name="4310"><span class="lineNum"> 4310 </span><span class="lineNoCov"> 0 : wd = alloc_word_desc ();</span></a>
|
|
<a name="4311"><span class="lineNum"> 4311 </span><span class="lineNoCov"> 0 : wd->word = wval;</span></a>
|
|
<a name="4312"><span class="lineNum"> 4312 </span><span class="lineNoCov"> 0 : yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);</span></a>
|
|
<a name="4313"><span class="lineNum"> 4313 </span><span class="lineNoCov"> 0 : return (ARITH_FOR_EXPRS);</span></a>
|
|
<a name="4314"><span class="lineNum"> 4314 </span> : }</a>
|
|
<a name="4315"><span class="lineNum"> 4315 </span> : else</a>
|
|
<a name="4316"><span class="lineNum"> 4316 </span> : return -1; /* ERROR */</a>
|
|
<a name="4317"><span class="lineNum"> 4317 </span> : }</a>
|
|
<a name="4318"><span class="lineNum"> 4318 </span> : #endif</a>
|
|
<a name="4319"><span class="lineNum"> 4319 </span> : </a>
|
|
<a name="4320"><span class="lineNum"> 4320 </span> : #if defined (DPAREN_ARITHMETIC)</a>
|
|
<a name="4321"><span class="lineNum"> 4321 </span><span class="lineCov"> 585 : if (reserved_word_acceptable (last_read_token))</span></a>
|
|
<a name="4322"><span class="lineNum"> 4322 </span> : {</a>
|
|
<a name="4323"><span class="lineNum"> 4323 </span><span class="lineCov"> 145 : cmdtyp = parse_arith_cmd (&wval, 0);</span></a>
|
|
<a name="4324"><span class="lineNum"> 4324 </span><span class="lineCov"> 145 : if (cmdtyp == 1) /* arithmetic command */</span></a>
|
|
<a name="4325"><span class="lineNum"> 4325 </span> : {</a>
|
|
<a name="4326"><span class="lineNum"> 4326 </span><span class="lineNoCov"> 0 : wd = alloc_word_desc ();</span></a>
|
|
<a name="4327"><span class="lineNum"> 4327 </span><span class="lineNoCov"> 0 : wd->word = wval;</span></a>
|
|
<a name="4328"><span class="lineNum"> 4328 </span><span class="lineNoCov"> 0 : wd->flags = W_QUOTED|W_NOSPLIT|W_NOGLOB|W_DQUOTE;</span></a>
|
|
<a name="4329"><span class="lineNum"> 4329 </span><span class="lineNoCov"> 0 : yylval.word_list = make_word_list (wd, (WORD_LIST *)NULL);</span></a>
|
|
<a name="4330"><span class="lineNum"> 4330 </span><span class="lineNoCov"> 0 : return (ARITH_CMD);</span></a>
|
|
<a name="4331"><span class="lineNum"> 4331 </span> : }</a>
|
|
<a name="4332"><span class="lineNum"> 4332 </span><span class="lineCov"> 145 : else if (cmdtyp == 0) /* nested subshell */</span></a>
|
|
<a name="4333"><span class="lineNum"> 4333 </span> : {</a>
|
|
<a name="4334"><span class="lineNum"> 4334 </span><span class="lineCov"> 54 : push_string (wval, 0, (alias_t *)NULL);</span></a>
|
|
<a name="4335"><span class="lineNum"> 4335 </span><span class="lineCov"> 54 : pushed_string_list->flags = PSH_DPAREN;</span></a>
|
|
<a name="4336"><span class="lineNum"> 4336 </span><span class="lineCov"> 54 : if ((parser_state & PST_CASEPAT) == 0)</span></a>
|
|
<a name="4337"><span class="lineNum"> 4337 </span><span class="lineCov"> 54 : parser_state |= PST_SUBSHELL;</span></a>
|
|
<a name="4338"><span class="lineNum"> 4338 </span><span class="lineCov"> 54 : return (c);</span></a>
|
|
<a name="4339"><span class="lineNum"> 4339 </span> : }</a>
|
|
<a name="4340"><span class="lineNum"> 4340 </span> : else /* ERROR */</a>
|
|
<a name="4341"><span class="lineNum"> 4341 </span> : return -1;</a>
|
|
<a name="4342"><span class="lineNum"> 4342 </span> : }</a>
|
|
<a name="4343"><span class="lineNum"> 4343 </span> : #endif</a>
|
|
<a name="4344"><span class="lineNum"> 4344 </span> : </a>
|
|
<a name="4345"><span class="lineNum"> 4345 </span> : return -2; /* XXX */</a>
|
|
<a name="4346"><span class="lineNum"> 4346 </span> : }</a>
|
|
<a name="4347"><span class="lineNum"> 4347 </span> : </a>
|
|
<a name="4348"><span class="lineNum"> 4348 </span> : /* We've seen a `(('. Look for the matching `))'. If we get it, return 1.</a>
|
|
<a name="4349"><span class="lineNum"> 4349 </span> : If not, assume it's a nested subshell for backwards compatibility and</a>
|
|
<a name="4350"><span class="lineNum"> 4350 </span> : return 0. In any case, put the characters we've consumed into a locally-</a>
|
|
<a name="4351"><span class="lineNum"> 4351 </span> : allocated buffer and make *ep point to that buffer. Return -1 on an</a>
|
|
<a name="4352"><span class="lineNum"> 4352 </span> : error, for example EOF. */</a>
|
|
<a name="4353"><span class="lineNum"> 4353 </span> : static int</a>
|
|
<a name="4354"><span class="lineNum"> 4354 </span><span class="lineCov"> 145 : parse_arith_cmd (ep, adddq)</span></a>
|
|
<a name="4355"><span class="lineNum"> 4355 </span> : char **ep;</a>
|
|
<a name="4356"><span class="lineNum"> 4356 </span> : int adddq;</a>
|
|
<a name="4357"><span class="lineNum"> 4357 </span> : {</a>
|
|
<a name="4358"><span class="lineNum"> 4358 </span><span class="lineCov"> 145 : int rval, c;</span></a>
|
|
<a name="4359"><span class="lineNum"> 4359 </span><span class="lineCov"> 145 : char *ttok, *tokstr;</span></a>
|
|
<a name="4360"><span class="lineNum"> 4360 </span><span class="lineCov"> 145 : int ttoklen;</span></a>
|
|
<a name="4361"><span class="lineNum"> 4361 </span> : </a>
|
|
<a name="4362"><span class="lineNum"> 4362 </span><span class="lineCov"> 145 : ttok = parse_matched_pair (0, '(', ')', &ttoklen, 0);</span></a>
|
|
<a name="4363"><span class="lineNum"> 4363 </span><span class="lineCov"> 145 : rval = 1;</span></a>
|
|
<a name="4364"><span class="lineNum"> 4364 </span><span class="lineCov"> 145 : if (ttok == &matched_pair_error)</span></a>
|
|
<a name="4365"><span class="lineNum"> 4365 </span> : return -1;</a>
|
|
<a name="4366"><span class="lineNum"> 4366 </span> : /* Check that the next character is the closing right paren. If</a>
|
|
<a name="4367"><span class="lineNum"> 4367 </span> : not, this is a syntax error. ( */</a>
|
|
<a name="4368"><span class="lineNum"> 4368 </span><span class="lineCov"> 54 : c = shell_getc (0);</span></a>
|
|
<a name="4369"><span class="lineNum"> 4369 </span><span class="lineCov"> 54 : if MBTEST(c != ')')</span></a>
|
|
<a name="4370"><span class="lineNum"> 4370 </span><span class="lineCov"> 54 : rval = 0;</span></a>
|
|
<a name="4371"><span class="lineNum"> 4371 </span> : </a>
|
|
<a name="4372"><span class="lineNum"> 4372 </span><span class="lineCov"> 54 : tokstr = (char *)xmalloc (ttoklen + 4);</span></a>
|
|
<a name="4373"><span class="lineNum"> 4373 </span> : </a>
|
|
<a name="4374"><span class="lineNum"> 4374 </span> : /* if ADDDQ != 0 then (( ... )) -> "..." */</a>
|
|
<a name="4375"><span class="lineNum"> 4375 </span><span class="lineCov"> 54 : if (rval == 1 && adddq) /* arith cmd, add double quotes */</span></a>
|
|
<a name="4376"><span class="lineNum"> 4376 </span> : {</a>
|
|
<a name="4377"><span class="lineNum"> 4377 </span><span class="lineNoCov"> 0 : tokstr[0] = '"';</span></a>
|
|
<a name="4378"><span class="lineNum"> 4378 </span><span class="lineNoCov"> 0 : strncpy (tokstr + 1, ttok, ttoklen - 1);</span></a>
|
|
<a name="4379"><span class="lineNum"> 4379 </span><span class="lineNoCov"> 0 : tokstr[ttoklen] = '"';</span></a>
|
|
<a name="4380"><span class="lineNum"> 4380 </span><span class="lineNoCov"> 0 : tokstr[ttoklen+1] = '\0';</span></a>
|
|
<a name="4381"><span class="lineNum"> 4381 </span> : }</a>
|
|
<a name="4382"><span class="lineNum"> 4382 </span><span class="lineCov"> 54 : else if (rval == 1) /* arith cmd, don't add double quotes */</span></a>
|
|
<a name="4383"><span class="lineNum"> 4383 </span> : {</a>
|
|
<a name="4384"><span class="lineNum"> 4384 </span><span class="lineNoCov"> 0 : strncpy (tokstr, ttok, ttoklen - 1);</span></a>
|
|
<a name="4385"><span class="lineNum"> 4385 </span><span class="lineNoCov"> 0 : tokstr[ttoklen-1] = '\0';</span></a>
|
|
<a name="4386"><span class="lineNum"> 4386 </span> : }</a>
|
|
<a name="4387"><span class="lineNum"> 4387 </span> : else /* nested subshell */</a>
|
|
<a name="4388"><span class="lineNum"> 4388 </span> : {</a>
|
|
<a name="4389"><span class="lineNum"> 4389 </span><span class="lineCov"> 54 : tokstr[0] = '(';</span></a>
|
|
<a name="4390"><span class="lineNum"> 4390 </span><span class="lineCov"> 54 : strncpy (tokstr + 1, ttok, ttoklen - 1);</span></a>
|
|
<a name="4391"><span class="lineNum"> 4391 </span><span class="lineCov"> 54 : tokstr[ttoklen] = ')';</span></a>
|
|
<a name="4392"><span class="lineNum"> 4392 </span><span class="lineCov"> 54 : tokstr[ttoklen+1] = c;</span></a>
|
|
<a name="4393"><span class="lineNum"> 4393 </span><span class="lineCov"> 54 : tokstr[ttoklen+2] = '\0';</span></a>
|
|
<a name="4394"><span class="lineNum"> 4394 </span> : }</a>
|
|
<a name="4395"><span class="lineNum"> 4395 </span> : </a>
|
|
<a name="4396"><span class="lineNum"> 4396 </span><span class="lineCov"> 54 : *ep = tokstr;</span></a>
|
|
<a name="4397"><span class="lineNum"> 4397 </span><span class="lineCov"> 54 : FREE (ttok);</span></a>
|
|
<a name="4398"><span class="lineNum"> 4398 </span> : return rval;</a>
|
|
<a name="4399"><span class="lineNum"> 4399 </span> : }</a>
|
|
<a name="4400"><span class="lineNum"> 4400 </span> : #endif /* DPAREN_ARITHMETIC || ARITH_FOR_COMMAND */</a>
|
|
<a name="4401"><span class="lineNum"> 4401 </span> : </a>
|
|
<a name="4402"><span class="lineNum"> 4402 </span> : #if defined (COND_COMMAND)</a>
|
|
<a name="4403"><span class="lineNum"> 4403 </span> : static void</a>
|
|
<a name="4404"><span class="lineNum"> 4404 </span><span class="lineCov"> 72 : cond_error ()</span></a>
|
|
<a name="4405"><span class="lineNum"> 4405 </span> : {</a>
|
|
<a name="4406"><span class="lineNum"> 4406 </span><span class="lineCov"> 72 : char *etext;</span></a>
|
|
<a name="4407"><span class="lineNum"> 4407 </span> : </a>
|
|
<a name="4408"><span class="lineNum"> 4408 </span><span class="lineCov"> 72 : if (EOF_Reached && cond_token != COND_ERROR) /* [[ */</span></a>
|
|
<a name="4409"><span class="lineNum"> 4409 </span><span class="lineNoCov"> 0 : parser_error (cond_lineno, _("unexpected EOF while looking for `]]'"));</span></a>
|
|
<a name="4410"><span class="lineNum"> 4410 </span><span class="lineCov"> 72 : else if (cond_token != COND_ERROR)</span></a>
|
|
<a name="4411"><span class="lineNum"> 4411 </span> : {</a>
|
|
<a name="4412"><span class="lineNum"> 4412 </span><span class="lineCov"> 27 : if (etext = error_token_from_token (cond_token))</span></a>
|
|
<a name="4413"><span class="lineNum"> 4413 </span> : {</a>
|
|
<a name="4414"><span class="lineNum"> 4414 </span><span class="lineNoCov"> 0 : parser_error (cond_lineno, _("syntax error in conditional expression: unexpected token `%s'"), etext);</span></a>
|
|
<a name="4415"><span class="lineNum"> 4415 </span><span class="lineNoCov"> 0 : free (etext);</span></a>
|
|
<a name="4416"><span class="lineNum"> 4416 </span> : }</a>
|
|
<a name="4417"><span class="lineNum"> 4417 </span> : else</a>
|
|
<a name="4418"><span class="lineNum"> 4418 </span><span class="lineCov"> 27 : parser_error (cond_lineno, _("syntax error in conditional expression"));</span></a>
|
|
<a name="4419"><span class="lineNum"> 4419 </span> : }</a>
|
|
<a name="4420"><span class="lineNum"> 4420 </span><span class="lineCov"> 72 : }</span></a>
|
|
<a name="4421"><span class="lineNum"> 4421 </span> : </a>
|
|
<a name="4422"><span class="lineNum"> 4422 </span> : static COND_COM *</a>
|
|
<a name="4423"><span class="lineNum"> 4423 </span><span class="lineNoCov"> 0 : cond_expr ()</span></a>
|
|
<a name="4424"><span class="lineNum"> 4424 </span> : {</a>
|
|
<a name="4425"><span class="lineNum"> 4425 </span><span class="lineNoCov"> 0 : return (cond_or ()); </span></a>
|
|
<a name="4426"><span class="lineNum"> 4426 </span> : }</a>
|
|
<a name="4427"><span class="lineNum"> 4427 </span> : </a>
|
|
<a name="4428"><span class="lineNum"> 4428 </span> : static COND_COM *</a>
|
|
<a name="4429"><span class="lineNum"> 4429 </span><span class="lineCov"> 72 : cond_or ()</span></a>
|
|
<a name="4430"><span class="lineNum"> 4430 </span> : {</a>
|
|
<a name="4431"><span class="lineNum"> 4431 </span><span class="lineCov"> 72 : COND_COM *l, *r;</span></a>
|
|
<a name="4432"><span class="lineNum"> 4432 </span> : </a>
|
|
<a name="4433"><span class="lineNum"> 4433 </span><span class="lineCov"> 72 : l = cond_and ();</span></a>
|
|
<a name="4434"><span class="lineNum"> 4434 </span><span class="lineCov"> 72 : if (cond_token == OR_OR)</span></a>
|
|
<a name="4435"><span class="lineNum"> 4435 </span> : {</a>
|
|
<a name="4436"><span class="lineNum"> 4436 </span><span class="lineNoCov"> 0 : r = cond_or ();</span></a>
|
|
<a name="4437"><span class="lineNum"> 4437 </span><span class="lineNoCov"> 0 : l = make_cond_node (COND_OR, (WORD_DESC *)NULL, l, r);</span></a>
|
|
<a name="4438"><span class="lineNum"> 4438 </span> : }</a>
|
|
<a name="4439"><span class="lineNum"> 4439 </span><span class="lineCov"> 72 : return l;</span></a>
|
|
<a name="4440"><span class="lineNum"> 4440 </span> : }</a>
|
|
<a name="4441"><span class="lineNum"> 4441 </span> : </a>
|
|
<a name="4442"><span class="lineNum"> 4442 </span> : static COND_COM *</a>
|
|
<a name="4443"><span class="lineNum"> 4443 </span><span class="lineCov"> 72 : cond_and ()</span></a>
|
|
<a name="4444"><span class="lineNum"> 4444 </span> : {</a>
|
|
<a name="4445"><span class="lineNum"> 4445 </span><span class="lineCov"> 72 : COND_COM *l, *r;</span></a>
|
|
<a name="4446"><span class="lineNum"> 4446 </span> : </a>
|
|
<a name="4447"><span class="lineNum"> 4447 </span><span class="lineCov"> 72 : l = cond_term ();</span></a>
|
|
<a name="4448"><span class="lineNum"> 4448 </span><span class="lineCov"> 72 : if (cond_token == AND_AND)</span></a>
|
|
<a name="4449"><span class="lineNum"> 4449 </span> : {</a>
|
|
<a name="4450"><span class="lineNum"> 4450 </span><span class="lineNoCov"> 0 : r = cond_and ();</span></a>
|
|
<a name="4451"><span class="lineNum"> 4451 </span><span class="lineNoCov"> 0 : l = make_cond_node (COND_AND, (WORD_DESC *)NULL, l, r);</span></a>
|
|
<a name="4452"><span class="lineNum"> 4452 </span> : }</a>
|
|
<a name="4453"><span class="lineNum"> 4453 </span><span class="lineCov"> 72 : return l;</span></a>
|
|
<a name="4454"><span class="lineNum"> 4454 </span> : }</a>
|
|
<a name="4455"><span class="lineNum"> 4455 </span> : </a>
|
|
<a name="4456"><span class="lineNum"> 4456 </span> : static int</a>
|
|
<a name="4457"><span class="lineNum"> 4457 </span><span class="lineCov"> 126 : cond_skip_newlines ()</span></a>
|
|
<a name="4458"><span class="lineNum"> 4458 </span> : {</a>
|
|
<a name="4459"><span class="lineNum"> 4459 </span><span class="lineCov"> 144 : while ((cond_token = read_token (READ)) == '\n')</span></a>
|
|
<a name="4460"><span class="lineNum"> 4460 </span> : {</a>
|
|
<a name="4461"><span class="lineNum"> 4461 </span><span class="lineCov"> 18 : if (SHOULD_PROMPT ())</span></a>
|
|
<a name="4462"><span class="lineNum"> 4462 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="4463"><span class="lineNum"> 4463 </span> : }</a>
|
|
<a name="4464"><span class="lineNum"> 4464 </span><span class="lineCov"> 126 : return (cond_token);</span></a>
|
|
<a name="4465"><span class="lineNum"> 4465 </span> : }</a>
|
|
<a name="4466"><span class="lineNum"> 4466 </span> : </a>
|
|
<a name="4467"><span class="lineNum"> 4467 </span> : #define COND_RETURN_ERROR() \</a>
|
|
<a name="4468"><span class="lineNum"> 4468 </span> : do { cond_token = COND_ERROR; return ((COND_COM *)NULL); } while (0)</a>
|
|
<a name="4469"><span class="lineNum"> 4469 </span> : </a>
|
|
<a name="4470"><span class="lineNum"> 4470 </span> : static COND_COM *</a>
|
|
<a name="4471"><span class="lineNum"> 4471 </span><span class="lineCov"> 99 : cond_term ()</span></a>
|
|
<a name="4472"><span class="lineNum"> 4472 </span> : {</a>
|
|
<a name="4473"><span class="lineNum"> 4473 </span><span class="lineCov"> 99 : WORD_DESC *op;</span></a>
|
|
<a name="4474"><span class="lineNum"> 4474 </span><span class="lineCov"> 99 : COND_COM *term, *tleft, *tright;</span></a>
|
|
<a name="4475"><span class="lineNum"> 4475 </span><span class="lineCov"> 99 : int tok, lineno;</span></a>
|
|
<a name="4476"><span class="lineNum"> 4476 </span><span class="lineCov"> 99 : char *etext;</span></a>
|
|
<a name="4477"><span class="lineNum"> 4477 </span> : </a>
|
|
<a name="4478"><span class="lineNum"> 4478 </span> : /* Read a token. It can be a left paren, a `!', a unary operator, or a</a>
|
|
<a name="4479"><span class="lineNum"> 4479 </span> : word that should be the first argument of a binary operator. Start by</a>
|
|
<a name="4480"><span class="lineNum"> 4480 </span> : skipping newlines, since this is a compound command. */</a>
|
|
<a name="4481"><span class="lineNum"> 4481 </span><span class="lineCov"> 99 : tok = cond_skip_newlines ();</span></a>
|
|
<a name="4482"><span class="lineNum"> 4482 </span><span class="lineCov"> 99 : lineno = line_number;</span></a>
|
|
<a name="4483"><span class="lineNum"> 4483 </span><span class="lineCov"> 99 : if (tok == COND_END)</span></a>
|
|
<a name="4484"><span class="lineNum"> 4484 </span> : {</a>
|
|
<a name="4485"><span class="lineNum"> 4485 </span><span class="lineNoCov"> 0 : COND_RETURN_ERROR ();</span></a>
|
|
<a name="4486"><span class="lineNum"> 4486 </span> : }</a>
|
|
<a name="4487"><span class="lineNum"> 4487 </span><span class="lineCov"> 99 : else if (tok == '(')</span></a>
|
|
<a name="4488"><span class="lineNum"> 4488 </span> : {</a>
|
|
<a name="4489"><span class="lineNum"> 4489 </span><span class="lineNoCov"> 0 : term = cond_expr ();</span></a>
|
|
<a name="4490"><span class="lineNum"> 4490 </span><span class="lineNoCov"> 0 : if (cond_token != ')')</span></a>
|
|
<a name="4491"><span class="lineNum"> 4491 </span> : {</a>
|
|
<a name="4492"><span class="lineNum"> 4492 </span><span class="lineNoCov"> 0 : if (term)</span></a>
|
|
<a name="4493"><span class="lineNum"> 4493 </span><span class="lineNoCov"> 0 : dispose_cond_node (term); /* ( */</span></a>
|
|
<a name="4494"><span class="lineNum"> 4494 </span><span class="lineNoCov"> 0 : if (etext = error_token_from_token (cond_token))</span></a>
|
|
<a name="4495"><span class="lineNum"> 4495 </span> : {</a>
|
|
<a name="4496"><span class="lineNum"> 4496 </span><span class="lineNoCov"> 0 : parser_error (lineno, _("unexpected token `%s', expected `)'"), etext);</span></a>
|
|
<a name="4497"><span class="lineNum"> 4497 </span><span class="lineNoCov"> 0 : free (etext);</span></a>
|
|
<a name="4498"><span class="lineNum"> 4498 </span> : }</a>
|
|
<a name="4499"><span class="lineNum"> 4499 </span> : else</a>
|
|
<a name="4500"><span class="lineNum"> 4500 </span><span class="lineNoCov"> 0 : parser_error (lineno, _("expected `)'"));</span></a>
|
|
<a name="4501"><span class="lineNum"> 4501 </span><span class="lineNoCov"> 0 : COND_RETURN_ERROR ();</span></a>
|
|
<a name="4502"><span class="lineNum"> 4502 </span> : }</a>
|
|
<a name="4503"><span class="lineNum"> 4503 </span><span class="lineNoCov"> 0 : term = make_cond_node (COND_EXPR, (WORD_DESC *)NULL, term, (COND_COM *)NULL);</span></a>
|
|
<a name="4504"><span class="lineNum"> 4504 </span><span class="lineNoCov"> 0 : (void)cond_skip_newlines ();</span></a>
|
|
<a name="4505"><span class="lineNum"> 4505 </span> : }</a>
|
|
<a name="4506"><span class="lineNum"> 4506 </span><span class="lineCov"> 99 : else if (tok == BANG || (tok == WORD && (yylval.word->word[0] == '!' && yylval.word->word[1] == '\0')))</span></a>
|
|
<a name="4507"><span class="lineNum"> 4507 </span> : {</a>
|
|
<a name="4508"><span class="lineNum"> 4508 </span><span class="lineCov"> 27 : if (tok == WORD)</span></a>
|
|
<a name="4509"><span class="lineNum"> 4509 </span><span class="lineCov"> 27 : dispose_word (yylval.word); /* not needed */</span></a>
|
|
<a name="4510"><span class="lineNum"> 4510 </span><span class="lineCov"> 27 : term = cond_term ();</span></a>
|
|
<a name="4511"><span class="lineNum"> 4511 </span><span class="lineCov"> 27 : if (term)</span></a>
|
|
<a name="4512"><span class="lineNum"> 4512 </span><span class="lineCov"> 18 : term->flags |= CMD_INVERT_RETURN;</span></a>
|
|
<a name="4513"><span class="lineNum"> 4513 </span> : }</a>
|
|
<a name="4514"><span class="lineNum"> 4514 </span><span class="lineCov"> 72 : else if (tok == WORD && yylval.word->word[0] == '-' && yylval.word->word[2] == 0 && test_unop (yylval.word->word))</span></a>
|
|
<a name="4515"><span class="lineNum"> 4515 </span> : {</a>
|
|
<a name="4516"><span class="lineNum"> 4516 </span><span class="lineCov"> 36 : op = yylval.word;</span></a>
|
|
<a name="4517"><span class="lineNum"> 4517 </span><span class="lineCov"> 36 : tok = read_token (READ);</span></a>
|
|
<a name="4518"><span class="lineNum"> 4518 </span><span class="lineCov"> 36 : if (tok == WORD)</span></a>
|
|
<a name="4519"><span class="lineNum"> 4519 </span> : {</a>
|
|
<a name="4520"><span class="lineNum"> 4520 </span><span class="lineCov"> 27 : tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);</span></a>
|
|
<a name="4521"><span class="lineNum"> 4521 </span><span class="lineCov"> 27 : term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);</span></a>
|
|
<a name="4522"><span class="lineNum"> 4522 </span> : }</a>
|
|
<a name="4523"><span class="lineNum"> 4523 </span> : else</a>
|
|
<a name="4524"><span class="lineNum"> 4524 </span> : {</a>
|
|
<a name="4525"><span class="lineNum"> 4525 </span><span class="lineCov"> 9 : dispose_word (op);</span></a>
|
|
<a name="4526"><span class="lineNum"> 4526 </span><span class="lineCov"> 9 : if (etext = error_token_from_token (tok))</span></a>
|
|
<a name="4527"><span class="lineNum"> 4527 </span> : {</a>
|
|
<a name="4528"><span class="lineNum"> 4528 </span><span class="lineNoCov"> 0 : parser_error (line_number, _("unexpected argument `%s' to conditional unary operator"), etext);</span></a>
|
|
<a name="4529"><span class="lineNum"> 4529 </span><span class="lineNoCov"> 0 : free (etext);</span></a>
|
|
<a name="4530"><span class="lineNum"> 4530 </span> : }</a>
|
|
<a name="4531"><span class="lineNum"> 4531 </span> : else</a>
|
|
<a name="4532"><span class="lineNum"> 4532 </span><span class="lineCov"> 9 : parser_error (line_number, _("unexpected argument to conditional unary operator"));</span></a>
|
|
<a name="4533"><span class="lineNum"> 4533 </span><span class="lineCov"> 9 : COND_RETURN_ERROR ();</span></a>
|
|
<a name="4534"><span class="lineNum"> 4534 </span> : }</a>
|
|
<a name="4535"><span class="lineNum"> 4535 </span> : </a>
|
|
<a name="4536"><span class="lineNum"> 4536 </span><span class="lineCov"> 27 : (void)cond_skip_newlines ();</span></a>
|
|
<a name="4537"><span class="lineNum"> 4537 </span> : }</a>
|
|
<a name="4538"><span class="lineNum"> 4538 </span><span class="lineCov"> 36 : else if (tok == WORD) /* left argument to binary operator */</span></a>
|
|
<a name="4539"><span class="lineNum"> 4539 </span> : {</a>
|
|
<a name="4540"><span class="lineNum"> 4540 </span> : /* lhs */</a>
|
|
<a name="4541"><span class="lineNum"> 4541 </span><span class="lineCov"> 18 : tleft = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);</span></a>
|
|
<a name="4542"><span class="lineNum"> 4542 </span> : </a>
|
|
<a name="4543"><span class="lineNum"> 4543 </span> : /* binop */</a>
|
|
<a name="4544"><span class="lineNum"> 4544 </span><span class="lineCov"> 18 : tok = read_token (READ);</span></a>
|
|
<a name="4545"><span class="lineNum"> 4545 </span><span class="lineCov"> 18 : if (tok == WORD && test_binop (yylval.word->word))</span></a>
|
|
<a name="4546"><span class="lineNum"> 4546 </span> : {</a>
|
|
<a name="4547"><span class="lineNum"> 4547 </span><span class="lineNoCov"> 0 : op = yylval.word;</span></a>
|
|
<a name="4548"><span class="lineNum"> 4548 </span><span class="lineNoCov"> 0 : if (op->word[0] == '=' && (op->word[1] == '\0' || (op->word[1] == '=' && op->word[2] == '\0')))</span></a>
|
|
<a name="4549"><span class="lineNum"> 4549 </span><span class="lineNoCov"> 0 : parser_state |= PST_EXTPAT;</span></a>
|
|
<a name="4550"><span class="lineNum"> 4550 </span><span class="lineNoCov"> 0 : else if (op->word[0] == '!' && op->word[1] == '=' && op->word[2] == '\0')</span></a>
|
|
<a name="4551"><span class="lineNum"> 4551 </span><span class="lineNoCov"> 0 : parser_state |= PST_EXTPAT;</span></a>
|
|
<a name="4552"><span class="lineNum"> 4552 </span> : }</a>
|
|
<a name="4553"><span class="lineNum"> 4553 </span> : #if defined (COND_REGEXP)</a>
|
|
<a name="4554"><span class="lineNum"> 4554 </span><span class="lineCov"> 18 : else if (tok == WORD && STREQ (yylval.word->word, "=~"))</span></a>
|
|
<a name="4555"><span class="lineNum"> 4555 </span> : {</a>
|
|
<a name="4556"><span class="lineNum"> 4556 </span><span class="lineNoCov"> 0 : op = yylval.word;</span></a>
|
|
<a name="4557"><span class="lineNum"> 4557 </span><span class="lineNoCov"> 0 : parser_state |= PST_REGEXP;</span></a>
|
|
<a name="4558"><span class="lineNum"> 4558 </span> : }</a>
|
|
<a name="4559"><span class="lineNum"> 4559 </span> : #endif</a>
|
|
<a name="4560"><span class="lineNum"> 4560 </span><span class="lineCov"> 18 : else if (tok == '<' || tok == '>')</span></a>
|
|
<a name="4561"><span class="lineNum"> 4561 </span><span class="lineNoCov"> 0 : op = make_word_from_token (tok); /* ( */</span></a>
|
|
<a name="4562"><span class="lineNum"> 4562 </span> : /* There should be a check before blindly accepting the `)' that we have</a>
|
|
<a name="4563"><span class="lineNum"> 4563 </span> : seen the opening `('. */</a>
|
|
<a name="4564"><span class="lineNum"> 4564 </span><span class="lineCov"> 18 : else if (tok == COND_END || tok == AND_AND || tok == OR_OR || tok == ')')</span></a>
|
|
<a name="4565"><span class="lineNum"> 4565 </span> : {</a>
|
|
<a name="4566"><span class="lineNum"> 4566 </span> : /* Special case. [[ x ]] is equivalent to [[ -n x ]], just like</a>
|
|
<a name="4567"><span class="lineNum"> 4567 </span> : the test command. Similarly for [[ x && expr ]] or</a>
|
|
<a name="4568"><span class="lineNum"> 4568 </span> : [[ x || expr ]] or [[ (x) ]]. */</a>
|
|
<a name="4569"><span class="lineNum"> 4569 </span><span class="lineNoCov"> 0 : op = make_word ("-n");</span></a>
|
|
<a name="4570"><span class="lineNum"> 4570 </span><span class="lineNoCov"> 0 : term = make_cond_node (COND_UNARY, op, tleft, (COND_COM *)NULL);</span></a>
|
|
<a name="4571"><span class="lineNum"> 4571 </span><span class="lineNoCov"> 0 : cond_token = tok;</span></a>
|
|
<a name="4572"><span class="lineNum"> 4572 </span><span class="lineNoCov"> 0 : return (term);</span></a>
|
|
<a name="4573"><span class="lineNum"> 4573 </span> : }</a>
|
|
<a name="4574"><span class="lineNum"> 4574 </span> : else</a>
|
|
<a name="4575"><span class="lineNum"> 4575 </span> : {</a>
|
|
<a name="4576"><span class="lineNum"> 4576 </span><span class="lineCov"> 18 : if (etext = error_token_from_token (tok))</span></a>
|
|
<a name="4577"><span class="lineNum"> 4577 </span> : {</a>
|
|
<a name="4578"><span class="lineNum"> 4578 </span><span class="lineNoCov"> 0 : parser_error (line_number, _("unexpected token `%s', conditional binary operator expected"), etext);</span></a>
|
|
<a name="4579"><span class="lineNum"> 4579 </span><span class="lineNoCov"> 0 : free (etext);</span></a>
|
|
<a name="4580"><span class="lineNum"> 4580 </span> : }</a>
|
|
<a name="4581"><span class="lineNum"> 4581 </span> : else</a>
|
|
<a name="4582"><span class="lineNum"> 4582 </span><span class="lineCov"> 18 : parser_error (line_number, _("conditional binary operator expected"));</span></a>
|
|
<a name="4583"><span class="lineNum"> 4583 </span><span class="lineCov"> 18 : dispose_cond_node (tleft);</span></a>
|
|
<a name="4584"><span class="lineNum"> 4584 </span><span class="lineCov"> 18 : COND_RETURN_ERROR ();</span></a>
|
|
<a name="4585"><span class="lineNum"> 4585 </span> : }</a>
|
|
<a name="4586"><span class="lineNum"> 4586 </span> : </a>
|
|
<a name="4587"><span class="lineNum"> 4587 </span> : /* rhs */</a>
|
|
<a name="4588"><span class="lineNum"> 4588 </span><span class="lineNoCov"> 0 : if (parser_state & PST_EXTPAT)</span></a>
|
|
<a name="4589"><span class="lineNum"> 4589 </span><span class="lineNoCov"> 0 : extended_glob = 1;</span></a>
|
|
<a name="4590"><span class="lineNum"> 4590 </span><span class="lineNoCov"> 0 : tok = read_token (READ);</span></a>
|
|
<a name="4591"><span class="lineNum"> 4591 </span><span class="lineNoCov"> 0 : if (parser_state & PST_EXTPAT)</span></a>
|
|
<a name="4592"><span class="lineNum"> 4592 </span><span class="lineNoCov"> 0 : extended_glob = global_extglob;</span></a>
|
|
<a name="4593"><span class="lineNum"> 4593 </span><span class="lineNoCov"> 0 : parser_state &= ~(PST_REGEXP|PST_EXTPAT);</span></a>
|
|
<a name="4594"><span class="lineNum"> 4594 </span> : </a>
|
|
<a name="4595"><span class="lineNum"> 4595 </span><span class="lineNoCov"> 0 : if (tok == WORD)</span></a>
|
|
<a name="4596"><span class="lineNum"> 4596 </span> : {</a>
|
|
<a name="4597"><span class="lineNum"> 4597 </span><span class="lineNoCov"> 0 : tright = make_cond_node (COND_TERM, yylval.word, (COND_COM *)NULL, (COND_COM *)NULL);</span></a>
|
|
<a name="4598"><span class="lineNum"> 4598 </span><span class="lineNoCov"> 0 : term = make_cond_node (COND_BINARY, op, tleft, tright);</span></a>
|
|
<a name="4599"><span class="lineNum"> 4599 </span> : }</a>
|
|
<a name="4600"><span class="lineNum"> 4600 </span> : else</a>
|
|
<a name="4601"><span class="lineNum"> 4601 </span> : {</a>
|
|
<a name="4602"><span class="lineNum"> 4602 </span><span class="lineNoCov"> 0 : if (etext = error_token_from_token (tok))</span></a>
|
|
<a name="4603"><span class="lineNum"> 4603 </span> : {</a>
|
|
<a name="4604"><span class="lineNum"> 4604 </span><span class="lineNoCov"> 0 : parser_error (line_number, _("unexpected argument `%s' to conditional binary operator"), etext);</span></a>
|
|
<a name="4605"><span class="lineNum"> 4605 </span><span class="lineNoCov"> 0 : free (etext);</span></a>
|
|
<a name="4606"><span class="lineNum"> 4606 </span> : }</a>
|
|
<a name="4607"><span class="lineNum"> 4607 </span> : else</a>
|
|
<a name="4608"><span class="lineNum"> 4608 </span><span class="lineNoCov"> 0 : parser_error (line_number, _("unexpected argument to conditional binary operator"));</span></a>
|
|
<a name="4609"><span class="lineNum"> 4609 </span><span class="lineNoCov"> 0 : dispose_cond_node (tleft);</span></a>
|
|
<a name="4610"><span class="lineNum"> 4610 </span><span class="lineNoCov"> 0 : dispose_word (op);</span></a>
|
|
<a name="4611"><span class="lineNum"> 4611 </span><span class="lineNoCov"> 0 : COND_RETURN_ERROR ();</span></a>
|
|
<a name="4612"><span class="lineNum"> 4612 </span> : }</a>
|
|
<a name="4613"><span class="lineNum"> 4613 </span> : </a>
|
|
<a name="4614"><span class="lineNum"> 4614 </span><span class="lineNoCov"> 0 : (void)cond_skip_newlines ();</span></a>
|
|
<a name="4615"><span class="lineNum"> 4615 </span> : }</a>
|
|
<a name="4616"><span class="lineNum"> 4616 </span> : else</a>
|
|
<a name="4617"><span class="lineNum"> 4617 </span> : {</a>
|
|
<a name="4618"><span class="lineNum"> 4618 </span><span class="lineCov"> 18 : if (tok < 256)</span></a>
|
|
<a name="4619"><span class="lineNum"> 4619 </span><span class="lineCov"> 9 : parser_error (line_number, _("unexpected token `%c' in conditional command"), tok);</span></a>
|
|
<a name="4620"><span class="lineNum"> 4620 </span><span class="lineCov"> 9 : else if (etext = error_token_from_token (tok))</span></a>
|
|
<a name="4621"><span class="lineNum"> 4621 </span> : {</a>
|
|
<a name="4622"><span class="lineNum"> 4622 </span><span class="lineCov"> 9 : parser_error (line_number, _("unexpected token `%s' in conditional command"), etext);</span></a>
|
|
<a name="4623"><span class="lineNum"> 4623 </span><span class="lineCov"> 9 : free (etext);</span></a>
|
|
<a name="4624"><span class="lineNum"> 4624 </span> : }</a>
|
|
<a name="4625"><span class="lineNum"> 4625 </span> : else</a>
|
|
<a name="4626"><span class="lineNum"> 4626 </span><span class="lineNoCov"> 0 : parser_error (line_number, _("unexpected token %d in conditional command"), tok);</span></a>
|
|
<a name="4627"><span class="lineNum"> 4627 </span><span class="lineCov"> 18 : COND_RETURN_ERROR ();</span></a>
|
|
<a name="4628"><span class="lineNum"> 4628 </span> : }</a>
|
|
<a name="4629"><span class="lineNum"> 4629 </span> : return (term);</a>
|
|
<a name="4630"><span class="lineNum"> 4630 </span> : } </a>
|
|
<a name="4631"><span class="lineNum"> 4631 </span> : </a>
|
|
<a name="4632"><span class="lineNum"> 4632 </span> : /* This is kind of bogus -- we slip a mini recursive-descent parser in</a>
|
|
<a name="4633"><span class="lineNum"> 4633 </span> : here to handle the conditional statement syntax. */</a>
|
|
<a name="4634"><span class="lineNum"> 4634 </span> : static COMMAND *</a>
|
|
<a name="4635"><span class="lineNum"> 4635 </span><span class="lineCov"> 72 : parse_cond_command ()</span></a>
|
|
<a name="4636"><span class="lineNum"> 4636 </span> : {</a>
|
|
<a name="4637"><span class="lineNum"> 4637 </span><span class="lineCov"> 72 : COND_COM *cexp;</span></a>
|
|
<a name="4638"><span class="lineNum"> 4638 </span> : </a>
|
|
<a name="4639"><span class="lineNum"> 4639 </span><span class="lineCov"> 72 : global_extglob = extended_glob;</span></a>
|
|
<a name="4640"><span class="lineNum"> 4640 </span><span class="lineCov"> 72 : cexp = cond_expr ();</span></a>
|
|
<a name="4641"><span class="lineNum"> 4641 </span><span class="lineCov"> 72 : return (make_cond_command (cexp));</span></a>
|
|
<a name="4642"><span class="lineNum"> 4642 </span> : }</a>
|
|
<a name="4643"><span class="lineNum"> 4643 </span> : #endif</a>
|
|
<a name="4644"><span class="lineNum"> 4644 </span> : </a>
|
|
<a name="4645"><span class="lineNum"> 4645 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="4646"><span class="lineNum"> 4646 </span> : /* When this is called, it's guaranteed that we don't care about anything</a>
|
|
<a name="4647"><span class="lineNum"> 4647 </span> : in t beyond i. We do save and restore the chars, though. */</a>
|
|
<a name="4648"><span class="lineNum"> 4648 </span> : static int</a>
|
|
<a name="4649"><span class="lineNum"> 4649 </span><span class="lineCov"> 56809186 : token_is_assignment (t, i)</span></a>
|
|
<a name="4650"><span class="lineNum"> 4650 </span> : char *t;</a>
|
|
<a name="4651"><span class="lineNum"> 4651 </span> : int i;</a>
|
|
<a name="4652"><span class="lineNum"> 4652 </span> : {</a>
|
|
<a name="4653"><span class="lineNum"> 4653 </span><span class="lineCov"> 56809186 : unsigned char c, c1;</span></a>
|
|
<a name="4654"><span class="lineNum"> 4654 </span><span class="lineCov"> 56809186 : int r;</span></a>
|
|
<a name="4655"><span class="lineNum"> 4655 </span> : </a>
|
|
<a name="4656"><span class="lineNum"> 4656 </span><span class="lineCov"> 56809186 : c = t[i]; c1 = t[i+1];</span></a>
|
|
<a name="4657"><span class="lineNum"> 4657 </span><span class="lineCov"> 56809186 : t[i] = '='; t[i+1] = '\0';</span></a>
|
|
<a name="4658"><span class="lineNum"> 4658 </span><span class="lineCov"> 56809186 : r = assignment (t, (parser_state & PST_COMPASSIGN) != 0);</span></a>
|
|
<a name="4659"><span class="lineNum"> 4659 </span><span class="lineCov"> 56809186 : t[i] = c; t[i+1] = c1;</span></a>
|
|
<a name="4660"><span class="lineNum"> 4660 </span><span class="lineCov"> 56809186 : return r;</span></a>
|
|
<a name="4661"><span class="lineNum"> 4661 </span> : }</a>
|
|
<a name="4662"><span class="lineNum"> 4662 </span> : </a>
|
|
<a name="4663"><span class="lineNum"> 4663 </span> : /* XXX - possible changes here for `+=' */</a>
|
|
<a name="4664"><span class="lineNum"> 4664 </span> : static int</a>
|
|
<a name="4665"><span class="lineNum"> 4665 </span> : token_is_ident (t, i)</a>
|
|
<a name="4666"><span class="lineNum"> 4666 </span> : char *t;</a>
|
|
<a name="4667"><span class="lineNum"> 4667 </span> : int i;</a>
|
|
<a name="4668"><span class="lineNum"> 4668 </span> : {</a>
|
|
<a name="4669"><span class="lineNum"> 4669 </span><span class="lineCov"> 53444 : unsigned char c;</span></a>
|
|
<a name="4670"><span class="lineNum"> 4670 </span><span class="lineCov"> 53444 : int r;</span></a>
|
|
<a name="4671"><span class="lineNum"> 4671 </span> : </a>
|
|
<a name="4672"><span class="lineNum"> 4672 </span><span class="lineCov"> 53444 : c = t[i];</span></a>
|
|
<a name="4673"><span class="lineNum"> 4673 </span><span class="lineCov"> 53444 : t[i] = '\0';</span></a>
|
|
<a name="4674"><span class="lineNum"> 4674 </span><span class="lineCov"> 106888 : r = legal_identifier (t);</span></a>
|
|
<a name="4675"><span class="lineNum"> 4675 </span><span class="lineCov"> 53444 : t[i] = c;</span></a>
|
|
<a name="4676"><span class="lineNum"> 4676 </span><span class="lineCov"> 53444 : return r;</span></a>
|
|
<a name="4677"><span class="lineNum"> 4677 </span> : }</a>
|
|
<a name="4678"><span class="lineNum"> 4678 </span> : #endif</a>
|
|
<a name="4679"><span class="lineNum"> 4679 </span> : </a>
|
|
<a name="4680"><span class="lineNum"> 4680 </span> : static int</a>
|
|
<a name="4681"><span class="lineNum"> 4681 </span><span class="lineCov"> 1184640701 : read_token_word (character)</span></a>
|
|
<a name="4682"><span class="lineNum"> 4682 </span> : int character;</a>
|
|
<a name="4683"><span class="lineNum"> 4683 </span> : {</a>
|
|
<a name="4684"><span class="lineNum"> 4684 </span> : /* The value for YYLVAL when a WORD is read. */</a>
|
|
<a name="4685"><span class="lineNum"> 4685 </span><span class="lineCov"> 1184640701 : WORD_DESC *the_word;</span></a>
|
|
<a name="4686"><span class="lineNum"> 4686 </span> : </a>
|
|
<a name="4687"><span class="lineNum"> 4687 </span> : /* Index into the token that we are building. */</a>
|
|
<a name="4688"><span class="lineNum"> 4688 </span><span class="lineCov"> 1184640701 : int token_index;</span></a>
|
|
<a name="4689"><span class="lineNum"> 4689 </span> : </a>
|
|
<a name="4690"><span class="lineNum"> 4690 </span> : /* ALL_DIGITS becomes zero when we see a non-digit. */</a>
|
|
<a name="4691"><span class="lineNum"> 4691 </span><span class="lineCov"> 1184640701 : int all_digit_token;</span></a>
|
|
<a name="4692"><span class="lineNum"> 4692 </span> : </a>
|
|
<a name="4693"><span class="lineNum"> 4693 </span> : /* DOLLAR_PRESENT becomes non-zero if we see a `$'. */</a>
|
|
<a name="4694"><span class="lineNum"> 4694 </span><span class="lineCov"> 1184640701 : int dollar_present;</span></a>
|
|
<a name="4695"><span class="lineNum"> 4695 </span> : </a>
|
|
<a name="4696"><span class="lineNum"> 4696 </span> : /* COMPOUND_ASSIGNMENT becomes non-zero if we are parsing a compound</a>
|
|
<a name="4697"><span class="lineNum"> 4697 </span> : assignment. */</a>
|
|
<a name="4698"><span class="lineNum"> 4698 </span><span class="lineCov"> 1184640701 : int compound_assignment;</span></a>
|
|
<a name="4699"><span class="lineNum"> 4699 </span> : </a>
|
|
<a name="4700"><span class="lineNum"> 4700 </span> : /* QUOTED becomes non-zero if we see one of ("), ('), (`), or (\). */</a>
|
|
<a name="4701"><span class="lineNum"> 4701 </span><span class="lineCov"> 1184640701 : int quoted;</span></a>
|
|
<a name="4702"><span class="lineNum"> 4702 </span> : </a>
|
|
<a name="4703"><span class="lineNum"> 4703 </span> : /* Non-zero means to ignore the value of the next character, and just</a>
|
|
<a name="4704"><span class="lineNum"> 4704 </span> : to add it no matter what. */</a>
|
|
<a name="4705"><span class="lineNum"> 4705 </span><span class="lineCov"> 1184640701 : int pass_next_character;</span></a>
|
|
<a name="4706"><span class="lineNum"> 4706 </span> : </a>
|
|
<a name="4707"><span class="lineNum"> 4707 </span> : /* The current delimiting character. */</a>
|
|
<a name="4708"><span class="lineNum"> 4708 </span><span class="lineCov"> 1184640701 : int cd;</span></a>
|
|
<a name="4709"><span class="lineNum"> 4709 </span><span class="lineCov"> 1184640701 : int result, peek_char;</span></a>
|
|
<a name="4710"><span class="lineNum"> 4710 </span><span class="lineCov"> 1184640701 : char *ttok, *ttrans;</span></a>
|
|
<a name="4711"><span class="lineNum"> 4711 </span><span class="lineCov"> 1184640701 : int ttoklen, ttranslen;</span></a>
|
|
<a name="4712"><span class="lineNum"> 4712 </span><span class="lineCov"> 1184640701 : intmax_t lvalue;</span></a>
|
|
<a name="4713"><span class="lineNum"> 4713 </span> : </a>
|
|
<a name="4714"><span class="lineNum"> 4714 </span><span class="lineCov"> 1184640701 : if (token_buffer_size < TOKEN_DEFAULT_INITIAL_SIZE)</span></a>
|
|
<a name="4715"><span class="lineNum"> 4715 </span><span class="lineCov"> 9543185 : token = (char *)xrealloc (token, token_buffer_size = TOKEN_DEFAULT_INITIAL_SIZE);</span></a>
|
|
<a name="4716"><span class="lineNum"> 4716 </span> : </a>
|
|
<a name="4717"><span class="lineNum"> 4717 </span><span class="lineCov"> 1184640701 : token_index = 0;</span></a>
|
|
<a name="4718"><span class="lineNum"> 4718 </span><span class="lineCov"> 1184640701 : all_digit_token = DIGIT (character);</span></a>
|
|
<a name="4719"><span class="lineNum"> 4719 </span><span class="lineCov"> 1184640701 : dollar_present = quoted = pass_next_character = compound_assignment = 0;</span></a>
|
|
<a name="4720"><span class="lineNum"> 4720 </span> : </a>
|
|
<a name="4721"><span class="lineNum"> 4721 </span><span class="lineCov">11329721279 : for (;;)</span></a>
|
|
<a name="4722"><span class="lineNum"> 4722 </span> : {</a>
|
|
<a name="4723"><span class="lineNum"> 4723 </span><span class="lineCov"> 6257180990 : if (character == EOF)</span></a>
|
|
<a name="4724"><span class="lineNum"> 4724 </span><span class="lineCov"> 59 : goto got_token;</span></a>
|
|
<a name="4725"><span class="lineNum"> 4725 </span> : </a>
|
|
<a name="4726"><span class="lineNum"> 4726 </span><span class="lineCov"> 6257180931 : if (pass_next_character)</span></a>
|
|
<a name="4727"><span class="lineNum"> 4727 </span> : {</a>
|
|
<a name="4728"><span class="lineNum"> 4728 </span> : pass_next_character = 0;</a>
|
|
<a name="4729"><span class="lineNum"> 4729 </span> : goto got_escaped_character;</a>
|
|
<a name="4730"><span class="lineNum"> 4730 </span> : }</a>
|
|
<a name="4731"><span class="lineNum"> 4731 </span> : </a>
|
|
<a name="4732"><span class="lineNum"> 4732 </span><span class="lineCov"> 6256141612 : cd = current_delimiter (dstack);</span></a>
|
|
<a name="4733"><span class="lineNum"> 4733 </span> : </a>
|
|
<a name="4734"><span class="lineNum"> 4734 </span> : /* Handle backslashes. Quote lots of things when not inside of</a>
|
|
<a name="4735"><span class="lineNum"> 4735 </span> : double-quotes, quote some things inside of double-quotes. */</a>
|
|
<a name="4736"><span class="lineNum"> 4736 </span><span class="lineCov"> 6256141612 : if MBTEST(character == '\\')</span></a>
|
|
<a name="4737"><span class="lineNum"> 4737 </span> : {</a>
|
|
<a name="4738"><span class="lineNum"> 4738 </span><span class="lineCov"> 1039319 : peek_char = shell_getc (0);</span></a>
|
|
<a name="4739"><span class="lineNum"> 4739 </span> : </a>
|
|
<a name="4740"><span class="lineNum"> 4740 </span> : /* Backslash-newline is ignored in all cases except</a>
|
|
<a name="4741"><span class="lineNum"> 4741 </span> : when quoted with single quotes. */</a>
|
|
<a name="4742"><span class="lineNum"> 4742 </span><span class="lineCov"> 1039319 : if (peek_char == '\n')</span></a>
|
|
<a name="4743"><span class="lineNum"> 4743 </span> : {</a>
|
|
<a name="4744"><span class="lineNum"> 4744 </span> : character = '\n';</a>
|
|
<a name="4745"><span class="lineNum"> 4745 </span> : goto next_character;</a>
|
|
<a name="4746"><span class="lineNum"> 4746 </span> : }</a>
|
|
<a name="4747"><span class="lineNum"> 4747 </span> : else</a>
|
|
<a name="4748"><span class="lineNum"> 4748 </span> : {</a>
|
|
<a name="4749"><span class="lineNum"> 4749 </span><span class="lineCov"> 1039319 : shell_ungetc (peek_char);</span></a>
|
|
<a name="4750"><span class="lineNum"> 4750 </span> : </a>
|
|
<a name="4751"><span class="lineNum"> 4751 </span> : /* If the next character is to be quoted, note it now. */</a>
|
|
<a name="4752"><span class="lineNum"> 4752 </span><span class="lineCov"> 1039319 : if (cd == 0 || cd == '`' ||</span></a>
|
|
<a name="4753"><span class="lineNum"> 4753 </span><span class="lineNoCov"> 0 : (cd == '"' && peek_char >= 0 && (sh_syntaxtab[peek_char] & CBSDQUOTE)))</span></a>
|
|
<a name="4754"><span class="lineNum"> 4754 </span><span class="lineCov"> 1039319 : pass_next_character++;</span></a>
|
|
<a name="4755"><span class="lineNum"> 4755 </span> : </a>
|
|
<a name="4756"><span class="lineNum"> 4756 </span><span class="lineCov"> 1039319 : quoted = 1;</span></a>
|
|
<a name="4757"><span class="lineNum"> 4757 </span><span class="lineCov"> 1039319 : goto got_character;</span></a>
|
|
<a name="4758"><span class="lineNum"> 4758 </span> : }</a>
|
|
<a name="4759"><span class="lineNum"> 4759 </span> : }</a>
|
|
<a name="4760"><span class="lineNum"> 4760 </span> : </a>
|
|
<a name="4761"><span class="lineNum"> 4761 </span> : /* Parse a matched pair of quote characters. */</a>
|
|
<a name="4762"><span class="lineNum"> 4762 </span><span class="lineCov"> 6255102293 : if MBTEST(shellquote (character))</span></a>
|
|
<a name="4763"><span class="lineNum"> 4763 </span> : {</a>
|
|
<a name="4764"><span class="lineNum"> 4764 </span><span class="lineCov"> 154536012 : push_delimiter (dstack, character);</span></a>
|
|
<a name="4765"><span class="lineNum"> 4765 </span><span class="lineCov"> 309029480 : ttok = parse_matched_pair (character, character, character, &ttoklen, (character == '`') ? P_COMMAND : 0);</span></a>
|
|
<a name="4766"><span class="lineNum"> 4766 </span><span class="lineCov"> 154536012 : pop_delimiter (dstack);</span></a>
|
|
<a name="4767"><span class="lineNum"> 4767 </span><span class="lineCov"> 154536012 : if (ttok == &matched_pair_error)</span></a>
|
|
<a name="4768"><span class="lineNum"> 4768 </span> : return -1; /* Bail immediately. */</a>
|
|
<a name="4769"><span class="lineNum"> 4769 </span><span class="lineCov"> 154353432 : RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,</span></a>
|
|
<a name="4770"><span class="lineNum"> 4770 </span> : token_buffer_size, TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="4771"><span class="lineNum"> 4771 </span><span class="lineCov"> 154350729 : token[token_index++] = character;</span></a>
|
|
<a name="4772"><span class="lineNum"> 4772 </span><span class="lineCov"> 154350729 : strcpy (token + token_index, ttok);</span></a>
|
|
<a name="4773"><span class="lineNum"> 4773 </span><span class="lineCov"> 154350729 : token_index += ttoklen;</span></a>
|
|
<a name="4774"><span class="lineNum"> 4774 </span><span class="lineCov"> 154350729 : all_digit_token = 0;</span></a>
|
|
<a name="4775"><span class="lineNum"> 4775 </span><span class="lineCov"> 154350729 : quoted = 1;</span></a>
|
|
<a name="4776"><span class="lineNum"> 4776 </span><span class="lineCov"> 154350729 : dollar_present |= (character == '"' && strchr (ttok, '$') != 0);</span></a>
|
|
<a name="4777"><span class="lineNum"> 4777 </span><span class="lineCov"> 154350729 : FREE (ttok);</span></a>
|
|
<a name="4778"><span class="lineNum"> 4778 </span><span class="lineCov"> 154350729 : goto next_character;</span></a>
|
|
<a name="4779"><span class="lineNum"> 4779 </span> : }</a>
|
|
<a name="4780"><span class="lineNum"> 4780 </span> : </a>
|
|
<a name="4781"><span class="lineNum"> 4781 </span> : #ifdef COND_REGEXP</a>
|
|
<a name="4782"><span class="lineNum"> 4782 </span> : /* When parsing a regexp as a single word inside a conditional command,</a>
|
|
<a name="4783"><span class="lineNum"> 4783 </span> : we need to special-case characters special to both the shell and</a>
|
|
<a name="4784"><span class="lineNum"> 4784 </span> : regular expressions. Right now, that is only '(' and '|'. */ /*)*/</a>
|
|
<a name="4785"><span class="lineNum"> 4785 </span><span class="lineCov"> 6100566281 : if MBTEST((parser_state & PST_REGEXP) && (character == '(' || character == '|')) /*)*/</span></a>
|
|
<a name="4786"><span class="lineNum"> 4786 </span> : {</a>
|
|
<a name="4787"><span class="lineNum"> 4787 </span><span class="lineNoCov"> 0 : if (character == '|')</span></a>
|
|
<a name="4788"><span class="lineNum"> 4788 </span> : goto got_character;</a>
|
|
<a name="4789"><span class="lineNum"> 4789 </span> : </a>
|
|
<a name="4790"><span class="lineNum"> 4790 </span><span class="lineNoCov"> 0 : push_delimiter (dstack, character);</span></a>
|
|
<a name="4791"><span class="lineNum"> 4791 </span><span class="lineNoCov"> 0 : ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);</span></a>
|
|
<a name="4792"><span class="lineNum"> 4792 </span><span class="lineNoCov"> 0 : pop_delimiter (dstack);</span></a>
|
|
<a name="4793"><span class="lineNum"> 4793 </span><span class="lineNoCov"> 0 : if (ttok == &matched_pair_error)</span></a>
|
|
<a name="4794"><span class="lineNum"> 4794 </span> : return -1; /* Bail immediately. */</a>
|
|
<a name="4795"><span class="lineNum"> 4795 </span><span class="lineNoCov"> 0 : RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,</span></a>
|
|
<a name="4796"><span class="lineNum"> 4796 </span> : token_buffer_size, TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="4797"><span class="lineNum"> 4797 </span><span class="lineNoCov"> 0 : token[token_index++] = character;</span></a>
|
|
<a name="4798"><span class="lineNum"> 4798 </span><span class="lineNoCov"> 0 : strcpy (token + token_index, ttok);</span></a>
|
|
<a name="4799"><span class="lineNum"> 4799 </span><span class="lineNoCov"> 0 : token_index += ttoklen;</span></a>
|
|
<a name="4800"><span class="lineNum"> 4800 </span><span class="lineNoCov"> 0 : FREE (ttok);</span></a>
|
|
<a name="4801"><span class="lineNum"> 4801 </span><span class="lineNoCov"> 0 : dollar_present = all_digit_token = 0;</span></a>
|
|
<a name="4802"><span class="lineNum"> 4802 </span><span class="lineNoCov"> 0 : goto next_character;</span></a>
|
|
<a name="4803"><span class="lineNum"> 4803 </span> : }</a>
|
|
<a name="4804"><span class="lineNum"> 4804 </span> : #endif /* COND_REGEXP */</a>
|
|
<a name="4805"><span class="lineNum"> 4805 </span> : </a>
|
|
<a name="4806"><span class="lineNum"> 4806 </span> : #ifdef EXTENDED_GLOB</a>
|
|
<a name="4807"><span class="lineNum"> 4807 </span> : /* Parse a ksh-style extended pattern matching specification. */</a>
|
|
<a name="4808"><span class="lineNum"> 4808 </span><span class="lineCov"> 6100566281 : if MBTEST(extended_glob && PATTERN_CHAR (character))</span></a>
|
|
<a name="4809"><span class="lineNum"> 4809 </span> : {</a>
|
|
<a name="4810"><span class="lineNum"> 4810 </span><span class="lineNoCov"> 0 : peek_char = shell_getc (1);</span></a>
|
|
<a name="4811"><span class="lineNum"> 4811 </span><span class="lineNoCov"> 0 : if MBTEST(peek_char == '(') /* ) */</span></a>
|
|
<a name="4812"><span class="lineNum"> 4812 </span> : {</a>
|
|
<a name="4813"><span class="lineNum"> 4813 </span><span class="lineNoCov"> 0 : push_delimiter (dstack, peek_char);</span></a>
|
|
<a name="4814"><span class="lineNum"> 4814 </span><span class="lineNoCov"> 0 : ttok = parse_matched_pair (cd, '(', ')', &ttoklen, 0);</span></a>
|
|
<a name="4815"><span class="lineNum"> 4815 </span><span class="lineNoCov"> 0 : pop_delimiter (dstack);</span></a>
|
|
<a name="4816"><span class="lineNum"> 4816 </span><span class="lineNoCov"> 0 : if (ttok == &matched_pair_error)</span></a>
|
|
<a name="4817"><span class="lineNum"> 4817 </span> : return -1; /* Bail immediately. */</a>
|
|
<a name="4818"><span class="lineNum"> 4818 </span><span class="lineNoCov"> 0 : RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 3,</span></a>
|
|
<a name="4819"><span class="lineNum"> 4819 </span> : token_buffer_size,</a>
|
|
<a name="4820"><span class="lineNum"> 4820 </span> : TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="4821"><span class="lineNum"> 4821 </span><span class="lineNoCov"> 0 : token[token_index++] = character;</span></a>
|
|
<a name="4822"><span class="lineNum"> 4822 </span><span class="lineNoCov"> 0 : token[token_index++] = peek_char;</span></a>
|
|
<a name="4823"><span class="lineNum"> 4823 </span><span class="lineNoCov"> 0 : strcpy (token + token_index, ttok);</span></a>
|
|
<a name="4824"><span class="lineNum"> 4824 </span><span class="lineNoCov"> 0 : token_index += ttoklen;</span></a>
|
|
<a name="4825"><span class="lineNum"> 4825 </span><span class="lineNoCov"> 0 : FREE (ttok);</span></a>
|
|
<a name="4826"><span class="lineNum"> 4826 </span><span class="lineNoCov"> 0 : dollar_present = all_digit_token = 0;</span></a>
|
|
<a name="4827"><span class="lineNum"> 4827 </span><span class="lineNoCov"> 0 : goto next_character;</span></a>
|
|
<a name="4828"><span class="lineNum"> 4828 </span> : }</a>
|
|
<a name="4829"><span class="lineNum"> 4829 </span> : else</a>
|
|
<a name="4830"><span class="lineNum"> 4830 </span><span class="lineNoCov"> 0 : shell_ungetc (peek_char);</span></a>
|
|
<a name="4831"><span class="lineNum"> 4831 </span> : }</a>
|
|
<a name="4832"><span class="lineNum"> 4832 </span> : #endif /* EXTENDED_GLOB */</a>
|
|
<a name="4833"><span class="lineNum"> 4833 </span> : </a>
|
|
<a name="4834"><span class="lineNum"> 4834 </span> : /* If the delimiter character is not single quote, parse some of</a>
|
|
<a name="4835"><span class="lineNum"> 4835 </span> : the shell expansions that must be read as a single word. */</a>
|
|
<a name="4836"><span class="lineNum"> 4836 </span><span class="lineCov"> 6100566281 : if (shellexp (character))</span></a>
|
|
<a name="4837"><span class="lineNum"> 4837 </span> : {</a>
|
|
<a name="4838"><span class="lineNum"> 4838 </span><span class="lineCov"> 34906015 : peek_char = shell_getc (1);</span></a>
|
|
<a name="4839"><span class="lineNum"> 4839 </span> : /* $(...), <(...), >(...), $((...)), ${...}, and $[...] constructs */</a>
|
|
<a name="4840"><span class="lineNum"> 4840 </span><span class="lineCov"> 34906015 : if MBTEST(peek_char == '(' ||</span></a>
|
|
<a name="4841"><span class="lineNum"> 4841 </span> : ((peek_char == '{' || peek_char == '[') && character == '$')) /* ) ] } */</a>
|
|
<a name="4842"><span class="lineNum"> 4842 </span> : {</a>
|
|
<a name="4843"><span class="lineNum"> 4843 </span><span class="lineCov"> 61899 : if (peek_char == '{') /* } */</span></a>
|
|
<a name="4844"><span class="lineNum"> 4844 </span><span class="lineCov"> 61175 : ttok = parse_matched_pair (cd, '{', '}', &ttoklen, P_FIRSTCLOSE|P_DOLBRACE);</span></a>
|
|
<a name="4845"><span class="lineNum"> 4845 </span><span class="lineCov"> 724 : else if (peek_char == '(') /* ) */</span></a>
|
|
<a name="4846"><span class="lineNum"> 4846 </span> : {</a>
|
|
<a name="4847"><span class="lineNum"> 4847 </span> : /* XXX - push and pop the `(' as a delimiter for use by</a>
|
|
<a name="4848"><span class="lineNum"> 4848 </span> : the command-oriented-history code. This way newlines</a>
|
|
<a name="4849"><span class="lineNum"> 4849 </span> : appearing in the $(...) string get added to the</a>
|
|
<a name="4850"><span class="lineNum"> 4850 </span> : history literally rather than causing a possibly-</a>
|
|
<a name="4851"><span class="lineNum"> 4851 </span> : incorrect `;' to be added. ) */</a>
|
|
<a name="4852"><span class="lineNum"> 4852 </span><span class="lineCov"> 450 : push_delimiter (dstack, peek_char);</span></a>
|
|
<a name="4853"><span class="lineNum"> 4853 </span><span class="lineCov"> 450 : ttok = parse_comsub (cd, '(', ')', &ttoklen, P_COMMAND);</span></a>
|
|
<a name="4854"><span class="lineNum"> 4854 </span><span class="lineCov"> 450 : pop_delimiter (dstack);</span></a>
|
|
<a name="4855"><span class="lineNum"> 4855 </span> : }</a>
|
|
<a name="4856"><span class="lineNum"> 4856 </span> : else</a>
|
|
<a name="4857"><span class="lineNum"> 4857 </span><span class="lineCov"> 274 : ttok = parse_matched_pair (cd, '[', ']', &ttoklen, 0);</span></a>
|
|
<a name="4858"><span class="lineNum"> 4858 </span><span class="lineCov"> 61899 : if (ttok == &matched_pair_error)</span></a>
|
|
<a name="4859"><span class="lineNum"> 4859 </span> : return -1; /* Bail immediately. */</a>
|
|
<a name="4860"><span class="lineNum"> 4860 </span><span class="lineCov"> 61316 : RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 3,</span></a>
|
|
<a name="4861"><span class="lineNum"> 4861 </span> : token_buffer_size,</a>
|
|
<a name="4862"><span class="lineNum"> 4862 </span> : TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="4863"><span class="lineNum"> 4863 </span><span class="lineCov"> 61121 : token[token_index++] = character;</span></a>
|
|
<a name="4864"><span class="lineNum"> 4864 </span><span class="lineCov"> 61121 : token[token_index++] = peek_char;</span></a>
|
|
<a name="4865"><span class="lineNum"> 4865 </span><span class="lineCov"> 61121 : strcpy (token + token_index, ttok);</span></a>
|
|
<a name="4866"><span class="lineNum"> 4866 </span><span class="lineCov"> 61121 : token_index += ttoklen;</span></a>
|
|
<a name="4867"><span class="lineNum"> 4867 </span><span class="lineCov"> 61121 : FREE (ttok);</span></a>
|
|
<a name="4868"><span class="lineNum"> 4868 </span><span class="lineCov"> 61121 : dollar_present = 1;</span></a>
|
|
<a name="4869"><span class="lineNum"> 4869 </span><span class="lineCov"> 61121 : all_digit_token = 0;</span></a>
|
|
<a name="4870"><span class="lineNum"> 4870 </span><span class="lineCov"> 61121 : goto next_character;</span></a>
|
|
<a name="4871"><span class="lineNum"> 4871 </span> : }</a>
|
|
<a name="4872"><span class="lineNum"> 4872 </span> : /* This handles $'...' and $"..." new-style quoted strings. */</a>
|
|
<a name="4873"><span class="lineNum"> 4873 </span><span class="lineCov"> 34844116 : else if MBTEST(character == '$' && (peek_char == '\'' || peek_char == '"'))</span></a>
|
|
<a name="4874"><span class="lineNum"> 4874 </span> : {</a>
|
|
<a name="4875"><span class="lineNum"> 4875 </span><span class="lineCov"> 414 : int first_line;</span></a>
|
|
<a name="4876"><span class="lineNum"> 4876 </span> : </a>
|
|
<a name="4877"><span class="lineNum"> 4877 </span><span class="lineCov"> 414 : first_line = line_number;</span></a>
|
|
<a name="4878"><span class="lineNum"> 4878 </span><span class="lineCov"> 414 : push_delimiter (dstack, peek_char);</span></a>
|
|
<a name="4879"><span class="lineNum"> 4879 </span><span class="lineCov"> 655 : ttok = parse_matched_pair (peek_char, peek_char, peek_char,</span></a>
|
|
<a name="4880"><span class="lineNum"> 4880 </span> : &ttoklen,</a>
|
|
<a name="4881"><span class="lineNum"> 4881 </span> : (peek_char == '\'') ? P_ALLOWESC : 0);</a>
|
|
<a name="4882"><span class="lineNum"> 4882 </span><span class="lineCov"> 414 : pop_delimiter (dstack);</span></a>
|
|
<a name="4883"><span class="lineNum"> 4883 </span><span class="lineCov"> 414 : if (ttok == &matched_pair_error)</span></a>
|
|
<a name="4884"><span class="lineNum"> 4884 </span> : return -1;</a>
|
|
<a name="4885"><span class="lineNum"> 4885 </span><span class="lineCov"> 308 : if (peek_char == '\'')</span></a>
|
|
<a name="4886"><span class="lineNum"> 4886 </span> : {</a>
|
|
<a name="4887"><span class="lineNum"> 4887 </span><span class="lineCov"> 106 : ttrans = ansiexpand (ttok, 0, ttoklen - 1, &ttranslen);</span></a>
|
|
<a name="4888"><span class="lineNum"> 4888 </span><span class="lineCov"> 106 : free (ttok);</span></a>
|
|
<a name="4889"><span class="lineNum"> 4889 </span> : </a>
|
|
<a name="4890"><span class="lineNum"> 4890 </span> : /* Insert the single quotes and correctly quote any</a>
|
|
<a name="4891"><span class="lineNum"> 4891 </span> : embedded single quotes (allowed because P_ALLOWESC was</a>
|
|
<a name="4892"><span class="lineNum"> 4892 </span> : passed to parse_matched_pair). */</a>
|
|
<a name="4893"><span class="lineNum"> 4893 </span><span class="lineCov"> 106 : ttok = sh_single_quote (ttrans);</span></a>
|
|
<a name="4894"><span class="lineNum"> 4894 </span><span class="lineCov"> 106 : free (ttrans);</span></a>
|
|
<a name="4895"><span class="lineNum"> 4895 </span><span class="lineCov"> 106 : ttranslen = strlen (ttok);</span></a>
|
|
<a name="4896"><span class="lineNum"> 4896 </span><span class="lineCov"> 106 : ttrans = ttok;</span></a>
|
|
<a name="4897"><span class="lineNum"> 4897 </span> : }</a>
|
|
<a name="4898"><span class="lineNum"> 4898 </span> : else</a>
|
|
<a name="4899"><span class="lineNum"> 4899 </span> : {</a>
|
|
<a name="4900"><span class="lineNum"> 4900 </span> : /* Try to locale-expand the converted string. */</a>
|
|
<a name="4901"><span class="lineNum"> 4901 </span><span class="lineCov"> 202 : ttrans = localeexpand (ttok, 0, ttoklen - 1, first_line, &ttranslen);</span></a>
|
|
<a name="4902"><span class="lineNum"> 4902 </span><span class="lineCov"> 202 : free (ttok);</span></a>
|
|
<a name="4903"><span class="lineNum"> 4903 </span> : </a>
|
|
<a name="4904"><span class="lineNum"> 4904 </span> : /* Add the double quotes back */</a>
|
|
<a name="4905"><span class="lineNum"> 4905 </span><span class="lineCov"> 202 : ttok = sh_mkdoublequoted (ttrans, ttranslen, 0);</span></a>
|
|
<a name="4906"><span class="lineNum"> 4906 </span><span class="lineCov"> 202 : free (ttrans);</span></a>
|
|
<a name="4907"><span class="lineNum"> 4907 </span><span class="lineCov"> 202 : ttranslen += 2;</span></a>
|
|
<a name="4908"><span class="lineNum"> 4908 </span><span class="lineCov"> 202 : ttrans = ttok;</span></a>
|
|
<a name="4909"><span class="lineNum"> 4909 </span> : }</a>
|
|
<a name="4910"><span class="lineNum"> 4910 </span> : </a>
|
|
<a name="4911"><span class="lineNum"> 4911 </span><span class="lineCov"> 308 : RESIZE_MALLOCED_BUFFER (token, token_index, ttranslen + 1,</span></a>
|
|
<a name="4912"><span class="lineNum"> 4912 </span> : token_buffer_size,</a>
|
|
<a name="4913"><span class="lineNum"> 4913 </span> : TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="4914"><span class="lineNum"> 4914 </span><span class="lineCov"> 308 : strcpy (token + token_index, ttrans);</span></a>
|
|
<a name="4915"><span class="lineNum"> 4915 </span><span class="lineCov"> 308 : token_index += ttranslen;</span></a>
|
|
<a name="4916"><span class="lineNum"> 4916 </span><span class="lineCov"> 308 : FREE (ttrans);</span></a>
|
|
<a name="4917"><span class="lineNum"> 4917 </span><span class="lineCov"> 308 : quoted = 1;</span></a>
|
|
<a name="4918"><span class="lineNum"> 4918 </span><span class="lineCov"> 308 : all_digit_token = 0;</span></a>
|
|
<a name="4919"><span class="lineNum"> 4919 </span><span class="lineCov"> 308 : goto next_character;</span></a>
|
|
<a name="4920"><span class="lineNum"> 4920 </span> : }</a>
|
|
<a name="4921"><span class="lineNum"> 4921 </span> : /* This could eventually be extended to recognize all of the</a>
|
|
<a name="4922"><span class="lineNum"> 4922 </span> : shell's single-character parameter expansions, and set flags.*/</a>
|
|
<a name="4923"><span class="lineNum"> 4923 </span><span class="lineCov"> 34843702 : else if MBTEST(character == '$' && peek_char == '$')</span></a>
|
|
<a name="4924"><span class="lineNum"> 4924 </span> : {</a>
|
|
<a name="4925"><span class="lineNum"> 4925 </span><span class="lineCov"> 3548 : RESIZE_MALLOCED_BUFFER (token, token_index, 3,</span></a>
|
|
<a name="4926"><span class="lineNum"> 4926 </span> : token_buffer_size,</a>
|
|
<a name="4927"><span class="lineNum"> 4927 </span> : TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="4928"><span class="lineNum"> 4928 </span><span class="lineCov"> 3548 : token[token_index++] = '$';</span></a>
|
|
<a name="4929"><span class="lineNum"> 4929 </span><span class="lineCov"> 3548 : token[token_index++] = peek_char;</span></a>
|
|
<a name="4930"><span class="lineNum"> 4930 </span><span class="lineCov"> 3548 : dollar_present = 1;</span></a>
|
|
<a name="4931"><span class="lineNum"> 4931 </span><span class="lineCov"> 3548 : all_digit_token = 0;</span></a>
|
|
<a name="4932"><span class="lineNum"> 4932 </span><span class="lineCov"> 3548 : goto next_character;</span></a>
|
|
<a name="4933"><span class="lineNum"> 4933 </span> : }</a>
|
|
<a name="4934"><span class="lineNum"> 4934 </span> : else</a>
|
|
<a name="4935"><span class="lineNum"> 4935 </span><span class="lineCov"> 34840154 : shell_ungetc (peek_char);</span></a>
|
|
<a name="4936"><span class="lineNum"> 4936 </span> : }</a>
|
|
<a name="4937"><span class="lineNum"> 4937 </span> : </a>
|
|
<a name="4938"><span class="lineNum"> 4938 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="4939"><span class="lineNum"> 4939 </span> : /* Identify possible array subscript assignment; match [...]. If</a>
|
|
<a name="4940"><span class="lineNum"> 4940 </span> : parser_state&PST_COMPASSIGN, we need to parse [sub]=words treating</a>
|
|
<a name="4941"><span class="lineNum"> 4941 </span> : `sub' as if it were enclosed in double quotes. */</a>
|
|
<a name="4942"><span class="lineNum"> 4942 </span><span class="lineCov"> 6065660266 : else if MBTEST(character == '[' && /* ] */</span></a>
|
|
<a name="4943"><span class="lineNum"> 4943 </span> : ((token_index > 0 && assignment_acceptable (last_read_token) && token_is_ident (token, token_index)) ||</a>
|
|
<a name="4944"><span class="lineNum"> 4944 </span> : (token_index == 0 && (parser_state&PST_COMPASSIGN))))</a>
|
|
<a name="4945"><span class="lineNum"> 4945 </span> : {</a>
|
|
<a name="4946"><span class="lineNum"> 4946 </span><span class="lineCov"> 25918 : ttok = parse_matched_pair (cd, '[', ']', &ttoklen, P_ARRAYSUB);</span></a>
|
|
<a name="4947"><span class="lineNum"> 4947 </span><span class="lineCov"> 25918 : if (ttok == &matched_pair_error)</span></a>
|
|
<a name="4948"><span class="lineNum"> 4948 </span> : return -1; /* Bail immediately. */</a>
|
|
<a name="4949"><span class="lineNum"> 4949 </span><span class="lineCov"> 22200 : RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 2,</span></a>
|
|
<a name="4950"><span class="lineNum"> 4950 </span> : token_buffer_size,</a>
|
|
<a name="4951"><span class="lineNum"> 4951 </span> : TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="4952"><span class="lineNum"> 4952 </span><span class="lineCov"> 22125 : token[token_index++] = character;</span></a>
|
|
<a name="4953"><span class="lineNum"> 4953 </span><span class="lineCov"> 22125 : strcpy (token + token_index, ttok);</span></a>
|
|
<a name="4954"><span class="lineNum"> 4954 </span><span class="lineCov"> 22125 : token_index += ttoklen;</span></a>
|
|
<a name="4955"><span class="lineNum"> 4955 </span><span class="lineCov"> 22125 : FREE (ttok);</span></a>
|
|
<a name="4956"><span class="lineNum"> 4956 </span><span class="lineCov"> 22125 : all_digit_token = 0;</span></a>
|
|
<a name="4957"><span class="lineNum"> 4957 </span><span class="lineCov"> 22125 : goto next_character;</span></a>
|
|
<a name="4958"><span class="lineNum"> 4958 </span> : }</a>
|
|
<a name="4959"><span class="lineNum"> 4959 </span> : /* Identify possible compound array variable assignment. */</a>
|
|
<a name="4960"><span class="lineNum"> 4960 </span><span class="lineCov"> 6065634348 : else if MBTEST(character == '=' && token_index > 0 && (assignment_acceptable (last_read_token) || (parser_state & PST_ASSIGNOK)) && token_is_assignment (token, token_index))</span></a>
|
|
<a name="4961"><span class="lineNum"> 4961 </span> : {</a>
|
|
<a name="4962"><span class="lineNum"> 4962 </span><span class="lineCov"> 56737444 : peek_char = shell_getc (1);</span></a>
|
|
<a name="4963"><span class="lineNum"> 4963 </span><span class="lineCov"> 56737444 : if MBTEST(peek_char == '(') /* ) */</span></a>
|
|
<a name="4964"><span class="lineNum"> 4964 </span> : {</a>
|
|
<a name="4965"><span class="lineNum"> 4965 </span><span class="lineCov"> 273 : ttok = parse_compound_assignment (&ttoklen);</span></a>
|
|
<a name="4966"><span class="lineNum"> 4966 </span> : </a>
|
|
<a name="4967"><span class="lineNum"> 4967 </span><span class="lineCov"> 67 : RESIZE_MALLOCED_BUFFER (token, token_index, ttoklen + 4,</span></a>
|
|
<a name="4968"><span class="lineNum"> 4968 </span> : token_buffer_size,</a>
|
|
<a name="4969"><span class="lineNum"> 4969 </span> : TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="4970"><span class="lineNum"> 4970 </span> : </a>
|
|
<a name="4971"><span class="lineNum"> 4971 </span><span class="lineCov"> 67 : token[token_index++] = '=';</span></a>
|
|
<a name="4972"><span class="lineNum"> 4972 </span><span class="lineCov"> 67 : token[token_index++] = '(';</span></a>
|
|
<a name="4973"><span class="lineNum"> 4973 </span><span class="lineCov"> 67 : if (ttok)</span></a>
|
|
<a name="4974"><span class="lineNum"> 4974 </span> : {</a>
|
|
<a name="4975"><span class="lineNum"> 4975 </span><span class="lineCov"> 18 : strcpy (token + token_index, ttok);</span></a>
|
|
<a name="4976"><span class="lineNum"> 4976 </span><span class="lineCov"> 18 : token_index += ttoklen;</span></a>
|
|
<a name="4977"><span class="lineNum"> 4977 </span> : }</a>
|
|
<a name="4978"><span class="lineNum"> 4978 </span><span class="lineCov"> 67 : token[token_index++] = ')';</span></a>
|
|
<a name="4979"><span class="lineNum"> 4979 </span><span class="lineCov"> 67 : FREE (ttok);</span></a>
|
|
<a name="4980"><span class="lineNum"> 4980 </span><span class="lineCov"> 67 : all_digit_token = 0;</span></a>
|
|
<a name="4981"><span class="lineNum"> 4981 </span><span class="lineCov"> 67 : compound_assignment = 1;</span></a>
|
|
<a name="4982"><span class="lineNum"> 4982 </span> : #if 1</a>
|
|
<a name="4983"><span class="lineNum"> 4983 </span><span class="lineCov"> 67 : goto next_character;</span></a>
|
|
<a name="4984"><span class="lineNum"> 4984 </span> : #else</a>
|
|
<a name="4985"><span class="lineNum"> 4985 </span> : goto got_token; /* ksh93 seems to do this */</a>
|
|
<a name="4986"><span class="lineNum"> 4986 </span> : #endif</a>
|
|
<a name="4987"><span class="lineNum"> 4987 </span> : }</a>
|
|
<a name="4988"><span class="lineNum"> 4988 </span> : else</a>
|
|
<a name="4989"><span class="lineNum"> 4989 </span><span class="lineCov"> 56737171 : shell_ungetc (peek_char);</span></a>
|
|
<a name="4990"><span class="lineNum"> 4990 </span> : }</a>
|
|
<a name="4991"><span class="lineNum"> 4991 </span> : #endif</a>
|
|
<a name="4992"><span class="lineNum"> 4992 </span> : </a>
|
|
<a name="4993"><span class="lineNum"> 4993 </span> : /* When not parsing a multi-character word construct, shell meta-</a>
|
|
<a name="4994"><span class="lineNum"> 4994 </span> : characters break words. */</a>
|
|
<a name="4995"><span class="lineNum"> 4995 </span><span class="lineCov"> 6100474229 : if MBTEST(shellbreak (character))</span></a>
|
|
<a name="4996"><span class="lineNum"> 4996 </span> : {</a>
|
|
<a name="4997"><span class="lineNum"> 4997 </span><span class="lineCov"> 1184450476 : shell_ungetc (character);</span></a>
|
|
<a name="4998"><span class="lineNum"> 4998 </span><span class="lineCov"> 1184450476 : goto got_token;</span></a>
|
|
<a name="4999"><span class="lineNum"> 4999 </span> : }</a>
|
|
<a name="5000"><span class="lineNum"> 5000 </span> : </a>
|
|
<a name="5001"><span class="lineNum"> 5001 </span><span class="lineCov"> 4916023753 : got_character:</span></a>
|
|
<a name="5002"><span class="lineNum"> 5002 </span><span class="lineCov"> 4917063072 : if (character == CTLESC || character == CTLNUL)</span></a>
|
|
<a name="5003"><span class="lineNum"> 5003 </span> : {</a>
|
|
<a name="5004"><span class="lineNum"> 5004 </span><span class="lineCov"> 4968500 : RESIZE_MALLOCED_BUFFER (token, token_index, 2, token_buffer_size,</span></a>
|
|
<a name="5005"><span class="lineNum"> 5005 </span> : TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="5006"><span class="lineNum"> 5006 </span><span class="lineCov"> 4968500 : token[token_index++] = CTLESC;</span></a>
|
|
<a name="5007"><span class="lineNum"> 5007 </span> : }</a>
|
|
<a name="5008"><span class="lineNum"> 5008 </span> : else</a>
|
|
<a name="5009"><span class="lineNum"> 5009 </span><span class="lineCov"> 4912094572 : got_escaped_character:</span></a>
|
|
<a name="5010"><span class="lineNum"> 5010 </span><span class="lineCov"> 4913134147 : RESIZE_MALLOCED_BUFFER (token, token_index, 1, token_buffer_size,</span></a>
|
|
<a name="5011"><span class="lineNum"> 5011 </span> : TOKEN_DEFAULT_GROW_SIZE);</a>
|
|
<a name="5012"><span class="lineNum"> 5012 </span> : </a>
|
|
<a name="5013"><span class="lineNum"> 5013 </span><span class="lineCov"> 4918102391 : token[token_index++] = character;</span></a>
|
|
<a name="5014"><span class="lineNum"> 5014 </span> : </a>
|
|
<a name="5015"><span class="lineNum"> 5015 </span><span class="lineCov"> 4918102391 : all_digit_token &= DIGIT (character);</span></a>
|
|
<a name="5016"><span class="lineNum"> 5016 </span><span class="lineCov"> 4918102391 : dollar_present |= character == '$';</span></a>
|
|
<a name="5017"><span class="lineNum"> 5017 </span> : </a>
|
|
<a name="5018"><span class="lineNum"> 5018 </span><span class="lineCov"> 5072540289 : next_character:</span></a>
|
|
<a name="5019"><span class="lineNum"> 5019 </span><span class="lineCov"> 5072540289 : if (character == '\n' && SHOULD_PROMPT ())</span></a>
|
|
<a name="5020"><span class="lineNum"> 5020 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="5021"><span class="lineNum"> 5021 </span> : </a>
|
|
<a name="5022"><span class="lineNum"> 5022 </span> : /* We want to remove quoted newlines (that is, a \<newline> pair)</a>
|
|
<a name="5023"><span class="lineNum"> 5023 </span> : unless we are within single quotes or pass_next_character is</a>
|
|
<a name="5024"><span class="lineNum"> 5024 </span> : set (the shell equivalent of literal-next). */</a>
|
|
<a name="5025"><span class="lineNum"> 5025 </span><span class="lineCov"> 5072540289 : cd = current_delimiter (dstack);</span></a>
|
|
<a name="5026"><span class="lineNum"> 5026 </span><span class="lineCov"> 5072540289 : character = shell_getc (cd != '\'' && pass_next_character == 0);</span></a>
|
|
<a name="5027"><span class="lineNum"> 5027 </span> : } /* end for (;;) */</a>
|
|
<a name="5028"><span class="lineNum"> 5028 </span> : </a>
|
|
<a name="5029"><span class="lineNum"> 5029 </span><span class="lineCov"> 1184450535 : got_token:</span></a>
|
|
<a name="5030"><span class="lineNum"> 5030 </span> : </a>
|
|
<a name="5031"><span class="lineNum"> 5031 </span> : /* Calls to RESIZE_MALLOCED_BUFFER ensure there is sufficient room. */</a>
|
|
<a name="5032"><span class="lineNum"> 5032 </span><span class="lineCov"> 1184450535 : token[token_index] = '\0';</span></a>
|
|
<a name="5033"><span class="lineNum"> 5033 </span> : </a>
|
|
<a name="5034"><span class="lineNum"> 5034 </span> : /* Check to see what thing we should return. If the last_read_token</a>
|
|
<a name="5035"><span class="lineNum"> 5035 </span> : is a `<', or a `&', or the character which ended this token is</a>
|
|
<a name="5036"><span class="lineNum"> 5036 </span> : a '>' or '<', then, and ONLY then, is this input token a NUMBER.</a>
|
|
<a name="5037"><span class="lineNum"> 5037 </span> : Otherwise, it is just a word, and should be returned as such. */</a>
|
|
<a name="5038"><span class="lineNum"> 5038 </span><span class="lineCov"> 1184450535 : if MBTEST(all_digit_token && (character == '<' || character == '>' ||</span></a>
|
|
<a name="5039"><span class="lineNum"> 5039 </span> : last_read_token == LESS_AND ||</a>
|
|
<a name="5040"><span class="lineNum"> 5040 </span> : last_read_token == GREATER_AND))</a>
|
|
<a name="5041"><span class="lineNum"> 5041 </span> : {</a>
|
|
<a name="5042"><span class="lineNum"> 5042 </span><span class="lineCov"> 5352505 : if (legal_number (token, &lvalue) && (int)lvalue == lvalue)</span></a>
|
|
<a name="5043"><span class="lineNum"> 5043 </span> : {</a>
|
|
<a name="5044"><span class="lineNum"> 5044 </span><span class="lineCov"> 5352505 : yylval.number = lvalue;</span></a>
|
|
<a name="5045"><span class="lineNum"> 5045 </span><span class="lineCov"> 5352505 : return (NUMBER);</span></a>
|
|
<a name="5046"><span class="lineNum"> 5046 </span> : }</a>
|
|
<a name="5047"><span class="lineNum"> 5047 </span> : }</a>
|
|
<a name="5048"><span class="lineNum"> 5048 </span> : </a>
|
|
<a name="5049"><span class="lineNum"> 5049 </span> : /* Check for special case tokens. */</a>
|
|
<a name="5050"><span class="lineNum"> 5050 </span><span class="lineCov"> 1179098030 : result = (last_shell_getc_is_singlebyte) ? special_case_tokens (token) : -1;</span></a>
|
|
<a name="5051"><span class="lineNum"> 5051 </span><span class="lineCov"> 1179036241 : if (result >= 0)</span></a>
|
|
<a name="5052"><span class="lineNum"> 5052 </span> : return result;</a>
|
|
<a name="5053"><span class="lineNum"> 5053 </span> : </a>
|
|
<a name="5054"><span class="lineNum"> 5054 </span> : #if defined (ALIAS)</a>
|
|
<a name="5055"><span class="lineNum"> 5055 </span> : /* Posix.2 does not allow reserved words to be aliased, so check for all</a>
|
|
<a name="5056"><span class="lineNum"> 5056 </span> : of them, including special cases, before expanding the current token</a>
|
|
<a name="5057"><span class="lineNum"> 5057 </span> : as an alias. */</a>
|
|
<a name="5058"><span class="lineNum"> 5058 </span><span class="lineCov"> 1116140575 : if MBTEST(posixly_correct)</span></a>
|
|
<a name="5059"><span class="lineNum"> 5059 </span><span class="lineNoCov"> 0 : CHECK_FOR_RESERVED_WORD (token);</span></a>
|
|
<a name="5060"><span class="lineNum"> 5060 </span> : </a>
|
|
<a name="5061"><span class="lineNum"> 5061 </span> : /* Aliases are expanded iff EXPAND_ALIASES is non-zero, and quoting</a>
|
|
<a name="5062"><span class="lineNum"> 5062 </span> : inhibits alias expansion. */</a>
|
|
<a name="5063"><span class="lineNum"> 5063 </span><span class="lineCov"> 1116140575 : if (expand_aliases && quoted == 0)</span></a>
|
|
<a name="5064"><span class="lineNum"> 5064 </span> : {</a>
|
|
<a name="5065"><span class="lineNum"> 5065 </span><span class="lineNoCov"> 0 : result = alias_expand_token (token);</span></a>
|
|
<a name="5066"><span class="lineNum"> 5066 </span><span class="lineNoCov"> 0 : if (result == RE_READ_TOKEN)</span></a>
|
|
<a name="5067"><span class="lineNum"> 5067 </span> : return (RE_READ_TOKEN);</a>
|
|
<a name="5068"><span class="lineNum"> 5068 </span><span class="lineNoCov"> 0 : else if (result == NO_EXPANSION)</span></a>
|
|
<a name="5069"><span class="lineNum"> 5069 </span><span class="lineNoCov"> 0 : parser_state &= ~PST_ALEXPNEXT;</span></a>
|
|
<a name="5070"><span class="lineNum"> 5070 </span> : }</a>
|
|
<a name="5071"><span class="lineNum"> 5071 </span> : </a>
|
|
<a name="5072"><span class="lineNum"> 5072 </span> : /* If not in Posix.2 mode, check for reserved words after alias</a>
|
|
<a name="5073"><span class="lineNum"> 5073 </span> : expansion. */</a>
|
|
<a name="5074"><span class="lineNum"> 5074 </span><span class="lineCov"> 1116140575 : if MBTEST(posixly_correct == 0)</span></a>
|
|
<a name="5075"><span class="lineNum"> 5075 </span> : #endif</a>
|
|
<a name="5076"><span class="lineNum"> 5076 </span><span class="lineCov"> 9198670516 : CHECK_FOR_RESERVED_WORD (token);</span></a>
|
|
<a name="5077"><span class="lineNum"> 5077 </span> : </a>
|
|
<a name="5078"><span class="lineNum"> 5078 </span><span class="lineCov"> 843160871 : the_word = alloc_word_desc ();</span></a>
|
|
<a name="5079"><span class="lineNum"> 5079 </span><span class="lineCov"> 843160871 : the_word->word = (char *)xmalloc (1 + token_index);</span></a>
|
|
<a name="5080"><span class="lineNum"> 5080 </span><span class="lineCov"> 843160871 : the_word->flags = 0;</span></a>
|
|
<a name="5081"><span class="lineNum"> 5081 </span><span class="lineCov"> 843160871 : strcpy (the_word->word, token);</span></a>
|
|
<a name="5082"><span class="lineNum"> 5082 </span><span class="lineCov"> 843160871 : if (dollar_present)</span></a>
|
|
<a name="5083"><span class="lineNum"> 5083 </span><span class="lineCov"> 146619489 : the_word->flags |= W_HASDOLLAR;</span></a>
|
|
<a name="5084"><span class="lineNum"> 5084 </span><span class="lineCov"> 843160871 : if (quoted)</span></a>
|
|
<a name="5085"><span class="lineNum"> 5085 </span><span class="lineCov"> 155163845 : the_word->flags |= W_QUOTED; /*(*/</span></a>
|
|
<a name="5086"><span class="lineNum"> 5086 </span><span class="lineCov"> 843160871 : if (compound_assignment && token[token_index-1] == ')')</span></a>
|
|
<a name="5087"><span class="lineNum"> 5087 </span><span class="lineCov"> 67 : the_word->flags |= W_COMPASSIGN;</span></a>
|
|
<a name="5088"><span class="lineNum"> 5088 </span> : /* A word is an assignment if it appears at the beginning of a</a>
|
|
<a name="5089"><span class="lineNum"> 5089 </span> : simple command, or after another assignment word. This is</a>
|
|
<a name="5090"><span class="lineNum"> 5090 </span> : context-dependent, so it cannot be handled in the grammar. */</a>
|
|
<a name="5091"><span class="lineNum"> 5091 </span><span class="lineCov"> 843160871 : if (assignment (token, (parser_state & PST_COMPASSIGN) != 0))</span></a>
|
|
<a name="5092"><span class="lineNum"> 5092 </span> : {</a>
|
|
<a name="5093"><span class="lineNum"> 5093 </span><span class="lineCov"> 56759731 : the_word->flags |= W_ASSIGNMENT;</span></a>
|
|
<a name="5094"><span class="lineNum"> 5094 </span> : /* Don't perform word splitting on assignment statements. */</a>
|
|
<a name="5095"><span class="lineNum"> 5095 </span><span class="lineCov"> 56759731 : if (assignment_acceptable (last_read_token) || (parser_state & PST_COMPASSIGN) != 0)</span></a>
|
|
<a name="5096"><span class="lineNum"> 5096 </span> : {</a>
|
|
<a name="5097"><span class="lineNum"> 5097 </span><span class="lineCov"> 56721458 : the_word->flags |= W_NOSPLIT;</span></a>
|
|
<a name="5098"><span class="lineNum"> 5098 </span><span class="lineCov"> 56721458 : if (parser_state & PST_COMPASSIGN)</span></a>
|
|
<a name="5099"><span class="lineNum"> 5099 </span><span class="lineCov"> 67 : the_word->flags |= W_NOGLOB; /* XXX - W_NOBRACE? */</span></a>
|
|
<a name="5100"><span class="lineNum"> 5100 </span> : }</a>
|
|
<a name="5101"><span class="lineNum"> 5101 </span> : }</a>
|
|
<a name="5102"><span class="lineNum"> 5102 </span> : </a>
|
|
<a name="5103"><span class="lineNum"> 5103 </span><span class="lineCov"> 843160871 : if (command_token_position (last_read_token))</span></a>
|
|
<a name="5104"><span class="lineNum"> 5104 </span> : {</a>
|
|
<a name="5105"><span class="lineNum"> 5105 </span><span class="lineCov"> 375656737 : struct builtin *b;</span></a>
|
|
<a name="5106"><span class="lineNum"> 5106 </span><span class="lineCov"> 375656737 : b = builtin_address_internal (token, 0);</span></a>
|
|
<a name="5107"><span class="lineNum"> 5107 </span><span class="lineCov"> 375656737 : if (b && (b->flags & ASSIGNMENT_BUILTIN))</span></a>
|
|
<a name="5108"><span class="lineNum"> 5108 </span><span class="lineCov"> 1779 : parser_state |= PST_ASSIGNOK;</span></a>
|
|
<a name="5109"><span class="lineNum"> 5109 </span><span class="lineCov"> 375654958 : else if (STREQ (token, "eval") || STREQ (token, "let"))</span></a>
|
|
<a name="5110"><span class="lineNum"> 5110 </span><span class="lineCov"> 363 : parser_state |= PST_ASSIGNOK;</span></a>
|
|
<a name="5111"><span class="lineNum"> 5111 </span> : }</a>
|
|
<a name="5112"><span class="lineNum"> 5112 </span> : </a>
|
|
<a name="5113"><span class="lineNum"> 5113 </span><span class="lineCov"> 843160871 : yylval.word = the_word;</span></a>
|
|
<a name="5114"><span class="lineNum"> 5114 </span> : </a>
|
|
<a name="5115"><span class="lineNum"> 5115 </span><span class="lineCov"> 843160871 : if (token[0] == '{' && token[token_index-1] == '}' &&</span></a>
|
|
<a name="5116"><span class="lineNum"> 5116 </span><span class="lineCov"> 87 : (character == '<' || character == '>'))</span></a>
|
|
<a name="5117"><span class="lineNum"> 5117 </span> : {</a>
|
|
<a name="5118"><span class="lineNum"> 5118 </span> : /* can use token; already copied to the_word */</a>
|
|
<a name="5119"><span class="lineNum"> 5119 </span><span class="lineNoCov"> 0 : token[token_index-1] = '\0';</span></a>
|
|
<a name="5120"><span class="lineNum"> 5120 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="5121"><span class="lineNum"> 5121 </span><span class="lineNoCov"> 0 : if (legal_identifier (token+1) || valid_array_reference (token+1, 0))</span></a>
|
|
<a name="5122"><span class="lineNum"> 5122 </span> : #else</a>
|
|
<a name="5123"><span class="lineNum"> 5123 </span> : if (legal_identifier (token+1))</a>
|
|
<a name="5124"><span class="lineNum"> 5124 </span> : #endif</a>
|
|
<a name="5125"><span class="lineNum"> 5125 </span> : {</a>
|
|
<a name="5126"><span class="lineNum"> 5126 </span><span class="lineNoCov"> 0 : strcpy (the_word->word, token+1);</span></a>
|
|
<a name="5127"><span class="lineNum"> 5127 </span> : /*itrace("read_token_word: returning REDIR_WORD for %s", the_word->word);*/</a>
|
|
<a name="5128"><span class="lineNum"> 5128 </span><span class="lineNoCov"> 0 : return (REDIR_WORD);</span></a>
|
|
<a name="5129"><span class="lineNum"> 5129 </span> : }</a>
|
|
<a name="5130"><span class="lineNum"> 5130 </span> : }</a>
|
|
<a name="5131"><span class="lineNum"> 5131 </span> : </a>
|
|
<a name="5132"><span class="lineNum"> 5132 </span><span class="lineCov"> 1686321742 : result = ((the_word->flags & (W_ASSIGNMENT|W_NOSPLIT)) == (W_ASSIGNMENT|W_NOSPLIT))</span></a>
|
|
<a name="5133"><span class="lineNum"> 5133 </span><span class="lineCov"> 843160871 : ? ASSIGNMENT_WORD : WORD;</span></a>
|
|
<a name="5134"><span class="lineNum"> 5134 </span> : </a>
|
|
<a name="5135"><span class="lineNum"> 5135 </span><span class="lineCov"> 843160871 : switch (last_read_token)</span></a>
|
|
<a name="5136"><span class="lineNum"> 5136 </span> : {</a>
|
|
<a name="5137"><span class="lineNum"> 5137 </span><span class="lineCov"> 248 : case FUNCTION:</span></a>
|
|
<a name="5138"><span class="lineNum"> 5138 </span><span class="lineCov"> 248 : parser_state |= PST_ALLOWOPNBRC;</span></a>
|
|
<a name="5139"><span class="lineNum"> 5139 </span><span class="lineCov"> 248 : function_dstart = line_number;</span></a>
|
|
<a name="5140"><span class="lineNum"> 5140 </span><span class="lineCov"> 248 : break;</span></a>
|
|
<a name="5141"><span class="lineNum"> 5141 </span><span class="lineCov"> 25265945 : case CASE:</span></a>
|
|
<a name="5142"><span class="lineNum"> 5142 </span> : case SELECT:</a>
|
|
<a name="5143"><span class="lineNum"> 5143 </span> : case FOR:</a>
|
|
<a name="5144"><span class="lineNum"> 5144 </span><span class="lineCov"> 25265945 : if (word_top < MAX_CASE_NEST)</span></a>
|
|
<a name="5145"><span class="lineNum"> 5145 </span><span class="lineCov"> 25265945 : word_top++;</span></a>
|
|
<a name="5146"><span class="lineNum"> 5146 </span><span class="lineCov"> 25265945 : word_lineno[word_top] = line_number;</span></a>
|
|
<a name="5147"><span class="lineNum"> 5147 </span><span class="lineCov"> 25265945 : break;</span></a>
|
|
<a name="5148"><span class="lineNum"> 5148 </span> : }</a>
|
|
<a name="5149"><span class="lineNum"> 5149 </span> : </a>
|
|
<a name="5150"><span class="lineNum"> 5150 </span> : return (result);</a>
|
|
<a name="5151"><span class="lineNum"> 5151 </span> : }</a>
|
|
<a name="5152"><span class="lineNum"> 5152 </span> : </a>
|
|
<a name="5153"><span class="lineNum"> 5153 </span> : /* Return 1 if TOKSYM is a token that after being read would allow</a>
|
|
<a name="5154"><span class="lineNum"> 5154 </span> : a reserved word to be seen, else 0. */</a>
|
|
<a name="5155"><span class="lineNum"> 5155 </span> : static int</a>
|
|
<a name="5156"><span class="lineNum"> 5156 </span><span class="lineCov"> 2050821792 : reserved_word_acceptable (toksym)</span></a>
|
|
<a name="5157"><span class="lineNum"> 5157 </span> : int toksym;</a>
|
|
<a name="5158"><span class="lineNum"> 5158 </span> : {</a>
|
|
<a name="5159"><span class="lineNum"> 5159 </span><span class="lineCov"> 2050821792 : switch (toksym)</span></a>
|
|
<a name="5160"><span class="lineNum"> 5160 </span> : {</a>
|
|
<a name="5161"><span class="lineNum"> 5161 </span> : case '\n':</a>
|
|
<a name="5162"><span class="lineNum"> 5162 </span> : case ';':</a>
|
|
<a name="5163"><span class="lineNum"> 5163 </span> : case '(':</a>
|
|
<a name="5164"><span class="lineNum"> 5164 </span> : case ')':</a>
|
|
<a name="5165"><span class="lineNum"> 5165 </span> : case '|':</a>
|
|
<a name="5166"><span class="lineNum"> 5166 </span> : case '&':</a>
|
|
<a name="5167"><span class="lineNum"> 5167 </span> : case '{':</a>
|
|
<a name="5168"><span class="lineNum"> 5168 </span> : case '}': /* XXX */</a>
|
|
<a name="5169"><span class="lineNum"> 5169 </span> : case AND_AND:</a>
|
|
<a name="5170"><span class="lineNum"> 5170 </span> : case BANG:</a>
|
|
<a name="5171"><span class="lineNum"> 5171 </span> : case BAR_AND:</a>
|
|
<a name="5172"><span class="lineNum"> 5172 </span> : case DO:</a>
|
|
<a name="5173"><span class="lineNum"> 5173 </span> : case DONE:</a>
|
|
<a name="5174"><span class="lineNum"> 5174 </span> : case ELIF:</a>
|
|
<a name="5175"><span class="lineNum"> 5175 </span> : case ELSE:</a>
|
|
<a name="5176"><span class="lineNum"> 5176 </span> : case ESAC:</a>
|
|
<a name="5177"><span class="lineNum"> 5177 </span> : case FI:</a>
|
|
<a name="5178"><span class="lineNum"> 5178 </span> : case IF:</a>
|
|
<a name="5179"><span class="lineNum"> 5179 </span> : case OR_OR:</a>
|
|
<a name="5180"><span class="lineNum"> 5180 </span> : case SEMI_SEMI:</a>
|
|
<a name="5181"><span class="lineNum"> 5181 </span> : case SEMI_AND:</a>
|
|
<a name="5182"><span class="lineNum"> 5182 </span> : case SEMI_SEMI_AND:</a>
|
|
<a name="5183"><span class="lineNum"> 5183 </span> : case THEN:</a>
|
|
<a name="5184"><span class="lineNum"> 5184 </span> : case TIME:</a>
|
|
<a name="5185"><span class="lineNum"> 5185 </span> : case TIMEOPT:</a>
|
|
<a name="5186"><span class="lineNum"> 5186 </span> : case TIMEIGN:</a>
|
|
<a name="5187"><span class="lineNum"> 5187 </span> : case COPROC:</a>
|
|
<a name="5188"><span class="lineNum"> 5188 </span> : case UNTIL:</a>
|
|
<a name="5189"><span class="lineNum"> 5189 </span> : case WHILE:</a>
|
|
<a name="5190"><span class="lineNum"> 5190 </span> : case 0:</a>
|
|
<a name="5191"><span class="lineNum"> 5191 </span> : return 1;</a>
|
|
<a name="5192"><span class="lineNum"> 5192 </span><span class="lineCov"> 864531023 : default:</span></a>
|
|
<a name="5193"><span class="lineNum"> 5193 </span> : #if defined (COPROCESS_SUPPORT)</a>
|
|
<a name="5194"><span class="lineNum"> 5194 </span><span class="lineCov"> 864531023 : if (last_read_token == WORD && token_before_that == COPROC)</span></a>
|
|
<a name="5195"><span class="lineNum"> 5195 </span> : return 1;</a>
|
|
<a name="5196"><span class="lineNum"> 5196 </span> : #endif</a>
|
|
<a name="5197"><span class="lineNum"> 5197 </span><span class="lineCov"> 864531023 : if (last_read_token == WORD && token_before_that == FUNCTION)</span></a>
|
|
<a name="5198"><span class="lineNum"> 5198 </span><span class="lineCov"> 198 : return 1;</span></a>
|
|
<a name="5199"><span class="lineNum"> 5199 </span> : return 0;</a>
|
|
<a name="5200"><span class="lineNum"> 5200 </span> : }</a>
|
|
<a name="5201"><span class="lineNum"> 5201 </span> : }</a>
|
|
<a name="5202"><span class="lineNum"> 5202 </span> : </a>
|
|
<a name="5203"><span class="lineNum"> 5203 </span> : /* Return the index of TOKEN in the alist of reserved words, or -1 if</a>
|
|
<a name="5204"><span class="lineNum"> 5204 </span> : TOKEN is not a shell reserved word. */</a>
|
|
<a name="5205"><span class="lineNum"> 5205 </span> : int</a>
|
|
<a name="5206"><span class="lineNum"> 5206 </span><span class="lineCov"> 54 : find_reserved_word (tokstr)</span></a>
|
|
<a name="5207"><span class="lineNum"> 5207 </span> : char *tokstr;</a>
|
|
<a name="5208"><span class="lineNum"> 5208 </span> : {</a>
|
|
<a name="5209"><span class="lineNum"> 5209 </span><span class="lineCov"> 54 : int i;</span></a>
|
|
<a name="5210"><span class="lineNum"> 5210 </span><span class="lineCov"> 1188 : for (i = 0; word_token_alist[i].word; i++)</span></a>
|
|
<a name="5211"><span class="lineNum"> 5211 </span><span class="lineCov"> 1134 : if (STREQ (tokstr, word_token_alist[i].word))</span></a>
|
|
<a name="5212"><span class="lineNum"> 5212 </span><span class="lineNoCov"> 0 : return i;</span></a>
|
|
<a name="5213"><span class="lineNum"> 5213 </span> : return -1;</a>
|
|
<a name="5214"><span class="lineNum"> 5214 </span> : }</a>
|
|
<a name="5215"><span class="lineNum"> 5215 </span> : </a>
|
|
<a name="5216"><span class="lineNum"> 5216 </span> : /* An interface to let the rest of the shell (primarily the completion</a>
|
|
<a name="5217"><span class="lineNum"> 5217 </span> : system) know what the parser is expecting. */</a>
|
|
<a name="5218"><span class="lineNum"> 5218 </span> : int</a>
|
|
<a name="5219"><span class="lineNum"> 5219 </span><span class="lineNoCov"> 0 : parser_in_command_position ()</span></a>
|
|
<a name="5220"><span class="lineNum"> 5220 </span> : {</a>
|
|
<a name="5221"><span class="lineNum"> 5221 </span><span class="lineNoCov"> 0 : return (command_token_position (last_read_token));</span></a>
|
|
<a name="5222"><span class="lineNum"> 5222 </span> : }</a>
|
|
<a name="5223"><span class="lineNum"> 5223 </span> : </a>
|
|
<a name="5224"><span class="lineNum"> 5224 </span> : #if 0</a>
|
|
<a name="5225"><span class="lineNum"> 5225 </span> : #if defined (READLINE)</a>
|
|
<a name="5226"><span class="lineNum"> 5226 </span> : /* Called after each time readline is called. This insures that whatever</a>
|
|
<a name="5227"><span class="lineNum"> 5227 </span> : the new prompt string is gets propagated to readline's local prompt</a>
|
|
<a name="5228"><span class="lineNum"> 5228 </span> : variable. */</a>
|
|
<a name="5229"><span class="lineNum"> 5229 </span> : static void</a>
|
|
<a name="5230"><span class="lineNum"> 5230 </span> : reset_readline_prompt ()</a>
|
|
<a name="5231"><span class="lineNum"> 5231 </span> : {</a>
|
|
<a name="5232"><span class="lineNum"> 5232 </span> : char *temp_prompt;</a>
|
|
<a name="5233"><span class="lineNum"> 5233 </span> : </a>
|
|
<a name="5234"><span class="lineNum"> 5234 </span> : if (prompt_string_pointer)</a>
|
|
<a name="5235"><span class="lineNum"> 5235 </span> : {</a>
|
|
<a name="5236"><span class="lineNum"> 5236 </span> : temp_prompt = (*prompt_string_pointer)</a>
|
|
<a name="5237"><span class="lineNum"> 5237 </span> : ? decode_prompt_string (*prompt_string_pointer)</a>
|
|
<a name="5238"><span class="lineNum"> 5238 </span> : : (char *)NULL;</a>
|
|
<a name="5239"><span class="lineNum"> 5239 </span> : </a>
|
|
<a name="5240"><span class="lineNum"> 5240 </span> : if (temp_prompt == 0)</a>
|
|
<a name="5241"><span class="lineNum"> 5241 </span> : {</a>
|
|
<a name="5242"><span class="lineNum"> 5242 </span> : temp_prompt = (char *)xmalloc (1);</a>
|
|
<a name="5243"><span class="lineNum"> 5243 </span> : temp_prompt[0] = '\0';</a>
|
|
<a name="5244"><span class="lineNum"> 5244 </span> : }</a>
|
|
<a name="5245"><span class="lineNum"> 5245 </span> : </a>
|
|
<a name="5246"><span class="lineNum"> 5246 </span> : FREE (current_readline_prompt);</a>
|
|
<a name="5247"><span class="lineNum"> 5247 </span> : current_readline_prompt = temp_prompt;</a>
|
|
<a name="5248"><span class="lineNum"> 5248 </span> : }</a>
|
|
<a name="5249"><span class="lineNum"> 5249 </span> : }</a>
|
|
<a name="5250"><span class="lineNum"> 5250 </span> : #endif /* READLINE */</a>
|
|
<a name="5251"><span class="lineNum"> 5251 </span> : #endif /* 0 */</a>
|
|
<a name="5252"><span class="lineNum"> 5252 </span> : </a>
|
|
<a name="5253"><span class="lineNum"> 5253 </span> : #if defined (HISTORY)</a>
|
|
<a name="5254"><span class="lineNum"> 5254 </span> : /* A list of tokens which can be followed by newlines, but not by</a>
|
|
<a name="5255"><span class="lineNum"> 5255 </span> : semi-colons. When concatenating multiple lines of history, the</a>
|
|
<a name="5256"><span class="lineNum"> 5256 </span> : newline separator for such tokens is replaced with a space. */</a>
|
|
<a name="5257"><span class="lineNum"> 5257 </span> : static const int no_semi_successors[] = {</a>
|
|
<a name="5258"><span class="lineNum"> 5258 </span> : '\n', '{', '(', ')', ';', '&', '|',</a>
|
|
<a name="5259"><span class="lineNum"> 5259 </span> : CASE, DO, ELSE, IF, SEMI_SEMI, SEMI_AND, SEMI_SEMI_AND, THEN, UNTIL,</a>
|
|
<a name="5260"><span class="lineNum"> 5260 </span> : WHILE, AND_AND, OR_OR, IN,</a>
|
|
<a name="5261"><span class="lineNum"> 5261 </span> : 0</a>
|
|
<a name="5262"><span class="lineNum"> 5262 </span> : };</a>
|
|
<a name="5263"><span class="lineNum"> 5263 </span> : </a>
|
|
<a name="5264"><span class="lineNum"> 5264 </span> : /* If we are not within a delimited expression, try to be smart</a>
|
|
<a name="5265"><span class="lineNum"> 5265 </span> : about which separators can be semi-colons and which must be</a>
|
|
<a name="5266"><span class="lineNum"> 5266 </span> : newlines. Returns the string that should be added into the</a>
|
|
<a name="5267"><span class="lineNum"> 5267 </span> : history entry. LINE is the line we're about to add; it helps</a>
|
|
<a name="5268"><span class="lineNum"> 5268 </span> : make some more intelligent decisions in certain cases. */</a>
|
|
<a name="5269"><span class="lineNum"> 5269 </span> : char *</a>
|
|
<a name="5270"><span class="lineNum"> 5270 </span> : history_delimiting_chars (line)</a>
|
|
<a name="5271"><span class="lineNum"> 5271 </span> : const char *line;</a>
|
|
<a name="5272"><span class="lineNum"> 5272 </span> : {</a>
|
|
<a name="5273"><span class="lineNum"> 5273 </span> : static int last_was_heredoc = 0; /* was the last entry the start of a here document? */</a>
|
|
<a name="5274"><span class="lineNum"> 5274 </span> : register int i;</a>
|
|
<a name="5275"><span class="lineNum"> 5275 </span> : </a>
|
|
<a name="5276"><span class="lineNum"> 5276 </span> : if ((parser_state & PST_HEREDOC) == 0)</a>
|
|
<a name="5277"><span class="lineNum"> 5277 </span> : last_was_heredoc = 0;</a>
|
|
<a name="5278"><span class="lineNum"> 5278 </span> : </a>
|
|
<a name="5279"><span class="lineNum"> 5279 </span> : if (dstack.delimiter_depth != 0)</a>
|
|
<a name="5280"><span class="lineNum"> 5280 </span> : return ("\n");</a>
|
|
<a name="5281"><span class="lineNum"> 5281 </span> : </a>
|
|
<a name="5282"><span class="lineNum"> 5282 </span> : /* We look for current_command_line_count == 2 because we are looking to</a>
|
|
<a name="5283"><span class="lineNum"> 5283 </span> : add the first line of the body of the here document (the second line</a>
|
|
<a name="5284"><span class="lineNum"> 5284 </span> : of the command). We also keep LAST_WAS_HEREDOC as a private sentinel</a>
|
|
<a name="5285"><span class="lineNum"> 5285 </span> : variable to note when we think we added the first line of a here doc</a>
|
|
<a name="5286"><span class="lineNum"> 5286 </span> : (the one with a "<<" somewhere in it) */</a>
|
|
<a name="5287"><span class="lineNum"> 5287 </span> : if (parser_state & PST_HEREDOC)</a>
|
|
<a name="5288"><span class="lineNum"> 5288 </span> : {</a>
|
|
<a name="5289"><span class="lineNum"> 5289 </span> : if (last_was_heredoc)</a>
|
|
<a name="5290"><span class="lineNum"> 5290 </span> : {</a>
|
|
<a name="5291"><span class="lineNum"> 5291 </span> : last_was_heredoc = 0;</a>
|
|
<a name="5292"><span class="lineNum"> 5292 </span> : return "\n";</a>
|
|
<a name="5293"><span class="lineNum"> 5293 </span> : }</a>
|
|
<a name="5294"><span class="lineNum"> 5294 </span> : return (here_doc_first_line ? "\n" : "");</a>
|
|
<a name="5295"><span class="lineNum"> 5295 </span> : }</a>
|
|
<a name="5296"><span class="lineNum"> 5296 </span> : </a>
|
|
<a name="5297"><span class="lineNum"> 5297 </span> : if (parser_state & PST_COMPASSIGN)</a>
|
|
<a name="5298"><span class="lineNum"> 5298 </span> : return (" ");</a>
|
|
<a name="5299"><span class="lineNum"> 5299 </span> : </a>
|
|
<a name="5300"><span class="lineNum"> 5300 </span> : /* First, handle some special cases. */</a>
|
|
<a name="5301"><span class="lineNum"> 5301 </span> : /*(*/</a>
|
|
<a name="5302"><span class="lineNum"> 5302 </span> : /* If we just read `()', assume it's a function definition, and don't</a>
|
|
<a name="5303"><span class="lineNum"> 5303 </span> : add a semicolon. If the token before the `)' was not `(', and we're</a>
|
|
<a name="5304"><span class="lineNum"> 5304 </span> : not in the midst of parsing a case statement, assume it's a</a>
|
|
<a name="5305"><span class="lineNum"> 5305 </span> : parenthesized command and add the semicolon. */</a>
|
|
<a name="5306"><span class="lineNum"> 5306 </span> : /*)(*/</a>
|
|
<a name="5307"><span class="lineNum"> 5307 </span> : if (token_before_that == ')')</a>
|
|
<a name="5308"><span class="lineNum"> 5308 </span> : {</a>
|
|
<a name="5309"><span class="lineNum"> 5309 </span> : if (two_tokens_ago == '(') /*)*/ /* function def */</a>
|
|
<a name="5310"><span class="lineNum"> 5310 </span> : return " ";</a>
|
|
<a name="5311"><span class="lineNum"> 5311 </span> : /* This does not work for subshells inside case statement</a>
|
|
<a name="5312"><span class="lineNum"> 5312 </span> : command lists. It's a suboptimal solution. */</a>
|
|
<a name="5313"><span class="lineNum"> 5313 </span> : else if (parser_state & PST_CASESTMT) /* case statement pattern */</a>
|
|
<a name="5314"><span class="lineNum"> 5314 </span> : return " ";</a>
|
|
<a name="5315"><span class="lineNum"> 5315 </span> : else</a>
|
|
<a name="5316"><span class="lineNum"> 5316 </span> : return "; "; /* (...) subshell */</a>
|
|
<a name="5317"><span class="lineNum"> 5317 </span> : }</a>
|
|
<a name="5318"><span class="lineNum"> 5318 </span> : else if (token_before_that == WORD && two_tokens_ago == FUNCTION)</a>
|
|
<a name="5319"><span class="lineNum"> 5319 </span> : return " "; /* function def using `function name' without `()' */</a>
|
|
<a name="5320"><span class="lineNum"> 5320 </span> : </a>
|
|
<a name="5321"><span class="lineNum"> 5321 </span> : /* If we're not in a here document, but we think we're about to parse one,</a>
|
|
<a name="5322"><span class="lineNum"> 5322 </span> : and we would otherwise return a `;', return a newline to delimit the</a>
|
|
<a name="5323"><span class="lineNum"> 5323 </span> : line with the here-doc delimiter */</a>
|
|
<a name="5324"><span class="lineNum"> 5324 </span> : else if ((parser_state & PST_HEREDOC) == 0 && current_command_line_count > 1 && last_read_token == '\n' && strstr (line, "<<"))</a>
|
|
<a name="5325"><span class="lineNum"> 5325 </span> : {</a>
|
|
<a name="5326"><span class="lineNum"> 5326 </span> : last_was_heredoc = 1;</a>
|
|
<a name="5327"><span class="lineNum"> 5327 </span> : return "\n";</a>
|
|
<a name="5328"><span class="lineNum"> 5328 </span> : }</a>
|
|
<a name="5329"><span class="lineNum"> 5329 </span> : else if ((parser_state & PST_HEREDOC) == 0 && current_command_line_count > 1 && need_here_doc > 0)</a>
|
|
<a name="5330"><span class="lineNum"> 5330 </span> : return "\n";</a>
|
|
<a name="5331"><span class="lineNum"> 5331 </span> : else if (token_before_that == WORD && two_tokens_ago == FOR)</a>
|
|
<a name="5332"><span class="lineNum"> 5332 </span> : {</a>
|
|
<a name="5333"><span class="lineNum"> 5333 </span> : /* Tricky. `for i\nin ...' should not have a semicolon, but</a>
|
|
<a name="5334"><span class="lineNum"> 5334 </span> : `for i\ndo ...' should. We do what we can. */</a>
|
|
<a name="5335"><span class="lineNum"> 5335 </span> : for (i = shell_input_line_index; whitespace (shell_input_line[i]); i++)</a>
|
|
<a name="5336"><span class="lineNum"> 5336 </span> : ;</a>
|
|
<a name="5337"><span class="lineNum"> 5337 </span> : if (shell_input_line[i] && shell_input_line[i] == 'i' && shell_input_line[i+1] == 'n')</a>
|
|
<a name="5338"><span class="lineNum"> 5338 </span> : return " ";</a>
|
|
<a name="5339"><span class="lineNum"> 5339 </span> : return ";";</a>
|
|
<a name="5340"><span class="lineNum"> 5340 </span> : }</a>
|
|
<a name="5341"><span class="lineNum"> 5341 </span> : else if (two_tokens_ago == CASE && token_before_that == WORD && (parser_state & PST_CASESTMT))</a>
|
|
<a name="5342"><span class="lineNum"> 5342 </span> : return " ";</a>
|
|
<a name="5343"><span class="lineNum"> 5343 </span> : </a>
|
|
<a name="5344"><span class="lineNum"> 5344 </span> : for (i = 0; no_semi_successors[i]; i++)</a>
|
|
<a name="5345"><span class="lineNum"> 5345 </span> : {</a>
|
|
<a name="5346"><span class="lineNum"> 5346 </span> : if (token_before_that == no_semi_successors[i])</a>
|
|
<a name="5347"><span class="lineNum"> 5347 </span> : return (" ");</a>
|
|
<a name="5348"><span class="lineNum"> 5348 </span> : }</a>
|
|
<a name="5349"><span class="lineNum"> 5349 </span> : </a>
|
|
<a name="5350"><span class="lineNum"> 5350 </span> : return ("; ");</a>
|
|
<a name="5351"><span class="lineNum"> 5351 </span> : }</a>
|
|
<a name="5352"><span class="lineNum"> 5352 </span> : #endif /* HISTORY */</a>
|
|
<a name="5353"><span class="lineNum"> 5353 </span> : </a>
|
|
<a name="5354"><span class="lineNum"> 5354 </span> : /* Issue a prompt, or prepare to issue a prompt when the next character</a>
|
|
<a name="5355"><span class="lineNum"> 5355 </span> : is read. */</a>
|
|
<a name="5356"><span class="lineNum"> 5356 </span> : static void</a>
|
|
<a name="5357"><span class="lineNum"> 5357 </span><span class="lineNoCov"> 0 : prompt_again ()</span></a>
|
|
<a name="5358"><span class="lineNum"> 5358 </span> : {</a>
|
|
<a name="5359"><span class="lineNum"> 5359 </span><span class="lineNoCov"> 0 : char *temp_prompt;</span></a>
|
|
<a name="5360"><span class="lineNum"> 5360 </span> : </a>
|
|
<a name="5361"><span class="lineNum"> 5361 </span><span class="lineNoCov"> 0 : if (interactive == 0 || expanding_alias ()) /* XXX */</span></a>
|
|
<a name="5362"><span class="lineNum"> 5362 </span> : return;</a>
|
|
<a name="5363"><span class="lineNum"> 5363 </span> : </a>
|
|
<a name="5364"><span class="lineNum"> 5364 </span><span class="lineNoCov"> 0 : ps1_prompt = get_string_value ("PS1");</span></a>
|
|
<a name="5365"><span class="lineNum"> 5365 </span><span class="lineNoCov"> 0 : ps2_prompt = get_string_value ("PS2");</span></a>
|
|
<a name="5366"><span class="lineNum"> 5366 </span> : </a>
|
|
<a name="5367"><span class="lineNum"> 5367 </span><span class="lineNoCov"> 0 : ps0_prompt = get_string_value ("PS0");</span></a>
|
|
<a name="5368"><span class="lineNum"> 5368 </span> : </a>
|
|
<a name="5369"><span class="lineNum"> 5369 </span><span class="lineNoCov"> 0 : if (!prompt_string_pointer)</span></a>
|
|
<a name="5370"><span class="lineNum"> 5370 </span><span class="lineNoCov"> 0 : prompt_string_pointer = &ps1_prompt;</span></a>
|
|
<a name="5371"><span class="lineNum"> 5371 </span> : </a>
|
|
<a name="5372"><span class="lineNum"> 5372 </span><span class="lineNoCov"> 0 : temp_prompt = *prompt_string_pointer</span></a>
|
|
<a name="5373"><span class="lineNum"> 5373 </span><span class="lineNoCov"> 0 : ? decode_prompt_string (*prompt_string_pointer)</span></a>
|
|
<a name="5374"><span class="lineNum"> 5374 </span><span class="lineNoCov"> 0 : : (char *)NULL;</span></a>
|
|
<a name="5375"><span class="lineNum"> 5375 </span> : </a>
|
|
<a name="5376"><span class="lineNum"> 5376 </span><span class="lineNoCov"> 0 : if (temp_prompt == 0)</span></a>
|
|
<a name="5377"><span class="lineNum"> 5377 </span> : {</a>
|
|
<a name="5378"><span class="lineNum"> 5378 </span><span class="lineNoCov"> 0 : temp_prompt = (char *)xmalloc (1);</span></a>
|
|
<a name="5379"><span class="lineNum"> 5379 </span><span class="lineNoCov"> 0 : temp_prompt[0] = '\0';</span></a>
|
|
<a name="5380"><span class="lineNum"> 5380 </span> : }</a>
|
|
<a name="5381"><span class="lineNum"> 5381 </span> : </a>
|
|
<a name="5382"><span class="lineNum"> 5382 </span><span class="lineNoCov"> 0 : current_prompt_string = *prompt_string_pointer;</span></a>
|
|
<a name="5383"><span class="lineNum"> 5383 </span><span class="lineNoCov"> 0 : prompt_string_pointer = &ps2_prompt;</span></a>
|
|
<a name="5384"><span class="lineNum"> 5384 </span> : </a>
|
|
<a name="5385"><span class="lineNum"> 5385 </span> : #if defined (READLINE)</a>
|
|
<a name="5386"><span class="lineNum"> 5386 </span> : if (!no_line_editing)</a>
|
|
<a name="5387"><span class="lineNum"> 5387 </span> : {</a>
|
|
<a name="5388"><span class="lineNum"> 5388 </span> : FREE (current_readline_prompt);</a>
|
|
<a name="5389"><span class="lineNum"> 5389 </span> : current_readline_prompt = temp_prompt;</a>
|
|
<a name="5390"><span class="lineNum"> 5390 </span> : }</a>
|
|
<a name="5391"><span class="lineNum"> 5391 </span> : else</a>
|
|
<a name="5392"><span class="lineNum"> 5392 </span> : #endif /* READLINE */</a>
|
|
<a name="5393"><span class="lineNum"> 5393 </span> : {</a>
|
|
<a name="5394"><span class="lineNum"> 5394 </span><span class="lineNoCov"> 0 : FREE (current_decoded_prompt);</span></a>
|
|
<a name="5395"><span class="lineNum"> 5395 </span><span class="lineNoCov"> 0 : current_decoded_prompt = temp_prompt;</span></a>
|
|
<a name="5396"><span class="lineNum"> 5396 </span> : }</a>
|
|
<a name="5397"><span class="lineNum"> 5397 </span> : }</a>
|
|
<a name="5398"><span class="lineNum"> 5398 </span> : </a>
|
|
<a name="5399"><span class="lineNum"> 5399 </span> : int</a>
|
|
<a name="5400"><span class="lineNum"> 5400 </span><span class="lineNoCov"> 0 : get_current_prompt_level ()</span></a>
|
|
<a name="5401"><span class="lineNum"> 5401 </span> : {</a>
|
|
<a name="5402"><span class="lineNum"> 5402 </span><span class="lineNoCov"> 0 : return ((current_prompt_string && current_prompt_string == ps2_prompt) ? 2 : 1);</span></a>
|
|
<a name="5403"><span class="lineNum"> 5403 </span> : }</a>
|
|
<a name="5404"><span class="lineNum"> 5404 </span> : </a>
|
|
<a name="5405"><span class="lineNum"> 5405 </span> : void</a>
|
|
<a name="5406"><span class="lineNum"> 5406 </span><span class="lineCov"> 188633223 : set_current_prompt_level (x)</span></a>
|
|
<a name="5407"><span class="lineNum"> 5407 </span> : int x;</a>
|
|
<a name="5408"><span class="lineNum"> 5408 </span> : {</a>
|
|
<a name="5409"><span class="lineNum"> 5409 </span><span class="lineCov"> 188633223 : prompt_string_pointer = (x == 2) ? &ps2_prompt : &ps1_prompt;</span></a>
|
|
<a name="5410"><span class="lineNum"> 5410 </span><span class="lineCov"> 188633223 : current_prompt_string = *prompt_string_pointer;</span></a>
|
|
<a name="5411"><span class="lineNum"> 5411 </span><span class="lineCov"> 188633223 : }</span></a>
|
|
<a name="5412"><span class="lineNum"> 5412 </span> : </a>
|
|
<a name="5413"><span class="lineNum"> 5413 </span> : static void</a>
|
|
<a name="5414"><span class="lineNum"> 5414 </span><span class="lineNoCov"> 0 : print_prompt ()</span></a>
|
|
<a name="5415"><span class="lineNum"> 5415 </span> : {</a>
|
|
<a name="5416"><span class="lineNum"> 5416 </span><span class="lineNoCov"> 0 : fprintf (stderr, "%s", current_decoded_prompt);</span></a>
|
|
<a name="5417"><span class="lineNum"> 5417 </span><span class="lineNoCov"> 0 : fflush (stderr);</span></a>
|
|
<a name="5418"><span class="lineNum"> 5418 </span><span class="lineNoCov"> 0 : }</span></a>
|
|
<a name="5419"><span class="lineNum"> 5419 </span> : </a>
|
|
<a name="5420"><span class="lineNum"> 5420 </span> : /* Return a string which will be printed as a prompt. The string</a>
|
|
<a name="5421"><span class="lineNum"> 5421 </span> : may contain special characters which are decoded as follows:</a>
|
|
<a name="5422"><span class="lineNum"> 5422 </span> : </a>
|
|
<a name="5423"><span class="lineNum"> 5423 </span> : \a bell (ascii 07)</a>
|
|
<a name="5424"><span class="lineNum"> 5424 </span> : \d the date in Day Mon Date format</a>
|
|
<a name="5425"><span class="lineNum"> 5425 </span> : \e escape (ascii 033)</a>
|
|
<a name="5426"><span class="lineNum"> 5426 </span> : \h the hostname up to the first `.'</a>
|
|
<a name="5427"><span class="lineNum"> 5427 </span> : \H the hostname</a>
|
|
<a name="5428"><span class="lineNum"> 5428 </span> : \j the number of active jobs</a>
|
|
<a name="5429"><span class="lineNum"> 5429 </span> : \l the basename of the shell's tty device name</a>
|
|
<a name="5430"><span class="lineNum"> 5430 </span> : \n CRLF</a>
|
|
<a name="5431"><span class="lineNum"> 5431 </span> : \r CR</a>
|
|
<a name="5432"><span class="lineNum"> 5432 </span> : \s the name of the shell</a>
|
|
<a name="5433"><span class="lineNum"> 5433 </span> : \t the time in 24-hour hh:mm:ss format</a>
|
|
<a name="5434"><span class="lineNum"> 5434 </span> : \T the time in 12-hour hh:mm:ss format</a>
|
|
<a name="5435"><span class="lineNum"> 5435 </span> : \@ the time in 12-hour hh:mm am/pm format</a>
|
|
<a name="5436"><span class="lineNum"> 5436 </span> : \A the time in 24-hour hh:mm format</a>
|
|
<a name="5437"><span class="lineNum"> 5437 </span> : \D{fmt} the result of passing FMT to strftime(3)</a>
|
|
<a name="5438"><span class="lineNum"> 5438 </span> : \u your username</a>
|
|
<a name="5439"><span class="lineNum"> 5439 </span> : \v the version of bash (e.g., 2.00)</a>
|
|
<a name="5440"><span class="lineNum"> 5440 </span> : \V the release of bash, version + patchlevel (e.g., 2.00.0)</a>
|
|
<a name="5441"><span class="lineNum"> 5441 </span> : \w the current working directory</a>
|
|
<a name="5442"><span class="lineNum"> 5442 </span> : \W the last element of $PWD</a>
|
|
<a name="5443"><span class="lineNum"> 5443 </span> : \! the history number of this command</a>
|
|
<a name="5444"><span class="lineNum"> 5444 </span> : \# the command number of this command</a>
|
|
<a name="5445"><span class="lineNum"> 5445 </span> : \$ a $ or a # if you are root</a>
|
|
<a name="5446"><span class="lineNum"> 5446 </span> : \nnn character code nnn in octal</a>
|
|
<a name="5447"><span class="lineNum"> 5447 </span> : \\ a backslash</a>
|
|
<a name="5448"><span class="lineNum"> 5448 </span> : \[ begin a sequence of non-printing chars</a>
|
|
<a name="5449"><span class="lineNum"> 5449 </span> : \] end a sequence of non-printing chars</a>
|
|
<a name="5450"><span class="lineNum"> 5450 </span> : */</a>
|
|
<a name="5451"><span class="lineNum"> 5451 </span> : #define PROMPT_GROWTH 48</a>
|
|
<a name="5452"><span class="lineNum"> 5452 </span> : char *</a>
|
|
<a name="5453"><span class="lineNum"> 5453 </span><span class="lineNoCov"> 0 : decode_prompt_string (string)</span></a>
|
|
<a name="5454"><span class="lineNum"> 5454 </span> : char *string;</a>
|
|
<a name="5455"><span class="lineNum"> 5455 </span> : {</a>
|
|
<a name="5456"><span class="lineNum"> 5456 </span><span class="lineNoCov"> 0 : WORD_LIST *list;</span></a>
|
|
<a name="5457"><span class="lineNum"> 5457 </span><span class="lineNoCov"> 0 : char *result, *t;</span></a>
|
|
<a name="5458"><span class="lineNum"> 5458 </span><span class="lineNoCov"> 0 : struct dstack save_dstack;</span></a>
|
|
<a name="5459"><span class="lineNum"> 5459 </span><span class="lineNoCov"> 0 : int last_exit_value, last_comsub_pid;</span></a>
|
|
<a name="5460"><span class="lineNum"> 5460 </span> : #if defined (PROMPT_STRING_DECODE)</a>
|
|
<a name="5461"><span class="lineNum"> 5461 </span><span class="lineNoCov"> 0 : size_t result_size;</span></a>
|
|
<a name="5462"><span class="lineNum"> 5462 </span><span class="lineNoCov"> 0 : int result_index;</span></a>
|
|
<a name="5463"><span class="lineNum"> 5463 </span><span class="lineNoCov"> 0 : int c, n;</span></a>
|
|
<a name="5464"><span class="lineNum"> 5464 </span> : #if defined (READLINE)</a>
|
|
<a name="5465"><span class="lineNum"> 5465 </span> : int i;</a>
|
|
<a name="5466"><span class="lineNum"> 5466 </span> : #endif</a>
|
|
<a name="5467"><span class="lineNum"> 5467 </span><span class="lineNoCov"> 0 : char *temp, *t_host, octal_string[4];</span></a>
|
|
<a name="5468"><span class="lineNum"> 5468 </span><span class="lineNoCov"> 0 : struct tm *tm; </span></a>
|
|
<a name="5469"><span class="lineNum"> 5469 </span><span class="lineNoCov"> 0 : time_t the_time;</span></a>
|
|
<a name="5470"><span class="lineNum"> 5470 </span><span class="lineNoCov"> 0 : char timebuf[128];</span></a>
|
|
<a name="5471"><span class="lineNum"> 5471 </span><span class="lineNoCov"> 0 : char *timefmt;</span></a>
|
|
<a name="5472"><span class="lineNum"> 5472 </span> : </a>
|
|
<a name="5473"><span class="lineNum"> 5473 </span><span class="lineNoCov"> 0 : result = (char *)xmalloc (result_size = PROMPT_GROWTH);</span></a>
|
|
<a name="5474"><span class="lineNum"> 5474 </span><span class="lineNoCov"> 0 : result[result_index = 0] = 0;</span></a>
|
|
<a name="5475"><span class="lineNum"> 5475 </span><span class="lineNoCov"> 0 : temp = (char *)NULL;</span></a>
|
|
<a name="5476"><span class="lineNum"> 5476 </span> : </a>
|
|
<a name="5477"><span class="lineNum"> 5477 </span><span class="lineNoCov"> 0 : while (c = *string++)</span></a>
|
|
<a name="5478"><span class="lineNum"> 5478 </span> : {</a>
|
|
<a name="5479"><span class="lineNum"> 5479 </span><span class="lineNoCov"> 0 : if (posixly_correct && c == '!')</span></a>
|
|
<a name="5480"><span class="lineNum"> 5480 </span> : {</a>
|
|
<a name="5481"><span class="lineNum"> 5481 </span><span class="lineNoCov"> 0 : if (*string == '!')</span></a>
|
|
<a name="5482"><span class="lineNum"> 5482 </span> : {</a>
|
|
<a name="5483"><span class="lineNum"> 5483 </span><span class="lineNoCov"> 0 : temp = savestring ("!");</span></a>
|
|
<a name="5484"><span class="lineNum"> 5484 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5485"><span class="lineNum"> 5485 </span> : }</a>
|
|
<a name="5486"><span class="lineNum"> 5486 </span> : else</a>
|
|
<a name="5487"><span class="lineNum"> 5487 </span> : {</a>
|
|
<a name="5488"><span class="lineNum"> 5488 </span> : #if !defined (HISTORY)</a>
|
|
<a name="5489"><span class="lineNum"> 5489 </span><span class="lineNoCov"> 0 : temp = savestring ("1");</span></a>
|
|
<a name="5490"><span class="lineNum"> 5490 </span> : #else /* HISTORY */</a>
|
|
<a name="5491"><span class="lineNum"> 5491 </span> : temp = itos (history_number ());</a>
|
|
<a name="5492"><span class="lineNum"> 5492 </span> : #endif /* HISTORY */</a>
|
|
<a name="5493"><span class="lineNum"> 5493 </span><span class="lineNoCov"> 0 : string--; /* add_string increments string again. */</span></a>
|
|
<a name="5494"><span class="lineNum"> 5494 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5495"><span class="lineNum"> 5495 </span> : }</a>
|
|
<a name="5496"><span class="lineNum"> 5496 </span> : }</a>
|
|
<a name="5497"><span class="lineNum"> 5497 </span><span class="lineNoCov"> 0 : if (c == '\\')</span></a>
|
|
<a name="5498"><span class="lineNum"> 5498 </span> : {</a>
|
|
<a name="5499"><span class="lineNum"> 5499 </span><span class="lineNoCov"> 0 : c = *string;</span></a>
|
|
<a name="5500"><span class="lineNum"> 5500 </span> : </a>
|
|
<a name="5501"><span class="lineNum"> 5501 </span><span class="lineNoCov"> 0 : switch (c)</span></a>
|
|
<a name="5502"><span class="lineNum"> 5502 </span> : {</a>
|
|
<a name="5503"><span class="lineNum"> 5503 </span> : case '0':</a>
|
|
<a name="5504"><span class="lineNum"> 5504 </span> : case '1':</a>
|
|
<a name="5505"><span class="lineNum"> 5505 </span> : case '2':</a>
|
|
<a name="5506"><span class="lineNum"> 5506 </span> : case '3':</a>
|
|
<a name="5507"><span class="lineNum"> 5507 </span> : case '4':</a>
|
|
<a name="5508"><span class="lineNum"> 5508 </span> : case '5':</a>
|
|
<a name="5509"><span class="lineNum"> 5509 </span> : case '6':</a>
|
|
<a name="5510"><span class="lineNum"> 5510 </span> : case '7':</a>
|
|
<a name="5511"><span class="lineNum"> 5511 </span><span class="lineNoCov"> 0 : strncpy (octal_string, string, 3);</span></a>
|
|
<a name="5512"><span class="lineNum"> 5512 </span><span class="lineNoCov"> 0 : octal_string[3] = '\0';</span></a>
|
|
<a name="5513"><span class="lineNum"> 5513 </span> : </a>
|
|
<a name="5514"><span class="lineNum"> 5514 </span><span class="lineNoCov"> 0 : n = read_octal (octal_string);</span></a>
|
|
<a name="5515"><span class="lineNum"> 5515 </span><span class="lineNoCov"> 0 : temp = (char *)xmalloc (3);</span></a>
|
|
<a name="5516"><span class="lineNum"> 5516 </span> : </a>
|
|
<a name="5517"><span class="lineNum"> 5517 </span><span class="lineNoCov"> 0 : if (n == CTLESC || n == CTLNUL)</span></a>
|
|
<a name="5518"><span class="lineNum"> 5518 </span> : {</a>
|
|
<a name="5519"><span class="lineNum"> 5519 </span><span class="lineNoCov"> 0 : temp[0] = CTLESC;</span></a>
|
|
<a name="5520"><span class="lineNum"> 5520 </span><span class="lineNoCov"> 0 : temp[1] = n;</span></a>
|
|
<a name="5521"><span class="lineNum"> 5521 </span><span class="lineNoCov"> 0 : temp[2] = '\0';</span></a>
|
|
<a name="5522"><span class="lineNum"> 5522 </span> : }</a>
|
|
<a name="5523"><span class="lineNum"> 5523 </span><span class="lineNoCov"> 0 : else if (n == -1)</span></a>
|
|
<a name="5524"><span class="lineNum"> 5524 </span> : {</a>
|
|
<a name="5525"><span class="lineNum"> 5525 </span><span class="lineNoCov"> 0 : temp[0] = '\\';</span></a>
|
|
<a name="5526"><span class="lineNum"> 5526 </span><span class="lineNoCov"> 0 : temp[1] = '\0';</span></a>
|
|
<a name="5527"><span class="lineNum"> 5527 </span> : }</a>
|
|
<a name="5528"><span class="lineNum"> 5528 </span> : else</a>
|
|
<a name="5529"><span class="lineNum"> 5529 </span> : {</a>
|
|
<a name="5530"><span class="lineNum"> 5530 </span><span class="lineNoCov"> 0 : temp[0] = n;</span></a>
|
|
<a name="5531"><span class="lineNum"> 5531 </span><span class="lineNoCov"> 0 : temp[1] = '\0';</span></a>
|
|
<a name="5532"><span class="lineNum"> 5532 </span> : }</a>
|
|
<a name="5533"><span class="lineNum"> 5533 </span> : </a>
|
|
<a name="5534"><span class="lineNum"> 5534 </span><span class="lineNoCov"> 0 : for (c = 0; n != -1 && c < 3 && ISOCTAL (*string); c++)</span></a>
|
|
<a name="5535"><span class="lineNum"> 5535 </span><span class="lineNoCov"> 0 : string++;</span></a>
|
|
<a name="5536"><span class="lineNum"> 5536 </span> : </a>
|
|
<a name="5537"><span class="lineNum"> 5537 </span><span class="lineNoCov"> 0 : c = 0; /* tested at add_string: */</span></a>
|
|
<a name="5538"><span class="lineNum"> 5538 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5539"><span class="lineNum"> 5539 </span> : </a>
|
|
<a name="5540"><span class="lineNum"> 5540 </span><span class="lineNoCov"> 0 : case 'd':</span></a>
|
|
<a name="5541"><span class="lineNum"> 5541 </span> : case 't':</a>
|
|
<a name="5542"><span class="lineNum"> 5542 </span> : case 'T':</a>
|
|
<a name="5543"><span class="lineNum"> 5543 </span> : case '@':</a>
|
|
<a name="5544"><span class="lineNum"> 5544 </span> : case 'A':</a>
|
|
<a name="5545"><span class="lineNum"> 5545 </span> : /* Make the current time/date into a string. */</a>
|
|
<a name="5546"><span class="lineNum"> 5546 </span><span class="lineNoCov"> 0 : (void) time (&the_time);</span></a>
|
|
<a name="5547"><span class="lineNum"> 5547 </span> : #if defined (HAVE_TZSET)</a>
|
|
<a name="5548"><span class="lineNum"> 5548 </span><span class="lineNoCov"> 0 : sv_tz ("TZ"); /* XXX -- just make sure */</span></a>
|
|
<a name="5549"><span class="lineNum"> 5549 </span> : #endif</a>
|
|
<a name="5550"><span class="lineNum"> 5550 </span><span class="lineNoCov"> 0 : tm = localtime (&the_time);</span></a>
|
|
<a name="5551"><span class="lineNum"> 5551 </span> : </a>
|
|
<a name="5552"><span class="lineNum"> 5552 </span><span class="lineNoCov"> 0 : if (c == 'd')</span></a>
|
|
<a name="5553"><span class="lineNum"> 5553 </span><span class="lineNoCov"> 0 : n = strftime (timebuf, sizeof (timebuf), "%a %b %d", tm);</span></a>
|
|
<a name="5554"><span class="lineNum"> 5554 </span><span class="lineNoCov"> 0 : else if (c == 't')</span></a>
|
|
<a name="5555"><span class="lineNum"> 5555 </span><span class="lineNoCov"> 0 : n = strftime (timebuf, sizeof (timebuf), "%H:%M:%S", tm);</span></a>
|
|
<a name="5556"><span class="lineNum"> 5556 </span><span class="lineNoCov"> 0 : else if (c == 'T')</span></a>
|
|
<a name="5557"><span class="lineNum"> 5557 </span><span class="lineNoCov"> 0 : n = strftime (timebuf, sizeof (timebuf), "%I:%M:%S", tm);</span></a>
|
|
<a name="5558"><span class="lineNum"> 5558 </span><span class="lineNoCov"> 0 : else if (c == '@')</span></a>
|
|
<a name="5559"><span class="lineNum"> 5559 </span><span class="lineNoCov"> 0 : n = strftime (timebuf, sizeof (timebuf), "%I:%M %p", tm);</span></a>
|
|
<a name="5560"><span class="lineNum"> 5560 </span><span class="lineNoCov"> 0 : else if (c == 'A')</span></a>
|
|
<a name="5561"><span class="lineNum"> 5561 </span><span class="lineNoCov"> 0 : n = strftime (timebuf, sizeof (timebuf), "%H:%M", tm);</span></a>
|
|
<a name="5562"><span class="lineNum"> 5562 </span> : else</a>
|
|
<a name="5563"><span class="lineNum"> 5563 </span> : n = 0;</a>
|
|
<a name="5564"><span class="lineNum"> 5564 </span> : </a>
|
|
<a name="5565"><span class="lineNum"> 5565 </span><span class="lineNoCov"> 0 : if (n == 0)</span></a>
|
|
<a name="5566"><span class="lineNum"> 5566 </span><span class="lineNoCov"> 0 : timebuf[0] = '\0';</span></a>
|
|
<a name="5567"><span class="lineNum"> 5567 </span> : else</a>
|
|
<a name="5568"><span class="lineNum"> 5568 </span><span class="lineNoCov"> 0 : timebuf[sizeof(timebuf) - 1] = '\0';</span></a>
|
|
<a name="5569"><span class="lineNum"> 5569 </span> : </a>
|
|
<a name="5570"><span class="lineNum"> 5570 </span><span class="lineNoCov"> 0 : temp = savestring (timebuf);</span></a>
|
|
<a name="5571"><span class="lineNum"> 5571 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5572"><span class="lineNum"> 5572 </span> : </a>
|
|
<a name="5573"><span class="lineNum"> 5573 </span><span class="lineNoCov"> 0 : case 'D': /* strftime format */</span></a>
|
|
<a name="5574"><span class="lineNum"> 5574 </span><span class="lineNoCov"> 0 : if (string[1] != '{') /* } */</span></a>
|
|
<a name="5575"><span class="lineNum"> 5575 </span> : goto not_escape;</a>
|
|
<a name="5576"><span class="lineNum"> 5576 </span> : </a>
|
|
<a name="5577"><span class="lineNum"> 5577 </span><span class="lineNoCov"> 0 : (void) time (&the_time);</span></a>
|
|
<a name="5578"><span class="lineNum"> 5578 </span><span class="lineNoCov"> 0 : tm = localtime (&the_time);</span></a>
|
|
<a name="5579"><span class="lineNum"> 5579 </span><span class="lineNoCov"> 0 : string += 2; /* skip { */</span></a>
|
|
<a name="5580"><span class="lineNum"> 5580 </span><span class="lineNoCov"> 0 : timefmt = xmalloc (strlen (string) + 3);</span></a>
|
|
<a name="5581"><span class="lineNum"> 5581 </span><span class="lineNoCov"> 0 : for (t = timefmt; *string && *string != '}'; )</span></a>
|
|
<a name="5582"><span class="lineNum"> 5582 </span><span class="lineNoCov"> 0 : *t++ = *string++;</span></a>
|
|
<a name="5583"><span class="lineNum"> 5583 </span><span class="lineNoCov"> 0 : *t = '\0';</span></a>
|
|
<a name="5584"><span class="lineNum"> 5584 </span><span class="lineNoCov"> 0 : c = *string; /* tested at add_string */</span></a>
|
|
<a name="5585"><span class="lineNum"> 5585 </span><span class="lineNoCov"> 0 : if (timefmt[0] == '\0')</span></a>
|
|
<a name="5586"><span class="lineNum"> 5586 </span> : {</a>
|
|
<a name="5587"><span class="lineNum"> 5587 </span><span class="lineNoCov"> 0 : timefmt[0] = '%';</span></a>
|
|
<a name="5588"><span class="lineNum"> 5588 </span><span class="lineNoCov"> 0 : timefmt[1] = 'X'; /* locale-specific current time */</span></a>
|
|
<a name="5589"><span class="lineNum"> 5589 </span><span class="lineNoCov"> 0 : timefmt[2] = '\0';</span></a>
|
|
<a name="5590"><span class="lineNum"> 5590 </span> : }</a>
|
|
<a name="5591"><span class="lineNum"> 5591 </span><span class="lineNoCov"> 0 : n = strftime (timebuf, sizeof (timebuf), timefmt, tm);</span></a>
|
|
<a name="5592"><span class="lineNum"> 5592 </span><span class="lineNoCov"> 0 : free (timefmt);</span></a>
|
|
<a name="5593"><span class="lineNum"> 5593 </span> : </a>
|
|
<a name="5594"><span class="lineNum"> 5594 </span><span class="lineNoCov"> 0 : if (n == 0)</span></a>
|
|
<a name="5595"><span class="lineNum"> 5595 </span><span class="lineNoCov"> 0 : timebuf[0] = '\0';</span></a>
|
|
<a name="5596"><span class="lineNum"> 5596 </span> : else</a>
|
|
<a name="5597"><span class="lineNum"> 5597 </span><span class="lineNoCov"> 0 : timebuf[sizeof(timebuf) - 1] = '\0';</span></a>
|
|
<a name="5598"><span class="lineNum"> 5598 </span> : </a>
|
|
<a name="5599"><span class="lineNum"> 5599 </span><span class="lineNoCov"> 0 : if (promptvars || posixly_correct)</span></a>
|
|
<a name="5600"><span class="lineNum"> 5600 </span> : /* Make sure that expand_prompt_string is called with a</a>
|
|
<a name="5601"><span class="lineNum"> 5601 </span> : second argument of Q_DOUBLE_QUOTES if we use this</a>
|
|
<a name="5602"><span class="lineNum"> 5602 </span> : function here. */</a>
|
|
<a name="5603"><span class="lineNum"> 5603 </span><span class="lineNoCov"> 0 : temp = sh_backslash_quote_for_double_quotes (timebuf);</span></a>
|
|
<a name="5604"><span class="lineNum"> 5604 </span> : else</a>
|
|
<a name="5605"><span class="lineNum"> 5605 </span><span class="lineNoCov"> 0 : temp = savestring (timebuf);</span></a>
|
|
<a name="5606"><span class="lineNum"> 5606 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5607"><span class="lineNum"> 5607 </span> : </a>
|
|
<a name="5608"><span class="lineNum"> 5608 </span><span class="lineNoCov"> 0 : case 'n':</span></a>
|
|
<a name="5609"><span class="lineNum"> 5609 </span><span class="lineNoCov"> 0 : temp = (char *)xmalloc (3);</span></a>
|
|
<a name="5610"><span class="lineNum"> 5610 </span><span class="lineNoCov"> 0 : temp[0] = no_line_editing ? '\n' : '\r';</span></a>
|
|
<a name="5611"><span class="lineNum"> 5611 </span><span class="lineNoCov"> 0 : temp[1] = no_line_editing ? '\0' : '\n';</span></a>
|
|
<a name="5612"><span class="lineNum"> 5612 </span><span class="lineNoCov"> 0 : temp[2] = '\0';</span></a>
|
|
<a name="5613"><span class="lineNum"> 5613 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5614"><span class="lineNum"> 5614 </span> : </a>
|
|
<a name="5615"><span class="lineNum"> 5615 </span><span class="lineNoCov"> 0 : case 's':</span></a>
|
|
<a name="5616"><span class="lineNum"> 5616 </span><span class="lineNoCov"> 0 : temp = base_pathname (shell_name);</span></a>
|
|
<a name="5617"><span class="lineNum"> 5617 </span> : /* Try to quote anything the user can set in the file system */</a>
|
|
<a name="5618"><span class="lineNum"> 5618 </span><span class="lineNoCov"> 0 : if (promptvars || posixly_correct)</span></a>
|
|
<a name="5619"><span class="lineNum"> 5619 </span><span class="lineNoCov"> 0 : temp = sh_backslash_quote_for_double_quotes (temp);</span></a>
|
|
<a name="5620"><span class="lineNum"> 5620 </span> : else</a>
|
|
<a name="5621"><span class="lineNum"> 5621 </span><span class="lineNoCov"> 0 : temp = savestring (temp);</span></a>
|
|
<a name="5622"><span class="lineNum"> 5622 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5623"><span class="lineNum"> 5623 </span> : </a>
|
|
<a name="5624"><span class="lineNum"> 5624 </span><span class="lineNoCov"> 0 : case 'v':</span></a>
|
|
<a name="5625"><span class="lineNum"> 5625 </span> : case 'V':</a>
|
|
<a name="5626"><span class="lineNum"> 5626 </span><span class="lineNoCov"> 0 : temp = (char *)xmalloc (16);</span></a>
|
|
<a name="5627"><span class="lineNum"> 5627 </span><span class="lineNoCov"> 0 : if (c == 'v')</span></a>
|
|
<a name="5628"><span class="lineNum"> 5628 </span><span class="lineNoCov"> 0 : strcpy (temp, dist_version);</span></a>
|
|
<a name="5629"><span class="lineNum"> 5629 </span> : else</a>
|
|
<a name="5630"><span class="lineNum"> 5630 </span><span class="lineNoCov"> 0 : sprintf (temp, "%s.%d", dist_version, patch_level);</span></a>
|
|
<a name="5631"><span class="lineNum"> 5631 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5632"><span class="lineNum"> 5632 </span> : </a>
|
|
<a name="5633"><span class="lineNum"> 5633 </span><span class="lineNoCov"> 0 : case 'w':</span></a>
|
|
<a name="5634"><span class="lineNum"> 5634 </span> : case 'W':</a>
|
|
<a name="5635"><span class="lineNum"> 5635 </span> : {</a>
|
|
<a name="5636"><span class="lineNum"> 5636 </span> : /* Use the value of PWD because it is much more efficient. */</a>
|
|
<a name="5637"><span class="lineNum"> 5637 </span><span class="lineNoCov"> 0 : char t_string[PATH_MAX];</span></a>
|
|
<a name="5638"><span class="lineNum"> 5638 </span><span class="lineNoCov"> 0 : int tlen;</span></a>
|
|
<a name="5639"><span class="lineNum"> 5639 </span> : </a>
|
|
<a name="5640"><span class="lineNum"> 5640 </span><span class="lineNoCov"> 0 : temp = get_string_value ("PWD");</span></a>
|
|
<a name="5641"><span class="lineNum"> 5641 </span> : </a>
|
|
<a name="5642"><span class="lineNum"> 5642 </span><span class="lineNoCov"> 0 : if (temp == 0)</span></a>
|
|
<a name="5643"><span class="lineNum"> 5643 </span> : {</a>
|
|
<a name="5644"><span class="lineNum"> 5644 </span><span class="lineNoCov"> 0 : if (getcwd (t_string, sizeof(t_string)) == 0)</span></a>
|
|
<a name="5645"><span class="lineNum"> 5645 </span> : {</a>
|
|
<a name="5646"><span class="lineNum"> 5646 </span><span class="lineNoCov"> 0 : t_string[0] = '.';</span></a>
|
|
<a name="5647"><span class="lineNum"> 5647 </span><span class="lineNoCov"> 0 : tlen = 1;</span></a>
|
|
<a name="5648"><span class="lineNum"> 5648 </span> : }</a>
|
|
<a name="5649"><span class="lineNum"> 5649 </span> : else</a>
|
|
<a name="5650"><span class="lineNum"> 5650 </span><span class="lineNoCov"> 0 : tlen = strlen (t_string);</span></a>
|
|
<a name="5651"><span class="lineNum"> 5651 </span> : }</a>
|
|
<a name="5652"><span class="lineNum"> 5652 </span> : else</a>
|
|
<a name="5653"><span class="lineNum"> 5653 </span> : {</a>
|
|
<a name="5654"><span class="lineNum"> 5654 </span><span class="lineNoCov"> 0 : tlen = sizeof (t_string) - 1;</span></a>
|
|
<a name="5655"><span class="lineNum"> 5655 </span><span class="lineNoCov"> 0 : strncpy (t_string, temp, tlen);</span></a>
|
|
<a name="5656"><span class="lineNum"> 5656 </span> : }</a>
|
|
<a name="5657"><span class="lineNum"> 5657 </span><span class="lineNoCov"> 0 : t_string[tlen] = '\0';</span></a>
|
|
<a name="5658"><span class="lineNum"> 5658 </span> : </a>
|
|
<a name="5659"><span class="lineNum"> 5659 </span> : #if defined (MACOSX)</a>
|
|
<a name="5660"><span class="lineNum"> 5660 </span> : /* Convert from "fs" format to "input" format */</a>
|
|
<a name="5661"><span class="lineNum"> 5661 </span> : temp = fnx_fromfs (t_string, strlen (t_string));</a>
|
|
<a name="5662"><span class="lineNum"> 5662 </span> : if (temp != t_string)</a>
|
|
<a name="5663"><span class="lineNum"> 5663 </span> : strcpy (t_string, temp);</a>
|
|
<a name="5664"><span class="lineNum"> 5664 </span> : #endif</a>
|
|
<a name="5665"><span class="lineNum"> 5665 </span> : </a>
|
|
<a name="5666"><span class="lineNum"> 5666 </span> : #define ROOT_PATH(x) ((x)[0] == '/' && (x)[1] == 0)</a>
|
|
<a name="5667"><span class="lineNum"> 5667 </span> : #define DOUBLE_SLASH_ROOT(x) ((x)[0] == '/' && (x)[1] == '/' && (x)[2] == 0)</a>
|
|
<a name="5668"><span class="lineNum"> 5668 </span> : /* Abbreviate \W as ~ if $PWD == $HOME */</a>
|
|
<a name="5669"><span class="lineNum"> 5669 </span><span class="lineNoCov"> 0 : if (c == 'W' && (((t = get_string_value ("HOME")) == 0) || STREQ (t, t_string) == 0))</span></a>
|
|
<a name="5670"><span class="lineNum"> 5670 </span> : {</a>
|
|
<a name="5671"><span class="lineNum"> 5671 </span><span class="lineNoCov"> 0 : if (ROOT_PATH (t_string) == 0 && DOUBLE_SLASH_ROOT (t_string) == 0)</span></a>
|
|
<a name="5672"><span class="lineNum"> 5672 </span> : {</a>
|
|
<a name="5673"><span class="lineNum"> 5673 </span><span class="lineNoCov"> 0 : t = strrchr (t_string, '/');</span></a>
|
|
<a name="5674"><span class="lineNum"> 5674 </span><span class="lineNoCov"> 0 : if (t)</span></a>
|
|
<a name="5675"><span class="lineNum"> 5675 </span><span class="lineNoCov"> 0 : memmove (t_string, t + 1, strlen (t)); /* strlen(t) to copy NULL */</span></a>
|
|
<a name="5676"><span class="lineNum"> 5676 </span> : }</a>
|
|
<a name="5677"><span class="lineNum"> 5677 </span> : }</a>
|
|
<a name="5678"><span class="lineNum"> 5678 </span> : #undef ROOT_PATH</a>
|
|
<a name="5679"><span class="lineNum"> 5679 </span> : #undef DOUBLE_SLASH_ROOT</a>
|
|
<a name="5680"><span class="lineNum"> 5680 </span> : else</a>
|
|
<a name="5681"><span class="lineNum"> 5681 </span> : {</a>
|
|
<a name="5682"><span class="lineNum"> 5682 </span> : /* polite_directory_format is guaranteed to return a string</a>
|
|
<a name="5683"><span class="lineNum"> 5683 </span> : no longer than PATH_MAX - 1 characters. */</a>
|
|
<a name="5684"><span class="lineNum"> 5684 </span><span class="lineNoCov"> 0 : temp = polite_directory_format (t_string);</span></a>
|
|
<a name="5685"><span class="lineNum"> 5685 </span><span class="lineNoCov"> 0 : if (temp != t_string)</span></a>
|
|
<a name="5686"><span class="lineNum"> 5686 </span><span class="lineNoCov"> 0 : strcpy (t_string, temp);</span></a>
|
|
<a name="5687"><span class="lineNum"> 5687 </span> : }</a>
|
|
<a name="5688"><span class="lineNum"> 5688 </span> : </a>
|
|
<a name="5689"><span class="lineNum"> 5689 </span><span class="lineNoCov"> 0 : temp = trim_pathname (t_string, PATH_MAX - 1);</span></a>
|
|
<a name="5690"><span class="lineNum"> 5690 </span> : /* If we're going to be expanding the prompt string later,</a>
|
|
<a name="5691"><span class="lineNum"> 5691 </span> : quote the directory name. */</a>
|
|
<a name="5692"><span class="lineNum"> 5692 </span><span class="lineNoCov"> 0 : if (promptvars || posixly_correct)</span></a>
|
|
<a name="5693"><span class="lineNum"> 5693 </span> : /* Make sure that expand_prompt_string is called with a</a>
|
|
<a name="5694"><span class="lineNum"> 5694 </span> : second argument of Q_DOUBLE_QUOTES if we use this</a>
|
|
<a name="5695"><span class="lineNum"> 5695 </span> : function here. */</a>
|
|
<a name="5696"><span class="lineNum"> 5696 </span><span class="lineNoCov"> 0 : temp = sh_backslash_quote_for_double_quotes (t_string);</span></a>
|
|
<a name="5697"><span class="lineNum"> 5697 </span> : else</a>
|
|
<a name="5698"><span class="lineNum"> 5698 </span><span class="lineNoCov"> 0 : temp = savestring (t_string);</span></a>
|
|
<a name="5699"><span class="lineNum"> 5699 </span> : </a>
|
|
<a name="5700"><span class="lineNum"> 5700 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5701"><span class="lineNum"> 5701 </span> : }</a>
|
|
<a name="5702"><span class="lineNum"> 5702 </span> : </a>
|
|
<a name="5703"><span class="lineNum"> 5703 </span><span class="lineNoCov"> 0 : case 'u':</span></a>
|
|
<a name="5704"><span class="lineNum"> 5704 </span><span class="lineNoCov"> 0 : if (current_user.user_name == 0)</span></a>
|
|
<a name="5705"><span class="lineNum"> 5705 </span><span class="lineNoCov"> 0 : get_current_user_info ();</span></a>
|
|
<a name="5706"><span class="lineNum"> 5706 </span><span class="lineNoCov"> 0 : temp = savestring (current_user.user_name);</span></a>
|
|
<a name="5707"><span class="lineNum"> 5707 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5708"><span class="lineNum"> 5708 </span> : </a>
|
|
<a name="5709"><span class="lineNum"> 5709 </span><span class="lineNoCov"> 0 : case 'h':</span></a>
|
|
<a name="5710"><span class="lineNum"> 5710 </span> : case 'H':</a>
|
|
<a name="5711"><span class="lineNum"> 5711 </span><span class="lineNoCov"> 0 : t_host = savestring (current_host_name);</span></a>
|
|
<a name="5712"><span class="lineNum"> 5712 </span><span class="lineNoCov"> 0 : if (c == 'h' && (t = (char *)strchr (t_host, '.')))</span></a>
|
|
<a name="5713"><span class="lineNum"> 5713 </span><span class="lineNoCov"> 0 : *t = '\0';</span></a>
|
|
<a name="5714"><span class="lineNum"> 5714 </span><span class="lineNoCov"> 0 : if (promptvars || posixly_correct)</span></a>
|
|
<a name="5715"><span class="lineNum"> 5715 </span> : /* Make sure that expand_prompt_string is called with a</a>
|
|
<a name="5716"><span class="lineNum"> 5716 </span> : second argument of Q_DOUBLE_QUOTES if we use this</a>
|
|
<a name="5717"><span class="lineNum"> 5717 </span> : function here. */</a>
|
|
<a name="5718"><span class="lineNum"> 5718 </span><span class="lineNoCov"> 0 : temp = sh_backslash_quote_for_double_quotes (t_host);</span></a>
|
|
<a name="5719"><span class="lineNum"> 5719 </span> : else</a>
|
|
<a name="5720"><span class="lineNum"> 5720 </span><span class="lineNoCov"> 0 : temp = savestring (t_host);</span></a>
|
|
<a name="5721"><span class="lineNum"> 5721 </span><span class="lineNoCov"> 0 : free (t_host);</span></a>
|
|
<a name="5722"><span class="lineNum"> 5722 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5723"><span class="lineNum"> 5723 </span> : </a>
|
|
<a name="5724"><span class="lineNum"> 5724 </span><span class="lineNoCov"> 0 : case '#':</span></a>
|
|
<a name="5725"><span class="lineNum"> 5725 </span><span class="lineNoCov"> 0 : temp = itos (current_command_number);</span></a>
|
|
<a name="5726"><span class="lineNum"> 5726 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5727"><span class="lineNum"> 5727 </span> : </a>
|
|
<a name="5728"><span class="lineNum"> 5728 </span><span class="lineNoCov"> 0 : case '!':</span></a>
|
|
<a name="5729"><span class="lineNum"> 5729 </span> : #if !defined (HISTORY)</a>
|
|
<a name="5730"><span class="lineNum"> 5730 </span><span class="lineNoCov"> 0 : temp = savestring ("1");</span></a>
|
|
<a name="5731"><span class="lineNum"> 5731 </span> : #else /* HISTORY */</a>
|
|
<a name="5732"><span class="lineNum"> 5732 </span> : temp = itos (history_number ());</a>
|
|
<a name="5733"><span class="lineNum"> 5733 </span> : #endif /* HISTORY */</a>
|
|
<a name="5734"><span class="lineNum"> 5734 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5735"><span class="lineNum"> 5735 </span> : </a>
|
|
<a name="5736"><span class="lineNum"> 5736 </span><span class="lineNoCov"> 0 : case '$':</span></a>
|
|
<a name="5737"><span class="lineNum"> 5737 </span><span class="lineNoCov"> 0 : t = temp = (char *)xmalloc (3);</span></a>
|
|
<a name="5738"><span class="lineNum"> 5738 </span><span class="lineNoCov"> 0 : if ((promptvars || posixly_correct) && (current_user.euid != 0))</span></a>
|
|
<a name="5739"><span class="lineNum"> 5739 </span><span class="lineNoCov"> 0 : *t++ = '\\';</span></a>
|
|
<a name="5740"><span class="lineNum"> 5740 </span><span class="lineNoCov"> 0 : *t++ = current_user.euid == 0 ? '#' : '$';</span></a>
|
|
<a name="5741"><span class="lineNum"> 5741 </span><span class="lineNoCov"> 0 : *t = '\0';</span></a>
|
|
<a name="5742"><span class="lineNum"> 5742 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5743"><span class="lineNum"> 5743 </span> : </a>
|
|
<a name="5744"><span class="lineNum"> 5744 </span><span class="lineNoCov"> 0 : case 'j':</span></a>
|
|
<a name="5745"><span class="lineNum"> 5745 </span><span class="lineNoCov"> 0 : temp = itos (count_all_jobs ());</span></a>
|
|
<a name="5746"><span class="lineNum"> 5746 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5747"><span class="lineNum"> 5747 </span> : </a>
|
|
<a name="5748"><span class="lineNum"> 5748 </span><span class="lineNoCov"> 0 : case 'l':</span></a>
|
|
<a name="5749"><span class="lineNum"> 5749 </span> : #if defined (HAVE_TTYNAME)</a>
|
|
<a name="5750"><span class="lineNum"> 5750 </span><span class="lineNoCov"> 0 : temp = (char *)ttyname (fileno (stdin));</span></a>
|
|
<a name="5751"><span class="lineNum"> 5751 </span><span class="lineNoCov"> 0 : t = temp ? base_pathname (temp) : "tty";</span></a>
|
|
<a name="5752"><span class="lineNum"> 5752 </span><span class="lineNoCov"> 0 : temp = savestring (t);</span></a>
|
|
<a name="5753"><span class="lineNum"> 5753 </span> : #else</a>
|
|
<a name="5754"><span class="lineNum"> 5754 </span> : temp = savestring ("tty");</a>
|
|
<a name="5755"><span class="lineNum"> 5755 </span> : #endif /* !HAVE_TTYNAME */</a>
|
|
<a name="5756"><span class="lineNum"> 5756 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5757"><span class="lineNum"> 5757 </span> : </a>
|
|
<a name="5758"><span class="lineNum"> 5758 </span> : #if defined (READLINE)</a>
|
|
<a name="5759"><span class="lineNum"> 5759 </span> : case '[':</a>
|
|
<a name="5760"><span class="lineNum"> 5760 </span> : case ']':</a>
|
|
<a name="5761"><span class="lineNum"> 5761 </span> : if (no_line_editing)</a>
|
|
<a name="5762"><span class="lineNum"> 5762 </span> : {</a>
|
|
<a name="5763"><span class="lineNum"> 5763 </span> : string++;</a>
|
|
<a name="5764"><span class="lineNum"> 5764 </span> : break;</a>
|
|
<a name="5765"><span class="lineNum"> 5765 </span> : }</a>
|
|
<a name="5766"><span class="lineNum"> 5766 </span> : temp = (char *)xmalloc (3);</a>
|
|
<a name="5767"><span class="lineNum"> 5767 </span> : n = (c == '[') ? RL_PROMPT_START_IGNORE : RL_PROMPT_END_IGNORE;</a>
|
|
<a name="5768"><span class="lineNum"> 5768 </span> : i = 0;</a>
|
|
<a name="5769"><span class="lineNum"> 5769 </span> : if (n == CTLESC || n == CTLNUL)</a>
|
|
<a name="5770"><span class="lineNum"> 5770 </span> : temp[i++] = CTLESC;</a>
|
|
<a name="5771"><span class="lineNum"> 5771 </span> : temp[i++] = n;</a>
|
|
<a name="5772"><span class="lineNum"> 5772 </span> : temp[i] = '\0';</a>
|
|
<a name="5773"><span class="lineNum"> 5773 </span> : goto add_string;</a>
|
|
<a name="5774"><span class="lineNum"> 5774 </span> : #endif /* READLINE */</a>
|
|
<a name="5775"><span class="lineNum"> 5775 </span> : </a>
|
|
<a name="5776"><span class="lineNum"> 5776 </span><span class="lineNoCov"> 0 : case '\\':</span></a>
|
|
<a name="5777"><span class="lineNum"> 5777 </span> : case 'a':</a>
|
|
<a name="5778"><span class="lineNum"> 5778 </span> : case 'e':</a>
|
|
<a name="5779"><span class="lineNum"> 5779 </span> : case 'r':</a>
|
|
<a name="5780"><span class="lineNum"> 5780 </span><span class="lineNoCov"> 0 : temp = (char *)xmalloc (2);</span></a>
|
|
<a name="5781"><span class="lineNum"> 5781 </span><span class="lineNoCov"> 0 : if (c == 'a')</span></a>
|
|
<a name="5782"><span class="lineNum"> 5782 </span><span class="lineNoCov"> 0 : temp[0] = '\07';</span></a>
|
|
<a name="5783"><span class="lineNum"> 5783 </span><span class="lineNoCov"> 0 : else if (c == 'e')</span></a>
|
|
<a name="5784"><span class="lineNum"> 5784 </span><span class="lineNoCov"> 0 : temp[0] = '\033';</span></a>
|
|
<a name="5785"><span class="lineNum"> 5785 </span><span class="lineNoCov"> 0 : else if (c == 'r')</span></a>
|
|
<a name="5786"><span class="lineNum"> 5786 </span><span class="lineNoCov"> 0 : temp[0] = '\r';</span></a>
|
|
<a name="5787"><span class="lineNum"> 5787 </span> : else /* (c == '\\') */</a>
|
|
<a name="5788"><span class="lineNum"> 5788 </span><span class="lineNoCov"> 0 : temp[0] = c;</span></a>
|
|
<a name="5789"><span class="lineNum"> 5789 </span><span class="lineNoCov"> 0 : temp[1] = '\0';</span></a>
|
|
<a name="5790"><span class="lineNum"> 5790 </span><span class="lineNoCov"> 0 : goto add_string;</span></a>
|
|
<a name="5791"><span class="lineNum"> 5791 </span> : </a>
|
|
<a name="5792"><span class="lineNum"> 5792 </span> : default:</a>
|
|
<a name="5793"><span class="lineNum"> 5793 </span><span class="lineNoCov"> 0 : not_escape:</span></a>
|
|
<a name="5794"><span class="lineNum"> 5794 </span><span class="lineNoCov"> 0 : temp = (char *)xmalloc (3);</span></a>
|
|
<a name="5795"><span class="lineNum"> 5795 </span><span class="lineNoCov"> 0 : temp[0] = '\\';</span></a>
|
|
<a name="5796"><span class="lineNum"> 5796 </span><span class="lineNoCov"> 0 : temp[1] = c;</span></a>
|
|
<a name="5797"><span class="lineNum"> 5797 </span><span class="lineNoCov"> 0 : temp[2] = '\0';</span></a>
|
|
<a name="5798"><span class="lineNum"> 5798 </span> : </a>
|
|
<a name="5799"><span class="lineNum"> 5799 </span><span class="lineNoCov"> 0 : add_string:</span></a>
|
|
<a name="5800"><span class="lineNum"> 5800 </span><span class="lineNoCov"> 0 : if (c)</span></a>
|
|
<a name="5801"><span class="lineNum"> 5801 </span><span class="lineNoCov"> 0 : string++;</span></a>
|
|
<a name="5802"><span class="lineNum"> 5802 </span><span class="lineNoCov"> 0 : result =</span></a>
|
|
<a name="5803"><span class="lineNum"> 5803 </span><span class="lineNoCov"> 0 : sub_append_string (temp, result, &result_index, &result_size);</span></a>
|
|
<a name="5804"><span class="lineNum"> 5804 </span><span class="lineNoCov"> 0 : temp = (char *)NULL; /* Freed in sub_append_string (). */</span></a>
|
|
<a name="5805"><span class="lineNum"> 5805 </span><span class="lineNoCov"> 0 : result[result_index] = '\0';</span></a>
|
|
<a name="5806"><span class="lineNum"> 5806 </span><span class="lineNoCov"> 0 : break;</span></a>
|
|
<a name="5807"><span class="lineNum"> 5807 </span> : }</a>
|
|
<a name="5808"><span class="lineNum"> 5808 </span> : }</a>
|
|
<a name="5809"><span class="lineNum"> 5809 </span> : else</a>
|
|
<a name="5810"><span class="lineNum"> 5810 </span> : {</a>
|
|
<a name="5811"><span class="lineNum"> 5811 </span><span class="lineNoCov"> 0 : RESIZE_MALLOCED_BUFFER (result, result_index, 3, result_size, PROMPT_GROWTH);</span></a>
|
|
<a name="5812"><span class="lineNum"> 5812 </span> : /* dequote_string should take care of removing this if we are not</a>
|
|
<a name="5813"><span class="lineNum"> 5813 </span> : performing the rest of the word expansions. */</a>
|
|
<a name="5814"><span class="lineNum"> 5814 </span><span class="lineNoCov"> 0 : if (c == CTLESC || c == CTLNUL)</span></a>
|
|
<a name="5815"><span class="lineNum"> 5815 </span><span class="lineNoCov"> 0 : result[result_index++] = CTLESC;</span></a>
|
|
<a name="5816"><span class="lineNum"> 5816 </span><span class="lineNoCov"> 0 : result[result_index++] = c;</span></a>
|
|
<a name="5817"><span class="lineNum"> 5817 </span><span class="lineNoCov"> 0 : result[result_index] = '\0';</span></a>
|
|
<a name="5818"><span class="lineNum"> 5818 </span> : }</a>
|
|
<a name="5819"><span class="lineNum"> 5819 </span> : }</a>
|
|
<a name="5820"><span class="lineNum"> 5820 </span> : #else /* !PROMPT_STRING_DECODE */</a>
|
|
<a name="5821"><span class="lineNum"> 5821 </span> : result = savestring (string);</a>
|
|
<a name="5822"><span class="lineNum"> 5822 </span> : #endif /* !PROMPT_STRING_DECODE */</a>
|
|
<a name="5823"><span class="lineNum"> 5823 </span> : </a>
|
|
<a name="5824"><span class="lineNum"> 5824 </span> : /* Save the delimiter stack and point `dstack' to temp space so any</a>
|
|
<a name="5825"><span class="lineNum"> 5825 </span> : command substitutions in the prompt string won't result in screwing</a>
|
|
<a name="5826"><span class="lineNum"> 5826 </span> : up the parser's quoting state. */</a>
|
|
<a name="5827"><span class="lineNum"> 5827 </span><span class="lineNoCov"> 0 : save_dstack = dstack;</span></a>
|
|
<a name="5828"><span class="lineNum"> 5828 </span><span class="lineNoCov"> 0 : dstack = temp_dstack;</span></a>
|
|
<a name="5829"><span class="lineNum"> 5829 </span><span class="lineNoCov"> 0 : dstack.delimiter_depth = 0;</span></a>
|
|
<a name="5830"><span class="lineNum"> 5830 </span> : </a>
|
|
<a name="5831"><span class="lineNum"> 5831 </span> : /* Perform variable and parameter expansion and command substitution on</a>
|
|
<a name="5832"><span class="lineNum"> 5832 </span> : the prompt string. */</a>
|
|
<a name="5833"><span class="lineNum"> 5833 </span><span class="lineNoCov"> 0 : if (promptvars || posixly_correct)</span></a>
|
|
<a name="5834"><span class="lineNum"> 5834 </span> : {</a>
|
|
<a name="5835"><span class="lineNum"> 5835 </span><span class="lineNoCov"> 0 : last_exit_value = last_command_exit_value;</span></a>
|
|
<a name="5836"><span class="lineNum"> 5836 </span><span class="lineNoCov"> 0 : last_comsub_pid = last_command_subst_pid;</span></a>
|
|
<a name="5837"><span class="lineNum"> 5837 </span><span class="lineNoCov"> 0 : list = expand_prompt_string (result, Q_DOUBLE_QUOTES, 0);</span></a>
|
|
<a name="5838"><span class="lineNum"> 5838 </span><span class="lineNoCov"> 0 : free (result);</span></a>
|
|
<a name="5839"><span class="lineNum"> 5839 </span><span class="lineNoCov"> 0 : result = string_list (list);</span></a>
|
|
<a name="5840"><span class="lineNum"> 5840 </span><span class="lineNoCov"> 0 : dispose_words (list);</span></a>
|
|
<a name="5841"><span class="lineNum"> 5841 </span><span class="lineNoCov"> 0 : last_command_exit_value = last_exit_value;</span></a>
|
|
<a name="5842"><span class="lineNum"> 5842 </span><span class="lineNoCov"> 0 : last_command_subst_pid = last_comsub_pid;</span></a>
|
|
<a name="5843"><span class="lineNum"> 5843 </span> : }</a>
|
|
<a name="5844"><span class="lineNum"> 5844 </span> : else</a>
|
|
<a name="5845"><span class="lineNum"> 5845 </span> : {</a>
|
|
<a name="5846"><span class="lineNum"> 5846 </span><span class="lineNoCov"> 0 : t = dequote_string (result);</span></a>
|
|
<a name="5847"><span class="lineNum"> 5847 </span><span class="lineNoCov"> 0 : free (result);</span></a>
|
|
<a name="5848"><span class="lineNum"> 5848 </span><span class="lineNoCov"> 0 : result = t;</span></a>
|
|
<a name="5849"><span class="lineNum"> 5849 </span> : }</a>
|
|
<a name="5850"><span class="lineNum"> 5850 </span> : </a>
|
|
<a name="5851"><span class="lineNum"> 5851 </span><span class="lineNoCov"> 0 : dstack = save_dstack;</span></a>
|
|
<a name="5852"><span class="lineNum"> 5852 </span> : </a>
|
|
<a name="5853"><span class="lineNum"> 5853 </span><span class="lineNoCov"> 0 : return (result);</span></a>
|
|
<a name="5854"><span class="lineNum"> 5854 </span> : }</a>
|
|
<a name="5855"><span class="lineNum"> 5855 </span> : </a>
|
|
<a name="5856"><span class="lineNum"> 5856 </span> : /************************************************</a>
|
|
<a name="5857"><span class="lineNum"> 5857 </span> : * *</a>
|
|
<a name="5858"><span class="lineNum"> 5858 </span> : * ERROR HANDLING *</a>
|
|
<a name="5859"><span class="lineNum"> 5859 </span> : * *</a>
|
|
<a name="5860"><span class="lineNum"> 5860 </span> : ************************************************/</a>
|
|
<a name="5861"><span class="lineNum"> 5861 </span> : </a>
|
|
<a name="5862"><span class="lineNum"> 5862 </span> : /* Report a syntax error, and restart the parser. Call here for fatal</a>
|
|
<a name="5863"><span class="lineNum"> 5863 </span> : errors. */</a>
|
|
<a name="5864"><span class="lineNum"> 5864 </span> : int</a>
|
|
<a name="5865"><span class="lineNum"> 5865 </span><span class="lineNoCov"> 0 : yyerror (msg)</span></a>
|
|
<a name="5866"><span class="lineNum"> 5866 </span> : const char *msg;</a>
|
|
<a name="5867"><span class="lineNum"> 5867 </span> : {</a>
|
|
<a name="5868"><span class="lineNum"> 5868 </span><span class="lineCov"> 2104122 : report_syntax_error ((char *)NULL);</span></a>
|
|
<a name="5869"><span class="lineNum"> 5869 </span><span class="lineCov"> 9 : reset_parser ();</span></a>
|
|
<a name="5870"><span class="lineNum"> 5870 </span><span class="lineCov"> 2104318 : return (0);</span></a>
|
|
<a name="5871"><span class="lineNum"> 5871 </span> : }</a>
|
|
<a name="5872"><span class="lineNum"> 5872 </span> : </a>
|
|
<a name="5873"><span class="lineNum"> 5873 </span> : static char *</a>
|
|
<a name="5874"><span class="lineNum"> 5874 </span><span class="lineCov"> 1782118 : error_token_from_token (tok)</span></a>
|
|
<a name="5875"><span class="lineNum"> 5875 </span> : int tok;</a>
|
|
<a name="5876"><span class="lineNum"> 5876 </span> : {</a>
|
|
<a name="5877"><span class="lineNum"> 5877 </span><span class="lineCov"> 1782118 : char *t;</span></a>
|
|
<a name="5878"><span class="lineNum"> 5878 </span> : </a>
|
|
<a name="5879"><span class="lineNum"> 5879 </span><span class="lineCov"> 1782118 : if (t = find_token_in_alist (tok, word_token_alist, 0))</span></a>
|
|
<a name="5880"><span class="lineNum"> 5880 </span> : return t;</a>
|
|
<a name="5881"><span class="lineNum"> 5881 </span> : </a>
|
|
<a name="5882"><span class="lineNum"> 5882 </span><span class="lineCov"> 1479775 : if (t = find_token_in_alist (tok, other_token_alist, 0))</span></a>
|
|
<a name="5883"><span class="lineNum"> 5883 </span> : return t;</a>
|
|
<a name="5884"><span class="lineNum"> 5884 </span> : </a>
|
|
<a name="5885"><span class="lineNum"> 5885 </span><span class="lineCov"> 237396 : t = (char *)NULL;</span></a>
|
|
<a name="5886"><span class="lineNum"> 5886 </span> : /* This stuff is dicy and needs closer inspection */</a>
|
|
<a name="5887"><span class="lineNum"> 5887 </span><span class="lineCov"> 237396 : switch (current_token)</span></a>
|
|
<a name="5888"><span class="lineNum"> 5888 </span> : {</a>
|
|
<a name="5889"><span class="lineNum"> 5889 </span><span class="lineCov"> 237257 : case WORD:</span></a>
|
|
<a name="5890"><span class="lineNum"> 5890 </span> : case ASSIGNMENT_WORD:</a>
|
|
<a name="5891"><span class="lineNum"> 5891 </span><span class="lineCov"> 237257 : if (yylval.word)</span></a>
|
|
<a name="5892"><span class="lineNum"> 5892 </span><span class="lineCov"> 237257 : t = savestring (yylval.word->word);</span></a>
|
|
<a name="5893"><span class="lineNum"> 5893 </span> : break;</a>
|
|
<a name="5894"><span class="lineNum"> 5894 </span><span class="lineCov"> 49 : case NUMBER:</span></a>
|
|
<a name="5895"><span class="lineNum"> 5895 </span><span class="lineCov"> 49 : t = itos (yylval.number);</span></a>
|
|
<a name="5896"><span class="lineNum"> 5896 </span><span class="lineCov"> 49 : break;</span></a>
|
|
<a name="5897"><span class="lineNum"> 5897 </span><span class="lineNoCov"> 0 : case ARITH_CMD:</span></a>
|
|
<a name="5898"><span class="lineNum"> 5898 </span><span class="lineNoCov"> 0 : if (yylval.word_list)</span></a>
|
|
<a name="5899"><span class="lineNum"> 5899 </span><span class="lineNoCov"> 0 : t = string_list (yylval.word_list);</span></a>
|
|
<a name="5900"><span class="lineNum"> 5900 </span> : break;</a>
|
|
<a name="5901"><span class="lineNum"> 5901 </span><span class="lineNoCov"> 0 : case ARITH_FOR_EXPRS:</span></a>
|
|
<a name="5902"><span class="lineNum"> 5902 </span><span class="lineNoCov"> 0 : if (yylval.word_list)</span></a>
|
|
<a name="5903"><span class="lineNum"> 5903 </span><span class="lineNoCov"> 0 : t = string_list_internal (yylval.word_list, " ; ");</span></a>
|
|
<a name="5904"><span class="lineNum"> 5904 </span> : break;</a>
|
|
<a name="5905"><span class="lineNum"> 5905 </span> : case COND_CMD:</a>
|
|
<a name="5906"><span class="lineNum"> 5906 </span> : t = (char *)NULL; /* punt */</a>
|
|
<a name="5907"><span class="lineNum"> 5907 </span> : break;</a>
|
|
<a name="5908"><span class="lineNum"> 5908 </span> : }</a>
|
|
<a name="5909"><span class="lineNum"> 5909 </span> : </a>
|
|
<a name="5910"><span class="lineNum"> 5910 </span> : return t;</a>
|
|
<a name="5911"><span class="lineNum"> 5911 </span> : }</a>
|
|
<a name="5912"><span class="lineNum"> 5912 </span> : </a>
|
|
<a name="5913"><span class="lineNum"> 5913 </span> : static char *</a>
|
|
<a name="5914"><span class="lineNum"> 5914 </span><span class="lineCov"> 36 : error_token_from_text ()</span></a>
|
|
<a name="5915"><span class="lineNum"> 5915 </span> : {</a>
|
|
<a name="5916"><span class="lineNum"> 5916 </span><span class="lineCov"> 36 : char *msg, *t;</span></a>
|
|
<a name="5917"><span class="lineNum"> 5917 </span><span class="lineCov"> 36 : int token_end, i;</span></a>
|
|
<a name="5918"><span class="lineNum"> 5918 </span> : </a>
|
|
<a name="5919"><span class="lineNum"> 5919 </span><span class="lineCov"> 36 : t = shell_input_line;</span></a>
|
|
<a name="5920"><span class="lineNum"> 5920 </span><span class="lineCov"> 36 : i = shell_input_line_index;</span></a>
|
|
<a name="5921"><span class="lineNum"> 5921 </span><span class="lineCov"> 36 : token_end = 0;</span></a>
|
|
<a name="5922"><span class="lineNum"> 5922 </span><span class="lineCov"> 36 : msg = (char *)NULL;</span></a>
|
|
<a name="5923"><span class="lineNum"> 5923 </span> : </a>
|
|
<a name="5924"><span class="lineNum"> 5924 </span><span class="lineCov"> 36 : if (i && t[i] == '\0')</span></a>
|
|
<a name="5925"><span class="lineNum"> 5925 </span><span class="lineNoCov"> 0 : i--;</span></a>
|
|
<a name="5926"><span class="lineNum"> 5926 </span> : </a>
|
|
<a name="5927"><span class="lineNum"> 5927 </span><span class="lineCov"> 45 : while (i && (whitespace (t[i]) || t[i] == '\n'))</span></a>
|
|
<a name="5928"><span class="lineNum"> 5928 </span><span class="lineCov"> 9 : i--;</span></a>
|
|
<a name="5929"><span class="lineNum"> 5929 </span> : </a>
|
|
<a name="5930"><span class="lineNum"> 5930 </span><span class="lineCov"> 36 : if (i)</span></a>
|
|
<a name="5931"><span class="lineNum"> 5931 </span><span class="lineCov"> 36 : token_end = i + 1;</span></a>
|
|
<a name="5932"><span class="lineNum"> 5932 </span> : </a>
|
|
<a name="5933"><span class="lineNum"> 5933 </span><span class="lineCov"> 126 : while (i && (member (t[i], " \n\t;|&") == 0))</span></a>
|
|
<a name="5934"><span class="lineNum"> 5934 </span><span class="lineCov"> 90 : i--;</span></a>
|
|
<a name="5935"><span class="lineNum"> 5935 </span> : </a>
|
|
<a name="5936"><span class="lineNum"> 5936 </span><span class="lineCov"> 45 : while (i != token_end && (whitespace (t[i]) || t[i] == '\n'))</span></a>
|
|
<a name="5937"><span class="lineNum"> 5937 </span><span class="lineCov"> 9 : i++;</span></a>
|
|
<a name="5938"><span class="lineNum"> 5938 </span> : </a>
|
|
<a name="5939"><span class="lineNum"> 5939 </span> : /* Return our idea of the offending token. */</a>
|
|
<a name="5940"><span class="lineNum"> 5940 </span><span class="lineCov"> 36 : if (token_end || (i == 0 && token_end == 0))</span></a>
|
|
<a name="5941"><span class="lineNum"> 5941 </span> : {</a>
|
|
<a name="5942"><span class="lineNum"> 5942 </span><span class="lineCov"> 36 : if (token_end)</span></a>
|
|
<a name="5943"><span class="lineNum"> 5943 </span><span class="lineCov"> 36 : msg = substring (t, i, token_end);</span></a>
|
|
<a name="5944"><span class="lineNum"> 5944 </span> : else /* one-character token */</a>
|
|
<a name="5945"><span class="lineNum"> 5945 </span> : {</a>
|
|
<a name="5946"><span class="lineNum"> 5946 </span><span class="lineNoCov"> 0 : msg = (char *)xmalloc (2);</span></a>
|
|
<a name="5947"><span class="lineNum"> 5947 </span><span class="lineNoCov"> 0 : msg[0] = t[i];</span></a>
|
|
<a name="5948"><span class="lineNum"> 5948 </span><span class="lineNoCov"> 0 : msg[1] = '\0';</span></a>
|
|
<a name="5949"><span class="lineNum"> 5949 </span> : }</a>
|
|
<a name="5950"><span class="lineNum"> 5950 </span> : }</a>
|
|
<a name="5951"><span class="lineNum"> 5951 </span> : </a>
|
|
<a name="5952"><span class="lineNum"> 5952 </span><span class="lineCov"> 36 : return (msg);</span></a>
|
|
<a name="5953"><span class="lineNum"> 5953 </span> : }</a>
|
|
<a name="5954"><span class="lineNum"> 5954 </span> : </a>
|
|
<a name="5955"><span class="lineNum"> 5955 </span> : static void</a>
|
|
<a name="5956"><span class="lineNum"> 5956 </span><span class="lineCov"> 1782055 : print_offending_line ()</span></a>
|
|
<a name="5957"><span class="lineNum"> 5957 </span> : {</a>
|
|
<a name="5958"><span class="lineNum"> 5958 </span><span class="lineCov"> 1782055 : char *msg;</span></a>
|
|
<a name="5959"><span class="lineNum"> 5959 </span><span class="lineCov"> 1782055 : int token_end;</span></a>
|
|
<a name="5960"><span class="lineNum"> 5960 </span> : </a>
|
|
<a name="5961"><span class="lineNum"> 5961 </span><span class="lineCov"> 1782055 : msg = savestring (shell_input_line);</span></a>
|
|
<a name="5962"><span class="lineNum"> 5962 </span><span class="lineCov"> 1782055 : token_end = strlen (msg);</span></a>
|
|
<a name="5963"><span class="lineNum"> 5963 </span><span class="lineCov"> 3564101 : while (token_end && msg[token_end - 1] == '\n')</span></a>
|
|
<a name="5964"><span class="lineNum"> 5964 </span><span class="lineCov"> 1782046 : msg[--token_end] = '\0';</span></a>
|
|
<a name="5965"><span class="lineNum"> 5965 </span> : </a>
|
|
<a name="5966"><span class="lineNum"> 5966 </span><span class="lineCov"> 1782055 : parser_error (line_number, "`%s'", msg);</span></a>
|
|
<a name="5967"><span class="lineNum"> 5967 </span><span class="lineCov"> 1782055 : free (msg);</span></a>
|
|
<a name="5968"><span class="lineNum"> 5968 </span><span class="lineCov"> 1782055 : }</span></a>
|
|
<a name="5969"><span class="lineNum"> 5969 </span> : </a>
|
|
<a name="5970"><span class="lineNum"> 5970 </span> : /* Report a syntax error with line numbers, etc.</a>
|
|
<a name="5971"><span class="lineNum"> 5971 </span> : Call here for recoverable errors. If you have a message to print,</a>
|
|
<a name="5972"><span class="lineNum"> 5972 </span> : then place it in MESSAGE, otherwise pass NULL and this will figure</a>
|
|
<a name="5973"><span class="lineNum"> 5973 </span> : out an appropriate message for you. */</a>
|
|
<a name="5974"><span class="lineNum"> 5974 </span> : static void</a>
|
|
<a name="5975"><span class="lineNum"> 5975 </span><span class="lineCov"> 2104327 : report_syntax_error (message)</span></a>
|
|
<a name="5976"><span class="lineNum"> 5976 </span> : char *message;</a>
|
|
<a name="5977"><span class="lineNum"> 5977 </span> : {</a>
|
|
<a name="5978"><span class="lineNum"> 5978 </span><span class="lineCov"> 2104327 : char *msg, *p;</span></a>
|
|
<a name="5979"><span class="lineNum"> 5979 </span> : </a>
|
|
<a name="5980"><span class="lineNum"> 5980 </span><span class="lineCov"> 2104327 : if (message)</span></a>
|
|
<a name="5981"><span class="lineNum"> 5981 </span> : {</a>
|
|
<a name="5982"><span class="lineNum"> 5982 </span><span class="lineNoCov"> 0 : parser_error (line_number, "%s", message);</span></a>
|
|
<a name="5983"><span class="lineNum"> 5983 </span><span class="lineNoCov"> 0 : if (interactive && EOF_Reached)</span></a>
|
|
<a name="5984"><span class="lineNum"> 5984 </span><span class="lineNoCov"> 0 : EOF_Reached = 0;</span></a>
|
|
<a name="5985"><span class="lineNum"> 5985 </span><span class="lineNoCov"> 0 : last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;</span></a>
|
|
<a name="5986"><span class="lineNum"> 5986 </span><span class="lineNoCov"> 0 : return;</span></a>
|
|
<a name="5987"><span class="lineNum"> 5987 </span> : }</a>
|
|
<a name="5988"><span class="lineNum"> 5988 </span> : </a>
|
|
<a name="5989"><span class="lineNum"> 5989 </span> : /* If the line of input we're reading is not null, try to find the</a>
|
|
<a name="5990"><span class="lineNum"> 5990 </span> : objectionable token. First, try to figure out what token the</a>
|
|
<a name="5991"><span class="lineNum"> 5991 </span> : parser's complaining about by looking at current_token. */</a>
|
|
<a name="5992"><span class="lineNum"> 5992 </span><span class="lineCov"> 2104327 : if (current_token != 0 && EOF_Reached == 0 && (msg = error_token_from_token (current_token)))</span></a>
|
|
<a name="5993"><span class="lineNum"> 5993 </span> : {</a>
|
|
<a name="5994"><span class="lineNum"> 5994 </span><span class="lineCov"> 1782019 : if (ansic_shouldquote (msg))</span></a>
|
|
<a name="5995"><span class="lineNum"> 5995 </span> : {</a>
|
|
<a name="5996"><span class="lineNum"> 5996 </span><span class="lineCov"> 20247 : p = ansic_quote (msg, 0, NULL);</span></a>
|
|
<a name="5997"><span class="lineNum"> 5997 </span><span class="lineCov"> 20247 : free (msg);</span></a>
|
|
<a name="5998"><span class="lineNum"> 5998 </span><span class="lineCov"> 20247 : msg = p;</span></a>
|
|
<a name="5999"><span class="lineNum"> 5999 </span> : }</a>
|
|
<a name="6000"><span class="lineNum"> 6000 </span><span class="lineCov"> 1782019 : parser_error (line_number, _("syntax error near unexpected token `%s'"), msg);</span></a>
|
|
<a name="6001"><span class="lineNum"> 6001 </span><span class="lineCov"> 1782019 : free (msg);</span></a>
|
|
<a name="6002"><span class="lineNum"> 6002 </span> : </a>
|
|
<a name="6003"><span class="lineNum"> 6003 </span><span class="lineCov"> 1782019 : if (interactive == 0)</span></a>
|
|
<a name="6004"><span class="lineNum"> 6004 </span><span class="lineCov"> 1782019 : print_offending_line ();</span></a>
|
|
<a name="6005"><span class="lineNum"> 6005 </span> : </a>
|
|
<a name="6006"><span class="lineNum"> 6006 </span><span class="lineCov"> 1782019 : last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;</span></a>
|
|
<a name="6007"><span class="lineNum"> 6007 </span><span class="lineCov"> 1782019 : return;</span></a>
|
|
<a name="6008"><span class="lineNum"> 6008 </span> : }</a>
|
|
<a name="6009"><span class="lineNum"> 6009 </span> : </a>
|
|
<a name="6010"><span class="lineNum"> 6010 </span> : /* If looking at the current token doesn't prove fruitful, try to find the</a>
|
|
<a name="6011"><span class="lineNum"> 6011 </span> : offending token by analyzing the text of the input line near the current</a>
|
|
<a name="6012"><span class="lineNum"> 6012 </span> : input line index and report what we find. */</a>
|
|
<a name="6013"><span class="lineNum"> 6013 </span><span class="lineCov"> 322308 : if (shell_input_line && *shell_input_line)</span></a>
|
|
<a name="6014"><span class="lineNum"> 6014 </span> : {</a>
|
|
<a name="6015"><span class="lineNum"> 6015 </span><span class="lineCov"> 36 : msg = error_token_from_text ();</span></a>
|
|
<a name="6016"><span class="lineNum"> 6016 </span><span class="lineCov"> 36 : if (msg)</span></a>
|
|
<a name="6017"><span class="lineNum"> 6017 </span> : {</a>
|
|
<a name="6018"><span class="lineNum"> 6018 </span><span class="lineCov"> 36 : parser_error (line_number, _("syntax error near `%s'"), msg);</span></a>
|
|
<a name="6019"><span class="lineNum"> 6019 </span><span class="lineCov"> 36 : free (msg);</span></a>
|
|
<a name="6020"><span class="lineNum"> 6020 </span> : }</a>
|
|
<a name="6021"><span class="lineNum"> 6021 </span> : </a>
|
|
<a name="6022"><span class="lineNum"> 6022 </span> : /* If not interactive, print the line containing the error. */</a>
|
|
<a name="6023"><span class="lineNum"> 6023 </span><span class="lineCov"> 36 : if (interactive == 0)</span></a>
|
|
<a name="6024"><span class="lineNum"> 6024 </span><span class="lineCov"> 36 : print_offending_line ();</span></a>
|
|
<a name="6025"><span class="lineNum"> 6025 </span> : }</a>
|
|
<a name="6026"><span class="lineNum"> 6026 </span> : else</a>
|
|
<a name="6027"><span class="lineNum"> 6027 </span> : {</a>
|
|
<a name="6028"><span class="lineNum"> 6028 </span><span class="lineCov"> 322272 : msg = EOF_Reached ? _("syntax error: unexpected end of file") : _("syntax error");</span></a>
|
|
<a name="6029"><span class="lineNum"> 6029 </span><span class="lineCov"> 322272 : parser_error (line_number, "%s", msg);</span></a>
|
|
<a name="6030"><span class="lineNum"> 6030 </span> : /* When the shell is interactive, this file uses EOF_Reached</a>
|
|
<a name="6031"><span class="lineNum"> 6031 </span> : only for error reporting. Other mechanisms are used to</a>
|
|
<a name="6032"><span class="lineNum"> 6032 </span> : decide whether or not to exit. */</a>
|
|
<a name="6033"><span class="lineNum"> 6033 </span><span class="lineCov"> 322272 : if (interactive && EOF_Reached)</span></a>
|
|
<a name="6034"><span class="lineNum"> 6034 </span><span class="lineNoCov"> 0 : EOF_Reached = 0;</span></a>
|
|
<a name="6035"><span class="lineNum"> 6035 </span> : }</a>
|
|
<a name="6036"><span class="lineNum"> 6036 </span> : </a>
|
|
<a name="6037"><span class="lineNum"> 6037 </span><span class="lineCov"> 643147 : last_command_exit_value = parse_and_execute_level ? EX_BADSYNTAX : EX_BADUSAGE;</span></a>
|
|
<a name="6038"><span class="lineNum"> 6038 </span> : }</a>
|
|
<a name="6039"><span class="lineNum"> 6039 </span> : </a>
|
|
<a name="6040"><span class="lineNum"> 6040 </span> : #if 0</a>
|
|
<a name="6041"><span class="lineNum"> 6041 </span> : /* ??? Needed function. ??? We have to be able to discard the constructs</a>
|
|
<a name="6042"><span class="lineNum"> 6042 </span> : created during parsing. In the case of error, we want to return</a>
|
|
<a name="6043"><span class="lineNum"> 6043 </span> : allocated objects to the memory pool. In the case of no error, we want</a>
|
|
<a name="6044"><span class="lineNum"> 6044 </span> : to throw away the information about where the allocated objects live.</a>
|
|
<a name="6045"><span class="lineNum"> 6045 </span> : (dispose_command () will actually free the command.) */</a>
|
|
<a name="6046"><span class="lineNum"> 6046 </span> : static void</a>
|
|
<a name="6047"><span class="lineNum"> 6047 </span> : discard_parser_constructs (error_p)</a>
|
|
<a name="6048"><span class="lineNum"> 6048 </span> : int error_p;</a>
|
|
<a name="6049"><span class="lineNum"> 6049 </span> : {</a>
|
|
<a name="6050"><span class="lineNum"> 6050 </span> : }</a>
|
|
<a name="6051"><span class="lineNum"> 6051 </span> : #endif</a>
|
|
<a name="6052"><span class="lineNum"> 6052 </span> : </a>
|
|
<a name="6053"><span class="lineNum"> 6053 </span> : /************************************************</a>
|
|
<a name="6054"><span class="lineNum"> 6054 </span> : * *</a>
|
|
<a name="6055"><span class="lineNum"> 6055 </span> : * EOF HANDLING *</a>
|
|
<a name="6056"><span class="lineNum"> 6056 </span> : * *</a>
|
|
<a name="6057"><span class="lineNum"> 6057 </span> : ************************************************/</a>
|
|
<a name="6058"><span class="lineNum"> 6058 </span> : </a>
|
|
<a name="6059"><span class="lineNum"> 6059 </span> : /* Do that silly `type "bye" to exit' stuff. You know, "ignoreeof". */</a>
|
|
<a name="6060"><span class="lineNum"> 6060 </span> : </a>
|
|
<a name="6061"><span class="lineNum"> 6061 </span> : /* A flag denoting whether or not ignoreeof is set. */</a>
|
|
<a name="6062"><span class="lineNum"> 6062 </span> : int ignoreeof = 0;</a>
|
|
<a name="6063"><span class="lineNum"> 6063 </span> : </a>
|
|
<a name="6064"><span class="lineNum"> 6064 </span> : /* The number of times that we have encountered an EOF character without</a>
|
|
<a name="6065"><span class="lineNum"> 6065 </span> : another character intervening. When this gets above the limit, the</a>
|
|
<a name="6066"><span class="lineNum"> 6066 </span> : shell terminates. */</a>
|
|
<a name="6067"><span class="lineNum"> 6067 </span> : int eof_encountered = 0;</a>
|
|
<a name="6068"><span class="lineNum"> 6068 </span> : </a>
|
|
<a name="6069"><span class="lineNum"> 6069 </span> : /* The limit for eof_encountered. */</a>
|
|
<a name="6070"><span class="lineNum"> 6070 </span> : int eof_encountered_limit = 10;</a>
|
|
<a name="6071"><span class="lineNum"> 6071 </span> : </a>
|
|
<a name="6072"><span class="lineNum"> 6072 </span> : /* If we have EOF as the only input unit, this user wants to leave</a>
|
|
<a name="6073"><span class="lineNum"> 6073 </span> : the shell. If the shell is not interactive, then just leave.</a>
|
|
<a name="6074"><span class="lineNum"> 6074 </span> : Otherwise, if ignoreeof is set, and we haven't done this the</a>
|
|
<a name="6075"><span class="lineNum"> 6075 </span> : required number of times in a row, print a message. */</a>
|
|
<a name="6076"><span class="lineNum"> 6076 </span> : static void</a>
|
|
<a name="6077"><span class="lineNum"> 6077 </span><span class="lineCov"> 110845 : handle_eof_input_unit ()</span></a>
|
|
<a name="6078"><span class="lineNum"> 6078 </span> : {</a>
|
|
<a name="6079"><span class="lineNum"> 6079 </span><span class="lineCov"> 110845 : if (interactive)</span></a>
|
|
<a name="6080"><span class="lineNum"> 6080 </span> : {</a>
|
|
<a name="6081"><span class="lineNum"> 6081 </span> : /* shell.c may use this to decide whether or not to write out the</a>
|
|
<a name="6082"><span class="lineNum"> 6082 </span> : history, among other things. We use it only for error reporting</a>
|
|
<a name="6083"><span class="lineNum"> 6083 </span> : in this file. */</a>
|
|
<a name="6084"><span class="lineNum"> 6084 </span><span class="lineNoCov"> 0 : if (EOF_Reached)</span></a>
|
|
<a name="6085"><span class="lineNum"> 6085 </span><span class="lineNoCov"> 0 : EOF_Reached = 0;</span></a>
|
|
<a name="6086"><span class="lineNum"> 6086 </span> : </a>
|
|
<a name="6087"><span class="lineNum"> 6087 </span> : /* If the user wants to "ignore" eof, then let her do so, kind of. */</a>
|
|
<a name="6088"><span class="lineNum"> 6088 </span><span class="lineNoCov"> 0 : if (ignoreeof)</span></a>
|
|
<a name="6089"><span class="lineNum"> 6089 </span> : {</a>
|
|
<a name="6090"><span class="lineNum"> 6090 </span><span class="lineNoCov"> 0 : if (eof_encountered < eof_encountered_limit)</span></a>
|
|
<a name="6091"><span class="lineNum"> 6091 </span> : {</a>
|
|
<a name="6092"><span class="lineNum"> 6092 </span><span class="lineNoCov"> 0 : fprintf (stderr, _("Use \"%s\" to leave the shell.\n"),</span></a>
|
|
<a name="6093"><span class="lineNum"> 6093 </span><span class="lineNoCov"> 0 : login_shell ? "logout" : "exit");</span></a>
|
|
<a name="6094"><span class="lineNum"> 6094 </span><span class="lineNoCov"> 0 : eof_encountered++;</span></a>
|
|
<a name="6095"><span class="lineNum"> 6095 </span> : /* Reset the parsing state. */</a>
|
|
<a name="6096"><span class="lineNum"> 6096 </span><span class="lineNoCov"> 0 : last_read_token = current_token = '\n';</span></a>
|
|
<a name="6097"><span class="lineNum"> 6097 </span> : /* Reset the prompt string to be $PS1. */</a>
|
|
<a name="6098"><span class="lineNum"> 6098 </span><span class="lineNoCov"> 0 : prompt_string_pointer = (char **)NULL;</span></a>
|
|
<a name="6099"><span class="lineNum"> 6099 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="6100"><span class="lineNum"> 6100 </span><span class="lineNoCov"> 0 : return;</span></a>
|
|
<a name="6101"><span class="lineNum"> 6101 </span> : }</a>
|
|
<a name="6102"><span class="lineNum"> 6102 </span> : }</a>
|
|
<a name="6103"><span class="lineNum"> 6103 </span> : </a>
|
|
<a name="6104"><span class="lineNum"> 6104 </span> : /* In this case EOF should exit the shell. Do it now. */</a>
|
|
<a name="6105"><span class="lineNum"> 6105 </span><span class="lineNoCov"> 0 : reset_parser ();</span></a>
|
|
<a name="6106"><span class="lineNum"> 6106 </span><span class="lineNoCov"> 0 : exit_builtin ((WORD_LIST *)NULL);</span></a>
|
|
<a name="6107"><span class="lineNum"> 6107 </span> : }</a>
|
|
<a name="6108"><span class="lineNum"> 6108 </span> : else</a>
|
|
<a name="6109"><span class="lineNum"> 6109 </span> : {</a>
|
|
<a name="6110"><span class="lineNum"> 6110 </span> : /* We don't write history files, etc., for non-interactive shells. */</a>
|
|
<a name="6111"><span class="lineNum"> 6111 </span><span class="lineCov"> 110845 : EOF_Reached = 1;</span></a>
|
|
<a name="6112"><span class="lineNum"> 6112 </span> : }</a>
|
|
<a name="6113"><span class="lineNum"> 6113 </span> : }</a>
|
|
<a name="6114"><span class="lineNum"> 6114 </span> : </a>
|
|
<a name="6115"><span class="lineNum"> 6115 </span> : /************************************************</a>
|
|
<a name="6116"><span class="lineNum"> 6116 </span> : * *</a>
|
|
<a name="6117"><span class="lineNum"> 6117 </span> : * STRING PARSING FUNCTIONS *</a>
|
|
<a name="6118"><span class="lineNum"> 6118 </span> : * *</a>
|
|
<a name="6119"><span class="lineNum"> 6119 </span> : ************************************************/</a>
|
|
<a name="6120"><span class="lineNum"> 6120 </span> : </a>
|
|
<a name="6121"><span class="lineNum"> 6121 </span> : /* It's very important that these two functions treat the characters</a>
|
|
<a name="6122"><span class="lineNum"> 6122 </span> : between ( and ) identically. */</a>
|
|
<a name="6123"><span class="lineNum"> 6123 </span> : </a>
|
|
<a name="6124"><span class="lineNum"> 6124 </span> : static WORD_LIST parse_string_error;</a>
|
|
<a name="6125"><span class="lineNum"> 6125 </span> : </a>
|
|
<a name="6126"><span class="lineNum"> 6126 </span> : /* Take a string and run it through the shell parser, returning the</a>
|
|
<a name="6127"><span class="lineNum"> 6127 </span> : resultant word list. Used by compound array assignment. */</a>
|
|
<a name="6128"><span class="lineNum"> 6128 </span> : WORD_LIST *</a>
|
|
<a name="6129"><span class="lineNum"> 6129 </span><span class="lineCov"> 37 : parse_string_to_word_list (s, flags, whom)</span></a>
|
|
<a name="6130"><span class="lineNum"> 6130 </span> : char *s;</a>
|
|
<a name="6131"><span class="lineNum"> 6131 </span> : int flags;</a>
|
|
<a name="6132"><span class="lineNum"> 6132 </span> : const char *whom;</a>
|
|
<a name="6133"><span class="lineNum"> 6133 </span> : {</a>
|
|
<a name="6134"><span class="lineNum"> 6134 </span><span class="lineCov"> 37 : WORD_LIST *wl;</span></a>
|
|
<a name="6135"><span class="lineNum"> 6135 </span><span class="lineCov"> 37 : int tok, orig_current_token, orig_line_number, orig_input_terminator;</span></a>
|
|
<a name="6136"><span class="lineNum"> 6136 </span><span class="lineCov"> 37 : int orig_line_count;</span></a>
|
|
<a name="6137"><span class="lineNum"> 6137 </span><span class="lineCov"> 37 : int old_echo_input, old_expand_aliases;</span></a>
|
|
<a name="6138"><span class="lineNum"> 6138 </span> : #if defined (HISTORY)</a>
|
|
<a name="6139"><span class="lineNum"> 6139 </span> : int old_remember_on_history, old_history_expansion_inhibited;</a>
|
|
<a name="6140"><span class="lineNum"> 6140 </span> : #endif</a>
|
|
<a name="6141"><span class="lineNum"> 6141 </span> : </a>
|
|
<a name="6142"><span class="lineNum"> 6142 </span> : #if defined (HISTORY)</a>
|
|
<a name="6143"><span class="lineNum"> 6143 </span> : old_remember_on_history = remember_on_history;</a>
|
|
<a name="6144"><span class="lineNum"> 6144 </span> : # if defined (BANG_HISTORY)</a>
|
|
<a name="6145"><span class="lineNum"> 6145 </span> : old_history_expansion_inhibited = history_expansion_inhibited;</a>
|
|
<a name="6146"><span class="lineNum"> 6146 </span> : # endif</a>
|
|
<a name="6147"><span class="lineNum"> 6147 </span> : bash_history_disable ();</a>
|
|
<a name="6148"><span class="lineNum"> 6148 </span> : #endif</a>
|
|
<a name="6149"><span class="lineNum"> 6149 </span> : </a>
|
|
<a name="6150"><span class="lineNum"> 6150 </span><span class="lineCov"> 37 : orig_line_number = line_number;</span></a>
|
|
<a name="6151"><span class="lineNum"> 6151 </span><span class="lineCov"> 37 : orig_line_count = current_command_line_count;</span></a>
|
|
<a name="6152"><span class="lineNum"> 6152 </span><span class="lineCov"> 37 : orig_input_terminator = shell_input_line_terminator;</span></a>
|
|
<a name="6153"><span class="lineNum"> 6153 </span><span class="lineCov"> 37 : old_echo_input = echo_input_at_read;</span></a>
|
|
<a name="6154"><span class="lineNum"> 6154 </span><span class="lineCov"> 37 : old_expand_aliases = expand_aliases;</span></a>
|
|
<a name="6155"><span class="lineNum"> 6155 </span> : </a>
|
|
<a name="6156"><span class="lineNum"> 6156 </span><span class="lineCov"> 37 : push_stream (1);</span></a>
|
|
<a name="6157"><span class="lineNum"> 6157 </span><span class="lineCov"> 37 : last_read_token = WORD; /* WORD to allow reserved words here */</span></a>
|
|
<a name="6158"><span class="lineNum"> 6158 </span><span class="lineCov"> 37 : current_command_line_count = 0;</span></a>
|
|
<a name="6159"><span class="lineNum"> 6159 </span><span class="lineCov"> 37 : echo_input_at_read = expand_aliases = 0;</span></a>
|
|
<a name="6160"><span class="lineNum"> 6160 </span> : </a>
|
|
<a name="6161"><span class="lineNum"> 6161 </span><span class="lineCov"> 37 : with_input_from_string (s, whom);</span></a>
|
|
<a name="6162"><span class="lineNum"> 6162 </span><span class="lineCov"> 37 : wl = (WORD_LIST *)NULL;</span></a>
|
|
<a name="6163"><span class="lineNum"> 6163 </span> : </a>
|
|
<a name="6164"><span class="lineNum"> 6164 </span><span class="lineCov"> 37 : if (flags & 1)</span></a>
|
|
<a name="6165"><span class="lineNum"> 6165 </span><span class="lineCov"> 37 : parser_state |= PST_COMPASSIGN|PST_REPARSE;</span></a>
|
|
<a name="6166"><span class="lineNum"> 6166 </span> : </a>
|
|
<a name="6167"><span class="lineNum"> 6167 </span><span class="lineCov"> 46 : while ((tok = read_token (READ)) != yacc_EOF)</span></a>
|
|
<a name="6168"><span class="lineNum"> 6168 </span> : {</a>
|
|
<a name="6169"><span class="lineNum"> 6169 </span><span class="lineCov"> 18 : if (tok == '\n' && *bash_input.location.string == '\0')</span></a>
|
|
<a name="6170"><span class="lineNum"> 6170 </span> : break;</a>
|
|
<a name="6171"><span class="lineNum"> 6171 </span><span class="lineCov"> 18 : if (tok == '\n') /* Allow newlines in compound assignments */</span></a>
|
|
<a name="6172"><span class="lineNum"> 6172 </span> : continue;</a>
|
|
<a name="6173"><span class="lineNum"> 6173 </span><span class="lineCov"> 18 : if (tok != WORD && tok != ASSIGNMENT_WORD)</span></a>
|
|
<a name="6174"><span class="lineNum"> 6174 </span> : {</a>
|
|
<a name="6175"><span class="lineNum"> 6175 </span><span class="lineCov"> 9 : line_number = orig_line_number + line_number - 1;</span></a>
|
|
<a name="6176"><span class="lineNum"> 6176 </span><span class="lineCov"> 9 : orig_current_token = current_token;</span></a>
|
|
<a name="6177"><span class="lineNum"> 6177 </span><span class="lineCov"> 9 : current_token = tok;</span></a>
|
|
<a name="6178"><span class="lineNum"> 6178 </span><span class="lineCov"> 9 : yyerror (NULL); /* does the right thing */</span></a>
|
|
<a name="6179"><span class="lineNum"> 6179 </span><span class="lineCov"> 9 : current_token = orig_current_token;</span></a>
|
|
<a name="6180"><span class="lineNum"> 6180 </span><span class="lineCov"> 9 : if (wl)</span></a>
|
|
<a name="6181"><span class="lineNum"> 6181 </span><span class="lineCov"> 9 : dispose_words (wl);</span></a>
|
|
<a name="6182"><span class="lineNum"> 6182 </span> : wl = &parse_string_error;</a>
|
|
<a name="6183"><span class="lineNum"> 6183 </span> : break;</a>
|
|
<a name="6184"><span class="lineNum"> 6184 </span> : }</a>
|
|
<a name="6185"><span class="lineNum"> 6185 </span><span class="lineCov"> 9 : wl = make_word_list (yylval.word, wl);</span></a>
|
|
<a name="6186"><span class="lineNum"> 6186 </span> : }</a>
|
|
<a name="6187"><span class="lineNum"> 6187 </span> : </a>
|
|
<a name="6188"><span class="lineNum"> 6188 </span><span class="lineCov"> 37 : last_read_token = '\n';</span></a>
|
|
<a name="6189"><span class="lineNum"> 6189 </span><span class="lineCov"> 37 : pop_stream ();</span></a>
|
|
<a name="6190"><span class="lineNum"> 6190 </span> : </a>
|
|
<a name="6191"><span class="lineNum"> 6191 </span> : #if defined (HISTORY)</a>
|
|
<a name="6192"><span class="lineNum"> 6192 </span> : remember_on_history = old_remember_on_history;</a>
|
|
<a name="6193"><span class="lineNum"> 6193 </span> : # if defined (BANG_HISTORY)</a>
|
|
<a name="6194"><span class="lineNum"> 6194 </span> : history_expansion_inhibited = old_history_expansion_inhibited;</a>
|
|
<a name="6195"><span class="lineNum"> 6195 </span> : # endif /* BANG_HISTORY */</a>
|
|
<a name="6196"><span class="lineNum"> 6196 </span> : #endif /* HISTORY */</a>
|
|
<a name="6197"><span class="lineNum"> 6197 </span> : </a>
|
|
<a name="6198"><span class="lineNum"> 6198 </span><span class="lineCov"> 37 : echo_input_at_read = old_echo_input;</span></a>
|
|
<a name="6199"><span class="lineNum"> 6199 </span><span class="lineCov"> 37 : expand_aliases = old_expand_aliases;</span></a>
|
|
<a name="6200"><span class="lineNum"> 6200 </span> : </a>
|
|
<a name="6201"><span class="lineNum"> 6201 </span><span class="lineCov"> 37 : current_command_line_count = orig_line_count;</span></a>
|
|
<a name="6202"><span class="lineNum"> 6202 </span><span class="lineCov"> 37 : shell_input_line_terminator = orig_input_terminator;</span></a>
|
|
<a name="6203"><span class="lineNum"> 6203 </span> : </a>
|
|
<a name="6204"><span class="lineNum"> 6204 </span><span class="lineCov"> 37 : if (flags & 1)</span></a>
|
|
<a name="6205"><span class="lineNum"> 6205 </span><span class="lineCov"> 37 : parser_state &= ~(PST_COMPASSIGN|PST_REPARSE);</span></a>
|
|
<a name="6206"><span class="lineNum"> 6206 </span> : </a>
|
|
<a name="6207"><span class="lineNum"> 6207 </span><span class="lineCov"> 37 : if (wl == &parse_string_error)</span></a>
|
|
<a name="6208"><span class="lineNum"> 6208 </span> : {</a>
|
|
<a name="6209"><span class="lineNum"> 6209 </span><span class="lineCov"> 9 : last_command_exit_value = EXECUTION_FAILURE;</span></a>
|
|
<a name="6210"><span class="lineNum"> 6210 </span><span class="lineCov"> 9 : if (interactive_shell == 0 && posixly_correct)</span></a>
|
|
<a name="6211"><span class="lineNum"> 6211 </span><span class="lineNoCov"> 0 : jump_to_top_level (FORCE_EOF);</span></a>
|
|
<a name="6212"><span class="lineNum"> 6212 </span> : else</a>
|
|
<a name="6213"><span class="lineNum"> 6213 </span><span class="lineCov"> 9 : jump_to_top_level (DISCARD);</span></a>
|
|
<a name="6214"><span class="lineNum"> 6214 </span> : }</a>
|
|
<a name="6215"><span class="lineNum"> 6215 </span> : </a>
|
|
<a name="6216"><span class="lineNum"> 6216 </span><span class="lineCov"> 28 : return (REVERSE_LIST (wl, WORD_LIST *));</span></a>
|
|
<a name="6217"><span class="lineNum"> 6217 </span> : }</a>
|
|
<a name="6218"><span class="lineNum"> 6218 </span> : </a>
|
|
<a name="6219"><span class="lineNum"> 6219 </span> : static char *</a>
|
|
<a name="6220"><span class="lineNum"> 6220 </span><span class="lineCov"> 273 : parse_compound_assignment (retlenp)</span></a>
|
|
<a name="6221"><span class="lineNum"> 6221 </span> : int *retlenp;</a>
|
|
<a name="6222"><span class="lineNum"> 6222 </span> : {</a>
|
|
<a name="6223"><span class="lineNum"> 6223 </span><span class="lineCov"> 273 : WORD_LIST *wl, *rl;</span></a>
|
|
<a name="6224"><span class="lineNum"> 6224 </span><span class="lineCov"> 273 : int tok, orig_line_number, orig_token_size, orig_last_token, assignok;</span></a>
|
|
<a name="6225"><span class="lineNum"> 6225 </span><span class="lineCov"> 273 : char *saved_token, *ret;</span></a>
|
|
<a name="6226"><span class="lineNum"> 6226 </span> : </a>
|
|
<a name="6227"><span class="lineNum"> 6227 </span><span class="lineCov"> 273 : saved_token = token;</span></a>
|
|
<a name="6228"><span class="lineNum"> 6228 </span><span class="lineCov"> 273 : orig_token_size = token_buffer_size;</span></a>
|
|
<a name="6229"><span class="lineNum"> 6229 </span><span class="lineCov"> 273 : orig_line_number = line_number;</span></a>
|
|
<a name="6230"><span class="lineNum"> 6230 </span><span class="lineCov"> 273 : orig_last_token = last_read_token;</span></a>
|
|
<a name="6231"><span class="lineNum"> 6231 </span> : </a>
|
|
<a name="6232"><span class="lineNum"> 6232 </span><span class="lineCov"> 273 : last_read_token = WORD; /* WORD to allow reserved words here */</span></a>
|
|
<a name="6233"><span class="lineNum"> 6233 </span> : </a>
|
|
<a name="6234"><span class="lineNum"> 6234 </span><span class="lineCov"> 273 : token = (char *)NULL;</span></a>
|
|
<a name="6235"><span class="lineNum"> 6235 </span><span class="lineCov"> 273 : token_buffer_size = 0;</span></a>
|
|
<a name="6236"><span class="lineNum"> 6236 </span> : </a>
|
|
<a name="6237"><span class="lineNum"> 6237 </span><span class="lineCov"> 273 : assignok = parser_state&PST_ASSIGNOK; /* XXX */</span></a>
|
|
<a name="6238"><span class="lineNum"> 6238 </span> : </a>
|
|
<a name="6239"><span class="lineNum"> 6239 </span><span class="lineCov"> 273 : wl = (WORD_LIST *)NULL; /* ( */</span></a>
|
|
<a name="6240"><span class="lineNum"> 6240 </span><span class="lineCov"> 273 : parser_state |= PST_COMPASSIGN;</span></a>
|
|
<a name="6241"><span class="lineNum"> 6241 </span> : </a>
|
|
<a name="6242"><span class="lineNum"> 6242 </span><span class="lineCov"> 1666 : while ((tok = read_token (READ)) != ')')</span></a>
|
|
<a name="6243"><span class="lineNum"> 6243 </span> : {</a>
|
|
<a name="6244"><span class="lineNum"> 6244 </span><span class="lineCov"> 1599 : if (tok == '\n') /* Allow newlines in compound assignments */</span></a>
|
|
<a name="6245"><span class="lineNum"> 6245 </span> : {</a>
|
|
<a name="6246"><span class="lineNum"> 6246 </span><span class="lineCov"> 644 : if (SHOULD_PROMPT ())</span></a>
|
|
<a name="6247"><span class="lineNum"> 6247 </span><span class="lineNoCov"> 0 : prompt_again ();</span></a>
|
|
<a name="6248"><span class="lineNum"> 6248 </span><span class="lineCov"> 644 : continue;</span></a>
|
|
<a name="6249"><span class="lineNum"> 6249 </span> : }</a>
|
|
<a name="6250"><span class="lineNum"> 6250 </span><span class="lineCov"> 955 : if (tok != WORD && tok != ASSIGNMENT_WORD)</span></a>
|
|
<a name="6251"><span class="lineNum"> 6251 </span> : {</a>
|
|
<a name="6252"><span class="lineNum"> 6252 </span><span class="lineCov"> 206 : current_token = tok; /* for error reporting */</span></a>
|
|
<a name="6253"><span class="lineNum"> 6253 </span><span class="lineCov"> 206 : if (tok == yacc_EOF) /* ( */</span></a>
|
|
<a name="6254"><span class="lineNum"> 6254 </span><span class="lineCov"> 10 : parser_error (orig_line_number, _("unexpected EOF while looking for matching `)'"));</span></a>
|
|
<a name="6255"><span class="lineNum"> 6255 </span> : else</a>
|
|
<a name="6256"><span class="lineNum"> 6256 </span><span class="lineCov"> 196 : yyerror(NULL); /* does the right thing */</span></a>
|
|
<a name="6257"><span class="lineNum"> 6257 </span><span class="lineCov"> 206 : if (wl)</span></a>
|
|
<a name="6258"><span class="lineNum"> 6258 </span><span class="lineCov"> 188 : dispose_words (wl);</span></a>
|
|
<a name="6259"><span class="lineNum"> 6259 </span> : wl = &parse_string_error;</a>
|
|
<a name="6260"><span class="lineNum"> 6260 </span> : break;</a>
|
|
<a name="6261"><span class="lineNum"> 6261 </span> : }</a>
|
|
<a name="6262"><span class="lineNum"> 6262 </span><span class="lineCov"> 749 : wl = make_word_list (yylval.word, wl);</span></a>
|
|
<a name="6263"><span class="lineNum"> 6263 </span> : }</a>
|
|
<a name="6264"><span class="lineNum"> 6264 </span> : </a>
|
|
<a name="6265"><span class="lineNum"> 6265 </span><span class="lineCov"> 273 : FREE (token);</span></a>
|
|
<a name="6266"><span class="lineNum"> 6266 </span><span class="lineCov"> 273 : token = saved_token;</span></a>
|
|
<a name="6267"><span class="lineNum"> 6267 </span><span class="lineCov"> 273 : token_buffer_size = orig_token_size;</span></a>
|
|
<a name="6268"><span class="lineNum"> 6268 </span> : </a>
|
|
<a name="6269"><span class="lineNum"> 6269 </span><span class="lineCov"> 273 : parser_state &= ~PST_COMPASSIGN;</span></a>
|
|
<a name="6270"><span class="lineNum"> 6270 </span> : </a>
|
|
<a name="6271"><span class="lineNum"> 6271 </span><span class="lineCov"> 273 : if (wl == &parse_string_error)</span></a>
|
|
<a name="6272"><span class="lineNum"> 6272 </span> : {</a>
|
|
<a name="6273"><span class="lineNum"> 6273 </span><span class="lineCov"> 206 : last_command_exit_value = EXECUTION_FAILURE;</span></a>
|
|
<a name="6274"><span class="lineNum"> 6274 </span><span class="lineCov"> 206 : last_read_token = '\n'; /* XXX */</span></a>
|
|
<a name="6275"><span class="lineNum"> 6275 </span><span class="lineCov"> 206 : if (interactive_shell == 0 && posixly_correct)</span></a>
|
|
<a name="6276"><span class="lineNum"> 6276 </span><span class="lineNoCov"> 0 : jump_to_top_level (FORCE_EOF);</span></a>
|
|
<a name="6277"><span class="lineNum"> 6277 </span> : else</a>
|
|
<a name="6278"><span class="lineNum"> 6278 </span><span class="lineCov"> 206 : jump_to_top_level (DISCARD);</span></a>
|
|
<a name="6279"><span class="lineNum"> 6279 </span> : }</a>
|
|
<a name="6280"><span class="lineNum"> 6280 </span> : </a>
|
|
<a name="6281"><span class="lineNum"> 6281 </span><span class="lineCov"> 67 : last_read_token = orig_last_token; /* XXX - was WORD? */</span></a>
|
|
<a name="6282"><span class="lineNum"> 6282 </span> : </a>
|
|
<a name="6283"><span class="lineNum"> 6283 </span><span class="lineCov"> 67 : if (wl)</span></a>
|
|
<a name="6284"><span class="lineNum"> 6284 </span> : {</a>
|
|
<a name="6285"><span class="lineNum"> 6285 </span><span class="lineCov"> 18 : rl = REVERSE_LIST (wl, WORD_LIST *);</span></a>
|
|
<a name="6286"><span class="lineNum"> 6286 </span><span class="lineCov"> 18 : ret = string_list (rl);</span></a>
|
|
<a name="6287"><span class="lineNum"> 6287 </span><span class="lineCov"> 18 : dispose_words (rl);</span></a>
|
|
<a name="6288"><span class="lineNum"> 6288 </span> : }</a>
|
|
<a name="6289"><span class="lineNum"> 6289 </span> : else</a>
|
|
<a name="6290"><span class="lineNum"> 6290 </span> : ret = (char *)NULL;</a>
|
|
<a name="6291"><span class="lineNum"> 6291 </span> : </a>
|
|
<a name="6292"><span class="lineNum"> 6292 </span><span class="lineCov"> 67 : if (retlenp)</span></a>
|
|
<a name="6293"><span class="lineNum"> 6293 </span><span class="lineCov"> 67 : *retlenp = (ret && *ret) ? strlen (ret) : 0;</span></a>
|
|
<a name="6294"><span class="lineNum"> 6294 </span> : </a>
|
|
<a name="6295"><span class="lineNum"> 6295 </span><span class="lineCov"> 67 : if (assignok)</span></a>
|
|
<a name="6296"><span class="lineNum"> 6296 </span><span class="lineNoCov"> 0 : parser_state |= PST_ASSIGNOK;</span></a>
|
|
<a name="6297"><span class="lineNum"> 6297 </span> : </a>
|
|
<a name="6298"><span class="lineNum"> 6298 </span><span class="lineCov"> 67 : return ret;</span></a>
|
|
<a name="6299"><span class="lineNum"> 6299 </span> : }</a>
|
|
<a name="6300"><span class="lineNum"> 6300 </span> : </a>
|
|
<a name="6301"><span class="lineNum"> 6301 </span> : /************************************************</a>
|
|
<a name="6302"><span class="lineNum"> 6302 </span> : * *</a>
|
|
<a name="6303"><span class="lineNum"> 6303 </span> : * SAVING AND RESTORING PARTIAL PARSE STATE *</a>
|
|
<a name="6304"><span class="lineNum"> 6304 </span> : * *</a>
|
|
<a name="6305"><span class="lineNum"> 6305 </span> : ************************************************/</a>
|
|
<a name="6306"><span class="lineNum"> 6306 </span> : </a>
|
|
<a name="6307"><span class="lineNum"> 6307 </span> : sh_parser_state_t *</a>
|
|
<a name="6308"><span class="lineNum"> 6308 </span><span class="lineCov"> 81 : save_parser_state (ps)</span></a>
|
|
<a name="6309"><span class="lineNum"> 6309 </span> : sh_parser_state_t *ps;</a>
|
|
<a name="6310"><span class="lineNum"> 6310 </span> : {</a>
|
|
<a name="6311"><span class="lineNum"> 6311 </span><span class="lineCov"> 81 : if (ps == 0)</span></a>
|
|
<a name="6312"><span class="lineNum"> 6312 </span><span class="lineNoCov"> 0 : ps = (sh_parser_state_t *)xmalloc (sizeof (sh_parser_state_t));</span></a>
|
|
<a name="6313"><span class="lineNum"> 6313 </span><span class="lineCov"> 81 : if (ps == 0)</span></a>
|
|
<a name="6314"><span class="lineNum"> 6314 </span> : return ((sh_parser_state_t *)NULL);</a>
|
|
<a name="6315"><span class="lineNum"> 6315 </span> : </a>
|
|
<a name="6316"><span class="lineNum"> 6316 </span><span class="lineCov"> 81 : ps->parser_state = parser_state;</span></a>
|
|
<a name="6317"><span class="lineNum"> 6317 </span><span class="lineCov"> 81 : ps->token_state = save_token_state ();</span></a>
|
|
<a name="6318"><span class="lineNum"> 6318 </span> : </a>
|
|
<a name="6319"><span class="lineNum"> 6319 </span><span class="lineCov"> 81 : ps->input_line_terminator = shell_input_line_terminator;</span></a>
|
|
<a name="6320"><span class="lineNum"> 6320 </span><span class="lineCov"> 81 : ps->eof_encountered = eof_encountered;</span></a>
|
|
<a name="6321"><span class="lineNum"> 6321 </span> : </a>
|
|
<a name="6322"><span class="lineNum"> 6322 </span><span class="lineCov"> 81 : ps->prompt_string_pointer = prompt_string_pointer;</span></a>
|
|
<a name="6323"><span class="lineNum"> 6323 </span> : </a>
|
|
<a name="6324"><span class="lineNum"> 6324 </span><span class="lineCov"> 81 : ps->current_command_line_count = current_command_line_count;</span></a>
|
|
<a name="6325"><span class="lineNum"> 6325 </span> : </a>
|
|
<a name="6326"><span class="lineNum"> 6326 </span> : #if defined (HISTORY)</a>
|
|
<a name="6327"><span class="lineNum"> 6327 </span> : ps->remember_on_history = remember_on_history;</a>
|
|
<a name="6328"><span class="lineNum"> 6328 </span> : # if defined (BANG_HISTORY)</a>
|
|
<a name="6329"><span class="lineNum"> 6329 </span> : ps->history_expansion_inhibited = history_expansion_inhibited;</a>
|
|
<a name="6330"><span class="lineNum"> 6330 </span> : # endif</a>
|
|
<a name="6331"><span class="lineNum"> 6331 </span> : #endif</a>
|
|
<a name="6332"><span class="lineNum"> 6332 </span> : </a>
|
|
<a name="6333"><span class="lineNum"> 6333 </span><span class="lineCov"> 81 : ps->last_command_exit_value = last_command_exit_value;</span></a>
|
|
<a name="6334"><span class="lineNum"> 6334 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="6335"><span class="lineNum"> 6335 </span><span class="lineCov"> 81 : ps->pipestatus = save_pipestatus_array ();</span></a>
|
|
<a name="6336"><span class="lineNum"> 6336 </span> : #endif</a>
|
|
<a name="6337"><span class="lineNum"> 6337 </span> : </a>
|
|
<a name="6338"><span class="lineNum"> 6338 </span><span class="lineCov"> 81 : ps->last_shell_builtin = last_shell_builtin;</span></a>
|
|
<a name="6339"><span class="lineNum"> 6339 </span><span class="lineCov"> 81 : ps->this_shell_builtin = this_shell_builtin;</span></a>
|
|
<a name="6340"><span class="lineNum"> 6340 </span> : </a>
|
|
<a name="6341"><span class="lineNum"> 6341 </span><span class="lineCov"> 81 : ps->expand_aliases = expand_aliases;</span></a>
|
|
<a name="6342"><span class="lineNum"> 6342 </span><span class="lineCov"> 81 : ps->echo_input_at_read = echo_input_at_read;</span></a>
|
|
<a name="6343"><span class="lineNum"> 6343 </span><span class="lineCov"> 81 : ps->need_here_doc = need_here_doc;</span></a>
|
|
<a name="6344"><span class="lineNum"> 6344 </span><span class="lineCov"> 81 : ps->here_doc_first_line = here_doc_first_line;</span></a>
|
|
<a name="6345"><span class="lineNum"> 6345 </span> : </a>
|
|
<a name="6346"><span class="lineNum"> 6346 </span> : #if 0</a>
|
|
<a name="6347"><span class="lineNum"> 6347 </span> : for (i = 0; i < HEREDOC_MAX; i++)</a>
|
|
<a name="6348"><span class="lineNum"> 6348 </span> : ps->redir_stack[i] = redir_stack[i];</a>
|
|
<a name="6349"><span class="lineNum"> 6349 </span> : #else</a>
|
|
<a name="6350"><span class="lineNum"> 6350 </span><span class="lineCov"> 81 : if (need_here_doc == 0)</span></a>
|
|
<a name="6351"><span class="lineNum"> 6351 </span><span class="lineCov"> 81 : ps->redir_stack[0] = 0;</span></a>
|
|
<a name="6352"><span class="lineNum"> 6352 </span> : else</a>
|
|
<a name="6353"><span class="lineNum"> 6353 </span><span class="lineNoCov"> 0 : memcpy (ps->redir_stack, redir_stack, sizeof (redir_stack[0]) * HEREDOC_MAX);</span></a>
|
|
<a name="6354"><span class="lineNum"> 6354 </span> : #endif</a>
|
|
<a name="6355"><span class="lineNum"> 6355 </span> : </a>
|
|
<a name="6356"><span class="lineNum"> 6356 </span><span class="lineCov"> 81 : ps->token = token;</span></a>
|
|
<a name="6357"><span class="lineNum"> 6357 </span><span class="lineCov"> 81 : ps->token_buffer_size = token_buffer_size;</span></a>
|
|
<a name="6358"><span class="lineNum"> 6358 </span> : /* Force reallocation on next call to read_token_word */</a>
|
|
<a name="6359"><span class="lineNum"> 6359 </span><span class="lineCov"> 81 : token = 0;</span></a>
|
|
<a name="6360"><span class="lineNum"> 6360 </span><span class="lineCov"> 81 : token_buffer_size = 0;</span></a>
|
|
<a name="6361"><span class="lineNum"> 6361 </span> : </a>
|
|
<a name="6362"><span class="lineNum"> 6362 </span><span class="lineCov"> 81 : return (ps);</span></a>
|
|
<a name="6363"><span class="lineNum"> 6363 </span> : }</a>
|
|
<a name="6364"><span class="lineNum"> 6364 </span> : </a>
|
|
<a name="6365"><span class="lineNum"> 6365 </span> : void</a>
|
|
<a name="6366"><span class="lineNum"> 6366 </span><span class="lineCov"> 81 : restore_parser_state (ps)</span></a>
|
|
<a name="6367"><span class="lineNum"> 6367 </span> : sh_parser_state_t *ps;</a>
|
|
<a name="6368"><span class="lineNum"> 6368 </span> : {</a>
|
|
<a name="6369"><span class="lineNum"> 6369 </span><span class="lineCov"> 81 : if (ps == 0)</span></a>
|
|
<a name="6370"><span class="lineNum"> 6370 </span> : return;</a>
|
|
<a name="6371"><span class="lineNum"> 6371 </span> : </a>
|
|
<a name="6372"><span class="lineNum"> 6372 </span><span class="lineCov"> 81 : parser_state = ps->parser_state;</span></a>
|
|
<a name="6373"><span class="lineNum"> 6373 </span><span class="lineCov"> 81 : if (ps->token_state)</span></a>
|
|
<a name="6374"><span class="lineNum"> 6374 </span> : {</a>
|
|
<a name="6375"><span class="lineNum"> 6375 </span><span class="lineCov"> 162 : restore_token_state (ps->token_state);</span></a>
|
|
<a name="6376"><span class="lineNum"> 6376 </span><span class="lineCov"> 81 : free (ps->token_state);</span></a>
|
|
<a name="6377"><span class="lineNum"> 6377 </span> : }</a>
|
|
<a name="6378"><span class="lineNum"> 6378 </span> : </a>
|
|
<a name="6379"><span class="lineNum"> 6379 </span><span class="lineCov"> 81 : shell_input_line_terminator = ps->input_line_terminator;</span></a>
|
|
<a name="6380"><span class="lineNum"> 6380 </span><span class="lineCov"> 81 : eof_encountered = ps->eof_encountered;</span></a>
|
|
<a name="6381"><span class="lineNum"> 6381 </span> : </a>
|
|
<a name="6382"><span class="lineNum"> 6382 </span><span class="lineCov"> 81 : prompt_string_pointer = ps->prompt_string_pointer;</span></a>
|
|
<a name="6383"><span class="lineNum"> 6383 </span> : </a>
|
|
<a name="6384"><span class="lineNum"> 6384 </span><span class="lineCov"> 81 : current_command_line_count = ps->current_command_line_count;</span></a>
|
|
<a name="6385"><span class="lineNum"> 6385 </span> : </a>
|
|
<a name="6386"><span class="lineNum"> 6386 </span> : #if defined (HISTORY)</a>
|
|
<a name="6387"><span class="lineNum"> 6387 </span> : remember_on_history = ps->remember_on_history;</a>
|
|
<a name="6388"><span class="lineNum"> 6388 </span> : # if defined (BANG_HISTORY)</a>
|
|
<a name="6389"><span class="lineNum"> 6389 </span> : history_expansion_inhibited = ps->history_expansion_inhibited;</a>
|
|
<a name="6390"><span class="lineNum"> 6390 </span> : # endif</a>
|
|
<a name="6391"><span class="lineNum"> 6391 </span> : #endif</a>
|
|
<a name="6392"><span class="lineNum"> 6392 </span> : </a>
|
|
<a name="6393"><span class="lineNum"> 6393 </span><span class="lineCov"> 81 : last_command_exit_value = ps->last_command_exit_value;</span></a>
|
|
<a name="6394"><span class="lineNum"> 6394 </span> : #if defined (ARRAY_VARS)</a>
|
|
<a name="6395"><span class="lineNum"> 6395 </span><span class="lineCov"> 81 : restore_pipestatus_array (ps->pipestatus);</span></a>
|
|
<a name="6396"><span class="lineNum"> 6396 </span> : #endif</a>
|
|
<a name="6397"><span class="lineNum"> 6397 </span> : </a>
|
|
<a name="6398"><span class="lineNum"> 6398 </span><span class="lineCov"> 81 : last_shell_builtin = ps->last_shell_builtin;</span></a>
|
|
<a name="6399"><span class="lineNum"> 6399 </span><span class="lineCov"> 81 : this_shell_builtin = ps->this_shell_builtin;</span></a>
|
|
<a name="6400"><span class="lineNum"> 6400 </span> : </a>
|
|
<a name="6401"><span class="lineNum"> 6401 </span><span class="lineCov"> 81 : expand_aliases = ps->expand_aliases;</span></a>
|
|
<a name="6402"><span class="lineNum"> 6402 </span><span class="lineCov"> 81 : echo_input_at_read = ps->echo_input_at_read;</span></a>
|
|
<a name="6403"><span class="lineNum"> 6403 </span><span class="lineCov"> 81 : need_here_doc = ps->need_here_doc;</span></a>
|
|
<a name="6404"><span class="lineNum"> 6404 </span><span class="lineCov"> 81 : here_doc_first_line = ps->here_doc_first_line;</span></a>
|
|
<a name="6405"><span class="lineNum"> 6405 </span> : </a>
|
|
<a name="6406"><span class="lineNum"> 6406 </span> : #if 0</a>
|
|
<a name="6407"><span class="lineNum"> 6407 </span> : for (i = 0; i < HEREDOC_MAX; i++)</a>
|
|
<a name="6408"><span class="lineNum"> 6408 </span> : redir_stack[i] = ps->redir_stack[i];</a>
|
|
<a name="6409"><span class="lineNum"> 6409 </span> : #else</a>
|
|
<a name="6410"><span class="lineNum"> 6410 </span><span class="lineCov"> 81 : if (need_here_doc == 0)</span></a>
|
|
<a name="6411"><span class="lineNum"> 6411 </span><span class="lineCov"> 81 : redir_stack[0] = 0;</span></a>
|
|
<a name="6412"><span class="lineNum"> 6412 </span> : else</a>
|
|
<a name="6413"><span class="lineNum"> 6413 </span><span class="lineNoCov"> 0 : memcpy (redir_stack, ps->redir_stack, sizeof (redir_stack[0]) * HEREDOC_MAX);</span></a>
|
|
<a name="6414"><span class="lineNum"> 6414 </span> : #endif</a>
|
|
<a name="6415"><span class="lineNum"> 6415 </span> : </a>
|
|
<a name="6416"><span class="lineNum"> 6416 </span><span class="lineCov"> 81 : FREE (token);</span></a>
|
|
<a name="6417"><span class="lineNum"> 6417 </span><span class="lineCov"> 81 : token = ps->token;</span></a>
|
|
<a name="6418"><span class="lineNum"> 6418 </span><span class="lineCov"> 81 : token_buffer_size = ps->token_buffer_size;</span></a>
|
|
<a name="6419"><span class="lineNum"> 6419 </span> : }</a>
|
|
<a name="6420"><span class="lineNum"> 6420 </span> : </a>
|
|
<a name="6421"><span class="lineNum"> 6421 </span> : sh_input_line_state_t *</a>
|
|
<a name="6422"><span class="lineNum"> 6422 </span><span class="lineCov"> 81 : save_input_line_state (ls)</span></a>
|
|
<a name="6423"><span class="lineNum"> 6423 </span> : sh_input_line_state_t *ls;</a>
|
|
<a name="6424"><span class="lineNum"> 6424 </span> : {</a>
|
|
<a name="6425"><span class="lineNum"> 6425 </span><span class="lineCov"> 81 : if (ls == 0)</span></a>
|
|
<a name="6426"><span class="lineNum"> 6426 </span><span class="lineNoCov"> 0 : ls = (sh_input_line_state_t *)xmalloc (sizeof (sh_input_line_state_t));</span></a>
|
|
<a name="6427"><span class="lineNum"> 6427 </span><span class="lineCov"> 81 : if (ls == 0)</span></a>
|
|
<a name="6428"><span class="lineNum"> 6428 </span> : return ((sh_input_line_state_t *)NULL);</a>
|
|
<a name="6429"><span class="lineNum"> 6429 </span> : </a>
|
|
<a name="6430"><span class="lineNum"> 6430 </span><span class="lineCov"> 81 : ls->input_line = shell_input_line;</span></a>
|
|
<a name="6431"><span class="lineNum"> 6431 </span><span class="lineCov"> 81 : ls->input_line_size = shell_input_line_size;</span></a>
|
|
<a name="6432"><span class="lineNum"> 6432 </span><span class="lineCov"> 81 : ls->input_line_len = shell_input_line_len;</span></a>
|
|
<a name="6433"><span class="lineNum"> 6433 </span><span class="lineCov"> 81 : ls->input_line_index = shell_input_line_index;</span></a>
|
|
<a name="6434"><span class="lineNum"> 6434 </span> : </a>
|
|
<a name="6435"><span class="lineNum"> 6435 </span> : /* force reallocation */</a>
|
|
<a name="6436"><span class="lineNum"> 6436 </span><span class="lineCov"> 81 : shell_input_line = 0;</span></a>
|
|
<a name="6437"><span class="lineNum"> 6437 </span><span class="lineCov"> 81 : shell_input_line_size = shell_input_line_len = shell_input_line_index = 0;</span></a>
|
|
<a name="6438"><span class="lineNum"> 6438 </span> : </a>
|
|
<a name="6439"><span class="lineNum"> 6439 </span><span class="lineCov"> 81 : return ls;</span></a>
|
|
<a name="6440"><span class="lineNum"> 6440 </span> : }</a>
|
|
<a name="6441"><span class="lineNum"> 6441 </span> : </a>
|
|
<a name="6442"><span class="lineNum"> 6442 </span> : void</a>
|
|
<a name="6443"><span class="lineNum"> 6443 </span><span class="lineCov"> 81 : restore_input_line_state (ls)</span></a>
|
|
<a name="6444"><span class="lineNum"> 6444 </span> : sh_input_line_state_t *ls;</a>
|
|
<a name="6445"><span class="lineNum"> 6445 </span> : {</a>
|
|
<a name="6446"><span class="lineNum"> 6446 </span><span class="lineCov"> 81 : FREE (shell_input_line);</span></a>
|
|
<a name="6447"><span class="lineNum"> 6447 </span><span class="lineCov"> 81 : shell_input_line = ls->input_line;</span></a>
|
|
<a name="6448"><span class="lineNum"> 6448 </span><span class="lineCov"> 81 : shell_input_line_size = ls->input_line_size;</span></a>
|
|
<a name="6449"><span class="lineNum"> 6449 </span><span class="lineCov"> 81 : shell_input_line_len = ls->input_line_len;</span></a>
|
|
<a name="6450"><span class="lineNum"> 6450 </span><span class="lineCov"> 81 : shell_input_line_index = ls->input_line_index;</span></a>
|
|
<a name="6451"><span class="lineNum"> 6451 </span> : </a>
|
|
<a name="6452"><span class="lineNum"> 6452 </span><span class="lineCov"> 81 : set_line_mbstate ();</span></a>
|
|
<a name="6453"><span class="lineNum"> 6453 </span><span class="lineCov"> 81 : }</span></a>
|
|
<a name="6454"><span class="lineNum"> 6454 </span> : </a>
|
|
<a name="6455"><span class="lineNum"> 6455 </span> : /************************************************</a>
|
|
<a name="6456"><span class="lineNum"> 6456 </span> : * *</a>
|
|
<a name="6457"><span class="lineNum"> 6457 </span> : * MULTIBYTE CHARACTER HANDLING *</a>
|
|
<a name="6458"><span class="lineNum"> 6458 </span> : * *</a>
|
|
<a name="6459"><span class="lineNum"> 6459 </span> : ************************************************/</a>
|
|
<a name="6460"><span class="lineNum"> 6460 </span> : </a>
|
|
<a name="6461"><span class="lineNum"> 6461 </span> : #if defined (HANDLE_MULTIBYTE)</a>
|
|
<a name="6462"><span class="lineNum"> 6462 </span> : static void</a>
|
|
<a name="6463"><span class="lineNum"> 6463 </span><span class="lineCov"> 1636432267 : set_line_mbstate ()</span></a>
|
|
<a name="6464"><span class="lineNum"> 6464 </span> : {</a>
|
|
<a name="6465"><span class="lineNum"> 6465 </span><span class="lineCov"> 1636432267 : int c;</span></a>
|
|
<a name="6466"><span class="lineNum"> 6466 </span><span class="lineCov"> 1636432267 : size_t i, previ, len;</span></a>
|
|
<a name="6467"><span class="lineNum"> 6467 </span><span class="lineCov"> 1636432267 : mbstate_t mbs, prevs;</span></a>
|
|
<a name="6468"><span class="lineNum"> 6468 </span><span class="lineCov"> 1636432267 : size_t mbclen;</span></a>
|
|
<a name="6469"><span class="lineNum"> 6469 </span> : </a>
|
|
<a name="6470"><span class="lineNum"> 6470 </span><span class="lineCov"> 1636432267 : if (shell_input_line == NULL)</span></a>
|
|
<a name="6471"><span class="lineNum"> 6471 </span><span class="lineNoCov"> 0 : return;</span></a>
|
|
<a name="6472"><span class="lineNum"> 6472 </span><span class="lineCov"> 1636432267 : len = strlen (shell_input_line); /* XXX - shell_input_line_len ? */</span></a>
|
|
<a name="6473"><span class="lineNum"> 6473 </span><span class="lineCov"> 1636432267 : shell_input_line_property = (char *)xrealloc (shell_input_line_property, len + 1);</span></a>
|
|
<a name="6474"><span class="lineNum"> 6474 </span> : </a>
|
|
<a name="6475"><span class="lineNum"> 6475 </span><span class="lineCov"> 1636432267 : memset (&prevs, '\0', sizeof (mbstate_t));</span></a>
|
|
<a name="6476"><span class="lineNum"> 6476 </span><span class="lineCov">30683917457 : for (i = previ = 0; i < len; i++)</span></a>
|
|
<a name="6477"><span class="lineNum"> 6477 </span> : {</a>
|
|
<a name="6478"><span class="lineNum"> 6478 </span><span class="lineCov">29049864115 : mbs = prevs;</span></a>
|
|
<a name="6479"><span class="lineNum"> 6479 </span> : </a>
|
|
<a name="6480"><span class="lineNum"> 6480 </span><span class="lineCov">29049864115 : c = shell_input_line[i];</span></a>
|
|
<a name="6481"><span class="lineNum"> 6481 </span><span class="lineCov">29049864115 : if (c == EOF)</span></a>
|
|
<a name="6482"><span class="lineNum"> 6482 </span> : {</a>
|
|
<a name="6483"><span class="lineNum"> 6483 </span> : size_t j;</a>
|
|
<a name="6484"><span class="lineNum"> 6484 </span><span class="lineCov"> 542612276 : for (j = i; j < len; j++)</span></a>
|
|
<a name="6485"><span class="lineNum"> 6485 </span><span class="lineCov"> 540233351 : shell_input_line_property[j] = 1;</span></a>
|
|
<a name="6486"><span class="lineNum"> 6486 </span> : break;</a>
|
|
<a name="6487"><span class="lineNum"> 6487 </span> : }</a>
|
|
<a name="6488"><span class="lineNum"> 6488 </span> : </a>
|
|
<a name="6489"><span class="lineNum"> 6489 </span><span class="lineCov">29047485190 : mbclen = mbrlen (shell_input_line + previ, i - previ + 1, &mbs);</span></a>
|
|
<a name="6490"><span class="lineNum"> 6490 </span><span class="lineCov">29047485190 : if (mbclen == 1 || mbclen == (size_t)-1)</span></a>
|
|
<a name="6491"><span class="lineNum"> 6491 </span> : {</a>
|
|
<a name="6492"><span class="lineNum"> 6492 </span><span class="lineCov">29039998635 : mbclen = 1;</span></a>
|
|
<a name="6493"><span class="lineNum"> 6493 </span><span class="lineCov">29039998635 : previ = i + 1;</span></a>
|
|
<a name="6494"><span class="lineNum"> 6494 </span> : }</a>
|
|
<a name="6495"><span class="lineNum"> 6495 </span><span class="lineCov"> 7486555 : else if (mbclen == (size_t)-2)</span></a>
|
|
<a name="6496"><span class="lineNum"> 6496 </span> : mbclen = 0;</a>
|
|
<a name="6497"><span class="lineNum"> 6497 </span><span class="lineCov"> 558038 : else if (mbclen > 1)</span></a>
|
|
<a name="6498"><span class="lineNum"> 6498 </span> : {</a>
|
|
<a name="6499"><span class="lineNum"> 6499 </span><span class="lineCov"> 558038 : mbclen = 0;</span></a>
|
|
<a name="6500"><span class="lineNum"> 6500 </span><span class="lineCov"> 558038 : previ = i + 1;</span></a>
|
|
<a name="6501"><span class="lineNum"> 6501 </span><span class="lineCov"> 558038 : prevs = mbs;</span></a>
|
|
<a name="6502"><span class="lineNum"> 6502 </span> : }</a>
|
|
<a name="6503"><span class="lineNum"> 6503 </span> : else</a>
|
|
<a name="6504"><span class="lineNum"> 6504 </span> : {</a>
|
|
<a name="6505"><span class="lineNum"> 6505 </span> : /* XXX - what to do if mbrlen returns 0? (null wide character) */</a>
|
|
<a name="6506"><span class="lineNum"> 6506 </span> : size_t j;</a>
|
|
<a name="6507"><span class="lineNum"> 6507 </span><span class="lineNoCov"> 0 : for (j = i; j < len; j++)</span></a>
|
|
<a name="6508"><span class="lineNum"> 6508 </span><span class="lineNoCov"> 0 : shell_input_line_property[j] = 1;</span></a>
|
|
<a name="6509"><span class="lineNum"> 6509 </span> : break;</a>
|
|
<a name="6510"><span class="lineNum"> 6510 </span> : }</a>
|
|
<a name="6511"><span class="lineNum"> 6511 </span> : </a>
|
|
<a name="6512"><span class="lineNum"> 6512 </span><span class="lineCov">29047485190 : shell_input_line_property[i] = mbclen;</span></a>
|
|
<a name="6513"><span class="lineNum"> 6513 </span> : }</a>
|
|
<a name="6514"><span class="lineNum"> 6514 </span> : }</a>
|
|
<a name="6515"><span class="lineNum"> 6515 </span> : #endif /* HANDLE_MULTIBYTE */</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>
|