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, bool runtime ) const
 158 {
 159         struct stat theStatDummy;
 160         std::string res = searchFile( suffix, & theStatDummy, runtime );
 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, bool runtime ) const
 174 {
 175         std::string res;
 176
 177         if( suffix.empty( ) )
 178                 {
 179                         if( runtime )
 180                                 {
 181                                         throw strrefdup( "Empty file name." ); /* This string should be embedded in a catchable exception by the caller. */
 182                                 }
 183                         else
 184                                 {
 185                                         throw Exceptions::InternalError( strrefdup( "ShapesScanner::searchFile called with empty argument." ) );
 186                                 }
 187                 }
 188
 189         if( suffix[ 0 ] == '/' )
 190                 {
 191                         res = suffix;
 192                         if( stat( res.c_str( ), dstStat ) == 0 )
 193                                 {
 194                                         return res;
 195                                 }
 196                         if( runtime )
 197                                 {
 198                                         std::ostringstream msg;
 199                                         msg << "The absolute filename \"" << suffix << "\" does not name a file." ;
 200                                         throw strrefdup( msg ); /* This string should be embedded in a catchable exception by the caller. */
 201                                 }
 202                         else
 203                                 {
 204                                         throw Exceptions::FileReadOpenError( shapeslloc, strrefdup( suffix ), 0, 0 );
 205                                 }
 206                 }
 207
 208         if( needSearchPath.empty( ) )
 209                 {
 210                         if( runtime )
 211                                 {
 212                                         std::ostringstream msg;
 213                                         msg << "The relative filename \"" << suffix << "\" cannot be searched since the search path is empty." ;
 214                                         throw strrefdup( msg ); /* This string should be embedded in a catchable exception by the caller. */
 215                                 }
 216                         else
 217                                 {
 218                                         throw Exceptions::ScannerError( shapeslloc, strrefdup( "Relative file inclusion impossible since search path is empty." ) );
 219                                 }
 220                 }
 221
 222         typedef typeof needSearchPath ListType;
 223         for( ListType::const_iterator i = needSearchPath.begin( ); i != needSearchPath.end( ); ++i )
 224                 {
 225                         res = needpathWithSuffix( *i, suffix );
 226
 227                         if( stat( res.c_str( ), dstStat ) == 0 )
 228                                 {
 229                                         return res;
 230                                 }
 231                 }
 232         if( runtime )
 233                 {
 234                         std::ostringstream msg;
 235                         msg << "The relative filename \"" << suffix << "\" did not name a file in the search path." ;
 236                         throw strrefdup( msg ); /* This string should be embedded in a catchable exception by the caller. */
 237                 }
 238         else
 239                 {
 240                         throw Exceptions::FileReadOpenError( shapeslloc, strrefdup( suffix ), & sourceDir_, & needSearchPath );
 241                 }
 242 }
 243
 244 std::string
 245 ShapesScanner::needpathWithSuffix( const std::string & needpath, const std::string & suffix ) const
 246 {
 247         if( needpath[0] == '/' )
 248                 {
 249                         return needpath + suffix;
 250                 }
 251         else if( needpath == "./" )
 252                 {
 253                         return sourceDir_ + suffix;
 254                 }
 255         else
 256                 {
 257                         return sourceDir_ + needpath + suffix;
 258                 }
 259 }
 260
 261 void
 262 ShapesScanner::rinseString( )
 263 {
 264         /* Both types of strings are terminated by a two byte sequence, ") or ´. */
 265         size_t bytecount = yyleng - ( ( yyleng >= 3 && yytext[ yyleng - 3 ] == '\n' ) ? 3 : 2 );
 266         char * res = new char[ bytecount + 1 ];
 267         memcpy( res, yytext, bytecount );
 268         res[ bytecount ] = '\0';
 269         shapeslval.Lang_String = new Lang::String( RefCountPtr< const char >( res ), bytecount );
 270 }
 271
 272 void
 273 ShapesScanner::concatenateDataString( )
 274 {
 275         /* Remember: strcpy, strdup and friends may fail here, since the string may contain zeros. */
 276
 277         char * res = new char[ dataStringTotalLength_ + 1 ];
 278         char * dst = res;
 279         while( ! dataStringChunks_.empty( ) )
 280                 {
 281                         char * ptr = dataStringChunks_.front( ).first;
 282                         memcpy( dst, ptr, dataStringChunks_.front( ).second );
 283                         dst += dataStringChunks_.front( ).second;
 284                         delete ptr;
 285                         dataStringChunks_.pop_front( );
 286                 }
 287         *dst = '\0';
 288         shapeslval.Lang_String = new Lang::String( RefCountPtr< const char >( res ), dataStringTotalLength_ );
 289 }