diff --git a/harbour/ChangeLog.txt b/harbour/ChangeLog.txt index b05a6aa363..1b67bacb6c 100644 --- a/harbour/ChangeLog.txt +++ b/harbour/ChangeLog.txt @@ -10,6 +10,153 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2013-03-02 02:20 UTC+0100 Viktor Szakats (vszakats syenar.net) + + contrib/sddsqlt3/tests/test.prg + - contrib/sddsqlt3/tests/test1.prg + * renamed + + * contrib/hbtest/core.prg + * minor cleanup + + * utils/hbmk2/hbmk2.prg + * formatting + + * tests/rto_get.prg + * tests/rto_tb.prg + * utils/hbtest/hbtest.prg + % use a more efficient hb_stod() implementation + for non-Harbour branches + (taken from tests/transfrm.prg by Przemek) + + * contrib/sddsqlt3/tests/test.prg + * contrib/gtwvg/gtwgud.c + * contrib/gtwvg/gtwvgd.c + * contrib/gtwvg/tests/demowvg.prg + * contrib/gtwvg/tests/demowvg1.prg + * contrib/hbct/tests/dates4.prg + * contrib/hbct/tests/datetime.prg + * contrib/hbfbird/readme.txt + * contrib/hbgt/ascposgt.c + * contrib/hbgt/atdiff.c + * contrib/hbgt/bitflags.c + * contrib/hbgt/chareven.c + * contrib/hbgt/charmixg.c + * contrib/hbgt/charodd.c + * contrib/hbgt/chrcount.c + * contrib/hbgt/chrfirst.c + * contrib/hbgt/chrtotal.c + * contrib/hbgt/strcount.c + * contrib/hbgt/strcspn.c + * contrib/hbgt/strdiffg.c + * contrib/hbgt/strexpan.c + * contrib/hbgt/strleft.c + * contrib/hbgt/strpbrk.c + * contrib/hbgt/strright.c + * contrib/hbhttpd/tests/eshop.prg + * contrib/hbmisc/doc/en/dates2.txt + * contrib/hbmisc/tests/strfmt.prg + * contrib/hbmysql/readme.txt + * contrib/hbmysql/tests/dbf2mysq.prg + * contrib/hbmysql/tests/test.prg + * contrib/hbmzip/tests/myunzip.prg + * contrib/hbnetio/tests/netiot02.prg + * contrib/hbnetio/utils/hbnetio/netiocon.prg + * contrib/hbnetio/utils/hbnetio/netiosrv.prg + * contrib/hbnf/doc/en/acctadj.txt + * contrib/hbnf/doc/en/woy.txt + * contrib/hbnf/tests/calendar.prg + * contrib/hbnf/tests/datecnfg.prg + * contrib/hbnf/tests/menu1.prg + * contrib/hbnf/tests/savearr.prg + * contrib/hbnf/tests/setdate.prg + * contrib/hbnf/tests/woy.prg + * contrib/hbpgsql/tests/dbf2pg.prg + * contrib/hbtip/mail.prg + * contrib/hbtip/popcli.prg + * contrib/hbwin/tests/dlg.prg + * contrib/hbziparc/tests/zipa.prg + * contrib/rddads/ads1.c + * contrib/sddoci/tests/test1.prg + * contrib/sddodbc/tests/test1.prg + * contrib/sddodbc/tests/test2.prg + * contrib/xhb/decode.prg + * contrib/xhb/dumpvar.prg + * contrib/xhb/xhbmemo.prg + * contrib/xhb/xhbtedit.prg + * ChangeLog.txt + * doc/en/string.txt + * doc/gtapi.txt + * doc/pragma.txt + * doc/xhb-diff.txt + * extras/dbu/dbu52.dif + * extras/dbu/dbu53.dif + * extras/gtwvw/docs/whatsnew.txt + * extras/gtwvw/gtwvwd.c + * extras/gtwvw/tests/ebtest7.prg + * extras/gtwvw/tests/wvwtest9.prg + * extras/gtwvw/wvwcheck.c + * extras/gtwvw/wvwdraw.c + * extras/gtwvw/wvwedit.c + * extras/gtwvw/wvwfuncs.c + * extras/gtwvw/wvwmenu.c + * extras/gtwvw/wvwpush.c + * extras/gtwvw/wvwstbar.c + * extras/gtwvw/wvwtbar.c + * extras/guestbk/cgi.prg + * extras/hbxlsxml/tests/example.prg + * extras/httpsrv/uhttpd.prg + * extras/rddado/tests/access1.prg + * extras/rddado/tests/access2.prg + * include/hbclass.ch + * src/common/hbdate.c + * src/debug/dbgtarr.prg + * src/debug/dbgthsh.prg + * src/rdd/dbfcdx/dbfcdx1.c + * src/rdd/usrrdd/rdds/arrayrdd.prg + * src/rtl/filesys.c + * src/rtl/gtos2/gtos2.c + * src/rtl/gtwvt/gtwvt.c + * src/rtl/net.c + * src/rtl/teditor.prg + * src/vm/thread.c + * tests/adir.prg + * tests/ddate.prg + * tests/directry.prg + * tests/extend1.prg + * tests/newrdd.prg + * tests/rto_get.prg + * tests/rto_tb.prg + * tests/say.prg + * tests/speedtst.prg + * tests/tb1.prg + * tests/usrrdd/exarr.prg + * tests/vmasort.prg + * utils/hbmk2/hbmk2.prg + * utils/hbtest/hbtest.prg + * utils/hbtest/rt_date.prg + * utils/hbtest/rt_str.prg + * utils/hbtest/rt_stra.prg + * utils/hbtest/rt_trans.prg + * website/faq/harbour.html + * website/faq/harbour63.html + * website/faq/index.html + * website/robots.txt + + switched whole Harbour sources, comments, app logic, + regression tests, output, to use the ISO date format: + https://en.wikipedia.org/wiki/ISO_8601 + in Harbour + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + Use that exclusively in new commits + ; hbtest retested on Clipper 5.2e + ; no more 'SET DATE [TO] ANSI' and 'SET CENTURY ON' + ; there are a few exceptions, mainly in test code + and where compatibility required it. + + * utils/hbtest/rt_trans.prg + + added 4 extra tests that behave differently + when using 'yyyy-mm-dd' format instead of + 'yyyy.mm.dd' + 2013-03-01 14:50 UTC+0100 Viktor Szakats (harbour syenar.net) * utils/hbmk2/hbmk2.prg % minor redundancy reduction in source @@ -135292,7 +135439,7 @@ missing then it's set by default to: 1899-12-30 so this code: { ^ 12:00 } gived the same results as: - { ^ 1899/12/30 12:00 } + { ^ 1899-12-30 12:00 } Harbour does not set any default date value when timestamp constant value contains only time part. If you want we can change it for strict VFP compatiblity. @@ -151981,7 +152128,7 @@ 2008-10-15 18:12 UTC+0200 Viktor Szakats (harbour syenar.net) * source/debug/tbrwtext.prg * Replaced with new implementation from Lorenzo Fiorini. - Sent to the list on 2008.07.26. + Sent to the list on 2008-07-26. ; NOTE: Some issue were reported with this, but it's again a step into the right direction, please try to update this code to better resemble to Clipper and to fix @@ -179711,7 +179858,7 @@ ! Fixed incompatible setting of ::TypeOut in certain situations. As an example this could cause infinite loops in the get reader when a bad date was entered - like: 2007.12.32 (very old bug) + like: 2007-12-32 (very old bug) ! Recent missing date picture mask bug fixed in a different way, because the previous one caused some regressions. ! Fixed ::TypeOut behaviour for non-editable types. @@ -237013,7 +237160,7 @@ NOTE: You have to recompile all PRG sources! 19990904-23:35 EDT David G. Holm * include/hbver.h * Bumped revision from "a" to "b". - * Changed date to 1999.09.04 + * Changed date to 1999-09-04 * source/rtl/filesys.c ! Borland needs "direct.h". @@ -239668,7 +239815,7 @@ NOTE: You have to recompile all PRG code! * Set hb_revision to "a", hb_month to 8, and hb_day to 12. * source/compiler/harbour.y + Display revision code immediately following build code - (e.g., "Build 29a (1999.08.12)" + (e.g., "Build 29a (1999-08-12)" ! Moved display of compiler version from inside Include() to immediately following command line option processing, so that the version will always be displayed, unless the diff --git a/harbour/contrib/gtwvg/gtwgud.c b/harbour/contrib/gtwvg/gtwgud.c index 2a94599c9e..343b959ffa 100644 --- a/harbour/contrib/gtwvg/gtwgud.c +++ b/harbour/contrib/gtwvg/gtwgud.c @@ -929,10 +929,10 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara hb_vmRequestQuit(); return 0; case WM_ENTERIDLE: - /* FSG - 2004.05.12 - Signal than i'm on idle */ + /* FSG - 2004-05-12 - Signal than i'm on idle */ hb_idleState(); return 0; - /* Pritpal Bedi - 2008.06.06 */ + /* Pritpal Bedi - 2008-06-06 */ case WM_ACTIVATE: { PHB_ITEM pEvParams = hb_itemNew( NULL ); diff --git a/harbour/contrib/gtwvg/gtwvgd.c b/harbour/contrib/gtwvg/gtwvgd.c index e908720c92..26de6e8252 100644 --- a/harbour/contrib/gtwvg/gtwvgd.c +++ b/harbour/contrib/gtwvg/gtwvgd.c @@ -2155,11 +2155,11 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara return 0; case WM_ENTERIDLE: - /* FSG - 2004.05.12 - Signal than i'm on idle */ + /* FSG - 2004-05-12 - Signal than i'm on idle */ hb_idleState(); return 0; - /* Pritpal Bedi - 2008.06.06 */ + /* Pritpal Bedi - 2008-06-06 */ case WM_ACTIVATE: { PHB_ITEM pEvParams = hb_itemNew( NULL ); diff --git a/harbour/contrib/gtwvg/tests/demowvg.prg b/harbour/contrib/gtwvg/tests/demowvg.prg index ac569d6e0a..015d2fabf8 100644 --- a/harbour/contrib/gtwvg/tests/demowvg.prg +++ b/harbour/contrib/gtwvg/tests/demowvg.prg @@ -88,8 +88,7 @@ PROCEDURE Main() hbshell_gtSelect( "GTWVG" ) #endif - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) Set( _SET_EVENTMASK, INKEY_ALL + HB_INKEY_GTEVENT ) diff --git a/harbour/contrib/gtwvg/tests/demowvg1.prg b/harbour/contrib/gtwvg/tests/demowvg1.prg index adc8d2b268..446d6ae447 100644 --- a/harbour/contrib/gtwvg/tests/demowvg1.prg +++ b/harbour/contrib/gtwvg/tests/demowvg1.prg @@ -28,7 +28,8 @@ PROCEDURE Main() hbshell_gtSelect( "GTWVG" ) #endif - SET DATE ANSI + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + Set( _SET_EVENTMASK, INKEY_ALL + HB_INKEY_GTEVENT ) Wvt_SetGUI( .T. ) diff --git a/harbour/contrib/hbct/tests/dates4.prg b/harbour/contrib/hbct/tests/dates4.prg index ac6bffcaa4..fbd1683896 100644 --- a/harbour/contrib/hbct/tests/dates4.prg +++ b/harbour/contrib/hbct/tests/dates4.prg @@ -13,8 +13,7 @@ PROCEDURE Main() LOCAL i LOCAL dDate := Date() - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) FOR i := 7 TO 49 STEP 7 CheckDate( dDate ) diff --git a/harbour/contrib/hbct/tests/datetime.prg b/harbour/contrib/hbct/tests/datetime.prg index 33a875a2b6..a3606bb559 100644 --- a/harbour/contrib/hbct/tests/datetime.prg +++ b/harbour/contrib/hbct/tests/datetime.prg @@ -89,8 +89,7 @@ PROCEDURE Main( cLang ) "SToD( ansi date) Returns Clipper date ", ; "Week( dDate, lSWN ) Returns numbef of week ", } - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) IF HB_ISSTRING( cLang ) hb_langSelect( cLang ) @@ -224,8 +223,8 @@ FUNCTION bomtest() DO WHILE c @ 5, 10 SAY "BoM(dDate) returns the date of the first day of dDate" - @ 6, 10 SAY "If dDate is 2002/10/15 (that's in yyyy/mm/dd), BoM()" - @ 7, 10 SAY "should return 2002/10/01. Test it, Insert a date" + @ 6, 10 SAY "If dDate is 2002-10-15 (that's in yyyy-mm-dd), BoM()" + @ 7, 10 SAY "should return 2002-10-01. Test it, Insert a date" @ 9, 10 GET dDate SET CONFIRM ON @@ -269,8 +268,8 @@ FUNCTION boqtest() DO WHILE c @ 5, 10 SAY "BoQ(dDate) returns the date of the first day of the" @ 6, 10 SAY "quarter in which dDate is situated. If dDate is" - @ 7, 10 SAY "2002/10/15 (that's in yyyy/mm/dd), BoQ() should return" - @ 8, 10 SAY "2002/09/01. Test it, Insert a date" + @ 7, 10 SAY "2002-10-15 (that's in yyyy-mm-dd), BoQ() should return" + @ 8, 10 SAY "2002-09-01. Test it, Insert a date" @ 9, 10 GET dDate @@ -314,8 +313,8 @@ FUNCTION boytest() DO WHILE c @ 5, 10 SAY "BoY(dDate) returns the date of the first day of dDate" - @ 6, 10 SAY "If dDate is 2002/10/15 (that's in yyyy/mm/dd), BoY()" - @ 7, 10 SAY "should return 2002/01/01. Test it, Insert a date" + @ 6, 10 SAY "If dDate is 2002-10-15 (that's in yyyy-mm-dd), BoY()" + @ 7, 10 SAY "should return 2002-01-01. Test it, Insert a date" @ 9, 10 GET dDate SET CONFIRM ON diff --git a/harbour/contrib/hbfbird/readme.txt b/harbour/contrib/hbfbird/readme.txt index ee8307a46f..eab72dc0af 100644 --- a/harbour/contrib/hbfbird/readme.txt +++ b/harbour/contrib/hbfbird/readme.txt @@ -2,7 +2,7 @@ * $Id$ */ -README 2003.12.23 - Harbour Low Level api for Firebird and Interbase RDBMS +README 2003-12-23 - Harbour Low Level api for Firebird and Interbase RDBMS This work is not finished yet. It's to be seem like Harbour TMysql routines. diff --git a/harbour/contrib/hbgt/ascposgt.c b/harbour/contrib/hbgt/ascposgt.c index 3c1716df4e..9170f9ac18 100644 --- a/harbour/contrib/hbgt/ascposgt.c +++ b/harbour/contrib/hbgt/ascposgt.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/atdiff.c b/harbour/contrib/hbgt/atdiff.c index bc4d0c53ca..120131f06b 100644 --- a/harbour/contrib/hbgt/atdiff.c +++ b/harbour/contrib/hbgt/atdiff.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/bitflags.c b/harbour/contrib/hbgt/bitflags.c index 7d19172abb..381a295298 100644 --- a/harbour/contrib/hbgt/bitflags.c +++ b/harbour/contrib/hbgt/bitflags.c @@ -5,7 +5,7 @@ /* * Author....: Dave Pearson * BBS.......: The Dark Knight Returns - * Date......: 1993.03.31 + * Date......: 1993-03-31 * * This is an original work by Dave Pearson and is placed in the public * domain. @@ -16,7 +16,7 @@ * Modification history: * --------------------- * - * 2001.08.19 Modifications for Harbour by Brian Hays, also placed in + * 2001-08-19 Modifications for Harbour by Brian Hays, also placed in * the public domain. * */ diff --git a/harbour/contrib/hbgt/chareven.c b/harbour/contrib/hbgt/chareven.c index 14e27212b2..2c7842eb07 100644 --- a/harbour/contrib/hbgt/chareven.c +++ b/harbour/contrib/hbgt/chareven.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.24 + * Date......: 1993-05-24 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/charmixg.c b/harbour/contrib/hbgt/charmixg.c index 7108493c76..f231a0d4fa 100644 --- a/harbour/contrib/hbgt/charmixg.c +++ b/harbour/contrib/hbgt/charmixg.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.24 + * Date......: 1993-05-24 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/charodd.c b/harbour/contrib/hbgt/charodd.c index f73dd7f0f1..d0aafc6e86 100644 --- a/harbour/contrib/hbgt/charodd.c +++ b/harbour/contrib/hbgt/charodd.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.24 + * Date......: 1993-05-24 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/chrcount.c b/harbour/contrib/hbgt/chrcount.c index 21ea9ff537..a006d034f1 100644 --- a/harbour/contrib/hbgt/chrcount.c +++ b/harbour/contrib/hbgt/chrcount.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/chrfirst.c b/harbour/contrib/hbgt/chrfirst.c index 1194ddde4a..56da3363ae 100644 --- a/harbour/contrib/hbgt/chrfirst.c +++ b/harbour/contrib/hbgt/chrfirst.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/chrtotal.c b/harbour/contrib/hbgt/chrtotal.c index 4a683eb978..333eb2665e 100644 --- a/harbour/contrib/hbgt/chrtotal.c +++ b/harbour/contrib/hbgt/chrtotal.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/strcount.c b/harbour/contrib/hbgt/strcount.c index 1ea556ebbb..049901672f 100644 --- a/harbour/contrib/hbgt/strcount.c +++ b/harbour/contrib/hbgt/strcount.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/strcspn.c b/harbour/contrib/hbgt/strcspn.c index a9503df14b..57bb13494a 100644 --- a/harbour/contrib/hbgt/strcspn.c +++ b/harbour/contrib/hbgt/strcspn.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/strdiffg.c b/harbour/contrib/hbgt/strdiffg.c index 92e1183dc6..494950e3b9 100644 --- a/harbour/contrib/hbgt/strdiffg.c +++ b/harbour/contrib/hbgt/strdiffg.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.24 + * Date......: 1993-05-24 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/strexpan.c b/harbour/contrib/hbgt/strexpan.c index 519a899479..5b515e4d6d 100644 --- a/harbour/contrib/hbgt/strexpan.c +++ b/harbour/contrib/hbgt/strexpan.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.24 + * Date......: 1993-05-24 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/strleft.c b/harbour/contrib/hbgt/strleft.c index b326a7c251..3c058b0f0a 100644 --- a/harbour/contrib/hbgt/strleft.c +++ b/harbour/contrib/hbgt/strleft.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/strpbrk.c b/harbour/contrib/hbgt/strpbrk.c index b960e1b31d..96bb856d11 100644 --- a/harbour/contrib/hbgt/strpbrk.c +++ b/harbour/contrib/hbgt/strpbrk.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbgt/strright.c b/harbour/contrib/hbgt/strright.c index 647067b089..12dc2f5f12 100644 --- a/harbour/contrib/hbgt/strright.c +++ b/harbour/contrib/hbgt/strright.c @@ -7,7 +7,7 @@ * * Author....: Andy M Leighton * BBS.......: The Dark Knight Returns - * Date......: 1993.05.23 + * Date......: 1993-05-23 * * This is an original work by Andy Leighton and is placed in the * public domain. diff --git a/harbour/contrib/hbhttpd/tests/eshop.prg b/harbour/contrib/hbhttpd/tests/eshop.prg index 47acf262f5..45a088041d 100644 --- a/harbour/contrib/hbhttpd/tests/eshop.prg +++ b/harbour/contrib/hbhttpd/tests/eshop.prg @@ -42,10 +42,9 @@ PROCEDURE Main() FErase( ".uhttpd.stop" ) ENDIF - rddSetDefault( "DBFCDX" ) - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + rddSetDefault( "DBFCDX" ) IF ! hb_dbExists( "users.dbf" ) hb_dbDrop( "users.cdx" ) diff --git a/harbour/contrib/hbmisc/doc/en/dates2.txt b/harbour/contrib/hbmisc/doc/en/dates2.txt index f79c141aeb..eccbd1e206 100644 --- a/harbour/contrib/hbmisc/doc/en/dates2.txt +++ b/harbour/contrib/hbmisc/doc/en/dates2.txt @@ -147,9 +147,9 @@ $DESCRIPTION$ This function returns the last day of a given month date. $EXAMPLES$ - SET DATE ANSI - ? EoM( hb_SToD( "20000101" ) ) // -> "2000.01.31" - ? EoM( hb_SToD( "20000201" ) ) // -> "2000.02.29" + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + ? EoM( hb_SToD( "20000101" ) ) // -> "2000-01-31" + ? EoM( hb_SToD( "20000201" ) ) // -> "2000-02-29" $STATUS$ R $COMPLIANCE$ @@ -179,9 +179,9 @@ $DESCRIPTION$ This function returns the first day of a given month date. $EXAMPLES$ - SET DATE ANSI - ? BoM( hb_SToD( "20000125" ) ) // -> "2000.01.01" - ? BoM( hb_SToD( "20000224" ) ) // -> "2000.02.01" + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + ? BoM( hb_SToD( "20000125" ) ) // -> "2000-01-01" + ? BoM( hb_SToD( "20000224" ) ) // -> "2000-02-01" $STATUS$ R $COMPLIANCE$ @@ -276,9 +276,9 @@ $DESCRIPTION$ This function returns the last date of a given year date. $EXAMPLES$ - SET DATE ANSI - ? EoY( hb_SToD( "20000101" ) ) // -> "2000.12.31" - ? EoY( hb_SToD( "20010101" ) ) // -> "2001.12.31" + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + ? EoY( hb_SToD( "20000101" ) ) // -> "2000-12-31" + ? EoY( hb_SToD( "20010101" ) ) // -> "2001-12-31" $STATUS$ R $COMPLIANCE$ @@ -308,9 +308,9 @@ $DESCRIPTION$ This function returns the first date of a given year date. $EXAMPLES$ - SET DATE ANSI - ? BoY( hb_SToD( "20000125" ) ) // -> "2000.01.01" - ? BoY( hb_SToD( "20010224" ) ) // -> "2001.01.01" + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + ? BoY( hb_SToD( "20000125" ) ) // -> "2000-01-01" + ? BoY( hb_SToD( "20010224" ) ) // -> "2001-01-01" $STATUS$ R $COMPLIANCE$ diff --git a/harbour/contrib/hbmisc/tests/strfmt.prg b/harbour/contrib/hbmisc/tests/strfmt.prg index e54c8b2e37..7379127f7f 100644 --- a/harbour/contrib/hbmisc/tests/strfmt.prg +++ b/harbour/contrib/hbmisc/tests/strfmt.prg @@ -7,18 +7,17 @@ PROCEDURE Main() - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) HBTEST StrFormat( "%1 thing %2", "a", "b" ) IS "a thing b" - HBTEST StrFormat( "%1 thing %2", "a", 0d20121127 ) IS "a thing 2012.11.27" - HBTEST StrFormat( "%1 thing %2", .T., 0d20121127 ) IS ".T. thing 2012.11.27" + HBTEST StrFormat( "%1 thing %2", "a", 0d20121127 ) IS "a thing 2012-11-27" + HBTEST StrFormat( "%1 thing %2", .T., 0d20121127 ) IS ".T. thing 2012-11-27" HBTEST StrFormat( "%1 thing %2", .T., NIL ) IS ".T. thing NIL" HBTEST StrFormat( "%1 thing %2", "space1 ", 100.20 ) IS "space1 thing 100.20" HBTEST StrFormat( "%1 thing %2", " space2 ", 213 ) IS "space2 thing 213" HBTEST StrFormat( "%1 thing %2", " space3", 0.12 ) IS "space3 thing 0.12" HBTEST StrFormat( "%2 thing %1 stuff", " space3", 0.12 ) IS "0.12 thing space3 stuff" - HBTEST StrFormat( "%2 %1 born on %3", "Smith", "Mr.", 0d20121127 ) IS "Mr. Smith born on 2012.11.27" + HBTEST StrFormat( "%2 %1 born on %3", "Smith", "Mr.", 0d20121127 ) IS "Mr. Smith born on 2012-11-27" HBTEST StrFormat( "Please insert disk %1 to drive %2", hb_ntos( 2 ), "A:" ) IS "Please insert disk 2 to drive A:" HBTEST StrFormat( "This is %1 from %2", "Victor", "Europe" ) IS "This is Victor from Europe" diff --git a/harbour/contrib/hbmysql/readme.txt b/harbour/contrib/hbmysql/readme.txt index 9e767df887..42530ab0fb 100644 --- a/harbour/contrib/hbmysql/readme.txt +++ b/harbour/contrib/hbmysql/readme.txt @@ -3,7 +3,7 @@ */ +---------------------------------------------------------+ - | 2001.11.22 - Harbour MySQL access classes - readme file | + | 2001-11-22 - Harbour MySQL access classes - readme file | +---------------------------------------------------------+ diff --git a/harbour/contrib/hbmysql/tests/dbf2mysq.prg b/harbour/contrib/hbmysql/tests/dbf2mysq.prg index 5c234e3151..b012abd0e5 100644 --- a/harbour/contrib/hbmysql/tests/dbf2mysq.prg +++ b/harbour/contrib/hbmysql/tests/dbf2mysq.prg @@ -65,9 +65,9 @@ PROCEDURE Main( ... ) LOCAL lCreateTable := .F. LOCAL oServer, oTable, oRecord - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) - // At present time (2000.10.23) DBFCDX is default RDD and DBFNTX is + // At present time (2000-10-23) DBFCDX is default RDD and DBFNTX is // now DBF (I mean the one able to handle .dbt-s :-)) rddSetDefault( "DBF" ) diff --git a/harbour/contrib/hbmysql/tests/test.prg b/harbour/contrib/hbmysql/tests/test.prg index cd859c51a2..4b4d236078 100644 --- a/harbour/contrib/hbmysql/tests/test.prg +++ b/harbour/contrib/hbmysql/tests/test.prg @@ -59,7 +59,7 @@ PROCEDURE Main( cArg ) LOCAL oServer, oQuery2, oRow, aStru LOCAL oQuery - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) oServer := TMySQLServer():New( "localhost", "root", "" ) IF oServer:NetErr() diff --git a/harbour/contrib/hbmzip/tests/myunzip.prg b/harbour/contrib/hbmzip/tests/myunzip.prg index 358516581e..7e1f6d55ba 100644 --- a/harbour/contrib/hbmzip/tests/myunzip.prg +++ b/harbour/contrib/hbmzip/tests/myunzip.prg @@ -66,8 +66,7 @@ PROCEDURE Main( ... ) hb_SetTermCP( hb_cdpTerm() ) Set( _SET_OSCODEPAGE, hb_cdpOS() ) - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) aWild := { ... } IF Len( aWild ) < 1 diff --git a/harbour/contrib/hbnetio/tests/netiot02.prg b/harbour/contrib/hbnetio/tests/netiot02.prg index eded5547b7..6fa82f5927 100644 --- a/harbour/contrib/hbnetio/tests/netiot02.prg +++ b/harbour/contrib/hbnetio/tests/netiot02.prg @@ -54,8 +54,7 @@ proc main() - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) /* connect to the server */ ? "CONNECTING..." diff --git a/harbour/contrib/hbnetio/utils/hbnetio/netiocon.prg b/harbour/contrib/hbnetio/utils/hbnetio/netiocon.prg index bc8ee6fea1..9a0d992717 100644 --- a/harbour/contrib/hbnetio/utils/hbnetio/netiocon.prg +++ b/harbour/contrib/hbnetio/utils/hbnetio/netiocon.prg @@ -62,7 +62,7 @@ PROCEDURE hbnetiocon_cmdUI( cIP, nPort, cPassword ) Set( _SET_CONFIRM, .F. ) Set( _SET_SCOREBOARD, .F. ) - Set( _SET_DATEFORMAT, "yyyy.mm.dd" ) + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) Set( _SET_TIMEFORMAT, "HH:MM:SS" ) SetCancel( .F. ) diff --git a/harbour/contrib/hbnetio/utils/hbnetio/netiosrv.prg b/harbour/contrib/hbnetio/utils/hbnetio/netiosrv.prg index 04e928a9ac..3dfc7d7dfe 100644 --- a/harbour/contrib/hbnetio/utils/hbnetio/netiosrv.prg +++ b/harbour/contrib/hbnetio/utils/hbnetio/netiosrv.prg @@ -105,7 +105,7 @@ PROCEDURE netiosrv_Main( lUI, ... ) RETURN ENDIF - Set( _SET_DATEFORMAT, "yyyy.mm.dd" ) + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) Set( _SET_TIMEFORMAT, "HH:MM:SS.FFF" ) HB_Logo() diff --git a/harbour/contrib/hbnf/doc/en/acctadj.txt b/harbour/contrib/hbnf/doc/en/acctadj.txt index 1fe7152d90..ddf3f1b40b 100644 --- a/harbour/contrib/hbnf/doc/en/acctadj.txt +++ b/harbour/contrib/hbnf/doc/en/acctadj.txt @@ -42,18 +42,18 @@ Beginning of period mode (lIsEnd == .F.) dDate := hb_SToD( "19910131" ) // In last 3 days of work week - ? ft_AcctAdj( dDate ) // 1991.02.03 (next week's start) + ? ft_AcctAdj( dDate ) // 1991-02-03 (next week's start) dDate := hb_SToD( "19910331" ) // Not in last 3 days of work week - ? ft_AcctAdj( dDate ) // 1991.03.31 (this week's start) + ? ft_AcctAdj( dDate ) // 1991-03-31 (this week's start) End of period mode (lIsEnd == .T.) dDate := hb_SToD( "19910131" ) // In last 4 days of work week - ? ft_AcctAdj( dDate, .T. ) // 1991.02.02 (this week's end) + ? ft_AcctAdj( dDate, .T. ) // 1991-02-02 (this week's end) dDate := hb_SToD( "19910331" ) // Not in last 4 days of work week - ? ft_AcctAdj( dDate, .T. ) // 1991.03.30 (prior week's end) + ? ft_AcctAdj( dDate, .T. ) // 1991-03-30 (prior week's end) $SEEALSO$ ft_DateCnfg() ft_DayToBoW() $END$ diff --git a/harbour/contrib/hbnf/doc/en/woy.txt b/harbour/contrib/hbnf/doc/en/woy.txt index 98a6506e52..b9502c0d98 100644 --- a/harbour/contrib/hbnf/doc/en/woy.txt +++ b/harbour/contrib/hbnf/doc/en/woy.txt @@ -35,7 +35,7 @@ // date input dDate := hb_SToD() - @ 4, 10 GET cDate // input 1991/07/04 + @ 4, 10 GET cDate // input 1991-07-04 READ nWkNum := ft_WoY( dDate ) // result: 27 @@ -74,7 +74,7 @@ // date input dDate := hb_SToD() - @ 4, 10 GET cDate // input 1991/07/04 + @ 4, 10 GET cDate // input 1991-07-04 READ nDayNum := ft_DoY( dDate ) // result: 185 diff --git a/harbour/contrib/hbnf/tests/calendar.prg b/harbour/contrib/hbnf/tests/calendar.prg index 5193b175cd..bc4c2a1200 100644 --- a/harbour/contrib/hbnf/tests/calendar.prg +++ b/harbour/contrib/hbnf/tests/calendar.prg @@ -10,8 +10,7 @@ PROCEDURE Main() LOCAL aRet - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) SetColor( "w+/b" ) CLS diff --git a/harbour/contrib/hbnf/tests/datecnfg.prg b/harbour/contrib/hbnf/tests/datecnfg.prg index 621f2620ff..c860bf8887 100644 --- a/harbour/contrib/hbnf/tests/datecnfg.prg +++ b/harbour/contrib/hbnf/tests/datecnfg.prg @@ -52,13 +52,12 @@ PROCEDURE Main() LOCAL nNum, dDate, aTestData, aTemp, cFY_Start, nDOW_Start - SET DATE ANSI // User's normal date format - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) // User's normal date format hb_langSelect( "en" ) aTemp := ft_DateCnfg() // Get/Set cFY_Start and nDOW_Start. #if 0 - aTemp := ft_DateCnfg( "1980.01.03", 1 ) // Date string in user's format. + aTemp := ft_DateCnfg( "1980-01-03", 1 ) // Date string in user's format. #endif cFY_Start := aTemp[ 1 ] // See ft_DateCnfg() in ft_date0.prg nDOW_Start := ATEMP[ 2 ] // FOR PARAMETERS. diff --git a/harbour/contrib/hbnf/tests/menu1.prg b/harbour/contrib/hbnf/tests/menu1.prg index 4db64a8698..6daa573bc4 100644 --- a/harbour/contrib/hbnf/tests/menu1.prg +++ b/harbour/contrib/hbnf/tests/menu1.prg @@ -24,8 +24,7 @@ PROCEDURE Main( cCmdLine ) LOCAL nMaxRow - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) AEval( aBar, {| x, i | HB_SYMBOL_UNUSED( x ), aOptions[ i ] := { {}, {}, {} } } ) diff --git a/harbour/contrib/hbnf/tests/savearr.prg b/harbour/contrib/hbnf/tests/savearr.prg index 25663510bf..1b620c9df1 100644 --- a/harbour/contrib/hbnf/tests/savearr.prg +++ b/harbour/contrib/hbnf/tests/savearr.prg @@ -12,8 +12,7 @@ PROCEDURE Main() { "Invoice 3", Date() + 1, 0, .T. } }, aSave LOCAL nErrorCode := 0 - SET DATE ANSI - SET CENTURY OFF /* TOFIX: RTEs with ON */ + Set( _SET_DATEFORMAT, "yy-mm-dd" ) /* TOFIX: RTEs with "yyyy-mm-dd" */ ft_SaveArr( aArray, "invoice.dat", @nErrorCode ) IF nErrorCode == 0 diff --git a/harbour/contrib/hbnf/tests/setdate.prg b/harbour/contrib/hbnf/tests/setdate.prg index 02e91f8a03..56b6be8c19 100644 --- a/harbour/contrib/hbnf/tests/setdate.prg +++ b/harbour/contrib/hbnf/tests/setdate.prg @@ -6,8 +6,7 @@ PROCEDURE Main( cDate ) - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) cDate := iif( cDate == NIL, DToS( Date() ), cDate ) ? "Setting date to: " + cDate + "... " diff --git a/harbour/contrib/hbnf/tests/woy.prg b/harbour/contrib/hbnf/tests/woy.prg index c4df7c881d..046057e9ac 100644 --- a/harbour/contrib/hbnf/tests/woy.prg +++ b/harbour/contrib/hbnf/tests/woy.prg @@ -9,8 +9,7 @@ PROCEDURE Main() LOCAL dDate LOCAL GetList := {} - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) DO WHILE .T. diff --git a/harbour/contrib/hbpgsql/tests/dbf2pg.prg b/harbour/contrib/hbpgsql/tests/dbf2pg.prg index d58c3a4d36..96e14e5964 100644 --- a/harbour/contrib/hbpgsql/tests/dbf2pg.prg +++ b/harbour/contrib/hbpgsql/tests/dbf2pg.prg @@ -80,8 +80,7 @@ PROCEDURE Main( ... ) LOCAL lUseTrans := .F. LOCAL cPath := "public" - SET CENTURY ON - SET DATE ANSI + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) SET DELETE ON rddSetDefault( "DBFDBT" ) diff --git a/harbour/contrib/hbtest/core.prg b/harbour/contrib/hbtest/core.prg index c80f1bc5b3..313d8a2d6f 100644 --- a/harbour/contrib/hbtest/core.prg +++ b/harbour/contrib/hbtest/core.prg @@ -90,7 +90,7 @@ PROCEDURE hbtest_Call( cBlock, bBlock, xResultExpected ) lPPError := .T. ENDIF - cLangOld := hb_langSelect( "EN" ) /* to always have RTEs in one language */ + cLangOld := hb_langSelect( "en" ) /* to always have RTEs in one language */ BEGIN SEQUENCE WITH ErrorBlock( {| oError | Break( oError ) } ) xResult := Eval( bBlock ) diff --git a/harbour/contrib/hbtip/mail.prg b/harbour/contrib/hbtip/mail.prg index b191e11bc7..ebce8d61b1 100644 --- a/harbour/contrib/hbtip/mail.prg +++ b/harbour/contrib/hbtip/mail.prg @@ -495,7 +495,7 @@ METHOD FromString( cMail, cBoundary, nPos ) CLASS TIPMail ELSE // nPos := nLinePos + 2 - /* 2004.05.04 - + /* 2004-05-04 - Instead of testing every single line of mail until we find next boundary, if there is a boundary we jump to it immediatly, this saves thousands of EOL test and makes splitting of a string fast */ diff --git a/harbour/contrib/hbtip/popcli.prg b/harbour/contrib/hbtip/popcli.prg index 683ee0465b..51b4e442d7 100644 --- a/harbour/contrib/hbtip/popcli.prg +++ b/harbour/contrib/hbtip/popcli.prg @@ -217,7 +217,7 @@ METHOD Retrieve( nId, nLen ) CLASS TIPClientPOP cRet := "" nRetLen := 0 - /* 2004/05/04 - + /* 2004-05-04 - Instead of receiving a single char at a time until after we have the full mail, let's receive as much as we can and stop when we reach EOM (end of mail :)) sequence. This way is _a lot_ faster */ @@ -229,7 +229,7 @@ METHOD Retrieve( nId, nLen ) CLASS TIPClientPOP cRet += Left( cBuffer, nRead ) - /* 2005/11/24 - + /* 2005-11-24 - "- Len( cEOM )" to be sure to always find a full EOM, otherwise if response breaks EOM in two, it will never be found diff --git a/harbour/contrib/hbwin/tests/dlg.prg b/harbour/contrib/hbwin/tests/dlg.prg index 0c854ee94a..416240e541 100644 --- a/harbour/contrib/hbwin/tests/dlg.prg +++ b/harbour/contrib/hbwin/tests/dlg.prg @@ -6,7 +6,7 @@ * This example demonstrates how to work with some features of the native Win32 * API. The following function displays a dialog created with an external * resource editor (Pelles C) - * 2010/06/10 - 00:16:41 - [vailtom] + * 2010-06-10 - 00:16:41 - [vailtom] */ #require "hbwin" diff --git a/harbour/contrib/hbziparc/tests/zipa.prg b/harbour/contrib/hbziparc/tests/zipa.prg index 5a00b2492f..857f707c5c 100644 --- a/harbour/contrib/hbziparc/tests/zipa.prg +++ b/harbour/contrib/hbziparc/tests/zipa.prg @@ -8,8 +8,7 @@ PROCEDURE Main( cZip, ... ) LOCAL a, b, c - SET DATE TO ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) ? hb_ZipFile( cZip, hb_AParams() ) diff --git a/harbour/contrib/rddads/ads1.c b/harbour/contrib/rddads/ads1.c index fb436b0cf5..d81e53f559 100644 --- a/harbour/contrib/rddads/ads1.c +++ b/harbour/contrib/rddads/ads1.c @@ -856,7 +856,7 @@ static HB_ERRCODE adsGoTo( ADSAREAP pArea, HB_ULONG ulRecNo ) * will return the error 5022 (AE_INVALID_RECORD_NUMBER), invalid record * number. * - * 2005.09.24 16:24:18 CEST, Druzus + * 2005-09-24 16:24:18 CEST, Druzus * IMHO such GOTO operation should reposition our RDD to phantom record */ UNSIGNED32 u32RetVal, u32RecNo; @@ -864,7 +864,7 @@ static HB_ERRCODE adsGoTo( ADSAREAP pArea, HB_ULONG ulRecNo ) HB_TRACE( HB_TR_DEBUG, ( "adsGoTo(%p, %lu)", pArea, ulRecNo ) ); - /* -----------------2001.07.19 15:04----------------- + /* -----------------2001-07-19 15:04----------------- The following call is a necessary workaround for ace32.dll prior to 6.1. There were bugs where AdsGotoRecord() can FAIL to move the record pointer @@ -872,7 +872,7 @@ static HB_ERRCODE adsGoTo( ADSAREAP pArea, HB_ULONG ulRecNo ) A call to AdsGetRecordNum() before it clears the problem. -BH --------------------------------------------------*/ /* - * 2005.08.25 11:56:20 CEST, Druzus + * 2005-08-25 11:56:20 CEST, Druzus * This trick force to resolving pending relations. It means * that this ADS clients does not reset pending relation in * AdsGotoRecord() and it is resolved later. Similar situation @@ -2162,7 +2162,7 @@ static HB_ERRCODE adsGetValue( ADSAREAP pArea, HB_USHORT uiIndex, PHB_ITEM pItem pField = pArea->area.lpFields + uiIndex - 1; /* This code was optimized for use ADSFIELD() macro instead */ - /* AdsGetFieldName() function for speed. ToninhoFwi, 2003.07.22 */ + /* AdsGetFieldName() function for speed. ToninhoFwi, 2003-07-22 */ switch( pField->uiType ) { @@ -2592,7 +2592,7 @@ static HB_ERRCODE adsPutValue( ADSAREAP pArea, HB_USHORT uiIndex, PHB_ITEM pItem if( ! uiIndex || uiIndex > pArea->area.uiFieldCount ) return HB_FAILURE; - /* -----------------2003.10.30 15:54----------------- + /* -----------------2003-10-30 15:54----------------- ADS has Implicit Record locking that can mask programming errors. Implicit locking can occur the first time a value is written to a @@ -2627,7 +2627,7 @@ static HB_ERRCODE adsPutValue( ADSAREAP pArea, HB_USHORT uiIndex, PHB_ITEM pItem szText = pArea->pRecord; /* This code was optimized for use ADSFIELD() macro instead */ - /* AdsGetFieldName() function for speed. ToninhoFwi, 2003.07.22 */ + /* AdsGetFieldName() function for speed. ToninhoFwi, 2003-07-22 */ switch( pField->uiType ) { @@ -2741,7 +2741,7 @@ static HB_ERRCODE adsPutValue( ADSAREAP pArea, HB_USHORT uiIndex, PHB_ITEM pItem bTypeError = HB_FALSE; nLen = hb_itemGetCLen( pItem ); - /* ToninhoFwi - 2006.12.09 - In the previous code nLen was limited to 0xFFFF + /* ToninhoFwi - 2006-12-09 - In the previous code nLen was limited to 0xFFFF so, I comment it, because ADS support up to 4Gb in memo/binary/image fields. Advantage documentations says that we need use AdsSetBinary in binary/image fields. I tested these special fields with AdsSetString() and it works, but @@ -2976,7 +2976,7 @@ static HB_ERRCODE adsCreate( ADSAREAP pArea, LPDBOPENINFO pCreateInfo ) So, per field it should be ( 6 + 4 + 8 + 2 = 20 ): uiMaxFieldNameLength + 20 - * 2006.09.19 BH: this is an oversized buffer since most fields don't have + * 2006-09-19 BH: this is an oversized buffer since most fields don't have * 128-byte names. But the overhead in counting up the bytes is worse than * allocating a bigger buffer. We need to make sure it's not too big, though. * ADS docs say max # of fields is fnameLen + 10 diff --git a/harbour/contrib/sddoci/tests/test1.prg b/harbour/contrib/sddoci/tests/test1.prg index 18727b4e48..5f412ec92d 100644 --- a/harbour/contrib/sddoci/tests/test1.prg +++ b/harbour/contrib/sddoci/tests/test1.prg @@ -21,8 +21,7 @@ PROCEDURE Main() rddSetDefault( "SQLMIX" ) - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) AEval( rddList(), {| X | QOut( X ) } ) diff --git a/harbour/contrib/sddodbc/tests/test1.prg b/harbour/contrib/sddodbc/tests/test1.prg index 2a91377d6c..2794d508a7 100644 --- a/harbour/contrib/sddodbc/tests/test1.prg +++ b/harbour/contrib/sddodbc/tests/test1.prg @@ -17,9 +17,9 @@ PROCEDURE Main() hb_SDDODBC_Register() #endif + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + rddSetDefault( "SQLMIX" ) - SET DATE ANSI - SET CENTURY ON ? "Connect:", rddInfo( RDDI_CONNECT, { "ODBC", "DBQ=" + hb_DirBase() + "..\..\hbodbc\tests\test.mdb;Driver={Microsoft Access Driver (*.mdb)}" } ) ? "Use:", dbUseArea( .T., , "select * from test", "test" ) ? "Alias:", Alias() diff --git a/harbour/contrib/sddodbc/tests/test2.prg b/harbour/contrib/sddodbc/tests/test2.prg index 806e27bf94..db71bbd42e 100644 --- a/harbour/contrib/sddodbc/tests/test2.prg +++ b/harbour/contrib/sddodbc/tests/test2.prg @@ -13,9 +13,9 @@ PROCEDURE Main() LOCAL nConnection, nI, aI + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + rddSetDefault( "SQLMIX" ) - SET DATE ANSI - SET CENTURY ON nConnection := rddInfo( RDDI_CONNECT, { "ODBC", "Server=localhost;Driver={MySQL ODBC 5.1 Driver};dsn=;User=test;database=test;" } ) IF nConnection == 0 ? "Unable connect to server", rddInfo( RDDI_ERRORNO ), rddInfo( RDDI_ERROR ) diff --git a/harbour/contrib/sddsqlt3/tests/test1.prg b/harbour/contrib/sddsqlt3/tests/test.prg similarity index 95% rename from harbour/contrib/sddsqlt3/tests/test1.prg rename to harbour/contrib/sddsqlt3/tests/test.prg index d089c0d650..9b36c447d8 100644 --- a/harbour/contrib/sddsqlt3/tests/test1.prg +++ b/harbour/contrib/sddsqlt3/tests/test.prg @@ -19,9 +19,9 @@ PROCEDURE Main() hb_SDDSQLITE3_Register() #endif + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + rddSetDefault( "SQLMIX" ) - SET DATE ANSI - SET CENTURY ON AEval( rddList(), {| X | QOut( X ) } ) diff --git a/harbour/contrib/xhb/decode.prg b/harbour/contrib/xhb/decode.prg index 0a3d83f955..12d0083fbd 100644 --- a/harbour/contrib/xhb/decode.prg +++ b/harbour/contrib/xhb/decode.prg @@ -54,8 +54,8 @@ /** * Function .......: hb_Decode( , [ ]> ) ---> * Author .........: Francesco Saverio Giudice - * Date of creation: 1991/01/25 - * Last revision ..: 2006/01/24 1.13 - rewritten for xHarbour and renamed in hb_Decode() + * Date of creation: 1991-01-25 + * Last revision ..: 2006-01-24 1.13 - rewritten for xHarbour and renamed in hb_Decode() * * Decode a value from a list. */ diff --git a/harbour/contrib/xhb/dumpvar.prg b/harbour/contrib/xhb/dumpvar.prg index 6bd99667e2..3f0e72f675 100644 --- a/harbour/contrib/xhb/dumpvar.prg +++ b/harbour/contrib/xhb/dumpvar.prg @@ -74,7 +74,7 @@ PROCEDURE __OutDebug( ... ) * * return a string containing a dump of a variable * - * 2006.09.24 + * 2006-09-24 * - Added recursion limit * - Added front function with limited parameters and removed support for TAssociative Array */ diff --git a/harbour/contrib/xhb/xhbmemo.prg b/harbour/contrib/xhb/xhbmemo.prg index 0193f280ce..c4028288b2 100644 --- a/harbour/contrib/xhb/xhbmemo.prg +++ b/harbour/contrib/xhb/xhbmemo.prg @@ -135,7 +135,7 @@ METHOD MemoInit( xUDF ) CLASS xhb_TMemoEditor IF ::ExistUdf() /* Keep calling user function until it returns 0 - 2004.08.05 - + 2004-08-05 - Clipper 5.2 MemoEdit() treats a NIL as ME_DEFAULT */ DO WHILE AScan( { ME_DEFAULT, NIL }, nUdfReturn := ::CallUdf( ME_INIT ) ) == 0 @@ -179,7 +179,7 @@ METHOD Edit() CLASS xhb_TMemoEditor Eval( ::bKeyBlock, ::ProcName, ::ProcLine, ReadVar() ) - /* 2006.09.15 - E.F. - After SetKey() is executed, if exist nextkey, + /* 2006-09-15 - E.F. - After SetKey() is executed, if exist nextkey, * I need trap this nextkey to memoedit process * first and the on the next loop. */ @@ -191,7 +191,7 @@ METHOD Edit() CLASS xhb_TMemoEditor ENDIF - /* 2005.10.24 - + /* 2005-10-24 - Taken from clipper norton guide: The user function: , a user-defined function @@ -289,7 +289,7 @@ METHOD KeyboardHook( nKey ) CLASS xhb_TMemoEditor METHOD HandleUdf( nKey, nUdfReturn, lEdited ) CLASS xhb_TMemoEditor - /* 2004.08.05 - + /* 2004-08-05 - A little trick to be able to handle a nUdfReturn with value of NIL like it had a value of ME_DEFAULT */ @@ -361,7 +361,7 @@ METHOD HandleUdf( nKey, nUdfReturn, lEdited ) CLASS xhb_TMemoEditor OTHERWISE // ME_UNKEY (1 TO 31) - /* 2006.08.02 - E.F. - (NG) Process requested action corresponding to + /* 2006-08-02 - E.F. - (NG) Process requested action corresponding to * key value. */ nKey := nUdfReturn @@ -425,7 +425,7 @@ FUNCTION xhb_MemoEdit( ; __defaultNIL( @nRight, MaxCol() ) __defaultNIL( @lEditMode, .T. ) __defaultNIL( @nLineLength, NIL ) - /* 2005.10.24 - + /* 2005-10-24 - NG says 4, but clipper 5.2e inserts 3 spaces when pressing K_TAB */ __defaultNIL( @nTabSize, 3 ) @@ -434,7 +434,7 @@ FUNCTION xhb_MemoEdit( ; __defaultNIL( @nWindowRow, 0 ) __defaultNIL( @nWindowColumn, nTextBuffColumn ) - // 2006.07.22 - E.F. Check argument types. + // 2006-07-22 - E.F. Check argument types. // IF ! HB_ISNIL( cString ) .AND. ! HB_ISSTRING( cString ) .AND. ! HB_ISMEMO( cString ) Throw( ErrorNew( "BASE", 0, 1127, " Argument type error", ProcName() ) ) @@ -477,7 +477,7 @@ FUNCTION xhb_MemoEdit( ; ENDIF - // 2006.07.22 - E.F. To avoid run time error. + // 2006-07-22 - E.F. To avoid run time error. IF nTop > nBottom .OR. nLeft > nRight Throw( ErrorNew( "BASE", 0, 1127, " Argument error", ProcName() ) ) ENDIF @@ -486,7 +486,7 @@ FUNCTION xhb_MemoEdit( ; xUDF := NIL ENDIF - /* 2005.10.24 - + /* 2005-10-24 - Clipper MemoEdit() converts Tabs into spaces */ oEd := xhb_TMemoEditor():New( StrTran( cString, Chr( 9 ), Space( nTabSize ) ), ; @@ -505,7 +505,7 @@ FUNCTION xhb_MemoEdit( ; oEd:MemoInit( xUDF ) oEd:RefreshWindow() - // 2006.08.06 - E.F. Clipper's in .T. or. F. is samething. + // 2006-08-06 - E.F. Clipper's in .T. or. F. is samething. // IF ! HB_ISLOGICAL( xUDF ) // .OR. cUserFunction @@ -516,7 +516,7 @@ FUNCTION xhb_MemoEdit( ; ENDIF ELSE - // 2006.07.24 - E.F. - If xUDF is in .F. or .T. cause diplay memo content and exit, + // 2006-07-24 - E.F. - If xUDF is in .F. or .T. cause diplay memo content and exit, // so we have to repos the cursor at bottom of memoedit // screen after that. SetPos( Min( nBottom, MaxRow() ), 0 ) diff --git a/harbour/contrib/xhb/xhbtedit.prg b/harbour/contrib/xhb/xhbtedit.prg index 1b80f7562b..c7ca80967c 100644 --- a/harbour/contrib/xhb/xhbtedit.prg +++ b/harbour/contrib/xhb/xhbtedit.prg @@ -52,7 +52,7 @@ /* * Pritpal Bedi - * 2004.02.28 + * 2004-02-28 * * Suppor for Clipper's MemoEdit( ..., nTextBufferRow, nTextBufferCol, nWindowRow, nWindowCol ) * Rearrangement of code in logical sections. @@ -63,7 +63,7 @@ /* * - * Teditor Fix: v3.0beta 2004.04.17 + * Teditor Fix: v3.0beta 2004-04-17 * Copyright 2004 Giancarlo Niccolai * * Minimal revision for proper working (expecially with word warping). @@ -75,7 +75,7 @@ */ /* - * Teditor Fix: v2.0 2003.11.17 + * Teditor Fix: v2.0 2003-11-17 * Copyright 2003 Lance Owens * * This Revised Version has a completely rewritten edit method key commands, with dynamic line and paragraph reformatting. @@ -232,7 +232,7 @@ CREATE CLASS XHBEditor METHOD K_Mouse( nKey ) METHOD K_Esc() - // 2006.07.19 - E.F. - Added datas and methods. + // 2006-07-19 - E.F. - Added datas and methods. VAR cInsLabel // label to display at toggle insert VAR lVerticalScroll INIT .T. // True if vertical scrolling is active (default) VAR bKeyBlock // To process set key codeblock @@ -249,7 +249,7 @@ CREATE CLASS XHBEditor METHOD BrowseText( nPassedKey, lHandleOneKey ) - // 2006.07.25 - E.F. - Internal use only. + // 2006-07-25 - E.F. - Internal use only. METHOD GetCol( nRow, nCol ) INLINE iif( nRow > 0 .AND. nRow <= ::LastRow(), iif( nCol > 0 .AND. nCol <= Min( ::nWordWrapCol + 1, ::LineLen( nRow ) ), SubStr( ::aText[ nRow ]:cText, nCol, 1 ), "" ), "" ) METHOD IsEmptyLine( nRow ) INLINE iif( nRow > 0 .AND. nRow <= ::LastRow(), Empty( ::aText[ nRow ]:cText ), .T. ) @@ -273,7 +273,7 @@ METHOD New( cString, nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabS __defaultNIL( @nWndRow, 0 ) __defaultNIL( @nWndCol, 0 ) - // 2006.07.22 - E.F. To avoid run time error. + // 2006-07-22 - E.F. To avoid run time error. IF nTop > nBottom .OR. nLeft > nRight Throw( ErrorNew( "BASE", 0, 1127, "Argument error: ", ProcName() ) ) ENDIF @@ -286,7 +286,7 @@ METHOD New( cString, nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabS ::nOrigCursor := SetCursor() - // 2006.07.21 - E.F. To avoid out of boundaries. + // 2006-07-21 - E.F. To avoid out of boundaries. // Editor window boundaries ::nTop := Min( Max( 0, nTop ), MaxRow() ) ::nLeft := Min( Max( 0, nLeft ), MaxCol() ) @@ -298,7 +298,7 @@ METHOD New( cString, nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabS ::nNumCols := ::nRight - ::nLeft + 1 ::nNumRows := ::nBottom - ::nTop + 1 - // 2006.08.18 - E.F. Adjusted nLineLenght in accordance with Clipper's + // 2006-08-18 - E.F. Adjusted nLineLenght in accordance with Clipper's // memoedit. IF ! HB_ISNUMERIC( nLineLength ) nLineLength := ::nNumCols @@ -344,7 +344,7 @@ METHOD New( cString, nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabS // If memofield was created with Clipper, it needs to have __SoftCR() stripped - // 2006.07.20 - E.F. - We should not replace SoftCR with Chr( 32 ). + // 2006-07-20 - E.F. - We should not replace SoftCR with Chr( 32 ). // See Text2Array function for more details. // IF hb_BChar( 141 ) $ cString // acsn := Chr( 32 ) + Chr( 141 ) + Chr( 10 ) @@ -458,7 +458,7 @@ METHOD RefreshWindow() CLASS XHBEditor FOR i := 0 TO Min( ::nNumRows - 1, ::LastRow() - 1 ) - // 2006.07.23 - E.F. Adjusted to avoid out of bound. + // 2006-07-23 - E.F. Adjusted to avoid out of bound. // Don't replace ::GetLine( nRow ) by ::aText[ nRow ]:cText here, // because getline return line number in tbrwtext.prg (debug). hb_DispOutAt( Min( ::nTop + i, ::nBottom ), ::nLeft, ; @@ -529,7 +529,7 @@ METHOD RefreshLine( lRefreshColSel ) CLASS XHBEditor DispBegin() - // 2006.08.02 - E.F. + // 2006-08-02 - E.F. // Don't replace ::GetLine( nRow ) by ::aText[ nRow ]:cText here // because getline return line number in tbrwtext.prg (debug). hb_DispOutAt( ::Row(), ::nLeft, PadR( SubStr( ::GetLine( ::nRow ), ::nFirstCol, ::nNumCols ), ::nNumCols, " " ), ::LineColor( ::nRow ) ) @@ -539,7 +539,7 @@ METHOD RefreshLine( lRefreshColSel ) CLASS XHBEditor nFirstCol := Max( ::nTextCol, ::nWndCol ) nFirstCol := Max( nFirstCol, ::nLeft ) - /* 2006.09.20 - E.F. - Fine cursor adjustment. */ + /* 2006-09-20 - E.F. - Fine cursor adjustment. */ // nCol := nFirstCol + ::nColSelStart - 1 nCol := Max( ::nLeft, nFirstCol + ::nColSelStart - 1 ) @@ -572,7 +572,7 @@ METHOD RefreshColumn() CLASS XHBEditor DispBegin() - // 2006.08.02 - E.F. + // 2006-08-02 - E.F. // Don't replace ::GetLine( nRow ) by ::aText[ nRow ]:cText here // because getline return line number in tbrwtext.prg (debug). FOR i := 0 TO Min( ::nNumRows - 1, ::LastRow() - 1 ) @@ -708,7 +708,7 @@ METHOD Edit( nPassedKey ) CLASS XHBEditor ENDIF /* - * 2006.08.12 -E.F. Trap Set key only if nKey is NIL. + * 2006-08-12 -E.F. Trap Set key only if nKey is NIL. */ IF nPassedKey == NIL IF ( ::bKeyBlock := SetKey( nKey ) ) != NIL @@ -765,7 +765,7 @@ METHOD Edit( nPassedKey ) CLASS XHBEditor CASE K_CTRL_B // Reformat paragraph IF ::lEditAllow ::ClrTextSelection() - ::ReformParagraph() // 2006.07.29 -E.F. Added. + ::ReformParagraph() // 2006-07-29 -E.F. Added. ENDIF EXIT #else @@ -937,7 +937,7 @@ METHOD Edit( nPassedKey ) CLASS XHBEditor ::ClrTextSelection() ENDIF ELSE - // 2006.07.22 - E.F. - Insert is allowed only in edit mode. + // 2006-07-22 - E.F. - Insert is allowed only in edit mode. IF ::lEditAllow ::ClrTextSelection() ::InsertState( ! ::lInsert ) @@ -979,7 +979,7 @@ METHOD Edit( nPassedKey ) CLASS XHBEditor IF ::lEditAllow // Clipper compatibility ::K_Bs() ELSE - // 2006.07.22 - E.F. - Clipper backspace in read only is same as left movement. + // 2006-07-22 - E.F. - Clipper backspace in read only is same as left movement. ::Left() ENDIF EXIT @@ -1168,7 +1168,7 @@ METHOD GoTop() CLASS XHBEditor METHOD Right() CLASS XHBEditor IF ::lWordWrap - // 2006.07.19 - E.F. Changed max right point to pos cursor to next. + // 2006-07-19 - E.F. Changed max right point to pos cursor to next. // IF ::nCol > ::nWordWrapCol .AND. ::nRow < ::LastRow() ::GotoPos( ::nRow + 1, 1, .T. ) @@ -1207,7 +1207,7 @@ METHOD WordRight() CLASS XHBEditor DispBegin() // to minimize flicker. - // 2006.07.21 - E.F. Changed to verify empty character instead space. + // 2006-07-21 - E.F. Changed to verify empty character instead space. // In any circunstancies wordright stop at space. // Added verification in not wordwrap mode if reach // rightmost position. @@ -1242,7 +1242,7 @@ METHOD WordRight() CLASS XHBEditor IF ::lRightScroll IF ::lWordWrap - // 2006.07.21 - E.F. - If cursor reach rightmost position + // 2006-07-21 - E.F. - If cursor reach rightmost position // go to the next line. IF ::nCol > nMaxCol .AND. ::nRow < ::LastRow() ::Down() @@ -1250,7 +1250,7 @@ METHOD WordRight() CLASS XHBEditor IF Empty( ::GetCol( ::nRow, ::nCol ) ) ::WordRight() ENDIF - // 2006.07.21 - E.F. - If cursor stop at empty char and it is the + // 2006-07-21 - E.F. - If cursor stop at empty char and it is the // last reachable position go back to the previous word. ELSEIF ::nCol >= nMaxCol .AND. ::nRow == ::LastRow() IF ! Empty( ::GetCol( ::nRow, ::nCol ) ) @@ -1261,7 +1261,7 @@ METHOD WordRight() CLASS XHBEditor ::WordRight() ENDIF ELSE - // 2006.07.21 - E.F. - If cursor reach rightmost position go to back to prior word. + // 2006-07-21 - E.F. - If cursor reach rightmost position go to back to prior word. IF ::nCol > nMaxCol ::Wordleft() ENDIF @@ -1276,7 +1276,7 @@ METHOD WordRight() CLASS XHBEditor METHOD End() CLASS XHBEditor - // 2006.07.19 - E.F. Changed to avoid the cursor out of line. + // 2006-07-19 - E.F. Changed to avoid the cursor out of line. // ::GotoCol( Min( ::LineLen( ::nRow ) + 1, Max( ::nNumCols, ::nWordWrapCol + 1 ) ) ) @@ -1290,7 +1290,7 @@ METHOD Left() CLASS XHBEditor IF ::nCol == 1 IF ::lWordWrap IF ::nRow > 1 - // 2006.07.19 E.F. left should be at max in the leftmost column. + // 2006-07-19 E.F. left should be at max in the leftmost column. // ::GotoPos( ::nRow - 1, Max( ::nNumCols, ::nWordWrapCol + 1 ), .T. ) ENDIF @@ -1329,7 +1329,7 @@ METHOD WordLeft() CLASS XHBEditor ENDIF - // 2006.07.21 - E.F. - Changed to verifiy empty char instead space. In any + // 2006-07-21 - E.F. - Changed to verifiy empty char instead space. In any // circunstancies wordleft stop at space. // DO while ::nCol > 1 .AND. ! Empty( ::GetCol( ::nRow, ::nCol ) ) @@ -1342,7 +1342,7 @@ METHOD WordLeft() CLASS XHBEditor ::Left() ENDDO - // 2006.07.24 -E.F. - If cursor stoped at empty char, then + // 2006-07-24 -E.F. - If cursor stoped at empty char, then // go to the next word. IF ! ::lWordWrap .AND. ; ::nCol < ::LineLen( ::nRow ) .AND. ; @@ -1416,7 +1416,7 @@ METHOD K_Ascii( nKey ) CLASS XHBEditor RETURN Self ENDIF - // 2006.07.22 - E.F. - IF there is no line into memo add a new one. + // 2006-07-22 - E.F. - IF there is no line into memo add a new one. IF ::LastRow() == 0 ::AddLine( "", .F. ) ENDIF @@ -1474,7 +1474,7 @@ METHOD K_Bs() CLASS XHBEditor IF ::nRow > 1 .AND. ::nRow <= ::LastRow() - // 2006.07.21 - E.F. - Determine new ::nCol position. + // 2006-07-21 - E.F. - Determine new ::nCol position. // ::nCol := Min( ::LineLen( ::nRow - 1 ) + 1, ::nWordWrapCol ) @@ -1498,7 +1498,7 @@ METHOD K_Bs() CLASS XHBEditor ::SplitLine( ::nRow ) ENDIF - // 2006.07.21 - E.F. - Delete the rightmost char and pos the cursor on it. + // 2006-07-21 - E.F. - Delete the rightmost char and pos the cursor on it. IF ::LineLen( ::nRow ) >= ::nWordWrapCol ::aText[ ::nRow ]:cText := SubStr( ::aText[ ::nRow ]:cText, 1, ::LineLen( ::nRow ) - 1 ) + " " ::nCol := Min( ::nCol + 1, ::nWordWrapCol + 1 ) @@ -1513,7 +1513,7 @@ METHOD K_Bs() CLASS XHBEditor ENDIF ENDIF - // 2006.07.19 - E.F. When backspace reach column 1 and the line is + // 2006-07-19 - E.F. When backspace reach column 1 and the line is // empty and exist next line, we need set linelen to // zero and set lSoftCR to true as Clipper does. // @@ -1570,7 +1570,7 @@ METHOD K_Del() CLASS XHBEditor ::aText[ ::nRow ]:cText += " " ENDIF - // 2006.07.21 - E.F. If current line is empty and cursor is in + // 2006-07-21 - E.F. If current line is empty and cursor is in // the first column, remove it after del. // IF ::IsEmptyLine( ::nRow ) .AND. ::nCol == 1 @@ -1588,7 +1588,7 @@ METHOD K_Del() CLASS XHBEditor ::lChanged := .T. nCurRow := ::nRow nCurCol := ::nCol - // 2006.07.19 - E.F. Merge line only if ::nRow+1 is valid, + // 2006-07-19 - E.F. Merge line only if ::nRow+1 is valid, // to avoid bound error. // IF ::nRow + 1 <= ::LastRow() @@ -1671,7 +1671,7 @@ METHOD K_Return() CLASS XHBEditor IF ::lEditAllow - // 2006.07.24 - E.F. - Fixed at insert mode. + // 2006-07-24 - E.F. - Fixed at insert mode. #if 0 IF ::lInsert IF ::nRow == ::LastRow() @@ -1748,7 +1748,7 @@ METHOD K_Esc() CLASS XHBEditor SetCursor( nCursor ) SetPos( nCurRow, nCurCol ) - // 2006.07.21 - E.F - Exit only if "Y" is pressed. + // 2006-07-21 - E.F - Exit only if "Y" is pressed. // ::lExitEdit := ( Upper( hb_keyChar( nKey ) ) == "Y" ) ENDIF @@ -1967,7 +1967,7 @@ METHOD GotoCol( nCol ) CLASS XHBEditor IF nCol >= 1 - // 2006.07.21 E.F. - Clipper allow cursor movement to left/right into + // 2006-07-21 E.F. - Clipper allow cursor movement to left/right into // line, with or without chars. // Note: ::nWordWrapCol can be different than ::nNumCols if user has // informed nLineLength > 0. @@ -2013,7 +2013,7 @@ METHOD GotoPos( nRow, nCol, lRefresh ) CLASS XHBEditor IF nCol >= 1 - // 2006.07.21 E.F. - Clipper allow cursor movement to left/right into + // 2006-07-21 E.F. - Clipper allow cursor movement to left/right into // line, with or without chars. // Note: ::nWordWrapCol can be different than ::nNumCols if user has // informed nLineLength > 0 @@ -2166,7 +2166,7 @@ METHOD SplitLine( nRow ) CLASS XHBEditor // Old method was: else split at current cursor position // cSplittedLine := Left( cLine, ::nCol - 1 ) - // 2006.07.19 - E.F. - Changed cut point at witdh of line to maintain. + // 2006-07-19 - E.F. - Changed cut point at witdh of line to maintain. // amount of chars same as Clipper. // // cSplittedLine := Left( cLine, ::nWordWrapCol ) @@ -2180,7 +2180,7 @@ METHOD SplitLine( nRow ) CLASS XHBEditor // // GAD IF !( Right( cSplittedLine, 1 ) == " " ) .AND. nFirstSpace > 1 - // 2006.07.21 - E.F. - Added condition to not stay out of max columns. + // 2006-07-21 - E.F. - Added condition to not stay out of max columns. IF Len( cSplittedLine ) < ::nNumCols cSplittedLine += " " ENDIF @@ -2195,7 +2195,7 @@ METHOD SplitLine( nRow ) CLASS XHBEditor // I have to recheck if trim is viable here ??? // - // 2006.07.21 - E.F. Only insert a line in any circunstancies. + // 2006-07-21 - E.F. Only insert a line in any circunstancies. // IF nStartRow + 1 <= ::LastRow() IF ::LineLen( nStartRow + 1 ) == 0 .OR. Len( AllTrim( cLine ) ) > 0 @@ -2315,7 +2315,7 @@ METHOD SetPos( nRow, nCol ) CLASS XHBEditor METHOD InsertState( lInsState ) CLASS XHBEditor - // 2006.07.22 - E.F. - Insert only in edit mode. + // 2006-07-22 - E.F. - Insert only in edit mode. IF ::lEditAllow .AND. HB_ISLOGICAL( lInsState ) .AND. ::lInsert != lInsState ::lInsert := lInsState @@ -2336,7 +2336,7 @@ METHOD InsertState( lInsState ) CLASS XHBEditor RETURN Self // -// 2006.07.15 - E.F. - Display "" message +// 2006-07-15 - E.F. - Display "" message // METHOD DisplayInsert( lInsert ) CLASS XHBEditor @@ -2563,7 +2563,7 @@ METHOD SetTextSelection( cAction, nCount ) CLASS XHBEditor IF ::nRowSelEnd == ::LastRow() // ::nRowSelEnd := ::LastRow()-1 - /* 2006.09.17 - E.F. - At this point we need add a new line + /* 2006-09-17 - E.F. - At this point we need add a new line to be able to select the last row. */ IF ! Empty( ::aText[ ::nRowSelEnd ]:cText ) @@ -2712,13 +2712,13 @@ METHOD DelText() CLASS XHBEditor RETURN self ENDIF - // 2006.09.17 - E.F. - changed to ::top() to avoid cursor out of bound. + // 2006-09-17 - E.F. - changed to ::top() to avoid cursor out of bound. // ::Gotop() ::Top() ::aText := {} - // 2006.07.22 - E.F. - There is no need to add line here. + // 2006-07-22 - E.F. - There is no need to add line here. // See K_ASCII() method. // AAdd( ::aText, HBTextLine():New() ) @@ -2788,7 +2788,7 @@ METHOD DelTextSelection() CLASS XHBEditor ENDIF ENDIF - // 2008.03.03 08:26 added next 4 lines to fix array out of bounds RTL + // 2008-03-03 08:26 added next 4 lines to fix array out of bounds RTL IF ::nRow > ::LastRow() ::Addline( "", .F. ) ::GoBottom() @@ -2971,7 +2971,7 @@ STATIC FUNCTION Text2Array( cString, nWordWrapCol ) LOCAL lTokenized := .F. LOCAL cSoftCR := __SoftCR() - // 2005.07.19 - E.F. - SoftCR must be removed before convert string to + // 2005-07-19 - E.F. - SoftCR must be removed before convert string to // array. It will be treated by HBEditor. IF cSoftCR $ cString cString := StrTran( cString, cSoftCR ) @@ -3021,14 +3021,14 @@ STATIC FUNCTION Text2Array( cString, nWordWrapCol ) cLine := SubStr( cLine, nFirstSpace + 1 ) ELSE cSplittedLine := Left( cLine, nWordWrapCol ) - // 2006.07.19 - E.F. Changed cut point of second split. + // 2006-07-19 - E.F. Changed cut point of second split. // cLine := SubStr( cLine, nWordWrapCol + 1 ) cLine := SubStr( cLine, Len( cSplittedLine ) + 1 ) ENDIF AAdd( aArray, HBTextLine():New( cSplittedLine, .T. ) ) ELSE // remainder of line is shorter than split point - // 2006.07.21 - E.F. Only add a new line if cLine is not empty. + // 2006-07-21 - E.F. Only add a new line if cLine is not empty. // IF Len( cLine ) > 0 AAdd( aArray, HBTextLine():New( cLine, .F. ) ) diff --git a/harbour/doc/en/string.txt b/harbour/doc/en/string.txt index 3bc6b299ca..0bb3fde376 100644 --- a/harbour/doc/en/string.txt +++ b/harbour/doc/en/string.txt @@ -704,12 +704,11 @@ $DESCRIPTION$ HB_VALTOSTR can be used to convert any scalar value to a string. $EXAMPLES$ - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) ? hb_ValToStr( 4 ) == " 4" ? hb_ValToStr( 4.0 / 2 ) == " 2.00" ? hb_ValToStr( "String" ) == "String" - ? hb_ValToStr( hb_SToD( "20010101" ) ) == "2001.01.01" + ? hb_ValToStr( hb_SToD( "20010101" ) ) == "2001-01-01" ? hb_ValToStr( NIL ) == "NIL" ? hb_ValToStr( .F. ) == ".F." ? hb_ValToStr( .T. ) == ".T." diff --git a/harbour/doc/gtapi.txt b/harbour/doc/gtapi.txt index f14fb9b1a8..4b205ba3bd 100644 --- a/harbour/doc/gtapi.txt +++ b/harbour/doc/gtapi.txt @@ -4,7 +4,7 @@ GT API functions ================ -By Bil Simser (1999.05.14) +By Bil Simser (1999-05-14) Using the gt API requires two steps. The gt API interface is kept in gtapi.c. This houses the gt API and @@ -302,7 +302,7 @@ gtwvt - GT driver for MS-Windows. It creates its own GUI window for use with GTWVT. To let the memory refreshed, I must remind everybody that it is a superb work of Peter Rees contributed - to xHarbour on 2003.12.22. + to xHarbour on 2003-12-22. gtwvg - GUI emulation of GTWVT. It implements itself on top of GTWVT. GTWVG ( WVTGUI in xHarbour ) offers functions and classes to present a console application look like a windows one. diff --git a/harbour/doc/pragma.txt b/harbour/doc/pragma.txt index d8b1eda71f..015c657f5b 100644 --- a/harbour/doc/pragma.txt +++ b/harbour/doc/pragma.txt @@ -84,7 +84,7 @@ but with the great benefit that if you forgot to pass the switch, it will be used anyway because it is included inside the source. =========== -1999.12.01 +1999-12-01 Regards, Jose Lalin diff --git a/harbour/doc/xhb-diff.txt b/harbour/doc/xhb-diff.txt index 825e69b17b..4614c44b68 100644 --- a/harbour/doc/xhb-diff.txt +++ b/harbour/doc/xhb-diff.txt @@ -1178,7 +1178,7 @@ decoding above format. In VFP and xHarbour when date part is missed then it's set by default to: 1899-12-30 so this code: { ^ 12:00 } gives the same results as: - { ^ 1899/12/30 12:00 } + { ^ 1899-12-30 12:00 } Harbour does not set any default date value when timestamp constant contains only time part. Harbour supports VFP syntax only in Compiler. It's not supported in @@ -2767,7 +2767,7 @@ The tests below were done using AMD Phenom(tm) 8450 Triple-Core Processor Here are results for ST mode: - 2009.07.28 20:48:12 Linux 2.6.25.20-0.4-pae i686 + 2009-07-28 20:48:12 Linux 2.6.25.20-0.4-pae i686 Harbour 2.0.0beta2 (Rev. 11910) GNU C 4.4 (32-bit) x86 THREADS: 0 N_LOOPS: 1000000 @@ -2833,7 +2833,7 @@ Here are results for ST mode: [ total application time: ]....................................20.27 [ total real time: ]...........................................20.51 - 2009.07.28 20:48:46 Linux 2.6.25.20-0.4-pae i686 + 2009-07-28 20:48:46 Linux 2.6.25.20-0.4-pae i686 xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6517) GNU C 4.4 (32 bit) ? THREADS: 0 N_LOOPS: 1000000 @@ -2901,7 +2901,7 @@ Here are results for ST mode: And here are results for MT mode: - 2009.07.28 20:52:43 Linux 2.6.25.20-0.4-pae i686 + 2009-07-28 20:52:43 Linux 2.6.25.20-0.4-pae i686 Harbour 2.0.0beta2 (Rev. 11910) (MT) GNU C 4.4 (32-bit) x86 THREADS: 0 N_LOOPS: 1000000 @@ -2967,7 +2967,7 @@ And here are results for MT mode: [ total application time: ]....................................23.10 [ total real time: ]...........................................23.78 - 2009.07.28 20:53:24 Linux 2.6.25.20-0.4-pae i686 + 2009-07-28 20:53:24 Linux 2.6.25.20-0.4-pae i686 xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6517) (MT) GNU C 4.4 (32 bit) ? THREADS: 0 N_LOOPS: 1000000 @@ -3041,7 +3041,7 @@ Recently I've repeated above tests on the same Hardware but using 64-bit Linux kernels and 64bit Harbour builds and here the difference is even bigger. Here are results for ST mode: - 2009.10.27 13:24:41 Linux 2.6.31.3-1-desktop x86_64 + 2009-10-27 13:24:41 Linux 2.6.31.3-1-desktop x86_64 Harbour 2.0.0beta3 (Rev. 12776) GNU C 4.4 (64-bit) x86-64 THREADS: 0 N_LOOPS: 1000000 @@ -3107,7 +3107,7 @@ bigger. Here are results for ST mode: [ total application time: ]....................................15.60 [ total real time: ]...........................................15.61 - 2009.10.27 13:25:10 Linux 2.6.31.3-1-desktop x86_64 + 2009-10-27 13:25:10 Linux 2.6.31.3-1-desktop x86_64 xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6629) GNU C 4.4 (64 bit) ? THREADS: 0 N_LOOPS: 1000000 @@ -3183,7 +3183,7 @@ used for shared ones so xHarbour cannot use them by default. The last test we can make is scalability in real multi CPU environment. - 2009.07.28 21:07:56 Linux 2.6.25.20-0.4-pae i686 + 2009-07-28 21:07:56 Linux 2.6.25.20-0.4-pae i686 Harbour 2.0.0beta2 (Rev. 11910) (MT)+ GNU C 4.4 (32-bit) x86 THREADS: 2 N_LOOPS: 1000000 @@ -3252,7 +3252,7 @@ The last test we can make is scalability in real multi CPU environment. [ total real time: ]...........................................77.52 - 2009.07.28 21:11:44 Linux 2.6.25.20-0.4-pae i686 + 2009-07-28 21:11:44 Linux 2.6.25.20-0.4-pae i686 xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 6517) (MT)+ GNU C 4.4 (32 bit) ? THREADS: 2 N_LOOPS: 1000000 diff --git a/harbour/extras/dbu/dbu52.dif b/harbour/extras/dbu/dbu52.dif index 6a1af01fa8..b7b94069dd 100644 --- a/harbour/extras/dbu/dbu52.dif +++ b/harbour/extras/dbu/dbu52.dif @@ -1,6 +1,6 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg --- dbu52ori/dbu.prg 1993-03-04 04:20:00.000000000 +0100 -+++ dbu52pat/dbu.prg 2012-05-02 16:47:37.000000000 +0200 ++++ dbu52pat/dbu.prg 2013-03-02 02:00:25.000000000 +0100 @@ -9,6 +9,10 @@ * */ @@ -12,13 +12,12 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg PROCEDURE Dbu( param1, param2, param3 ) PUBLIC n_files,keystroke,lkey,frame,sframe,cur_dir,more_up,more_down,; -@@ -60,6 +64,15 @@ +@@ -60,6 +64,14 @@ SAVE SCREEN && the screen you save... SET SCOREBOARD OFF && who's keeping score, anyhow SET KEY 28 TO && some folks need help + -+ SET DATE ANSI -+ SET CENTURY ON ++ Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + + IF "-utf" $ Lower( hb_cmdLine() ) + hb_cdpSelect( "UTF8EX" ) @@ -28,7 +27,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg IF (ISCOLOR() .OR. "/C" $ UPPER(param2)) .AND. .NOT. "/M" $ UPPER(param2) * make it pretty -@@ -100,10 +113,10 @@ +@@ -100,10 +112,10 @@ * system constants more_up = CHR(24) && visual up arrow more_down = CHR(25) && visual down arrow @@ -43,7 +42,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg * global variables STORE .F. TO need_field,need_ntx,need_relat,need_filtr,box_open -@@ -250,7 +263,7 @@ +@@ -250,7 +262,7 @@ @ 0,0 SAY " F1 F2 F3 F4 F5 F6 " +; "F7 F8 " show_keys() @@ -52,7 +51,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg error_msg(view_err) * when to bubble up -@@ -346,14 +359,14 @@ +@@ -346,14 +358,14 @@ help_title[22] = "REPLACE" * arrays for file names in default directory @@ -71,7 +70,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg * default to set view local_func = 0 && local menu -@@ -370,7 +383,7 @@ +@@ -370,7 +382,7 @@ DO CASE @@ -80,7 +79,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg * file extension entered IF .NOT. FILE(com_line) * file must exist -@@ -378,13 +391,13 @@ +@@ -378,13 +390,13 @@ ENDIF @@ -98,7 +97,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg OTHERWISE * file not found..ignore command line -@@ -395,7 +408,7 @@ +@@ -395,7 +407,7 @@ IF .NOT. EMPTY(com_line) * command line file exists @@ -107,7 +106,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg * assume a valid .VEW file view_file = com_line set_from(.F.) && restore view -@@ -616,8 +629,8 @@ +@@ -616,8 +628,8 @@ @ 0,0 SAY " F1 F2 F3 F4 " +; "F5 F6 F7 F8 " show_keys() @@ -118,7 +117,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg * accept command entry run_com = enter_rc(M->com_line,24,7,127,"@KS73",M->color1) -@@ -646,18 +659,18 @@ +@@ -646,18 +658,18 @@ @ 3,0 CLEAR * rebuild directory arrays..must keep current @@ -141,7 +140,7 @@ diff -u dbu52ori/dbu.prg dbu52pat/dbu.prg cur_area = 0 && re-draw view screen sysfunc = 0 && back to the main view screen -@@ -736,10 +749,10 @@ +@@ -736,10 +748,10 @@ nPos := AT( ";", cPath ) // Account for backslash in path diff --git a/harbour/extras/dbu/dbu53.dif b/harbour/extras/dbu/dbu53.dif index fcabb2b95b..d6feef82a1 100644 --- a/harbour/extras/dbu/dbu53.dif +++ b/harbour/extras/dbu/dbu53.dif @@ -1,6 +1,6 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg --- dbu53ori/dbu.prg 1996-05-20 05:31:00.000000000 +0200 -+++ dbu53pat/dbu.prg 2012-05-02 17:22:55.000000000 +0200 ++++ dbu53pat/dbu.prg 2013-03-02 02:00:36.000000000 +0100 @@ -9,8 +9,10 @@ * ***/ @@ -14,12 +14,11 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg // Uncomment to update the obsolete declaration: #xtranslate DECLARE => PRIVATE -@@ -71,6 +73,15 @@ +@@ -71,6 +73,14 @@ SET SCOREBOARD OFF // who's keeping score, anyhow SET KEY 28 TO // some folks need help -+ SET DATE ANSI -+ SET CENTURY ON ++ Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + + IF "-utf" $ Lower( hb_cmdLine() ) + hb_cdpSelect( "UTF8EX" ) @@ -30,7 +29,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg IF (ISCOLOR() .OR. "/C" $ UPPER(param2)) .AND. .NOT. "/M" $ UPPER(param2) // make it pretty color1 := "W+/B,N/W,B" // normal -@@ -110,10 +121,10 @@ +@@ -110,10 +120,10 @@ // system constants more_up := CHR(24) // visual up arrow more_down := CHR(25) // visual down arrow @@ -45,7 +44,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg // global variables STORE .F. TO need_field,need_ntx,need_relat,need_filtr,box_open -@@ -264,7 +275,7 @@ +@@ -264,7 +274,7 @@ @ 0,0 SAY " F1 F2 F3 F4 F5 F6 " +; "F7 F8 " show_keys() @@ -54,7 +53,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg error_msg(view_err) // when to bubble up -@@ -360,14 +371,14 @@ +@@ -360,14 +370,14 @@ help_title[22] := "REPLACE" // arrays for file names in default directory @@ -73,7 +72,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg // default to set view local_func := 0 // local menu -@@ -384,7 +395,7 @@ +@@ -384,7 +394,7 @@ DO CASE @@ -82,7 +81,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg // file extension entered IF !( FILE( com_line ) ) // file must exist -@@ -392,13 +403,13 @@ +@@ -392,13 +402,13 @@ ENDIF @@ -100,7 +99,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg OTHERWISE // file not found..ignore command line -@@ -409,7 +420,7 @@ +@@ -409,7 +419,7 @@ IF .NOT. EMPTY(com_line) // command line file exists @@ -109,7 +108,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg // assume a valid .VEW file view_file := com_line set_from(.F.) // restore view -@@ -678,8 +689,8 @@ +@@ -678,8 +688,8 @@ @ 0,0 SAY " F1 F2 F3 F4 " +; "F5 F6 F7 F8 " show_keys() @@ -120,7 +119,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg // accept command entry run_com := enter_rc(M->com_line,24,7,127,"@KS73",M->color1) -@@ -708,18 +719,18 @@ +@@ -708,18 +718,18 @@ @ 3,0 CLEAR // rebuild directory arrays..must keep current @@ -143,7 +142,7 @@ diff -u dbu53ori/dbu.prg dbu53pat/dbu.prg cur_area := 0 // re-draw view screen sysfunc := 0 // back to the main view screen -@@ -796,12 +807,12 @@ +@@ -796,12 +806,12 @@ nPos := AT( ";", cPath ) // Account for backslash in path diff --git a/harbour/extras/gtwvw/docs/whatsnew.txt b/harbour/extras/gtwvw/docs/whatsnew.txt index 016fb9b840..9db90bc679 100644 --- a/harbour/extras/gtwvw/docs/whatsnew.txt +++ b/harbour/extras/gtwvw/docs/whatsnew.txt @@ -302,21 +302,21 @@ MISCELLANEOUS reported of lost input characters. Many Thanks to Peter Rees. -2005/06/19 +2005-06-19 * gtwvw.c + wvw_xbShow() to show/hide scrollbar, code by Julio Cesar Cantillo Molina. -2005/04/27 +2005-04-27 * hbgtwvw.h * gtwvw.c + hb_wvw_gtSetLastMenuEvent() + wvw_SetLastMenuEvent() callable from .prg -2005/04/18: +2005-04-18: * gtwvw.c ! hb_wvw_gtSetFont() gave wrong return value when it failed. -2005/04/07: +2005-04-07: * gtwvw.c ! bugfix:: gt_Puts(): truncate a too long string in case of MainCoord Mode. @@ -333,7 +333,7 @@ MISCELLANEOUS + HB_MSC_STARTUP, to write initialization of MSVC the current way ) -2005/02/24: +2005-02-24: * contrib/gtwvw/hbgtwvw.h * contrib/gtwvw/gtwvw.c * changes to enable compilation with DigitalMars C++ (aka @@ -341,12 +341,12 @@ MISCELLANEOUS by Symantec some time ago and enjoy further development from DigitalMars. It is another speedy compiler for xHarbour. -2005/02/22: +2005-02-22: Changes by Andi Jahja: * gtwvw.c * initialization in var declaration, to avoid warnings. -2005/02/20: +2005-02-20: Changes by Andi Jahja: * gtwvw.c + #include for WATCOMC compiler @@ -358,40 +358,40 @@ MISCELLANEOUS * hbgtwvw.h: * changes required by some C compilers -2005/01/14 +2005-01-14 + contrib/gtwvw/samples/cbtest1.prg + contrib/gtwvw/samples/cbtest2.prg * Samples on how to use GTWVW combobox. - 2005/01/13: + 2005-01-13: * gtwvw.c + wvw_cbIsDropped() new function ! hb_wvw_gtCBProc(): Handle ALT-F4 to avoid GPF if it is pressed when CB on focus - 2005/01/13: + 2005-01-13: * gtwvw.c ! Fixed a hidden bug: HB_GT_FUNC( mouse_SetPos ) was using X for row, and Y for col (!). - 2005/01/12: + 2005-01-12: * gtwvw.c * hbgtwvw.h * Many type castings by Andi Jahja to allow GTWVW to be compiled in MSVC/OW/PellesC/XCC/MinGW32. Thanks!!! - 2004/12/31: + 2004-12-31: * gtwvw.c - Sync with =Id: gtwvt.c,v 1.140 2004/12/28 20:32:33 ptsarenko Exp = + Sync with =Id: gtwvt.c,v 1.140 2004-12-28 20:32:33 ptsarenko Exp = * use CF_OEMTEXT parameter for clipboard functions for OEM charsets by Pavel Tsarenko. - 2004/12/23: + 2004-12-23: * gtwvw.c ! HB_FUNC( WVW_SETICON ) should pass hb_parc(3) instead of hb_parcx(3) to hb_wvw_gtSetWindowIcon() in order to allow proper NULL checking there. (hb_parcx(3) never returns NULL, even if param 3 is NIL. - 2004/12/22: + 2004-12-22: Combobox (dropdown listbox) is introduced. This feature is accessible throug the WVW_CB* functions. (See IMPORTANT NOTES below regarding wvw_cbAddString() and wvw_CBSetCurSel()) @@ -423,13 +423,13 @@ MISCELLANEOUS TODO: Create a sample of how to integrate combobox into regular GET system. - 2004/11/25: + 2004-11-25: Synchronizing with: - =Id: hbgtwvt.h,v 1.32 2004/11/23 17:04:20 lf_sfnet Exp = - =Id: gtwvt.c,v 1.138 2004/11/25 01:54:13 guerra000 Exp = - =Id: wvtutils.c,v 1.19 2004/11/23 17:04:23 lf_sfnet Exp = + =Id: hbgtwvt.h,v 1.32 2004-11-23 17:04:20 lf_sfnet Exp = + =Id: gtwvt.c,v 1.138 2004-11-25 01:54:13 guerra000 Exp = + =Id: wvtutils.c,v 1.19 2004-11-23 17:04:23 lf_sfnet Exp = (wvtcore.c is not changed since last sync: - =Id: wvtcore.c,v 1.10 2004/08/30 14:10:20 vouchcac Exp = + =Id: wvtcore.c,v 1.10 2004-08-30 14:10:20 vouchcac Exp = ) ------------------ @@ -452,16 +452,16 @@ MISCELLANEOUS * wvw_SetIcon() added one optional parm - 2004/11/23: + 2004-11-23: * gtwvw.c: + HB_GT_FUNC( gt_ProcessMessages ) - 2004/11/23: + 2004-11-23: * gtwvw.c: * FlashWindowEx is replaced with FlashWindow to make gtwvw work in Win95 - 2004/11/14: + 2004-11-14: * hbgtwvw.h * WIN_DATA: + int iLSpaceColor; /* line space color */ @@ -473,13 +473,13 @@ MISCELLANEOUS /**************************** BETA1-3 published at this point **/ - 2004/11/01: + 2004-11-01: * gtwvw.c ! wvw_DrawLabelObj(): bottom point +1, right point +1 - 2004/10/26: + 2004-10-26: Synchronizing with: - =Id: gtwvt.c,v 1.135 2004/10/24 09:43:45 oh1 Exp = + =Id: gtwvt.c,v 1.135 2004-10-24 09:43:45 oh1 Exp = * gtwvw.c * blank char for screen ' ' --> hb_ctGetClearB() @@ -489,11 +489,11 @@ MISCELLANEOUS See gtwin about what they should do. /**************************************************************** - * Release Date: 2004/10/25 (CVS contrib) - * Prev Release: 2004/09/26 + * Release Date: 2004-10-25 (CVS contrib) + * Prev Release: 2004-09-26 ****************************************************************/ - 2004/10/25: + 2004-10-25: * hbgtwvw.h * lpwAlign() and nCopyAnsiToWideChar() are now static * gtwvw.c @@ -504,13 +504,13 @@ MISCELLANEOUS This is to get rid of warnings in mingw32 as reported by Lorenzo Fiorini. - 2004/10/18: + 2004-10-18: Synchronizing with: (Beta1-2) - =Id: hbgtwvt.h,v 1.31 2004/09/28 03:25:07 vouchcac Exp = - =Id: gtwvt.c,v 1.133 2004/09/28 03:25:17 vouchcac Exp = - =Id: wvtutils.c,v 1.18 2004/09/28 03:25:18 vouchcac Exp = + =Id: hbgtwvt.h,v 1.31 2004-09-28 03:25:07 vouchcac Exp = + =Id: gtwvt.c,v 1.133 2004-09-28 03:25:17 vouchcac Exp = + =Id: wvtutils.c,v 1.18 2004-09-28 03:25:18 vouchcac Exp = (wvtcore.c is not changed since last sync: - =Id: wvtcore.c,v 1.10 2004/08/30 14:10:20 vouchcac Exp = + =Id: wvtcore.c,v 1.10 2004-08-30 14:10:20 vouchcac Exp = ) ------------------ @@ -526,14 +526,14 @@ MISCELLANEOUS + HB_FUNC( WVW_CREATEDIALOGMODAL ) - 2004/10/14: + 2004-10-14: * gtwvw.c: ! wvw_pbEnable(): after wvw_pbEnable(..., ..., .f.) focus should be set to parent window, otherwise no input is accepted. Fixed. Thanks to Fabio for reporting it. - 2004/09/30: + 2004-09-30: * gtwvw.c: * wvw_tbAddButton() new parm lMap3Dcolors This is to support transparent toolbar button @@ -541,8 +541,8 @@ MISCELLANEOUS /**************************************************************** - * Release Date: 2004/09/26 - * Prev Release: 2004/07/25 + * Release Date: 2004-09-26 + * Prev Release: 2004-07-25 ****************************************************************/ Contents @@ -772,9 +772,9 @@ WVW_Draw* functions. ====================================================================== Synchronizing with: (xHarbour Beta1-1 aka 0.99.1) - =Id: hbgtwvt.h,v 1.30 2004/09/15 03:52:49 bdj Exp = - =Id: gtwvt.c,v 1.132 2004/09/21 04:04:58 peterrees Exp = - =Id: wvtutils.c,v 1.17 2004/09/15 03:52:49 bdj Exp = + =Id: hbgtwvt.h,v 1.30 2004-09-15 03:52:49 bdj Exp = + =Id: gtwvt.c,v 1.132 2004-09-21 04:04:58 peterrees Exp = + =Id: wvtutils.c,v 1.17 2004-09-15 03:52:49 bdj Exp = (wvtcore.c is not changed since last sync) ====================================================================== @@ -798,11 +798,11 @@ WVW_Draw* functions. ====================================================================== Synchronizing with: - =Id: gtwvt.c,v 1.127 2004/08/31 12:57:28 vouchcac Exp = - =Id: wvtcore.c,v 1.10 2004/08/30 14:10:20 vouchcac Exp = - =Id: wvtutils.c,v 1.13 2004/08/30 14:10:20 vouchcac Exp = + =Id: gtwvt.c,v 1.127 2004-08-31 12:57:28 vouchcac Exp = + =Id: wvtcore.c,v 1.10 2004-08-30 14:10:20 vouchcac Exp = + =Id: wvtutils.c,v 1.13 2004-08-30 14:10:20 vouchcac Exp = Changelog: - =Id: ChangeLog,v 1.3412 2004/09/06 20:01:01 druzus Exp = + =Id: ChangeLog,v 1.3412 2004-09-06 20:01:01 druzus Exp = Last Entry: 2004-09-06 22:00 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) ====================================================================== diff --git a/harbour/extras/gtwvw/gtwvwd.c b/harbour/extras/gtwvw/gtwvwd.c index dc9a76d1d9..22504d8a0a 100644 --- a/harbour/extras/gtwvw/gtwvwd.c +++ b/harbour/extras/gtwvw/gtwvwd.c @@ -9,7 +9,7 @@ * * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console @@ -1512,14 +1512,14 @@ static BOOL hb_gt_wvw_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo ) break; case HB_GTI_SCREENHEIGHT: - /* NOTE 2004.06.18 currently not includes StatusBar and ToolBar, if any. + /* NOTE 2004-06-18 currently not includes StatusBar and ToolBar, if any. * TODO I Think it should return ALL window height, incl * StatusBar and ToolBar * ie. hb_gt_wvwCalcPixelHeight() * SEEALSO hb_gt_wvwCalcPixelHeight() */ - /*NOTE 2004.07.19 screenheight includes linespacing, if any */ + /*NOTE 2004-07-19 screenheight includes linespacing, if any */ pInfo->pResult = hb_itemPutNI( pInfo->pResult, hb_wvw_LineHeight( pWindowData ) * pWindowData->ROWS ); @@ -1548,7 +1548,7 @@ static BOOL hb_gt_wvw_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo ) case HB_GTI_DESKTOPHEIGHT: { - /* NOTE 2004.06.18 currently includes StatusBar and ToolBar, if any. + /* NOTE 2004-06-18 currently includes StatusBar and ToolBar, if any. * TODO Think: should it return chars area only? * SEEALSO hb_gt_wvwCalcPixelHeight() - usSBHeight - usTBHeight */ @@ -1575,12 +1575,12 @@ static BOOL hb_gt_wvw_Info( PHB_GT pGT, int iType, PHB_GT_INFO pInfo ) case HB_GTI_DESKTOPROWS: { - /* NOTE 2004.06.18 currently includes StatusBar and ToolBar, if any. + /* NOTE 2004-06-18 currently includes StatusBar and ToolBar, if any. * TODO I Think it should it return chars area only? * SEEALSO hb_gt_wvwCalcPixelHeight() - usSBHeight - usTBHeight */ - /* NOTE 2004.07.19 screenheight includes linespacing, if any */ + /* NOTE 2004-07-19 screenheight includes linespacing, if any */ RECT rDesk = { 0 }; HWND hDesk; @@ -2165,7 +2165,7 @@ static void hb_gt_wvwCreateObjects( UINT usWinNum ) { LOGBRUSH lb = { 0 }; - /* 2004.09.21 IMPORTANT: + /* 2004-09-21 IMPORTANT: All these PENs and BRUSHes creations are temporarily disabled because WINDOW #1's CAN'T BE DELETED LATER! See also hb_gt_wvwCloseWindow() and gt_Exit() @@ -2174,7 +2174,7 @@ static void hb_gt_wvwCreateObjects( UINT usWinNum ) or (2) do the creation and deletion only when required */ - /* 2004.09.23 choose #1 of above option */ + /* 2004-09-23 choose #1 of above option */ if( usWinNum > 0 ) return; @@ -2807,7 +2807,7 @@ static LRESULT CALLBACK hb_gt_wvwWndProc( HWND hWnd, UINT message, WPARAM wParam * BeginPaint resets the update rectangle - don't move it or nothing is drawn! */ - /* 2005.06.25 TODO: MSDN says app should NOT call BeginPaint if GetUpdateRect returns zero */ + /* 2005-06-25 TODO: MSDN says app should NOT call BeginPaint if GetUpdateRect returns zero */ hdc = BeginPaint( hWnd, &ps ); @@ -3468,7 +3468,7 @@ static LRESULT CALLBACK hb_gt_wvwWndProc( HWND hWnd, UINT message, WPARAM wParam fake an Alt+C */ - /* 2004.06.10 + /* 2004-06-10 reject if not accepting input (topmost window not on focus) */ if( ! hb_gt_wvwAcceptingInput() ) { @@ -3479,8 +3479,8 @@ static LRESULT CALLBACK hb_gt_wvwWndProc( HWND hWnd, UINT message, WPARAM wParam } if( usWinNum == 0 ) - /* bdj note 2006.07.24: - We should put this line here, as per FSG change on 2006.06.26: + /* bdj note 2006-07-24: + We should put this line here, as per FSG change on 2006-06-26: hb_gtHandleClose() However, if there is no gtSetCloseHandler, ALT+C effect is not produced as it should. So for now I put it back to the old behaviour with the following two lines, until hb_gtHandleClose() is fixed. @@ -3498,7 +3498,7 @@ static LRESULT CALLBACK hb_gt_wvwWndProc( HWND hWnd, UINT message, WPARAM wParam return 0; case WM_ENTERIDLE: - /* FSG - 2004.05.12 - Signal than i'm on idle */ + /* FSG - 2004-05-12 - Signal than i'm on idle */ hb_idleState(); return 0; @@ -5204,7 +5204,7 @@ static void hb_gt_wvwCloseWindow( void ) /*assume s_pWvwData->s_usNumWindows >= if( s_pWvwData->s_sApp->pSymWVW_TIMER ) KillTimer( pWindowData->hWnd, WVW_ID_BASE_TIMER + s_pWvwData->s_usNumWindows - 1 ); - /* 2004.09.21 IMPORTANT: + /* 2004-09-21 IMPORTANT: All these PENs and BRUSHes deletions return OK, but GDI objects are reported as still in use by Task Manager. We now temporarily disable PENs and BRUSHes creation during @@ -5215,7 +5215,7 @@ static void hb_gt_wvwCloseWindow( void ) /*assume s_pWvwData->s_usNumWindows >= or (2) do the creation and deletion only when required */ - /* 2004.09.23 choose #1 of above option + /* 2004-09-23 choose #1 of above option DeleteObject( ( HPEN ) pWindowData->penWhite ); DeleteObject( ( HPEN ) pWindowData->penWhiteDim ); DeleteObject( ( HPEN ) pWindowData->penBlack ); @@ -6502,7 +6502,7 @@ static void DrawTransparentBitmap( HDC hdc, HBITMAP hBitmap, short xStart, DeleteDC( hdcCopy ); } -/* 2006.07.24 Notes: +/* 2006-07-24 Notes: (1) Transparency if bTransparent is .t., top-left pixel is used as the transparent color, @@ -6534,7 +6534,7 @@ BOOL hb_gt_wvwDrawImage( UINT usWinNum, int x1, int y1, int wd, int ht, const ch if( ! pPic ) return FALSE; - /* 2006.07.24 canNOT do it this way: + /* 2006-07-24 canNOT do it this way: pPic->lpVtbl->get_Width( pPic,&lWidth ); pPic->lpVtbl->get_Height( pPic,&lHeight ); iWidth = (int) lWidth; @@ -7001,7 +7001,7 @@ WVW_DATA * hb_getWvwData( void ) /* */ -/* 2004.07.13 this function was named WVW_lOpenWindow() +/* 2004-07-13 this function was named WVW_lOpenWindow() * now it is wvw_nOpenWindow() * it now returns numeric @@ -7936,8 +7936,8 @@ HB_FUNC( WVW_GETTITLE ) /* Description: Return the RGB values passing the color positional value */ /* 0=Black, 1=Blue, etc */ /* as returned from hb_ColorToN() */ -/* Creat. Date: 2004/01/15 */ -/* Last Modif.: 2004/01/15 */ +/* Creat. Date: 2004-01-15 */ +/* Last Modif.: 2004-01-15 */ /* */ @@ -8507,7 +8507,7 @@ IPicture * rr_LoadPicture( const char * filename, LONG * lwidth, LONG * lheight /* PENDING decision: - 2004.09.08 TODO: GTWVT deliberately adds new parm aOffset before nRoundHeight + 2004-09-08 TODO: GTWVT deliberately adds new parm aOffset before nRoundHeight I hate it when doing such thing */ diff --git a/harbour/extras/gtwvw/tests/ebtest7.prg b/harbour/extras/gtwvw/tests/ebtest7.prg index 8bffb917e9..44f4253970 100644 --- a/harbour/extras/gtwvw/tests/ebtest7.prg +++ b/harbour/extras/gtwvw/tests/ebtest7.prg @@ -94,9 +94,7 @@ PROCEDURE Main() hbshell_gtSelect( "GTWVW" ) #endif - SET CENTURY ON - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) SetMode( 4, 54 ) // a small window SetColor( "N/W" ) wvw_SetFont( 0, "Courier New", 16, - 7 ) diff --git a/harbour/extras/gtwvw/tests/wvwtest9.prg b/harbour/extras/gtwvw/tests/wvwtest9.prg index 7e1d717772..02f0d6cf17 100644 --- a/harbour/extras/gtwvw/tests/wvwtest9.prg +++ b/harbour/extras/gtwvw/tests/wvwtest9.prg @@ -173,8 +173,7 @@ PROCEDURE Main() Set( _SET_EVENTMASK, INKEY_ALL ) - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) SET SCOREBOARD OFF // wvw_SetPaintRefresh( 0 ) wvw_SetVertCaret( .T. ) diff --git a/harbour/extras/gtwvw/wvwcheck.c b/harbour/extras/gtwvw/wvwcheck.c index b238d59231..73712153a0 100644 --- a/harbour/extras/gtwvw/wvwcheck.c +++ b/harbour/extras/gtwvw/wvwcheck.c @@ -9,7 +9,7 @@ * gtwvw checkbox/progressbar functions * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console diff --git a/harbour/extras/gtwvw/wvwdraw.c b/harbour/extras/gtwvw/wvwdraw.c index 22fd3f9338..7ada37b5bb 100644 --- a/harbour/extras/gtwvw/wvwdraw.c +++ b/harbour/extras/gtwvw/wvwdraw.c @@ -9,7 +9,7 @@ * gtwvw draw functions * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console diff --git a/harbour/extras/gtwvw/wvwedit.c b/harbour/extras/gtwvw/wvwedit.c index 18340fa113..2196863050 100644 --- a/harbour/extras/gtwvw/wvwedit.c +++ b/harbour/extras/gtwvw/wvwedit.c @@ -9,7 +9,7 @@ * gtwvw edit functions * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console diff --git a/harbour/extras/gtwvw/wvwfuncs.c b/harbour/extras/gtwvw/wvwfuncs.c index 0bfd8365bf..68e09cf20d 100644 --- a/harbour/extras/gtwvw/wvwfuncs.c +++ b/harbour/extras/gtwvw/wvwfuncs.c @@ -9,7 +9,7 @@ * gtwvw draw functions * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console diff --git a/harbour/extras/gtwvw/wvwmenu.c b/harbour/extras/gtwvw/wvwmenu.c index 1fe6f7345b..6c35feca10 100644 --- a/harbour/extras/gtwvw/wvwmenu.c +++ b/harbour/extras/gtwvw/wvwmenu.c @@ -9,7 +9,7 @@ * gtwvw menu Functions * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console diff --git a/harbour/extras/gtwvw/wvwpush.c b/harbour/extras/gtwvw/wvwpush.c index 1cea4b4b08..11446ade40 100644 --- a/harbour/extras/gtwvw/wvwpush.c +++ b/harbour/extras/gtwvw/wvwpush.c @@ -9,7 +9,7 @@ * gtwvw pushbutton/ combobox functions * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console diff --git a/harbour/extras/gtwvw/wvwstbar.c b/harbour/extras/gtwvw/wvwstbar.c index af8ec968cd..049e1a2004 100644 --- a/harbour/extras/gtwvw/wvwstbar.c +++ b/harbour/extras/gtwvw/wvwstbar.c @@ -9,7 +9,7 @@ * gtwvw statusbar/scrollbar functions * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console diff --git a/harbour/extras/gtwvw/wvwtbar.c b/harbour/extras/gtwvw/wvwtbar.c index 004338d6c2..139c3f1fda 100644 --- a/harbour/extras/gtwvw/wvwtbar.c +++ b/harbour/extras/gtwvw/wvwtbar.c @@ -9,7 +9,7 @@ * gtwvw toolbar and tooltips functions * GTWVW is initially created based on: * - * =Id: gtwvt.c,v 1.60 2004/01/26 08:14:07 vouchcac Exp = + * =Id: gtwvt.c,v 1.60 2004-01-26 08:14:07 vouchcac Exp = * * Harbour Project source code: * Video subsystem for Windows using GUI windows instead of Console diff --git a/harbour/extras/guestbk/cgi.prg b/harbour/extras/guestbk/cgi.prg index a208ef4ed4..77bec6691c 100644 --- a/harbour/extras/guestbk/cgi.prg +++ b/harbour/extras/guestbk/cgi.prg @@ -6,18 +6,18 @@ * * Harbour Test of a CGI/HTML-Generator class. * -* 1999/05/30 First implementation. +* 1999-05-30 First implementation. * * Tips: - Use ShowResults to make dynamic html (to test dynamic * results, put the exe file on CGI-BIN dir or equivalent); * - Use SaveToFile to make static html page * -* 1999/05/31 Initial CGI functionality. -* 1999/06/01 Translated %nn to correct chars. -* 1999/06/02 Dynamic TAG matching routines (inspired on Delphi). +* 1999-05-31 Initial CGI functionality. +* 1999-06-01 Translated %nn to correct chars. +* 1999-06-02 Dynamic TAG matching routines (inspired on Delphi). * First attempt to convert Delphi's ISAPI dll of WebSites' * Function List -* 1999/07/29 Changed QOut() calls to OutStd() calls. +* 1999-07-29 Changed QOut() calls to OutStd() calls. * **/ diff --git a/harbour/extras/hbxlsxml/tests/example.prg b/harbour/extras/hbxlsxml/tests/example.prg index 54c5aa7092..66575f811e 100644 --- a/harbour/extras/hbxlsxml/tests/example.prg +++ b/harbour/extras/hbxlsxml/tests/example.prg @@ -65,7 +65,7 @@ PROCEDURE Main() LOCAL xOrdem LOCAL oObj - SET DATE ANSI + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) oXml := ExcelWriterXML():New( xarquivo ) oXml:setOverwriteFile( .T. ) @@ -172,9 +172,9 @@ PROCEDURE Main() oObj:columnWidth( 13, 80 ) // Valor IPI xEmpresa := "EMPRESA DEMONSTRACAO LTDA" - xDataImp := "2011.03.22" + xDataImp := "2011-03-22" xTitulo := "RELATORIO PARA DEMONSTRAR XML EXCEL" - xPeriodo := "2011.02.01 a 2011.02.28" + xPeriodo := "2011-02-01 a 2011-02-28" xOrdem := "DATA DE EMISSAO" nLinha := 0 diff --git a/harbour/extras/httpsrv/uhttpd.prg b/harbour/extras/httpsrv/uhttpd.prg index da503cd4be..24aa2097f9 100644 --- a/harbour/extras/httpsrv/uhttpd.prg +++ b/harbour/extras/httpsrv/uhttpd.prg @@ -12,7 +12,7 @@ * * Credits: * Based on first version posted from Mindaugas Kavaliauskas on - * developers NG on 2008.12.15 whom give my thanks to have + * developers NG on 2008-12-15 whom give my thanks to have * shared initial work. * Francesco. * diff --git a/harbour/extras/rddado/tests/access1.prg b/harbour/extras/rddado/tests/access1.prg index 2977542bb3..824587892e 100644 --- a/harbour/extras/rddado/tests/access1.prg +++ b/harbour/extras/rddado/tests/access1.prg @@ -10,8 +10,7 @@ REQUEST ADORDD PROCEDURE Main() - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) USE ( hb_DirBase() + "test.mdb" ) VIA "ADORDD" TABLE "Table1" diff --git a/harbour/extras/rddado/tests/access2.prg b/harbour/extras/rddado/tests/access2.prg index be4421eb10..ca50b5350a 100644 --- a/harbour/extras/rddado/tests/access2.prg +++ b/harbour/extras/rddado/tests/access2.prg @@ -12,8 +12,7 @@ REQUEST ADORDD PROCEDURE Main() - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) dbCreate( "test2.mdb;table1", { ; { "FIRST", "C", 10, 0 }, ; diff --git a/harbour/include/hbclass.ch b/harbour/include/hbclass.ch index f2ebd3fc91..16915927df 100644 --- a/harbour/include/hbclass.ch +++ b/harbour/include/hbclass.ch @@ -478,7 +478,7 @@ DECLARE HBClass ; #xcommand PROTECTED: => nScope := HB_OO_CLSTP_PROTECTED; HB_SYMBOL_UNUSED( nScope ) - /* Classy compatibility... Added By JF Lefebvre (mafact) 2006/11/07 */ + /* Classy compatibility... Added By JF Lefebvre (mafact) 2006-11-07 */ #xcommand METHOD [ AS ] INLINE [Local ,] [] => ; MESSAGE [ AS ] BLOCK {|Self [,] | HB_SYMBOL_UNUSED(Self), } [ ] diff --git a/harbour/src/common/hbdate.c b/harbour/src/common/hbdate.c index 6938abccd1..2e4ec50109 100644 --- a/harbour/src/common/hbdate.c +++ b/harbour/src/common/hbdate.c @@ -99,8 +99,8 @@ #define HB_DATE_YEAR_LIMIT 9999 #endif -#define HB_STR_DATE_BASE 1721060 /* 0000/01/01 */ -#define HB_SYS_DATE_BASE 2440588 /* 1970/01/01 */ +#define HB_STR_DATE_BASE 1721060 /* 0000-01-01 */ +#define HB_SYS_DATE_BASE 2440588 /* 1970-01-01 */ void hb_timeStampGetLocal( int * piYear, int * piMonth, int * piDay, diff --git a/harbour/src/debug/dbgtarr.prg b/harbour/src/debug/dbgtarr.prg index b1823a0fc1..4ec47ee7e8 100644 --- a/harbour/src/debug/dbgtarr.prg +++ b/harbour/src/debug/dbgtarr.prg @@ -123,7 +123,7 @@ METHOD addWindows( aArray, nRow ) CLASS HBDbArray oBrwSets:AddColumn( oCol := HBDbColumnNew( "", {|| PadR( __dbgValToStr( aArray[ oBrwSets:cargo[ 1 ] ] ), nWidth - nColWidth - 1 ) } ) ) - /* 2004.08.09 - + /* 2004-08-09 - Setting a fixed width like it is done in the next line of code wich I've commented exploits a bug of current tbrowse, that is, if every column is narrower than tbrowse but the sum of them is wider tbrowse paints diff --git a/harbour/src/debug/dbgthsh.prg b/harbour/src/debug/dbgthsh.prg index b786afa128..0ee90646a2 100644 --- a/harbour/src/debug/dbgthsh.prg +++ b/harbour/src/debug/dbgthsh.prg @@ -127,7 +127,7 @@ METHOD addWindows( hHash, nRow ) CLASS HBDbHash oBrwSets:AddColumn( oCol := HBDbColumnNew( "", {|| PadR( __dbgValToStr( hb_HValueAt( hHash, oBrwSets:cargo[ 1 ] ) ), nWidth - nColWidth - 1 ) } ) ) - /* 2004.08.09 - + /* 2004-08-09 - Setting a fixed width like it is done in the next line of code wich I've commented exploits a bug of current tbrowse, that is, if every column is narrower than tbrowse but the sum of them is wider tbrowse paints diff --git a/harbour/src/rdd/dbfcdx/dbfcdx1.c b/harbour/src/rdd/dbfcdx/dbfcdx1.c index 28a516f440..0248acde3d 100644 --- a/harbour/src/rdd/dbfcdx/dbfcdx1.c +++ b/harbour/src/rdd/dbfcdx/dbfcdx1.c @@ -6878,7 +6878,7 @@ static HB_ERRCODE hb_cdxGoCold( CDXAREAP pArea ) * Without changes in locking scheme we can do only one thing which * is enough if there is only one index file: lock first index only * before SUPER_GOCOLD - * Druzus, 2003.10.05 10:27:52 CEST + * Druzus, 2003-10-05 10:27:52 CEST */ while( pTag ) diff --git a/harbour/src/rdd/usrrdd/rdds/arrayrdd.prg b/harbour/src/rdd/usrrdd/rdds/arrayrdd.prg index bced6f852e..fb8e2a75d0 100644 --- a/harbour/src/rdd/usrrdd/rdds/arrayrdd.prg +++ b/harbour/src/rdd/usrrdd/rdds/arrayrdd.prg @@ -292,7 +292,7 @@ STATIC FUNCTION AR_CREATE( nWA, aOpenInfo ) /* Check if database is already present in memory slots */ /* - 2008.11.07 FSG - dbCreate() doesn't check if a dbf file exists. So I will not check it. + 2008-11-07 FSG - dbCreate() doesn't check if a dbf file exists. So I will not check it. If you need to check if a table exists use hb_FileArrayRdd() function that works in similar way of File(), i.e.: IF hb_FileArrayRdd( cFullName ) @@ -1758,8 +1758,8 @@ STATIC FUNCTION EmptyValue( cType, nLen, nDec ) /** * Function .......: hb_Decode( , [ ]> ) ---> * Author .........: Francesco Saverio Giudice - * Date of creation: 1991/01/25 - * Last revision ..: 2006/01/24 1.13 - rewritten for xHarbour and renamed in hb_Decode() + * Date of creation: 1991-01-25 + * Last revision ..: 2006-01-24 1.13 - rewritten for xHarbour and renamed in hb_Decode() * * Decode a value from a list. */ diff --git a/harbour/src/rtl/filesys.c b/harbour/src/rtl/filesys.c index fcf3fe140c..3e71ec46ab 100644 --- a/harbour/src/rtl/filesys.c +++ b/harbour/src/rtl/filesys.c @@ -229,7 +229,7 @@ #endif #if defined( HB_OS_HAS_DRIVE_LETTER ) -/* 2004.08.27 - +/* 2004-08-27 - HB_FS_GETDRIVE() should return a number in the range 0..25 ('A'..'Z') HB_FS_SETDRIVE() should accept a number inside same range. diff --git a/harbour/src/rtl/gtos2/gtos2.c b/harbour/src/rtl/gtos2/gtos2.c index e1c73a3784..f741b8cb92 100644 --- a/harbour/src/rtl/gtos2/gtos2.c +++ b/harbour/src/rtl/gtos2/gtos2.c @@ -111,7 +111,7 @@ #define SELTOFLAT( ptr ) ( void * ) ( ( ( ( ( ULONG ) ( ptr ) ) >> 19 ) << 16 ) | ( 0xFFFF & ( ( ULONG ) ( ptr ) ) ) ) #if defined( HB_OS_OS2_GCC ) - /* 2000.03.25 - maurilio.longo@libero.it + /* 2000-03-25 - maurilio.longo@libero.it OS/2 GCC hasn't got ToolKit headers available */ #include #else @@ -562,7 +562,7 @@ static void hb_gt_os2_Init( PHB_GT pGT, HB_FHANDLE hFilenoStdin, HB_FHANDLE hFil box drawing chars. (Maurilio Longo - maurilio.longo@libero.it) */ - /* 2001.08.21 - + /* 2001-08-21 - NOTE: Box drawing characters need page 437 to show correctly, so, in your config.sys you need to have a CODEPAGE=x,y statement where x or y is equal to 437 diff --git a/harbour/src/rtl/gtwvt/gtwvt.c b/harbour/src/rtl/gtwvt/gtwvt.c index a04706323d..5db78df3c5 100644 --- a/harbour/src/rtl/gtwvt/gtwvt.c +++ b/harbour/src/rtl/gtwvt/gtwvt.c @@ -1864,11 +1864,11 @@ static LRESULT CALLBACK hb_gt_wvt_WndProc( HWND hWnd, UINT message, WPARAM wPara return 0; case WM_ENTERIDLE: - /* FSG - 2004.05.12 - Signal than i'm on idle */ + /* FSG - 2004-05-12 - Signal than i'm on idle */ hb_idleState(); return 0; - /* Pritpal Bedi - 2008.06.06 */ + /* Pritpal Bedi - 2008-06-06 */ case WM_ACTIVATE: hb_gt_wvt_AddCharToInputQueue( pWVT, ( LOWORD( wParam ) == WA_INACTIVE ? HB_K_LOSTFOCUS : HB_K_GOTFOCUS ) ); return 0; diff --git a/harbour/src/rtl/net.c b/harbour/src/rtl/net.c index 3afea39956..056b6747c1 100644 --- a/harbour/src/rtl/net.c +++ b/harbour/src/rtl/net.c @@ -67,7 +67,7 @@ #include "hb_io.h" - /* 2004.03.25 - + /* 2004-03-25 - not needed anymore as of GCC 3.2.2 */ #include diff --git a/harbour/src/rtl/teditor.prg b/harbour/src/rtl/teditor.prg index a3dfc4fce9..3fb9d565be 100644 --- a/harbour/src/rtl/teditor.prg +++ b/harbour/src/rtl/teditor.prg @@ -695,7 +695,7 @@ METHOD Edit( nPassedKey ) CLASS HBEditor nKey := nPassedKey ENDIF - // 2002.09.03 - maurilio.longo@libero.it + // 2002-09-03 - maurilio.longo@libero.it // NOTE: I think this code should only be present on classes derived from TEditor which is // a low level "editing engine".. For now I leave it here... IF ( bKeyBlock := SetKey( nKey ) ) != NIL diff --git a/harbour/src/vm/thread.c b/harbour/src/vm/thread.c index 74e827beeb..2d9151f26d 100644 --- a/harbour/src/vm/thread.c +++ b/harbour/src/vm/thread.c @@ -267,7 +267,7 @@ void hb_threadReleaseCPU( void ) #elif defined( HB_OS_OS2 ) - /* 2000.11.23 - maurilio.longo@libero.it + /* 2000-11-23 - maurilio.longo@libero.it Minimum time slice under OS/2 is 32 milliseconds, passed 1 will be rounded to 32 and will give a chance to threads of lower priority to get executed. Passing 0 causes current thread to give up its time slice only if there are threads of diff --git a/harbour/tests/adir.prg b/harbour/tests/adir.prg index 551b25ac1e..27653e27f3 100644 --- a/harbour/tests/adir.prg +++ b/harbour/tests/adir.prg @@ -31,8 +31,7 @@ STATIC FUNCTION TestIt( cSpec ) a := ADir( cSpec, , , , , {} ) - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) a1 := Array( a ) a2 := Array( a ) diff --git a/harbour/tests/ddate.prg b/harbour/tests/ddate.prg index 410b5b7d30..6f67fc89dc 100644 --- a/harbour/tests/ddate.prg +++ b/harbour/tests/ddate.prg @@ -7,31 +7,30 @@ PROCEDURE Main() LOCAL dDate LOCAL A - SET DATE FORMAT TO "YYYY.MM.DD" - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) dDate := 0d20051112 - ? "Should be '2005.11.12' :", dDate + ? "Should be '2005-11-12' :", dDate dDate := 0d18341112 - ? "Should be '1834.11.12' :", dDate + ? "Should be '1834-11-12' :", dDate dDate := 0d20040229 + 1 - ? "Should be '2004.03.01' :", dDate + ? "Should be '2004-03-01' :", dDate dDate := 0d20040229 - 1 - ? "Should be '2004.02.28' :", dDate + ? "Should be '2004-02-28' :", dDate ? "Should be '4' :", 0d20040229 - 0d20040225 ? "Should be '0' :", 0d20040229 - 0d20040229 dDate := 0d20000229 - ? "Should be '2000.02.29' :", dDate + ? "Should be '2000-02-29' :", dDate a := "0d20040229+1" - ? "Should be '2004.03.01' :", &a + ? "Should be '2004-03-01' :", &a a := "Date() - 0d20051112" - ? "Number of days from 2005.11.12:", &a + ? "Number of days from 2005-11-12:", &a RETURN diff --git a/harbour/tests/directry.prg b/harbour/tests/directry.prg index a98da47929..3634043722 100644 --- a/harbour/tests/directry.prg +++ b/harbour/tests/directry.prg @@ -18,7 +18,7 @@ PROCEDURE Main( filespec, attribs, cshort ) // aDir := ASort( Directory( filespec, attribs, lShort ),,, {| x, y | Upper( x[ F_NAME ] ) < Upper( y[ F_NAME ] ) } ) aDir := Directory( filespec, attribs, lShort ) - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) FOR x := 1 TO Len( aDir ) ? ; diff --git a/harbour/tests/extend1.prg b/harbour/tests/extend1.prg index 7f5786ca75..0bd70097c7 100644 --- a/harbour/tests/extend1.prg +++ b/harbour/tests/extend1.prg @@ -10,7 +10,7 @@ PROCEDURE Main() LOCAL uVar - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) ? "Testing Harbour Extended system:" ? "================================" diff --git a/harbour/tests/newrdd.prg b/harbour/tests/newrdd.prg index d5c3fe5841..9f46274aec 100644 --- a/harbour/tests/newrdd.prg +++ b/harbour/tests/newrdd.prg @@ -12,6 +12,8 @@ PROCEDURE Main() LOCAL nI, aArray + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + rddSetDefault( "DBF" ) SET EXCLUSIVE OFF diff --git a/harbour/tests/rto_get.prg b/harbour/tests/rto_get.prg index 5a5789a911..d8cb5d922b 100644 --- a/harbour/tests/rto_get.prg +++ b/harbour/tests/rto_get.prg @@ -104,8 +104,7 @@ PROCEDURE Main( cArg01, cArg02, cArg03, cArg04 ) cArg04 := "" ENDIF - SET DATE ANSI - SET CENTURY OFF + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) // ; @@ -1832,23 +1831,14 @@ FUNCTION hb_SToD( cDate ) #ifndef __HARBOUR__ #ifndef __XPP__ -FUNCTION hb_SToD( cDate ) - LOCAL cOldDateFormat - LOCAL dDate +FUNCTION hb_SToD( s ) - IF ValType( cDate ) == "C" .AND. ! Empty( cDate ) - cOldDateFormat := Set( _SET_DATEFORMAT, "yyyy/mm/dd" ) + LOCAL cDf := Set( _SET_DATEFORMAT, "YYYY/MM/DD" ), dt - dDate := CToD( SubStr( cDate, 1, 4 ) + "/" +; - SubStr( cDate, 5, 2 ) + "/" +; - SubStr( cDate, 7, 2 ) ) + dt := CToD( Stuff( Stuff( s, 7, 0, "/" ), 5, 0, "/" ) ) + Set( _SET_DATEFORMAT, cDf ) - Set( _SET_DATEFORMAT, cOldDateFormat ) - ELSE - dDate := CToD( "" ) - ENDIF - - RETURN dDate + RETURN dt #endif #endif diff --git a/harbour/tests/rto_tb.prg b/harbour/tests/rto_tb.prg index 6bbb40e779..ef1fad7da8 100644 --- a/harbour/tests/rto_tb.prg +++ b/harbour/tests/rto_tb.prg @@ -110,8 +110,7 @@ PROCEDURE Main( cArg01, cArg02, cArg03, cArg04 ) cArg04 := "" ENDIF - SET DATE ANSI - SET CENTURY OFF + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) // ; @@ -791,23 +790,14 @@ FUNCTION hb_SToD( cDate ) #ifndef __HARBOUR__ #ifndef __XPP__ -FUNCTION hb_SToD( cDate ) - LOCAL cOldDateFormat - LOCAL dDate +FUNCTION hb_SToD( s ) - IF ValType( cDate ) == "C" .AND. ! Empty( cDate ) - cOldDateFormat := Set( _SET_DATEFORMAT, "yyyy/mm/dd" ) + LOCAL cDf := Set( _SET_DATEFORMAT, "YYYY/MM/DD" ), dt - dDate := CToD( SubStr( cDate, 1, 4 ) + "/" +; - SubStr( cDate, 5, 2 ) + "/" +; - SubStr( cDate, 7, 2 ) ) + dt := CToD( Stuff( Stuff( s, 7, 0, "/" ), 5, 0, "/" ) ) + Set( _SET_DATEFORMAT, cDf ) - Set( _SET_DATEFORMAT, cOldDateFormat ) - ELSE - dDate := CToD( "" ) - ENDIF - - RETURN dDate + RETURN dt #endif #endif diff --git a/harbour/tests/say.prg b/harbour/tests/say.prg index a51e435fb0..65531e0746 100644 --- a/harbour/tests/say.prg +++ b/harbour/tests/say.prg @@ -6,6 +6,8 @@ PROCEDURE Main() + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) + CLS SET CENTURY ON @ 2, 39 TO 7, 39 DOUBLE diff --git a/harbour/tests/speedtst.prg b/harbour/tests/speedtst.prg index 8c51febf75..0ce73b3ea8 100644 --- a/harbour/tests/speedtst.prg +++ b/harbour/tests/speedtst.prg @@ -162,8 +162,7 @@ proc main( _p01, _p02, _p03, _p04, _p05, _p06, _p07, _p08, _p09, _p10, ; #endif local nMT, cExclude, lScale, cParam, cMemTests, lSyntax, i, j - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) lSyntax := lScale := .f. cMemTests := "030 031 023 025 027 041 042 044 053 054 019 022 032 033 055 056 " diff --git a/harbour/tests/tb1.prg b/harbour/tests/tb1.prg index 64cca24c52..ea92369c90 100644 --- a/harbour/tests/tb1.prg +++ b/harbour/tests/tb1.prg @@ -58,8 +58,7 @@ PROCEDURE Main() nRight := 70 cColor := "W+/R,G+/BR,RG+/B,BG+/G,N/GR,GR+/BG,B/GR*" - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) // enable mouse events in CL53/Harbour #ifdef _SET_EVENTMASK diff --git a/harbour/tests/usrrdd/exarr.prg b/harbour/tests/usrrdd/exarr.prg index 168153ca18..ddb11ab871 100644 --- a/harbour/tests/usrrdd/exarr.prg +++ b/harbour/tests/usrrdd/exarr.prg @@ -58,8 +58,7 @@ PROCEDURE Main() LOCAL aStruct - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) SET DELETED OFF CLS diff --git a/harbour/tests/vmasort.prg b/harbour/tests/vmasort.prg index 7a1742530b..6f6281bee4 100644 --- a/harbour/tests/vmasort.prg +++ b/harbour/tests/vmasort.prg @@ -22,8 +22,7 @@ PROCEDURE Main( nPass ) aTest := aMkArray( nPass ) aOrig := AClone( aTest ) - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) ? "Original.....:", aDump( aOrig ) ? "asort.c......:", aDump( ASort( aTest ) ) diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index 9d67322b62..dce77f2bbc 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -679,7 +679,7 @@ STATIC PROCEDURE hbmk_local_entry( ... ) /* for temp debug messages */ - Set( _SET_DATEFORMAT, "yyyy.mm.dd" ) + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) /* Check if we should go into shell mode */ @@ -1729,7 +1729,7 @@ STATIC FUNCTION __hbmk( aArgs, nArgTarget, nLevel, /* @ */ lPause, /* @ */ lExit aLIB_BASE_CPLR , ; aLIB_BASE_3 , ; aLIB_BASE_3_MT , ; - { cLIB_BASE_PCRE } , ; + { cLIB_BASE_PCRE }, ; { cLIB_BASE_ZLIB } } ) hbmk[ _HBMK_nCOMPVer ] := Val( GetEnv( "HB_COMPILER_VER" ) ) /* Format: <15><00>[.<00>] = [.] */ @@ -1872,8 +1872,8 @@ STATIC FUNCTION __hbmk( aArgs, nArgTarget, nLevel, /* @ */ lPause, /* @ */ lExit watcom also keeps a cl.exe in its binary dir. */ #if ! defined( __PLATFORM__UNIX ) aCOMPDET := { ; - { {|| FindInPath( "arm-mingw32ce-gcc" ) }, "mingwarm", "arm-mingw32ce-",, "wce" } , ; - { {|| FindInPath( "arm-wince-mingw32ce-gcc" ) }, "mingwarm", "arm-wince-mingw32ce-",, "wce" } , ; + { {|| FindInPath( "arm-mingw32ce-gcc" ) }, "mingwarm", "arm-mingw32ce-",, "wce" }, ; + { {|| FindInPath( "arm-wince-mingw32ce-gcc" ) }, "mingwarm", "arm-wince-mingw32ce-",, "wce" }, ; { {|| FindInSamePath( "cygstart.exe", "gcc" ) }, "gcc",,, "cygwin" }, ; { {|| FindInPath( "gcc-dw2" ) }, "mingw", "", "-dw2" }, ; /* tdragon DWARF-2 build */ { {|| FindInPath( "x86_64-pc-mingw32-gcc" ) }, "mingw64" }, ; /* Equation Solution build */ @@ -1882,7 +1882,7 @@ STATIC FUNCTION __hbmk( aArgs, nArgTarget, nLevel, /* @ */ lPause, /* @ */ lExit { {|| FindInPath( "x86_64-w64-mingw32-gcc" ) }, "mingw64", "x86_64-w64-mingw32-" }, ; /* mingw-w64 build */ { {|| FindInPath( hbmk[ _HBMK_cCCPREFIX ] + "gcc" + hbmk[ _HBMK_cCCSUFFIX ] ) }, "mingw" }, ; { {|| iif( Empty( GetEnv( "WATCOM" ) ), ; - NIL , ; + NIL, ; FindInPath( "wcc386" ) ) }, "watcom" }, ; { {|| FindInPath( "clarm.exe" ) }, "msvcarm" }, ; { {|| FindInPath( "armasm.exe" ) }, "msvcarm" }, ; @@ -1917,9 +1917,9 @@ STATIC FUNCTION __hbmk( aArgs, nArgTarget, nLevel, /* @ */ lPause, /* @ */ lExit { {|| FindInPath( "clarm.exe" ) }, "msvcarm" }, ; { {|| FindInPath( "armasm.exe" ) }, "msvcarm" }, ; { {|| FindInPath( "pocc.exe" ) }, "poccarm" }, ; - { {|| FindInPath( "arm-mingw32ce-gcc" ) }, "mingwarm", "arm-mingw32ce-" } , ; - { {|| FindInPath( "arm-wince-mingw32ce-gcc" ) }, "mingwarm", "arm-wince-mingw32ce-" } , ; - { {|| FindInPath( "i386-mingw32ce-gcc" ) }, "mingw" , "i386-mingw32ce-" } , ; + { {|| FindInPath( "arm-mingw32ce-gcc" ) }, "mingwarm", "arm-mingw32ce-" }, ; + { {|| FindInPath( "arm-wince-mingw32ce-gcc" ) }, "mingwarm", "arm-wince-mingw32ce-" }, ; + { {|| FindInPath( "i386-mingw32ce-gcc" ) }, "mingw" , "i386-mingw32ce-" }, ; { {|| iif( ! Empty( hbmk[ _HBMK_cCCPREFIX ] ) .OR. ! Empty( hbmk[ _HBMK_cCCSUFFIX ] ), ; FindInPath( hbmk[ _HBMK_cCCPREFIX ] + "gcc" + hbmk[ _HBMK_cCCSUFFIX ] ), ; NIL ) }, "mingwarm" } } @@ -7520,7 +7520,7 @@ STATIC PROCEDURE AAddWithWarning( hbmk, aArray, cOption, aParam, lNew ) "-Wl,--allow-multiple-definition", ; /* gcc */ "muldefs", ; /* ld '-z muldefs' */ "force:multiple", ; /* msvc, pocc, watcom, xcc */ - "w-dup" , ; /* bcc */ + "w-dup", ; /* bcc */ "w-dpl" } /* bcc (for libs) */ IF AScan( sc_aWarning, {| tmp | Lower( tmp ) $ Lower( cOption ) } ) > 0 @@ -8363,95 +8363,95 @@ STATIC FUNCTION s_getIncludedFiles( hbmk, cFile, cParentDir, lCMode ) IF t_hExclStd == NIL t_hExclStd := { ; - "assert.h" => NIL , ; /* Standard C */ - "ctype.h" => NIL , ; - "errno.h" => NIL , ; - "float.h" => NIL , ; - "limits.h" => NIL , ; - "locale.h" => NIL , ; - "math.h" => NIL , ; - "setjmp.h" => NIL , ; - "signal.h" => NIL , ; - "stdarg.h" => NIL , ; - "stddef.h" => NIL , ; - "stdio.h" => NIL , ; - "stdlib.h" => NIL , ; - "string.h" => NIL , ; - "time.h" => NIL , ; - "iso646.h" => NIL , ; /* ISO C NA1 */ - "wchar.h" => NIL , ; - "wctype.h" => NIL , ; - "complex.h" => NIL , ; /* ISO C C99 */ - "fenv.h" => NIL , ; - "inttypes.h" => NIL , ; - "stdbool.h" => NIL , ; - "stdint.h" => NIL , ; - "tgmath.h" => NIL , ; - "unistd.h" => NIL , ; /* Standard C POSIX */ - "aio.h" => NIL , ; - "arpa/inet.h" => NIL , ; - "cpio.h" => NIL , ; - "dirent.h" => NIL , ; - "dlfcn.h" => NIL , ; - "fcntl.h" => NIL , ; - "fmtmsg.h" => NIL , ; - "fnmatch.h" => NIL , ; - "ftw.h" => NIL , ; - "glob.h" => NIL , ; - "grp.h" => NIL , ; - "iconv.h" => NIL , ; - "langinfo.h" => NIL , ; - "libgen.h" => NIL , ; - "monetary.h" => NIL , ; - "mqueue.h" => NIL , ; - "ndbm.h" => NIL , ; - "net/if.h" => NIL , ; - "netdb.h" => NIL , ; - "netinet/in.h" => NIL , ; - "netinet/tcp.h" => NIL , ; - "nl_types.h" => NIL , ; - "poll.h" => NIL , ; - "pthread.h" => NIL , ; - "pwd.h" => NIL , ; - "regex.h" => NIL , ; - "sched.h" => NIL , ; - "search.h" => NIL , ; - "semaphore.h" => NIL , ; - "spawn.h" => NIL , ; - "strings.h" => NIL , ; - "stropts.h" => NIL , ; - "sys/ipc.h" => NIL , ; - "sys/mman.h" => NIL , ; - "sys/msg.h" => NIL , ; - "sys/resource.h" => NIL , ; - "sys/select.h" => NIL , ; - "sys/sem.h" => NIL , ; - "sys/shm.h" => NIL , ; - "sys/socket.h" => NIL , ; - "sys/stat.h" => NIL , ; - "sys/statvfs.h" => NIL , ; - "sys/time.h" => NIL , ; - "sys/times.h" => NIL , ; - "sys/types.h" => NIL , ; - "sys/uio.h" => NIL , ; - "sys/un.h" => NIL , ; - "sys/utsname.h" => NIL , ; - "sys/wait.h" => NIL , ; - "syslog.h" => NIL , ; - "tar.h" => NIL , ; - "termios.h" => NIL , ; - "trace.h" => NIL , ; - "ulimit.h" => NIL , ; - "unistd.h" => NIL , ; - "utime.h" => NIL , ; - "utmpx.h" => NIL , ; - "wordexp.h" => NIL , ; - "windows.h" => NIL , ; /* OS (win) */ - "winspool.h" => NIL , ; - "shellapi.h" => NIL , ; - "ole2.h" => NIL , ; - "dos.h" => NIL , ; /* OS (dos) */ - "os2.h" => NIL } /* OS (os2) */ + "assert.h" => NIL, ; /* Standard C */ + "ctype.h" => NIL, ; + "errno.h" => NIL, ; + "float.h" => NIL, ; + "limits.h" => NIL, ; + "locale.h" => NIL, ; + "math.h" => NIL, ; + "setjmp.h" => NIL, ; + "signal.h" => NIL, ; + "stdarg.h" => NIL, ; + "stddef.h" => NIL, ; + "stdio.h" => NIL, ; + "stdlib.h" => NIL, ; + "string.h" => NIL, ; + "time.h" => NIL, ; + "iso646.h" => NIL, ; /* ISO C NA1 */ + "wchar.h" => NIL, ; + "wctype.h" => NIL, ; + "complex.h" => NIL, ; /* ISO C C99 */ + "fenv.h" => NIL, ; + "inttypes.h" => NIL, ; + "stdbool.h" => NIL, ; + "stdint.h" => NIL, ; + "tgmath.h" => NIL, ; + "unistd.h" => NIL, ; /* Standard C POSIX */ + "aio.h" => NIL, ; + "arpa/inet.h" => NIL, ; + "cpio.h" => NIL, ; + "dirent.h" => NIL, ; + "dlfcn.h" => NIL, ; + "fcntl.h" => NIL, ; + "fmtmsg.h" => NIL, ; + "fnmatch.h" => NIL, ; + "ftw.h" => NIL, ; + "glob.h" => NIL, ; + "grp.h" => NIL, ; + "iconv.h" => NIL, ; + "langinfo.h" => NIL, ; + "libgen.h" => NIL, ; + "monetary.h" => NIL, ; + "mqueue.h" => NIL, ; + "ndbm.h" => NIL, ; + "net/if.h" => NIL, ; + "netdb.h" => NIL, ; + "netinet/in.h" => NIL, ; + "netinet/tcp.h" => NIL, ; + "nl_types.h" => NIL, ; + "poll.h" => NIL, ; + "pthread.h" => NIL, ; + "pwd.h" => NIL, ; + "regex.h" => NIL, ; + "sched.h" => NIL, ; + "search.h" => NIL, ; + "semaphore.h" => NIL, ; + "spawn.h" => NIL, ; + "strings.h" => NIL, ; + "stropts.h" => NIL, ; + "sys/ipc.h" => NIL, ; + "sys/mman.h" => NIL, ; + "sys/msg.h" => NIL, ; + "sys/resource.h" => NIL, ; + "sys/select.h" => NIL, ; + "sys/sem.h" => NIL, ; + "sys/shm.h" => NIL, ; + "sys/socket.h" => NIL, ; + "sys/stat.h" => NIL, ; + "sys/statvfs.h" => NIL, ; + "sys/time.h" => NIL, ; + "sys/times.h" => NIL, ; + "sys/types.h" => NIL, ; + "sys/uio.h" => NIL, ; + "sys/un.h" => NIL, ; + "sys/utsname.h" => NIL, ; + "sys/wait.h" => NIL, ; + "syslog.h" => NIL, ; + "tar.h" => NIL, ; + "termios.h" => NIL, ; + "trace.h" => NIL, ; + "ulimit.h" => NIL, ; + "unistd.h" => NIL, ; + "utime.h" => NIL, ; + "utmpx.h" => NIL, ; + "wordexp.h" => NIL, ; + "windows.h" => NIL, ; /* OS (win) */ + "winspool.h" => NIL, ; + "shellapi.h" => NIL, ; + "ole2.h" => NIL, ; + "dos.h" => NIL, ; /* OS (dos) */ + "os2.h" => NIL } /* OS (os2) */ ENDIF IF StrTran( Lower( cHeader ), "\", "/" ) $ t_hExclStd @@ -11139,7 +11139,7 @@ STATIC FUNCTION hbmk_builtin_File_hb_pkg_install() STATIC FUNCTION hbmk_builtin_List() STATIC s_hHBM_BuiltIn := { ; - _HBMK_BUILTIN_FILENAME_MARKER_ + "hb_pkg_dynlib.hbm" => {|| hbmk_builtin_File_hb_pkg_dynlib() } , ; + _HBMK_BUILTIN_FILENAME_MARKER_ + "hb_pkg_dynlib.hbm" => {|| hbmk_builtin_File_hb_pkg_dynlib() }, ; _HBMK_BUILTIN_FILENAME_MARKER_ + "hb_pkg_install.hbm" => {|| hbmk_builtin_File_hb_pkg_install() } } RETURN s_hHBM_BuiltIn @@ -13995,8 +13995,8 @@ STATIC FUNCTION __plugin_ext() FUNCTION __hbshell_plugin() RETURN { ; "id" => "ext", ; - "init" => {| hConIO | __init( hConIO ) } , ; - "exit" => {| context | HB_SYMBOL_UNUSED( context ) } , ; + "init" => {| hConIO | __init( hConIO ) }, ; + "exit" => {| context | HB_SYMBOL_UNUSED( context ) }, ; "cmd" => {| context, cCommand | __command( context, cCommand ) } } STATIC FUNCTION __init( hConIO ) @@ -14096,7 +14096,7 @@ STATIC FUNCTION __hbshell_plugins() STATIC FUNCTION __hbshell_plugins_load( hPlugins, aParams ) LOCAL hConIO := { ; - "displine" => {| c | __hbshell_ToConsole( c ) } , ; + "displine" => {| c | __hbshell_ToConsole( c ) }, ; "gethidden" => {|| __hbshell_GetHidden() } } LOCAL plugin @@ -14641,56 +14641,56 @@ STATIC FUNCTION __hbshell_win_reg_app( lRegister, lAllUser, cAppPath ) a full-screen CUI ("interactive") app */ STATIC FUNCTION __hbshell_detect_CUI_extern_positive() RETURN { ; - "COL" => NIL , ; - "DISPBEGIN" => NIL , ; - "DISPBOX" => NIL , ; - "DISPCOUNT" => NIL , ; - "DISPEND" => NIL , ; - "DISPOUT" => NIL , ; - "DISPOUTAT" => NIL , ; - "HB_CLRAREA" => NIL , ; - "HB_DISPBOX" => NIL , ; - "HB_DISPOUTAT" => NIL , ; - "HB_DISPOUTATBOX" => NIL , ; - "HB_KEYCLEAR" => NIL , ; - "HB_KEYINS" => NIL , ; - "HB_KEYLAST" => NIL , ; - "HB_KEYNEXT" => NIL , ; - "HB_KEYPUT" => NIL , ; - "HB_KEYSETLAST" => NIL , ; - "HB_KEYSTD" => NIL , ; - "HB_MGETBOUNDS" => NIL , ; - "HB_MMIDDLEDOWN" => NIL , ; - "HB_SCRMAXCOL" => NIL , ; - "HB_SCRMAXROW" => NIL , ; - "HB_SCROLL" => NIL , ; - "HB_SHADOW" => NIL , ; - "INKEY" => NIL , ; - "LASTKEY" => NIL , ; - "MAXCOL" => NIL , ; - "MAXROW" => NIL , ; - "MCOL" => NIL , ; - "MDBLCLK" => NIL , ; - "MHIDE" => NIL , ; - "MLEFTDOWN" => NIL , ; - "MPRESENT" => NIL , ; - "MRESTSTATE" => NIL , ; - "MRIGHTDOWN" => NIL , ; - "MROW" => NIL , ; - "MSAVESTATE" => NIL , ; - "MSETBOUNDS" => NIL , ; - "MSETCURSOR" => NIL , ; - "MSETPOS" => NIL , ; - "MSHOW" => NIL , ; - "NEXTKEY" => NIL , ; - "RESTSCREEN" => NIL , ; - "ROW" => NIL , ; - "SAVESCREEN" => NIL , ; - "SCROLL" => NIL , ; - "SETCOLOR" => NIL , ; - "SETCURSOR" => NIL , ; - "SETMODE" => NIL , ; - "SETPOS" => NIL , ; + "COL" => NIL, ; + "DISPBEGIN" => NIL, ; + "DISPBOX" => NIL, ; + "DISPCOUNT" => NIL, ; + "DISPEND" => NIL, ; + "DISPOUT" => NIL, ; + "DISPOUTAT" => NIL, ; + "HB_CLRAREA" => NIL, ; + "HB_DISPBOX" => NIL, ; + "HB_DISPOUTAT" => NIL, ; + "HB_DISPOUTATBOX" => NIL, ; + "HB_KEYCLEAR" => NIL, ; + "HB_KEYINS" => NIL, ; + "HB_KEYLAST" => NIL, ; + "HB_KEYNEXT" => NIL, ; + "HB_KEYPUT" => NIL, ; + "HB_KEYSETLAST" => NIL, ; + "HB_KEYSTD" => NIL, ; + "HB_MGETBOUNDS" => NIL, ; + "HB_MMIDDLEDOWN" => NIL, ; + "HB_SCRMAXCOL" => NIL, ; + "HB_SCRMAXROW" => NIL, ; + "HB_SCROLL" => NIL, ; + "HB_SHADOW" => NIL, ; + "INKEY" => NIL, ; + "LASTKEY" => NIL, ; + "MAXCOL" => NIL, ; + "MAXROW" => NIL, ; + "MCOL" => NIL, ; + "MDBLCLK" => NIL, ; + "MHIDE" => NIL, ; + "MLEFTDOWN" => NIL, ; + "MPRESENT" => NIL, ; + "MRESTSTATE" => NIL, ; + "MRIGHTDOWN" => NIL, ; + "MROW" => NIL, ; + "MSAVESTATE" => NIL, ; + "MSETBOUNDS" => NIL, ; + "MSETCURSOR" => NIL, ; + "MSETPOS" => NIL, ; + "MSHOW" => NIL, ; + "NEXTKEY" => NIL, ; + "RESTSCREEN" => NIL, ; + "ROW" => NIL, ; + "SAVESCREEN" => NIL, ; + "SCROLL" => NIL, ; + "SETCOLOR" => NIL, ; + "SETCURSOR" => NIL, ; + "SETMODE" => NIL, ; + "SETPOS" => NIL, ; "SETPOSBS" => NIL } STATIC FUNCTION __hbshell_detect_CUI_extern_negative() @@ -15745,7 +15745,7 @@ STATIC PROCEDURE ShowHelp( hbmk, lMore, lLong ) { "*.ch" , I_( "if passed directly as a source file, it will be used as additional standard header" ) }, ; { _HBMK_AUTOHBC_NAME , hb_StrFormat( I_( "standard .hbc file that gets automatically processed, if present. Possible location(s) (in order of precedence) [*]: %1$s" ), ArrayToList( AutoConfPathList( .F., hbmk[ _HBMK_lMarkdown ] ), ", " ) ) }, ; { _HBMK_AUTOHBM_NAME , I_( "optional .hbm file residing in current working directory, which gets automatically processed before other options" ) }, ; - { _HBMK_BUILTIN_FILENAME_MARKER_ + "hb_pkg_dynlib.hbm" , hb_StrFormat( I_( "special .hbm file embedded inside %1$s. It manages the details of creating a dynamic library (in the style of Harbour contribs)." ), _SELF_NAME_ ) } , ; + { _HBMK_BUILTIN_FILENAME_MARKER_ + "hb_pkg_dynlib.hbm" , hb_StrFormat( I_( "special .hbm file embedded inside %1$s. It manages the details of creating a dynamic library (in the style of Harbour contribs)." ), _SELF_NAME_ ) }, ; { _HBMK_BUILTIN_FILENAME_MARKER_ + "hb_pkg_install.hbm", hb_StrFormat( I_( "special .hbm file embedded inside %1$s. It manages the details of installing targets and related package files to standard locations (in the style of Harbour contribs)." ), _SELF_NAME_ ) } } LOCAL aHdr_Macro := { ; @@ -16033,7 +16033,7 @@ STATIC PROCEDURE ShowHelp( hbmk, lMore, lLong ) I_( "Libraries and object files built with/for CA-Cl*pper will not work with any supported platform/compiler." ), ; I_( "Defaults and feature support may vary by platform/compiler." ), ; hb_StrFormat( I_( "GNU Make or any C compiler specific make tool and MSYS (on Windows) are not needed to run %1$s." ), _SELF_NAME_ ), ; - hb_StrFormat( I_( ".hb or .hrb file passed as first parameter will be run as Harbour script. Note, for Harbour scripts, the codepage is set to UTF-8 by default. The default core header 'hb.ch' is automatically #included. The default GT is '%1$s', unless full-screen CUI calls are detected, when '%2$s' [*] is automatically selected." ), Lower( _HBMK_GT_DEF_ ), Lower( __hbshell_gtDefault() ) ) , ; + hb_StrFormat( I_( ".hb or .hrb file passed as first parameter will be run as Harbour script. Note, for Harbour scripts, the codepage is set to UTF-8 by default. The default core header 'hb.ch' is automatically #included. The default GT is '%1$s', unless full-screen CUI calls are detected, when '%2$s' [*] is automatically selected." ), Lower( _HBMK_GT_DEF_ ), Lower( __hbshell_gtDefault() ) ), ; I_( ". (dot) passed as first parameter will enter the interactive Harbour shell." ), ; hb_StrFormat( I_( "Values marked with [*] may be host platform and/or configuration dependent. This help was generated on '%1$s' host platform." ), Lower( hb_Version( HB_VERSION_PLATFORM ) ) ) } diff --git a/harbour/utils/hbtest/hbtest.prg b/harbour/utils/hbtest/hbtest.prg index 591beb04ae..d9d630a907 100644 --- a/harbour/utils/hbtest/hbtest.prg +++ b/harbour/utils/hbtest/hbtest.prg @@ -230,8 +230,7 @@ STATIC PROCEDURE TEST_BEGIN( cParam ) #ifdef __HARBOUR__ hb_langSelect( "en" ) #endif - SET DATE ANSI - SET CENTURY ON + Set( _SET_DATEFORMAT, "yyyy-mm-dd" ) SET EXACT OFF FErase( "NOT_HERE.$$$" ) @@ -665,24 +664,14 @@ FUNCTION hb_SToD( cDate ) #ifndef __HARBOUR__ #ifndef __XPP__ -FUNCTION hb_SToD( cDate ) +FUNCTION hb_SToD( s ) - LOCAL cOldDateFormat - LOCAL dDate + LOCAL cDf := Set( _SET_DATEFORMAT, "YYYY/MM/DD" ), dt - IF ValType( cDate ) == "C" .AND. ! Empty( cDate ) - cOldDateFormat := Set( _SET_DATEFORMAT, "yyyy/mm/dd" ) + dt := CToD( Stuff( Stuff( s, 7, 0, "/" ), 5, 0, "/" ) ) + Set( _SET_DATEFORMAT, cDf ) - dDate := CToD( SubStr( cDate, 1, 4 ) + "/" +; - SubStr( cDate, 5, 2 ) + "/" +; - SubStr( cDate, 7, 2 ) ) - - Set( _SET_DATEFORMAT, cOldDateFormat ) - ELSE - dDate := CToD( "" ) - ENDIF - - RETURN dDate + RETURN dt #endif #endif diff --git a/harbour/utils/hbtest/rt_date.prg b/harbour/utils/hbtest/rt_date.prg index 80579d7fef..1c8393b9c2 100644 --- a/harbour/utils/hbtest/rt_date.prg +++ b/harbour/utils/hbtest/rt_date.prg @@ -56,7 +56,7 @@ #include "rt_vars.ch" PROCEDURE Main_DATE() - LOCAL cDate := "1999/11/25" + LOCAL cDate := "1999-11-25" /* Year() */ @@ -165,10 +165,10 @@ PROCEDURE Main_DATE() HBTEST DToC(100) IS "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:N:100 F:S" HBTEST DToC("") IS "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:C: F:S" #ifdef __HARBOUR__ - HBTEST DToC(@sdDate) IS "1984.03.25" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:U:19840325 F:S" */ + HBTEST DToC(@sdDate) IS "1984-03-25" /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1118 Argument error (DTOC) OS:0 #:0 A:1:U:19840325 F:S" */ #endif - HBTEST DToC(sdDate) IS "1984.03.25" - HBTEST DToC(sdDateE) IS " . . " + HBTEST DToC(sdDate) IS "1984-03-25" + HBTEST DToC(sdDateE) IS " - - " /* CToD() */ @@ -176,10 +176,10 @@ PROCEDURE Main_DATE() HBTEST CToD(100) IS "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:N:100 F:S" HBTEST CToD("") IS hb_SToD(" ") #ifdef __HARBOUR__ - HBTEST CToD(@cDate) IS hb_SToD("19991125") /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:U:1999/11/25 F:S" */ + HBTEST CToD(@cDate) IS hb_SToD("19991125") /* Bug in CA-Cl*pper, it returns: "E 1 BASE 1119 Argument error (CTOD) OS:0 #:0 A:1:U:1999-11-25 F:S" */ #endif HBTEST CToD(cDate) IS hb_SToD("19991125") - HBTEST CToD("1999/11/25/10") IS hb_SToD("19991125") + HBTEST CToD("1999-11-25/10") IS hb_SToD("19991125") /* DToS() */ diff --git a/harbour/utils/hbtest/rt_str.prg b/harbour/utils/hbtest/rt_str.prg index ced7086178..06db20559f 100644 --- a/harbour/utils/hbtest/rt_str.prg +++ b/harbour/utils/hbtest/rt_str.prg @@ -666,7 +666,7 @@ PROCEDURE Main_STR() HBTEST Pad(100000, 8, "-") IS "100000--" HBTEST Pad(-100000, 8, "-") IS "-100000-" HBTEST Pad(5000000000, 15) IS "5000000000 " - HBTEST Pad(hb_SToD("19840325"), 12) IS "1984.03.25 " + HBTEST Pad(hb_SToD("19840325"), 12) IS "1984-03-25 " HBTEST Pad(Year(hb_SToD("19840325")), 5) IS "1984 " HBTEST Pad(Day(hb_SToD("19840325")), 5) IS "25 " #ifdef __HARBOUR__ @@ -693,7 +693,7 @@ PROCEDURE Main_STR() HBTEST PadR(100000, 8) IS "100000 " HBTEST PadR(100000, 8, "-") IS "100000--" HBTEST PadR(-100000, 8, "-") IS "-100000-" - HBTEST PadR(hb_SToD("19840325"), 12) IS "1984.03.25 " + HBTEST PadR(hb_SToD("19840325"), 12) IS "1984-03-25 " HBTEST PadR(Year(hb_SToD("19840325")), 5) IS "1984 " HBTEST PadR(Day(hb_SToD("19840325")), 5) IS "25 " #ifdef __HARBOUR__ @@ -720,7 +720,7 @@ PROCEDURE Main_STR() HBTEST PadL(100000, 8) IS " 100000" HBTEST PadL(100000, 8, "-") IS "--100000" HBTEST PadL(-100000, 8, "-") IS "--100000" - HBTEST PadL(hb_SToD("19840325"), 12) IS " 1984.03.25" + HBTEST PadL(hb_SToD("19840325"), 12) IS " 1984-03-25" HBTEST PadL(Year(hb_SToD("19840325")), 5) IS " 1984" HBTEST PadL(Day(hb_SToD("19840325")), 5) IS " 25" #ifdef __HARBOUR__ @@ -747,7 +747,7 @@ PROCEDURE Main_STR() HBTEST PadC(100000, 8) IS " 100000 " HBTEST PadC(100000, 8, "-") IS "-100000-" HBTEST PadC(-100000, 8, "-") IS "-100000-" - HBTEST PadC(hb_SToD("19840325"), 12) IS " 1984.03.25 " + HBTEST PadC(hb_SToD("19840325"), 12) IS " 1984-03-25 " HBTEST PadC(Year(hb_SToD("19840325")), 5) IS "1984 " HBTEST PadC(Day(hb_SToD("19840325")), 5) IS " 25 " #ifdef __HARBOUR__ diff --git a/harbour/utils/hbtest/rt_stra.prg b/harbour/utils/hbtest/rt_stra.prg index 7bc81d9ab8..e0e6525cf9 100644 --- a/harbour/utils/hbtest/rt_stra.prg +++ b/harbour/utils/hbtest/rt_stra.prg @@ -485,7 +485,7 @@ PROCEDURE New_STRINGS() HBTEST hb_ValToStr( 4 ) IS " 4" HBTEST hb_ValToStr( 4.0 / 2 ) IS " 2.00" HBTEST hb_ValToStr( "String" ) IS "String" - HBTEST hb_ValToStr( hb_SToD( "20010101" ) ) IS "2001.01.01" + HBTEST hb_ValToStr( hb_SToD( "20010101" ) ) IS "2001-01-01" HBTEST hb_ValToStr( NIL ) IS "NIL" HBTEST hb_ValToStr( .F. ) IS ".F." HBTEST hb_ValToStr( .T. ) IS ".T." diff --git a/harbour/utils/hbtest/rt_trans.prg b/harbour/utils/hbtest/rt_trans.prg index 908b13100a..43da13907f 100644 --- a/harbour/utils/hbtest/rt_trans.prg +++ b/harbour/utils/hbtest/rt_trans.prg @@ -59,7 +59,7 @@ PROCEDURE Main_TRANS() LOCAL cOldDate := Set( _SET_DATEFORMAT ) local cOldFixed := Set( _SET_FIXED ) local cOldDecim := Set( _SET_DECIMALS ) - local dt + local dt, df /* Transform() */ @@ -112,10 +112,10 @@ PROCEDURE Main_TRANS() HBTEST Transform( Val("100.20"), NIL ) IS "100.20" #endif HBTEST Transform( Val("100.20"), 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:N:100.20;N:100 F:S" - HBTEST Transform( sdDate, "" ) IS "1984.03.25" - HBTEST Transform( sdDate, "@" ) IS "1984.03.25" + HBTEST Transform( sdDate, "" ) IS "1984-03-25" + HBTEST Transform( sdDate, "@" ) IS "1984-03-25" #ifndef __XPP__ - HBTEST Transform( sdDate, NIL ) IS "1984.03.25" + HBTEST Transform( sdDate, NIL ) IS "1984-03-25" #endif HBTEST Transform( sdDate, 100 ) IS "E 1 BASE 1122 Argument error (TRANSFORM) OS:0 #:0 A:2:D:0d19840325;N:100 F:S" HBTEST Transform( .T., "" ) IS "T" @@ -187,41 +187,49 @@ PROCEDURE Main_TRANS() HBTEST Transform( .F. , "@R Y" ) IS "N" HBTEST Transform( .T. , "@R X!" ) IS "X!T" - HBTEST Transform( hb_SToD("20000101") , "@B" ) IS "2000.01.01" - HBTEST Transform( hb_SToD("19901214") , "99/99/9999" ) IS "1990.12.14" - HBTEST Transform( hb_SToD("19901202") , "99.99.9999" ) IS "1990.12.02" - HBTEST Transform( hb_SToD("") , "99/99/9999" ) IS " . . " - HBTEST Transform( hb_SToD("19901202") , "99/99/99" ) IS "1990.12.02" - HBTEST Transform( hb_SToD("19901214") , "99-99-99" ) IS "1990.12.14" - HBTEST Transform( hb_SToD("20040430") , "99.99.99" ) IS "2004.04.30" - HBTEST Transform( hb_SToD("") , "99/99/99" ) IS " . . " - HBTEST Transform( hb_SToD("19920101") , "THISWRNG" ) IS "1992.01.01" - HBTEST Transform( hb_SToD("19350605") , "999/99/9" ) IS "1935.06.05" - HBTEST Transform( hb_SToD("19101112") , "9#-9#/##" ) IS "1910.11.12" - HBTEST Transform( hb_SToD("19920101") , "" ) IS "1992.01.01" - HBTEST Transform( hb_SToD("19920101") , "DO THIS " ) IS "1992.01.01" - HBTEST Transform( hb_SToD("19920102") , "@E" ) IS "02.01.1992" /* Bug in CA-Cl*pper, it returns: "2.91901.02" */ + HBTEST Transform( hb_SToD("20000101") , "@B" ) IS "2000-01-01" + HBTEST Transform( hb_SToD("19901214") , "99/99/9999" ) IS "1990-12-14" + HBTEST Transform( hb_SToD("19901202") , "99.99.9999" ) IS "1990-12-02" + HBTEST Transform( hb_SToD("") , "99/99/9999" ) IS " - - " + HBTEST Transform( hb_SToD("19901202") , "99/99/99" ) IS "1990-12-02" + HBTEST Transform( hb_SToD("19901214") , "99-99-99" ) IS "1990-12-14" + HBTEST Transform( hb_SToD("20040430") , "99.99.99" ) IS "2004-04-30" + HBTEST Transform( hb_SToD("") , "99/99/99" ) IS " - - " + HBTEST Transform( hb_SToD("19920101") , "THISWRNG" ) IS "1992-01-01" + HBTEST Transform( hb_SToD("19350605") , "999/99/9" ) IS "1935-06-05" + HBTEST Transform( hb_SToD("19101112") , "9#-9#/##" ) IS "1910-11-12" + HBTEST Transform( hb_SToD("19920101") , "" ) IS "1992-01-01" + HBTEST Transform( hb_SToD("19920101") , "DO THIS " ) IS "1992-01-01" + HBTEST Transform( hb_SToD("19920102") , "@E" ) IS "02-01-1992" /* Bug in CA-Cl*pper, it returns: "2-91901-02" */ + HBTEST Transform( 1234 , "@D 9999" ) IS " -12-34" + HBTEST Transform( 1234 , "@BD 9999" ) IS "-12-34 " + df := Set( _SET_DATEFORMAT, "yyyy.mm.dd" ) HBTEST Transform( 1234 , "@D 9999" ) IS "1234.00.0 " HBTEST Transform( 1234 , "@BD 9999" ) IS "1234.00.0 " + Set( _SET_DATEFORMAT, df ) SET CENTURY OFF - HBTEST Transform( hb_SToD("20000101") , "@B" ) IS "00.01.01" - HBTEST Transform( hb_SToD("19901214") , "99/99/9999" ) IS "90.12.14" - HBTEST Transform( hb_SToD("19901202") , "99.99.9999" ) IS "90.12.02" - HBTEST Transform( hb_SToD("") , "99/99/9999" ) IS " . . " - HBTEST Transform( hb_SToD("19901202") , "99/99/99" ) IS "90.12.02" - HBTEST Transform( hb_SToD("19901214") , "99-99-99" ) IS "90.12.14" - HBTEST Transform( hb_SToD("20040430") , "99.99.99" ) IS "04.04.30" - HBTEST Transform( hb_SToD("") , "99/99/99" ) IS " . . " - HBTEST Transform( hb_SToD("19920101") , "THISWRNG" ) IS "92.01.01" - HBTEST Transform( hb_SToD("19350605") , "999/99/9" ) IS "35.06.05" - HBTEST Transform( hb_SToD("19101112") , "9#-9#/##" ) IS "10.11.12" - HBTEST Transform( hb_SToD("19920101") , "" ) IS "92.01.01" - HBTEST Transform( hb_SToD("19920101") , "DO THIS " ) IS "92.01.01" - HBTEST Transform( hb_SToD("19920102") , "@E" ) IS "02.01.92" /* Bug in CA-Cl*pper, it returns: "01.92.02" */ + HBTEST Transform( hb_SToD("20000101") , "@B" ) IS "00-01-01" + HBTEST Transform( hb_SToD("19901214") , "99/99/9999" ) IS "90-12-14" + HBTEST Transform( hb_SToD("19901202") , "99.99.9999" ) IS "90-12-02" + HBTEST Transform( hb_SToD("") , "99/99/9999" ) IS " - - " + HBTEST Transform( hb_SToD("19901202") , "99/99/99" ) IS "90-12-02" + HBTEST Transform( hb_SToD("19901214") , "99-99-99" ) IS "90-12-14" + HBTEST Transform( hb_SToD("20040430") , "99.99.99" ) IS "04-04-30" + HBTEST Transform( hb_SToD("") , "99/99/99" ) IS " - - " + HBTEST Transform( hb_SToD("19920101") , "THISWRNG" ) IS "92-01-01" + HBTEST Transform( hb_SToD("19350605") , "999/99/9" ) IS "35-06-05" + HBTEST Transform( hb_SToD("19101112") , "9#-9#/##" ) IS "10-11-12" + HBTEST Transform( hb_SToD("19920101") , "" ) IS "92-01-01" + HBTEST Transform( hb_SToD("19920101") , "DO THIS " ) IS "92-01-01" + HBTEST Transform( hb_SToD("19920102") , "@E" ) IS "02-01-92" /* Bug in CA-Cl*pper, it returns: "01-92-02" */ + HBTEST Transform( 1234 , "@D 9999" ) IS " -12-34" + HBTEST Transform( 1234 , "@BD 9999" ) IS "-12-34 " + df := Set( _SET_DATEFORMAT, "yy.mm.dd" ) HBTEST Transform( 1234 , "@D 9999" ) IS "**.**.* " HBTEST Transform( 1234 , "@BD 9999" ) IS "**.**.* " + Set( _SET_DATEFORMAT, df ) SET CENTURY ON @@ -387,27 +395,27 @@ PROCEDURE Main_TRANS() HBTEST Transform(" H", "@Z" ) IS " " HBTEST Transform(" H", "@ZB" ) IS " " HBTEST Transform(" H", "@!" ) IS " H" - HBTEST Transform("19840325", "@D" ) IS "1984.32." - HBTEST Transform("19840325", "@DE" ) IS "4.81932." - HBTEST Transform("1984032598765", "@DE" ) IS "4.81932.98" + HBTEST Transform("19840325", "@D" ) IS "1984-32-" + HBTEST Transform("19840325", "@DE" ) IS "4-81932-" + HBTEST Transform("1984032598765", "@DE" ) IS "4-81932-98" SET CENTURY ON - HBTEST Transform("19840325", "@D" ) IS "1984.32." - HBTEST Transform("19840325", "@DE" ) IS "4.81932." - HBTEST Transform("1984032598765", "@DE" ) IS "4.81932.98" + HBTEST Transform("19840325", "@D" ) IS "1984-32-" + HBTEST Transform("19840325", "@DE" ) IS "4-81932-" + HBTEST Transform("1984032598765", "@DE" ) IS "4-81932-98" SET CENTURY OFF - HBTEST Transform("19840325", "@D" ) IS "19.40.25" - HBTEST Transform("19840325", "@DE" ) IS "40.19.25" - HBTEST Transform("1984032598765", "@DE" ) IS "40.19.25" + HBTEST Transform("19840325", "@D" ) IS "19-40-25" + HBTEST Transform("19840325", "@DE" ) IS "40-19-25" + HBTEST Transform("1984032598765", "@DE" ) IS "40-19-25" HBTEST Transform("1", "@D" ) IS "1" - HBTEST Transform("19840325", "@D" ) IS "19.40.25" - HBTEST Transform("19840325", "@DR" ) IS "19.84.03" - HBTEST Transform("ABCDEFG", "@D" ) IS "AB.DE.G" - HBTEST Transform("abcdefg", "@D !!") IS "ab.de.g" - HBTEST Transform("abcdefg", "@D!") IS "AB.DE.G" - HBTEST Transform("ABCDEFG", "@DB" ) IS "AB.DE.G" - HBTEST Transform(" CDEFG", "@DB" ) IS ".DE.G " + HBTEST Transform("19840325", "@D" ) IS "19-40-25" + HBTEST Transform("19840325", "@DR" ) IS "19-84-03" + HBTEST Transform("ABCDEFG", "@D" ) IS "AB-DE-G" + HBTEST Transform("abcdefg", "@D !!") IS "ab-de-g" + HBTEST Transform("abcdefg", "@D!") IS "AB-DE-G" + HBTEST Transform("ABCDEFG", "@DB" ) IS "AB-DE-G" + HBTEST Transform(" CDEFG", "@DB" ) IS "-DE-G " HBTEST Transform("ABCDEFG", "@DBZ" ) IS " " #ifdef __CLIPPER__ /* CA-Cl*pper do not check result size and always exchanges @@ -428,17 +436,17 @@ PROCEDURE Main_TRANS() HBTEST Transform(",", "@E" ) IS "." HBTEST Transform("..", "@E" ) IS ","+Chr(0)+"" HBTEST Transform(",,", "@E" ) IS ".." - HBTEST Transform(",.,", "@E" ) IS ",,." - HBTEST Transform(".,.", "@E" ) IS ""+Chr(0)+".." - HBTEST Transform("OPI", "@E ." ) IS ""+Chr(0)+",." - HBTEST Transform("JKL", "@E ," ) IS ""+Chr(0)+"P." - HBTEST Transform("OPI", "@ER ." ) IS "I .OP. " - HBTEST Transform("JKL", "@ER ," ) IS "L .JK. " - HBTEST Transform("OPI", "@ER" ) IS "I .OP. " - HBTEST Transform("JKL", "@ER" ) IS "L .JK. " + HBTEST Transform(",.,", "@E" ) IS ",,-" + HBTEST Transform(".,.", "@E" ) IS ""+Chr(0)+".-" + HBTEST Transform("OPI", "@E ." ) IS ""+Chr(0)+",-" + HBTEST Transform("JKL", "@E ," ) IS ""+Chr(0)+"P-" + HBTEST Transform("OPI", "@ER ." ) IS "I -OP- " + HBTEST Transform("JKL", "@ER ," ) IS "L -JK- " + HBTEST Transform("OPI", "@ER" ) IS "I -OP- " + HBTEST Transform("JKL", "@ER" ) IS "L -JK- " #endif - HBTEST Transform(CToD(""), "@DB") IS ". . " - HBTEST Transform(CToD(""), "@DBR uiuijk") IS ".. . . " + HBTEST Transform(CToD(""), "@DB") IS "- - " + HBTEST Transform(CToD(""), "@DBR uiuijk") IS "-- - - " HBTEST Transform(100, "@B $99999") IS "$ 100" HBTEST Transform(10, "@BZ $99999") IS "$ 10" HBTEST Transform(10, "@BX $99999") IS "$ 10" @@ -449,9 +457,9 @@ PROCEDURE Main_TRANS() HBTEST Transform(0, "@B(ZX $99999") IS " " #ifndef __XPP__ - HBTEST Transform(sdDate, NIL) IS "84.03.25" + HBTEST Transform(sdDate, NIL) IS "84-03-25" #endif - HBTEST Transform(sdDate, "") IS "84.03.25" + HBTEST Transform(sdDate, "") IS "84-03-25" HBTEST Transform(sdDate, "@Z") IS " " Set( _SET_DATEFORMAT, "DD/MMM/YYYY" ) diff --git a/harbour/website/faq/harbour.html b/harbour/website/faq/harbour.html index 4a626d516b..0a598f9e49 100644 --- a/harbour/website/faq/harbour.html +++ b/harbour/website/faq/harbour.html @@ -7,7 +7,7 @@

