1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 /* 22 * Copyright 2004 Sun Microsystems, Inc. All rights reserved. 23 * Use is subject to license terms. 24 */ 25 26 27 /* 28 * read.c 29 * 30 * This file contains the makefile reader. 31 */ 32 33 /* 34 * Included files 35 */ 36 #include <mksh/misc.h> /* retmem() */ 37 #include <mksh/read.h> 38 #include <sys/uio.h> /* read() */ 39 #include <unistd.h> /* close(), unlink(), read() */ 40 #include <libintl.h> 41 42 #define STRING_LEN_TO_CONVERT (8*1024) 43 44 /* 45 * get_next_block_fn(source) 46 * 47 * Will get the next block of text to read either 48 * by popping one source bVSIZEOFlock of the stack of Sources 49 * or by reading some more from the makefile. 50 * 51 * Return value: 52 * The new source block to read from 53 * 54 * Parameters: 55 * source The old source block 56 * 57 * Global variables used: 58 * file_being_read The name of the current file, error msg 59 */ 60 Boolean make_state_locked; 61 Source 62 get_next_block_fn(register Source source) 63 { 64 register off_t to_read; 65 register int length; 66 register size_t num_wc_chars; 67 char ch_save; 68 char *ptr; 69 70 if (source == NULL) { 71 return NULL; 72 } 73 if ((source->fd < 0) || 74 ((source->bytes_left_in_file <= 0) && 75 (source->inp_buf_ptr >= source->inp_buf_end))) { 76 /* We can't read from the makefile, so pop the source block */ 77 if (source->fd > 2) { 78 (void) close(source->fd); 79 if (make_state_lockfile != NULL) { 80 (void) unlink(make_state_lockfile); 81 retmem_mb(make_state_lockfile); 82 make_state_lockfile = NULL; 83 make_state_locked = false; 84 } 85 } 86 if (source->string.free_after_use && 87 (source->string.buffer.start != NULL)) { 88 retmem(source->string.buffer.start); 89 source->string.buffer.start = NULL; 90 } 91 if (source->inp_buf != NULL) { 92 retmem_mb(source->inp_buf); 93 source->inp_buf = NULL; 94 } 95 source = source->previous; 96 if (source != NULL) { 97 source->error_converting = false; 98 } 99 return source; 100 } 101 if (source->bytes_left_in_file > 0) { 102 /* 103 * Read the whole makefile. 104 * Hopefully the kernel managed to prefetch the stuff. 105 */ 106 to_read = source->bytes_left_in_file; 107 source->inp_buf_ptr = source->inp_buf = getmem(to_read + 1); 108 source->inp_buf_end = source->inp_buf + to_read; 109 length = read(source->fd, source->inp_buf, (unsigned int) to_read); 110 if (length != to_read) { 111 WCSTOMBS(mbs_buffer, file_being_read); 112 if (length == 0) { 113 fatal_mksh(gettext("Error reading `%s': Premature EOF"), 114 mbs_buffer); 115 } else { 116 fatal_mksh(gettext("Error reading `%s': %s"), 117 mbs_buffer, 118 errmsg(errno)); 119 } 120 } 121 *source->inp_buf_end = nul_char; 122 source->bytes_left_in_file = 0; 123 } 124 /* 125 * Try to convert the next piece. 126 */ 127 ptr = source->inp_buf_ptr + STRING_LEN_TO_CONVERT; 128 if (ptr > source->inp_buf_end) { 129 ptr = source->inp_buf_end; 130 } 131 for (num_wc_chars = 0; ptr > source->inp_buf_ptr; ptr--) { 132 ch_save = *ptr; 133 *ptr = nul_char; 134 num_wc_chars = mbstowcs(source->string.text.end, 135 source->inp_buf_ptr, 136 STRING_LEN_TO_CONVERT); 137 *ptr = ch_save; 138 if (num_wc_chars != (size_t)-1) { 139 break; 140 } 141 } 142 143 if ((int) num_wc_chars == (size_t)-1) { 144 source->error_converting = true; 145 return source; 146 } 147 148 source->error_converting = false; 149 source->inp_buf_ptr = ptr; 150 source->string.text.end += num_wc_chars; 151 *source->string.text.end = 0; 152 153 if (source->inp_buf_ptr >= source->inp_buf_end) { 154 if (*(source->string.text.end - 1) != (int) newline_char) { 155 WCSTOMBS(mbs_buffer, file_being_read); 156 warning_mksh(gettext("newline is not last character in file %s"), 157 mbs_buffer); 158 *source->string.text.end++ = (int) newline_char; 159 *source->string.text.end = (int) nul_char; 160 *source->string.buffer.end++; 161 } 162 if (source->inp_buf != NULL) { 163 retmem_mb(source->inp_buf); 164 source->inp_buf = NULL; 165 } 166 } 167 return source; 168 } 169 170 171