WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

Syntax Checker

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Syntax Checker

Keywords: 	 syntax checker

This is a primitive WinBatch Syntax checker. It is designed to be placed into the WSP-USER.MNU file to add user defined items to the WinBatch Studio right-click pop-up menu.

_Syntax checker                                             ; v1.00 17/09/1999 
    cancelactive=0                                          ; recovery setup
    xxact=WinGetactive()                                    ; get edit window
    If IsKeyDown(@CTRL | @SHIFT) Then kino=1                ; cinema show ?
        Else kino=0                                         ; not today
    If kino Then AddExtender("wwsop32i.DLL")                ; get projector if nec. 
    lmax=500                                                ; max line length, should be enough
    If wGetSelstate() Then                                  ; anything selected
        xxcurl2=wGetLineNo()                                ; get end of selection line number
        wCut()                                              ; yes, copy it to clipboard
        xxcurl1=wGetLineNo()                                ; get start of selection line number
        Else                                                ;  
        xxcurl1=1                                           ; line # 1 for all
        wSelectAll()                                        ; no, get the lot
        xxcurl2=wGetLineNo()                                ; get end of selection line number
        wCut()                                              ; now
        EndIf                                               ;  
    afiles=(xxcurl2-xxcurl1+1)*lmax                         ; assuming max line lenght
    rbuf=BinaryAlloc(afiles)                                ; buf for current file
    cbuf=BinaryAlloc(afiles)                                ; buf in case of cancel
    nbuf=BinaryAlloc(afiles+10000)                          ; buf for modified selection + expansion
    :CANCEL                                                 ; like all good programs
    If cancelactive                                         ; oops time?
        If kino Then aStatusbar(2,"",""," ",0)              ; close show
        BinaryFree(rbuf)                                    ; return to owner
        BinaryFree(nbuf)                                    ; return to owner
        BinaryClipPut(cBuf, 1)                              ; restore text befor syntax check
        wPaste()                                            ; stick back in edit file
        wGotoLine(xxcurl1)                                  ; point back at original location
        BinaryFree(cbuf)                                    ; return to owner
        Exit                                                ; emergency exit
        Else                                                ;
        cancelactive=1                                      ; strap on parachute
        EndIf                                               ;
    BinaryClipGet(rBuf, 1)                                  ; and stick it in the buffer
    BinaryClipGet(cBuf, 1)                                  ; and stick it in recovery buffer
    ls=0                                                    ; starting point for unmodified lines
    If kino Then aStatusbar(0,"",""," ",0)                  ; start cinema show 
    totalbar=(xxcurl2-xxcurl1+1)                            ; total recs so far
    tsf=0                                                   ; total so far
    Brk = BinaryEodGet(rBuf)                                ; max buffer
    While ls < Brk                                          ; go through input buffer
        rc=0                                                ; no @crlf required
        le = BinaryIndexEx(rbuf,ls,@CRLF,@FWDSCAN,0)        ; find end of line
        If le < 0 Then le = brk                             ; end of buffer; last line
            Else rc=1                                       ; @crlf required 
        ll=le-ls                                            ; ll is length of current line 
        tsf=tsf+1                                           ; processed counter
        If ll <> 0                                          ;  
            dataline=BinaryPeekStr(rbuf,ls,ll)              ; process i/p record
            GoSub checksynif                                ; check for if problems
            GoSub checksynbrk                               ; check for odd delimiters
            ;add new subroutine here to cure YOUR problems return with dataline changed/unchanged ; 
            If rc Then BinaryPokeStr(nbuf,BinaryEodGet(nbuf),StrCat(dataline,@CRLF)) ; add to new buffer with @crlf
                Else BinaryPokeStr(nbuf,BinaryEodGet(nbuf),dataline) ; add to new buffer data only
            ls=ls+StrLen(dataline)                          ; add length of old/modified data
            Else                                            ;  
            BinaryPokeStr(nbuf,BinaryEodGet(nbuf),@CRLF)    ; add one blank line
            EndIf                                           ;  
        If rc Then ls=ls+2                                  ; minimum increase in rbuf size
        If kino Then aStatusbar(1,totalbar,"",totalbar,tsf) ; enjoy
        EndWhile                                            ;  
    BinaryEodSet(nbuf,ls)                                   ; set length of restore
    BinaryClipPut(nBuf, 1)                                  ; text format
    wPaste()                                                ; stick back in edit file
    wGotoLine(xxcurl1)                                      ; point back at original location
    BinaryFree(nbuf)                                        ; free output buffer
    BinaryFree(rbuf)                                        ; free input buffer
    BinaryFree(cbuf)                                        ; free original screen data
    If kino Then aStatusbar(2,"",""," ",0)                  ; close show
    ;winactivate(xxact)                                     ; get focus on edit window again
    Drop(parms,lmax,xxcurl1,xxcurl2,brk,afiles,brks,nbuf,kino,tsf,totalbar) ; drop 'em
    Drop(lmax,rbuf,ls,le,ll,xxact,x,dataline,dl2,x1,cancelactive,rc) ; drop 'em
    Display(1,"Syntax","checks finished")                   ; finished
    Exit                                                    ; finished syntax checking
    :checksynif                                             ; do some basic == v = syntax checking
    dl2=dataline                                            ; copy input
    x=StrIndex(dl2," ; ",0,@BACKSCAN)                       ; try cutting out the comment  
    If x Then dl2=StrSub(dl2,1,x)                           ; data to scan
    x=StrIndexNC(dl2,"if",0,@FWDSCAN)                       ; always confuse == with = 
    If x                                                    ; home in on trouble maker
        x1=StrIndexNC(dl2," then",x,@FWDSCAN)               ; look for then on if line
        x=StrIndex(dl2,"=",x+2,@FWDSCAN)                    ; find first = sign
        If x1<x                                             ; if then before = then forget it
            Else                                            ; 
            x1=1                                            ; set trap
            If x Then x1=StrIndex(dl2,"==",x,@FWDSCAN)      ; check for ==
            If !x1 Then dataline=AskLine("Syntax - missing == in line %tsf% ?","Hit enter to accept or edit line",dataline)
            EndIf                                           ; 
        EndIf                                               ;  
    Return                                                  ;  
    :checksynbrk                                            ; check for odd brackets, 95percent of my probs
     dl2=dataline                                           ; copy input
    x=StrIndex(dl2," ; ",0,@BACKSCAN)                       ; try cutting out the comment  
    If x Then dl2=StrSub(dl2,1,x)                           ; data to scan
    x=1                                                     ; scanning position
    brks=0                                                  ; set up count
    While x<=StrLen(dl2)                                    ; set up loop for scan
        x1=StrScan(dl2,"()[]{""''``}%%",x,@FWDSCAN)         ; scan for delimters in list
        If x1                                               ; if found
            If brks Then brks=0                             ; incr count
                Else brks=1                                 ; decr count
            EndIf                                           ;  
        If !x1 Then Break                                   ; scanned all?
            Else x=x1+1                                     ; scan again start at next position
        EndWhile                                            ;  
    If brks Then dataline=AskLine("Syntax - missing delimter in line %tsf% ?","Hit enter to accept or edit line",dataline)
    Return                                                  ; 

Article ID:   W14967
File Created: 2017:07:28:14:02:22
Last Updated: 2003:05:28:10:23:09