rev 690 - trunk/src
SVN User <[email protected]> Thu, 01 Jul 2004 15:49:30 -0400
| Newsgroups | gmane.comp.lang.prothon.cvs |
|---|---|
| Message-ID | <[email protected]> |
Author: mark
Date: 2004-07-01 15:49:27 -0400 (Thu, 01 Jul 2004)
New Revision: 690
Modified:
trunk/src/builtins-file.c
trunk/src/main.c
trunk/src/src.vcproj
Log:
working on File.delete
Modified: trunk/src/builtins-file.c
===================================================================
--- trunk/src/builtins-file.c 2004-07-01 19:27:13 UTC (rev 689)
+++ trunk/src/builtins-file.c 2004-07-01 19:49:27 UTC (rev 690)
@@ -592,12 +592,6 @@
return OBJ(NONE);
}
-DEF(TempDir, final_, NULL) {
- if (self->data.ptr)
- call_func0(ist, self, sym(ist, "delete"));
- return OBJ(NONE);
-}
-
DEF(TempDir, str_, NULL) {
char buf[300], *path;
BIN_STR_CHK(TempDir);
@@ -607,6 +601,13 @@
return NEW_STRING(buf);
}
+DEF(TempDir, final_, NULL) {
+ if (self->data.ptr)
+ call_func0(ist, self, sym(ist, "delete"));
+ return OBJ(NONE);
+}
+
+
//*************************** MODULE File *************************************
MODULE_START(File)
Modified: trunk/src/main.c
===================================================================
--- trunk/src/main.c 2004-07-01 19:27:13 UTC (rev 689)
+++ trunk/src/main.c 2004-07-01 19:49:27 UTC (rev 690)
@@ -70,7 +70,7 @@
#include <apr_thread_proc.h>
#include <apr_portable.h>
-#define MEMMGR_TIMEOUT (10000/PAUSE_MS) /* 200 ms */
+#define MEMMGR_TIMEOUT (200/PAUSE_MS) /* 200 ms */
#ifdef TRACE_PARSER
extern int yydebug;
Modified: trunk/src/src.vcproj
===================================================================
--- trunk/src/src.vcproj 2004-07-01 19:27:13 UTC (rev 689)
+++ trunk/src/src.vcproj 2004-07-01 19:49:27 UTC (rev 690)
@@ -268,6 +268,9 @@
RelativePath="..\status.txt">
</File>
<File
+ RelativePath="..\pr\test.pr">
+ </File>
+ <File
RelativePath="thread.h">
</File>
</Filter>