rapideuphoria-commits — Repository Commit Messages

[Rapideuphoria-commits] euphoria: 4.0: * remove stray rm command from Makefile.gnu

[<sc...@op...>]

changeset:   4b79d3be38d5 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=4b79d3be38d5
description:
	* remove stray rm command from Makefile.gnu

diffstat:

 source/Makefile.gnu |  2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diffs (12 lines):

diff -r 46aa06e1c6c2 -r 4b79d3be38d5 source/Makefile.gnu
--- a/source/Makefile.gnu	Fri Feb 05 12:58:45 2016 -0300
+++ b/source/Makefile.gnu	Fri Feb 05 12:59:08 2016 -0300
@@ -482,7 +482,7 @@
 .PHONY : interpreter
 .PHONY : translator
 .PHONY : svn_rev
-.PHONY : code-page-db-rm $(BUILDDIR)/eui
+.PHONY : code-page-db
 .PHONY : binder
 
 euisource : $(BUILDDIR)/intobj/main-.c

[Rapideuphoria-commits] euphoria: 4.0: * remove creation of symlink. ticket 953

[<sc...@op...>]

changeset:   46aa06e1c6c2 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=46aa06e1c6c2
description:
	* remove creation of symlink.  ticket 953

diffstat:

 source/configure |  4 ----
 1 files changed, 0 insertions(+), 4 deletions(-)

diffs (14 lines):

diff -r c062621e398a -r 46aa06e1c6c2 source/configure
--- a/source/configure	Fri Feb 05 12:13:14 2016 -0300
+++ b/source/configure	Fri Feb 05 12:58:45 2016 -0300
@@ -410,10 +410,6 @@
 mkdir -p $BUILDDIR
 export BUILDDIR=`cd "$BUILDDIR" && pwd $PWDARG`
 
-# Make sure the tests use the ecp.dat we generate rather than 
-# the system ecp.dat which is somewhere in PATH.
-ln -sf $BUILDDIR/ecp.dat ../tests/ecp.dat
-
 echo TRUNKDIR=$TRUNKDIR >> "$PREFIX"${CONFIG_FILE}
 echo BUILDDIR=$BUILDDIR >> "$PREFIX"${CONFIG_FILE}
 

[Rapideuphoria-commits] euphoria: 4.0: * added warning tests

[<sc...@op...>]

changeset:   c062621e398a in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=c062621e398a
description:
	* added warning tests

diffstat:

 tests/t_warning.e     |   3 ++-
 tests/warning_code.ex |  17 ++++++++++-------
 2 files changed, 12 insertions(+), 8 deletions(-)

diffs (84 lines):

diff -r 34c0c911f5be -r c062621e398a tests/t_warning.e
--- a/tests/t_warning.e	Fri Feb 05 11:37:51 2016 -0300
+++ b/tests/t_warning.e	Fri Feb 05 12:13:14 2016 -0300
@@ -137,7 +137,7 @@
 	nul = "/dev/null"
 end ifdef
 
-constant answers = { "TTTTFTTTT", "TTTTTTTTT" } = 'T'
+constant answers = { "TTTTFTTTTF", "TTTTTTTTTF" } = 'T'
 constant questions = {
 {"File wide variables that are used but never assigned a value are warned about", 
 	"module variable \'i5\' is never assigned a value"}, -- 226
@@ -150,6 +150,7 @@
 {"Calls that might get skipped by short-circuit evaluation are warned about", "call to time() might be short-circuited" }, -- short_circuit
 {"Override of routine gets a warning", "built-in routine time() overridden"}, -- override
 {"Built-in chosen over declared routine gets a warning", "The built-in puts() in warning_code.ex overrides the global/public puts() in:warning_code1.e"},
+{"statement after abort() will never be executed", "statement after abort() will never be executed"},
  $
 }
 
diff -r 34c0c911f5be -r c062621e398a tests/warning_code.ex
--- a/tests/warning_code.ex	Fri Feb 05 11:37:51 2016 -0300
+++ b/tests/warning_code.ex	Fri Feb 05 12:13:14 2016 -0300
@@ -1,25 +1,24 @@
+without warning
 include std/error.e
 include std/locale.e
-include warning_code1.e as wc1
+include warning_code1.e as wc1 -- includes a puts() routine
 
 warning_file( "warnings_issued.txt" )
 
 without warning
---with warning &= { resolution, short_circuit }
 
 with warning = { override }
-
+-- warning here.  Override time()
 override function time()
 	return 0*eu:time()
 end function
-
-
 without warning
 
 atom a1 = time()
 
 with warning {builtin_chosen}
 -- the global puts defined in warning_code1.e is not used.  The built in puts is.
+-- warn here
 puts(1, "-")
 
 with warning = { none }
@@ -30,19 +29,17 @@
 	-- do nothing
 end if
 
-
-
 with warning = { not_used }
 -- warn here (not_used)
 integer i1
 integer i5
 
-
 -- warn here but only if you have not_used and strict
 procedure p1(integer i2)
--- warn here (not used)
+	-- warn here (not used) *different* from i1 warning
 	integer i3
 	integer i4
+	-- warn here (not used) *different* from i1 and i3 warnings
 	? i4
 end procedure
 
@@ -54,4 +51,8 @@
 -- warn here override. :o
 void( time() )
 
+-- no warning here it is disabled.
+abort(0)
+
+-- warning (not used) from this line of code *different* from other warnings
 ? i5

[Rapideuphoria-commits] euphoria: 4.0: * added warning tests

[<sc...@op...>]

changeset:   34c0c911f5be in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=34c0c911f5be
description:
	* added warning tests

diffstat:

 tests/t_warning.e     |  12 ++++++++++--
 tests/warning_code.ex |  26 ++++++++++++++++++++------
 tests/warning_code1.e |   3 +++
 3 files changed, 33 insertions(+), 8 deletions(-)

diffs (99 lines):

diff -r 33e5651f0b92 -r 34c0c911f5be tests/t_warning.e
--- a/tests/t_warning.e	Wed Feb 03 20:01:33 2016 -0300
+++ b/tests/t_warning.e	Fri Feb 05 11:37:51 2016 -0300
@@ -137,7 +137,7 @@
 	nul = "/dev/null"
 end ifdef
 
-constant answers = { "TTTTFT", "TTTTTT" } = 'T'
+constant answers = { "TTTTFTTTT", "TTTTTTTTT" } = 'T'
 constant questions = {
 {"File wide variables that are used but never assigned a value are warned about", 
 	"module variable \'i5\' is never assigned a value"}, -- 226
@@ -146,8 +146,16 @@
 {"File wide constants that are not used are warned about", "module constant \'a6\' is not used"}, -- 228
 {"File wide variables that are not used are warned about", "module variable \'i1\' is not used"}, -- 229
 {"Parameters of routines that are not used are warned about", "parameter \'i2\' of p1() is not used"}, -- 230
-{"Private variables of routines that are never used are warned about", "private variable \'i3\' of p1() is not used"} -- 231
+{"Private variables of routines that are never used are warned about", "private variable \'i3\' of p1() is not used"}, -- 231
+{"Calls that might get skipped by short-circuit evaluation are warned about", "call to time() might be short-circuited" }, -- short_circuit
+{"Override of routine gets a warning", "built-in routine time() overridden"}, -- override
+{"Built-in chosen over declared routine gets a warning", "The built-in puts() in warning_code.ex overrides the global/public puts() in:warning_code1.e"},
+ $
 }
+
+if length(answers[1]) != length(answers[2]) or length(answers[2]) != length(questions) then
+	puts(2,"Lengths are wrong")
+end if
 constant cl = command_line()
 constant eui = cl[1]
 ifdef EUI then