Frequently Asked Questions about Harbour

-

David G. Holm <harbour-faq@netfang.net>

Revision: 1.45 Date: 2004/05/03 19:00:32 +

David G. Holm <harbour-faq@netfang.net>

Revision: 1.45 Date: 2004-05-03 19:00:32

1. Legal Stuff

1.1. Copyright
diff --git a/harbour/website/faq/harbour63.html b/harbour/website/faq/harbour63.html index b34fefae96..310029568d 100644 --- a/harbour/website/faq/harbour63.html +++ b/harbour/website/faq/harbour63.html @@ -17,52 +17,52 @@

8.4. Document history

-Revision 1.45  2004/05/03 19:00:32
+Revision 1.45  2004-05-03 19:00:32
 
 Updated CVSROOT to match current SourceForge usage.
 
-Revision 1.44  2003/08/21 22:59:10
+Revision 1.44  2003-08-21 22:59:10
 
 Fixed several broken links.
 Removed a couple of broken links that could not be fixed.
 Changed my binary download link from the mirror site to the primary site.
 Added Bruno Cantero's C3 compiler to the Clipper compatible compiler list.
 
-Revision 1.43  2003/08/20 21:22:01
+Revision 1.43  2003-08-20 21:22:01
 
 Added xHarbour to Clipper related links
 
