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


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

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


desc
@@

1.2
log
@*** empty log message ***
@
text
@#!/usr/bin/wish8.0
# Tcltexed | Version 2.3 | 1. Feb. 1999 | Martin Strauss
set Tcltexed_Version 2.3 
# A plaintext-editor for LaTeX based on scriptlanguage tcl/tk (8.x) 
#
# Copyright (C) 1998 - Martin Strauss -
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
# My email-adress : mys@@phi.faveve.uni-stuttgart.de
#######################################################################
# Begin of Tcltexed
#######################################################################
set basepath "[file dirname [info script]]/.."
#######################################################################
# If it doesn't work by it's own please enter here the right
# installationpath to the base of tcltexed (not to the executable)
# and uncommend the next line
# set basepath /usr/local/app/tcltexed-2.2
#######################################################################
# You propably aren't interested to mix my files locations ???
set etcpath $basepath/etc
#######################################################################
# a short test looking if you set your mainpath right
if {![file exists $basepath/bin/tcltexed.tcl]} {
 wm withdraw .
 tk_messageBox -icon error -message "[info script] Tcltexed\nWrong path configuration !\nPlease read the INSTALL file !\n Currently the basepath is set to\n $basepath\nbut I can't find my data there."
 exit
}
#######################################################################
# Where to save options, this should work in the most cases
# without interferring 
switch $tcl_platform(platform) unix {
 set spellfileown $env(HOME)/.tcltexed_spell
 set spellfile $etcpath/tcltexed.sp
} windows {
 switch $tcl_platform(os) "Windows 95" {
  set spellfileown $etcpath/tcltexed_own.sp
  set spellfile $etcpath/tcltexed.sp
 } "Windows NT" {
  set spellfileown $env(USERPROFILE)/tcltexed.sp
  set spellfile $etcpath/tcltexed.sp
 }
}
#######################################################################
# What not to have within a word to spell
# [-0123456789&$^\[\]?\\+*/%=_]
set spell_not "\[-0123456789&$^\\\[\\\]\\\\+*/%=_\]"
set spell_yes "\[ \n\t.,:;!?\\\[\\\]\{\}()\]"



##########################################################################
##########################################################################
# You won't believe it what happens if you ... so leave it the way it is #
##########################################################################
label .l -text "This program adds\n new words for a language\nto current dictionary of tcltexed\n and saves the result.\n english -> 0\ngerman -> 1" 
set language 1
tk_optionMenu .m language 0 1
frame .f1
entry .f1.e 
.f1.e insert 0 sourcefile
button .f1.b -text browse -command {
 .f1.e delete 0 end
 .f1.e insert 0 [tk_getOpenFile]
}
pack .f1.e .f1.b -side left

frame .f2
entry .f2.e
.f2.e insert 0 $spellfileown
button .f2.b -text browse -command {
 .f2.e delete 0 end
 .f2.e insert 0 [tk_getSaveFile]
}
pack .f2.e .f2.b -side left

button .b -text "do it !" -command {
set file [.f1.e get]
set savefile [.f2.e get]

if [file exists $file] then {

 set f [open $file r]
 set Text [read $f]
 close $f

 if [file exists $spellfile$language] then {
  set f [open $spellfile$language r]
  set LISTE [gets $f]
  close $f
 # foreach I $LISTE {set spell_array($I) G}
 }
 if [file exists $spellfileown$language] then {
  set f [open $spellfileown$language r]
  set LISTE [gets $f]
  close $f
 # foreach I $LISTE {set spell_array($I) O}
 }
 set anz 0
 set last ""
 set LISTE [lsort [split $Text $spell_yes]]
 foreach I $LISTE {
  if {[string compare $last $I]!=0} {
   if {[regexp -- $spell_not $I] == 0} {
    if {![info exists spell_array($I)]} {
     if {$I != ""} {
      set spell_array($I) O
      incr anz
  }}}}
  set last $I
 }
 set LISTE ""
 set L [array get spell_array]
 foreach {I V} $L {lappend LISTE $I}
 set f [open $savefile$language w]
 puts $f [lsort $LISTE]
 close $f
 tk_messageBox  -type ok  -message "$anz words added\n from\t$file \n \t$spellfile$language \n\t $spellfileown$language\n to\t $savefile$language"
} { tk_messageBox  -type ok  -message "$file not found"
}
}

pack .l .m .f1 .f2 .b
@


