fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2011-05-09 20:03 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* src/rtl/hbi18n2.prg
  * utils/hbi18n/hbi18n.prg
  * contrib/hbformat/hbfmtcls.prg
    * changed ' = ' to LEFTEQUAL() macro

  * src/rdd/hbsix/sxini.prg
  * contrib/hbgd/tests/gdtestcl.prg
  * contrib/hbide/idebrowse.prg
    * changed ' = ' to ' Left( ... ) == '

  * contrib/hbct/tests/csetarge.prg
  * contrib/hbct/tests/trig.prg
  * contrib/gtwvg/tests/wvgactivex.prg
  * contrib/xhb/trpccli.prg
  * contrib/xhb/trpc.prg
  * contrib/hbcairo/tests/glyphdbg.prg
  * contrib/hbide/hbqreportsmanager.prg
  * examples/httpsrv/cgifunc.prg
  * examples/httpsrv/session.prg
    * ' = ' -> ' := '

  * contrib/xhb/traceprg.prg
  * contrib/xhb/ttable.prg
  * contrib/hbfbird/tfirebrd.prg
  * contrib/hbtip/tests/base64.prg
  * contrib/hbide/idemisc.prg
  * contrib/hbide/idebrowse.prg
  * examples/terminal/trm_srv.prg
    * ' = ' -> ' == '

  * contrib/xhb/tedit.prg
    * ' = ' -> ' == ' (I'm unsure about this, pls correct if you know the intent)

  * contrib/xhb/hbstruct.prg
    * ' = ' -> ' := '
    * formatted

  * contrib/hbtip/tests/base64.prg
    * File() -> hb_FileExists()

  ; TOFIX:
      - it's impossible for me to decide what the intent is in these files with ' = ' operator,
        please fix them:
          * contrib/hbide/idetags.prg
          * contrib/xhb/tcgi.prg
      - these also need to be fixed:
          * contrib/hbwin/legacy.prg:298:      xRet := ( ::OleValue = xArg ) /* NOTE: Intentionally using '=' operator. */
          * examples/rddado/tests/access2.prg:40:   LOCATE FOR ( 'First = "Lara"' )

      There are a ton more in gtwvw, hbnf, other examples and tests, I left them as is
This commit is contained in:
Viktor Szakats
2011-05-09 18:07:27 +00:00
parent c85ff7b544
commit fab384f35d
24 changed files with 183 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
harbour/examples/httpsrv/cgifunc.prg
View File

@@ -695,7 +695,7 @@ STATIC FUNCTION FT_ELAPSED(dStart, dEnd, cTimeStart, cTimeEnd)
nTemp := nTotalSec
FOR nCtr = 1 to 4
FOR nCtr := 1 to 4
nConstant := IF(nCtr == 1, 86400, IF(nCtr == 2, 3600, IF( nCtr == 3, 60, 1)))
aRetVal[nCtr,1] := INT(nTemp/nConstant)
aRetval[nCtr,2] := nTotalSec / nConstant

2
harbour/examples/httpsrv/session.prg
View File

@@ -766,7 +766,7 @@ STATIC FUNCTION FT_ELAPSED(dStart, dEnd, cTimeStart, cTimeEnd)
nTemp := nTotalSec
FOR nCtr = 1 to 4
FOR nCtr := 1 to 4
nConstant := IF(nCtr == 1, 86400, IF(nCtr == 2, 3600, IF( nCtr == 3, 60, 1)))
aRetVal[nCtr,1] := INT(nTemp/nConstant)
aRetval[nCtr,2] := nTotalSec / nConstant