From 0f3c02710526363f82366823bd0c3a43c89781e4 Mon Sep 17 00:00:00 2001
From: hyung-hwan <hyunghwan.chung@gmail.com>
Date: Thu, 21 Apr 2011 08:30:47 +0000
Subject: [PATCH] added a problem in installing ctrl-c handler in OS2

---
 qse/cmd/awk/awk.c                       | 23 ++++----
 qse/watcom/debug/os2/cmd/awk/qseawk.tgt | 71 ++++++++++++++++++++-----
 qse/watcom/qse.wpj                      | 26 ++++-----
 3 files changed, 83 insertions(+), 37 deletions(-)

diff --git a/qse/cmd/awk/awk.c b/qse/cmd/awk/awk.c
index b2b5fd61..aebcfb16 100644
--- a/qse/cmd/awk/awk.c
+++ b/qse/cmd/awk/awk.c
@@ -1,5 +1,5 @@
 /*
- * $Id: awk.c 438 2011-04-17 15:38:21Z hyunghwan.chung $
+ * $Id: awk.c 440 2011-04-20 14:30:47Z hyunghwan.chung $
  *
     Copyright 2006-2009 Chung, Hyung-Hwan.
     This file is part of QSE.
@@ -167,15 +167,18 @@ static void stop_run (int sig)
 
 #endif
 
+#if defined(__OS2__)
+static EXCEPTIONREGISTRATIONRECORD os2_excrr = { 0 };
+#endif
+
 static void set_intr_run (void)
 {
 #if defined(_WIN32)
 	SetConsoleCtrlHandler (stop_run, TRUE);
 #elif defined(__OS2__)
-	EXCEPTIONREGISTRATIONRECORD rr = { 0 };
 	APIRET rc;
-	rr.ExceptionHandler = (ERR)stop_run;
-	rc = DosSetExceptionHandler (&rr);
+	os2_excrr.ExceptionHandler = (ERR)stop_run;
+	rc = DosSetExceptionHandler (&os2_excrr);
 	/*if (rc != NO_ERROR)...*/
 #else
 	/*setsignal (SIGINT, stop_run, 1); TO BE MORE COMPATIBLE WITH WIN32*/
@@ -188,10 +191,8 @@ static void unset_intr_run (void)
 #if defined(_WIN32)
 	SetConsoleCtrlHandler (stop_run, FALSE);
 #elif defined(__OS2__)
-	EXCEPTIONREGISTRATIONRECORD rr = { 0 };
 	APIRET rc;
-	rr.ExceptionHandler = (ERR)stop_run;
-	rc = DosUnsetExceptionHandler (&rr);
+	rc = DosUnsetExceptionHandler (&os2_excrr);
 	/*if (rc != NO_ERROR) ...*/
 #else
 	setsignal (SIGINT, SIG_DFL, 1);
@@ -747,9 +748,9 @@ qse_htb_walk_t add_global (qse_htb_t* map, qse_htb_pair_t* pair, void* arg)
 
 static qse_mmgr_t xma_mmgr = 
 {
-	qse_xma_alloc,
-	qse_xma_realloc,
-	qse_xma_free,
+	(qse_mmgr_alloc_t)qse_xma_alloc,
+	(qse_mmgr_realloc_t)qse_xma_realloc,
+	(qse_mmgr_free_t)qse_xma_free,
 	QSE_NULL
 };
 
@@ -895,6 +896,7 @@ oops:
 
 	if (xma_mmgr.udd) qse_xma_close (xma_mmgr.udd);
 	freearg (&arg);
+
 	return ret;
 }
 
@@ -902,3 +904,4 @@ int qse_main (int argc, qse_achar_t* argv[])
 {
 	return qse_runmain (argc, argv, awk_main);
 }
+
diff --git a/qse/watcom/debug/os2/cmd/awk/qseawk.tgt b/qse/watcom/debug/os2/cmd/awk/qseawk.tgt
index 69f3f470..8e3b1744 100755
--- a/qse/watcom/debug/os2/cmd/awk/qseawk.tgt
+++ b/qse/watcom/debug/os2/cmd/awk/qseawk.tgt
@@ -67,63 +67,106 @@ qsecmn qseawk
 0
 17
 WVList
+3
+18
+ActionStates
+19
+WString
+12
+Local &Debug
+20
+WVList
+1
+21
+MVState
+22
+WString
+6
+WDEBUG
+23
+WString
+28
+?????Application parameters:
+1
+24
+WString
+39
+"BEGIN { print OFILENAME; print 100; }"
+0
+25
+ActionStates
+26
+WString
+13
+Remote D&ebug
+27
+WVList
+0
+28
+ActionStates
+29
+WString
+5
+&Make
+30
+WVList
 0
 -1
 1
 1
 0
-18
+31
 WPickList
 2
-19
+32
 MItem
 3
 *.c
-20
+33
 WString
 4
 COBJ
-21
+34
 WVList
 1
-22
+35
 MVState
-23
+36
 WString
 3
 WCC
-24
+37
 WString
 25
 o?2??Include directories:
 1
-25
+38
 WString
 54
 "$(%watcom)/h;$(%watcom)/h/os2;..\..\..\..\..\include"
 0
-26
+39
 WVList
 0
 -1
 1
 1
 0
-27
+40
 MItem
 28
 ..\..\..\..\..\cmd\awk\awk.c
-28
+41
 WString
 4
 COBJ
-29
+42
 WVList
 0
-30
+43
 WVList
 0
-19
+32
 1
 1
 0
diff --git a/qse/watcom/qse.wpj b/qse/watcom/qse.wpj
index 6effe965..5b017815 100755
--- a/qse/watcom/qse.wpj
+++ b/qse/watcom/qse.wpj
@@ -144,18 +144,18 @@ release/os2/lib/scm/qsescm.tgt
 VComponent
 33
 WRect
-100
-0
+60
+1373
 5700
 4240
-1
+0
 0
 34
 WFileName
 28
 debug/os2/lib/cmn/qsecmn.tgt
 29
-35
+36
 35
 VComponent
 36
@@ -193,7 +193,7 @@ VComponent
 42
 WRect
 2460
-2413
+2400
 5700
 4240
 1
@@ -257,9 +257,9 @@ VComponent
 54
 WRect
 240
-106
+80
 5700
-4253
+4240
 0
 0
 55
@@ -267,15 +267,15 @@ WFileName
 28
 debug/os2/lib/awk/qseawk.tgt
 8
-16
+15
 56
 VComponent
 57
 WRect
 830
-2746
+2720
 5700
-4253
+4240
 1
 0
 58
@@ -288,10 +288,10 @@ debug/win32/lib/awk/qseawk.tgt
 VComponent
 60
 WRect
-2680
--133
+2920
+906
 5700
-4253
+4240
 0
 0
 61