/* -*-c++-*- Producer - Copyright (C) 2001-2004  Don Burns
 *
 * This library is open source and may be redistributed and/or modified under
 * the terms of the OpenSceneGraph Public License (OSGPL) version 0.0 or
 * (at your option) any later version.  The full license is in LICENSE file
 * included with this distribution, and on the openscenegraph.org website.
 *
 * This library is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * OpenSceneGraph Public License for more details.
 */


%{

#ifndef WIN32
#include <unistd.h>
#include <sys/wait.h>
#include <stdlib.h>
#include <fcntl.h>
#endif

#ifndef WIN32
#define SUPPORT_CPP 1
#endif

#include <stdio.h>
#include <fstream>
#include <string>

#include "FlexLexer.h"

#include <Producer/CameraConfig>


using namespace Producer;

static void ConfigParser_error( const char * );
static CameraConfig *cfg = 0L;
static std::string fileName = "(stdin)";

static yyFlexLexer *flexer = 0L;

static int yylex()
{
    if( flexer == 0L )
        fprintf( stderr, "Internal error!\n" );
    return flexer->yylex();
}

%}

%token PRTOKEN_VISUAL
%token PRTOKEN_SET_SIMPLE
%token PRTOKEN_VISUAL_ID
%token PRTOKEN_BUFFER_SIZE
%token PRTOKEN_LEVEL      
%token PRTOKEN_RGBA               
%token PRTOKEN_DOUBLEBUFFER
%token PRTOKEN_STEREO      
%token PRTOKEN_AUX_BUFFERS 
%token PRTOKEN_RED_SIZE    
%token PRTOKEN_GREEN_SIZE  
%token PRTOKEN_BLUE_SIZE     
%token PRTOKEN_ALPHA_SIZE    
%token PRTOKEN_DEPTH_SIZE    
%token PRTOKEN_STENCIL_SIZE  
%token PRTOKEN_ACCUM_RED_SIZE      
%token PRTOKEN_ACCUM_GREEN_SIZE    
%token PRTOKEN_ACCUM_BLUE_SIZE     
%token PRTOKEN_ACCUM_ALPHA_SIZE    
%token PRTOKEN_ACCUM_ALPHA_SIZE    
%token PRTOKEN_SAMPLES
%token PRTOKEN_SAMPLE_BUFFERS    
%token PRTOKEN_RENDER_SURFACE
%token PRTOKEN_WINDOW_RECT
%token PRTOKEN_INPUT_RECT
%token PRTOKEN_HOSTNAME
%token PRTOKEN_DISPLAY
%token PRTOKEN_SCREEN
%token PRTOKEN_BORDER
%token PRTOKEN_DRAWABLE_TYPE
%token PRTOKEN_WINDOW_TYPE
%token PRTOKEN_PBUFFER_TYPE
%token PRTOKEN_CAMERA_GROUP
%token PRTOKEN_CAMERA
%token PRTOKEN_PROJECTION_RECT
%token PRTOKEN_LENS
%token PRTOKEN_FRUSTUM
%token PRTOKEN_PERSPECTIVE
%token PRTOKEN_ORTHO
%token PRTOKEN_OFFSET
%token PRTOKEN_ROTATE
%token PRTOKEN_TRANSLATE
%token PRTOKEN_SCALE
%token PRTOKEN_SHEAR
%token PRTOKEN_CLEAR_COLOR
%token PRTOKEN_INPUT_AREA
%token PRTOKEN_ERROR
%token PRTOKEN_INTEGER
%token PRTOKEN_HEX_INTEGER
%token PRTOKEN_FLOAT
%token PRTOKEN_TRUE
%token PRTOKEN_FALSE
%token PRTOKEN_QUOTED_STRING
%token PRTOKEN_STEREO_SYSTEM_COMMANDS
%token PRTOKEN_CUSTOM_FULL_SCREEN_RECTANGLE
%token PRTOKEN_METHOD
%token PRTOKEN_PREMULTIPLY
%token PRTOKEN_POSTMULTIPLY
%token PRTOKEN_OVERRIDE_REDIRECT
%token PRTOKEN_SHARELENS
%token PRTOKEN_SHAREVIEW
%token PRTOKEN_READ_DRAWABLE
%token PRTOKEN_SET_RTT_MODE
%token PRTOKEN_RTT_MODE_NONE
%token PRTOKEN_RTT_MODE_RGB
%token PRTOKEN_RTT_MODE_RGBA
%token PRTOKEN_THREAD_MODEL
%token PRTOKEN_SINGLE_THREADED
%token PRTOKEN_THREAD_PER_CAMERA
%token PRTOKEN_THREAD_PER_RENDER_SURFACE

