Xcall.c

Go to the documentation of this file.

/* C code produced by gperf version 3.0.1 */
/* Command-line: gperf -C -t -k '2,3,4,$' Xcall.gperf  */

/* #if !((' ' == 32) && ('!' == 33) && ('"' == 34) && ('#' == 35) \ */
/*       && ('%' == 37) && ('&' == 38) && ('\'' == 39) && ('(' == 40) \ */
/*       && (')' == 41) && ('*' == 42) && ('+' == 43) && (',' == 44) \ */
/*       && ('-' == 45) && ('.' == 46) && ('/' == 47) && ('0' == 48) \ */
/*       && ('1' == 49) && ('2' == 50) && ('3' == 51) && ('4' == 52) \ */
/*       && ('5' == 53) && ('6' == 54) && ('7' == 55) && ('8' == 56) \ */
/*       && ('9' == 57) && (':' == 58) && (';' == 59) && ('<' == 60) \ */
/*       && ('=' == 61) && ('>' == 62) && ('?' == 63) && ('A' == 65) \ */
/*       && ('B' == 66) && ('C' == 67) && ('D' == 68) && ('E' == 69) \ */
/*       && ('F' == 70) && ('G' == 71) && ('H' == 72) && ('I' == 73) \ */
/*       && ('J' == 74) && ('K' == 75) && ('L' == 76) && ('M' == 77) \ */
/*       && ('N' == 78) && ('O' == 79) && ('P' == 80) && ('Q' == 81) \ */
/*       && ('R' == 82) && ('S' == 83) && ('T' == 84) && ('U' == 85) \ */
/*       && ('V' == 86) && ('W' == 87) && ('X' == 88) && ('Y' == 89) \ */
/*       && ('Z' == 90) && ('[' == 91) && ('\\' == 92) && (']' == 93) \ */
/*       && ('^' == 94) && ('_' == 95) && ('a' == 97) && ('b' == 98) \ */
/*       && ('c' == 99) && ('d' == 100) && ('e' == 101) && ('f' == 102) \ */
/*       && ('g' == 103) && ('h' == 104) && ('i' == 105) && ('j' == 106) \ */
/*       && ('k' == 107) && ('l' == 108) && ('m' == 109) && ('n' == 110) \ */
/*       && ('o' == 111) && ('p' == 112) && ('q' == 113) && ('r' == 114) \ */
/*       && ('s' == 115) && ('t' == 116) && ('u' == 117) && ('v' == 118) \ */
/*       && ('w' == 119) && ('x' == 120) && ('y' == 121) && ('z' == 122) \ */
/*       && ('{' == 123) && ('|' == 124) && ('}' == 125) && ('~' == 126)) */
/* /\* The character set is not based on ISO-646.  *\/ */
/* error "gperf generated tables don't work with this execution character set. Please report a bug to <bug-gnu-gperf@gnu.org>." */
/* #endif */


/* #line 1 "Xcall.gperf" */
/*------------------------------------------------------------------------
   *  Graphic library for 2D and 3D plotting 
   *  Copyright (C) 1998-2001 Chancelier Jean-Philippe
   * jpc@cermics.enpc.fr 
   *  Copyright (C) 1998-2006 INRIA (Serge Steer, Fabrice Leray, Jean-Baptiste Silvy, Allan Cornet, Pierre Marechal)
   --------------------------------------------------------------------------*/
#include <string.h>
#include <stdio.h>

#ifdef MAC
#include "../machine.h"
#include "periMac.h"
#else 
#include "math_graphics.h"
#ifdef _MSC_VER
#include "periWin.h"
#else
#include "periX11.h"
#endif
#endif 

#include "periPos.h"
#include "periFig.h"
#include "periGif.h"
#include "Xcall1.h"
#include "sciprint.h"
#include "DestroyObjects.h"

/* should be removed when scilab will be full ansi C */

#ifndef __STDC__ 
#define const 
#endif 