-Revision 1.42  2003/04/28 17:35:31
+Revision 1.42  2003-04-28 17:35:31
 
 Dave Pearson assigned the FAQ copyright to David G. Holm.
 
-Revision 1.41  2003/04/25 17:44:57
+Revision 1.41  2003-04-25 17:44:57
 
 The SGML conversion tool that I use mandates the use of name= for all URLs
 
-Revision 1.40  2003/04/24 21:09:35
+Revision 1.40  2003-04-24 21:09:35
 
 David G. Holm took over the Harbour FAQ at the request of Dave Pearson
 
-Revision 1.39  2003/04/16 14:10:23
+Revision 1.39  2003-04-16 14:10:23
 
 Changed the "primary location" for this document.
 
-Revision 1.38  2003/02/10 10:28:49
+Revision 1.38  2003-02-10 10:28:49
 
 Updated the links for Mingw and CygWin.
 
-Revision 1.37  2002/10/31 14:27:07
+Revision 1.37  2002-10-31 14:27:07
 
 Added pointer to Windows port GNU make as provided by Gerardo Perez.
 
-Revision 1.36  2002/10/03 08:25:08
+Revision 1.36  2002-10-03 08:25:08
 
 Improved the consistency of terms regarding the HVM and RTL.
 Re-wrote section 2.13, it was very out of date.
 Added a pointer to the Chinese translation of the FAQ.
 
