fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
7c7d7d67cefc52cf9706d370186423de45980a45
harbour-core/extras/superlib/superlib.patch
Viktor Szakats 0caff16650 2017-09-13 12:38 UTC Viktor Szakats (vszakats users.noreply.github.com) 
- doc/en/hashes.txt
  - doc/en/rdddb.txt
  * .gitattributes
  * contrib/3rd/sqlite3/sqlite3.hbp
  * contrib/hbbz2/3rd/bz2/bz2.hbp
  * contrib/hbexpat/3rd/expat/expat.hbp
  * contrib/hbfimage/hbfimage.hbp
  * contrib/hbhpdf/3rd/libhpdf/libhpdf.hbp
  * contrib/hblzf/3rd/liblzf/lzf.hbp
  * contrib/hbmxml/3rd/minixml/mxml.hbp
  * contrib/hbmzip/3rd/minizip/minizip.hbp
  * contrib/hbodbc/hbodbc.hbp
  * contrib/hbtinymt/3rd/tinymt/tinymt.hbp
  * contrib/hbxdiff/3rd/libxdiff/xdiff.hbp
  * contrib/sddsqlt3/tests/test.prg
  * ChangeLog.txt
  * doc/Makefile
  * doc/oldnews.txt
  * extras/ps32/readme.txt
  * extras/superlib/readme.txt
  * src/3rd/jpeg/Makefile
  * src/3rd/pcre/Makefile
  * src/3rd/png/Makefile
  * src/3rd/tiff/Makefile
  * src/3rd/zlib/Makefile
  + contrib/hbsms/DEPRECATED.txt
  + contrib/hbtpathy/DEPRECATED.txt
  + contrib/xhb/WARNING.txt
  * contrib/3rd/sqlite3/sqlite3.dif -> contrib/3rd/sqlite3/sqlite3.diff
  * contrib/hbbz2/3rd/bz2/bz2.dif -> contrib/hbbz2/3rd/bz2/bz2.diff
  * contrib/hbexpat/3rd/expat/expat.dif -> contrib/hbexpat/3rd/expat/expat.diff
  * contrib/hbhpdf/3rd/libhpdf/libhpdf.dif -> contrib/hbhpdf/3rd/libhpdf/libhpdf.diff
  * contrib/hblzf/3rd/liblzf/liblzf.dif -> contrib/hblzf/3rd/liblzf/liblzf.diff
  * contrib/hbmxml/3rd/minixml/minixml.dif -> contrib/hbmxml/3rd/minixml/minixml.diff
  * contrib/hbmzip/3rd/minizip/minizip.dif -> contrib/hbmzip/3rd/minizip/minizip.diff
  * contrib/hbtinymt/3rd/tinymt/tinymt.dif -> contrib/hbtinymt/3rd/tinymt/tinymt.diff
  * contrib/hbxdiff/3rd/libxdiff/libxdiff.dif -> contrib/hbxdiff/3rd/libxdiff/xdiff.diff
  * contrib/sddsqlt3/tests/test.sq3 -> contrib/sddsqlt3/tests/test.sqlite3
  * extras/dbu/dbu52.dif -> extras/dbu/dbu52.patch
  * extras/dbu/dbu53.dif -> extras/dbu/dbu53.patch
  * extras/ps32/ps32.dif -> extras/ps32/ps32.patch
  * extras/rl/rl.dif -> extras/rl/rl.patch
  * extras/superlib/superlib.dif -> extras/superlib/superlib.patch
  * extras/template/readme.txt -> extras/template/README.md
  * src/3rd/hbdossrl/README -> src/3rd/hbdossrl/README.txt
  * src/3rd/jpeg/jpeg.dif -> src/3rd/jpeg/jpeg.diff
  * src/3rd/pcre/pcre.dif -> src/3rd/pcre/pcre.diff
  * src/3rd/png/png.dif -> src/3rd/png/png.diff
  * src/3rd/tiff/tiff.dif -> src/3rd/tiff/tiff.diff
  * src/3rd/zlib/zlib.dif -> src/3rd/zlib/zlib.diff
  * tests/hbpptest/_pp_test.prg -> tests/hbpp/_pp_test.prg
  * tests/hbpptest/compare.hb -> tests/hbpp/compare.hb
  * tests/hbpptest/hbpptest.hbp -> tests/hbpp/hbpptest.hbp
  * tests/hbpptest/hbpptest.prg -> tests/hbpp/hbpptest.prg
  * tests/tflock.prg -> tests/flock.prg
  * contrib/hbfimage/fi_wrp.c -> contrib/hbfimage/core.c
  * contrib/hbodbc/browodbc.prg -> contrib/hbodbc/browse.prg
  * doc/cmdline.txt -> doc/cmdline.md
  * extras/dbu/readme.txt -> extras/dbu/README.md
  * extras/rl/readme.txt -> extras/rl/README.md
    * some file renames synced with 3.4 fork, plus the content of
      some of them. Some new text files added as well.
      Note, 3rd party code rediffing won't work anymore on 8.3
      filesystems.
2017-09-13 12:39:48 +00:00

1473 lines
48 KiB
Diff
Raw Blame History

