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

2000-11-02 20:35 UTC+0800 Ron Pinkas <ron@profit-master.com>

Browse Source 
* contrib/dot/pp.prg
     ! Corrected minor bug with [] string delimiters.

   * contrib/dot/rp_dot.ch
     + Added rule for EXIT
This commit is contained in:
Ron Pinkas
2000-11-03 04:41:44 +00:00
parent 8608b9ce33
commit 33ce57e6f7
3 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -1,3 +1,10 @@
2000-11-02 20:35 UTC+0800 Ron Pinkas <ron@profit-master.com>
* contrib/dot/pp.prg
! Corrected minor bug with [] string delimiters.
* contrib/dot/rp_dot.ch
+ Added rule for EXIT
2000-11-02 15:45 UTC+0800 Ron Pinkas <ron@profit-master.com>
* source/rtl/tget.prg
* include/hbextern.ch

6
harbour/contrib/dot/pp.prg
View File

@@ -1844,9 +1844,9 @@ FUNCTION NextToken( sLine, bCheckRules )
ELSEIF Left( sLine, 1 ) == '['
IF s_cLastChar >= 'a' .OR. s_cLastChar <= 'z' .OR. ;
s_cLastChar >= 'A' .OR. s_cLastChar <= 'Z' .OR. ;
s_cLastChar >= '0' .OR. s_cLastChar <= '9' .OR. ;
IF ( s_cLastChar >= 'a' .AND. s_cLastChar <= 'z' ) .OR. ;
( s_cLastChar >= 'A' .AND. s_cLastChar <= 'Z' ) .OR. ;
( s_cLastChar >= '0' .AND. s_cLastChar <= '9' ) .OR. ;
s_cLastChar == '_' .OR. s_cLastChar $ ")}]"
sReturn := '['

1
harbour/contrib/dot/rp_dot.ch
View File

@@ -1 +1,2 @@
#COMMAND BROWSE => Browse( 1, 0, 23, 79 )
#COMMAND EXIT => __QUIT()