%union {
    char * string;
    int    integer;
    float  real;
    bool boolean;
};

%type <string> name string;
%type <integer> intparam offset_multiply_method;
%type <integer> hex_integer;
%type <integer> drawableType rtt_mode;
%type <integer> threadModelDirective;
%type <real>    floatparam;
%type <real>    real;
%type <boolean> bool;

%%

config  : entries
    ;

entries : entry | entries entry
    ;

entry : visual | render_surface | camera | input_area | camera_group | stereo_param | system_params
    ;

system_params : system_param | system_params system_param
    ;

system_param : 
        PRTOKEN_THREAD_MODEL threadModelDirective ';' 
        {
            Producer::CameraGroup::ThreadModel tm = (Producer::CameraGroup::ThreadModel)$2;
            cfg->setThreadModelDirective( tm );
        }
        ;

threadModelDirective:  
          PRTOKEN_SINGLE_THREADED               { $$ = CameraGroup::SingleThreaded; }
        | PRTOKEN_THREAD_PER_CAMERA             { $$ = CameraGroup::ThreadPerCamera; }
        | PRTOKEN_THREAD_PER_RENDER_SURFACE     { $$ = CameraGroup::ThreadPerRenderSurface; }
        ;

stereo_param : PRTOKEN_STEREO_SYSTEM_COMMANDS intparam string string ';'
        {
           cfg->addStereoSystemCommand( $2, $3, $4 );
        };


camera_group: PRTOKEN_CAMERA_GROUP '{' camera_group_attributes '}'
    ;

camera_group_attributes: cameras 
    ;

cameras :  /* null */ | camera | cameras camera
    ;

camera : PRTOKEN_CAMERA name 
     {
        cfg->beginCamera( $2 );
     }
    '{' camera_attributes '}'
     {
        cfg->endCamera();
     };

camera_attributes : camera_attribute | camera_attributes camera_attribute
     ;

camera_attribute :
    /* EMPTY */
    | PRTOKEN_RENDER_SURFACE name ';'
    {
        cfg->setCameraRenderSurface( $2 );
    }
    | render_surface 
    {
        cfg->setCameraRenderSurface();
    }
    | PRTOKEN_PROJECTION_RECT real real real real ';'
    {
        cfg->setCameraProjectionRectangle( $2, $3, $4, $5 );
    }
    | PRTOKEN_SHARELENS bool ';'
    {
        cfg->setCameraShareLens( $2 );
    }
    | PRTOKEN_SHAREVIEW bool ';'
    {
        cfg->setCameraShareView( $2 );
    }
    | PRTOKEN_CLEAR_COLOR real real real real ';'
    {
        cfg->setCameraClearColor( $2, $3, $4, $5 );
    }
    | lens 
    | camera_offset 
    ;

camera_offset : PRTOKEN_OFFSET '{' 
    {
        cfg->beginCameraOffset();
    }
        camera_offset_attributes '}'
    {
        cfg->endCameraOffset();
    }
    ;

camera_offset_attributes : camera_offset_attribute | camera_offset_attributes camera_offset_attribute
    ;

camera_offset_attribute  :
      PRTOKEN_SHEAR real real ';'
      {
        cfg->shearCameraOffset( $2, $3 );
      }
    | PRTOKEN_ROTATE real real real real ';'
      {
        cfg->rotateCameraOffset( $2, $3, $4, $5 );
      }
    | PRTOKEN_TRANSLATE real real real ';'
      {
        cfg->translateCameraOffset( $2, $3, $4 );
      }
    | PRTOKEN_SCALE real real real ';'
      {
        cfg->scaleCameraOffset( $2, $3, $4 );
      }
    | PRTOKEN_METHOD offset_multiply_method ';'
      {
        cfg->setCameraOffsetMultiplyMethod( (Producer::Camera::Offset::MultiplyMethod)$2 );
      }
    ;

