Morgen kommt die "Corona Warn-App" - hier ist der Code

[Thomas Koenig]

BASIC ist auch die beste Programiersprache,
weil es einen GOTO Befehl gibt.

COMEFROM ist viel besser, siehe "A Linguistic Contribution of
GOTO-less Programming", DATAMATION, December, 1973,

Oder halt, wie beim OS/360 FORTRAN IV G - Compiler implementiert,
als AT - Statement.

Dagegen ist BASIC Kinderkram.

[Volker N. Englisch]

Post by Thomas Koenig

BASIC ist auch die beste Programiersprache,
weil es einen GOTO Befehl gibt.

Gibts in COBOL und RPG (sic!) auch. Sogar in Pascal.

Post by Thomas Koenig
COMEFROM ist viel besser, siehe "A Linguistic Contribution of
GOTO-less Programming", DATAMATION, December, 1973,

Lol :-)

Post by Thomas Koenig
Oder halt, wie beim OS/360 FORTRAN IV G - Compiler implementiert,
als AT - Statement.

Hmm, FORTRAN... :-(

Post by Thomas Koenig
Dagegen ist BASIC Kinderkram.

Jep.

[Thomas Koenig]

Post by Volker N. Englisch

Post by Thomas Koenig

BASIC ist auch die beste Programiersprache,
weil es einen GOTO Befehl gibt.

Gibts in COBOL und RPG (sic!) auch. Sogar in Pascal.

Post by Thomas Koenig
COMEFROM ist viel besser, siehe "A Linguistic Contribution of
GOTO-less Programming", DATAMATION, December, 1973,

Lol :-)

Post by Thomas Koenig
Oder halt, wie beim OS/360 FORTRAN IV G - Compiler implementiert,
als AT - Statement.

Hmm, FORTRAN... :-(

FORTRAN IV ist nach heutigen Gesichtspunkten natürlich stark
veraltet. Stammt aber auch von 1962.

Seit 1991 ist Fortran Fortran allerdings eine moderne
Programmiersprache mit ziemlich vielen Möglichkeiten, mittlereweile
hat die Sprache derived types (=structs in C), automatische
Übergabe von Arraygrenzen, dynamische Speicherwerwaltung,
Array-Ausdrücke, Module, Objektorientierung und Parallelisierung
(partitionaed global address space, über Coarrays).

Und mehrdimensionale Arrays konnte Fortran II im Jahr 1958 schon
besser als C heute...

[Juergen Ilse]

Hallo,

Post by Thomas Koenig

BASIC ist auch die beste Programiersprache,
weil es einen GOTO Befehl gibt.

COMEFROM ist viel besser, siehe "A Linguistic Contribution of
GOTO-less Programming", DATAMATION, December, 1973,
Oder halt, wie beim OS/360 FORTRAN IV G - Compiler implementiert,
als AT - Statement.
Dagegen ist BASIC Kinderkram.

Wie wir spaetestens seit dem Artikel "real programmers don't use pascal"
wissen, hat in Fortran auch das arithmetische "IF" (das mit den drei
Ausgaengen) so einiges fuer sich (weil es Programme interessanter macht).
;-)

Tschuess,
Juergen Ilse (***@usenet-verwaltung.de)

[Thomas Koenig]

Post by Juergen Ilse
Hallo,

Post by Thomas Koenig

BASIC ist auch die beste Programiersprache,
weil es einen GOTO Befehl gibt.

COMEFROM ist viel besser, siehe "A Linguistic Contribution of
GOTO-less Programming", DATAMATION, December, 1973,
Oder halt, wie beim OS/360 FORTRAN IV G - Compiler implementiert,
als AT - Statement.
Dagegen ist BASIC Kinderkram.

Wie wir spaetestens seit dem Artikel "real programmers don't use pascal"
wissen, hat in Fortran auch das arithmetische "IF" (das mit den drei
Ausgaengen) so einiges fuer sich (weil es Programme interessanter macht).