-Revision 1.35  2001/12/18 08:13:03
+Revision 1.35  2001-12-18 08:13:03
 
 Removed the text in FAQ 2.5 that said that the wording of the warranty might
 change at some point in the future. Now that the licence details are settled
@@ -71,100 +71,100 @@ Added FreeBSD to the list of known supported platforms in FAQ 6.7.
 Gave (hopefully) useful URLs to each platform listed in the above list.
 Minor text corrections.
 
-Revision 1.34  2001/12/14 17:52:27
+Revision 1.34  2001-12-14 17:52:27
 
 Fixed a minor spelling mistake.
 
-Revision 1.33  2001/12/14 17:48:26
+Revision 1.33  2001-12-14 17:48:26
 
 Updated the link to Andi's binary distribution site.
 
-Revision 1.32  2001/11/29 13:21:02
+Revision 1.32  2001-11-29 13:21:02
 
 Updated the link to Andi's binary distributions.
 
-Revision 1.31  2001/11/13 08:34:21
+Revision 1.31  2001-11-13 08:34:21
 
 todo.txt has been renamed to TODO. Updated FAQ 3.7 to point to the new name
 for the file.
 
-Revision 1.30  2001/11/12 16:23:36
+Revision 1.30  2001-11-12 16:23:36
 
 Added pointers to Andi's unstable binary distributions.
 
