2002-10-19 21:40 UTC+0100 Martin Vogel <vogel@inttec.de>

2002-10-19 19:30:47 +00:00
parent aae23e8bf6
commit 2e2316a730
6 changed files with 140 additions and 1 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,14 @@
   2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */

+2002-10-19 21:40 UTC+0100 Martin Vogel <vogel@inttec.de>
+   * contrib/libct/Makefile
+   * contrib/libct/Makefile.bc
+   * contrib/libct/Makefile.vc
+   * contrib/libct/ctflist.txt
+   + contrib/libct/invertwin.prg
+     + INVERTWIN() function provided by Marek Horodyski <homar@altkom.com.pl>
+
 2002-10-19 20:52 UTC+0100 Antonio Linares <alinares@fivetech.com>
   * debug/debugger.prg
     ! minor fix to BP (breakpoints) settings saved to file
--- a/harbour/contrib/libct/Makefile
+++ b/harbour/contrib/libct/Makefile
@@ -65,6 +65,7 @@ PRG_SOURCES= \
 	ct.prg \
 	ctmisc.prg \
 	datetime.prg \
+	invertwin.prg \
 	numconv.prg \
 	screen2.prg \

--- a/harbour/contrib/libct/ctflist.txt
+++ b/harbour/contrib/libct/ctflist.txt
@@ -332,7 +332,7 @@ GETFONT       ;N;
 GETSCRSTR     ;N; 
 GETVGAPAL     ;N; 
 INVERTATTR    ;N; 
-INVERTWIN     ;N; 
+INVERTWIN     ;S; 
 ISCGA         ;N; 
 ISEGA         ;N; 
 ISHERCULES    ;N; 
--- a/harbour/contrib/libct/invertwin.prg
+++ b/harbour/contrib/libct/invertwin.prg
@@ -0,0 +1,119 @@
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Project source code:
+ *   CT3 video function: - INVERTWIN()
+ *
+ * Copyright 2002 Marek Horodyski <homar@altkom.com.pl>
+ * www - http://www.harbour-project.org
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this software; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
+ * Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
+ *
+ * As a special exception, the Harbour Project gives permission for
+ * additional uses of the text contained in its release of Harbour.
+ *
+ * The exception is that, if you link the Harbour libraries with other
+ * files to produce an executable, this does not by itself cause the
+ * resulting executable to be covered by the GNU General Public License.
+ * Your use of that executable is in no way restricted on account of
+ * linking the Harbour library code into it.
+ *
+ * This exception does not however invalidate any other reasons why
+ * the executable file might be covered by the GNU General Public License.
+ *
+ * This exception applies only to the code released by the Harbour
+ * Project under the name Harbour.  If you copy code from other
+ * Harbour Project or Free Software Foundation releases into a copy of
+ * Harbour, as the General Public License permits, the exception does
+ * not apply to the code that you add in this way.  To avoid misleading
+ * anyone as to the status of such modified files, you must delete
+ * this exception notice from them.
+ *
+ * If you write modifications of your own for Harbour, it is your choice
+ * whether to permit this exception to apply to your modifications.
+ * If you do not wish that, delete this exception notice.
+ *
+ */
+
+
+/*  $DOC$
+ *  $FUNCNAME$
+ *      INVERTWIN()
+ *  $CATEGORY$
+ *      CT3 video functions
+ *  $ONELINER$
+ *     
+ *  $SYNTAX$
+ *     
+ *  $ARGUMENTS$
+ *  $RETURNS$
+ *  $DESCRIPTION$
+ *      TODO: add documentation
+ *  $EXAMPLES$
+ *  $TESTS$
+ *  $STATUS$
+ *      Started
+ *  $COMPLIANCE$
+ *      INVERTWIN() is compatible with CT3's INVERTWIN().
+ *  $PLATFORMS$
+ *      All
+ *  $FILES$
+ *      Source is invertwin.prg, library is libct.
+ *  $SEEALSO$
+ *  $END$
+ */
+
+Function INVERTWIN( t, l, b, r)
+ Static to_Konv := { ;
+    0, 31,112, 32, 95, 66, 40, 97,  0, 73,  3,  0,  2,  0,  0,  2,;
+   61,  0, 21, 44,  0,  0,110,111,  0, 75, 40,  0,  4, 48,122, 52,;
+   82,  0,162,  0, 32, 32, 44,  9, 83,  9,  0, 82,  3, 23, 14,  0,;
+   98,  0,  0,  7,  0, 32, 67, 32, 39,114,  0, 32, 32, 58, 32, 32,;
+  111, 32,  2,  0, 34, 98,  0, 41, 55, 48, 13, 52, 31,  0,  4,  0,;
+  255, 32, 49,  9, 21,  9,  8, 82, 10, 23, 32,  0, 48,  0, 50,  7,;
+   49, 32, 74,  0, 78, 52,114, 41, 32,  0, 32, 32,  2, 32,  9, 32,;
+   52, 45, 40, 32, 55,  0, 32, 68, 51, 32, 32,  0, 10, 44,  0, 53,;
+   54,110,233, 53,  0,  0, 32, 52, 53,  0,  0, 49,  0,  9, 45,  0,;
+   82, 32, 34,  0, 48,  0, 32, 48, 32, 32, 53, 51,  7, 45, 32, 32,;
+   32, 32,  2, 51, 98, 32, 32, 13, 52, 19, 32, 45, 32, 53, 32, 49,;
+   82, 45, 32, 56, 32,  0, 31, 50, 66, 32, 10, 32, 13, 32, 32, 32,;
+   53,112, 66, 32,  0,  0,  0,  0,  0,110, 73,  0, 48, 52, 48,  0,;
+   32,  9,  9, 82, 51,  0, 48,  7, 10, 32, 32, 10, 32, 18, 32,  0,;
+   28, 13, 32, 32, 32, 53,112, 66, 32,114,  0,  0,  0,  0,  0,110,;
+   73,  0, 48, 52, 48,  0, 32,  9,  9, 10, 32, 18,  0, 28, 13, 32}
+  Local n AS NUMERIC, c AS CHARACTER, stop AS NUMERIC
+  #ifdef HARBOUR
+  Local os := ''
+  #endif
+  t := If( ValType( t) == 'N', t, Row())
+  l := If( ValType( l) == 'N', l, Col())
+  b := If( ValType( b) == 'N', b, MaxCol())
+  r := If( ValType( r) == 'N', r, MaxCol())
+  c := SaveScreen( t, l, b, r)
+  stop := Len( c)
+  For n := 2 TO stop STEP 2
+  #ifdef HARBOUR
+   os += c[ n - 1] + Chr( TO_Konv[ Asc( c[ n])])
+  End
+  RestScreen( t, l, b, r, os)
+  #else  // in xHarbour
+   c[ n] := Chr( TO_Konv[ Asc( c[ n])])
+  End
+  RestScreen( t, l, b, r, c)
+  #endif
+ Return ''
--- a/harbour/contrib/libct/makefile.bc
+++ b/harbour/contrib/libct/makefile.bc
@@ -149,6 +149,7 @@ TOOLS_LIB_OBJS = \
   $(OBJ_DIR)\ct.obj \
   $(OBJ_DIR)\ctmisc.obj \
   $(OBJ_DIR)\datetime.obj \