offset_multiply_method: 
      PRTOKEN_PREMULTIPLY  { $$ = Producer::Camera::Offset::PreMultiply; }
    | PRTOKEN_POSTMULTIPLY { $$ = Producer::Camera::Offset::PostMultiply; }
    ;

lens : PRTOKEN_LENS '{' lens_attributes '}'
    ;

lens_attributes : lens_attribute | lens_attributes lens_attribute
    ;

lens_attribute :
    /* Empty */
    | PRTOKEN_ORTHO real real real real real real ';'
      {
          cfg->setCameraOrtho( $2, $3, $4, $5, $6, $7 );
      }
    | PRTOKEN_ORTHO real real real real real real real real ';'
      {
          cfg->setCameraOrtho( $2, $3, $4, $5, $6, $7, $8, $9 );
      }
    | PRTOKEN_PERSPECTIVE real real real real ';'
      {
          cfg->setCameraPerspective( $2, $3, $4, $5 );
      }
    | PRTOKEN_PERSPECTIVE real real real real real real ';'
      {
          cfg->setCameraPerspective( $2, $3, $4, $5, $6, $7 );
      }
    | PRTOKEN_FRUSTUM real real real real real real ';'
      {
          cfg->setCameraFrustum( $2, $3, $4, $5, $6, $7 );
      }
    | PRTOKEN_FRUSTUM real real real real real real real real ';'
      {
          cfg->setCameraFrustum( $2, $3, $4, $5, $6, $7, $8, $9 );
      }
    | PRTOKEN_SHEAR real real ';'
      {
          cfg->setCameraLensShear( $2, $3 );
      }
    ;

render_surface : PRTOKEN_RENDER_SURFACE name 
     {
         cfg->beginRenderSurface( $2 );
     }
     '{' render_surface_attributes '}'
     {
         cfg->endRenderSurface();
     }
    ;

render_surface_attributes : 
          render_surface_attribute 
        | render_surface_attributes render_surface_attribute
    ;

render_surface_attribute :
    /* Empty */
    | PRTOKEN_VISUAL name ';'
    {
        cfg->setRenderSurfaceVisualChooser( $2 );
    }
    | visual 
    {
        cfg->setRenderSurfaceVisualChooser();
    }
    | PRTOKEN_WINDOW_RECT intparam  intparam  intparam  intparam ';'
    {
        cfg->setRenderSurfaceWindowRectangle( $2, $3, $4, $5 );
    }
    | PRTOKEN_INPUT_RECT floatparam floatparam floatparam floatparam ';'
    {
        cfg->setRenderSurfaceInputRectangle( $2, $3, $4, $5 );
    }
    | PRTOKEN_HOSTNAME name ';'
    {
        cfg->setRenderSurfaceHostName( std::string($2) );
    }
    | PRTOKEN_DISPLAY intparam ';'
    {
        cfg->setRenderSurfaceDisplayNum( $2 );
    }
    | PRTOKEN_SCREEN intparam ';'
    {
        cfg->setRenderSurfaceScreen( $2 );
    }
    | PRTOKEN_BORDER bool ';'
    {    
        cfg->setRenderSurfaceBorder( $2 );
    }
    | PRTOKEN_CUSTOM_FULL_SCREEN_RECTANGLE intparam  intparam  intparam  intparam ';'
    {
        cfg->setRenderSurfaceCustomFullScreenRectangle( $2, $3, $4, $5 );
    }
    | PRTOKEN_OVERRIDE_REDIRECT bool ';'
    {
        cfg->setRenderSurfaceOverrideRedirect( $2 );
    }
    | PRTOKEN_DRAWABLE_TYPE drawableType ';' 
    {
        Producer::RenderSurface::DrawableType drawableType = (RenderSurface::DrawableType)$2;
        cfg->setRenderSurfaceDrawableType( drawableType );
    }
    | PRTOKEN_READ_DRAWABLE name ';'
    {
        cfg->setRenderSurfaceReadDrawable( $2 );
    }
    | PRTOKEN_SET_RTT_MODE rtt_mode ';'
    {
        cfg->setRenderSurfaceRenderToTextureMode( (Producer::RenderSurface::RenderToTextureMode)$2 );
    }
    ;