-Revision 1.29  2001/09/24 09:07:18
+Revision 1.29  2001-09-24 09:07:18
 
 Added a pointer to Clip in the list of other Clipper compiler
 implementations.
 
-Revision 1.28  2001/08/21 10:21:20
+Revision 1.28  2001-08-21 10:21:20
 
 Changed question 3.7 to reflect the fact that there is now a TODO list.
 
-Revision 1.27  2001/07/05 10:15:39
+Revision 1.27  2001-07-05 10:15:39
 
 Replaced the (non-working since Deja died) Deja link to Antonio's initial
 comp.lang.clipper post with a link to the article in Google Groups' archive.
 
-Revision 1.26  2001/05/04 10:03:10
+Revision 1.26  2001-05-04 10:03:10
 
 The CVS server has had the Harbour-project renamed to harbour-project.
 Changed all CVS references to take this into account.
 
-Revision 1.25  2001/04/26 10:11:19
+Revision 1.25  2001-04-26 10:11:19
 
 Updated the copyright details of this document.
 
-Revision 1.24  2001/04/26 10:10:17
+Revision 1.24  2001-04-26 10:10:17
 
 Updated some of the entries regarding licence choices and the Harbour
 exception. The exception has changed slightly and the GPL is here to stay.
 
-Revision 1.23  2001/02/27 18:13:12
+Revision 1.23  2001-02-27 18:13:12
 
 Attila Feher pointed out that the pointers to the DJGPP port of GNU make on
 ftp.cdrom.com had decayed. Fixed.
 
