head    1.2;
access;
symbols;
locks
       mys:1.2; strict;
comment @# @;


1.2
date    2000.04.11.21.41.24;    author mys;     state Exp;
branches;
next    1.1;

1.1
date    99.11.09.21.32.05;      author mys;     state Exp;
branches;
next    ;


desc
@@

1.2
log
@*** empty log message ***
@
text
@# Copyright (C) 1999 - Martin Strauss - under terms of GPL
#######################################################
# Farbige Syntax
# ok !
proc Syntax {E START END} {
global I_befehl syntax_flag
if $syntax_flag {
 set NEW_syntax [$E search "\\" $START $END]
 if {$NEW_syntax != ""} {
  $E tag remove syntax_green $NEW_syntax $END
  $E tag remove syntax_red $NEW_syntax $END
  $E tag remove syntax_blue $NEW_syntax $END
  set LISTE [array names I_befehl]
  lappend LISTE "$" "\\" "\[" "\]" "\{" "\}" ";" "." "-"
  while {$NEW_syntax != ""} {
   $E mark set syntax $NEW_syntax
   if {[$E get syntax-1c syntax] != "\\"} {
    set ksp [lsearch -exact $LISTE [$E get syntax+1c {syntax+1c wordend}]]
    if {$ksp == -1} {
     $E tag add syntax_red syntax {syntax+1c wordend}
    } else {
     $E tag add syntax_green syntax {syntax+1c wordend}
    }
   } elseif {[$E get syntax-2c syntax-1c] != "\\"} {
    set ksp [lsearch -exact $LISTE [$E get syntax+1c {syntax+1c wordend}]]
    if {$ksp == -1} {
     $E tag add syntax_red syntax {syntax+1c wordend}
    } else {
     $E tag add syntax_green syntax {syntax+1c wordend}
    }
   }
   set NEW_syntax [$E search "\\" syntax+1c $END]
  }
  set NEW_syntax [$E search "%" $START $END]
  while {$NEW_syntax != ""} {
   $E mark set syntax $NEW_syntax
   if {[$E get syntax-1c syntax] != "\\"} {
    $E tag add syntax_blue syntax {syntax lineend}
    $E tag remove syntax_red syntax {syntax lineend}
   } else {
    $E tag add syntax_green syntax-1c syntax+1c
    $E tag remove syntax_red syntax-1c syntax+1c
   }
   set NEW_syntax [$E search "%" syntax+1c $END]
  }

  set NEW_syntax [$E search "$" $START $END]
  while {$NEW_syntax != ""} {
   $E mark set syntax $NEW_syntax
   $E tag add syntax_green syntax syntax+1c
   $E tag remove syntax_red syntax syntax+1c
   set NEW_syntax [$E search "$" syntax+1c $END]
  }
}}}
@


1.1
log
@Initial revision
@
text
@d1 54
a54 54
# Copyright (C) 1999 - Martin Strauss - under terms of GPL
#######################################################
# Farbige Syntax
# ok !
proc Syntax {E START END} {
global I_befehl syntax_flag
if $syntax_flag {
 set NEW_syntax [$E search "\\" $START $END]
 if {$NEW_syntax != ""} {
  $E tag remove syntax_green $NEW_syntax $END
  $E tag remove syntax_red $NEW_syntax $END
  $E tag remove syntax_blue $NEW_syntax $END
  set LISTE [array names I_befehl]
  lappend LISTE "$" "\\" "\[" "\]" "\{" "\}" ";" "." "-"
  while {$NEW_syntax != ""} {
   $E mark set syntax $NEW_syntax
   if {[$E get syntax-1c syntax] != "\\"} {
    set ksp [lsearch -exact $LISTE [$E get syntax+1c {syntax+1c wordend}]]
    if {$ksp == -1} {
     $E tag add syntax_red syntax {syntax+1c wordend}
    } else {
     $E tag add syntax_green syntax {syntax+1c wordend}
    }
   } elseif {[$E get syntax-2c syntax-1c] != "\\"} {
    set ksp [lsearch -exact $LISTE [$E get syntax+1c {syntax+1c wordend}]]
    if {$ksp == -1} {
     $E tag add syntax_red syntax {syntax+1c wordend}
    } else {
     $E tag add syntax_green syntax {syntax+1c wordend}
    }
   }
   set NEW_syntax [$E search "\\" syntax+1c $END]
  }
  set NEW_syntax [$E search "%" $START $END]
  while {$NEW_syntax != ""} {
   $E mark set syntax $NEW_syntax
   if {[$E get syntax-1c syntax] != "\\"} {
    $E tag add syntax_blue syntax {syntax lineend}
    $E tag remove syntax_red syntax {syntax lineend}
   } else {
    $E tag add syntax_green syntax-1c syntax+1c
    $E tag remove syntax_red syntax-1c syntax+1c
   }
   set NEW_syntax [$E search "%" syntax+1c $END]
  }

  set NEW_syntax [$E search "$" $START $END]
  while {$NEW_syntax != ""} {
   $E mark set syntax $NEW_syntax
   $E tag add syntax_green syntax syntax+1c
   $E tag remove syntax_red syntax syntax+1c
   set NEW_syntax [$E search "$" syntax+1c $END]
  }
}}}
@

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.