int WindowsPrintScreen = 0;
int Printer_XRes = 0;
int Printer_YRes = 0;

/*---------------------------------------------------------------
 * The basic graphic driver is X11 
 *    The name is X11 due to historical reasons 
 *    but according to architecture X11 can be an Xwindow driver 
 *    a driver for Macintosh 
 *    or a Windows driver 
 * Other drivers are Postscript Fig ( xfig ) and Rec ( Rec= X11 + Recording capabilities) 
 *    xfig is only meaningfull when using Unix machine 
 * ----------------------------------------------------------------*/

/* How to use the hash table by jb Silvy 04/2006 */
/* The hash table (asso_values array) has been created using the gperf software. */
/* Normally, each a new function is added in Xcall, gperf shoud be run to obtain a new hastable */
/* But here I present a way to avoid using gperf :). */
/* When dr is called, the programm will compute the hash value of the called function (xset, */
/* xarc,...). The function hash compute this. The obtained number will then give the function to */
/* call in the driver. This number is the index of the function to be called in the wordlist array. */
/* As you can see, there are empty baskets. They can be used to add new functions (that's the point :) )*/
/* So if you want to add a new functions, you need to find a name which fits one basket. */
/* So it is not possible to choose any name, there can be only one name per basket. */
/* However, I think it is easier than running gperf each time ;). */

static void C2F(vide)(char *v1,integer * v2,integer * v3,integer * v4,integer * v5,integer * v6,
                      integer *v7,double * dv1,double * dv2,double * dv3,double * dv4) {}
const struct funreplace * xcall_in_word_set (register const char *str, register unsigned int len);
static void C2F(all)(char x0[],char x1[],integer *x2,integer *x3,integer *x4,integer *x5, integer *x6, integer *x7,double *dx1,double *dx2,double *dx3,double *dx4, integer lx0, integer lx1);


typedef void (*func)();
typedef void (function)() ;
/* #line 51 "Xcall.gperf" */
struct funreplace { char *name; func action[4]; };

#define MIN_WORD_LENGTH 4
#define MAX_WORD_LENGTH 9
#define MIN_HASH_VALUE 9
#define MAX_HASH_VALUE 86
/* maximum key range = 78, duplicates = 0 */

#ifdef __GNUC__
__inline
#else
#ifdef __cplusplus
inline
#endif
#endif

static unsigned int hash (register const char *str, register unsigned int len)
{
  static const unsigned char asso_values[] =
    {
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      60, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87,  5, 87,  0, /* 99 */
      15,  5, 45, 15, 25,  0, 87, 45, 25, 15,
      20,  0, 10, 87,  0,  0,  5, 20, 87, 55,
      25, 10, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87, 87, 87, 87, 87,
      87, 87, 87, 87, 87, 87
    };
  
  return len + asso_values[(unsigned char)str[3]] + asso_values[(unsigned char)str[2]] + asso_values[(unsigned char)str[1]] + asso_values[(unsigned char)str[len - 1]];
}

