autodoc/source/parser_i/idl/cx_sub.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: cx_sub.cxx,v $
  10  * $Revision: 1.6 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 #include <precomp.h>
  32 #include <s2_luidl/cx_sub.hxx>
  33
  34
  35
  36 // NOT FULLY DECLARED SERVICES
  37 #include <s2_luidl/tokrecv.hxx>
  38 #include <../../parser/inc/tokens/parseinc.hxx>
  39 #include <x_parse2.hxx>
  40 #include <s2_luidl/tk_const.hxx>
  41
  42
  43
  44 namespace csi
  45 {
  46 namespace uidl
  47 {
  48
  49 bool
  50 Cx_Base::PassNewToken()
  51 {
  52     if (pNewToken)
  53     {
  54         rReceiver.Receive(*pNewToken.Release());
  55         return true;
  56     }
  57     return false;
  58 }
  59
  60 TkpContext &
  61 Cx_Base::FollowUpContext()
  62 {
  63     csv_assert(pFollowUpContext != 0);
  64     return *pFollowUpContext;
  65 }
  66
  67 void
  68 Context_MLComment::ReadCharChain( CharacterSource &     io_rText )
  69 {
  70     char cNext = NULCH;
  71
  72     do {
  73         do {
  74             cNext = jumpTo(io_rText,'*','\n');
  75             if (cNext == '\n')
  76             {
  77                 Receiver().Increment_CurLine();
  78                 cNext = io_rText.MoveOn();
  79             }
  80             else if (cNext == NULCH)
  81                 throw X_AutodocParser(X_AutodocParser::x_UnexpectedEOF);
  82         } while (cNext != '*');
  83
  84         cNext = jumpOver(io_rText,'*');
  85         if (cNext == NULCH)
  86             throw X_AutodocParser(X_AutodocParser::x_UnexpectedEOF);
  87     } while (cNext != '/');
  88     io_rText.MoveOn();
  89     io_rText.CutToken();
  90     SetToken(0);
  91 }
  92
  93 void
  94 Context_SLComment::ReadCharChain( CharacterSource &     io_rText )
  95 {
  96     jumpToEol(io_rText);
  97     if (io_rText.CurChar() != NULCH)
  98         jumpOverEol(io_rText);
  99     io_rText.CutToken();
 100     SetToken(0);
 101
 102     Receiver().Increment_CurLine();
 103 }
 104
 105 void
 106 Context_Praeprocessor::ReadCharChain( CharacterSource & io_rText )
 107 {
 108     jumpToEol(io_rText);
 109     if (io_rText.CurChar() != NULCH)
 110         jumpOverEol(io_rText);
 111     io_rText.CutToken();
 112     SetToken(0);
 113
 114     Receiver().Increment_CurLine();
 115 }
 116
 117 void
 118 Context_Assignment::ReadCharChain( CharacterSource &    io_rText )
 119 {
 120     // KORR_FUTURE
 121     // How to handle new lines within this, so he y get realised by
 122     //  ParserInfo?
 123
 124     char cNext = NULCH;
 125     do {
 126         if ( (cNext = jumpTo(io_rText,';',',','"','}')) == NULCH )
 127             throw X_AutodocParser(X_AutodocParser::x_UnexpectedEOF);
 128         if (cNext == '"')
 129         {
 130             cNext = io_rText.MoveOn();
 131             while (cNext != '"')
 132             {
 133                 if ( (cNext = jumpTo(io_rText,'"','\\')) == NULCH )
 134                     throw X_AutodocParser(X_AutodocParser::x_UnexpectedEOF);
 135                 if (cNext == '\\')
 136                     io_rText.MoveOn();
 137             }
 138             cNext = io_rText.MoveOn();
 139         }       // endif (cNext == '"')
 140     } while (cNext != ';' AND cNext != ',' AND cNext != '}');
 141
 142     if (cNext == ',' OR cNext == ';')
 143         io_rText.MoveOn();
 144     SetToken(new TokAssignment(io_rText.CutToken()));
 145 }
 146
 147
 148 }   // namespace uidl
 149 }   // namespace csi