"hatte" ist vielleicht etwas präziser, seit 1991 ist es "obsolecent",
seit 2018 aus der Norm verschwunden.

Ich habe mir mal "Abstracting Away The Machine" besorgt, die Geschichte
von Fortran. Das ist absolut faszinierend, wie es aussah, als das Team
von Backus damals mit dem ersten Fortran-Compiler angefangen hat.

Damals haben die meisten Programmier Maschinensprache geschrieben.
Wenige haben Assembler verwendet, das hat wertvolle Maschinenzeit
verbraten und war für Weicheier. (Never mind the debugging).

Und der erste Fortran-Compiler hat es tatsächlich hinbekommen,
die Effizienz von handgeschriebenem Maschinen- bzw. Assemblercode
zu erreichen.

Das Team hat damals den basic block erfunden (einschließlich
reordering) und mit (wie wir heute sagen würden) strength
reduction, value propagation und dead code elimination operiert.
Die Registerzuteilung war auch exzellent (da hat man erst Jahrzehnte
später was besseres gefunden). Ein weiterer riesiger Schritt
war arithmetisch korrektes Parsen von Formeln wie a + b*c**(d+e),
allerdings viel komplizierter als heute (ohne Rekursion).

Und das alles in ca. 24000 Assembler-Instruktionen für den
ganzen Compiler, auf einer Maschine mit einem Akkumulator,
einem Hilfsregister und drei Indexregistern.

Die Leute hatten's echt drauf.

[Juergen Ilse]

Post by Thomas Koenig

Post by Juergen Ilse

Post by Thomas Koenig

BASIC ist auch die beste Programiersprache,
weil es einen GOTO Befehl gibt.

COMEFROM ist viel besser, siehe "A Linguistic Contribution of
GOTO-less Programming", DATAMATION, December, 1973,
Oder halt, wie beim OS/360 FORTRAN IV G - Compiler implementiert,
als AT - Statement.
Dagegen ist BASIC Kinderkram.

Wie wir spaetestens seit dem Artikel "real programmers don't use pascal"
wissen, hat in Fortran auch das arithmetische "IF" (das mit den drei
Ausgaengen) so einiges fuer sich (weil es Programme interessanter macht).

"hatte" ist vielleicht etwas präziser, seit 1991 ist es "obsolecent",
seit 2018 aus der Norm verschwunden.

Ja, die Sprache wird immermehr verstuemmelt ... Isst vielleicht auch schon
die "entry" Anweisung verschwunden, und man kann keine "alternativen Ein-
sprungpunktein Unterprogramme" mehr definieren?

Tschuess,
Juergen Ilse (***@usenet-verwaltung.de)

[Thomas Koenig]

Post by Juergen Ilse

Post by Thomas Koenig

Post by Juergen Ilse
Wie wir spaetestens seit dem Artikel "real programmers don't use pascal"
wissen, hat in Fortran auch das arithmetische "IF" (das mit den drei
Ausgaengen) so einiges fuer sich (weil es Programme interessanter macht).

"hatte" ist vielleicht etwas präziser, seit 1991 ist es "obsolecent",
seit 2018 aus der Norm verschwunden.

Ja, die Sprache wird immermehr verstuemmelt ... Isst vielleicht auch schon
die "entry" Anweisung verschwunden, und man kann keine "alternativen Ein-
sprungpunktein Unterprogramme" mehr definieren?

Das wird mittlerweile in moderen Fortran - Programmen nicht mehr
per quasi-Assembler gemacht, sondern über eine Masterfunktion.

D.h.so was wie

SUBROUTINE FOO(A)
REAL A
A = 1.0
ENTRY BAR(I)
INTEGER I
I = 1

wird dann zu

subroutine foo(a)
real :: a
call foo_master(1, a=a)
end

subroutine bar(i)
real :: i
call foo_master (2, i=i)
end

subroutine foo_master (num_routine, a, i)
integer, intent(in) :: num_routine
real, optional :: a
integer, optional :: i
if (num_routine <= 1) then
a = 1.0
end if
if (num_routine <= 2) then
i = 1
end if
end subroutine foo_master