#ifdef __GNUC__
__inline
#endif
const struct funreplace * xcall_in_word_set (register const char *str, register unsigned int len)
{
  static const struct funreplace wordlist[] =
    {
      {""}, /* index 0 */
      {""}, 
      {""}, 
      {""}, 
      {""}, 
      {""}, 
      {""}, 
      {""}, 
      {""},
      {"xarc",    {C2F(drawarc),C2F(drawarcPos),C2F(drawarcXfig),C2F(drawarcGif)}},
      {"xarcs",    {C2F(drawarcs),C2F(drawarcsPos),C2F(drawarcsXfig),C2F(drawarcsGif)}}, /* 10 */
      {"xrects",    {C2F(drawrectangles),C2F(drawrectanglesPos),C2F(drawrectanglesXfig),C2F(drawrectanglesGif)}},
      {""}, 
      {""}, 
      {""},
      {"xrect",    {C2F(drawrectangle),C2F(drawrectanglePos),C2F(drawrectangleXfig),C2F(drawrectangleGif)}},
      {"xsetdr",    {C2F(SetDriver),C2F(SetDriver),C2F(SetDriver),C2F(SetDriver)}},
      {""}, 
      {""},
      {"xset",    {C2F(MissileGCset),C2F(scilabgcsetPos),C2F(scilabgcsetXfig),C2F(scilabgcsetGif)}},
      {"xarea",    {C2F(fillpolyline),C2F(fillpolylinePos),C2F(fillpolylineXfig),C2F(fillpolylineGif)}}, /* 20 */
      {"xstart",    {CleanPlots,CleanPlots,CleanPlots,CleanPlots}},
      {""}, 
      {""},
      {""},
      {"xsegs",    {C2F(drawsegments),C2F(drawsegmentsPos),C2F(drawsegmentsXfig),C2F(drawsegmentsGif)}},
      {"xmarks",    {C2F(drawpolymark),C2F(drawpolymarkPos),C2F(drawpolymarkXfig),C2F(drawpolymarkGif)}},
      {"xstring",    {C2F(displaystring),C2F(displaystringPos),C2F(displaystringXfig),C2F(displaystringGif)}},
      {""},
      {""},
      {"xinit",    {C2F(initgraphic),C2F(initgraphicPos),C2F(initgraphicXfig),C2F(initgraphicGif)}}, /* 30 */
      {"xgetdr",    {GetDriver1,GetDriver1,GetDriver1,GetDriver1}},
      {""},
      {""},
      {"xget",    {C2F(MissileGCget),C2F(scilabgcgetPos),C2F(scilabgcgetXfig),C2F(scilabgcgetGif)}},
      {"xaxis",    {C2F(drawaxis),C2F(drawaxisPos),C2F(drawaxisXfig),C2F(drawaxisGif)}},
      {"xclear",    {C2F(clearwindow),C2F(clearwindowPos),C2F(clearwindowXfig),C2F(clearwindowGif)}},
      {""},
      {"xstringl",    {C2F(boundingbox),C2F(boundingboxPos),C2F(boundingboxXfig),C2F(boundingboxGif),}},
      {"xgetmouse",    {C2F(xgetmouse),C2F(xgetmousePos),C2F(xgetmouseXfig),C2F(xgetmouseGif)}},
      {"xclea",    {C2F(cleararea),C2F(clearareaPos),C2F(clearareaXfig),C2F(clearareaGif)}}, /* 40 */
      {"xpolys",    {C2F(drawpolylines),C2F(drawpolylinesPos),C2F(drawpolylinesXfig),C2F(drawpolylinesGif)}},
      {"xselect",    {C2F(xselgraphic),C2F(xselgraphicPos),C2F(xselgraphicXfig),C2F(xselgraphicGif)}},
      {""},
      {"xclickany",    {C2F(xclick_any),C2F(xclick_anyPos),C2F(xclick_anyXfig),C2F(xclick_anyGif)}},
      {""},
      {""},
      {""}, 
      {""},
      {""},
      {"xname",    {C2F(setpopupname),C2F(vide),C2F(vide),C2F(vide)}}, /* 50 */
      {"xlines",    {C2F(drawClippedPolyline),C2F(drawpolylinePos),C2F(drawClippedPolylineXfig),C2F(drawpolylineGif)}},
      {"xliness",    {C2F(fillpolylines),C2F(fillpolylinesPos),C2F(fillpolylinesXfig),C2F(fillpolylinesGif)}},
      {"xuclines",    {C2F(drawpolyline),C2F(drawpolylinePos),C2F(drawpolylineXfig),C2F(drawpolylineGif)}}, 
      {""},
      {"xfarc",    {C2F(fillarc),C2F(fillarcPos),C2F(fillarcXfig),C2F(fillarcGif)}},
      {"xfarcs",    {C2F(fillarcs),C2F(fillarcsPos),C2F(fillarcsXfig),C2F(fillarcsGif)}},
      {""}, 
      {""},
      {"xend",    {C2F(xend),C2F(xendPos),C2F(xendXfig),C2F(xendGif)}},
      {""}, /* 60 */
      {"xfrect",    {C2F(fillrectangle),C2F(fillrectanglePos),C2F(fillrectangleXfig),C2F(fillrectangleGif)}},
      {""}, 
      {""}, 
      {""}, 
      {""},
      {"xarrow",    {C2F(drawarrows),C2F(drawarrowsPos),C2F(drawarrowsXfig),C2F(drawarrowsGif)}},
      {""}, 
      {""}, 
      {""},
      {"xinfo",    {C2F(xinfo),C2F(vide),C2F(vide),C2F(vide)}}, /* 70 */
      {"xgfont",    {C2F(queryfamily),C2F(queryfamilyPos),C2F(queryfamilyXfig),C2F(queryfamilyGif)}},
      {""}, 
      {"xfontmxs", {C2F(getFontMaxSize),C2F(getFontMaxSizePos),C2F(getFontMaxSizeXfig),C2F(getFontMaxSizeGif)}},
      {"xnum",    {C2F(displaynumbers),C2F(displaynumbersPos),C2F(displaynumbersXfig),C2F(displaynumbersGif)}},
      {""},
      {"xclick",    {C2F(xclick),C2F(xclickPos),C2F(xclickXfig),C2F(xclickGif)}},
      {""}, 
      {""}, 
      {""},
      {""}, /* 80 */
      {"xlfont",    {C2F(loadfamily),C2F(loadfamilyPos),C2F(loadfamilyXfig),C2F(loadfamilyGif)}},
      {""}, 
      {""}, 
      {""}, 
      {""},
      {"xinit2",    {C2F(initgraphic),C2F(initgraphicfromscreenPos),C2F(initgraphicfromscreenXfig),C2F(initgraphicfromscreenGif)}} /* 86 */
    };

  if (len <= MAX_WORD_LENGTH && len >= MIN_WORD_LENGTH)
    {
      register int key = hash (str, len);

      if (key <= MAX_HASH_VALUE && key >= 0)
        {
          register const char *s = wordlist[key].name;

          if (*str == *s && !strcmp (str + 1, s + 1))
            return &wordlist[key];
        }
    }
  return 0;
}
/*#line 94 "Xcall.gperf"*/


