diff options
Diffstat (limited to 'src/libfsm/common.cc')
| -rw-r--r-- | src/libfsm/common.cc | 240 |
1 files changed, 0 insertions, 240 deletions
diff --git a/src/libfsm/common.cc b/src/libfsm/common.cc deleted file mode 100644 index 7a4df841..00000000 --- a/src/libfsm/common.cc +++ /dev/null @@ -1,240 +0,0 @@ -/* - * Copyright 2006-2018 Adrian Thurston <thurston@colm.net> - * - * Permission is hereby granted, free of charge, to any person obtaining a copy - * of this software and associated documentation files (the "Software"), to - * deal in the Software without restriction, including without limitation the - * rights to use, copy, modify, merge, publish, distribute, sublicense, and/or - * sell copies of the Software, and to permit persons to whom the Software is - * furnished to do so, subject to the following conditions: - * - * The above copyright notice and this permission notice shall be included in all - * copies or substantial portions of the Software. - * - * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR - * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, - * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE - * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER - * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, - * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE - * SOFTWARE. - */ - -#include "common.h" -#include "stdlib.h" -#include <string.h> -#include <assert.h> -#include "ragel.h" - -std::streamsize output_filter::countAndWrite( const char *s, std::streamsize n ) -{ - for ( int i = 0; i < n; i++ ) { - switch ( s[i] ) { - case '\n': - line += 1; - break; - case '{': - /* If we detec an open block then eliminate the single-indent - * addition, which is to account for single statements. */ - singleIndent = false; - level += 1; - break; - case '}': - level -= 1; - break; - } - } - - return std::filebuf::xsputn( s, n ); -} - -bool openSingleIndent( const char *s, int n ) -{ - if ( n >= 3 && memcmp( s, "if ", 3 ) == 0 ) - return true; - - if ( n >= 8 && memcmp( s, "else if ", 8 ) == 0 ) - return true; - - if ( n >= 5 && memcmp( s, "else\n", 4 ) == 0 ) - return true; - - return false; -} - -/* Counts newlines before sending sync. */ -int output_filter::sync( ) -{ - line += 1; - return std::filebuf::sync(); -} - -/* Counts newlines before sending data out to file. */ -std::streamsize output_filter::xsputn( const char *s, std::streamsize n ) -{ - std::streamsize ret = n; - int l; - -restart: - if ( indent ) { - /* Consume mode Looking for the first non-whitespace. */ - while ( n > 0 && ( *s == ' ' || *s == '\t' ) ) { - s += 1; - n -= 1; - } - - if ( n > 0 ) { - int tabs = level + ( singleIndent ? 1 : 0 ); - - if ( *s == '}' ) { - /* If the next char is de-dent, then reduce the tabs. This is - * not a stream state change. The level reduction will be - * computed in write. */ - tabs -= 1; - } - - /* Note that the count and write will eliminate this if it detects - * an open block. */ - if ( openSingleIndent( s, n ) ) - singleIndent = true; - else - singleIndent = false; - - if ( *s != '#' ) { - /* Found some data, print the indentation and turn off indentation - * mode. */ - for ( l = 0; l < tabs; l++ ) - countAndWrite( "\t", 1 ); - } - - - indent = 0; - - goto restart; - } - } - else { - char *nl; - if ( (nl = (char*)memchr( s, '\n', n )) ) { - /* Print up to and including the newline. */ - int wl = nl - s + 1; - countAndWrite( s, wl ); - - /* Go into consume state. If we see more non-indentation chars we - * will generate the appropriate indentation level. */ - s += wl; - n -= wl; - indent = true; - goto restart; - } - else { - /* Indentation off, or no indent trigger (newline). */ - countAndWrite( s, n ); - } - } - - // What to do here? - return ret; -} - -/* Scans a string looking for the file extension. If there is a file - * extension then pointer returned points to inside the string - * passed in. Otherwise returns null. */ -const char *findFileExtension( const char *stemFile ) -{ - const char *ppos = stemFile + strlen(stemFile) - 1; - - /* Scan backwards from the end looking for the first dot. - * If we encounter a '/' before the first dot, then stop the scan. */ - while ( 1 ) { - /* If we found a dot or got to the beginning of the string then - * we are done. */ - if ( ppos == stemFile || *ppos == '.' ) - break; - - /* If we hit a / then there is no extension. Done. */ - if ( *ppos == '/' ) { - ppos = stemFile; - break; - } - ppos--; - } - - /* If we got to the front of the string then bail we - * did not find an extension */ - if ( ppos == stemFile ) - ppos = 0; - - return ppos; -} - -/* Make a file name from a stem. Removes the old filename suffix and - * replaces it with a new one. Returns a newed up string. */ -const char *fileNameFromStem( const char *stemFile, const char *suffix ) -{ - long len = strlen( stemFile ); - assert( len > 0 ); - - /* Get the extension. */ - const char *ppos = findFileExtension( stemFile ); - - /* If an extension was found, then shorten what we think the len is. */ - if ( ppos != 0 ) - len = ppos - stemFile; - - /* Make the return string from the stem and the suffix. */ - char *retVal = new char[ len + strlen( suffix ) + 1 ]; - strncpy( retVal, stemFile, len ); - strcpy( retVal + len, suffix ); - - return retVal; -} - -exit_object endp; - -void operator<<( std::ostream &out, exit_object & ) -{ - out << std::endl; - throw AbortCompile( 1 ); -} - -void genLineDirectiveC( std::ostream &out, bool lineDirectives, int line, const char *fileName ) -{ - if ( !lineDirectives ) - out << "/* "; - - out << "#line " << line << " \""; - for ( const char *pc = fileName; *pc != 0; pc++ ) { - if ( *pc == '\\' ) - out << "\\\\"; - else if ( *pc == '"' ) - out << "\\\""; - else - out << *pc; - } - out << '"'; - - if ( !lineDirectives ) - out << " */"; - - out << '\n'; -} - -void genLineDirectiveAsm( std::ostream &out, bool lineDirectives, int line, const char *fileName ) -{ - out << "/* #line " << line << " \""; - for ( const char *pc = fileName; *pc != 0; pc++ ) { - if ( *pc == '\\' ) - out << "\\\\"; - else if ( *pc == '"' ) - out << "\\\""; - else - out << *pc; - } - out << '"'; - out << " */\n"; -} - -void genLineDirectiveTrans( std::ostream &out, bool lineDirectives, int line, const char *fileName ) -{ -} |