(Die Syntax stimmt nicht ganz).

Kriegt man also auch ganz gut so hin.

[F. W.]

Post by Thomas Koenig

BASIC ist auch die beste Programiersprache,
weil es einen GOTO Befehl gibt.

COMEFROM ist viel besser, siehe "A Linguistic Contribution of
GOTO-less Programming", DATAMATION, December, 1973,
Oder halt, wie beim OS/360 FORTRAN IV G - Compiler implementiert,
als AT - Statement.
Dagegen ist BASIC Kinderkram.

...wenn der FORTRAN-Compiler mal läuft, schon. In der Zeit hast Du aber
schon ein paar BASIC-Programme geschrieben. Wenigstens auf der /390 :-D

FW

[Thomas Koenig]

Post by F. W.

Post by Thomas Koenig

BASIC ist auch die beste Programiersprache,
weil es einen GOTO Befehl gibt.

COMEFROM ist viel besser, siehe "A Linguistic Contribution of
GOTO-less Programming", DATAMATION, December, 1973,
Oder halt, wie beim OS/360 FORTRAN IV G - Compiler implementiert,
als AT - Statement.
Dagegen ist BASIC Kinderkram.

...wenn der FORTRAN-Compiler mal läuft, schon. In der Zeit hast Du aber
schon ein paar BASIC-Programme geschrieben. Wenigstens auf der /390 :-D

Noch traumatisiert, weil die Jobs nicht losliefen wegen zu niedriger
Prio? :-)

Lochkartenstapel abgeben und am nächsten Tag wiederkommen kann es
ja kaum gewesen sein auf einer /390, da war die Zeit eigentlich
schon vorbei :-)

[F. W.]

Post by Thomas Koenig

Post by F. W.

Post by Thomas Koenig
Dagegen ist BASIC Kinderkram.

...wenn der FORTRAN-Compiler mal läuft, schon. In der Zeit hast Du aber
schon ein paar BASIC-Programme geschrieben. Wenigstens auf der /390 :-D

Noch traumatisiert, weil die Jobs nicht losliefen wegen zu niedriger
Prio? :-)
Lochkartenstapel abgeben und am nächsten Tag wiederkommen kann es
ja kaum gewesen sein auf einer /390, da war die Zeit eigentlich
schon vorbei :-)

Ja, wir Studis waren immer das Letzte. :-D

FW

[Thomas Koenig]

Post by F. W.

Post by Thomas Koenig

Post by F. W.

Post by Thomas Koenig
Dagegen ist BASIC Kinderkram.

...wenn der FORTRAN-Compiler mal läuft, schon. In der Zeit hast Du aber
schon ein paar BASIC-Programme geschrieben. Wenigstens auf der /390 :-D

Noch traumatisiert, weil die Jobs nicht losliefen wegen zu niedriger
Prio? :-)
Lochkartenstapel abgeben und am nächsten Tag wiederkommen kann es
ja kaum gewesen sein auf einer /390, da war die Zeit eigentlich
schon vorbei :-)

Ja, wir Studis waren immer das Letzte. :-D

Also, in der Zeit, in der ich in Karlsruhe an der Großrechneranlage
(Siemens 7881 mit MVS-Clone von Fujitsu) einen Studentenaccount
hatte, hatte ich da keine Probleme.

Bloß die CPU-Zeit war sehr knapp (reichte aber für LaTeX, als
damals auf einem 286er eine Seite eine Minute brauchte), und vor
allem gab es da einen LASERDRUCKER! Unglaublich!

[F. W.]

Post by Thomas Koenig
Also, in der Zeit, in der ich in Karlsruhe an der Großrechneranlage
(Siemens 7881 mit MVS-Clone von Fujitsu) einen Studentenaccount
hatte, hatte ich da keine Probleme.