drawableType: 
      PRTOKEN_WINDOW_TYPE   { $$ =  RenderSurface::DrawableType_Window; }
    | PRTOKEN_PBUFFER_TYPE  { $$ =  RenderSurface::DrawableType_PBuffer; }
    ;

rtt_mode : 
          PRTOKEN_RTT_MODE_NONE  { $$ = RenderSurface::RenderToTextureMode_None; }
        | PRTOKEN_RTT_MODE_RGB   { $$ = RenderSurface::RenderToRGBTexture; }
        | PRTOKEN_RTT_MODE_RGBA  { $$ = RenderSurface::RenderToRGBATexture; }
        ;


visual : PRTOKEN_VISUAL name 
     {
         cfg->beginVisual( $2 );
     }
    '{' visual_attributes '}'
     {
         cfg->endVisual();
     }

     | PRTOKEN_VISUAL
     {
         cfg->beginVisual();
     }
    '{' visual_attributes '}'
     {
         cfg->endVisual();
     }
     ;


visual_attributes : visual_attribute | visual_attributes ',' visual_attribute
    ;
visual_attribute :
      PRTOKEN_SET_SIMPLE 
      {
          cfg->setVisualSimpleConfiguration();
      }
    | PRTOKEN_VISUAL_ID hex_integer
      {
          cfg->setVisualByID( $2 );
      }

    | PRTOKEN_BUFFER_SIZE intparam 
      {
          cfg->addVisualAttribute( VisualChooser::BufferSize, $2 );
      }
    | PRTOKEN_LEVEL intparam 
      {
          cfg->addVisualAttribute( VisualChooser::Level, $2 );
      }

    | PRTOKEN_RGBA 
      {
          cfg->addVisualAttribute( VisualChooser::RGBA );
      }
    | PRTOKEN_DOUBLEBUFFER         
      {
          cfg->addVisualAttribute( VisualChooser::DoubleBuffer );
      }
    | PRTOKEN_STEREO               
      {
          cfg->addVisualAttribute( VisualChooser::Stereo );
      }
    | PRTOKEN_AUX_BUFFERS intparam 
      {
          cfg->addVisualAttribute( VisualChooser::AuxBuffers, $2 );
      }
    | PRTOKEN_RED_SIZE intparam             
      {
          cfg->addVisualAttribute( VisualChooser::RedSize, $2 );
      }

    | PRTOKEN_GREEN_SIZE   intparam 
      {
          cfg->addVisualAttribute( VisualChooser::GreenSize, $2 );
      }

    | PRTOKEN_BLUE_SIZE intparam 
      {
          cfg->addVisualAttribute( VisualChooser::BlueSize, $2 );
      }
    | PRTOKEN_ALPHA_SIZE  intparam          
      {
          cfg->addVisualAttribute( VisualChooser::AlphaSize, $2 );
      }
    | PRTOKEN_DEPTH_SIZE  intparam          
      {
          cfg->addVisualAttribute( VisualChooser::DepthSize, $2 );
      }
    | PRTOKEN_STENCIL_SIZE  intparam        
      {
          cfg->addVisualAttribute( VisualChooser::StencilSize, $2 );
      }
    | PRTOKEN_ACCUM_RED_SIZE  intparam      
      {
          cfg->addVisualAttribute( VisualChooser::AccumRedSize, $2 );
      }
    | PRTOKEN_ACCUM_GREEN_SIZE  intparam    
      {
          cfg->addVisualAttribute( VisualChooser::AccumGreenSize, $2 );
      }
    | PRTOKEN_ACCUM_BLUE_SIZE  intparam     
      {
          cfg->addVisualAttribute( VisualChooser::AccumBlueSize, $2 );
      }
    | PRTOKEN_ACCUM_ALPHA_SIZE  intparam    
      {
          cfg->addVisualAttribute( VisualChooser::AccumAlphaSize, $2 );
      }
    | PRTOKEN_SAMPLES  intparam    
      {
          cfg->addVisualAttribute( VisualChooser::Samples, $2 );
      }
    | PRTOKEN_SAMPLE_BUFFERS
      {
          cfg->addVisualAttribute( VisualChooser::SampleBuffers );
      }
    | intparam intparam
      {
          cfg->addVisualExtendedAttribute( $1, $2 );
      }
      ;

