Abfragen von Elementeigenschaften

/* Abfragen von Elementeigenschaften*/

/*=================================*/

#include "database.h"

/*

In der folgenden Funktion werden Elementeigenschaften abgefragt.

*/

long int EXPORTENTRY Eigenschaften (int argc, char *argv[], PROOT root)

{

     PPLANS plan;

     POBJECT obj;

     PELEMENT el;

     PSTRING_ELEMENT string;

     STRING_SETTINGS strSet;

     PTEXT_ELEMENT text;

     TEXT_SETTINGS tSet;

     PSYMBOL_ELEMENT symbol;

     SYMBOL_SETTINGS sySet;

     T_PPOINT point;

     POINT_SETTINGS pSet;

     int pointertyp;

     plan = DBgetOpenPlan (root);

     if(!plan){

       IOwprintf(DBgetIOpipes(root), "Kein Plan geöffnet\n", strSet.zeichenschluessel);

     }

     obj = DBgetOpenObject(root);

     if(!obj){

       obj = DBfirstObjectOfPlan(plan);

     }

     el = DBfirstElementOfObject(obj);

     if (!el){

       IOwprintf(DBgetIOpipes(root), "Objekt hat keine Elemente\n",

                         strSet.zeichenschluessel);

       return 1;

     }

     pointertyp = DBreturnPointerTyp(el);

     switch (pointertyp){

      case TYP_STRING_ELEMENT:

       DBreturnStringSettings(el, &strSet, 1);

       IOwprintf(DBgetIOpipes(root), "String mit DKY %d gefunden\n",

                  strSet.zeichenschluessel);

       break;

      case TYP_TEXT_ELEMENT:

       DBreturnTextSettings(el, &tSet, 1);

       IOwprintf(DBgetIOpipes(root), "Text mit DKY %d gefunden\n", tSet.zeichenschluessel);

       break;

      case TYP_SYMBOL_ELEMENT:

       DBreturnSymbolSettings(el, &sySet, 1);

       IOwprintf(DBgetIOpipes(root), "Symbol mit Nummer %d gefunden\n", sySet.symbol);

       break;

      case TYP_EMPTY_ELEMENT:

      default:

       IOwprintf(DBgetIOpipes(root), "Erstes Element ist kein graphisches element\n");

     }

     return 0;

}

/*---------------------------------------------------------------------------*/