-Revision 1.22  2001/01/20 08:52:48
+Revision 1.22  2001-01-20 08:52:48
 
 Updated CVS information, the Blandy document has moved and Alex Schaft
 pointed out a problem with following the anonymous CVS example from a
 GNU/Linux box.
 
-Revision 1.21  2000/12/19 13:09:55
+Revision 1.21  2000-12-19 13:09:55
 
 Changed the www.hagbard.demon.co.uk links to www.davep.org links.
 
-Revision 1.20  2000/10/12 13:35:19
+Revision 1.20  2000-10-12 13:35:19
 
 Changed all mailing list links from eGroups to harbour's own list server.
 
-Revision 1.19  2000/08/25 15:46:56
+Revision 1.19  2000-08-25 15:46:56
 
 Correct the CVS tutorial links.
 Added a pointer to the Harbour User's mailing list archives.
 Added a pointer to my Harbour page.
 
-Revision 1.18  2000/06/06 12:22:45
+Revision 1.18  2000-06-06 12:22:45
 
 Added details about the Harbour user's mailing list.
 Added "Are there any newsgroups for Harbour?".
 
-Revision 1.17  2000/05/24 17:23:56
+Revision 1.17  2000-05-24 17:23:56
 
 Changed all the OneList links to eGroups links.
 
