src/v8utils.cc - fp2-dev/platform/external/v8 - Gitiles

 // Copyright 2011 the V8 project authors. All rights reserved.
 // Redistribution and use in source and binary forms, with or without
 // modification, are permitted provided that the following conditions are
 // met:
 //
 //     * Redistributions of source code must retain the above copyright
 //       notice, this list of conditions and the following disclaimer.
 //     * Redistributions in binary form must reproduce the above
 //       copyright notice, this list of conditions and the following
 //       disclaimer in the documentation and/or other materials provided
 //       with the distribution.
 //     * Neither the name of Google Inc. nor the names of its
 //       contributors may be used to endorse or promote products derived
 //       from this software without specific prior written permission.
 //
 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 // LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
 // A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 // OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
 // LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 // DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 // THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 // (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
 // OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 #include <stdarg.h>

 #include "v8.h"

 #include "platform.h"

 #include "sys/stat.h"

 namespace v8 {
 namespace internal {


 void PrintF(const char* format, ...) {
   va_list arguments;
   va_start(arguments, format);
   OS::VPrint(format, arguments);
   va_end(arguments);
 }


 void PrintF(FILE* out, const char* format, ...) {
   va_list arguments;
   va_start(arguments, format);
   OS::VFPrint(out, format, arguments);
   va_end(arguments);
 }


 void Flush(FILE* out) {
   fflush(out);
 }


 char* ReadLine(const char* prompt) {
   char* result = NULL;
   char line_buf[256];
   int offset = 0;
   bool keep_going = true;
   fprintf(stdout, "%s", prompt);
   fflush(stdout);
   while (keep_going) {
     if (fgets(line_buf, sizeof(line_buf), stdin) == NULL) {
       // fgets got an error. Just give up.
       if (result != NULL) {
         DeleteArray(result);
       }
       return NULL;
     }
     int len = StrLength(line_buf);
     if (len > 1 &&
         line_buf[len - 2] == '\\' &&
         line_buf[len - 1] == '\n') {
       // When we read a line that ends with a "\" we remove the escape and
       // append the remainder.
       line_buf[len - 2] = '\n';
       line_buf[len - 1] = 0;
       len -= 1;
     } else if ((len > 0) && (line_buf[len - 1] == '\n')) {
       // Since we read a new line we are done reading the line. This
       // will exit the loop after copying this buffer into the result.
       keep_going = false;
     }
     if (result == NULL) {
       // Allocate the initial result and make room for the terminating '\0'
       result = NewArray<char>(len + 1);
     } else {
       // Allocate a new result with enough room for the new addition.
       int new_len = offset + len + 1;
       char* new_result = NewArray<char>(new_len);
       // Copy the existing input into the new array and set the new
       // array as the result.
       memcpy(new_result, result, offset * kCharSize);
       DeleteArray(result);
       result = new_result;
     }
     // Copy the newly read line into the result.
     memcpy(result + offset, line_buf, len * kCharSize);
     offset += len;
   }
   ASSERT(result != NULL);
   result[offset] = '\0';
   return result;
 }


 char* ReadCharsFromFile(FILE* file,
                         int* size,
                         int extra_space,
                         bool verbose,
                         const char* filename) {
   if (file == NULL || fseek(file, 0, SEEK_END) != 0) {
     if (verbose) {
       OS::PrintError("Cannot read from file %s.\n", filename);
     }
     return NULL;
   }

   // Get the size of the file and rewind it.
   *size = ftell(file);
   rewind(file);

   char* result = NewArray<char>(*size + extra_space);
   for (int i = 0; i < *size && feof(file) == 0;) {
     int read = static_cast<int>(fread(&result[i], 1, *size - i, file));
     if (read != (*size - i) && ferror(file) != 0) {
       fclose(file);
       DeleteArray(result);
       return NULL;
     }
     i += read;
   }
   return result;
 }


 char* ReadCharsFromFile(const char* filename,
                         int* size,
                         int extra_space,
                         bool verbose) {
   FILE* file = OS::FOpen(filename, "rb");
   char* result = ReadCharsFromFile(file, size, extra_space, verbose, filename);
   if (file != NULL) fclose(file);
   return result;
 }


 byte* ReadBytes(const char* filename, int* size, bool verbose) {
   char* chars = ReadCharsFromFile(filename, size, 0, verbose);
   return reinterpret_cast<byte*>(chars);
 }


 static Vector<const char> SetVectorContents(char* chars,
                                             int size,
                                             bool* exists) {
   if (!chars) {
     *exists = false;
     return Vector<const char>::empty();
   }
   chars[size] = '\0';
   *exists = true;
   return Vector<const char>(chars, size);
 }


 Vector<const char> ReadFile(const char* filename,
                             bool* exists,
                             bool verbose) {
   int size;
   char* result = ReadCharsFromFile(filename, &size, 1, verbose);
   return SetVectorContents(result, size, exists);
 }


 Vector<const char> ReadFile(FILE* file,
                             bool* exists,
                             bool verbose) {
   int size;
   char* result = ReadCharsFromFile(file, &size, 1, verbose, "");
   return SetVectorContents(result, size, exists);
 }


 int WriteCharsToFile(const char* str, int size, FILE* f) {
   int total = 0;
   while (total < size) {
     int write = static_cast<int>(fwrite(str, 1, size - total, f));
     if (write == 0) {
       return total;
     }
     total += write;
     str += write;
   }
   return total;
 }


 int AppendChars(const char* filename,
                 const char* str,
                 int size,
                 bool verbose) {
   FILE* f = OS::FOpen(filename, "ab");
   if (f == NULL) {
     if (verbose) {
       OS::PrintError("Cannot open file %s for writing.\n", filename);
     }
     return 0;
   }
   int written = WriteCharsToFile(str, size, f);
   fclose(f);
   return written;
 }


 int WriteChars(const char* filename,
                const char* str,
                int size,
                bool verbose) {
   FILE* f = OS::FOpen(filename, "wb");
   if (f == NULL) {
     if (verbose) {
       OS::PrintError("Cannot open file %s for writing.\n", filename);
     }
     return 0;
   }
   int written = WriteCharsToFile(str, size, f);
   fclose(f);
   return written;
 }


 int WriteBytes(const char* filename,
                const byte* bytes,
                int size,
                bool verbose) {
   const char* str = reinterpret_cast<const char*>(bytes);
   return WriteChars(filename, str, size, verbose);
 }


 void StringBuilder::AddFormatted(const char* format, ...) {
   va_list arguments;
   va_start(arguments, format);
   AddFormattedList(format, arguments);
   va_end(arguments);
 }


 void StringBuilder::AddFormattedList(const char* format, va_list list) {
   ASSERT(!is_finalized() && position_ < buffer_.length());
   int n = OS::VSNPrintF(buffer_ + position_, format, list);
   if (n < 0 || n >= (buffer_.length() - position_)) {
     position_ = buffer_.length();
   } else {
     position_ += n;
   }
 }


 MemoryMappedExternalResource::MemoryMappedExternalResource(const char* filename)
     : filename_(NULL),
       data_(NULL),
       length_(0),
       remove_file_on_cleanup_(false) {
   Init(filename);
 }


 MemoryMappedExternalResource::
     MemoryMappedExternalResource(const char* filename,
                                  bool remove_file_on_cleanup)
     : filename_(NULL),
       data_(NULL),
       length_(0),
       remove_file_on_cleanup_(remove_file_on_cleanup) {
   Init(filename);
 }


 MemoryMappedExternalResource::~MemoryMappedExternalResource() {
   // Release the resources if we had successfully acquired them:
   if (file_ != NULL) {
     delete file_;
     if (remove_file_on_cleanup_) {
       OS::Remove(filename_);
     }
     DeleteArray<char>(filename_);
   }
 }


 void MemoryMappedExternalResource::Init(const char* filename) {
   file_ = OS::MemoryMappedFile::open(filename);
   if (file_ != NULL) {
     filename_ = StrDup(filename);
     data_ = reinterpret_cast<char*>(file_->memory());
     length_ = file_->size();
   }
 }


 bool MemoryMappedExternalResource::EnsureIsAscii(bool abort_if_failed) const {
   bool is_ascii = true;

   int line_no = 1;
   const char* start_of_line = data_;
   const char* end = data_ + length_;
   for (const char* p = data_; p < end; p++) {
     char c = *p;
     if ((c & 0x80) != 0) {
       // Non-ASCII detected:
       is_ascii = false;

       // Report the error and abort if appropriate:
       if (abort_if_failed) {
         int char_no = static_cast<int>(p - start_of_line) - 1;

         ASSERT(filename_ != NULL);
         PrintF("\n\n\n"
                "Abort: Non-Ascii character 0x%.2x in file %s line %d char %d",
                c, filename_, line_no, char_no);

         // Allow for some context up to kNumberOfLeadingContextChars chars
         // before the offending non-ASCII char to help the user see where
         // the offending char is.
         const int kNumberOfLeadingContextChars = 10;
         const char* err_context = p - kNumberOfLeadingContextChars;
         if (err_context < data_) {
           err_context = data_;
         }
         // Compute the length of the error context and print it.
         int err_context_length = static_cast<int>(p - err_context);
         if (err_context_length != 0) {
           PrintF(" after \"%.*s\"", err_context_length, err_context);
         }
         PrintF(".\n\n\n");
         OS::Abort();
       }

       break;  // Non-ASCII detected.  No need to continue scanning.
     }
     if (c == '\n') {
       start_of_line = p;
       line_no++;
     }
   }

   return is_ascii;
 }


 } }  // namespace v8::internal
	// Copyright 2011 the V8 project authors. All rights reserved.
	// Redistribution and use in source and binary forms, with or without
	// modification, are permitted provided that the following conditions are
	// met:
	//
	// * Redistributions of source code must retain the above copyright
	// notice, this list of conditions and the following disclaimer.
	// * Redistributions in binary form must reproduce the above
	// copyright notice, this list of conditions and the following
	// disclaimer in the documentation and/or other materials provided
	// with the distribution.
	// * Neither the name of Google Inc. nor the names of its
	// contributors may be used to endorse or promote products derived
	// from this software without specific prior written permission.
	//
	// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
	// "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
	// LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
	// A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
	// OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
	// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
	// LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
	// DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
	// THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
	// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
	// OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

	#include <stdarg.h>

	#include "v8.h"

	#include "platform.h"

	#include "sys/stat.h"

	namespace v8 {
	namespace internal {


	void PrintF(const char* format, ...) {
	va_list arguments;
	va_start(arguments, format);
	OS::VPrint(format, arguments);
	va_end(arguments);
	}


	void PrintF(FILE* out, const char* format, ...) {
	va_list arguments;
	va_start(arguments, format);
	OS::VFPrint(out, format, arguments);
	va_end(arguments);
	}


	void Flush(FILE* out) {
	fflush(out);
	}


	char* ReadLine(const char* prompt) {
	char* result = NULL;
	char line_buf[256];
	int offset = 0;
	bool keep_going = true;
	fprintf(stdout, "%s", prompt);
	fflush(stdout);
	while (keep_going) {
	if (fgets(line_buf, sizeof(line_buf), stdin) == NULL) {
	// fgets got an error. Just give up.
	if (result != NULL) {
	DeleteArray(result);
	}
	return NULL;
	}
	int len = StrLength(line_buf);
	if (len > 1 &&
	line_buf[len - 2] == '\\' &&
	line_buf[len - 1] == '\n') {
	// When we read a line that ends with a "\" we remove the escape and
	// append the remainder.
	line_buf[len - 2] = '\n';
	line_buf[len - 1] = 0;
	len -= 1;
	} else if ((len > 0) && (line_buf[len - 1] == '\n')) {
	// Since we read a new line we are done reading the line. This
	// will exit the loop after copying this buffer into the result.
	keep_going = false;
	}
	if (result == NULL) {
	// Allocate the initial result and make room for the terminating '\0'
	result = NewArray<char>(len + 1);
	} else {
	// Allocate a new result with enough room for the new addition.
	int new_len = offset + len + 1;
	char* new_result = NewArray<char>(new_len);
	// Copy the existing input into the new array and set the new
	// array as the result.
	memcpy(new_result, result, offset * kCharSize);
	DeleteArray(result);
	result = new_result;
	}
	// Copy the newly read line into the result.
	memcpy(result + offset, line_buf, len * kCharSize);
	offset += len;
	}
	ASSERT(result != NULL);
	result[offset] = '\0';
	return result;
	}


	char* ReadCharsFromFile(FILE* file,
	int* size,
	int extra_space,
	bool verbose,
	const char* filename) {
	if (file == NULL \|\| fseek(file, 0, SEEK_END) != 0) {
	if (verbose) {
	OS::PrintError("Cannot read from file %s.\n", filename);
	}
	return NULL;
	}

	// Get the size of the file and rewind it.
	*size = ftell(file);
	rewind(file);

	char* result = NewArray<char>(*size + extra_space);
	for (int i = 0; i < *size && feof(file) == 0;) {
	int read = static_cast<int>(fread(&result[i], 1, *size - i, file));
	if (read != (*size - i) && ferror(file) != 0) {
	fclose(file);
	DeleteArray(result);
	return NULL;
	}
	i += read;
	}
	return result;
	}


	char* ReadCharsFromFile(const char* filename,
	int* size,
	int extra_space,
	bool verbose) {
	FILE* file = OS::FOpen(filename, "rb");
	char* result = ReadCharsFromFile(file, size, extra_space, verbose, filename);
	if (file != NULL) fclose(file);
	return result;
	}


	byte* ReadBytes(const char* filename, int* size, bool verbose) {
	char* chars = ReadCharsFromFile(filename, size, 0, verbose);
	return reinterpret_cast<byte*>(chars);
	}


	static Vector<const char> SetVectorContents(char* chars,
	int size,
	bool* exists) {
	if (!chars) {
	*exists = false;
	return Vector<const char>::empty();
	}
	chars[size] = '\0';
	*exists = true;
	return Vector<const char>(chars, size);
	}


	Vector<const char> ReadFile(const char* filename,
	bool* exists,
	bool verbose) {
	int size;
	char* result = ReadCharsFromFile(filename, &size, 1, verbose);
	return SetVectorContents(result, size, exists);
	}


	Vector<const char> ReadFile(FILE* file,
	bool* exists,
	bool verbose) {
	int size;
	char* result = ReadCharsFromFile(file, &size, 1, verbose, "");
	return SetVectorContents(result, size, exists);
	}


	int WriteCharsToFile(const char* str, int size, FILE* f) {
	int total = 0;
	while (total < size) {
	int write = static_cast<int>(fwrite(str, 1, size - total, f));
	if (write == 0) {
	return total;
	}
	total += write;
	str += write;
	}
	return total;
	}


	int AppendChars(const char* filename,
	const char* str,
	int size,
	bool verbose) {
	FILE* f = OS::FOpen(filename, "ab");
	if (f == NULL) {
	if (verbose) {
	OS::PrintError("Cannot open file %s for writing.\n", filename);
	}
	return 0;
	}
	int written = WriteCharsToFile(str, size, f);
	fclose(f);
	return written;
	}


	int WriteChars(const char* filename,
	const char* str,
	int size,
	bool verbose) {
	FILE* f = OS::FOpen(filename, "wb");
	if (f == NULL) {
	if (verbose) {
	OS::PrintError("Cannot open file %s for writing.\n", filename);
	}
	return 0;
	}
	int written = WriteCharsToFile(str, size, f);
	fclose(f);
	return written;
	}


	int WriteBytes(const char* filename,
	const byte* bytes,
	int size,
	bool verbose) {
	const char* str = reinterpret_cast<const char*>(bytes);
	return WriteChars(filename, str, size, verbose);
	}



	void StringBuilder::AddFormatted(const char* format, ...) {
	va_list arguments;
	va_start(arguments, format);
	AddFormattedList(format, arguments);
	va_end(arguments);
	}


	void StringBuilder::AddFormattedList(const char* format, va_list list) {
	ASSERT(!is_finalized() && position_ < buffer_.length());
	int n = OS::VSNPrintF(buffer_ + position_, format, list);
	if (n < 0 \|\| n >= (buffer_.length() - position_)) {
	position_ = buffer_.length();
	} else {
	position_ += n;
	}
	}


	MemoryMappedExternalResource::MemoryMappedExternalResource(const char* filename)
	: filename_(NULL),
	data_(NULL),
	length_(0),
	remove_file_on_cleanup_(false) {
	Init(filename);
	}


	MemoryMappedExternalResource::
	MemoryMappedExternalResource(const char* filename,
	bool remove_file_on_cleanup)
	: filename_(NULL),
	data_(NULL),
	length_(0),
	remove_file_on_cleanup_(remove_file_on_cleanup) {
	Init(filename);
	}


	MemoryMappedExternalResource::~MemoryMappedExternalResource() {
	// Release the resources if we had successfully acquired them:
	if (file_ != NULL) {
	delete file_;
	if (remove_file_on_cleanup_) {
	OS::Remove(filename_);
	}
	DeleteArray<char>(filename_);
	}
	}


	void MemoryMappedExternalResource::Init(const char* filename) {
	file_ = OS::MemoryMappedFile::open(filename);
	if (file_ != NULL) {
	filename_ = StrDup(filename);
	data_ = reinterpret_cast<char*>(file_->memory());
	length_ = file_->size();
	}
	}


	bool MemoryMappedExternalResource::EnsureIsAscii(bool abort_if_failed) const {
	bool is_ascii = true;

	int line_no = 1;
	const char* start_of_line = data_;
	const char* end = data_ + length_;
	for (const char* p = data_; p < end; p++) {
	char c = *p;
	if ((c & 0x80) != 0) {
	// Non-ASCII detected:
	is_ascii = false;

	// Report the error and abort if appropriate:
	if (abort_if_failed) {
	int char_no = static_cast<int>(p - start_of_line) - 1;

	ASSERT(filename_ != NULL);
	PrintF("\n\n\n"
	"Abort: Non-Ascii character 0x%.2x in file %s line %d char %d",
	c, filename_, line_no, char_no);

	// Allow for some context up to kNumberOfLeadingContextChars chars
	// before the offending non-ASCII char to help the user see where
	// the offending char is.
	const int kNumberOfLeadingContextChars = 10;
	const char* err_context = p - kNumberOfLeadingContextChars;
	if (err_context < data_) {
	err_context = data_;
	}
	// Compute the length of the error context and print it.
	int err_context_length = static_cast<int>(p - err_context);
	if (err_context_length != 0) {
	PrintF(" after \"%.*s\"", err_context_length, err_context);
	}
	PrintF(".\n\n\n");
	OS::Abort();
	}

	break; // Non-ASCII detected. No need to continue scanning.
	}
	if (c == '\n') {
	start_of_line = p;
	line_no++;
	}
	}

	return is_ascii;
	}


	} } // namespace v8::internal