+   $(OBJ_DIR)\invertwin.obj \
   $(OBJ_DIR)\numconv.obj \
   $(OBJ_DIR)\screen2.obj \

@@ -413,6 +414,13 @@ $(OBJ_DIR)\datetime.obj : $(OBJ_DIR)\datetime.c
   $(CC) $(CLIBFLAGS) -o$@ $**
   tlib $(TOOLS_LIB) $(ARFLAGS) -+$@,,

+$(OBJ_DIR)\invertwin.c : $(TOOLS_DIR)\invertwin.prg
+   $(HARBOUR_EXE) $(HARBOURFLAGS) $** -o$@
+
+$(OBJ_DIR)\invertwin.obj : $(OBJ_DIR)\invertwin.c
+   $(CC) $(CLIBFLAGS) -o$@ $**
+   tlib $(TOOLS_LIB) $(ARFLAGS) -+$@,,
+
 $(OBJ_DIR)\numconv.c : $(TOOLS_DIR)\numconv.prg
   $(HARBOUR_EXE) $(HARBOURFLAGS) $** -o$@

--- a/harbour/contrib/libct/makefile.vc
+++ b/harbour/contrib/libct/makefile.vc
@@ -168,6 +168,7 @@ TOOLS_LIB_OBJS = \
   $(OBJ_DIR)\ct.obj \
   $(OBJ_DIR)\ctmisc.obj \
   $(OBJ_DIR)\datetime.obj \
+   $(OBJ_DIR)\invertwin.obj \
   $(OBJ_DIR)\numconv.obj \
   $(OBJ_DIR)\screen2.obj \

@@ -235,6 +236,8 @@ CLEAN:
   -@if exist $(OBJ_DIR)\ct.* del $(OBJ_DIR)\ct.*
   -@if exist $(OBJ_DIR)\ctmisc.* del $(OBJ_DIR)\ctmisc.*
   -@if exist $(OBJ_DIR)\datetime.* del $(OBJ_DIR)\datetime.*
+   -@if exist $(OBJ_DIR)\invertwin.* del $(OBJ_DIR)\invertwin.*
+   -@if exist $(OBJ_DIR)\numconv.* del $(OBJ_DIR)\numconv.*
   -@if exist $(OBJ_DIR)\screen2.* del $(OBJ_DIR)\screen2.*
   -@if exist $(TOOLS_LIB) del $(TOOLS_LIB)