source/shapesscanner.cc

   1 /* This file is part of Shapes.
   2  *
   3  * Shapes is free software: you can redistribute it and/or modify
   4  * it under the terms of the GNU General Public License as published by
   5  * the Free Software Foundation, either version 3 of the License, or
   6  * any later version.
   7  *
   8  * Shapes is distributed in the hope that it will be useful,
   9  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11  * GNU General Public License for more details.
  12  *
  13  * You should have received a copy of the GNU General Public License
  14  * along with Shapes.  If not, see <http://www.gnu.org/licenses/>.
  15  *
  16  * Copyright 2008 Henrik Tidefelt
  17  */
  18
  19 #include "shapesscanner.h"
  20 #include "yyltype.h"
  21
  22 #include "shapestypes.h"
  23 #include "ast.h"
  24 #include "astflow.h"
  25 #include "astclass.h"
  26
  27 using namespace Shapes;
  28 #include "shapesparser.h"
  29
  30 #include <iostream>
  31
  32 using namespace std;
  33
  34
  35 ShapesScanner::ShapesScanner( )
  36         : yyFlexLexer( 0, & std::cerr ), moreState( false ), lastleng( 0 ),
  37                 showFiles( false ), randSeedSet( false ), interactive_( false )
  38 {
  39         shapeslloc = Ast::THE_UNKNOWN_LOCATION;
  40         unitTable[ "bp" ] = 1;
  41         unitTable[ "mm" ] = 0.1 * 72 / 2.54;
  42         unitTable[ "cm" ] = 72 / 2.54;
  43         unitTable[ "m" ] = 100 * 72 / 2.54;
  44         unitTable[ "in" ] = 72;
  45 }
  46
  47 ShapesScanner::~ShapesScanner( )
  48 { }
  49
  50 void
  51 ShapesScanner::setInteractive( bool interactive )
  52 {
  53         interactive_ = interactive;
  54 }
  55
  56 // The following method is placed in shapesyylex to access YY_BUF_SIZE
  57 // ShapesScanner::start( )
  58
  59 void
  60 ShapesScanner::setSourceDir( const std::string & sourceDir )
  61 {
  62         sourceDir_ = sourceDir;
  63 }
  64
  65 void
  66 ShapesScanner::push_backNeedPath( const std::string & path )
  67 {
  68         if( path.empty( ) ||
  69                         path[ path.size( ) - 1 ] == '/' )
  70                 {
  71                         needSearchPath.push_back( path );
  72                 }
  73         else
  74                 {
  75                         needSearchPath.push_back( path + "/" );
  76                 }
  77 }
  78
  79 void
  80 ShapesScanner::push_frontNeedPath( const std::string & path )
  81 {
  82         if( path.empty( ) ||
  83                         path[ path.size( ) - 1 ] == '/' )
  84                 {
  85                         needSearchPath.push_front( path );
  86                 }
  87         else
  88                 {
  89                         needSearchPath.push_front( path + "/" );
  90                 }
  91 }
  92
  93 void
  94 ShapesScanner::pop_frontNeedPath( )
  95 {
  96         needSearchPath.pop_front( );
  97 }
  98
  99 void
 100 ShapesScanner::setShowFiles( bool _showFiles )
 101 {
 102         showFiles = _showFiles;
 103 }
 104
 105
 106 void
 107 ShapesScanner::more( )
 108 {
 109         moreState = true; // This one is for ourselves to use in DoBeforeEachAction
 110         yy_more_flag = 1; // This one is for flex, and will be reset before we reach doBeforeEachAction
 111         lastleng = yyleng;
 112 }
 113
 114 void
 115 ShapesScanner::doBeforeEachAction( )
 116 {
 117         if( moreState )
 118                 {
 119                         shapeslloc.lastColumn += yyleng - lastleng;
 120                 }
 121         else
 122                 {
 123                         shapeslloc.firstLine = shapeslloc.lastLine;
 124                         shapeslloc.firstColumn = shapeslloc.lastColumn;
 125                         shapeslloc.lastColumn = shapeslloc.firstColumn + yyleng;
 126                 }
 127         moreState = false;
 128 }
 129
 130 double
 131 ShapesScanner::lookupUnitFactor( const char * name ) const
 132 {
 133         typedef typeof unitTable MapType;
 134         MapType::const_iterator i = unitTable.find( name );
 135         if( i == unitTable.end( ) )
 136                 {
 137                         return -1;
 138                 }
 139         return 1 / i->second;
 140 }
 141
 142 Concrete::Length
 143 ShapesScanner::strtoLength( const char * str ) const
 144 {
 145         char * endp;
 146         double scalar = strtod( str, &endp );
 147         typedef typeof unitTable MapType;
 148         MapType::const_iterator i = unitTable.find( endp );
 149         if( i == unitTable.end( ) )
 150                 {
 151                         throw "Malformed length.";
 152                 }
 153         return scalar * i->second;
 154 }
 155
 156 std::string
 157 ShapesScanner::searchFile( const std::string & suffix ) const
 158 {
 159         struct stat theStatDummy;
 160         std::string res = searchFile( suffix, & theStatDummy );
 161         if( showFiles )
 162                 {
 163                         for( size_t i = 0; i < locStack.size( ); ++i )
 164                                 {
 165                                         std::cerr << "  " ;
 166                                 }
 167                         std::cerr << "  " << res << std::endl ;
 168                 }
 169         return res;
 170 }
 171
 172 std::string
 173 ShapesScanner::searchFile( const std::string & suffix, struct stat * dstStat ) const
 174 {
 175         std::string res;
 176
 177         if( suffix.empty( ) )
 178                 {
 179                         throw Exceptions::InternalError( strrefdup( "ShapesScanner::searchFile called with empty argument." ) );
 180                 }
 181
 182         if( suffix[ 0 ] == '/' )
 183                 {
 184                         res = suffix;
 185                         if( stat( res.c_str( ), dstStat ) == 0 )
 186                                 {
 187                                         return res;
 188                                 }
 189                         throw Exceptions::FileReadOpenError( shapeslloc, strrefdup( suffix ), 0, 0 );
 190                 }
 191
 192         if( needSearchPath.empty( ) )
 193                 {
 194                         throw Exceptions::ScannerError( shapeslloc, strrefdup( "Relative file inclusion impossible since search path is empty." ) );
 195                 }
 196
 197         typedef typeof needSearchPath ListType;
 198         for( ListType::const_iterator i = needSearchPath.begin( ); i != needSearchPath.end( ); ++i )
 199                 {
 200                         res = needpathWithSuffix( *i, suffix );
 201
 202                         if( stat( res.c_str( ), dstStat ) == 0 )
 203                                 {
 204                                         return res;
 205                                 }
 206                 }
 207         throw Exceptions::FileReadOpenError( shapeslloc, strrefdup( suffix ), & sourceDir_, & needSearchPath );
 208 }
 209
 210 std::string
 211 ShapesScanner::needpathWithSuffix( const std::string & needpath, const std::string & suffix ) const
 212 {
 213         if( needpath[0] == '/' )
 214                 {
 215                         return needpath + suffix;
 216                 }
 217         else if( needpath == "./" )
 218                 {
 219                         return sourceDir_ + suffix;
 220                 }
 221         else
 222                 {
 223                         return sourceDir_ + needpath + suffix;
 224                 }
 225 }
 226
 227 void
 228 ShapesScanner::rinseString( )
 229 {
 230         /* Both types of strings are terminated by a two byte sequence, ") or ´. */
 231         size_t bytecount = yyleng - ( ( yyleng >= 3 && yytext[ yyleng - 3 ] == '\n' ) ? 3 : 2 );
 232         char * res = new char[ bytecount + 1 ];
 233         memcpy( res, yytext, bytecount );
 234         res[ bytecount ] = '\0';
 235         shapeslval.Lang_String = new Lang::String( RefCountPtr< const char >( res ), bytecount );
 236 }
 237
 238 void
 239 ShapesScanner::concatenateDataString( )
 240 {
 241         /* Remember: strcpy, strdup and friends may fail here, since the string may contain zeros. */
 242
 243         char * res = new char[ dataStringTotalLength_ + 1 ];
 244         char * dst = res;
 245         while( ! dataStringChunks_.empty( ) )
 246                 {
 247                         char * ptr = dataStringChunks_.front( ).first;
 248                         memcpy( dst, ptr, dataStringChunks_.front( ).second );
 249                         dst += dataStringChunks_.front( ).second;
 250                         delete ptr;
 251                         dataStringChunks_.pop_front( );
 252                 }
 253         *dst = '\0';
 254         shapeslval.Lang_String = new Lang::String( RefCountPtr< const char >( res ), dataStringTotalLength_ );
 255 }