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


1.5
date	2001.01.23.21.07.16;	author mys;	state Exp;
branches;
next	1.4;

1.4
date	2000.11.26.18.20.03;	author mys;	state Exp;
branches;
next	1.3;

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

1.2
date	2000.04.11.19.09.28;	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.5
log
@+bre
@
text
@# Copyright (C) 1999 - Martin Strauss - under terms of GPL
###############################################################################
# set several default values
set LISTE [list basepath libpath bhtpath hlppath txtpath gifpath etcpath menupath\
inifile\
latex_exec makeindex_exec xdvi_exec dvips_exec ghostview_exec\
language readme_flag COLOR_flag\
syntax_flag KlammerFlag wsearch_gb\
SyntaxColorGreen SyntaxColorRed SyntaxColorBlue\
BlockColor ErgaenzungGray erg2_max\
wlatex_max wTcltexed_max\
myown_max max_undo]
set LFAline 0
for {set i 0} {$i < $argc} {incr i} {
 if {[string index [lindex $argv $i] 0] == "-"} then {
  switch -- [lindex $argv $i] -variable {
   puts "Possible variables are :\n"
   foreach ii $LISTE {
    eval "puts $ii=\$$ii"
   }
   puts "\nFor further discription of the meaning of the variables"
   puts "read the first part of the script tcltexed.tcl."
   exit
  } --version {
   puts "tcltexed - version $Tcltexed_Version"
   exit
  } -ind {
   set language 2
  } -bre {
   set language 3
  } -ger {
   set language 1
  } -eng {
   set language 0
  } -v {
   if {[expr $i+2] < $argc} {
    if {[lsearch $LISTE [lindex $argv [expr $i + 1]]] != -1} {
     set [lindex $argv [expr $i + 1]] [lindex $argv [expr $i + 2]]
    }
    incr i 2
   } else {
    puts "more arguments are needed by -v"
    exit
   }
  } -new {
   after 1500 NewFile
  } default {
   puts "Usage : tcltexed.tcl -- \[options\] \[+line] file1 \[+line] file2 ...\n"
   puts "A LaTeX-Editor based on Tcl/Tk"
   puts "Possible optiones are :"
   puts "  --				..end of the arguments for wish"
   puts "  -? 				..this help"
   puts "  --version			..version of tcltexed"
   puts "  -new                         ..open new file"
   puts "  -v \"variable\" \"value\" 	..set \"variable\" to a \"value\""
   puts "  -variable 			..list all possible variables"
   puts "				 and it's default values"
   puts "  -eng 				..set language to english (0)"
   puts "  -ger 				..set language to german (1)" 
   puts "  -ind 				..set language to indonesia (2)" 
   puts "  -bre 				..set language to portuguese (3)" 
   exit
  } 
 } else {
	if [string match "+*" [lindex $argv $i]] {
		set LFAline [lindex $argv $i]
	} else {
  		after 1000 LFA [lindex $argv $i] $LFAline
		set LFAline 0
	}
 }
}
proc LFA {filename line} {
 if {[info proc LoadFileArg] != ""} {
  LoadFileArg $filename $line
 } else {
  after 500 LFA $filename $line
 }
}
@


1.4
log
@*** empty log message ***
@
text
@d27 4
d60 2
@


1.3
log
@*** empty log message ***
@
text
@d13 1
d44 1
a44 1
   puts "Usage : tcltexed.tcl -- \[options\] file1 file2 ...\n"
d59 6
a64 1
  after 1000 LFA [lindex $argv $i]
d67 1
a67 1
proc LFA filename {
d69 1
a69 1
  LoadFileArg $filename
d71 1
a71 1
  after 500 LFA $filename 
d73 1
a73 1
}@


1.2
log
@*** empty log message ***
@
text
@d1 66
a66 66
# Copyright (C) 1999 - Martin Strauss - under terms of GPL
###############################################################################
# set several default values
set LISTE [list basepath libpath bhtpath hlppath txtpath gifpath etcpath menupath\
inifile\
latex_exec makeindex_exec xdvi_exec dvips_exec ghostview_exec\
language readme_flag COLOR_flag\
syntax_flag KlammerFlag wsearch_gb\
SyntaxColorGreen SyntaxColorRed SyntaxColorBlue\
BlockColor ErgaenzungGray erg2_max\
wlatex_max wTcltexed_max\
myown_max max_undo]
for {set i 0} {$i < $argc} {incr i} {
 if {[string index [lindex $argv $i] 0] == "-"} then {
  switch -- [lindex $argv $i] -variable {
   puts "Possible variables are :\n"
   foreach ii $LISTE {
    eval "puts $ii=\$$ii"
   }
   puts "\nFor further discription of the meaning of the variables"
   puts "read the first part of the script tcltexed.tcl."
   exit
  } --version {
   puts "tcltexed - version $Tcltexed_Version"
   exit
  } -ger {
   set language 1
  } -eng {
   set language 0
  } -v {
   if {[expr $i+2] < $argc} {
    if {[lsearch $LISTE [lindex $argv [expr $i + 1]]] != -1} {
     set [lindex $argv [expr $i + 1]] [lindex $argv [expr $i + 2]]
    }
    incr i 2
   } else {
    puts "more arguments are needed by -v"
    exit
   }
  } -new {
   after 1500 NewFile
  } default {
   puts "Usage : tcltexed.tcl -- \[options\] file1 file2 ...\n"
   puts "A LaTeX-Editor based on Tcl/Tk"
   puts "Possible optiones are :"
   puts "  --				..end of the arguments for wish"
   puts "  -? 				..this help"
   puts "  --version			..version of tcltexed"
   puts "  -new                         ..open new file"
   puts "  -v \"variable\" \"value\" 	..set \"variable\" to a \"value\""
   puts "  -variable 			..list all possible variables"
   puts "				 and it's default values"
   puts "  -eng 				..set language to english (0)"
   puts "  -ger 				..set language to german (1)" 
   exit
  } 
 } else {
  after 1000 LFA [lindex $argv $i]
 }
}
proc LFA filename {
 if {[info proc LoadFileArg] != ""} {
  LoadFileArg $filename
 } else {
  after 500 LFA $filename 
 }
@


1.1
log
@Initial revision
@
text
@d40 2
d49 1
@