libdwg_AutoCad_IntelliCad

/*****************************************************************************/ /* LibDWG - Free DWG read-only library */ /* Copyright (C) 2008, 2009 Free Software Foundation, Inc. */ /* */ /* This library is free software, licensed under the terms of the GNU */ /* General Public License as published by the Free Software Foundation, */ /* either version 3 of the License, or (at your option) any later version. */ /* You should have received a copy of the GNU General Public License */ /* along with this program. If not, see <http://www.gnu.org/licenses/>. */ /*****************************************************************************/ /// Dekodigo #include <stdio.h> #include <stdlib.h> #include <string.h> #include "komune.h" #include "bite.h" #include "dvg.h" #include "dekodigo.h" /*-------------------------------------------------------------------------------- * Privataj funkcioj */ static void dvg_dek_aldoni_objekto (Dvg_Strukturo * skt, Bit_Cxeno * dat, long unsigned int adreso); /*-------------------------------------------------------------------------------- * Publikaj variabloj */ long unsigned int ktl_lastadreso; /*-------------------------------------------------------------------------------- * Difino de publikaj funkcioj */ int dvg_dek_strukturigi (Bit_Cxeno * dat, Dvg_Strukturo * skt) { unsigned char sig; unsigned int sekgrandeco = 0; unsigned char sgdc[2]; unsigned int i, j; unsigned int ckr, ckr2, antckr; long unsigned int kiom; long unsigned int lasta; long unsigned int maplasta; long unsigned int duabajto; long unsigned int obek; long unsigned int obfin; long unsigned int pvz; /*------------------------------------------------------------------------- * Kap-datenaro */ /* Versio */ dat->bajto = 0; dat->bito = 0; strncpy (skt->kapo.versio, dat->cxeno, 6); skt->kapo.versio[6] = '\0'; if (strcmp (skt->kapo.versio, "AC1015") != 0) { printf ("Nur eblas dekodigi dvg-dosierojn laux la versio R2000 (AC1015). " "La trovita versio kodo estas: %s\n", skt->kapo.versio); return -1; } dat->bajto = 0x06; // 6 Nuloj kaj valoro for (i = 0; i < 7; i++) { sig = bit_legi_RC (dat); //printf ("0x%02X ", sig); } //puts (""); /* Bildadresilo */ pvz = bit_legi_RL (dat); //printf ("0x%08X\n", pvz); // Versio kaj lancxo sig = bit_legi_RC (dat); //printf ("Versio: %u\n", sig); sig = bit_legi_RC (dat); //printf ("Lancxo: %u\n", sig); /* Kodpagxo */ dat->bajto = 0x13; skt->kapo.kodpagxo = bit_legi_RS (dat); //printf ("Kodpagxo: %u\n", skt->kapo.kodpagxo); /* Sekcioj */ dat->bajto = 0x15; skt->kapo.sekcio_kiom = bit_legi_RL (dat); if (skt->kapo.sekcio_kiom > 6) skt->kapo.sekcio_kiom = 6; for (i = 0; i < skt->kapo.sekcio_kiom; i++) { skt->kapo.sekcio[i].adresilo = 0; skt->kapo.sekcio[i].grandeco = 0; skt->kapo.sekcio[i].numero = bit_legi_RC (dat); skt->kapo.sekcio[i].adresilo = bit_legi_RL (dat); skt->kapo.sekcio[i].grandeco = bit_legi_RL (dat); } // Kontroli CKR-on /* ckr = bit_legi_CRC (dat); dat->bajto -= 2; bit_krei_CRC (dat, 0, 0); dat->bajto -= 2; ckr2 = bit_legi_CRC (dat); dat->bajto -= 2; bit_skribi_RS (dat, ckr2 ^ 0x8461); dat->bajto -= 2; ckr2 = bit_legi_CRC (dat); printf ("Legita CRC: %X\nKreita CRC: %X\n", ckr, ckr2); */ bit_sercxi_gardostaranto (dat, dvg_gardostaranto (DVG_GS_KAPO_FINO)); /* if (bit_sercxi_gardostaranto (dat, dvg_gardostaranto (DVG_GS_KAPO_FINO))) printf ("=======> KAPO (fino): %8X\n", dat->bajto); */ /*------------------------------------------------------------------------- * Nekonata sekcio 1 */ if (skt->kapo.sekcio_kiom == 6) { //printf ("========> NEKONATA 1: %8X\n", skt->kapo.sekcio[5].adresilo); //printf (" NEKONATA 1 (fino): %8X\n", skt->kapo.sekcio[5].adresilo + skt->kapo.sekcio[5].grandeco); dat->bajto = skt->kapo.sekcio[5].adresilo; skt->nekonata1.kiom = DVG_NEKONATA1_KIOM; skt->nekonata1.bajto = skt->nekonata1.bito = 0; skt->nekonata1.cxeno = malloc (skt->nekonata1.kiom); memcpy (skt->nekonata1.cxeno, &dat->cxeno[dat->bajto], skt->nekonata1.kiom); //bit_esplori_cxeno ((Bit_Cxeno *) &skt->nekonata1, skt->nekonata1.kiom); //bit_montri ((Bit_Cxeno *) &skt->nekonata1, skt->nekonata1.kiom); } /*------------------------------------------------------------------------- * Antauxrigarda bildo */ if (bit_sercxi_gardostaranto (dat, dvg_gardostaranto (DVG_GS_BILDO_EKO))) { unsigned long int ekadreso; dat->bito = 0; ekadreso = dat->bajto; //printf ("=============> BILDO: %8X\n", ekadreso - 16); if (bit_sercxi_gardostaranto (dat, dvg_gardostaranto (DVG_GS_BILDO_FINO))) { //printf (" BILDO (fino): %8X\n", dat->bajto); skt->bildo.kiom = (dat->bajto - 16) - ekadreso; skt->bildo.cxeno = (char *) malloc (skt->bildo.kiom); memcpy (skt->bildo.cxeno, &dat->cxeno[ekadreso], skt->bildo.kiom); } else skt->bildo.kiom = 0; } /*------------------------------------------------------------------------- * Kap-variabloj */ //printf ("=====> KAP-VARIABLOJ: %8X\n", skt->kapo.sekcio[0].adresilo); //printf ("KAP-VARIABLOJ (fino): %8X\n", skt->kapo.sekcio[0].adresilo + skt->kapo.sekcio[0].grandeco); dat->bajto = skt->kapo.sekcio[0].adresilo + 16; pvz = bit_legi_RL (dat); //printf ("Longeco: %lu\n", pvz); dat->bito = 0; /* Legi la kap-variablojn */ for (i = 0; i < DVG_KIOM_VARIABLOJ; i++) { //printf ("[%03i] - ", i + 1); if (i == 221 && skt->var[220].dubitoko != 3) { skt->var[i].traktilo.kodo = 0; skt->var[i].traktilo.valoro = 0; //puts ("(NE EKZISTANTA)"); continue; } switch (dvg_varmapo (i)) { case DVG_DT_B: skt->var[i].bitoko = bit_legi_B (dat); //printf ("B: %u", skt->var[i].bitoko); break; case DVG_DT_BS: skt->var[i].dubitoko = bit_legi_BS (dat); //printf ("BS: %u", skt->var[i].dubitoko); break; case DVG_DT_BL: skt->var[i].kvarbitoko = bit_legi_BL (dat); //printf ("BL: %lu", skt->var[i].kvarbitoko); break; case DVG_DT_BD: skt->var[i].duglitajxo = bit_legi_BD (dat); //printf ("BD: %lg", skt->var[i].duglitajxo); break; case DVG_DT_H: bit_legi_H (dat, &skt->var[i].traktilo); //printf ("H: %i.%i.0x%08X", skt->var[i].traktilo.kodo, skt->var[i].traktilo.kiom, skt->var[i].traktilo.valoro); break; case DVG_DT_T: skt->var[i].teksto = bit_legi_T (dat); //printf ("T: \"%s\"", skt->var[i].teksto); break; case DVG_DT_CMC: skt->var[i].dubitoko = bit_legi_BS (dat); //printf ("CMC: %u", skt->var[i].dubitoko); break; case DVG_DT_2RD: skt->var[i].xy[0] = bit_legi_RD (dat); skt->var[i].xy[1] = bit_legi_RD (dat); //printf ("X: %lg\t", skt->var[i].xy[0]); //printf ("Y: %lg", skt->var[i].xy[1]); break; case DVG_DT_3BD: skt->var[i].xyz[0] = bit_legi_BD (dat); skt->var[i].xyz[1] = bit_legi_BD (dat); skt->var[i].xyz[2] = bit_legi_BD (dat); //printf ("X: %lg\t", skt->var[i].xyz[0]); //printf ("Y: %lg\t", skt->var[i].xyz[1]); //printf ("Z: %lg", skt->var[i].xyz[2]); break; default: printf ("Ne traktebla tipo: %i (var: %i)\n", dvg_varmapo (i), i); } //puts (""); } // Kontroli CKR-on ckr = bit_legi_CRC (dat); /* for (i = 0xC001; i != 0xC000; i++) { dat->bajto -= 2; bit_krei_CRC (dat, skt->kapo.sekcio[0].adresilo + 16, i); dat->bajto -= 2; ckr2 = bit_legi_CRC (dat); if (ckr == ckr2) { printf ("Legita CRC: %X\nKreita CRC: %X\t SEMO: %02X\n", ckr, ckr2, i); break; } } */ /*------------------------------------------------------------------------- * Klasoj */ //printf ("============> KLASOJ: %8X\n", skt->kapo.sekcio[1].adresilo); //printf (" KLASOJ (fino): %8X\n", skt->kapo.sekcio[1].adresilo + skt->kapo.sekcio[1].grandeco); dat->bajto = skt->kapo.sekcio[1].adresilo