LCOV - code coverage report
Current view: top level - basic/source/comp - io.cxx (source / functions) Hit Total Coverage
Test: commit e02a6cb2c3e2b23b203b422e4e0680877f232636 Lines: 0 172 0.0 %
Date: 2014-04-14 Functions: 0 9 0.0 %
Legend: Lines: hit not hit

          Line data    Source code
       1             : /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
       2             : /*
       3             :  * This file is part of the LibreOffice project.
       4             :  *
       5             :  * This Source Code Form is subject to the terms of the Mozilla Public
       6             :  * License, v. 2.0. If a copy of the MPL was not distributed with this
       7             :  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
       8             :  *
       9             :  * This file incorporates work covered by the following license notice:
      10             :  *
      11             :  *   Licensed to the Apache Software Foundation (ASF) under one or more
      12             :  *   contributor license agreements. See the NOTICE file distributed
      13             :  *   with this work for additional information regarding copyright
      14             :  *   ownership. The ASF licenses this file to you under the Apache
      15             :  *   License, Version 2.0 (the "License"); you may not use this file
      16             :  *   except in compliance with the License. You may obtain a copy of
      17             :  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
      18             :  */
      19             : 
      20             : #include "sbcomp.hxx"
      21             : #include "iosys.hxx"
      22             : 
      23             : // test if there's an I/O channel
      24             : 
      25           0 : bool SbiParser::Channel( bool bAlways )
      26             : {
      27           0 :     bool bRes = false;
      28           0 :     Peek();
      29           0 :     if( IsHash() )
      30             :     {
      31           0 :         SbiExpression aExpr( this );
      32           0 :         while( Peek() == COMMA || Peek() == SEMICOLON )
      33           0 :             Next();
      34           0 :         aExpr.Gen();
      35           0 :         aGen.Gen( _CHANNEL );
      36           0 :         bRes = true;
      37             :     }
      38           0 :     else if( bAlways )
      39           0 :         Error( SbERR_EXPECTED, "#" );
      40           0 :     return bRes;
      41             : }
      42             : 
      43             : // it's tried that at object variables the Default-
      44             : // Property is addressed for PRINT and WRITE
      45             : 
      46           0 : void SbiParser::Print()
      47             : {
      48           0 :     bool bChan = Channel();
      49             : 
      50           0 :     while( !bAbort )
      51             :     {
      52           0 :         if( !IsEoln( Peek() ) )
      53             :         {
      54           0 :             SbiExpression* pExpr = new SbiExpression( this );
      55           0 :             pExpr->Gen();
      56           0 :             delete pExpr;
      57           0 :             Peek();
      58           0 :             aGen.Gen( eCurTok == COMMA ? _PRINTF : _BPRINT );
      59             :         }
      60           0 :         if( eCurTok == COMMA || eCurTok == SEMICOLON )
      61             :         {
      62           0 :             Next();
      63           0 :             if( IsEoln( Peek() ) ) break;
      64             :         }
      65             :         else
      66             :         {
      67           0 :             aGen.Gen( _PRCHAR, '\n' );
      68           0 :             break;
      69             :         }
      70             :     }
      71           0 :     if( bChan )
      72           0 :         aGen.Gen( _CHAN0 );
      73           0 : }
      74             : 
      75             : // WRITE #chan, expr, ...
      76             : 
      77           0 : void SbiParser::Write()
      78             : {
      79           0 :     bool bChan = Channel();
      80             : 
      81           0 :     while( !bAbort )
      82             :     {
      83           0 :         SbiExpression* pExpr = new SbiExpression( this );
      84           0 :         pExpr->Gen();
      85           0 :         delete pExpr;
      86           0 :         aGen.Gen( _BWRITE );
      87           0 :         if( Peek() == COMMA )
      88             :         {
      89           0 :             aGen.Gen( _PRCHAR, ',' );
      90           0 :             Next();
      91           0 :             if( IsEoln( Peek() ) ) break;
      92             :         }
      93             :         else
      94             :         {
      95           0 :             aGen.Gen( _PRCHAR, '\n' );
      96           0 :             break;
      97             :         }
      98             :     }
      99           0 :     if( bChan )
     100           0 :         aGen.Gen( _CHAN0 );
     101           0 : }
     102             : 
     103             : 
     104             : // #i92642 Handle LINE keyword outside ::Next()
     105           0 : void SbiParser::Line()
     106             : {
     107             :     // #i92642: Special handling to allow name as symbol
     108           0 :     if( Peek() == INPUT )
     109             :     {
     110           0 :         Next();
     111           0 :         LineInput();
     112             :     }
     113             :     else
     114             :     {
     115           0 :         aGen.Statement();
     116             : 
     117           0 :         KeywordSymbolInfo aInfo;
     118           0 :         aInfo.m_aKeywordSymbol = "line";
     119           0 :         aInfo.m_eSbxDataType = GetType();
     120           0 :         aInfo.m_eTok = SYMBOL;
     121             : 
     122           0 :         Symbol( &aInfo );
     123             :     }
     124           0 : }
     125             : 
     126             : 
     127             : // LINE INPUT [prompt], var$
     128             : 
     129           0 : void SbiParser::LineInput()
     130             : {
     131           0 :     Channel( true );
     132           0 :     SbiExpression* pExpr = new SbiExpression( this, SbOPERAND );
     133           0 :     if( !pExpr->IsVariable() )
     134           0 :         Error( SbERR_VAR_EXPECTED );
     135           0 :     if( pExpr->GetType() != SbxVARIANT && pExpr->GetType() != SbxSTRING )
     136           0 :         Error( SbERR_CONVERSION );
     137           0 :     pExpr->Gen();
     138           0 :     aGen.Gen( _LINPUT );
     139           0 :     delete pExpr;
     140           0 :     aGen.Gen( _CHAN0 );     // ResetChannel() not in StepLINPUT() anymore
     141           0 : }
     142             : 
     143             : // INPUT
     144             : 
     145           0 : void SbiParser::Input()
     146             : {
     147           0 :     aGen.Gen( _RESTART );
     148           0 :     Channel( true );
     149           0 :     SbiExpression* pExpr = new SbiExpression( this, SbOPERAND );
     150           0 :     while( !bAbort )
     151             :     {
     152           0 :         if( !pExpr->IsVariable() )
     153           0 :             Error( SbERR_VAR_EXPECTED );
     154           0 :         pExpr->Gen();
     155           0 :         aGen.Gen( _INPUT );
     156           0 :         if( Peek() == COMMA )
     157             :         {
     158           0 :             Next();
     159           0 :             delete pExpr;
     160           0 :             pExpr = new SbiExpression( this, SbOPERAND );
     161             :         }
     162           0 :         else break;
     163             :     }
     164           0 :     delete pExpr;
     165           0 :     aGen.Gen( _CHAN0 );
     166           0 : }
     167             : 
     168             : // OPEN stringexpr FOR mode ACCCESS access mode AS Channel [Len=n]
     169             : 
     170           0 : void SbiParser::Open()
     171             : {
     172           0 :     bInStatement = true;
     173           0 :     SbiExpression aFileName( this );
     174             :     SbiToken eTok;
     175           0 :     TestToken( FOR );
     176           0 :     short nMode = 0;
     177           0 :     short nFlags = 0;
     178           0 :     switch( Next() )
     179             :     {
     180             :         case INPUT:
     181           0 :             nMode = STREAM_READ;  nFlags |= SBSTRM_INPUT; break;
     182             :         case OUTPUT:
     183           0 :             nMode = STREAM_WRITE | STREAM_TRUNC; nFlags |= SBSTRM_OUTPUT; break;
     184             :         case APPEND:
     185           0 :             nMode = STREAM_WRITE; nFlags |= SBSTRM_APPEND; break;
     186             :         case RANDOM:
     187           0 :             nMode = STREAM_READ | STREAM_WRITE; nFlags |= SBSTRM_RANDOM; break;
     188             :         case BINARY:
     189           0 :             nMode = STREAM_READ | STREAM_WRITE; nFlags |= SBSTRM_BINARY; break;
     190             :         default:
     191           0 :             Error( SbERR_SYNTAX );
     192             :     }
     193           0 :     if( Peek() == ACCESS )
     194             :     {
     195           0 :         Next();
     196           0 :         eTok = Next();
     197             :         // influence only STREAM_READ,STREAM_WRITE-Flags in nMode
     198           0 :         nMode &= ~(STREAM_READ | STREAM_WRITE);     // delete
     199           0 :         if( eTok == READ )
     200             :         {
     201           0 :             if( Peek() == WRITE )
     202             :             {
     203           0 :                 Next();
     204           0 :                 nMode |= (STREAM_READ | STREAM_WRITE);
     205             :             }
     206             :             else
     207           0 :                 nMode |= STREAM_READ;
     208             :         }
     209           0 :         else if( eTok == WRITE )
     210           0 :             nMode |= STREAM_WRITE;
     211             :         else
     212           0 :             Error( SbERR_SYNTAX );
     213             :     }
     214           0 :     switch( Peek() )
     215             :     {
     216             : #ifdef SHARED
     217             : #undef SHARED
     218             : #define tmpSHARED
     219             : #endif
     220             :         case SHARED:
     221           0 :             Next(); nMode |= STREAM_SHARE_DENYNONE; break;
     222             : #ifdef tmpSHARED
     223             : #define SHARED
     224             : #undef tmpSHARED
     225             : #endif
     226             :         case LOCK:
     227           0 :             Next();
     228           0 :             eTok = Next();
     229           0 :             if( eTok == READ )
     230             :             {
     231           0 :                 if( Peek() == WRITE ) Next(), nMode |= STREAM_SHARE_DENYALL;
     232           0 :                 else nMode |= STREAM_SHARE_DENYREAD;
     233             :             }
     234           0 :             else if( eTok == WRITE )
     235           0 :                 nMode |= STREAM_SHARE_DENYWRITE;
     236             :             else
     237           0 :                 Error( SbERR_SYNTAX );
     238           0 :             break;
     239           0 :         default: break;
     240             :     }
     241           0 :     TestToken( AS );
     242             :     // channel number
     243           0 :     SbiExpression* pChan = new SbiExpression( this );
     244           0 :     if( !pChan )
     245           0 :         Error( SbERR_SYNTAX );
     246           0 :     SbiExpression* pLen = NULL;
     247           0 :     if( Peek() == SYMBOL )
     248             :     {
     249           0 :         Next();
     250           0 :         if( aSym.equalsIgnoreAsciiCase("LEN") )
     251             :         {
     252           0 :             TestToken( EQ );
     253           0 :             pLen = new SbiExpression( this );
     254             :         }
     255             :     }
     256           0 :     if( !pLen ) pLen = new SbiExpression( this, 128, SbxINTEGER );
     257             :     // the stack for the OPEN command looks as follows:
     258             :     // block length
     259             :     // channel number
     260             :     // file name
     261           0 :     pLen->Gen();
     262           0 :     if( pChan )
     263           0 :         pChan->Gen();
     264           0 :     aFileName.Gen();
     265           0 :     aGen.Gen( _OPEN, nMode, nFlags );
     266           0 :     delete pLen;
     267           0 :     delete pChan;
     268           0 :     bInStatement = false;
     269           0 : }
     270             : 
     271             : // NAME file AS file
     272             : 
     273           0 : void SbiParser::Name()
     274             : {
     275             :     // #i92642: Special handling to allow name as symbol
     276           0 :     if( Peek() == EQ )
     277             :     {
     278           0 :         aGen.Statement();
     279             : 
     280           0 :         KeywordSymbolInfo aInfo;
     281           0 :         aInfo.m_aKeywordSymbol = "name";
     282           0 :         aInfo.m_eSbxDataType = GetType();
     283           0 :         aInfo.m_eTok = SYMBOL;
     284             : 
     285           0 :         Symbol( &aInfo );
     286           0 :         return;
     287             :     }
     288           0 :     SbiExpression aExpr1( this );
     289           0 :     TestToken( AS );
     290           0 :     SbiExpression aExpr2( this );
     291           0 :     aExpr1.Gen();
     292           0 :     aExpr2.Gen();
     293           0 :     aGen.Gen( _RENAME );
     294             : }
     295             : 
     296             : // CLOSE [n,...]
     297             : 
     298           0 : void SbiParser::Close()
     299             : {
     300           0 :     Peek();
     301           0 :     if( IsEoln( eCurTok ) )
     302           0 :         aGen.Gen( _CLOSE, 0 );
     303             :     else
     304             :     for( ;; )
     305             :     {
     306           0 :         SbiExpression aExpr( this );
     307           0 :         while( Peek() == COMMA || Peek() == SEMICOLON )
     308           0 :             Next();
     309           0 :         aExpr.Gen();
     310           0 :         aGen.Gen( _CHANNEL );
     311           0 :         aGen.Gen( _CLOSE, 1 );
     312             : 
     313           0 :         if( IsEoln( Peek() ) )
     314           0 :             break;
     315           0 :     }
     316           0 : }
     317             : 
     318             : 
     319             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10