1.1
log
@Initial revision
@
text
@d1 136
a136 136
#!/usr/bin/wish8.0
# Tcltexed | Version 2.3 | 1. Feb. 1999 | Martin Strauss
set Tcltexed_Version 2.3 
# A plaintext-editor for LaTeX based on scriptlanguage tcl/tk (8.x) 
#
# Copyright (C) 1998 - Martin Strauss -
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
#
# My email-adress : mys@@phi.faveve.uni-stuttgart.de
#######################################################################
# Begin of Tcltexed
#######################################################################
set basepath "[file dirname [info script]]/.."
#######################################################################
# If it doesn't work by it's own please enter here the right
# installationpath to the base of tcltexed (not to the executable)
# and uncommend the next line
# set basepath /usr/local/app/tcltexed-2.2
#######################################################################
# You propably aren't interested to mix my files locations ???
set etcpath $basepath/etc
#######################################################################
# a short test looking if you set your mainpath right
if {![file exists $basepath/bin/tcltexed.tcl]} {
 wm withdraw .
 tk_messageBox -icon error -message "[info script] Tcltexed\nWrong path configuration !\nPlease read the INSTALL file !\n Currently the basepath is set to\n $basepath\nbut I can't find my data there."
 exit
}
#######################################################################
# Where to save options, this should work in the most cases
# without interferring 
switch $tcl_platform(platform) unix {
 set spellfileown $env(HOME)/.tcltexed_spell
 set spellfile $etcpath/tcltexed.sp
} windows {
 switch $tcl_platform(os) "Windows 95" {
  set spellfileown $etcpath/tcltexed_own.sp
  set spellfile $etcpath/tcltexed.sp
 } "Windows NT" {
  set spellfileown $env(USERPROFILE)/tcltexed.sp
  set spellfile $etcpath/tcltexed.sp
 }
}
#######################################################################
# What not to have within a word to spell
# [-0123456789&$^\[\]?\\+*/%=_]
set spell_not "\[-0123456789&$^\\\[\\\]\\\\+*/%=_\]"
set spell_yes "\[ \n\t.,:;!?\\\[\\\]\{\}()\]"



##########################################################################
##########################################################################
# You won't believe it what happens if you ... so leave it the way it is #
##########################################################################
label .l -text "This program adds\n new words for a language\nto current dictionary of tcltexed\n and saves the result.\n english -> 0\ngerman -> 1" 
set language 1
tk_optionMenu .m language 0 1
frame .f1
entry .f1.e 
.f1.e insert 0 sourcefile
button .f1.b -text browse -command {
 .f1.e delete 0 end
 .f1.e insert 0 [tk_getOpenFile]
}
pack .f1.e .f1.b -side left

frame .f2
entry .f2.e
.f2.e insert 0 $spellfileown
button .f2.b -text browse -command {
 .f2.e delete 0 end
 .f2.e insert 0 [tk_getSaveFile]
}
pack .f2.e .f2.b -side left

button .b -text "do it !" -command {
set file [.f1.e get]
set savefile [.f2.e get]

if [file exists $file] then {

 set f [open $file r]
 set Text [read $f]
 close $f

 if [file exists $spellfile$language] then {
  set f [open $spellfile$language r]
  set LISTE [gets $f]
  close $f
 # foreach I $LISTE {set spell_array($I) G}
 }
 if [file exists $spellfileown$language] then {
  set f [open $spellfileown$language r]
  set LISTE [gets $f]
  close $f
 # foreach I $LISTE {set spell_array($I) O}
 }
 set anz 0
 set last ""
 set LISTE [lsort [split $Text $spell_yes]]
 foreach I $LISTE {
  if {[string compare $last $I]!=0} {
   if {[regexp -- $spell_not $I] == 0} {
    if {![info exists spell_array($I)]} {
     if {$I != ""} {
      set spell_array($I) O
      incr anz
  }}}}
  set last $I
 }
 set LISTE ""
 set L [array get spell_array]
 foreach {I V} $L {lappend LISTE $I}
 set f [open $savefile$language w]
 puts $f [lsort $LISTE]
 close $f
 tk_messageBox  -type ok  -message "$anz words added\n from\t$file \n \t$spellfile$language \n\t $spellfileown$language\n to\t $savefile$language"
} { tk_messageBox  -type ok  -message "$file not found"
}
}

pack .l .m .f1 .f2 .b
@