Tcl Code aus einer Datei einbinden

Antwort erstellen


Diese Frage dient dazu, das automatisierte Versenden von Formularen durch Spam-Bots zu verhindern.
Smilies
:D :) :( :o :shock: :? 8) :lol: :-x :P :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas

Ich habe die Datenschutzerklärung gelesen und bin damit einverstanden.

   

Wenn du eine Datei oder mehrere Dateien anhängen möchtest, gib die Details unten ein.

Ansicht erweitern Die letzten Beiträge des Themas: Tcl Code aus einer Datei einbinden

von Johannes_B » Mo 29. Jun 2015, 16:20

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

von u_fischer » Mo 29. Jun 2015, 16:12

Nachdem ich mir nun selbst ein Minimalbeispiel basteln musste ....
Nun, du lässt ihr ja kaum eine Chance, es selbst zu machen.
Johannes_B hat geschrieben: 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 ...

von Johannes_B » Mo 29. Jun 2015, 15:44

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.

Bild
\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}
Dateianhänge
leaListingsTcl.png
leaListingsTcl.png (98.74 KiB) 4318 mal betrachtet

von Lea1602 » Mo 29. Jun 2015, 15:40

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

von Johannes_B » Mo 29. Jun 2015, 15:39

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

Tcl Code aus einer Datei einbinden

von Lea1602 » Mo 29. Jun 2015, 15:27

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 :cry: 
\begin{verbatim} 
\lstinputlisting{Datei/Code.tcl}
\end{verbatim}

hoffe jemand hat eine Idee und kann mir Helfen 

Danke  Lea

Nach oben