diff -r 33e5651f0b92 -r 34c0c911f5be tests/warning_code.ex
--- a/tests/warning_code.ex	Wed Feb 03 20:01:33 2016 -0300
+++ b/tests/warning_code.ex	Fri Feb 05 11:37:51 2016 -0300
@@ -1,26 +1,32 @@
 include std/error.e
 include std/locale.e
+include warning_code1.e as wc1
 
 warning_file( "warnings_issued.txt" )
 
 without warning
 --with warning &= { resolution, short_circuit }
 
-function time()
-	return eu:time()
+with warning = { override }
+
+override function time()
+	return 0*eu:time()
 end function
 
--- warning resolution
+
+without warning
+
 atom a1 = time()
 
-with warning {resolution}
-atom a2 = time()
+with warning {builtin_chosen}
+-- the global puts defined in warning_code1.e is not used.  The built in puts is.
+puts(1, "-")
 
 with warning = { none }
 with warning = { short_circuit }
 
 -- warn here
-if a1 and a2 then
+if a1 and time() then
 	-- do nothing
 end if
 
@@ -30,7 +36,6 @@
 -- warn here (not_used)
 integer i1
 integer i5
-? i5
 
 
 -- warn here but only if you have not_used and strict
@@ -42,3 +47,11 @@
 end procedure
 
 constant a6 = 'f'
+
+procedure void( object x )
+end procedure
+
+-- warn here override. :o
+void( time() )
+
+? i5
diff -r 33e5651f0b92 -r 34c0c911f5be tests/warning_code1.e
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/warning_code1.e	Fri Feb 05 11:37:51 2016 -0300
@@ -0,0 +1,3 @@
+global procedure puts(integer fd, sequence txt)
+	eu:puts(fd, "*" & txt)
+end procedure

[Rapideuphoria-commits] euphoria: 4.0: * maybe fixes ticket 953

[<sc...@op...>]

changeset:   33e5651f0b92 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=33e5651f0b92
description:
	* maybe fixes ticket 953

diffstat:

 source/Makefile.gnu |  9 ++++++---
 1 files changed, 6 insertions(+), 3 deletions(-)

diffs (37 lines):

