Tcl Code aus einer Datei einbinden Thema ist als GELÖST markiert

[Lea1602]

Hallo zusammen,

ich habe ein Problem beim einbinden meines Tcl Codes.
Ich lege zuvor die Sprache und so mit lstset fest und füge mit listinputlisting die Datei ein.

\usepackage{listings} % um Quelltext von Dateien einzubinden
\usepackage{color}
\definecolor{leichtgrau}{gray}{.90}

\lstset{
frame={tb}, 
backgroundcolor=\color{leichtgrau}, 
language={tcl}, 
showstringspaces=false, 
basicstyle=\ttfamily\small, 
keywordstyle=\color{red}, 
commentstyle=\color{blue}, 
stringstyle=\color{green}, 
numbers={left},
numberstyle={\normalsize},
numbersep={3pt},
stepnumber={1}
}

mein Code sieht in etwa so aus

unset -nocomplain NET
unset -nocomplain CELL
set fileId [open modul_scu r]
	#einlesen eines Files bis das Ende des Files erreicht ist
	while {![eof $fileId]} {
		#zeilenweise einlesen des Files				
	gets $fileId line
	if {$line== "" || $line=="endmodule"} {continue} 
	if [regexp {^/\*.*\*/$} $line] {continue}
		
	while {![regexp { .*;$} $line]} {
		gets $fileId newline
		#verbiden der beiden Zeilen line und newline
		set line [concat $line $newline]
		#puts $line
	}
		}
	
close $fileId

wenn ich jetzt Kompeliere dann wird im Dokument die stelle farbig dargestellt und auch die Zeilen Nummerierung wird gemacht. Allerdings bleibt das Feld sonst leer

einbinden der Datei mache ich mit

\lstinputlistings [caption={tcl Code}, Label{list:code}]{Datei/Code.tcl}

wenn ich versuche das in einer verbatim Umgebung einzubinden wird gar nichts mehr angezeigt

\begin{verbatim} 
\lstinputlisting{Datei/Code.tcl}
\end{verbatim}

hoffe jemand hat eine Idee und kann mir Helfen 

Danke  Lea

[Johannes_B]

Warum hast du da eine verbatim-Umgebung beim Einlesen der Datei? Mach die mal weg.

[Lea1602]

Die hab ich jetzt raus
hatte die da drin weil das so in dem Beispiel stand aber dann zeigt der gar nicht mehr an und ohne die Umgebung gibt der halt nur nen leeres Feld mit Nummerierung aus

[Johannes_B]

Nachdem ich mir nun selbst ein Minimalbeispiel basteln musste ....

Der Befehl zum Einbinden des Codes hat hinten kein s, du erhältst deshalb eine entsprechende Fehlermeldung. Außerdem stimmt etwas mit dem Label nicht.

\begin{filecontents}{\jobname.tcl}

	unset -nocomplain NET
	unset -nocomplain CELL
	set fileId [open modul_scu r]
	#einlesen eines Files bis das Ende des Files erreicht ist
	while {![eof $fileId]} {
		#zeilenweise einlesen des Files            
		gets $fileId line
		if {$line== "" || $line=="endmodule"} {continue}
		if [regexp {^/\*.*\*/$} $line] {continue}

		while {![regexp { .*;$} $line]} {
			gets $fileId newline
			#verbiden der beiden Zeilen line und newline
			set line [concat $line $newline]
			#puts $line
		}
	}

	close $fileId

\end{filecontents}
\documentclass{article}
\usepackage{listings} % um Quelltext von Dateien einzubinden
\usepackage{color}
\definecolor{leichtgrau}{gray}{.90}

\lstset{
	frame={tb},
	backgroundcolor=\color{leichtgrau},
	language={tcl},
	showstringspaces=false,
	basicstyle=\ttfamily\small,
	keywordstyle=\color{red},
	commentstyle=\color{blue},
	stringstyle=\color{green},
	numbers={left},
	numberstyle={\normalsize},
	numbersep={3pt},
	stepnumber={1}
} 

\begin{document}
\lstinputlisting[caption={tcl Code},label={list:code}]{\jobname.tcl}
\end{document}

[u_fischer]

Nachdem ich mir nun selbst ein Minimalbeispiel basteln musste ....

Nun, du lässt ihr ja kaum eine Chance, es selbst zu machen.

Der Befehl zum Einbinden des Codes hat hinten kein s, du erhältst deshalb eine entsprechende Fehlermeldung. Außerdem stimmt etwas mit dem Label nicht.

Keiner dieser Fehler führt aber zur Problembeschreibung, dass "der halt nur nen leeres Feld mit Nummerierung ausgibt". Lass Lea1602 das Beispiel mal selber machen. Vielleicht kommt sie/er dann selber drauf, was verantwortlich ist. Jemand der tcl-Code schreibt, kann ja nicht ganz unerfahren im Code debuggen sein ...

[Johannes_B]

Nun gut, ich halte mich zurück. :-)