/* * GDSII-Converter * Copyright (C) 2018 Mario Hüttel * * This file is part of GDSII-Converter. * * GDSII-Converter is free software: you can redistribute it and/or modify * it under the terms of the GNU General Public License version 2 as * published by the Free Software Foundation. * * GDSII-Converter 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 * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with GDSII-Converter. If not, see . */ /** * @file gds-parser.c * @brief Implementation of the GDS-Parser * @author Mario Hüttel * * What's missing? - A lot: * Support for 4 Byte real * Support for pathtypes * Support for datatypes (only layer so far) * etc... */ /** * @addtogroup GDS-Utilities * @{ */ #include #include #include #include #include #include #include #include /** * @brief Default units assumed for library. * @note This value is usually overwritten with the value defined in the library. */ #define GDS_DEFAULT_UNITS (10E-9) #define GDS_ERROR(fmt, ...) fprintf(stderr, "[PARSE_ERROR] " fmt "\n", ##__VA_ARGS__) /**< @brief Print GDS error*/ #define GDS_WARN(fmt, ...) fprintf(stderr, "[PARSE_WARNING] " fmt "\n", ##__VA_ARGS__) /**< @brief Print GDS warning */ #if GDS_PRINT_DEBUG_INFOS /**< @brief standard printf. But can be disabled in code. */ #define GDS_INF(fmt, ...) printf(fmt, ##__VA_ARGS__) #else #define GDS_INF(fmt, ...) #endif enum gds_record { INVALID = 0x0000, HEADER = 0x0002, BGNLIB = 0x0102, LIBNAME = 0x0206, UNITS = 0x0305, ENDLIB = 0x0400, BGNSTR = 0x0502, STRNAME = 0x0606, ENDSTR = 0x0700, BOUNDARY = 0x0800, PATH = 0x0900, SREF = 0x0A00, ENDEL = 0x1100, XY = 0x1003, MAG = 0x1B05, ANGLE = 0x1C05, SNAME = 0x1206, STRANS = 0x1A01, BOX = 0x2D00, LAYER = 0x0D02, DATATYPE = 0x0E02, WIDTH = 0x0F03, PATHTYPE = 0x2102, COLROW = 0x1302, AREF = 0x0B00 }; /** * @brief Struct representing an array instantiation. * * This struct is defined locally because it is not exposed to the outside of the * parser. Array references are internally converted to a bunch of standard @ref gds_cell_instance elements. */ struct gds_cell_array_instance { char ref_name[CELL_NAME_MAX]; /**< @brief Name of referenced cell */ struct gds_cell *cell_ref; /**< @brief Referenced gds_cell structure */ struct gds_point control_points[3]; /**< @brief The three control points */ int flipped; /**< @brief Mirror each instance on x-axis before rotation */ double angle; /**< @brief Angle of rotation for each instance (counter clockwise) in degrees */ double magnification; /**< @brief Magnification of each instance */ int columns; /**< @brief Column count */ int rows; /**< @brief Row count */ }; /** * @brief Name cell reference * @param cell_inst Cell reference * @param bytes Length of name * @param data Name * @return 0 if successful */ static int name_cell_ref(struct gds_cell_instance *cell_inst, unsigned int bytes, char *data) { int len; if (cell_inst == NULL) { GDS_ERROR("Naming cell ref with no opened cell ref"); return -1; } data[bytes] = 0; // Append '0' len = (int)strlen(data); if (len > CELL_NAME_MAX-1) { GDS_ERROR("Cell name '%s' too long: %d\n", data, len); return -1; } /* else: */ strcpy(cell_inst->ref_name, data); GDS_INF("\tCell referenced: %s\n", cell_inst->ref_name); return 0; } /** * @brief Name cell reference * @param cell_inst Cell reference * @param bytes Length of name * @param data Name * @return 0 if successful */ static int name_array_cell_ref(struct gds_cell_array_instance *cell_inst, unsigned int bytes, char *data) { int len; if (cell_inst == NULL) { GDS_ERROR("Naming array cell ref with no opened cell ref"); return -1; } data[bytes] = 0; // Append '0' len = (int)strlen(data); if (len > CELL_NAME_MAX-1) { GDS_ERROR("Cell name '%s' too long: %d\n", data, len); return -1; } /* else: */ strcpy(cell_inst->ref_name, data); GDS_INF("\tCell referenced: %s\n", cell_inst->ref_name); return 0; } /** * @brief Convert GDS 8-byte real to double * @param data 8 Byte GDS real * @return result */ static double gds_convert_double(const char *data) { bool sign_bit; int i; double ret_val; char current_byte; int bit = 0; int exponent; sign_bit = ((data[0] & 0x80) ? true : false); /* Check for real 0 */ for (i = 0; i < 8; i++) { if (data[i] != 0) break; if (i == 7) { /* All 8 bytes are 0 */ return 0.0; } } /* Value is other than 0 */ ret_val = 0.0; for (i = 8; i < 64; i++) { current_byte = data[i/8]; bit = i % 8; /* isolate bit */ if ((current_byte & (0x80 >> bit))) ret_val += pow(2, ((double)(-i+7))); } /* Parse exponent and sign bit */ exponent = (int)(data[0] & 0x7F); exponent -= 64; ret_val *= pow(16, exponent) * (sign_bit == true ? -1 : 1); return ret_val; } /** * @brief Convert GDS INT32 to int * @param data Buffer containing the int * @return result */ static signed int gds_convert_signed_int(const char *data) { int ret; if (!data) { GDS_ERROR("Conversion from GDS data to signed int failed."); return 0; } ret = (signed int)(((((int)data[0]) & 0xFF) << 24) | ((((int)data[1]) & 0xFF) << 16) | (((int)(data[2]) & 0xFF) << 8) | (((int)(data[3]) & 0xFF) << 0)); return ret; } /** * @brief Convert GDS INT16 to int16 * @param data Buffer containing the INT16 * @return result */ static int16_t gds_convert_signed_int16(const char *data) { if (!data) { GDS_ERROR("This should not happen"); return 0; } return (int16_t)((((int16_t)(data[0]) & 0xFF) << 8) | (((int16_t)(data[1]) & 0xFF) << 0)); } /** * @brief Convert GDS UINT16 String to uint16 * @param data Buffer containing the uint16 * @return result */ static uint16_t gds_convert_unsigned_int16(const char *data) { if (!data) { GDS_ERROR("This should not happen"); return 0; } return (uint16_t)((((uint16_t)(data[0]) & 0xFF) << 8) | (((uint16_t)(data[1]) & 0xFF) << 0)); } /** * @brief Append library to list * @param curr_list List containing gds_library elements. May be NULL. * @param library_ptr Return of newly created library. * @return Newly created list pointer */ static GList *append_library(GList *curr_list, const struct gds_library_parsing_opts *opts, struct gds_library **library_ptr) { struct gds_library *lib; lib = (struct gds_library *)malloc(sizeof(struct gds_library)); if (lib) { lib->cells = NULL; lib->name[0] = 0; lib->unit_in_meters = GDS_DEFAULT_UNITS; // Default. Will be overwritten lib->cell_names = NULL; /* Copy the settings into the library */ memcpy(&lib->parsing_opts, opts, sizeof(struct gds_library_parsing_opts)); } else return NULL; if (library_ptr) *library_ptr = lib; return g_list_append(curr_list, lib); } /** * @brief Prepend graphics to list * @param curr_list List containing gds_graphics elements. May be NULL * @param type Type of graphics * @param graphics_ptr newly created graphic is written here * @return new list pointer */ static __attribute__((warn_unused_result)) GList *prepend_graphics(GList *curr_list, enum graphics_type type, struct gds_graphics **graphics_ptr) { struct gds_graphics *gfx; gfx = (struct gds_graphics *)malloc(sizeof(struct gds_graphics)); if (gfx) { gfx->datatype = 0; gfx->layer = 0; gfx->vertices = NULL; gfx->width_absolute = 0; gfx->gfx_type = type; gfx->path_render_type = PATH_FLUSH; } else return NULL; if (graphics_ptr) *graphics_ptr = gfx; return g_list_prepend(curr_list, gfx); } /** * @brief Appends vertext List * @param curr_list List containing gds_point elements. May be NULL. * @param x x-coordinate of new point * @param y y-coordinate of new point * @return new Pointer to List. */ static GList *append_vertex(GList *curr_list, int x, int y) { struct gds_point *vertex; vertex = (struct gds_point *)malloc(sizeof(struct gds_point)); if (vertex) { vertex->x = x; vertex->y = y; } else return NULL; return g_list_append(curr_list, vertex); } /** * @brief append_cell Append a gds_cell to a list * * Usage similar to append_cell_ref(). * @param curr_list List containing gds_cell elements. May be NULL * @param cell_ptr newly created cell * @return new pointer to list */ static GList *append_cell(GList *curr_list, struct gds_cell **cell_ptr) { struct gds_cell *cell; cell = (struct gds_cell *)malloc(sizeof(struct gds_cell)); if (cell) { cell->child_cells = NULL; cell->graphic_objs = NULL; cell->name[0] = 0; cell->parent_library = NULL; cell->checks.unresolved_child_count = GDS_CELL_CHECK_NOT_RUN; cell->checks.affected_by_reference_loop = GDS_CELL_CHECK_NOT_RUN; } else return NULL; /* return cell */ if (cell_ptr) *cell_ptr = cell; return g_list_append(curr_list, cell); } /** * @brief Append a cell reference to the reference GList. * * Appends a new gds_cell_instance to \p curr_list and returns the new element via \p instance_ptr * @param curr_list List of gds_cell_instance elements. May be NULL * @param instance_ptr newly created element * @return new GList pointer */ static GList *append_cell_ref(GList *curr_list, struct gds_cell_instance **instance_ptr) { struct gds_cell_instance *inst; inst = (struct gds_cell_instance *) malloc(sizeof(struct gds_cell_instance)); if (inst) { inst->cell_ref = NULL; inst->ref_name[0] = 0; inst->magnification = 1.0; inst->flipped = 0; inst->angle = 0.0; } else return NULL; if (instance_ptr) *instance_ptr = inst; return g_list_append(curr_list, inst); } /** * @brief Name a gds_library * @param current_library Library to name * @param bytes Lenght of name * @param data Name * @return 0 if successful */ static int name_library(struct gds_library *current_library, unsigned int bytes, char *data) { int len; if (current_library == NULL) { GDS_ERROR("Naming cell with no opened library"); return -1; } data[bytes] = 0; // Append '0' len = (int)strlen(data); if (len > CELL_NAME_MAX-1) { GDS_ERROR("Library name '%s' too long: %d\n", data, len); return -1; } strcpy(current_library->name, data); GDS_INF("Named library: %s\n", current_library->name); return 0; } /** * @brief Names a gds_cell * @param cell Cell to name * @param bytes Length of name * @param data Name * @param lib Library in which \p cell is located * @return 0 id successful */ static int name_cell(struct gds_cell *cell, unsigned int bytes, char *data, struct gds_library *lib) { int len; if (cell == NULL) { GDS_ERROR("Naming library with no opened library"); return -1; } data[bytes] = 0; // Append '0' len = (int)strlen(data); if (len > CELL_NAME_MAX-1) { GDS_ERROR("Cell name '%s' too long: %d\n", data, len); return -1; } strcpy(cell->name, data); GDS_INF("Named cell: %s\n", cell->name); /* Append cell name to lib's list of names */ lib->cell_names = g_list_append(lib->cell_names, cell->name); return 0; } /** * @brief Search for cell reference \p gcell_ref in \p glibrary * * Search cell referenced by \p gcell_ref inside \p glibrary and update gds_cell_instance::cell_ref with found #gds_cell * @param gcell_ref gpointer cast of struct gds_cell_instance * * @param glibrary gpointer cast of struct gds_library * */ static void parse_reference_list(gpointer gcell_ref, gpointer glibrary) { struct gds_cell_instance *inst = (struct gds_cell_instance *)gcell_ref; struct gds_library *lib = (struct gds_library *)glibrary; GList *cell_item; struct gds_cell *cell; GDS_INF("\t\t\tReference: %s: ", inst->ref_name); /* Find cell */ for (cell_item = lib->cells; cell_item != NULL; cell_item = cell_item->next) { cell = (struct gds_cell *)cell_item->data; /* Check if cell is found */ if (!strcmp(cell->name, inst->ref_name)) { GDS_INF("found\n"); /* update reference link */ inst->cell_ref = cell; return; } } GDS_INF("MISSING!\n"); GDS_WARN("referenced cell could not be found in library"); } /** * @brief Simplify graphics objects * @param graphics gfx struct * @param user_data GDS library */ static void simplify_graphics(gpointer graphics, gpointer user_data) { struct gds_graphics *gfx; const struct gds_point *first_vertex = NULL; const struct gds_point *prev_vertex = NULL; const struct gds_point *current_vertex; GList *vertex_iter; GList *next_iter; (void)user_data; size_t processed_count = 0U; size_t removed_count = 0U; gfx = (struct gds_graphics *)graphics; if (gfx->gfx_type == GRAPHIC_POLYGON) { GDS_INF("\t\t\tPolygon found\n"); /* Loop over all vertices */ for (vertex_iter = gfx->vertices; vertex_iter;) { current_vertex = (const struct gds_point *)vertex_iter->data; next_iter = g_list_next(vertex_iter); processed_count++; if (vertex_iter == gfx->vertices) { /* This is the first vertex */ first_vertex = current_vertex; prev_vertex = NULL; } if (prev_vertex) { if (current_vertex->x == prev_vertex->x && current_vertex->y == prev_vertex->y) { /* Vertex is the same as the previous one */ GDS_INF("\t\t\t\tDuplicate vertex (%d,%d). Removing...\n", current_vertex->x, current_vertex->y); /* Delete the current one from the list */ gfx->vertices = g_list_remove_link(gfx->vertices, vertex_iter); /* Free the data */ if (vertex_iter->data) free(vertex_iter->data); vertex_iter->data = NULL; g_list_free_1(vertex_iter); removed_count++; } else if (!g_list_next(vertex_iter)) { /* This is the last element in the list */ if (current_vertex->x == first_vertex->x && current_vertex->y == first_vertex->y) { GDS_INF("\t\t\t\tLast vertex is identical to first vertex (%d,%d). Removing\n", current_vertex->x, current_vertex->y); gfx->vertices = g_list_remove_link(gfx->vertices, vertex_iter); if (vertex_iter->data) free(vertex_iter->data); g_list_free_1(vertex_iter); removed_count++; } else { GDS_WARN("First vertex is not coincident with first vertex, although the GDS file format specifies this. However, this is not a problem."); } } } vertex_iter = next_iter; prev_vertex = current_vertex; } GDS_INF("\t\t\tProcessed %zu vertices. %zu removed.\n", processed_count, removed_count); } } /** * @brief Scans cell and resolves references and simplifies polygons * This function searches all the references in \p gcell and updates the gds_cell_instance::cell_ref field in each instance * * @param gcell pointer cast of #gds_cell * * @param library Library where the cell references are searched in */ static void scan_cell_references_and_polygons(gpointer gcell, gpointer library) { struct gds_cell *cell = (struct gds_cell *)gcell; struct gds_library *my_lib = (struct gds_library *)library; int simplify_polygons; simplify_polygons = my_lib->parsing_opts.simplified_polygons; GDS_INF("\tScanning cell: %s\n", cell->name); GDS_INF("\t\tCell references\n"); /* Scan all library references */ g_list_foreach(cell->child_cells, parse_reference_list, library); GDS_INF("\t\tSimplifying Polygons%s\n", simplify_polygons ? "" : ": skipped"); if (simplify_polygons) { g_list_foreach(cell->graphic_objs, simplify_graphics, library); } } /** * @brief Scans library's cell references * * This function searches all the references between cells and updates the gds_cell_instance::cell_ref field in each instance * @param library_list_item List containing #gds_library elements * @param user not used */ static void scan_library_references(gpointer library_list_item, gpointer user) { struct gds_library *lib = (struct gds_library *)library_list_item; (void)user; GDS_INF("Scanning Library: %s\n", lib->name); g_list_foreach(lib->cells, scan_cell_references_and_polygons, lib); } /** * @brief gds_parse_date * @param buffer Buffer that contains the GDS Date field * @param length Length of \p buffer * @param mod_date Modification Date * @param access_date Last Access Date */ static void gds_parse_date(const char *buffer, int length, struct gds_time_field *mod_date, struct gds_time_field *access_date) { struct gds_time_field *temp_date; if (!access_date || !mod_date) { GDS_WARN("Date structures invalid"); return; } if (length != (2*6*2)) { GDS_WARN("Could not parse date field! Not the specified length"); return; } for (temp_date = mod_date; 1; temp_date = access_date) { temp_date->year = gds_convert_unsigned_int16(buffer); buffer += 2; temp_date->month = gds_convert_unsigned_int16(buffer); buffer += 2; temp_date->day = gds_convert_unsigned_int16(buffer); buffer += 2; temp_date->hour = gds_convert_unsigned_int16(buffer); buffer += 2; temp_date->minute = gds_convert_unsigned_int16(buffer); buffer += 2; temp_date->second = gds_convert_unsigned_int16(buffer); buffer += 2; if (temp_date == access_date) break; } } /** * @brief Convert AREF to a bunch of SREFs and append them to \p container_cell * * This function converts a single array reference (\p aref) to gds_cell_array_instance::rows * gds_cell_array_instance::columns * single references (SREFs). See @ref gds_cell_instance. * * Both gds_cell_array_instance::rows and gds_cell_array_instance::columns must be larger than zero. * * @param[in] aref Array reference to parse * @param[in] container_cell cell to add the converted single references to. */ static void convert_aref_to_sref(struct gds_cell_array_instance *aref, struct gds_cell *container_cell) { struct gds_point origin; struct gds_point row_shift_vector; struct gds_point col_shift_vector; struct gds_cell_instance *sref_inst = NULL; int col; int row; if (!aref || !container_cell) return; if (aref->columns == 0 || aref->rows == 0) { GDS_ERROR("Conversion of array instance aborted. No rows / columns."); return; } origin.x = aref->control_points[0].x; origin.y = aref->control_points[0].y; row_shift_vector.x = (aref->control_points[2].x - origin.x) / aref->rows; row_shift_vector.y = (aref->control_points[2].y - origin.y) / aref->rows; col_shift_vector.x = (aref->control_points[1].x - origin.x) / aref->columns; col_shift_vector.y = (aref->control_points[1].y - origin.y) / aref->columns; /* Iterate over columns and rows */ for (col = 0; col < aref->columns; col++) { for (row = 0; row < aref->rows; row++) { /* Create new instance for this row/column and configure data */ container_cell->child_cells = append_cell_ref(container_cell->child_cells, &sref_inst); if (!sref_inst) { GDS_ERROR("Appending cell ref failed!"); continue; } sref_inst->angle = aref->angle; sref_inst->magnification = aref->magnification; sref_inst->flipped = aref->flipped; strncpy(sref_inst->ref_name, aref->ref_name, CELL_NAME_MAX); sref_inst->origin.x = origin.x + row_shift_vector.x * row + col_shift_vector.x * col; sref_inst->origin.y = origin.y + row_shift_vector.y * row + col_shift_vector.y * col; } } GDS_INF("Converted AREF to SREFs\n"); } int parse_gds_from_file(const char *filename, GList **library_list, const struct gds_library_parsing_opts *parsing_options) { char *workbuff; int read; int i; int run = 1; FILE *gds_file = NULL; uint16_t rec_data_length; enum gds_record rec_type; struct gds_library *current_lib = NULL; struct gds_cell *current_cell = NULL; struct gds_graphics *current_graphics = NULL; struct gds_cell_instance *current_s_reference = NULL; struct gds_cell_array_instance *current_a_reference = NULL; struct gds_cell_array_instance temp_a_reference; int x, y; //////////// GList *lib_list; lib_list = *library_list; /* Allocate working buffer */ workbuff = (char *)malloc(sizeof(char)*128*1024); if(!workbuff) return -100; /* open File */ gds_file = fopen(filename, "rb"); if (gds_file == NULL) { GDS_ERROR("Could not open File %s", filename); return -1; } /* Record parser */ while (run == 1) { rec_type = INVALID; read = fread(workbuff, sizeof(char), 2, gds_file); if (read != 2 && (current_cell != NULL || current_graphics != NULL || current_lib != NULL || current_s_reference != NULL)) { GDS_ERROR("End of File. with openend structs/libs"); run = -2; break; } else if (read != 2) { /* EOF */ run = 0; break; } rec_data_length = gds_convert_unsigned_int16(workbuff); if (rec_data_length < 4) { /* Possible Zero-Padding: */ run = 0; GDS_WARN("Zero Padding detected!"); if (current_cell != NULL || current_graphics != NULL || current_lib != NULL || current_s_reference != NULL) { GDS_ERROR("Not all structures closed"); run = -2; } break; } rec_data_length -= 4; read = fread(workbuff, sizeof(char), 2, gds_file); if (read != 2) { run = -2; GDS_ERROR("Unexpected end of file"); break; } rec_type = gds_convert_unsigned_int16(workbuff); /* if begin: Allocate structures */ switch (rec_type) { case BGNLIB: lib_list = append_library(lib_list, parsing_options, ¤t_lib); if (lib_list == NULL) { GDS_ERROR("Allocating memory failed"); run = -3; break; } GDS_INF("Entering Lib\n"); break; case ENDLIB: if (current_lib == NULL) { run = -4; GDS_ERROR("Closing Library with no opened library"); break; } /* Check for open Cells */ if (current_cell != NULL) { run = -4; GDS_ERROR("Closing Library with opened cells"); break; } current_lib = NULL; GDS_INF("Leaving Library\n"); break; case BGNSTR: if (current_lib == NULL) { GDS_ERROR("Defining Cell outside of library!\n"); run = -4; break; } current_lib->cells = append_cell(current_lib->cells, ¤t_cell); if (current_lib->cells == NULL) { GDS_ERROR("Allocating memory failed"); run = -3; break; } current_cell->parent_library = current_lib; GDS_INF("Entering cell\n"); break; case ENDSTR: if (current_cell == NULL) { run = -4; GDS_ERROR("Closing cell with no opened cell"); break; } /* Check for open Elements */ if (current_graphics != NULL || current_s_reference != NULL) { run = -4; GDS_ERROR("Closing cell with opened Elements"); break; } current_cell = NULL; GDS_INF("Leaving Cell\n"); break; case BOX: case BOUNDARY: if (current_cell == NULL) { GDS_ERROR("Boundary/Box outside of cell"); run = -3; break; } current_cell->graphic_objs = prepend_graphics(current_cell->graphic_objs, (rec_type == BOUNDARY ? GRAPHIC_POLYGON : GRAPHIC_BOX), ¤t_graphics); if (current_cell->graphic_objs == NULL) { GDS_ERROR("Memory allocation failed"); run = -4; break; } GDS_INF("\tEntering boundary of type %s\n", rec_type==BOUNDARY ? "polygon" : "box"); break; case SREF: if (current_cell == NULL) { GDS_ERROR("Cell Reference outside of cell"); run = -3; break; } current_cell->child_cells = append_cell_ref(current_cell->child_cells, ¤t_s_reference); if (current_cell->child_cells == NULL) { GDS_ERROR("Memory allocation failed"); run = -4; break; } GDS_INF("\tEntering reference\n"); break; case PATH: if (current_cell == NULL) { GDS_ERROR("Path outside of cell"); run = -3; break; } current_cell->graphic_objs = prepend_graphics(current_cell->graphic_objs, GRAPHIC_PATH, ¤t_graphics); if (current_cell->graphic_objs == NULL) { GDS_ERROR("Memory allocation failed"); run = -4; break; } GDS_INF("\tEntering Path\n"); break; case ENDEL: if (current_graphics != NULL) { GDS_INF("\tLeaving %s\n", (current_graphics->gfx_type == GRAPHIC_POLYGON ? "boundary" : (current_graphics->gfx_type == GRAPHIC_PATH ? "path" : "box"))); current_graphics = NULL; } if (current_s_reference != NULL) { GDS_INF("\tLeaving Reference\n"); current_s_reference = NULL; } if (current_a_reference != NULL) { GDS_INF("\tLeaving Array Reference\n"); convert_aref_to_sref(current_a_reference, current_cell); current_a_reference = NULL; } break; case XY: if (current_graphics) { } else if (current_s_reference) { if (rec_data_length != 8) { GDS_WARN("Instance has weird coordinates. Rendered output might be wrong!"); } } else if (current_a_reference) { if (rec_data_length != (3*(4+4))) GDS_WARN("Array instance has weird coordinates. Rendered output might be wrong!"); } break; case AREF: if (current_cell == NULL) { GDS_ERROR("Cell array reference outside of cell"); run = -3; break; } if (current_a_reference != NULL) { GDS_ERROR("Recursive cell array reference"); run = -3; break; } GDS_INF("Entering Array Reference\n"); /* Array references are coverted after fully declared. Therefore, * only a static buffer is needed */ current_a_reference = &temp_a_reference; current_a_reference->ref_name[0] = '\0'; current_a_reference->angle = 0.0; current_a_reference->magnification = 1.0; current_a_reference->flipped = 0; current_a_reference->rows = 0; current_a_reference->columns = 0; break; case COLROW: case MAG: case ANGLE: case STRANS: case WIDTH: case PATHTYPE: case UNITS: case LIBNAME: case SNAME: case LAYER: case DATATYPE: case STRNAME: break; default: GDS_INF("Unhandled Record: %04x, len: %u\n", (unsigned int)rec_type, (unsigned int)rec_data_length); break; } /* switch(rec_type) */ /* No Data -> No Processing, go back to top */ if (!rec_data_length || run != 1) continue; read = fread(workbuff, sizeof(char), rec_data_length, gds_file); if (read != rec_data_length) { GDS_ERROR("Could not read enough data: requested: %u, read: %u | Type: 0x%04x\n", (unsigned int)rec_data_length, (unsigned int)read, (unsigned int)rec_type); run = -5; break; } switch (rec_type) { case AREF: case HEADER: case ENDLIB: case ENDSTR: case BOUNDARY: case PATH: case SREF: case ENDEL: case BOX: case INVALID: break; case COLROW: if (!current_a_reference) { GDS_ERROR("COLROW record defined outside of array instance"); break; } if (rec_data_length != 4 || read != 4) { GDS_ERROR("COLUMN/ROW count record contains too few data. Won't set column and row counts (%d, %d)", rec_data_length, read); break; } current_a_reference->columns = (int)gds_convert_signed_int16(&workbuff[0]); current_a_reference->rows = (int)gds_convert_signed_int16(&workbuff[2]); GDS_INF("\tRows: %d\n\tColumns: %d\n", current_a_reference->rows, current_a_reference->columns); break; case UNITS: if (!current_lib) { GDS_WARN("Units defined outside of library!\n"); break; } if (rec_data_length != 16) { GDS_WARN("Unit define incomplete. Will assume database unit of %E meters\n", current_lib->unit_in_meters); break; } current_lib->unit_in_meters = gds_convert_double(&workbuff[8]); GDS_INF("Length of database unit: %E meters\n", current_lib->unit_in_meters); break; case BGNLIB: /* Parse date record */ gds_parse_date(workbuff, read, ¤t_lib->mod_time, ¤t_lib->access_time); break; case BGNSTR: gds_parse_date(workbuff, read, ¤t_cell->mod_time, ¤t_cell->access_time); break; case LIBNAME: name_library(current_lib, (unsigned int)read, workbuff); break; case STRNAME: name_cell(current_cell, (unsigned int)read, workbuff, current_lib); break; case XY: if (current_s_reference) { /* Get origin of reference */ current_s_reference->origin.x = gds_convert_signed_int(workbuff); current_s_reference->origin.y = gds_convert_signed_int(&workbuff[4]); GDS_INF("\t\tSet origin to: %d/%d\n", current_s_reference->origin.x, current_s_reference->origin.y); } else if (current_graphics) { for (i = 0; i < read/8; i++) { x = gds_convert_signed_int(&workbuff[i*8]); y = gds_convert_signed_int(&workbuff[i*8+4]); current_graphics->vertices = append_vertex(current_graphics->vertices, x, y); GDS_INF("\t\tSet coordinate: %d/%d\n", x, y); } } else if (current_a_reference) { for (i = 0; i < 3; i++) { x = gds_convert_signed_int(&workbuff[i*8]); y = gds_convert_signed_int(&workbuff[i*8+4]); current_a_reference->control_points[i].x = x; current_a_reference->control_points[i].y = y; GDS_INF("\tSet control point %d: %d/%d\n", i, x, y); } } break; case STRANS: if (current_s_reference) { current_s_reference->flipped = ((workbuff[0] & 0x80) ? 1 : 0); } else if (current_a_reference) { current_a_reference->flipped = ((workbuff[0] & 0x80) ? 1 : 0); } else { GDS_ERROR("Transformation defined outside of instance"); break; } break; case SNAME: if (current_s_reference) { name_cell_ref(current_s_reference, (unsigned int)read, workbuff); } else if (current_a_reference) { name_array_cell_ref(current_a_reference, (unsigned int)read, workbuff); } else { GDS_ERROR("Reference name set outside of cell reference"); } break; case WIDTH: if (!current_graphics) { GDS_WARN("Width defined outside of path element"); } current_graphics->width_absolute = gds_convert_signed_int(workbuff); break; case LAYER: if (!current_graphics) { GDS_WARN("Layer has to be defined inside graphics object. Probably unknown object. Implement it yourself!"); break; } current_graphics->layer = gds_convert_signed_int16(workbuff); if (current_graphics->layer < 0) { GDS_WARN("Layer negative!\n"); } GDS_INF("\t\tAdded layer %d\n", (int)current_graphics->layer); break; case DATATYPE: if (!current_graphics) { GDS_WARN("Datatype has to be defined inside graphics object. Probably unknown object. Implement it yourself!"); break; } current_graphics->datatype = gds_convert_signed_int16(workbuff); if (current_graphics->datatype < 0) GDS_WARN("Datatype negative!"); GDS_INF("\t\tAdded datatype %d\n", (int)current_graphics->datatype); break; case MAG: if (rec_data_length != 8) { GDS_WARN("Magnification is not an 8 byte real. Results may be wrong"); } if (current_graphics != NULL && current_s_reference != NULL) { GDS_ERROR("Open Graphics and Cell Reference\n\tMissing ENDEL?"); run = -6; break; } if (current_s_reference != NULL) { current_s_reference->magnification = gds_convert_double(workbuff); GDS_INF("\t\tMagnification defined: %lf\n", current_s_reference->magnification); } if (current_a_reference != NULL) { current_a_reference->magnification = gds_convert_double(workbuff); GDS_INF("\t\tMagnification defined: %lf\n", current_a_reference->magnification); } break; case ANGLE: if (rec_data_length != 8) { GDS_WARN("Angle is not an 8 byte real. Results may be wrong"); } if (current_graphics != NULL && current_s_reference != NULL && current_a_reference != NULL) { GDS_ERROR("Open Graphics and Cell Reference\n\tMissing ENDEL?"); run = -6; break; } if (current_s_reference != NULL) { current_s_reference->angle = gds_convert_double(workbuff); GDS_INF("\t\tAngle defined: %lf\n", current_s_reference->angle); } if (current_a_reference != NULL) { current_a_reference->angle = gds_convert_double(workbuff); GDS_INF("\t\tAngle defined: %lf\n", current_a_reference->angle); } break; case PATHTYPE: if (current_graphics == NULL) { GDS_WARN("Path type defined outside of path. Ignoring"); break; } if (current_graphics->gfx_type == GRAPHIC_PATH) { current_graphics->path_render_type = (enum path_type)gds_convert_signed_int16(workbuff); GDS_INF("\t\tPathtype: %d\n", current_graphics->path_render_type); } else { GDS_WARN("Path type defined inside non-path graphics object. Ignoring"); } break; } } /* while(run == 1) */ fclose(gds_file); if (!run) { /* Iterate and find references to cells */ g_list_foreach(lib_list, scan_library_references, NULL); } *library_list = lib_list; free(workbuff); return run; } /** * @brief delete_cell_inst_element * @param cell_inst */ static void delete_cell_inst_element(struct gds_cell_instance *cell_inst) { if (cell_inst) free(cell_inst); } /** * @brief delete_vertex * @param vertex */ static void delete_vertex(struct gds_point *vertex) { if (vertex) free(vertex); } /** * @brief delete_graphics_obj * @param gfx */ static void delete_graphics_obj(struct gds_graphics *gfx) { if (!gfx) return; g_list_free_full(gfx->vertices, (GDestroyNotify)delete_vertex); free(gfx); } /** * @brief delete_cell_element * @param cell */ static void delete_cell_element(struct gds_cell *cell) { if (!cell) return; g_list_free_full(cell->child_cells, (GDestroyNotify)delete_cell_inst_element); g_list_free_full(cell->graphic_objs, (GDestroyNotify)delete_graphics_obj); free(cell); } /** * @brief delete_library_element * @param lib */ static void delete_library_element(struct gds_library *lib) { if (!lib) return; g_list_free(lib->cell_names); g_list_free_full(lib->cells, (GDestroyNotify)delete_cell_element); free(lib); } int clear_lib_list(GList **library_list) { if (!library_list) return 0; if (*library_list == NULL) return 0; g_list_free_full(*library_list, (GDestroyNotify)delete_library_element); *library_list = NULL; return 0; } /** @} */