diff -u superori/between.c superpat/between.c
--- superori/between.c 1993-08-19 10:28:38.000000000 +0200
+++ superpat/between.c 2009-08-01 11:37:11.000000000 +0200
@@ -14,10 +14,10 @@
#include "extend.h"
-CLIPPER takeout()
+HB_FUNC( TAKEOUT )
{
- char *string;
- char *delim;
+ const char *string;
+ const char *delim;
char *result;
char *empty = 0;
@@ -63,7 +63,7 @@
if (strend >= strstart && (fnd))
{
size = (strend-strstart+2);
- result = _xgrab(size);
+ result = ( char * ) _xgrab(size);
for(i = strstart; i <= strend ;i++)
result[knt++] = string[i];
result[knt] = NIL;
diff -u superori/mline.c superpat/mline.c
--- superori/mline.c 1993-09-14 14:17:34.000000000 +0200
+++ superpat/mline.c 2009-06-25 13:53:22.000000000 +0200
@@ -1,19 +1,19 @@
-#include "extend.api"
-#include "vm.api"
+#include "hbapi.h"
-static unsigned int offset = 0;
-CLIPPER s_mlsetpos()
+static unsigned int s_offset = 0;
+
+HB_FUNC( S_MLSETPOS )
{
- offset+=_parni(1);
- _ret();
+ s_offset+=hb_parni(1);
+ hb_ret();
}
-/*ÄÄÄÄÄÄÄÄÄÄclear offset ÄÄÄÄÄÄÄÄÄÄ*/
-CLIPPER s_mclear()
+/*----------clear s_offset ----------*/
+HB_FUNC( S_MCLEAR )
{
- offset = 0;
+ s_offset = 0;
}
#define CH_141 141
@@ -21,73 +21,63 @@
#define CH_10 10
#define CH_SP 32
-/*ÄÄÄÄÄÄÄÄÄÄget next line, return nil if noneÄÄÄÄÄÄÄÄÄÄÄÄ*/
-CLIPPER s_getline()
+/*----------get next line, return nil if none------------*/
+HB_FUNC( S_GETLINE )
{
- HANDLE hSegment;
char *outstr ;
- char *string = _parc(1);
- unsigned int strlen = _parclen(1);
- int linelen = _parni(2);
+ const char *string = hb_parc(1);
+ unsigned int strlen = hb_parclen(1);
+ int linelen = hb_parni(2);
int gotten = 0;
int findsp = 0;
int findgot = 0;
int endchar = CH_13;
unsigned int i;
- if (hSegment = _xvalloc(linelen,0 ))
+ outstr = ( char * ) hb_xgrab( linelen );
+ if (s_offset+1 < strlen)
{
- outstr = _xvlock(hSegment);
- if (offset+1 < strlen)
+ for ( i=s_offset; (i < strlen) && (gotten<linelen) && (string[i]!=CH_141) && (string[i]!=CH_13) ;)
{
- for ( i=offset; (i < strlen) && (gotten<linelen) && (string[i]!=CH_141) && (string[i]!=CH_13) ;)
- {
- outstr[gotten] = string[i];
- gotten++;
- i++;
- }
-
-
- if ( (string[i]==CH_141) || (string[i]==CH_13))
- {
- endchar = string[i];
- i+=2;
- }
- else if (string[i]!=CH_SP)
- {
- endchar = CH_13;
- findsp = i;
- findgot = gotten;
- while ((string[findsp]!=CH_SP) && (findsp > offset) )
- {
- findsp--;
- findgot--;
- }
- if (findsp > offset)
- {
- findsp++;
- findgot++;
- i = findsp;
- gotten = findgot;
- endchar = CH_141;
- }
-
+ outstr[gotten] = string[i];
+ gotten++;
+ i++;
+ }
- }
- offset = i;
+ if ( (string[i]==CH_141) || (string[i]==CH_13))
+ {
+ endchar = string[i];
+ i+=2;
+ }
+ else if (string[i]!=CH_SP)
+ {
+ endchar = CH_13;
+ findsp = i;
+ findgot = gotten;
+ while ((string[findsp]!=CH_SP) && (findsp > s_offset) )
+ {
+ findsp--;
+ findgot--;
+ }
+ if (findsp > s_offset)
+ {
+ findsp++;
+ findgot++;
+ i = findsp;
+ gotten = findgot;
+ endchar = CH_141;
+ }
- _storni(endchar,3);
- _retclen(outstr,(gotten) );
}
- else
- _ret();
- _xvunlock(hSegment);
- _xvfree(hSegment);
+ s_offset = i;
+ hb_storni(endchar,3);
+
+ hb_retclen(outstr,(gotten) );
}
- else
- _retclen("",0);
+
+ hb_xfree(outstr);
}
diff -u superori/nextls.c superpat/nextls.c
--- superori/nextls.c 1993-09-27 09:42:08.000000000 +0100
+++ superpat/nextls.c 2009-08-01 11:37:43.000000000 +0200
@@ -2,9 +2,9 @@
/*ÄÄÄÄÄÄÄÄÄÄget next line, return nil if noneÄÄÄÄÄÄÄÄÄÄÄÄ*/
-CLIPPER nextls()
+HB_FUNC( NEXTLS )
{
- char *string = _parc(1);
+ const char *string = _parc(1);
unsigned int strlen = _parclen(1);
int offset = _parni(2);
char a141 = 141;
diff -u superori/r_hcode.prg superpat/r_hcode.prg
--- superori/r_hcode.prg 1993-10-08 11:30:40.000000000 +0100
+++ superpat/r_hcode.prg 2009-06-10 08:44:26.000000000 +0200
@@ -121,7 +121,7 @@
local cShowBox // variable to hold makebox()
// screen
-if !file(cReportFile+".DBF") // if no report file, exit
+if !file(cReportFile+".dbf") // if no report file, exit
MSG("No Report file present")
return ''
endif
diff -u superori/r_printr.prg superpat/r_printr.prg
--- superori/r_printr.prg 1995-11-02 16:11:18.000000000 +0100
+++ superpat/r_printr.prg 2009-06-10 08:44:26.000000000 +0200
@@ -48,7 +48,7 @@
ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
*/
-#include "Inkey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/r_quikr.prg superpat/r_quikr.prg
--- superori/r_quikr.prg 1993-10-08 11:30:42.000000000 +0100
+++ superpat/r_quikr.prg 2009-06-10 08:44:26.000000000 +0200
@@ -134,7 +134,7 @@
// must have the report file available, and a dbf open
-if !file(cReportFile+".DBF")
+if !file(cReportFile+".dbf")
MSG("No Report file present")
return ''
elseif!used()
diff -u superori/r_report.prg superpat/r_report.prg
--- superori/r_report.prg 1995-11-02 16:13:54.000000000 +0100
+++ superpat/r_report.prg 2009-06-10 08:44:26.000000000 +0200
@@ -194,7 +194,7 @@
next
SELECT 0
-IF !FILE(slsf_report()+".DBF")
+IF !FILE(slsf_report()+".dbf")
rMakeDbf()
ENDIF
if !SNET_USE(slsf_report(),"__REPORTS",.F.,5,.T.,"Network error opening REPORT file. Keep trying?")
@@ -228,7 +228,7 @@
SETCURSOR(0)
@22,2 SAY "REPORT :"+IIF(EMPTY(aValues[M_TITLE]),"None ",upper(aValues[M_TITLE]))
- @22,55 SAY "USING "+ALIAS()+".DBF"
+ @22,55 SAY "USING "+ALIAS()+".dbf"
nSelection := RAT_MENU2({;
{2,3 ,'Load REPORT '},;
diff -u superori/s_1label.prg superpat/s_1label.prg
--- superori/s_1label.prg 1995-11-02 16:59:32.000000000 +0100
+++ superpat/s_1label.prg 2009-06-10 08:44:26.000000000 +0200
@@ -6,7 +6,7 @@
static nDimLinesBetween
#include "memoedit.ch"
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_2dbrz.prg superpat/s_2dbrz.prg
--- superori/s_2dbrz.prg 1995-11-02 16:59:32.000000000 +0100
+++ superpat/s_2dbrz.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,6 +1,6 @@
static nElement
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_achoi.prg superpat/s_achoi.prg
--- superori/s_achoi.prg 1995-11-02 16:59:32.000000000 +0100
+++ superpat/s_achoi.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,4 +1,4 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_append.prg superpat/s_append.prg
--- superori/s_append.prg 1995-11-02 16:59:30.000000000 +0100
+++ superpat/s_append.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -128,7 +128,7 @@
cFromAlias := space(30)
popread(.t.,"Type in the file name",@cFromAlias,"@K")
cFromAlias := UPPER(alltrim(cFromAlias))
- cFromAlias += iif(!".DBF"$cFromAlias,".DBF","")
+ cFromAlias += iif(!".dbf"$cFromAlias,".dbf","")
if !file(cFromAlias)
msg(cFromAlias,"does not exist")
cFromAlias := ""
diff -u superori/s_appt.prg superpat/s_appt.prg
--- superori/s_appt.prg 1995-11-02 16:59:30.000000000 +0100
+++ superpat/s_appt.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -199,12 +199,12 @@
STATIC FUNCTION checkfile(cApptFile)
local lOk := .t.
field date,time,desc
-if !file(cApptFile+".DBF")
+if !file(cApptFile+".dbf")
lOk := .f.
DBCREATE(cApptFile,{ {"DATE","C",8,0},;
{"TIME","C",5,0},;
{"DESC","C",65,0}})
- if file(cApptFile+".DBF")
+ if file(cApptFile+".dbf")
lOk := .t.
else
msg("Problem finding/creating Appointments file")
diff -u superori/s_att.prg superpat/s_att.prg
--- superori/s_att.prg 1995-10-16 13:35:40.000000000 +0100
+++ superpat/s_att.prg 2009-06-22 23:37:06.000000000 +0200
@@ -42,6 +42,13 @@
³
ÔíÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
*/
+
+#ifdef HB_COMPAT_C53
+ #ifndef CLIPPER53
+ #define CLIPPER53
+ #endif
+#endif
+
#ifdef CLIPPER53 // if this is Clipper 5.3, check for graphics
function att(nTop,nLeft,nBottom,nRight,nAttribute)
local nLength := (nRight-nLeft+1)*(nBottom-nTop+1)
diff -u superori/s_bdelim.prg superpat/s_bdelim.prg
--- superori/s_bdelim.prg 1995-11-02 16:59:30.000000000 +0100
+++ superpat/s_bdelim.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,4 +1,4 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_bldbf.prg superpat/s_bldbf.prg
--- superori/s_bldbf.prg 1993-10-08 11:30:34.000000000 +0100
+++ superpat/s_bldbf.prg 2009-06-10 08:44:26.000000000 +0200
@@ -80,8 +80,8 @@
RETURN .F.
ENDIF
-if !(".DBF"$UPPER(cDbfName) )
- cDbfName = cDbfName+".DBF"
+if !(".dbf"$UPPER(cDbfName) )
+ cDbfName = cDbfName+".dbf"
endif
if !("\"$cDbfName .or. ":"$cDbfName)
diff -u superori/s_bldndx.prg superpat/s_bldndx.prg
--- superori/s_bldndx.prg 1995-11-02 16:59:28.000000000 +0100
+++ superpat/s_bldndx.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_brsdf.prg superpat/s_brsdf.prg
--- superori/s_brsdf.prg 1995-11-02 16:59:28.000000000 +0100
+++ superpat/s_brsdf.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_build.prg superpat/s_build.prg
--- superori/s_build.prg 1995-11-02 16:59:28.000000000 +0100
+++ superpat/s_build.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_bungee.prg superpat/s_bungee.prg
--- superori/s_bungee.prg 1995-11-02 17:11:04.000000000 +0100
+++ superpat/s_bungee.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,7 +1,7 @@
#include "box.ch"
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -754,7 +754,7 @@
!empty(aCurrentPrompts[nCurrentOption,PROMPTDROPBOX]) .and. ;
ASCAN(aCurrentPrompts[nCurrentOption,PROMPTDROPBOX,BOXPROMPTS],;
{|a|EVAL(a[PROMPTACTBLOCK])}) > 0
- lDroptoNextLeve := .t.
+ lDroptoNextLevel := .t.
CASE aCurrentPrompts[nCurrentOption,PROMPTTYPE]==TYPEDROPDOWN
MSG("Submenu currently inactive")
diff -u superori/s_bxx.prg superpat/s_bxx.prg
--- superori/s_bxx.prg 1993-10-08 11:30:36.000000000 +0100
+++ superpat/s_bxx.prg 2009-06-10 08:44:26.000000000 +0200
@@ -79,17 +79,17 @@
dispbox(nTop,nLeft,nBottom,nRight,cFrame,cColorString)
DO CASE
-CASE nShadowPos = SHADOW_LOWER_LEFT .and. nBottom <Maxrow() .and. nLeft > 0
- att(nTop+1,nLeft-1,nBottom+1,nLeft-1,nShadowAtt)
- att(nBottom+1,nLeft-1,nBottom+1,nRight-1,nShadowAtt)
-CASE nShadowPos = SHADOW_LOWER_RIGHT .and. nBottom <Maxrow() .and. nRight < Maxcol()
- att(nBottom+1,nLeft+1,nBottom+1,nRight+1,nShadowAtt)
- att(nTop+1,nRight+1,nBottom+1,nRight+1,nShadowAtt)
-CASE nShadowPos = SHADOW_UPPER_RIGHT .and. nTop > 0 .and. nRight < Maxcol()
- att(nTop-1,nLeft+1,nTop-1,nRight+1,nShadowAtt)
- att(nTop,nRight+1,nBottom-1,nRight+1,nShadowAtt)
-CASE nShadowPos = SHADOW_UPPER_LEFT .and. nTop > 0 .and. nLeft > 0
- att(nTop-1,nLeft-1,nTop-1,nRight-1,nShadowAtt)
- att(nTop,nLeft-1,nBottom-1,nLeft-1,nShadowAtt)
+CASE nShadowPosition = SHADOW_LOWER_LEFT .and. nBottom <Maxrow() .and. nLeft > 0
+ att(nTop+1,nLeft-1,nBottom+1,nLeft-1,nShadowAttribute)
+ att(nBottom+1,nLeft-1,nBottom+1,nRight-1,nShadowAttribute)
+CASE nShadowPosition = SHADOW_LOWER_RIGHT .and. nBottom <Maxrow() .and. nRight < Maxcol()
+ att(nBottom+1,nLeft+1,nBottom+1,nRight+1,nShadowAttribute)
+ att(nTop+1,nRight+1,nBottom+1,nRight+1,nShadowAttribute)
+CASE nShadowPosition = SHADOW_UPPER_RIGHT .and. nTop > 0 .and. nRight < Maxcol()
+ att(nTop-1,nLeft+1,nTop-1,nRight+1,nShadowAttribute)
+ att(nTop,nRight+1,nBottom-1,nRight+1,nShadowAttribute)
+CASE nShadowPosition = SHADOW_UPPER_LEFT .and. nTop > 0 .and. nLeft > 0
+ att(nTop-1,nLeft-1,nTop-1,nRight-1,nShadowAttribute)
+ att(nTop,nLeft-1,nBottom-1,nLeft-1,nShadowAttribute)
ENDCASE
return ''
diff -u superori/s_calcvw.prg superpat/s_calcvw.prg
--- superori/s_calcvw.prg 1993-10-08 11:30:40.000000000 +0100
+++ superpat/s_calcvw.prg 2009-06-10 08:44:26.000000000 +0200
@@ -1,6 +1,6 @@
-#include "Inkey.ch"
-#include "Getexit.ch"
+#include "inkey.ch"
+#include "getexit.ch"
/*
ÕìÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
diff -u superori/s_clab.prg superpat/s_clab.prg
--- superori/s_clab.prg 1995-11-02 17:02:54.000000000 +0100
+++ superpat/s_clab.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,4 +1,4 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -416,7 +416,7 @@
//-----------------------------------------------------------------------
STATIC FUNCTION PUTLABEL(aContents,aDimensions,cLblDescript)
-local cLabelfile := slsf_label()+".DBF"
+local cLabelfile := slsf_label()+".dbf"
local nOldArea := select()
local cLabelDesc := padr(cLblDescript,30)
local lOverWrite := .t.
@@ -432,7 +432,7 @@
MAKEDBF()
ENDIF
- *- open the LABELS.DBF file
+ *- open the LABELS.dbf file
IF !SNET_USE(cLabelFile,"__LABELS",.F.,5,.F.,"Unable to open labels file. Keep trying?")
USE
EXIT
@@ -901,7 +901,7 @@
//----------------------------------------------------------
STATIC PROC MAKEDBF
-local cLabelFile := slsf_label()+".DBF"
+local cLabelFile := slsf_label()+".dbf"
local nOldArea := select()
SELE 0
DBCREATE(cLabelFile,{ ;
@@ -1011,7 +1011,7 @@
//-------------------------------------------------------------------
STATIC FUNCTION LOADLABEL(aContents,aDimensions)
-local cLabelFile := slsf_label()+".DBF"
+local cLabelFile := slsf_label()+".dbf"
local nOldArea := select()
local cAlias := ALIAS()
local nSelection := 0
@@ -1372,7 +1372,7 @@
STATIC FUNCTION ERASELABEL()
-local cLabelFile := slsf_label()+".DBF"
+local cLabelFile := slsf_label()+".dbf"
local nOldArea := select()
local cAlias := ALIAS()
local nSelection := 0
diff -u superori/s_clrfun.prg superpat/s_clrfun.prg
--- superori/s_clrfun.prg 1994-10-26 16:30:30.000000000 +0100
+++ superpat/s_clrfun.prg 2009-06-10 08:44:27.000000000 +0200
@@ -49,7 +49,7 @@
ÔíÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
*/
Function SattColor()
- IF FILE(slsf_color()+".DBF")
+ IF FILE(slsf_color()+".dbf")
SattGet("DEFAULT")
ELSE
sls_normcol('W/B,GR+/R,,,W/N')
@@ -265,7 +265,7 @@
field DSHADATT,DSHADPOS,DEXPLODE
local lSuccess := .f.
local nOldarea := select()
-local cFileName := slsf_color()+".DBF"
+local cFileName := slsf_color()+".dbf"
cSetName := iif(cSetName==nil,"DEFAULT",cSetName)
select 0
IF file(cFileName) .and. SNET_USE(cFileName,,.F.,5,.F.)
@@ -340,7 +340,7 @@
field DSHADATT,DSHADPOS,DEXPLODE
local lSuccess := .f.
local nOldarea := select()
-local cFileName := slsf_color()+".DBF"
+local cFileName := slsf_color()+".dbf"
cSetName := padr(iif(cSetName==nil,"DEFAULT",cSetName),40)
if !file(cFileName)
@@ -411,7 +411,7 @@
field DSHADATT,DSHADPOS,DEXPLODE
local nOldarea := select()
local nSelection,aSelections,i
-local cFileName := slsf_color()+".DBF"
+local cFileName := slsf_color()+".dbf"
select 0
IF file(cFileName) .and. SNET_USE(cFileName,,.F.,5,.F.) .and. recc() > 0
@@ -485,7 +485,7 @@
field DSHADATT,DSHADPOS,DEXPLODE
local nOldarea := select()
local nSelection,aSelections,i
-local cFileName := slsf_color()+".DBF"
+local cFileName := slsf_color()+".dbf"
local cSetName := padr(iif(cSetName==nil,"DEFAULT",cSetName),40)
if !file(cFileName)
dbcreate(cFileName,dbfstruc)
@@ -554,7 +554,7 @@
field DSHADATT,DSHADPOS,DEXPLODE
local nOldarea := select()
local nSelection,aSelections,aRecnos,i
-local cFileName := slsf_color()+".DBF"
+local cFileName := slsf_color()+".dbf"
local cSetName := padr(iif(cSetName==nil,"DEFAULT",cSetName),40)
aSelections := {}
aRecnos := {}
diff -u superori/s_copy.prg superpat/s_copy.prg
--- superori/s_copy.prg 1994-01-21 08:55:22.000000000 +0100
+++ superpat/s_copy.prg 2009-06-10 08:44:27.000000000 +0200
@@ -115,7 +115,7 @@
EXIT
ENDIF
cDbfName := Alltrim(cDbfName)
- cDbfName := IIF(.NOT. ".DBF" $ cDbfName, cDbfName+".DBF",cDbfName)
+ cDbfName := IIF(.NOT. ".dbf" $ cDbfName, cDbfName+".dbf",cDbfName)
*- if it already exists, don't overwrite it
*- loop around and get another filespec
diff -u superori/s_copyf.prg superpat/s_copyf.prg
--- superori/s_copyf.prg 1993-10-08 11:30:50.000000000 +0100
+++ superpat/s_copyf.prg 2009-06-10 08:44:27.000000000 +0200
@@ -174,7 +174,7 @@
EXIT
ENDIF
cDbfName := Alltrim(cDbfName)
- cDbfName := IIF(.NOT. ".DBF" $ cDbfName, cDbfName+".DBF",cDbfName)
+ cDbfName := IIF(.NOT. ".dbf" $ cDbfName, cDbfName+".dbf",cDbfName)
*- if it already exists, don't overwrite it
*- loop around and get another filespec
diff -u superori/s_cvtdel.prg superpat/s_cvtdel.prg
--- superori/s_cvtdel.prg 1995-11-02 17:02:52.000000000 +0100
+++ superpat/s_cvtdel.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -550,7 +550,7 @@
IF LASTKEY() = K_ESC .OR. EMPTY(cDbfName)
EXIT
ENDIF
- cDbfname += ".DBF"
+ cDbfname += ".dbf"
IF FILE(cDbfName)
msg("Database "+cDbfName+" already exists - ",;
"Use another name","Or delete that file first")
diff -u superori/s_datvw.prg superpat/s_datvw.prg
--- superori/s_datvw.prg 1993-10-08 11:30:48.000000000 +0100
+++ superpat/s_datvw.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "Inkey.ch"
-#include "Getexit.ch"
+#include "inkey.ch"
+#include "getexit.ch"
//------------------------------------------------------------------------
/*
diff -u superori/s_dbstat.prg superpat/s_dbstat.prg
--- superori/s_dbstat.prg 1993-11-08 14:58:00.000000000 +0100
+++ superpat/s_dbstat.prg 2009-06-10 08:44:27.000000000 +0200
@@ -143,17 +143,17 @@
@ 12,23 SAY "³ of ³"
@ 13,23 SAY "ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
@12,32 SAY TRANS(RECC(),"9999999999")
- DBEVAL(bEvalBlock,bFilter,{||showhile(11,32,"9999999999")})
+ DBEVAL(bEvalBlock1,bFilter,{||showhile(11,32,"9999999999")})
if lGroup1 .or. lGroup2 //----04-02-1993
nAverage := nSum/nCount
endif
if lGroup2
go top
- bEvalBlock := {||nVariance += ;
+ bEvalBlock1 := {||nVariance += ;
( (nAverage-FIELDGET(FIELDPOS(cFieldName)) )^2 )}
@ 11,23 SAY "³ record ³"
@ 7,23 SAY "Second Pass"
- DBEVAL(bEvalBlock,bFilter,{||showhile(11,32,"9999999999")})
+ DBEVAL(bEvalBlock1,bFilter,{||showhile(11,32,"9999999999")})
nVariance := nVariance/nCount
nStd := sqrt(nVariance)
endif
diff -u superori/s_dpops.prg superpat/s_dpops.prg
--- superori/s_dpops.prg 1995-11-02 17:02:52.000000000 +0100
+++ superpat/s_dpops.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_duph.prg superpat/s_duph.prg
--- superori/s_duph.prg 1995-11-02 17:02:52.000000000 +0100
+++ superpat/s_duph.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -451,7 +451,7 @@
EXIT
ENDIF
cDbfName := Alltrim(cDbfName)
- cDbfName := IIF(.NOT. ".DBF" $ cDbfName, cDbfName+".DBF",cDbfName)
+ cDbfName := IIF(.NOT. ".dbf" $ cDbfName, cDbfName+".dbf",cDbfName)
*- if it already exists, don't overwrite it
*- loop around and get another filespec
diff -u superori/s_editm.prg superpat/s_editm.prg
--- superori/s_editm.prg 1995-11-02 17:02:50.000000000 +0100
+++ superpat/s_editm.prg 2009-06-10 08:44:27.000000000 +0200
@@ -2,7 +2,7 @@
static lImport,lExport,lChanged,lDone
static nBoxTop,nBoxLeft, lDoEdit, nBoxBot
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_editmv.prg superpat/s_editmv.prg
--- superori/s_editmv.prg 1995-11-02 17:02:50.000000000 +0100
+++ superpat/s_editmv.prg 2009-06-10 08:44:27.000000000 +0200
@@ -3,7 +3,7 @@
static nBoxTop,nBoxLeft, nBoxRight, lDoEdit, nBoxBot
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_export.prg superpat/s_export.prg
--- superori/s_export.prg 1993-10-08 11:30:44.000000000 +0100
+++ superpat/s_export.prg 2009-06-10 08:44:27.000000000 +0200
@@ -147,7 +147,7 @@
nRecordSele := menu_v("[Write ASCII file from:]",;
"Tagged Records","Records meeting Query",;
"All Records","Quit")
- nRecordSel := iif(nRecordSel>2,0,nRecordSel)
+ nRecordSele := iif(nRecordSele>2,0,nRecordSele)
do case
case nRecordSele = REC_TAGGED
tagit(aTagged,aFieldNames,aFieldDesc,"Merge Records")
diff -u superori/s_filer.prg superpat/s_filer.prg
--- superori/s_filer.prg 1994-09-12 17:20:02.000000000 +0200
+++ superpat/s_filer.prg 2009-06-10 08:44:27.000000000 +0200
@@ -69,7 +69,7 @@
local lMarking := .f.
local nMarkStart := 0, nMarkEnd := 0
local lMarked := .f.
-local lMarkOrSeach
+local lMarkOrSearch
local nTbottom
local cInstruct1, cInstruct2, nInstruct1, nInstruct2
local nAtArrows, nAtPgup, nAtPgdn, nAtHome, nAtEnd, nAtEsc, nAtSearch, nAtMark
diff -u superori/s_forml.prg superpat/s_forml.prg
--- superori/s_forml.prg 1995-11-02 17:02:50.000000000 +0100
+++ superpat/s_forml.prg 2009-06-10 08:44:27.000000000 +0200
@@ -6,7 +6,7 @@
#define MAXFORMSIZE 4000
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -133,7 +133,7 @@
* create form if it doesn't exist
-IF !FILE(cFormsFile+".DBF")
+IF !FILE(cFormsFile+".dbf")
blddbf(cFormsFile,"DESCRIPT,C,50:MEMO_ORIG,M:")
ENDIF
*- open forms.dbf
diff -u superori/s_formu.prg superpat/s_formu.prg
--- superori/s_formu.prg 1995-11-02 17:02:48.000000000 +0100
+++ superpat/s_formu.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_freq.prg superpat/s_freq.prg
--- superori/s_freq.prg 1995-11-02 17:13:40.000000000 +0100
+++ superpat/s_freq.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -329,7 +329,7 @@
cPermDbf = Alltrim(cPermDbf)
IF !(LASTKEY() = 27 .OR. EMPTY(cPermDbf))
cPermDbf = Alltrim(cPermDbf)
- cPermDbf =UPPER(cPermDbf)+".DBF"
+ cPermDbf =UPPER(cPermDbf)+".dbf"
IF FILE(cPermDbf)
msg("Database "+cPermDbf+" already exists - ","Use another name")
cPermDbf = ''
diff -u superori/s_fulld.prg superpat/s_fulld.prg
--- superori/s_fulld.prg 1995-11-02 17:02:48.000000000 +0100
+++ superpat/s_fulld.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,12 +1,12 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
#endif
#define K_MOUSELEFT K_LBUTTONDOWN
#define K_MOUSERIGHT K_RBUTTONDOWN
-#include "Directry.ch"
+#include "directry.ch"
memvar getlist
@@ -301,7 +301,7 @@
static function viewit(cFileName)
local cBox
-IF ('.DBF' $ cFileName)
+IF ('.dbf' $ cFileName)
*- check for arbitrary amount of available memory
*- change this higher or lower, based on your own best guess <g>
IF MEMORY(0) > 20
@@ -316,7 +316,7 @@
ENDIF
ELSEIF ('.NTX' $ cFileName) .OR. ('.NDX' $ cFileName)
msg("Index key for "+cFileName+" is :",nkey(cFileName))
-ELSEIF !(('.EXE' $ cFileName) .OR. ('.COM' $ cFileName).OR.('.SYS' $ cFileName) )
+ELSEIF !(('.exe' $ cFileName) .OR. ('.COM' $ cFileName).OR.('.SYS' $ cFileName) )
Fileread(2,2,23,78,cFileName)
ENDIF
RETURN nil
diff -u superori/s_getdat.prg superpat/s_getdat.prg
--- superori/s_getdat.prg 1995-11-02 17:02:48.000000000 +0100
+++ superpat/s_getdat.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_global.prg superpat/s_global.prg
--- superori/s_global.prg 1994-11-10 11:02:38.000000000 +0100
+++ superpat/s_global.prg 2009-06-10 08:44:27.000000000 +0200
@@ -212,7 +212,7 @@
³
³
³ Examples
-³ #include "Box.ch"
+³ #include "box.ch"
³ sls_FRAME(B_SINGLE+" ")
³
³ Notes:
diff -u superori/s_help.prg superpat/s_help.prg
--- superori/s_help.prg 1994-03-28 10:25:20.000000000 +0200
+++ superpat/s_help.prg 2009-06-10 08:44:27.000000000 +0200
@@ -84,9 +84,9 @@
select 0
*- be sure there's a help DBF/DBT/NDX(NTX)
-IF FILE(cHelpFile+".DBF") .AND. FILE(cHelpFile+".DBT") .AND.;
+IF FILE(cHelpFile+".dbf") .AND. FILE(cHelpFile+".dbt") .AND.;
( FILE(cHelpFile+indexext()) )
- IF !SNET_USE(cHelpFile+".DBF","__HELP",;
+ IF !SNET_USE(cHelpFile+".dbf","__HELP",;
.F.,5,.T.,"Network error opening HELP file. Keep trying?")
else
set index to (cHelpFile)
diff -u superori/s_helpm.prg superpat/s_helpm.prg
--- superori/s_helpm.prg 1995-11-02 17:06:02.000000000 +0100
+++ superpat/s_helpm.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,6 +1,6 @@
#include "memoedit.ch"
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -436,11 +436,11 @@
///===================================================================
///===================================================================
STATIC FUNCTION opendbf(cHelpFile)
-IF !( FILE(cHelpFile+".DBF") .AND. FILE(cHelpFile+".DBT") )
+IF !( FILE(cHelpFile+".dbf") .AND. FILE(cHelpFile+".dbt") )
blddbf(cHelpFile,"h_mod,C,10:h_var,C,10:h_memo,M,10:hw_t,N,2:hw_l,N,2:hw_b,N,2:hw_r,N,2:")
ENDIF
-IF ( FILE(cHelpFile+".DBF") .AND. FILE(cHelpFile+".DBT") )
+IF ( FILE(cHelpFile+".dbf") .AND. FILE(cHelpFile+".dbt") )
IF SNET_USE(cHelpFile,"__HELP",.F.,5,.T.,"Network error opening HELP file. Keep trying?")
if !FILE( cHelpFile+INDEXEXT() )
INDEX ON __HELP->h_mod+__HELP->h_var TO (cHelpFile)
diff -u superori/s_list.prg superpat/s_list.prg
--- superori/s_list.prg 1995-11-02 17:06:02.000000000 +0100
+++ superpat/s_list.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,4 +1,4 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -167,7 +167,7 @@
aList := {}
cListDesc := getlist()
CASE nMainSelect = 6
- IF FILE(slsf_list()+".DBF")
+ IF FILE(slsf_list()+".dbf")
nOldarea = SELECT()
SELECT 0
IF SNET_USE(slsf_list(),"",.T.,5,.T.,"Network error opening LIST file. Keep trying?")
@@ -453,7 +453,7 @@
EXIT
ENDIF
IF !"."$cOutFile
- cOutFile := cOutFile+".TXT"
+ cOutFile := cOutFile+".txt"
msg("File will be sent to disk as "+cOutFile)
endif
ERASE (getdfp()+cOutFile)
@@ -587,7 +587,7 @@
local cListList := parselist()
SELE 0
-IF !FILE(cListFile+".DBF")
+IF !FILE(cListFile+".dbf")
DBCREATE(cListFile,{{"DESC","C",45,0},{"LIST","C",200,0}})
ENDIF
IF SNET_USE(cListFile,"__LIST",.F.,5,.T.,"Network error opening LIST file. Keep trying?")
@@ -666,7 +666,7 @@
local i
SELE 0
*- check for file
-IF !FILE(cListFile+".DBF")
+IF !FILE(cListFile+".dbf")
msg("No lists stored in this directory")
elseif SNET_USE(cListFile,"__LIST",.F.,5,.T.,;
"Network error opening LIST file. Keep trying?")
diff -u superori/s_lotmen.prg superpat/s_lotmen.prg
--- superori/s_lotmen.prg 1995-11-02 17:06:00.000000000 +0100
+++ superpat/s_lotmen.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_mailm.prg superpat/s_mailm.prg
--- superori/s_mailm.prg 1994-01-03 10:36:58.000000000 +0100
+++ superpat/s_mailm.prg 2009-06-10 08:44:27.000000000 +0200
@@ -135,7 +135,7 @@
nRecordSele := menu_v("[Write Mailmerge Files from:]",;
"Tagged Records","Records meeting Query",;
"All Records","Quit")
- nRecordSel := iif(nRecordSel>3 .or. nRecordSel<=0 ,3,nRecordSel)
+ nRecordSele := iif(nRecordSele>3 .or. nRecordSele<=0 ,3,nRecordSele)
do case
case nRecordSele = REC_TAGGED
tagit(aTagged,aFieldNames,aFieldDesc,"Merge Records")
diff -u superori/s_makeb.prg superpat/s_makeb.prg
--- superori/s_makeb.prg 1995-10-16 13:30:20.000000000 +0100
+++ superpat/s_makeb.prg 2009-06-22 23:36:46.000000000 +0200
@@ -62,6 +62,13 @@
³
ÔíÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
*/
+
+#ifdef HB_COMPAT_C53
+ #ifndef CLIPPER53
+ #define CLIPPER53
+ #endif
+#endif
+
#ifdef CLIPPER53 // in 5.3, makebox returns an array
FUNCTION makebox(nTop,nLeft,nBottom,nRight,cColorString,nShadowPos)
local aSaveUnder
diff -u superori/s_mchoi.prg superpat/s_mchoi.prg
--- superori/s_mchoi.prg 1995-11-02 17:06:00.000000000 +0100
+++ superpat/s_mchoi.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_mmemo.prg superpat/s_mmemo.prg
--- superori/s_mmemo.prg 1995-11-02 16:06:32.000000000 +0100
+++ superpat/s_mmemo.prg 2009-06-10 08:44:27.000000000 +0200
@@ -44,7 +44,7 @@
*/
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_modify.prg superpat/s_modify.prg
--- superori/s_modify.prg 1995-11-02 17:14:48.000000000 +0100
+++ superpat/s_modify.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,7 +1,7 @@
memvar getlist
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -98,7 +98,7 @@
IF LASTKEY() = K_ESC .OR. EMPTY(cDbfName)
EXIT
ENDIF
- cDbfname += ".DBF"
+ cDbfname += ".dbf"
IF FILE(cDbfName)
msg("Database "+cDbfName+" already exists - ",;
"Use another name","Or delete that file first")
@@ -106,8 +106,8 @@
LOOP
ENDIF
IF messyn("Copy structure from an existing DBF ?")
- if adir("*.DBF") > 0
- cFromDbf = popex("*.DBF",'[Datafile]',.T.)
+ if adir("*.dbf") > 0
+ cFromDbf = popex("*.dbf",'[Datafile]',.T.)
ELSE
msg("No DBFs in this directory")
EXIT
diff -u superori/s_moose.prg superpat/s_moose.prg
--- superori/s_moose.prg 1995-11-02 16:17:08.000000000 +0100
+++ superpat/s_moose.prg 2012-11-12 00:07:50.000000000 +0100
@@ -98,7 +98,13 @@
*/
-#INCLUDE "inkey.ch"
+#ifdef HB_COMPAT_C53
+ #ifndef CLIPPER53
+ #define CLIPPER53
+ #endif
+#endif
+
+#include "inkey.ch"
#define MTOP 1
#define MLEFT 2
#define MBOTTOM 3
@@ -272,6 +278,7 @@
endif
endif
endif
+ hb_idleState()
enddo
#ifndef CLIPPER53
if lIsMouse
@@ -747,7 +754,7 @@
³
³ Examples:
³ ---------
-³ #include "INKEY.CH"
+³ #include "inkey.ch"
³ @10,10 say "<OK>
³ @11,10 say "<Cancel>"
³ aHotAreas := { {10,10,10,13}, {11,10,11,18} }
diff -u superori/s_mulmyn.prg superpat/s_mulmyn.prg
--- superori/s_mulmyn.prg 1995-11-02 17:05:58.000000000 +0100
+++ superpat/s_mulmyn.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_old.prg superpat/s_old.prg
--- superori/s_old.prg 1993-10-14 12:42:10.000000000 +0100
+++ superpat/s_old.prg 2009-06-10 08:44:27.000000000 +0200
@@ -277,7 +277,7 @@
local lOpened := .f.
local cDocDbf := SLSF_OLD()
-IF !FILE(cDocDbf+".DBF")
+IF !FILE(cDocDbf+".dbf")
dbcreate(cDocDbf,{;
{"TOPIC","C",35,0},;
{"KEYS","M",10,0},;
diff -u superori/s_pcsel.prg superpat/s_pcsel.prg
--- superori/s_pcsel.prg 1995-11-02 17:05:58.000000000 +0100
+++ superpat/s_pcsel.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_popdir.prg superpat/s_popdir.prg
--- superori/s_popdir.prg 1995-11-02 17:05:58.000000000 +0100
+++ superpat/s_popdir.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -161,7 +161,7 @@
local cBox
local nSelect := SELECT()
select 0
-IF ('.DBF' $ cFileName)
+IF ('.dbf' $ cFileName)
*- check for arbitrary amount of available memory
*- change this higher or lower, based on your own best guess <g>
IF MEMORY(0) > 20
@@ -178,7 +178,7 @@
ENDIF
ELSEIF ('.NTX' $ cFileName) .OR. ('.NDX' $ cFileName)
msg("Index key for "+cFileName+" is :",nkey(cFileName))
-ELSEIF !(('.EXE' $ cFileName) .OR. ('.COM' $ cFileName).OR.('.SYS' $ cFileName) )
+ELSEIF !(('.exe' $ cFileName) .OR. ('.COM' $ cFileName).OR.('.SYS' $ cFileName) )
Fileread(2,2,23,78,cFileName)
ENDIF
SELECT (nSelect)
diff -u superori/s_pulldn.prg superpat/s_pulldn.prg
--- superori/s_pulldn.prg 1993-10-08 11:30:50.000000000 +0100
+++ superpat/s_pulldn.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,6 +1,6 @@
// slight behavior change - boxes are 1 character wider.
-#INCLUDE "INKEY.CH"
+#include "inkey.ch"
#define A_BOXTOPBAR 1
#define A_TOPBARCOLOR 2
#define A_MENUBOXCOLOR 3
diff -u superori/s_query.prg superpat/s_query.prg
--- superori/s_query.prg 1995-11-02 17:05:56.000000000 +0100
+++ superpat/s_query.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -93,13 +93,12 @@
local lOldexact := setexact()
local nOldarea := SELECT()
local nAtRecord := RECNO()
-local cQueryFile := slsf_query()+".DBF"
+local cQueryFile := slsf_query()+".dbf"
local cQDescription := ""
lUseBuildex := iif(lUseBx#nil,lUseBx,.f.)
EXTERNAL _wildcard
-CTOD("")
IF !( VALTYPE(cInFieldNames)+VALTYPE(cInFieldDesc)+VALTYPE(cInFieldTypes))=="AAA"
nFieldCount := Fcount()+1
@@ -644,7 +643,7 @@
//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
static function putquery(cQDescription)
-local cQueryfile := slsf_query()+".DBF"
+local cQueryfile := slsf_query()+".dbf"
local nOldArea := select()
local cQueryDesc := padr(cQDescription,30)
local lOverWrite := .t.
@@ -707,7 +706,7 @@
return cQDescription
//ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
STATIC FUNCTION GetQuery
-local cQueryfile := slsf_query()+".DBF"
+local cQueryfile := slsf_query()+".dbf"
local nOldArea := select()
local cAlias := ALIAS()
local nSelection := 0
@@ -1116,7 +1115,7 @@
RETURN
STATIC PROC PURGEQ
-local cQueryFile := slsf_query()+".DBF"
+local cQueryFile := slsf_query()+".dbf"
local nOldarea := SELECT()
IF FILE(cQueryFile)
SELECT 0
diff -u superori/s_readrs.prg superpat/s_readrs.prg
--- superori/s_readrs.prg 1995-11-02 17:09:12.000000000 +0100
+++ superpat/s_readrs.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,7 +1,7 @@
//------------------------------------------------------------------------
#include "getexit.ch"
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_rmenu2.prg superpat/s_rmenu2.prg
--- superori/s_rmenu2.prg 1995-11-02 17:09:12.000000000 +0100
+++ superpat/s_rmenu2.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_rread.prg superpat/s_rread.prg
--- superori/s_rread.prg 1995-11-02 17:09:12.000000000 +0100
+++ superpat/s_rread.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,12 +1,12 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
#endif
#define K_MOUSELEFT K_LBUTTONDOWN
#define K_MOUSERIGHT K_RBUTTONDOWN
-#include "Getexit.ch"
+#include "getexit.ch"
#define K_UNDO K_CTRL_U
diff -u superori/s_scmod.prg superpat/s_scmod.prg
--- superori/s_scmod.prg 1993-10-08 11:30:46.000000000 +0100
+++ superpat/s_scmod.prg 2009-06-10 08:44:27.000000000 +0200
@@ -82,7 +82,7 @@
SELECT 0
*- build scroller.dbf if not present
-IF !FILE(cScrollFile+".DBF")
+IF !FILE(cScrollFile+".dbf")
blddbf(cScrollFile,'SMODULE,C,10:SFIELD,C,10:SDESCR,C,25:SSTRING,C,160:SRETURN,C,75:SDBFILE,C,8:SIND,C,8:')
ENDIF
@@ -210,7 +210,7 @@
do case
CASE nSelect = 1
- cTempFile := popex("*.DBF","Select DBF")
+ cTempFile := popex("*.dbf","Select DBF")
if !empty(cTempFile)
cTempfile := left(cTempfile,at(".",cTempFile)-1)
if cTempFile==cAlias
diff -u superori/s_scrbuf.c superpat/s_scrbuf.c
--- superori/s_scrbuf.c 1992-11-02 17:15:40.000000000 +0100
+++ superpat/s_scrbuf.c 2009-08-01 11:38:22.000000000 +0200
@@ -1,9 +1,9 @@
#include "extend.h"
-CLIPPER getscrow()
+HB_FUNC( GETSCROW )
{
- char *inscreenstring; /* saved screen */
+ const char *inscreenstring; /* saved screen */
char *ret_scr;
int top,left,bottom,right,i;
@@ -20,7 +20,7 @@
getrow = _parni(6)-1;
top = top*80;
count = 0;
- ret_scr = _xgrab(cols*2);
+ ret_scr = ( char * ) _xgrab(cols*2);
for(i=getrow*cols*2; i< (getrow+1)*cols*2;i++)
ret_scr[count++] = inscreenstring[i];
@@ -28,9 +28,9 @@
_xfree(ret_scr);
}
-CLIPPER getsccol()
+HB_FUNC( GETSCCOL )
{
- char *inscreenstring; /* saved screen */
+ const char *inscreenstring; /* saved screen */
char *ret_scr;
int top,left,bottom,right,i;
@@ -47,7 +47,7 @@
rows = bottom-top+1;
getcol = _parni(6)-1;
count = 0;
- ret_scr = _xgrab(rows*2);
+ ret_scr = ( char * ) _xgrab(rows*2);
lastcol = (cols*(rows-1)+(getcol)+1)*2 ;
for(i=getcol*2; i< lastcol ;i+=(cols*2))
@@ -60,10 +60,10 @@
}
-CLIPPER ssprinkle()
+HB_FUNC( SSPRINKLE )
{
- char *oldscreen; /* saved screen */
- char *newscreen;
+ const char *oldscreen; /* saved screen */
+ const char *newscreen;
char *outscreen;
int every,scrlen,i,columns,attpos,charpos;
@@ -74,7 +74,7 @@
every = _parni(3);
scrlen = _parclen(1);
columns = scrlen/2;
- outscreen = _xgrab(scrlen);
+ outscreen = ( char * ) _xgrab(scrlen);
for(i=0; i< columns;i++)
{
diff -u superori/s_scroll.prg superpat/s_scroll.prg
--- superori/s_scroll.prg 1993-10-08 11:30:34.000000000 +0100
+++ superpat/s_scroll.prg 2009-06-10 08:44:27.000000000 +0200
@@ -107,7 +107,7 @@
cProcVar := iif("->"$cProcVar,SUBST(cProcVar,AT(">",cProcVar)+1),cProcVar)
-IF !FILE(slsf_scroll()+".DBF")
+IF !FILE(slsf_scroll()+".dbf")
msg("Lookup definition file missing - "+slsf_scroll())
RETURN ''
ENDIF
diff -u superori/s_setcol.prg superpat/s_setcol.prg
--- superori/s_setcol.prg 1995-11-02 17:09:10.000000000 +0100
+++ superpat/s_setcol.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_smgets.prg superpat/s_smgets.prg
--- superori/s_smgets.prg 1993-10-08 11:30:46.000000000 +0100
+++ superpat/s_smgets.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "Inkey.ch"
-#include "Getexit.ch"
+#include "inkey.ch"
+#include "getexit.ch"
//------------------------------------------------------------------------
diff -u superori/s_tabmen.prg superpat/s_tabmen.prg
--- superori/s_tabmen.prg 1995-11-02 17:09:10.000000000 +0100
+++ superpat/s_tabmen.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_tag.prg superpat/s_tag.prg
--- superori/s_tag.prg 1995-11-02 17:09:10.000000000 +0100
+++ superpat/s_tag.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_taga.prg superpat/s_taga.prg
--- superori/s_taga.prg 1995-11-02 17:09:08.000000000 +0100
+++ superpat/s_taga.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_time.prg superpat/s_time.prg
--- superori/s_time.prg 1995-11-02 17:09:08.000000000 +0100
+++ superpat/s_time.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,13 +1,13 @@
//---------------------------------------------------------------------
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
#endif
#define K_MOUSELEFT K_LBUTTONDOWN
#define K_MOUSERIGHT K_RBUTTONDOWN
-#include "Dbstruct.ch"
+#include "dbstruct.ch"
#define BY_WEEK 1
#define BY_WEEKTD 2
@@ -420,7 +420,7 @@
ELSEIF dStartingDate >= dEndingDate
msg("Start date is greater than or equal to end date")
ELSE
- aRanges := fillranges(nRangeType,@dStartingdDate,dEndingDate,nWeekStart,expAsOf)
+ aRanges := fillranges(nRangeType,@dStartingDate,dEndingDate,nWeekStart,expAsOf)
EXIT
ENDIF
END
@@ -443,7 +443,7 @@
return lValid
//-------------------------------------------------------
-static function fillranges(nRangeType,dStartingdDate,dEndingDate,nWeekStart,expAsof)
+static function fillranges(nRangeType,dStartingDate,dEndingDate,nWeekStart,expAsof)
local aRanges := {}
LOCAL dThisStart,dThisEnd,dNextStart
local cBox := makebox(9,20,14,60)
@@ -709,7 +709,7 @@
popread(.F.,"Name of DBF to send this to:",@cDbfName,"@N")
IF !(LASTKEY() = K_ESC .OR. EMPTY(cDbfName))
cDbfName := Alltrim(cDbfName)
- cDbfName := UPPER(cDbfName)+".DBF"
+ cDbfName := UPPER(cDbfName)+".dbf"
IF !FILE(cDbfName)
DBCREATE(cDbfName,aStruc)
USE (cDbfName)
diff -u superori/s_todo.prg superpat/s_todo.prg
--- superori/s_todo.prg 1995-11-02 17:09:08.000000000 +0100
+++ superpat/s_todo.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,6 +1,6 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
@@ -83,7 +83,7 @@
cTodoNTX2 := SLSF_TDN2()
cTodoNTX3 := SLSF_TDN3()
-if !file(cTodoFile+".DBF")
+if !file(cTodoFile+".dbf")
BLDDBF(cTodoFile,"CATEGORY,C,10:ITEM,C,60:PRIORITY,C,2:DOBY,D:DONE,L:LONG_DESC,C,231")
endif
diff -u superori/s_unbox.prg superpat/s_unbox.prg
--- superori/s_unbox.prg 1995-10-16 13:33:04.000000000 +0100
+++ superpat/s_unbox.prg 2009-06-22 23:36:35.000000000 +0200
@@ -64,6 +64,12 @@
ÔíÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ
*/
+#ifdef HB_COMPAT_C53
+ #ifndef CLIPPER53
+ #define CLIPPER53
+ #endif
+#endif
+
#ifdef CLIPPER53 // in 5.3, makebox returns an array
FUNCTION UNBOX(cSavedScreen,nTop,nLeft,nBottom,nRight,bRest)
diff -u superori/s_viewp.prg superpat/s_viewp.prg
--- superori/s_viewp.prg 1995-11-02 17:09:08.000000000 +0100
+++ superpat/s_viewp.prg 2009-06-10 08:44:27.000000000 +0200
@@ -4,7 +4,7 @@
#include "getexit.ch"
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_vmemo.prg superpat/s_vmemo.prg
--- superori/s_vmemo.prg 1995-11-02 17:09:06.000000000 +0100
+++ superpat/s_vmemo.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,5 +1,5 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
diff -u superori/s_vview.prg superpat/s_vview.prg
--- superori/s_vview.prg 1995-11-02 17:11:06.000000000 +0100
+++ superpat/s_vview.prg 2009-06-10 08:44:27.000000000 +0200
@@ -1,4 +1,4 @@
-#include "inKey.ch"
+#include "inkey.ch"
#ifndef K_LBUTTONDOWN
#define K_LBUTTONDOWN 1002 // mouse left key press
#define K_RBUTTONDOWN 1004 // mouse right key press
Reference in New Issue View Git Blame Copy Permalink