static char DriverName[]= "Rec";
static int  DriverId = 0;

void C2F(SetDriver)(char *x0, integer *v2,integer * v3,integer * v4, integer *v5,integer * v6,
                    integer * v7,double * dv1,double * dv2,double * dv3,double * dv4)
{
  switch (x0[0])
    {
    case 'I':
      strcpy(DriverName,"Int"); /* internal : for Win32 */
      DriverId = 0;
      break;
    case 'G':
      if (x0[1] == 'I') {
          strcpy(DriverName,"GIF");
          DriverId = 3;
          break;
      }
    case 'X':
    case 'W':
      strcpy(DriverName,"X11");
      DriverId = 0;
      break;
    case 'P'  :
      if (x0[1] == 'P') {
        strcpy(DriverName,"PPM");
        DriverId = 3;
        break;
      }
      else {
        strcpy(DriverName,"Pos");
        DriverId = 1;
      }
      break;
    case 'F'  :
      strcpy(DriverName,"Fig");
      DriverId = 2;
      break;
    case 'R'  :
      strcpy(DriverName,"Rec");
      DriverId = 0;
      break;
    default:
      sciprint("\n Wrong driver name I'll use X11");
      strcpy(DriverName,"X11");
      DriverId = 0;
      break;
    }
}

void GetDriver1(char *str, integer *v2,integer * v3,integer * v4, integer *v5,integer * v6,
                    integer * v7,double * dv1,double * dv2,double * dv3,double * dv4)
{
  strcpy(str,DriverName);
}

