diff --git a/ediv/trazador/Trazador.dsp b/ediv/trazador/Trazador.dsp new file mode 100644 index 0000000..ee33f43 --- /dev/null +++ b/ediv/trazador/Trazador.dsp @@ -0,0 +1,157 @@ +# Microsoft Developer Studio Project File - Name="Trazador" - Package Owner=<4> +# Microsoft Developer Studio Generated Build File, Format Version 6.00 +# ** DO NOT EDIT ** + +# TARGTYPE "Win32 (x86) Application" 0x0101 + +CFG=Trazador - Win32 Debug +!MESSAGE This is not a valid makefile. To build this project using NMAKE, +!MESSAGE use the Export Makefile command and run +!MESSAGE +!MESSAGE NMAKE /f "Trazador.mak". +!MESSAGE +!MESSAGE You can specify a configuration when running NMAKE +!MESSAGE by defining the macro CFG on the command line. For example: +!MESSAGE +!MESSAGE NMAKE /f "Trazador.mak" CFG="Trazador - Win32 Debug" +!MESSAGE +!MESSAGE Possible choices for configuration are: +!MESSAGE +!MESSAGE "Trazador - Win32 Release" (based on "Win32 (x86) Application") +!MESSAGE "Trazador - Win32 Debug" (based on "Win32 (x86) Application") +!MESSAGE + +# Begin Project +# PROP AllowPerConfigDependencies 0 +# PROP Scc_ProjName "" +# PROP Scc_LocalPath "" +CPP=cl.exe +MTL=midl.exe +RSC=rc.exe + +!IF "$(CFG)" == "Trazador - Win32 Release" + +# PROP BASE Use_MFC 0 +# PROP BASE Use_Debug_Libraries 0 +# PROP BASE Output_Dir "Release" +# PROP BASE Intermediate_Dir "Release" +# PROP BASE Target_Dir "" +# PROP Use_MFC 0 +# PROP Use_Debug_Libraries 0 +# PROP Output_Dir "Release" +# PROP Intermediate_Dir "Release" +# PROP Ignore_Export_Lib 0 +# PROP Target_Dir "" +# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /YX /FD /c +# ADD CPP /nologo /MD /W3 /GX /O2 /I "$(QTDIR)\include" /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "QT_DLL" /D "QT_THREAD_SUPPORT" /YX /FD /c +# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32 +# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32 +# ADD BASE RSC /l 0x40a /d "NDEBUG" +# ADD RSC /l 0x40a /d "NDEBUG" +BSC32=bscmake.exe +# ADD BASE BSC32 /nologo +# ADD BSC32 /nologo +LINK32=link.exe +# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /machine:I386 +# ADD LINK32 kernel32.lib user32.lib gdi32.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib imm32.lib wsock32.lib $(QTDIR)\lib\qt-mt230nc.lib $(QTDIR)\lib\qtmain.lib /nologo /subsystem:windows /machine:I386 /out:"../bin/dll/debug.dll" + +!ELSEIF "$(CFG)" == "Trazador - Win32 Debug" + +# PROP BASE Use_MFC 0 +# PROP BASE Use_Debug_Libraries 1 +# PROP BASE Output_Dir "Debug" +# PROP BASE Intermediate_Dir "Debug" +# PROP BASE Target_Dir "" +# PROP Use_MFC 0 +# PROP Use_Debug_Libraries 1 +# PROP Output_Dir "Debug" +# PROP Intermediate_Dir "Debug" +# PROP Ignore_Export_Lib 1 +# PROP Target_Dir "" +# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /YX /FD /GZ /c +# ADD CPP /nologo /MD /W3 /Gm /GX /ZI /Od /I "$(QTDIR)\include" /I "..\src\dlls" /I "..\src\kwrite" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "QT_DLL" /D "QT_THREAD_SUPPORT" /D "_USRDLL" /FR /YX /FD /GZ /c +# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32 +# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32 +# ADD BASE RSC /l 0x40a /d "_DEBUG" +# ADD RSC /l 0x40a /d "_DEBUG" +BSC32=bscmake.exe +# ADD BASE BSC32 /nologo +# ADD BSC32 /nologo +LINK32=link.exe +# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /debug /machine:I386 /pdbtype:sept +# ADD LINK32 kernel32.lib user32.lib gdi32.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib imm32.lib wsock32.lib $(QTDIR)\lib\qt-mt230nc.lib $(QTDIR)\lib\qtmain.lib /nologo /subsystem:windows /dll /debug /machine:I386 /out:"../bin/dll/debug.dll" /pdbtype:sept +# SUBTRACT LINK32 /pdb:none + +!ENDIF + +# Begin Target + +# Name "Trazador - Win32 Release" +# Name "Trazador - Win32 Debug" +# Begin Group "Source Files" + +# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat;for;f90" +# Begin Source File + +SOURCE=.\main.cpp +# End Source File +# Begin Source File + +SOURCE=.\moc_trazadorwindow.cpp +# End Source File +# Begin Source File + +SOURCE=.\trazador.def +# End Source File +# Begin Source File + +SOURCE=.\trazadorwindow.cpp +# End Source File +# End Group +# Begin Group "Header Files" + +# PROP Default_Filter "h;hpp;hxx;hm;inl;fi;fd" +# Begin Source File + +SOURCE=..\src\dlls\export.h +# End Source File +# Begin Source File + +SOURCE=.\trazadorwindow.h + +!IF "$(CFG)" == "Trazador - Win32 Release" + +# PROP Ignore_Default_Tool 1 +# Begin Custom Build - Moc'ing $(InputName).h ... +InputDir=. +InputPath=.\trazadorwindow.h +InputName=trazadorwindow + +"$(InputDir)\moc_$(InputName).cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" + %qtdir%\bin\moc.exe $(InputDir)\$(InputName).h -o $(InputDir)\moc_$(InputName).cpp + +# End Custom Build + +!ELSEIF "$(CFG)" == "Trazador - Win32 Debug" + +# PROP Ignore_Default_Tool 1 +# Begin Custom Build - Moc'ing $(InputName).h ... +InputDir=. +InputPath=.\trazadorwindow.h +InputName=trazadorwindow + +"$(InputDir)\moc_$(InputName).cpp" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)" + %qtdir%\bin\moc.exe $(InputDir)\$(InputName).h -o $(InputDir)\moc_$(InputName).cpp + +# End Custom Build + +!ENDIF + +# End Source File +# End Group +# Begin Group "Resource Files" + +# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;cnt;rtf;gif;jpg;jpeg;jpe" +# End Group +# End Target +# End Project diff --git a/ediv/trazador/main.cpp b/ediv/trazador/main.cpp new file mode 100644 index 0000000..fd96171 --- /dev/null +++ b/ediv/trazador/main.cpp @@ -0,0 +1,77 @@ +#include + +#include +#include +#include +#include +#include "trazadorwindow.h" + + +struct _slin { + int inicio, final; + int fila1, columna1; + int fila2, columna2; +} *slin; + +int linsize; + + +void trace(int imem, char* nombreprg, int* lin, void* dbg) +{ + return; +} + + +void debug(int imem, char* nombreprg, int* lin, void* dbg) +{ + static int dummy=1; + static char* dummy2="debug"; + int i,j,k,l,c; + + QApplication app(dummy,&dummy2); + + app.setStyle( new QPlatinumStyle ); + + TrazadorWindow window; + app.setMainWidget(&window); + + //assert(0); + + if(!window.CargaListado(nombreprg)) + app.quit(); + + linsize=lin[0]/sizeof(struct _slin); + slin=(struct _slin*)&lin[1]; + + for(i=0;i=imem) { + //window.listado->setSelection(slin[i].fila1,slin[i].columna1+1,slin[i].fila2,slin[i].columna2+1); + j=k=l=c=0; + if(slin[i].fila1>0) + for(;jtext().length();j++) { + if(window.listado->text().at(j)=='\n') { + l++; + if(l==slin[i].fila1) break; + } + } + window.listado->text().ref(j+slin[i].columna1)='#'; + + break; + } + } + window.show(); + + app.exec(); +} + +int ExportaFuncs(EXPORTAFUNCS_PARAMS) +{ + void (*traceptr)(int mem, char* nombreprg, int* lin, void* dbg); + void (*debugptr)(int mem, char* nombreprg, int* lin, void* dbg); + traceptr=trace; + debugptr=debug; + PRIORITY(-512); + EDIV_Export_Entrypoint(EDIV_trace,traceptr); + EDIV_Export_Entrypoint(EDIV_debug,debugptr); + return TRUE; +} diff --git a/ediv/trazador/moc_trazadorwindow.cpp b/ediv/trazador/moc_trazadorwindow.cpp new file mode 100644 index 0000000..cec12d0 --- /dev/null +++ b/ediv/trazador/moc_trazadorwindow.cpp @@ -0,0 +1,72 @@ +/**************************************************************************** +** TrazadorWindow meta object code from reading C++ file 'trazadorwindow.h' +** +** Created: Sat Feb 23 19:15:50 2002 +** by: The Qt MOC ($Id$) +** +** WARNING! All changes made in this file will be lost! +*****************************************************************************/ + +#define Q_MOC_TrazadorWindow +#if !defined(Q_MOC_OUTPUT_REVISION) +#define Q_MOC_OUTPUT_REVISION 8 +#elif Q_MOC_OUTPUT_REVISION != 8 +#error "Moc format conflict - please regenerate all moc files" +#endif + +#include "trazadorwindow.h" +#include +#include + +#if defined(Q_SPARCWORKS_FUNCP_BUG) +#define Q_AMPERSAND +#else +#define Q_AMPERSAND & +#endif + + +const char *TrazadorWindow::className() const +{ + return "TrazadorWindow"; +} + +QMetaObject *TrazadorWindow::metaObj = 0; + +void TrazadorWindow::initMetaObject() +{ + if ( metaObj ) + return; + if ( strcmp(QMainWindow::className(), "QMainWindow") != 0 ) + badSuperclassWarning("TrazadorWindow","QMainWindow"); + (void) staticMetaObject(); +} + +#ifndef QT_NO_TRANSLATION +QString TrazadorWindow::tr(const char* s) +{ + return ((QNonBaseApplication*)qApp)->translate("TrazadorWindow",s); +} + +#endif // QT_NO_TRANSLATION +QMetaObject* TrazadorWindow::staticMetaObject() +{ + if ( metaObj ) + return metaObj; + (void) QMainWindow::staticMetaObject(); +#ifndef QT_NO_PROPERTIES +#endif // QT_NO_PROPERTIES + QMetaData::Access *slot_tbl_access = 0; + metaObj = QMetaObject::new_metaobject( + "TrazadorWindow", "QMainWindow", + 0, 0, + 0, 0, +#ifndef QT_NO_PROPERTIES + 0, 0, + 0, 0, +#endif // QT_NO_PROPERTIES + 0, 0 ); + metaObj->set_slot_access( slot_tbl_access ); +#ifndef QT_NO_PROPERTIES +#endif // QT_NO_PROPERTIES + return metaObj; +} diff --git a/ediv/trazador/progedit.cpp b/ediv/trazador/progedit.cpp new file mode 100644 index 0000000..473a0f4 diff --git a/ediv/trazador/progedit.h b/ediv/trazador/progedit.h new file mode 100644 index 0000000..8242023 --- /dev/null +++ b/ediv/trazador/progedit.h @@ -0,0 +1,9 @@ +/*#include + +Package=<5> +{{{ +}}} + +Package=<4> +{{{ +}}} + +############################################################################### + +Global: + +Package=<5> +{{{ +}}} + +Package=<3> +{{{ +}}} + +############################################################################### + diff --git a/ediv/trazador/trazador.ncb b/ediv/trazador/trazador.ncb new file mode 100644 index 0000000..679d060 --- /dev/null +++ b/ediv/trazador/trazador.ncb @@ -0,0 +1 @@ +Microsoft C/C++ program database 2.00