añadido trazador

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

ediv/trazador/main.cpp

@@ -0,0 +1,77 @@
+#include <assert.h>
+
+#include <qapplication.h>
+#include <qplatinumstyle.h>
+#include <qmessagebox.h>
+#include <export.h>
+#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<linsize;i++) {
+		if(slin[i].inicio<=imem && slin[i].final>=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(;j<window.listado->text().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;
+}

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 <qmetaobject.h>
+#include <qapplication.h>
+
+#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;
+}

ediv/trazador/progedit.h

@@ -0,0 +1,9 @@
+/*#include <q
+
+class TrazadorWindow : public QMainWindow
+{
+	Q_OBJECT
+public:
+	TrazadorWindow( QWidget* parent = 0, const char* name = 0, WFlags f = WType_TopLevel );
+};
+*/

ediv/trazador/trazador.def

@@ -0,0 +1,3 @@
+LIBRARY debug
+EXPORTS
+	ExportaFuncs

ediv/trazador/trazador.dsw

@@ -0,0 +1,29 @@
+Microsoft Developer Studio Workspace File, Format Version 6.00
+# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE!
+
+###############################################################################
+
+Project: "Trazador"=.\Trazador.dsp - Package Owner=<4>
+
+Package=<5>
+{{{
+}}}
+
+Package=<4>
+{{{
+}}}
+
+###############################################################################
+
+Global:
+
+Package=<5>
+{{{
+}}}
+
+Package=<3>
+{{{
+}}}
+
+###############################################################################
+

ediv/trazador/trazador.ncb

@@ -0,0 +1 @@
+Microsoft C/C++ program database 2.00