diff -r f6f689cc03c2 -r 33e5651f0b92 source/Makefile.gnu
--- a/source/Makefile.gnu	Tue Feb 02 09:11:09 2016 -0300
+++ b/source/Makefile.gnu	Wed Feb 03 20:01:33 2016 -0300
@@ -376,7 +376,7 @@
 EU_INTERPRETER_OBJECTS = $(patsubst %.c,%.o,$(wildcard $(BUILDDIR)/intobj/*.c))
 
 all : 
-	$(MAKE) interpreter translator library debug-library backend
+	$(MAKE) $(TRUNKDIR)/tests/ecp.dat interpreter translator library debug-library backend
 	$(MAKE) tools
 
 
@@ -450,11 +450,14 @@
 ROOTDIR=$(TRUNKDIR)
 endif
 
-code-page-db : $(BUILDDIR)/ecp.dat
+code-page-db : $(BUILDDIR)/ecp.dat $(TRUNKDIR)/tests/ecp.dat
 
 $(BUILDDIR)/ecp.dat : $(TRUNKDIR)/source/codepage/*.ecp msgtext.e
 	$(BUILDDIR)/$(EEXU) -i $(CYPTRUNKDIR)/include $(CYPTRUNKDIR)/bin/buildcpdb.ex -p$(CYPTRUNKDIR)/source/codepage -o$(CYPBUILDDIR)
 
+$(TRUNKDIR)/tests/ecp.dat : $(BUILDDIR)/ecp.dat
+	cp -fl $(BUILDDIR)/ecp.dat $(TRUNKDIR)/tests/ecp.dat || cp -f $(BUILDDIR)/ecp.dat $(TRUNKDIR)/tests/ecp.dat 
+	
 interpreter : builddirs
 ifeq "$(EUPHORIA)" "1"
 	$(MAKE) euisource OBJDIR=intobj EBSD=$(EBSD) CONFIG=$(CONFIG) EDEBUG=$(EDEBUG) EPROFILE=$(EPROFILE)
@@ -717,7 +720,7 @@
 test : EUCOMPILEDIR=$(TRUNKDIR)	
 test : C_INCLUDE_PATH=$(TRUNKDIR):..:$(C_INCLUDE_PATH)
 test : LIBRARY_PATH=$(%LIBRARY_PATH)
-test : ../tests/lib818.dll $(CYPBUILDDIR)/$(EEXU) $(BUILDDIR)/$(EUBIND) $(BUILDDIR)/$(EBACKENDC) $(BUILDDIR)/$(EECU) $(CYPBUILDDIR)/$(LIBRARY_NAME)
+test : ../tests/lib818.dll $(TRUNKDIR)/tests/ecp.dat $(CYPBUILDDIR)/$(EEXU) $(BUILDDIR)/$(EUBIND) $(BUILDDIR)/$(EBACKENDC) $(BUILDDIR)/$(EECU) $(CYPBUILDDIR)/$(LIBRARY_NAME)
 test :  
 	cd ../tests && EUDIR=$(CYPTRUNKDIR) EUCOMPILEDIR=$(CYPTRUNKDIR) \
 		$(EXE) -i ../include ../source/eutest.ex -i ../include -cc gcc $(VERBOSE_TESTS) \

[Rapideuphoria-commits] euphoria: 4.0: * maybe fixes ticket 915. changed WINDOWS to EWI...

[<sc...@op...>]

changeset:   03f5da64c1e8 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=03f5da64c1e8
description:
	* maybe fixes ticket 915.  changed WINDOWS to EWINDOWS

diffstat:

 source/be_machine.c |  2 +-
 source/be_runtime.c |  4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diffs (33 lines):

diff -r 869af8eba03f -r 03f5da64c1e8 source/be_machine.c
--- a/source/be_machine.c	Mon Feb 01 22:10:15 2016 -0300
+++ b/source/be_machine.c	Tue Feb 02 09:05:21 2016 -0300
@@ -2530,7 +2530,7 @@
 void Machine_Handler(int sig_no)
 /* illegal instruction, segmentation violation */
 {
-#ifdef WINDOWS
+#ifdef EWINDOWS
 	is_batch = console_application();
 #endif
 #ifdef ERUNTIME
diff -r 869af8eba03f -r 03f5da64c1e8 source/be_runtime.c
--- a/source/be_runtime.c	Mon Feb 01 22:10:15 2016 -0300
+++ b/source/be_runtime.c	Tue Feb 02 09:05:21 2016 -0300
@@ -81,7 +81,7 @@
 #define CONTROL_Z 26
 #define CR 13
 #define LF 10
-#ifdef WINDOWS
+#ifdef EWINDOWS
 #define BS 8
 #else
 #define BS 127
@@ -5800,7 +5800,7 @@
 		if (c == CR || c == LF || c == numpad_enter)
 			break;
 
-#ifndef WINDOWS
+#ifndef EWINDOWS
 		if( c == 27 ){
 			char d, e;
 			// escape code!

[Rapideuphoria-commits] euphoria: 4.0: * merge

[<sc...@op...>]

changeset:   f6f689cc03c2 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=f6f689cc03c2
description:
	* merge

diffstat:

 source/be_machine.c |  2 +-
 source/be_runtime.c |  4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diffs (33 lines):

diff -r 0f7fcd26594e -r f6f689cc03c2 source/be_machine.c
--- a/source/be_machine.c	Mon Feb 01 22:24:56 2016 -0300
+++ b/source/be_machine.c	Tue Feb 02 09:11:09 2016 -0300
@@ -2530,7 +2530,7 @@
 void Machine_Handler(int sig_no)
 /* illegal instruction, segmentation violation */
 {
-#ifdef 
+#ifdef EWINDOWS
 	is_batch = console_application();
 #endif
 #ifdef ERUNTIME
diff -r 0f7fcd26594e -r f6f689cc03c2 source/be_runtime.c
--- a/source/be_runtime.c	Mon Feb 01 22:24:56 2016 -0300
+++ b/source/be_runtime.c	Tue Feb 02 09:11:09 2016 -0300
@@ -81,7 +81,7 @@
 #define CONTROL_Z 26
 #define CR 13
 #define LF 10
-#ifdef 
+#ifdef EWINDOWS
 #define BS 8
 #else
 #define BS 127
@@ -5800,7 +5800,7 @@
 		if (c == CR || c == LF || c == numpad_enter)
 			break;
 
-#ifndef 
+#ifndef EWINDOWS
 		if( c == 27 ){
 			char d, e;
 			// escape code!

[Rapideuphoria-commits] euphoria: 4.0: * maybe fixes ticket 915

[<sc...@op...>]

changeset:   0f7fcd26594e in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=0f7fcd26594e
description:
	* maybe fixes ticket 915

diffstat:

 source/be_machine.c |  2 +-
 source/be_runtime.c |  4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diffs (33 lines):

diff -r 869af8eba03f -r 0f7fcd26594e source/be_machine.c
--- a/source/be_machine.c	Mon Feb 01 22:10:15 2016 -0300
+++ b/source/be_machine.c	Mon Feb 01 22:24:56 2016 -0300
@@ -2530,7 +2530,7 @@
 void Machine_Handler(int sig_no)
 /* illegal instruction, segmentation violation */
 {
-#ifdef WINDOWS
+#ifdef 
 	is_batch = console_application();
 #endif
 #ifdef ERUNTIME
diff -r 869af8eba03f -r 0f7fcd26594e source/be_runtime.c
--- a/source/be_runtime.c	Mon Feb 01 22:10:15 2016 -0300
+++ b/source/be_runtime.c	Mon Feb 01 22:24:56 2016 -0300
@@ -81,7 +81,7 @@
 #define CONTROL_Z 26
 #define CR 13
 #define LF 10
-#ifdef WINDOWS
+#ifdef 
 #define BS 8
 #else
 #define BS 127
@@ -5800,7 +5800,7 @@
 		if (c == CR || c == LF || c == numpad_enter)
 			break;
 
-#ifndef WINDOWS
+#ifndef 
 		if( c == 27 ){
 			char d, e;
 			// escape code!

[Rapideuphoria-commits] euphoria: 4.0: * fixes ticket 907

[<sc...@op...>]

changeset:   869af8eba03f in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=869af8eba03f
description:
	* fixes ticket 907

diffstat:

 docs/refman_2.txt |   2 +-
 source/symtab.e   |  12 +-----------
 2 files changed, 2 insertions(+), 12 deletions(-)

diffs (41 lines):

diff -r 88325132d794 -r 869af8eba03f docs/refman_2.txt
--- a/docs/refman_2.txt	Mon Feb 01 22:00:02 2016 -0300
+++ b/docs/refman_2.txt	Mon Feb 01 22:10:15 2016 -0300
@@ -3911,7 +3911,7 @@
 
 The **with/without warnings** directives will have no effect if the
 ##-STRICT## command line switch is used. The latter turns on all warnings
-and ignores any **with/without warnings** statement. However, it can be
+and ignores any **with/without warnings** statement. It also warns if a parameter of a routine is unused.  However, it can be
 temporarily affected by the "##without warning strict##" directive.
 
 ----
diff -r 88325132d794 -r 869af8eba03f source/symtab.e
--- a/source/symtab.e	Mon Feb 01 22:00:02 2016 -0300
+++ b/source/symtab.e	Mon Feb 01 22:10:15 2016 -0300
@@ -1149,13 +1149,6 @@
 			if vscope > SC_LOCAL then
 				-- Exposed vars/consts can be read by other files.
 				warn_level = 0 
-			
-			elsif SymTab[s][S_MODE] = M_CONSTANT then
-				if not Strict_is_on then
-					-- Unused local constants are fairly common, so only report
-					-- on them if explictly required to.
-					warn_level = 0 
-				end if
 			end if
 		
 		case U_READ then -- Read but never set
@@ -1211,10 +1204,7 @@
 			else
 				-- Private Vars
 				if warn_level = 1 then
-					if Strict_is_on then
-						-- Only issue this warning if -strict is in play.
-						Warning(231, not_used_warning_flag, {file,  vname, SymTab[CurrentSub][S_NAME]})
-					end if
+					Warning(231, not_used_warning_flag, {file,  vname, SymTab[CurrentSub][S_NAME]})
 				else -- elsif warn_level = 2 then
 					Warning(322, not_used_warning_flag, {file,  vname, SymTab[CurrentSub][S_NAME]})
 				end if

[Rapideuphoria-commits] euphoria: 4.0: * ticket 952 : added tests for warnings

[<sc...@op...>]

changeset:   88325132d794 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=88325132d794
description:
	* ticket 952 : added tests for warnings

diffstat:

 tests/t_warning.e     |  50 +++++++++++++++++++++++++++++++++++++++++++++++++-
 tests/warning_code.ex |  44 ++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 93 insertions(+), 1 deletions(-)

diffs (113 lines):

diff -r dd8f7362ab42 -r 88325132d794 tests/t_warning.e
--- a/tests/t_warning.e	Fri Jan 29 20:21:34 2016 -0300
+++ b/tests/t_warning.e	Mon Feb 01 22:00:02 2016 -0300
@@ -1,4 +1,7 @@
 include std/unittest.e
+include std/io.e
+include std/filesys.e
+include std/os.e
 
 with warning
 with warning&= {none}
@@ -126,7 +129,52 @@
 without warning save
 without warning restore
 without warning strict
+constant warnings_issued = "warnings_issued.txt"
 
-test_true("Warning syntax", 1)
+test_pass("Warning syntax")
+sequence nul = "NUL"
+ifdef UNIX then
+	nul = "/dev/null"
+end ifdef
 
+constant answers = { "TTTTFT", "TTTTTT" } = 'T'
+constant questions = {
+{"File wide variables that are used but never assigned a value are warned about", 
+	"module variable \'i5\' is never assigned a value"}, -- 226
+{"Private variables of routines that are used but never assigned a value are warned about", 
+	"private variable \'i4\' of p1 is never assigned a value"}, -- 227
+{"File wide constants that are not used are warned about", "module constant \'a6\' is not used"}, -- 228
+{"File wide variables that are not used are warned about", "module variable \'i1\' is not used"}, -- 229
+{"Parameters of routines that are not used are warned about", "parameter \'i2\' of p1() is not used"}, -- 230
+{"Private variables of routines that are never used are warned about", "private variable \'i3\' of p1() is not used"} -- 231
+}
+constant cl = command_line()
+constant eui = cl[1]
+ifdef EUI then
+	for j = 1 to 2 do
+		sequence cmd, decoration, strict
+		if j = 1 then
+			strict = ""
+			decoration = "normal: "
+		else
+			strict = " -strict"
+			decoration = "strict: "
+		end if
+		cmd = eui & strict & " -batch warning_code.ex > " & nul
+		delete_file(warnings_issued)
+		system(cmd,2)
+		if file_exists(warnings_issued) = 0 then
+			test_fail("warning behavior")
+		else
+			sequence wf = read_file(warnings_issued)
+			for i = 1 to length(questions) do
+				test_equal(decoration & questions[i][1], 
+					answers[j][i], match(questions[i][2], wf) != 0 )
+			end for
+		end if
+	end for -- j
+
+	-- avoid confusion of eutest
+	delete_file("ex.err")
+end ifdef
 test_report()
diff -r dd8f7362ab42 -r 88325132d794 tests/warning_code.ex
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/warning_code.ex	Mon Feb 01 22:00:02 2016 -0300
@@ -0,0 +1,44 @@
+include std/error.e
+include std/locale.e
+
+warning_file( "warnings_issued.txt" )
+
+without warning
+--with warning &= { resolution, short_circuit }
+
+function time()
+	return eu:time()
+end function
+
+-- warning resolution
+atom a1 = time()
+
+with warning {resolution}
+atom a2 = time()
+
+with warning = { none }
+with warning = { short_circuit }
+
+-- warn here
+if a1 and a2 then
+	-- do nothing
+end if
+
+
+
+with warning = { not_used }
+-- warn here (not_used)
+integer i1
+integer i5
+? i5
+
+
+-- warn here but only if you have not_used and strict
+procedure p1(integer i2)
+-- warn here (not used)
+	integer i3
+	integer i4
+	? i4
+end procedure
+
+constant a6 = 'f'

[Rapideuphoria-commits] euphoria: 4.0: * put some comments to improve readability

[<sc...@op...>]

changeset:   dd8f7362ab42 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=dd8f7362ab42
description:
	* put some comments to improve readability

diffstat:

 source/symtab.e |  6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diffs (25 lines):

diff -r f9b90f1840d5 -r dd8f7362ab42 source/symtab.e
--- a/source/symtab.e	Fri Jan 29 16:29:45 2016 -0300
+++ b/source/symtab.e	Fri Jan 29 20:21:34 2016 -0300
@@ -1205,7 +1205,7 @@
 						-- Only issue this warning if -strict is in play.
 						Warning(230, not_used_warning_flag, {file,  vname, SymTab[CurrentSub][S_NAME]})
 					end if
-				else
+				else -- elsif warn_level = 2 then
 					Warning(321, not_used_warning_flag, {file,  vname, SymTab[CurrentSub][S_NAME]})
 				end if
 			else
@@ -1215,10 +1215,10 @@
 						-- Only issue this warning if -strict is in play.
 						Warning(231, not_used_warning_flag, {file,  vname, SymTab[CurrentSub][S_NAME]})
 					end if
-				else
+				else -- elsif warn_level = 2 then
 					Warning(322, not_used_warning_flag, {file,  vname, SymTab[CurrentSub][S_NAME]})
 				end if
-			end if		
+			end if
 		end if
 	end if
 

[Rapideuphoria-commits] euphoria: 4.0: * merge

[<sc...@op...>]

changeset:   f9b90f1840d5 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=f9b90f1840d5
description:
	* merge

diffstat:

 demo/hash.ex                             |   2 +
 demo/loaddb.ex                           |   2 +
 demo/net/chat_client.ex                  |   2 +
 demo/net/pastey.ex                       |   2 +
 demo/net/sock_client.ex                  |   2 +
 demo/net/wget.ex                         |   2 +
 demo/pipes.ex                            |   2 +
 demo/win32/taskwire.exw                  |   3 +-
 demo/win32/window.exw                    |   2 +-
 demo/win32/winwire.exw                   |   7 ++--
 docs/refman_2.txt                        |   1 -
 include/std/console.e                    |   2 +
 include/std/filesys.e                    |  19 ++++++++-----
 include/std/math.e                       |   1 +
 source/Makefile.gnu                      |   2 +-
 source/be_execute.c                      |   4 ++
 source/compile.e                         |   2 +
 source/configure                         |   4 ++
 source/parser.e                          |  43 ++++++++++++++++++-------------
 tests/t_c_948.d/control.err              |  15 +++++++++++
 tests/t_c_948.e                          |   3 ++
 tests/t_c_integer_destroys.d/control.err |  11 ++++++++
 tests/t_c_integer_destroys.e             |  17 ++++++++++++
 tests/t_delete.e                         |  21 +++++++++++++++
 tests/t_filesys.e                        |  43 ++++++++++++++++++++++++++++++++
 25 files changed, 182 insertions(+), 32 deletions(-)

diffs (truncated from 495 to 300 lines):

diff -r aeaf6e283754 -r f9b90f1840d5 demo/hash.ex
--- a/demo/hash.ex	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/hash.ex	Fri Jan 29 16:29:45 2016 -0300
@@ -127,6 +127,8 @@
 object vOptMap
 
 without warning
+--**
+-- @nodoc@
 override procedure abort(integer errcode)
 	maybe_any_key("\nPress Any Key to Continue...")
 	eu:abort(errcode)
diff -r aeaf6e283754 -r f9b90f1840d5 demo/loaddb.ex
--- a/demo/loaddb.ex	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/loaddb.ex	Fri Jan 29 16:29:45 2016 -0300
@@ -14,6 +14,8 @@
 include std/console.e
 
 without warning
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r aeaf6e283754 -r f9b90f1840d5 demo/net/chat_client.ex
--- a/demo/net/chat_client.ex	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/net/chat_client.ex	Fri Jan 29 16:29:45 2016 -0300
@@ -11,6 +11,8 @@
 include std/socket.e as slib
 without warning
 
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r aeaf6e283754 -r f9b90f1840d5 demo/net/pastey.ex
--- a/demo/net/pastey.ex	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/net/pastey.ex	Fri Jan 29 16:29:45 2016 -0300
@@ -22,6 +22,8 @@
 sequence username, password, title
 
 without warning
+--**
+-- @nodoc@
 override procedure abort(integer x, sequence msg = {}, sequence data = {})
 	if length(msg) then
     	printf(2, msg & "\n", data)
diff -r aeaf6e283754 -r f9b90f1840d5 demo/net/sock_client.ex
--- a/demo/net/sock_client.ex	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/net/sock_client.ex	Fri Jan 29 16:29:45 2016 -0300
@@ -11,6 +11,8 @@
 include std/console.e
 include std/socket.e as sock
 
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r aeaf6e283754 -r f9b90f1840d5 demo/net/wget.ex
--- a/demo/net/wget.ex	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/net/wget.ex	Fri Jan 29 16:29:45 2016 -0300
@@ -14,6 +14,8 @@
 include std/net/http.e
 without warning
 
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r aeaf6e283754 -r f9b90f1840d5 demo/pipes.ex
--- a/demo/pipes.ex	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/pipes.ex	Fri Jan 29 16:29:45 2016 -0300
@@ -9,6 +9,8 @@
 include std/console.e
 without warning
 
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r aeaf6e283754 -r f9b90f1840d5 demo/win32/taskwire.exw
--- a/demo/win32/taskwire.exw	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/win32/taskwire.exw	Fri Jan 29 16:29:45 2016 -0300
@@ -25,10 +25,9 @@
 without warning
 
 
---**** 
--- === Windows Data Type constants for function/procedure calls
+-- Windows Data Type constants for function/procedure calls
 
-public constant 
+constant 
 	C_BYTE = C_UCHAR,  
 	C_BOOL = C_INT, 
 	C_ATOM = C_USHORT, 
diff -r aeaf6e283754 -r f9b90f1840d5 demo/win32/window.exw
--- a/demo/win32/window.exw	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/win32/window.exw	Fri Jan 29 16:29:45 2016 -0300
@@ -11,7 +11,7 @@
 include std/math.e
 include std/error.e
 
-public constant 
+constant 
 	C_BYTE = C_UCHAR,  
 	C_BOOL = C_INT, 
 	C_ATOM = C_USHORT, 
diff -r aeaf6e283754 -r f9b90f1840d5 demo/win32/winwire.exw
--- a/demo/win32/winwire.exw	Fri Jan 29 13:08:56 2016 -0300
+++ b/demo/win32/winwire.exw	Fri Jan 29 16:29:45 2016 -0300
@@ -21,10 +21,9 @@
 include std/error.e
 without warning
 
---**** 
--- === Windows Data Type constants for function/procedure calls
+-- Windows Data Type constants for function/procedure calls
 
-public constant 
+constant 
 	C_BYTE = C_UCHAR,  
 	C_BOOL = C_INT, 
 	C_ATOM = C_USHORT, 
@@ -46,7 +45,7 @@
  
 constant X = 1, Y = 2, Z = 3
 
-global constant BLACK = 0,
+constant BLACK = 0,
 	 BLUE  = 1,
 	 GREEN = 2,
 	 CYAN =  3,
@@ -63,7 +62,7 @@
 	 YELLOW = 14,
 	 BRIGHT_WHITE = 15
 
-global constant VC_COLOR = 1,
+constant VC_COLOR = 1,
 	 VC_MODE  = 2,
 	 VC_LINES = 3,
 	 VC_COLUMNS = 4,
diff -r aeaf6e283754 -r f9b90f1840d5 docs/refman_2.txt
--- a/docs/refman_2.txt	Fri Jan 29 13:08:56 2016 -0300
+++ b/docs/refman_2.txt	Fri Jan 29 16:29:45 2016 -0300
@@ -2602,7 +2602,6 @@
 FuncB()
 FuncD()
 FuncF()
-FuncG()
 FuncM()
 
 In other words, the ##break "LBLa"## skips to the end of the switch called
diff -r aeaf6e283754 -r f9b90f1840d5 include/std/console.e
--- a/include/std/console.e	Fri Jan 29 13:08:56 2016 -0300
+++ b/include/std/console.e	Fri Jan 29 16:29:45 2016 -0300
@@ -897,12 +897,12 @@
 --
 -- Example 1:
 -- <eucode>
--- any_key() -- "Press Any Key to continue..."
+-- maybe_any_key() -- "Press Any Key to continue..."
 -- </eucode>
 --
 -- Example 2:
 -- <eucode>
--- any_key("Press Any Key to quit")
+-- maybe_any_key("Press Any Key to quit")
 -- </eucode>
 --
 -- See Also:
diff -r aeaf6e283754 -r f9b90f1840d5 include/std/filesys.e
--- a/include/std/filesys.e	Fri Jan 29 13:08:56 2016 -0300
+++ b/include/std/filesys.e	Fri Jan 29 16:29:45 2016 -0300
@@ -2129,12 +2129,18 @@
 	elsedef
 		integer success = 0
 		
-		if file_exists(src) then
-			if overwrite or not file_exists( dest ) then
-				integer
-					in  = open( src, "rb" ),
-					out = open( dest, "wb" )
-				if in != -1 and out != -1 then
+		object src_list = dir(src)
+		if sequence(src_list) and length(src_list) = 1 and not find('d',src_list[1][D_ATTRIBUTES]) then
+			object dest_list = dir(dest)
+			if (overwrite and sequence(dest_list) and length(dest_list) = 1 and not find('d',dest_list[1][D_ATTRIBUTES])) 
+				or not file_exists( dest ) then
+				atom
+					in  = open( src, "rb", 1 )
+				if in != -1 then
+					integer out = open( dest, "wb" )
+					if out = -1 then
+						return 0
+					end if
 					integer byte
 					while byte != -1 with entry do
 						puts( out, byte )
@@ -2142,7 +2148,6 @@
 						byte = getc( in )
 					end while
 					success = 1
-					close( in )
 					close( out )
 				end if
 			end if
diff -r aeaf6e283754 -r f9b90f1840d5 include/std/math.e
--- a/include/std/math.e	Fri Jan 29 13:08:56 2016 -0300
+++ b/include/std/math.e	Fri Jan 29 16:29:45 2016 -0300
@@ -1793,7 +1793,7 @@
 --
 
 --**
--- Returns the greater common divisor of to atoms
+-- Returns the greater common divisor of two atoms
 --
 -- Parameters:
 --		# ##p## : one of the atoms to consider
diff -r aeaf6e283754 -r f9b90f1840d5 source/Makefile.gnu
--- a/source/Makefile.gnu	Fri Jan 29 13:08:56 2016 -0300
+++ b/source/Makefile.gnu	Fri Jan 29 16:29:45 2016 -0300
@@ -452,7 +452,7 @@
 
 code-page-db : $(BUILDDIR)/ecp.dat
 
-$(BUILDDIR)/ecp.dat : $(TRUNKDIR)/source/codepage/*.ecp
+$(BUILDDIR)/ecp.dat : $(TRUNKDIR)/source/codepage/*.ecp msgtext.e
 	$(BUILDDIR)/$(EEXU) -i $(CYPTRUNKDIR)/include $(CYPTRUNKDIR)/bin/buildcpdb.ex -p$(CYPTRUNKDIR)/source/codepage -o$(CYPBUILDDIR)
 
 interpreter : builddirs
diff -r aeaf6e283754 -r f9b90f1840d5 source/be_execute.c
--- a/source/be_execute.c	Fri Jan 29 13:08:56 2016 -0300
+++ b/source/be_execute.c	Fri Jan 29 16:29:45 2016 -0300
@@ -2387,6 +2387,10 @@
 					tpc = pc;
 					a = DoubleToInt(top);
 					if (IS_ATOM_INT(a)) {
+						if (UNIQUE(DBL_PTR(top)) && (DBL_PTR(top)->cleanup != 0)) {
+							tpc = pc - 1; //RTFatalType(pc-1);
+							RTFatal("Cannot assign value with a destructor to an integer");
+						}
 						DeRefDS(top);
 						*(object_ptr)pc[-1] = a;
 						BREAK;
diff -r aeaf6e283754 -r f9b90f1840d5 source/compile.e
--- a/source/compile.e	Fri Jan 29 13:08:56 2016 -0300
+++ b/source/compile.e	Fri Jan 29 16:29:45 2016 -0300
@@ -2816,6 +2816,8 @@
 		LeftSym = TRUE
 		c_stmt("_1 = (long)(DBL_PTR(@)->dbl);\n", sym)
 		LeftSym = TRUE
+		c_stmt( "if (UNIQUE(DBL_PTR(@)) && (DBL_PTR(@)->cleanup != 0))\n" & 
+				"RTFatal(\"Cannot assign value with a destructor to an integer\");", {sym, sym})
 		c_stmt("DeRefDS(@);\n", sym)
 		c_stmt("@ = _1;\n", sym)
 		c_stmt0("}\n")
diff -r aeaf6e283754 -r f9b90f1840d5 source/configure
--- a/source/configure	Fri Jan 29 13:08:56 2016 -0300
+++ b/source/configure	Fri Jan 29 16:29:45 2016 -0300
@@ -410,6 +410,10 @@
 mkdir -p $BUILDDIR
 export BUILDDIR=`cd "$BUILDDIR" && pwd $PWDARG`
 
+# Make sure the tests use the ecp.dat we generate rather than 
+# the system ecp.dat which is somewhere in PATH.
+ln -sf $BUILDDIR/ecp.dat ../tests/ecp.dat
+
 echo TRUNKDIR=$TRUNKDIR >> "$PREFIX"${CONFIG_FILE}
 echo BUILDDIR=$BUILDDIR >> "$PREFIX"${CONFIG_FILE}
 
diff -r aeaf6e283754 -r f9b90f1840d5 source/parser.e
--- a/source/parser.e	Fri Jan 29 13:08:56 2016 -0300
+++ b/source/parser.e	Fri Jan 29 16:29:45 2016 -0300
@@ -3933,20 +3933,40 @@
 		CompileErr( 32 )
 	end if
 	type_enum =  0
-	if prog_type = TYPE_DECL then
-		object tsym = prog_name[T_SYM]
-		if equal(sym_name(prog_name[T_SYM]),"enum") then
+	p = prog_name[T_SYM]
+	if equal(sym_name(p),"enum") and prog_type = TYPE_DECL then
+		type_enum = 1
+		prog_name = next_token()
+		p = prog_name[T_SYM]
+	end if
+	
+	if not find(prog_name[T_ID], ADDR_TOKS) then
+		CompileErr(25, {find_category(prog_name[T_ID])} )
+	end if
+	DefinedYet(p)
+	if prog_type = PROCEDURE then
+		pt = PROC
+	elsif prog_type = FUNCTION then
+		pt = FUNC

[Rapideuphoria-commits] euphoria: 4.0: * fixes ticket 934 without breaking t_locale.e tests

[<sc...@op...>]

changeset:   aeaf6e283754 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=aeaf6e283754
description:
	* fixes ticket 934 without breaking t_locale.e tests

diffstat:

 tests/t_locale.e         |    6 +++---
 tests/teksto.edb         |    0 
 tests/teksto_two.edb     |    0 
 tests/testlocale.edb     |    0 
 tests/testlocale_two.edb |    0 
 5 files changed, 3 insertions(+), 3 deletions(-)

diffs (23 lines):

diff -r 721157c2f5ef -r aeaf6e283754 tests/t_locale.e
--- a/tests/t_locale.e	Wed Oct 07 21:26:35 2015 -0300
+++ b/tests/t_locale.e	Fri Jan 29 13:08:56 2016 -0300
@@ -104,8 +104,8 @@
 
 test_equal("get_text unknown number", 0, get_text(-2))
 
-test_equal("get_text known number A", "Block comment from line [1] not terminated.", get_text(42,"two"))
-test_equal("get_text known number B", "Block comment from line [1] not terminated.", get_text(42,{"zero","two"}))
-test_equal("get_text known number C", "Block comment from line [1] not terminated.", get_text(42, {"zero"}))
+test_equal("get_text known number A", "Block comment from line [1] not terminated.", get_text(42,"two","testlocale"))
+test_equal("get_text known number B", "Block comment from line [1] not terminated.", get_text(42,{"zero","two"},"testlocale"))
+test_equal("get_text known number C", "Block comment from line [1] not terminated.", get_text(42, {"zero"},"testlocale"))
 
 test_report()
diff -r 721157c2f5ef -r aeaf6e283754 tests/teksto.edb
Binary file tests/teksto.edb has changed
diff -r 721157c2f5ef -r aeaf6e283754 tests/teksto_two.edb
Binary file tests/teksto_two.edb has changed
diff -r 721157c2f5ef -r aeaf6e283754 tests/testlocale.edb
Binary file tests/testlocale.edb has changed
diff -r 721157c2f5ef -r aeaf6e283754 tests/testlocale_two.edb
Binary file tests/testlocale_two.edb has changed

[Rapideuphoria-commits] euphoria: 4.0: * update ecp.dat when msgtext.e changes, put ecp....

[<sc...@op...>]

changeset:   663111cd0aa9 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=663111cd0aa9
description:
	* update ecp.dat when msgtext.e changes, put ecp.dat into tests so that tests use the ecp.dat generated duing the build process rather than in /usr/bin.

diffstat:

 source/Makefile.gnu |  2 +-
 source/configure    |  4 ++++
 2 files changed, 5 insertions(+), 1 deletions(-)

diffs (26 lines):

diff -r a946f8564442 -r 663111cd0aa9 source/Makefile.gnu
--- a/source/Makefile.gnu	Tue Jan 26 16:59:14 2016 -0300
+++ b/source/Makefile.gnu	Fri Jan 29 12:57:23 2016 -0300
@@ -452,7 +452,7 @@
 
 code-page-db : $(BUILDDIR)/ecp.dat
 
-$(BUILDDIR)/ecp.dat : $(TRUNKDIR)/source/codepage/*.ecp
+$(BUILDDIR)/ecp.dat : $(TRUNKDIR)/source/codepage/*.ecp msgtext.e
 	$(BUILDDIR)/$(EEXU) -i $(CYPTRUNKDIR)/include $(CYPTRUNKDIR)/bin/buildcpdb.ex -p$(CYPTRUNKDIR)/source/codepage -o$(CYPBUILDDIR)
 
 interpreter : builddirs
diff -r a946f8564442 -r 663111cd0aa9 source/configure
--- a/source/configure	Tue Jan 26 16:59:14 2016 -0300
+++ b/source/configure	Fri Jan 29 12:57:23 2016 -0300
@@ -410,6 +410,10 @@
 mkdir -p $BUILDDIR
 export BUILDDIR=`cd "$BUILDDIR" && pwd $PWDARG`
 
+# Make sure the tests use the ecp.dat we generate rather than 
+# the system ecp.dat which is somewhere in PATH.
+ln -sf $BUILDDIR/ecp.dat ../tests/ecp.dat
+
 echo TRUNKDIR=$TRUNKDIR >> "$PREFIX"${CONFIG_FILE}
 echo BUILDDIR=$BUILDDIR >> "$PREFIX"${CONFIG_FILE}
 

[Rapideuphoria-commits] euphoria: 4.0: * more tests for destructors ticket 937

[<sc...@op...>]

changeset:   a946f8564442 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=a946f8564442
description:
	* more tests for destructors ticket 937

diffstat:

 tests/t_delete.e |  8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diffs (22 lines):

diff -r 8daae62cd18b -r a946f8564442 tests/t_delete.e
--- a/tests/t_delete.e	Tue Jan 26 16:57:40 2016 -0300
+++ b/tests/t_delete.e	Tue Jan 26 16:59:14 2016 -0300
@@ -207,14 +207,14 @@
     -- if this gets called after all routines, as it should, then we shouldn't run test_pass...
 end procedure
 
-atom  = 100
- = delete_routine(, routine_id("destroy_this_thing"))
+atom thing = 100
+thing = delete_routine(thing, routine_id("destroy_this_thing"))
 test_false("Assigning to a atom should does not call it's destructor or cause a crash", destructor_called)
 enable_my_close = T 
 
 -- this should not cause a problem with 's destructor
-integer a1 = 
-integer b1 = 
+integer a1 = thing
+integer b1 = thing
 test_false("Destructors not triggered by integer check operation on 's copies", destructor_called)
 
 test_report()

[Rapideuphoria-commits] euphoria: 4.0: * more tests for destructors ticket 937

[<sc...@op...>]

changeset:   8daae62cd18b in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=8daae62cd18b
description:
	* more tests for destructors ticket 937

diffstat:

 tests/t_delete.e |  21 +++++++++++++++++++++
 1 files changed, 21 insertions(+), 0 deletions(-)

diffs (36 lines):

diff -r 9574aff37501 -r 8daae62cd18b tests/t_delete.e
--- a/tests/t_delete.e	Tue Jan 26 16:08:15 2016 -0300
+++ b/tests/t_delete.e	Tue Jan 26 16:57:40 2016 -0300
@@ -1,5 +1,6 @@
 without inline
 include std/unittest.e
+type enum boolean T,F=0 end type 
 
 integer delete_counter = 0
 
@@ -195,5 +196,25 @@
 	test_true( "sequence check dereferenced temp", sequence_check )
 end procedure
 native_derefs_ticket_775()
+ 
+boolean enable_my_close = F 
+boolean destructor_called = F
+procedure destroy_this_thing(atom fh) 
+    if not enable_my_close then 
+    	test_fail("Premature destruction of thing.")
+    end if
+    destructor_called = T
+    -- if this gets called after all routines, as it should, then we shouldn't run test_pass...
+end procedure
+
+atom  = 100
+ = delete_routine(, routine_id("destroy_this_thing"))
+test_false("Assigning to a atom should does not call it's destructor or cause a crash", destructor_called)
+enable_my_close = T 
+
+-- this should not cause a problem with 's destructor
+integer a1 = 
+integer b1 = 
+test_false("Destructors not triggered by integer check operation on 's copies", destructor_called)
 
 test_report()

[Rapideuphoria-commits] euphoria: 4.0: * fixes ticket 937

[<sc...@op...>]

changeset:   9574aff37501 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=9574aff37501
description:
	* fixes ticket 937

diffstat:

 source/be_execute.c |  4 +++-
 1 files changed, 3 insertions(+), 1 deletions(-)

diffs (15 lines):

diff -r b2a358e226fd -r 9574aff37501 source/be_execute.c
--- a/source/be_execute.c	Tue Jan 26 16:08:00 2016 -0300
+++ b/source/be_execute.c	Tue Jan 26 16:08:15 2016 -0300
@@ -2387,8 +2387,10 @@
 					tpc = pc;
 					a = DoubleToInt(top);
 					if (IS_ATOM_INT(a)) {
-						if (UNIQUE(DBL_PTR(top)) && (DBL_PTR(top)->cleanup != 0))
+						if (UNIQUE(DBL_PTR(top)) && (DBL_PTR(top)->cleanup != 0)) {
+							tpc = pc - 1; //RTFatalType(pc-1);
 							RTFatal("Cannot assign value with a destructor to an integer");
+						}
 						DeRefDS(top);
 						*(object_ptr)pc[-1] = a;
 						BREAK;

[Rapideuphoria-commits] euphoria: 4.0: * greatly simplified t_c_integer_destroys.e test:...

[<sc...@op...>]

changeset:   b2a358e226fd in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=b2a358e226fd
description:
	* greatly simplified t_c_integer_destroys.e test: ticket 937

diffstat:

 tests/t_c_integer_destroys.d/control.err |  10 ++++++++--
 tests/t_c_integer_destroys.e             |  32 ++++++++++----------------------
 2 files changed, 18 insertions(+), 24 deletions(-)

diffs (61 lines):

diff -r d8dd46c9de22 -r b2a358e226fd tests/t_c_integer_destroys.d/control.err
--- a/tests/t_c_integer_destroys.d/control.err	Tue Jan 26 15:00:55 2016 -0300
+++ b/tests/t_c_integer_destroys.d/control.err	Tue Jan 26 16:08:00 2016 -0300
@@ -1,5 +1,11 @@
-t_c_integer_destroys.e:24
-Cannot assign value with a destructor to an integer
+/home/alumno/development/modified/euphoria/bugfix/tests/t_c_integer_destroys.e:16
+Cannot assign value with a destructor to an integer 
 
 
 Public & Export & Global & Local Variables
+
+ /home/alumno/development/modified/euphoria/bugfix/tests/t_c_integer_destroys.e:
+    enable_my_close = 0
+    f_debug = 100
+
+
diff -r d8dd46c9de22 -r b2a358e226fd tests/t_c_integer_destroys.e
--- a/tests/t_c_integer_destroys.e	Tue Jan 26 15:00:55 2016 -0300
+++ b/tests/t_c_integer_destroys.e	Tue Jan 26 16:08:00 2016 -0300
@@ -1,29 +1,17 @@
-include std/io.e 
 include std/error.e 
-include std/unittest.e 
  
 type enum boolean T,F=0 end type 
  
 boolean enable_my_close = F 
- 
-procedure my_close(integer fh) 
-    if fh > io:STDERR then 
-    	printf(io:STDERR, "Closing file %d\n", {fh}) 
-    	if not enable_my_close then 
-    		crash("premature file closing") 
-    	end if 
-        close(fh) 
+
+procedure destroy_this_thing(atom fh) 
+    if not enable_my_close then 
+    	crash("Premature destruction of thing.")
+    else
+    	crash("Thing gets destroyed after all lines terminate")
     end if 
 end procedure 
- 
-integer f_debug = open("example.log", "w") 
-if f_debug =-1 then 
-	f_debug = open("/dev/null", "w") 
-  	puts(io:STDERR, "Unable to create log file.") 
-else 
-    f_debug = delete_routine(f_debug, routine_id("my_close")) 
-end if 
- 
-enable_my_close = T 
- 
-test_report()
+
+integer f_debug = 100
+f_debug = delete_routine(f_debug, routine_id("destroy_this_thing")) 
+enable_my_close = T 
\ No newline at end of file

[Rapideuphoria-commits] euphoria: 4.0: * fixes ticket 948

[<sc...@op...>]

changeset:   d8dd46c9de22 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=d8dd46c9de22
description:
	* fixes ticket 948

diffstat:

 source/parser.e |  43 +++++++++++++++++++++++++------------------
 1 files changed, 25 insertions(+), 18 deletions(-)

diffs (69 lines):

diff -r 1ce466a3ff0f -r d8dd46c9de22 source/parser.e
--- a/source/parser.e	Tue Jan 26 12:29:54 2016 -0300
+++ b/source/parser.e	Tue Jan 26 15:00:55 2016 -0300
@@ -3933,20 +3933,40 @@
 		CompileErr( 32 )
 	end if
 	type_enum =  0
-	if prog_type = TYPE_DECL then
-		object tsym = prog_name[T_SYM]
-		if equal(sym_name(prog_name[T_SYM]),"enum") then
+	p = prog_name[T_SYM]
+	if equal(sym_name(p),"enum") and prog_type = TYPE_DECL then
+		type_enum = 1
+		prog_name = next_token()
+		p = prog_name[T_SYM]
+	end if
+	
+	if not find(prog_name[T_ID], ADDR_TOKS) then
+		CompileErr(25, {find_category(prog_name[T_ID])} )
+	end if
+	DefinedYet(p)
+	if prog_type = PROCEDURE then
+		pt = PROC
+	elsif prog_type = FUNCTION then
+		pt = FUNC
+	else
+		pt = TYPE
+	end if
+
+	if type_enum then
 			-- because enum types are both top level declarations and type routines, we
 			-- have to Enter and Leave the top level, fixing up the LineTable, in order
 			-- to prevent corruption of the LineTables
 			EnterTopLevel( FALSE )
 			type_enum_gline = gline_number
-			type_enum = 1
 			sequence seq_symbol
-			prog_name = next_token()
 			if not find(prog_name[T_ID], ADDR_TOKS) then
 				CompileErr(25, {find_category(prog_name[T_ID])} )
 			end if
+			-- Add the hash of the type to buckets, so an enum constant with the name of the type
+			-- wont be allowed.  See ticket 948.
+			h = SymTab[p][S_HASHVAL]			
+			p = NewEntry(SymTab[p][S_NAME], 0, 0, pt, h, buckets[h], 0)
+			buckets[h] = p
 			enum_syms = Global_declaration(-1, scope)
 			seq_symbol = enum_syms
 			for i = 1 to length( enum_syms ) do
@@ -3964,19 +3984,6 @@
 			putback({LEFT_ROUND,0})
 			
 			LeaveTopLevel()
-		end if
-	end if
-	if not find(prog_name[T_ID], ADDR_TOKS) then
-		CompileErr(25, {find_category(prog_name[T_ID])} )
-	end if
-	p = prog_name[T_SYM]
-	DefinedYet(p)
-	if prog_type = PROCEDURE then
-		pt = PROC
-	elsif prog_type = FUNCTION then
-		pt = FUNC
-	else
-		pt = TYPE
 	end if
 
 	clear_fwd_refs()

[Rapideuphoria-commits] euphoria: 4.0: * corrected control file for ticket 948

[<sc...@op...>]

changeset:   1ce466a3ff0f in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=1ce466a3ff0f
description:
	* corrected control file for ticket 948

diffstat:

 tests/t_c_948.d/control.err |  21 +++++++++++++++------
 1 files changed, 15 insertions(+), 6 deletions(-)

diffs (25 lines):

diff -r 5b1d375dd686 -r 1ce466a3ff0f tests/t_c_948.d/control.err
--- a/tests/t_c_948.d/control.err	Tue Jan 26 11:19:46 2016 -0300
+++ b/tests/t_c_948.d/control.err	Tue Jan 26 12:29:54 2016 -0300
@@ -1,6 +1,15 @@
-t_c_948.e:2
-<0074>:: Errors resolving the following references:
-	'foo' (t_c_948.e:2) has not been declared.
-enum type foo
-     foo 
-end type
+/home/alumno/development/modified/euphoria/bugfix/tests/t_c_948.e:2
+<0031>:: attempt to redefine foo.
+  foo 
+     ^
+
+
+--- Defined Words ---
+EU4
+EU4_1
+EU4_1_0
+CONSOLE
+UNIX
+LINUX
+EUI
+-------------------

[Rapideuphoria-commits] euphoria: 4.0: * added expected control error file for ticket 948

[<sc...@op...>]

changeset:   5b1d375dd686 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=5b1d375dd686
description:
	* added expected control error file for ticket 948

diffstat:

 tests/t_c_948.d/control.err |  6 ++++++
 1 files changed, 6 insertions(+), 0 deletions(-)

diffs (10 lines):

diff -r cbee492464f0 -r 5b1d375dd686 tests/t_c_948.d/control.err
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/t_c_948.d/control.err	Tue Jan 26 11:19:46 2016 -0300
@@ -0,0 +1,6 @@
+t_c_948.e:2
+<0074>:: Errors resolving the following references:
+	'foo' (t_c_948.e:2) has not been declared.
+enum type foo
+     foo 
+end type

[Rapideuphoria-commits] euphoria: 4.0: ticket 948

[<sc...@op...>]

changeset:   cbee492464f0 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=cbee492464f0
description:
	ticket 948

diffstat:

 tests/t_c_948.e |  3 +++
 1 files changed, 3 insertions(+), 0 deletions(-)

diffs (7 lines):

diff -r 5b18a7398981 -r cbee492464f0 tests/t_c_948.e
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/t_c_948.e	Sat Dec 12 22:17:57 2015 -0300
@@ -0,0 +1,3 @@
+enum type foo 
+  foo 
+end type

[Rapideuphoria-commits] euphoria: 4.0: * fixed switch example; fixes ticket 947

[<sc...@op...>]

changeset:   5b18a7398981 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=5b18a7398981
description:
	* fixed switch example; fixes ticket 947

diffstat:

 docs/refman_2.txt |  1 -
 1 files changed, 0 insertions(+), 1 deletions(-)

diffs (11 lines):

diff -r e20c159aacd6 -r 5b18a7398981 docs/refman_2.txt
--- a/docs/refman_2.txt	Tue Nov 17 07:20:28 2015 -0300
+++ b/docs/refman_2.txt	Thu Dec 03 12:42:12 2015 -0300
@@ -2602,7 +2602,6 @@
 FuncB()
 FuncD()
 FuncF()
-FuncG()
 FuncM()
 
 In other words, the ##break "LBLa"## skips to the end of the switch called

[Rapideuphoria-commits] euphoria: 4.0: * fixed examples of maybe_any_key. Ticket 945

[<sc...@op...>]

changeset:   e20c159aacd6 in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=e20c159aacd6
description:
	* fixed examples of maybe_any_key.  Ticket 945

diffstat:

 include/std/console.e |  2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diffs (18 lines):

diff -r 57b389381f9f -r e20c159aacd6 include/std/console.e
--- a/include/std/console.e	Fri Nov 13 15:25:13 2015 -0300
+++ b/include/std/console.e	Tue Nov 17 07:20:28 2015 -0300
@@ -897,12 +897,12 @@
 --
 -- Example 1:
 -- <eucode>
--- any_key() -- "Press Any Key to continue..."
+-- maybe_any_key() -- "Press Any Key to continue..."
 -- </eucode>
 --
 -- Example 2:
 -- <eucode>
--- any_key("Press Any Key to quit")
+-- maybe_any_key("Press Any Key to quit")
 -- </eucode>
 --
 -- See Also:

[Rapideuphoria-commits] euphoria: 4.0: * added --**\n-- @nodoc@\n before each override d...

[<sc...@op...>]

changeset:   57b389381f9f in /home/euweb/scm/hg_repos/euphoria
branch:      4.0
author:      Shawn David Pringle B.Sc. <sha...@gm...>
url:         http://scm.openeuphoria.org/hg/euphoria?cmd=changeset;node=57b389381f9f
description:
	* added --**\n-- @nodoc@\n before each override declaration in the demos.  This fixes ticket 942

diffstat:

 demo/hash.ex            |  2 ++
 demo/loaddb.ex          |  2 ++
 demo/net/chat_client.ex |  2 ++
 demo/net/pastey.ex      |  2 ++
 demo/net/sock_client.ex |  2 ++
 demo/net/wget.ex        |  2 ++
 demo/pipes.ex           |  2 ++
 7 files changed, 14 insertions(+), 0 deletions(-)

diffs (84 lines):

diff -r 68ccc88be0ba -r 57b389381f9f demo/hash.ex
--- a/demo/hash.ex	Fri Nov 13 14:58:22 2015 -0300
+++ b/demo/hash.ex	Fri Nov 13 15:25:13 2015 -0300
@@ -127,6 +127,8 @@
 object vOptMap
 
 without warning
+--**
+-- @nodoc@
 override procedure abort(integer errcode)
 	maybe_any_key("\nPress Any Key to Continue...")
 	eu:abort(errcode)
diff -r 68ccc88be0ba -r 57b389381f9f demo/loaddb.ex
--- a/demo/loaddb.ex	Fri Nov 13 14:58:22 2015 -0300
+++ b/demo/loaddb.ex	Fri Nov 13 15:25:13 2015 -0300
@@ -14,6 +14,8 @@
 include std/console.e
 
 without warning
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r 68ccc88be0ba -r 57b389381f9f demo/net/chat_client.ex
--- a/demo/net/chat_client.ex	Fri Nov 13 14:58:22 2015 -0300
+++ b/demo/net/chat_client.ex	Fri Nov 13 15:25:13 2015 -0300
@@ -11,6 +11,8 @@
 include std/socket.e as slib
 without warning
 
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r 68ccc88be0ba -r 57b389381f9f demo/net/pastey.ex
--- a/demo/net/pastey.ex	Fri Nov 13 14:58:22 2015 -0300
+++ b/demo/net/pastey.ex	Fri Nov 13 15:25:13 2015 -0300
@@ -22,6 +22,8 @@
 sequence username, password, title
 
 without warning
+--**
+-- @nodoc@
 override procedure abort(integer x, sequence msg = {}, sequence data = {})
 	if length(msg) then
     	printf(2, msg & "\n", data)
diff -r 68ccc88be0ba -r 57b389381f9f demo/net/sock_client.ex
--- a/demo/net/sock_client.ex	Fri Nov 13 14:58:22 2015 -0300
+++ b/demo/net/sock_client.ex	Fri Nov 13 15:25:13 2015 -0300
@@ -11,6 +11,8 @@
 include std/console.e
 include std/socket.e as sock
 
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r 68ccc88be0ba -r 57b389381f9f demo/net/wget.ex
--- a/demo/net/wget.ex	Fri Nov 13 14:58:22 2015 -0300
+++ b/demo/net/wget.ex	Fri Nov 13 15:25:13 2015 -0300
@@ -14,6 +14,8 @@
 include std/net/http.e
 without warning
 
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)
diff -r 68ccc88be0ba -r 57b389381f9f demo/pipes.ex
--- a/demo/pipes.ex	Fri Nov 13 14:58:22 2015 -0300
+++ b/demo/pipes.ex	Fri Nov 13 15:25:13 2015 -0300
@@ -9,6 +9,8 @@
 include std/console.e
 without warning
 
+--**
+-- @nodoc@
 override procedure abort(integer x)
 	maybe_any_key()
 	eu:abort(x)