-Revision 1.16  2000/05/22 09:52:16
+Revision 1.16  2000-05-22 09:52:16
 
 Added a pointer to Borland's free (of cost) compiler.
 Changed some of the details about source snapshots.
 Added a section for pointers to articles about Harbour.
 
-Revision 1.15  2000/02/17 09:16:53
+Revision 1.15  2000-02-17 09:16:53
 
 Removed a link to Matthew's that I missed in the last version.
 
-Revision 1.14  2000/02/17 09:13:12
+Revision 1.14  2000-02-17 09:13:12
 
 Removed the pointer to Matthew Collins' snapshot page while he's unable to
 maintain it.
@@ -174,26 +174,26 @@ Added a pointer to the Spanish language pages that contain a translation of
 parts of this document.
 Fixed random spelling mistakes.
 
-Revision 1.13  2000/01/27 10:00:57
+Revision 1.13  2000-01-27 10:00:57
 
 Added "Is Harbour a Windows development tool?".
 Added "What platforms are supported by Harbour?".
 Removed the pointers to Andi Jahja's harbour snapshot and binary FAQ
 distribution while he isn't in a position to support them.
 
-Revision 1.12  2000/01/17 12:42:46
+Revision 1.12  2000-01-17 12:42:46
 
 Brian Hays pointed out that the DOS CVS client and section 3.5 didn't fully
 agree. Fixed.
 
