| //===-- Runtime Text String Implementation ----------------------*- C++ -*-===// |
| // |
| // High Level Virtual Machine (HLVM) |
| // |
| // Copyright (C) 2006 Reid Spencer. All Rights Reserved. |
| // |
| // This software is free software; you can redistribute it and/or modify it |
| // under the terms of the GNU Lesser General Public License as published by |
| // the Free Software Foundation; either version 2.1 of the License, or (at |
| // your option) any later version. |
| // |
| // This software is distributed in the hope that it will be useful, but WITHOUT |
| // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
| // FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for |
| // more details. |
| // |
| // You should have received a copy of the GNU Lesser General Public License |
| // along with this library in the file named LICENSE.txt; if not, write to the |
| // Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, |
| // MA 02110-1301 USA |
| // |
| //===----------------------------------------------------------------------===// |
| /// @file hlvm/Runtime/Text.cpp |
| /// @author Reid Spencer <rspencer@reidspencer.org> (original author) |
| /// @date 2006/05/25 |
| /// @since 0.1.0 |
| /// @brief Implements the functions for runtime text string support |
| //===----------------------------------------------------------------------===// |
| |
| #include <apr-1/apr_strings.h> |
| |
| #include <hlvm/Runtime/Internal.h> |
| |
| extern "C" { |
| #include <hlvm/Runtime/Text.h> |
| } |
| |
| namespace { |
| |
| class Text : public hlvm_text_obj { |
| }; |
| |
| } |
| |
| extern "C" { |
| |
| hlvm_text |
| hlvm_text_create(const char* initializer) |
| { |
| Text* result = new Text(); |
| if (initializer) { |
| result->len = strlen(initializer); |
| result->str = const_cast<char*>(initializer); |
| result->is_const = true; |
| } else { |
| result->len = 0; |
| result->str = 0; |
| result->is_const = false; |
| } |
| return hlvm_text(result); |
| } |
| |
| void |
| hlvm_text_delete(hlvm_text T) |
| { |
| Text* t = reinterpret_cast<Text*>(T); |
| if (!t->is_const && t->str) |
| delete [] t->str; |
| delete t; |
| } |
| |
| } |