svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases Wiki Activity

Tcl, Perl, PHP highlight comment procedure fixed. Help file Text.html utf-8 encoding

Browse Source
This commit is contained in:
Sergey Kalinin
2018-02-07 11:10:54 +03:00
parent 1bd581d380
commit 24581a98d4
7 changed files with 1594 additions and 1616 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/highlight/java.tcl
View File

@@ -209,7 +209,3 @@ proc HighLightJAVA {text line lineNumber node} {
}
}

18
lib/highlight/perl.tcl
View File

@@ -151,14 +151,6 @@ proc HighLightPERL {text line lineNumber node} {
break
}
}
## COMENTS ##
set workLine [$text get $lineNumber.0 $lineNumber.end]
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
# DEDERER
# hightlight [, {, }, ], ( , )
@@ -196,9 +188,19 @@ proc HighLightPERL {text line lineNumber node} {
break
}
}
## COMENTS ##
set workLine [$text get $lineNumber.0 $lineNumber.end]
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
$text tag raise comments
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
}

15
lib/highlight/rivet.tcl
View File

@@ -159,6 +159,7 @@ proc HighLightRIVET {text line lineNumber node} {
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
$text tag raise comments
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
@@ -233,17 +234,3 @@ proc HighLightRIVET {text line lineNumber node} {
}

32
lib/highlight/tcl.tcl
View File

@@ -165,14 +165,6 @@ proc HighLightTCL {text line lineNumber node} {
}
}
# add comment #
set workLine [$text get $lineNumber.0 $lineNumber.end]
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
# DEDERER
# hightlight [, {, }, ]
set startPos 0
@@ -208,20 +200,14 @@ proc HighLightTCL {text line lineNumber node} {
break
}
}
# add comment #
set workLine [$text get $lineNumber.0 $lineNumber.end]
if {[regexp -indices "(^|\t|;| )#" $workLine word]} {
set p [lindex $word 1]
$text tag add comments $lineNumber.$p $lineNumber.end
$text tag raise comments
} else {
$text tag remove comments $lineNumber.0 $lineNumber.end
}
}