Ich war froh, als die Pflichtzeit vorbei war und wir uns zwischen einer
HP3000 (Cobol) und einer Nixdorf Quattro (C) entscheiden durften. Die
Quattro hatte ich lieb gewonnen (wie vorher die 8870) aber die wurde
damals schon abgebaut, um einer HPUX-Maschine Platz zu machen.

Die 8870 war eine geile BASIC-Maschine. Extrem pragmatisch aufgebaut,
flott und mit COMET ein Standard, leider aber schlunzig dokumentiert.
Viele Unterroutinen waren gar nicht bekannt, so dass ich in den USA
recherchieren durfte.

Post by Thomas Koenig
Bloß die CPU-Zeit war sehr knapp (reichte aber für LaTeX, als damals
auf einem 286er eine Seite eine Minute brauchte), und vor allem gab
es da einen LASERDRUCKER! Unglaublich!

Ja, hatten wir auch. Groß wie ein Golf. :-D

FW

[Juergen Ilse]

Hallo,

Post by Thomas Koenig
Also, in der Zeit, in der ich in Karlsruhe an der Großrechneranlage
(Siemens 7881 mit MVS-Clone von Fujitsu) einen Studentenaccount
hatte, hatte ich da keine Probleme.

Mitte der 80er wurden die Programmieraufgaben der Anfaegervorlesung program-
mieren in Pascal auf der Cyber durchgefuehrt: Erzeugen des Lochkartenstapels
und Stapel abgeben, amnaechsten Tag den Ausdruck abholen. Auf dem Ausdruck
waren dann wahlweise diie Compilerfehlermeldungen oder die Ausgabe des
Programms.

Tschuess,
Juergen Ilse (***@usenet-verwaltung.de)

[Thomas Koenig]

[F'up]

BASIC ist auch die beste Programiersprache, weil es einen GOTO
Befehl gibt.

Es gibt in C auch einen goto Befehl, wenn man ihn braucht ist er da,
aber normalerweise braucht man ihn eher selten.

Ja, ich habe ihn in meinen professionellen Jahren nur ein einziges mal
benutzt (Druckroutinen der IBM Anlagenbuchhaltung - als Vorsicht!).

Ich verwende goto in C in zwei Fällen: Entweder um aus inneren
Schleifen rauszukommen (da es im Gegensatz zu anderen Sprachen kein
"break label" gibt), oder für Fehlerbehandlung bei fatalen Fehlern
im Sinne von

if (fataler_fehler_1)
{
rc = FATAL_1;
goto raushier;
}

...

if (fataler_fehler_2)
{
rc = FATAL_2;
goto raushier;
}

/* Wenn wir hier ankommen, dann haben wir einen Fatalen Fehler (TM);
foo und bar muessen nocht gefrobniziert werden. */
raushier:
...
return rc;
}

Das Problem beim goto ist ja nicht der Befehl selber, sondern der
Zustand, in dem das Programm sich befindet, wenn es beim Label
ankommt.

[F. W.]

Post by Thomas Koenig
Das Problem beim goto ist ja nicht der Befehl selber, sondern der
Zustand, in dem das Programm sich befindet, wenn es beim Label
ankommt.

Genau: ich kam nämlich nicht mehr raus :->

FW

[Markus Franzke]

Post by Thomas Koenig
Ich verwende goto in C in zwei Fällen: Entweder um aus inneren
Schleifen rauszukommen (da es im Gegensatz zu anderen Sprachen kein
"break label" gibt), oder für Fehlerbehandlung bei fatalen Fehlern
im Sinne von
if (fataler_fehler_1)
{
rc = FATAL_1;
goto raushier;
}
...
if (fataler_fehler_2)
{
rc = FATAL_2;
goto raushier;
}
/* Wenn wir hier ankommen, dann haben wir einen Fatalen Fehler (TM);
foo und bar muessen nocht gefrobniziert werden. */
...
return rc;
}
Das Problem beim goto ist ja nicht der Befehl selber, sondern der
Zustand, in dem das Programm sich befindet, wenn es beim Label
ankommt.

Viel geiler sind longjmp() und setjmp().

M.