Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Workaround für SHELL-Bug in Linux-Version 0.20.0
| Uploader: |  Sebastian |
| Datum/Zeit: | 09.04.2010 09:44:01 |
'Workaround für einen Bug des SHELL-Befehls in der Linux-Version
' des Compilers (V. 0.20.0)
'Beschreibung des Fehlers im Forum:
' http://www.freebasic.net/forum/viewtopic.php?t=13805
'Bugreport:
' http://sourceforge.net/tracker/?func=detail&aid=2590116 ...
' ... &group_id=122342&atid=693196
'Hiermit wird unentgeltlich, jeder Person, die eine Kopie der
'Software und der zugehörigen Dokumentationen (die "Software")
'erhält, die Erlaubnis erteilt, uneingeschränkt zu benutzen,
'inklusive und ohne Ausnahme, dem Recht, sie zu verwenden,
'kopieren, ändern, fusionieren, verlegen, verbreiten, unter-
'lizenzieren und/oder zu verkaufen, und Personen, die diese
'Software erhalten, diese Rechte zu geben, unter den folgenden
'Bedingungen:
'DIE SOFTWARE WIRD OHNE JEDE AUSDRÜCKLICHE ODER IMPLIZIERTE
'GARANTIE BEREITGESTELLT, EINSCHLIESSLICH DER GARANTIE ZUR
'BENUTZUNG FÜR DEN VORGESEHENEN ODER EINEM BESTIMMTEN ZWECK
'SOWIE JEGLICHER RECHTSVERLETZUNG, JEDOCH NICHT DARAUF
'BESCHRÄNKT. IN KEINEM FALL SIND DIE AUTOREN ODER COPYRIGHT-
'INHABER FÜR JEGLICHEN SCHADEN ODER SONSTIGE ANSPRÜCHE
'HAFTBAR ZU MACHEN, OB INFOLGE DER ERFÜLLUNG EINES VERTRAGES,
'EINES DELIKTES ODER ANDERS IM ZUSAMMENHANG MIT DER SOFTWARE
'ODER SONSTIGER VERWENDUNG DER SOFTWARE ENTSTANDEN.
'Shell-Befehl in diesem Programm zunaechst deaktivieren
#UNDEF Shell
'Stattdessen: Eigene Ersatzfunktion für den Shell-Befehl
Function Shell (Byval S As String) As Integer
Dim As Integer ff
Dim As String x
If S = "" Then Return -1
ff = Freefile
Open Pipe S For Input As #ff
Do Until Eof(ff)
Line Input #ff, x
Print x
Loop
Close #ff
Return 0
'Rueckgabewert ist nach erfolgter Ausfuehrung immer 0
'im Gegensatz zum Originalbefehl.
End Function