char GetDriver() {return(DriverName[0]);}

int GetDriverId() { return DriverId;}

/* The following function can be called by fortran so we 
   use the Sun C-fortran interface conventions 
   dr has 2 last extra parametres to deal with the size of
   x0 and x1 */

int C2F(dr)(char x0[],char x1[],integer *x2,integer *x3,integer *x4,integer *x5,integer *x6, integer *x7,double *dx1,double *dx2,double *dx3,double *dx4,
            integer lx0, integer lx1)
{ 
#ifdef _MSC_VER
  if ( DriverId == 0 && DriverName[0] != 'I' ) 
    {
      SetWinhdc();
      C2F(all)(x0,x1,x2,x3,x4,x5,x6,x7,dx1,dx2,dx3,dx4,lx0,lx1);
      ReleaseWinHdc();
    }
  else 
    {
      C2F(all)(x0,x1,x2,x3,x4,x5,x6,x7,dx1,dx2,dx3,dx4,lx0,lx1);
    }
#else
      C2F(all)(x0,x1,x2,x3,x4,x5,x6,x7,dx1,dx2,dx3,dx4,lx0,lx1);
#endif
  return 0;
}

static void C2F(all)(char x0[],char x1[],integer *x2,integer *x3,integer *x4,integer *x5,
                     integer *x6,
                     integer *x7,double *dx1,double *dx2,double *dx3,double *dx4, integer lx0, integer lx1)
{ 
  const struct funreplace *fr;
  fr=xcall_in_word_set(x0,strlen(x0));
  if ( fr != NULL ) 
    {
      (*(fr->action[DriverId]))(x1,x2,x3,x4,x5,x6,x7,dx1,dx2,dx3,dx4,lx0,lx1);
    }
  else 
    {
      sciprint("\n Unknow X operator <%s>\r\n",x0);
    }
}


/*----------------------------------END---------------------------*/
extern int GetScreenDPI(int *ixres, int *iyres) ;
/*---------------------------------------------------------------------------------------------------*/
int GetDPIFromDriver(int DPI[2])
{
  int driver = GetDriverId(); /* return the first letter of the driver name (see XCall.c) */
  int succeed = 0;
  int ixres, iyres;

  switch(driver)
  {
  case 0: 
    if(WindowsPrintScreen == 1)
    {
      ixres = Printer_XRes;
      iyres = Printer_YRes;
      succeed = 1;
    }
    else
    {
      succeed = GetScreenDPI(&ixres,&iyres);
      if(succeed == -1){
        ixres = (int)72.; /* default value*/
        iyres = (int)72.; /* default value*/
      }
    }
    break;
  case 1: /* Pos */
    /*       printf("DRIVERS POS enabled -- -- -- --\n"); */
    /* when using Pos driver, the output file is 6000x4240 pixels */
    /* computed DPI: height : 6000/(30cm/2.54) = 508 ; width: 4240/(21.20/2.54) = 508 */
    ixres = (int)(524.*1.5);
    iyres = (int)(524.*1.5);
    break;
  case 2: /* Fig. */
    /*       printf("DRIVERS FIG enabled -- -- -- --\n"); */
    /* when using Pos driver, the output file is 6000x4240 pixels */
    /* computed DPI: height : 9600/(8inches) = 1200 ; width: 6784/(5.7inches) = 1190 */
    ixres = (int)1200.;
    iyres = (int)1190.;
    break;
  case 3: /* Gif & PPM driver */ /* NOT SURE: may be 72. avery time... */
  default:
    succeed = GetScreenDPI(&ixres,&iyres);
    if(succeed == -1){
      ixres = (int)72.; /* default value*/      
      iyres = (int)72.; /* default value*/
    }
    break;
  }

  DPI[0] = ixres;
  DPI[1] = iyres;

  return 0;
}
/*---------------------------------------------------------------------------------------------------*/

---