-Revision 1.11  2000/01/10 16:55:43
+Revision 1.11  2000-01-10 16:55:43
 
 Fixed one or two language bugs.
 Improved some of the language regarding the GPL (thanks to RMS for his input
 on this subject).
 Noted that this document is now available from Harbour's SourceForge pages.
 
-Revision 1.10  1999/12/20 18:56:52
+Revision 1.10  1999-12-20 18:56:52
 
 Changed the Clipper compiler implementation list in section 7.3 so that it
 better outlines what level of the language each compiler implements.
@@ -202,19 +202,19 @@ The FAQ is now available as a PostScript file.
 Changed the email addresses to point to davep.org instead of hagbard.
 Changed the details of the CVS server now that we've moved to SourceForge.
 
-Revision 1.9  1999/11/18 17:10:36
+Revision 1.9  1999-11-18 17:10:36
 
 Added details of Andi's unstable snapshot.
 Where approptiate, parts of the main document have been linked to the
 Clipper implementation list in section 7.3.
 Changed section 6.5 so that it mentions the 3rd party support list.
 
-Revision 1.8  1999/11/16 16:35:41
+Revision 1.8  1999-11-16 16:35:41
 
 Corrected the notes about David's and Matthew's web sites in section 7.1,
 I'd moved David's to Matthew's and forgot to add one for Matthew.
 
-Revision 1.7  1999/11/16 16:31:52
+Revision 1.7  1999-11-16 16:31:52
 
 Added a warning about using non-free licenced copyrighted code to the
 development guidelines in section 3.8.
@@ -226,14 +226,14 @@ Hunted down and fixed a couple more `htmlurl' tags that should have been
 Added details of Andi Jahja's alternative (WinTel oriented) FAQ formats.
 One or two general tidy-ups.
 
-Revision 1.6  1999/10/10 08:02:41
+Revision 1.6  1999-10-10 08:02:41
 
 The HTML produced from harbour.sgml is now passed thru a perl script which
 adds some extra colour and formatting information to make the FAQ better fit
 the colour scheme of the harbour web site (if you didn't notice the problem
 your browser is probably dictating how you view information).
 
-Revision 1.5  1999/10/09 15:11:07
+Revision 1.5  1999-10-09 15:11:07
 
 Removed the split of DOS 16/32 bit in the make details part of section 3.3.
 Changed the `htmlurl' tags into `url' tags in section 3.3, this means that
@@ -247,18 +247,18 @@ read "CVS". Fixed.
 Placed the Clipper compiler implementations listed in section 7.3 into their
 own sub-list.
 
-Revision 1.4  1999/10/06 05:44:16
+Revision 1.4  1999-10-06 05:44:16
 
 Rewrote section 3.4 to reflect the fact that three different methods of
 getting the Harbour source now exist.
 
-Revision 1.3  1999/10/02 13:44:15
+Revision 1.3  1999-10-02 13:44:15
 
 Updated the information about the downloading of binary archives from the
 Harbour web site.
 Fixed one or two spelling mistakes and grammatical errors.
 
-Revision 1.2  1999/10/02 07:47:06
+Revision 1.2  1999-10-02 07:47:06
 
 Fixed some formatting bugs and spelling mistakes.
 Added details of David Holm's Harbour site.
@@ -267,7 +267,7 @@ variables as Windows.
 Made a move to fill the gaps in the development tool pointer list (your
 contributions are still needed people!).
 
-Revision 1.1  1999/10/01 13:36:23
+Revision 1.1  1999-10-01 13:36:23
 
 Initial revision
 
diff --git a/harbour/website/faq/index.html b/harbour/website/faq/index.html
index 4a626d516b..0a598f9e49 100644
--- a/harbour/website/faq/index.html
+++ b/harbour/website/faq/index.html
@@ -7,7 +7,7 @@
 
 
 
Frequently Asked Questions about Harbour

- 
David G. Holm <harbour-faq@netfang.net>
Revision: 1.45  Date: 2004/05/03 19:00:32
+ 
David G. Holm <harbour-faq@netfang.net>
Revision: 1.45  Date: 2004-05-03 19:00:32
 
1. Legal Stuff

 

 
1.1. Copyright

diff --git a/harbour/website/robots.txt b/harbour/website/robots.txt
index 87629a5366..6cc474f622 100644
--- a/harbour/website/robots.txt
+++ b/harbour/website/robots.txt
@@ -1,4 +1,4 @@
-# Last Updated:  2010.10.13 15:34:00
+# Last Updated:  2010-10-13 15:34:00
 
 User-agent: ia_archiver
 Disallow: /photos/victorszakats.jpg