asg/asg.c

   1 /*----------------------------------------------------------------------*/
   2 /* asg.c --- Glue code between xcircuit and SPAR                        */
   3 /*----------------------------------------------------------------------*/
   4
   5 #ifdef ASG
   6
   7 #include <stdio.h>
   8 #include "externs.h"            /* Local ASG definitions */
   9
  10 extern void spar_destructor();
  11 extern void spar_constructor();
  12
  13 /*--------------------------------------------------------------------- */
  14
  15 int xc_print_sym(XCWindowData *areastruct, char *sym, char*name,
  16     int x, int y, int x_dis, int y_dis, int rot)
  17 {
  18     asg_make_instance(areastruct, sym, x, y, x_dis, y_dis);
  19     asg_make_label(areastruct, NORMAL, x, y, name);
  20
  21     return(1);
  22 }
  23
  24
  25 /*----------------------------------------------------------------------*/
  26 /* This function is used to draw an ASG module as an xcircuit object    */
  27 /* instance.                                                            */
  28 /*----------------------------------------------------------------------*/
  29
  30 int asg_make_instance(XCWindowData *clientData, char *keyword, int x,
  31         int y, int x_size, int y_size)
  32 {
  33    objectptr pobj;
  34    objinstptr pinst, *newinst;
  35    XPoint newpos;
  36
  37    // Set Position for newly created object
  38    newpos.x = (short)(x * 15.0);
  39    newpos.y = (short)(y * 15.0);
  40
  41    // Create Space for Object Instances...
  42    NEW_OBJINST(newinst, clientData->topinstance->thisobject);
  43
  44    // Find Object instance in the library...
  45    pobj = NameToObject(keyword, &pinst, FALSE);
  46
  47    // If object specified by keyword, it must exist in a loaded library.
  48    // (need to develop this code)
  49
  50    if (pobj == NULL) {
  51       /* sprintf(_STR, "Cannot Find %s in any existing library.", keyword); */
  52       /* Wprintf(_STR);                                                     */
  53       return -1;
  54    }
  55
  56    // Copy values from the library instance into the new instance
  57    instcopy(*newinst, pinst);
  58    (*newinst)->scale = 1.0;
  59
  60    // Rotated objects should be using the rotated instances.
  61    // Instances at rotation = 0 in the asg_spice.lps library should
  62    // match the orientations of devices in the original SPAR
  63    // definitions, or vice versa.
  64
  65    if (!strcmp(keyword, "arrow")) (*newinst)->rotation += 90;
  66    else if (!strcmp(keyword, "RESTR")) (*newinst)->rotation += 270;
  67    else if (!strcmp(keyword, "INDR")) (*newinst)->rotation += 270;
  68    else if (!strcmp(keyword, "CAPC")) (*newinst)->rotation += 270;
  69    else if (!strcmp(keyword, "IAMP")) (*newinst)->rotation += 270;
  70
  71    // Eventually all drawing parameters need to be overridden.
  72    // Assign just position for now
  73
  74    (*newinst)->position = newpos;
  75    return 0;
  76 }
  77
  78 /*----------------------------------------------------------------------*/
  79 /* This function draws the path connecting the object on the screen     */
  80 /*----------------------------------------------------------------------*/
  81
  82 void asg_make_polygon(XCWindowData *clientData, int npoints, int x[], int y[])
  83 {
  84    polyptr *newpoly;
  85    int j;
  86
  87    NEW_POLY(newpoly, clientData->topinstance->thisobject);
  88    polydefaults(*newpoly, npoints, 0, 0);
  89    (*newpoly)->style = UNCLOSED;
  90    for (j = 0; j < npoints; j++) {
  91       (*newpoly)->points[j].x = x[j];
  92       (*newpoly)->points[j].y = y[j];
  93    }
  94    /* singlebbox((genericptr *)newpoly); */
  95    incr_changes(clientData->topinstance->thisobject);
  96 }
  97
  98 /*----------------------------------------------------------------------*/
  99 /* This function helps print the label of the object on the screen      */
 100 /*----------------------------------------------------------------------*/
 101
 102 void asg_make_label(XCWindowData *clientData, u_char dopin, int x, int y, char *data)
 103 {
 104    labelptr *newlab;
 105    stringpart *strptr;
 106
 107    NEW_LABEL(newlab, clientData->topinstance->thisobject);
 108    labeldefaults(*newlab, dopin, x - 20, y - 30);
 109
 110    // (*newlab)->justify = PINVISIBLE;
 111    strptr = makesegment(&((*newlab)->string), NULL);
 112    strptr->type = TEXT_STRING;
 113    strptr->data.string = data;
 114    singlebbox((genericptr *)newlab);
 115    incr_changes(clientData->topinstance->thisobject);
 116 }
 117
 118 /*----------------------------------------------------------------------*/
 119 /* Free memory for SPAR structures                                      */
 120 /*----------------------------------------------------------------------*/
 121
 122 void spar_destructor()
 123 {
 124    free_list(modules);
 125    free_list(nets);
 126 }
 127
 128 /*----------------------------------------------------------------------*/
 129 /* Generate SPAR structures                                             */
 130 /*----------------------------------------------------------------------*/
 131
 132 void spar_constructor()
 133 {
 134    newnode("$0");
 135    newnode("$1");
 136    newnode("_DUMMY_SIGNAL_");
 137 }
 138
 139 #endif /* ASG */