input_area : PRTOKEN_INPUT_AREA 
            { cfg->beginInputArea(); } 
            '{' input_area_entries '}'
            { cfg->endInputArea(); } 
    ;

input_area_entries : input_area_entry | input_area_entries input_area_entry
    ;

input_area_entry : 
        PRTOKEN_RENDER_SURFACE name ';'
        {
            cfg->addInputAreaEntry( $2 );
        }
        ;

real   : PRTOKEN_FLOAT
    {
        $$ = osg::asciiToFloat(flexer->YYText());
    }
    | PRTOKEN_INTEGER
    {
        $$ = osg::asciiToFloat(flexer->YYText());
    }
    ;


floatparam : PRTOKEN_FLOAT
    {
        $$ = osg::asciiToFloat(flexer->YYText());
    }
    ;

intparam : PRTOKEN_INTEGER
    {
        $$ = atoi( flexer->YYText() );
    }
    ;

name : PRTOKEN_QUOTED_STRING
    {
        $$ = strdup( flexer->YYText() );
    }
    ;

string : PRTOKEN_QUOTED_STRING
    {
        $$ = strdup( flexer->YYText() );
    }
    ;


hex_integer : PRTOKEN_HEX_INTEGER
    {
        int n;
        sscanf( flexer->YYText(), "0x%x", &n );
        $$ = n;
    }
    ;

bool : PRTOKEN_TRUE { $$ = true;} | PRTOKEN_FALSE { $$ = false; }
    ;

%%

static void yyerror( const char *errmsg )
{
    fprintf( stderr, 
        "CameraConfig::parseFile(\"%s\") : %s - Line %d at or before \"%s\"\n",
        fileName.c_str(),
        errmsg, 
        flexer->lineno(),
        flexer->YYText() );
}

bool CameraConfig::parseFile( const std::string &file )
{
    fileName.clear();

    fileName = findFile(file);

    if( fileName.empty() )
    {
        fprintf( stderr, "CameraConfig::parseFile() - Can't find file \"%s\".\n", file.c_str() );
        return false;
    }

    bool retval = true;

#if defined (SUPPORT_CPP)

    char *cpp_path =
  #if defined(__APPLE__)
                "/usr/bin/cpp";
  #else
                "/lib/cpp";
  #endif

    if( access( cpp_path, X_OK ) == 0 )
    {

        int pd[2];
        pipe( pd );

        flexer = new yyFlexLexer;
        if( fork() == 0 )
        {
            // we don't want to read from the pipe in the child, so close it.
            close( pd[0] );
            close( 1 );
            dup( pd[1] );


            /* This was here to allow reading a config file from stdin.
             * This has never been directly supported, so commenting out.
            if( fileName.empty() )
                execlp( cpp_path, "cpp",  "-P", 0L );
            else
            */
            execlp( cpp_path, "cpp",  "-P", fileName.c_str(), 0L );

            // This should not execute unless an error happens
            perror( "execlp" );
        }
        else
        {
            close( pd[1]);
            close( 0 );
            dup( pd[0] );

            cfg = this;

            retval = ConfigParser_parse() == 0 ? true : false;

            // Wait on child process to finish
            int stat;
            wait( &stat );
        }
    }
    else
#endif
    {
        std::ifstream ifs(fileName.c_str());
        flexer = new yyFlexLexer(&ifs);
        cfg = this;
        retval = ConfigParser_parse() == 0 ? true : false;
        ifs.close();
        delete flexer;
    }
    return retval;
}

