Einf ¨uhrung in UNIX - CIS

208 2 UNIX
sec = time((long *) 0) + 3600; /* MEZ = GMT + 3600 */
p = gmtime(&sec);
printf("%s %d. ", ptag[p->tm wday], p->tm mday);
printf("%s %d ", pmon[p->tm mon], p->tm year +1900);
printf("%d:%02d MEZ\n", p->tm hour, p->tm min);
}
Programm 2.40 : C-Programm zur Anzeige der Systemzeit
Nun wollen wir dieselbe Aufgabe mit einem FORTRAN-Programm
bewältigen. Der UNIX-Systemaufruf time(2) bleibt, für die C-Standardfunktion
gmtime(3) suchen wir die entsprechende FORTRAN-Routine. Da
wir keine finden, müssen wir sie entweder selbst schreiben (was der erfahrene
Programmierer scheut) oder nach einem Weg suchen, eine beliebige C-
Standardfunktion in ein FORTRAN-Programm hineinzuquetschen.
Der Systemaufruf time(2) macht keinen Kummer. Er benötigt ein Argument
vom Typ Pointer auf long integer, was es in FORTRAN gibt.
Der Rückgabewert ist vom Typ long integer, auch kein Problem. Die C-
Standardfunktion gmtime(3) erwartet ein Argument vom Typ Pointer auf
long integer, was machbar wäre, aber ihr Ergebnis ist ein Pointer auf eine
Struktur. Das hat FORTRAN noch nie gesehen 42 . Deshalb weichen wir auf
die C-Standardfunktion ctime(3) aus, deren Rückgabewert vom Typ Pointer
auf character ist, was es in FORTRAN näherungsweise gibt. In FORTRAN
ist ein Zeichen ein String der Länge eins. Strings werden per Deskriptor übergeben.
Ein String-Deskriptor ist der Pointer auf das erste Zeichen und die
Anzahl der Zeichen im String als Integerwert. Das Programm sieht dann so
aus:
program zeit
$ALIAS foratime = ’sprintf’ c
integer*4 time, tloc, sec, ctime
character atime*26
sec = time(tloc)
call foratime(atime, ’%s’//char(0), ctime(sec))
write(6, ’(a)’) atime
end
Programm 2.41 : FORTRAN-Programm zur Anzeige der Systemzeit
Die ALIAS-Anweisung ist als Erweiterung zu FORTRAN 77 in vielen
Compilern enthalten und dient dazu, den Aufruf von Unterprogrammen anderer
Sprachen zu ermöglichen. Der Compiler weiß damit, daß das Unterprogramm
außerhalb des Programms – zum Beispiel in einer Bibliothek –
42 FORTRAN 90 kennt Strukturen.