ING_DB
This commit is contained in:
Oliver Lehmann
parent
d3a90c3c80
commit
dcecb90949
|
|
@ -0,0 +1,396 @@
|
|||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ @ @ @ @
|
||||
@ @ @@ @@ @ @
|
||||
@ @ @ @ @ @ @ @
|
||||
@ @ @ @ @ @
|
||||
@@@@@@@ @ @ @ @
|
||||
@ @ @ @ @ @
|
||||
@ @ @ @ @ @
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ @ @ @ @@@@@
|
||||
@ @ @@ @ @ @
|
||||
@ @ @ @ @ @ @
|
||||
@ @ @ @ @ @ @
|
||||
@ @ @ @@ @ @
|
||||
@@@@ @ @ @@@@@
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@@@@@@@ @@@@@@@ @@@@@@@
|
||||
@ @ @ @ @
|
||||
@ @ @
|
||||
@@@@@ @ @
|
||||
@ @ @
|
||||
@ @ @
|
||||
@ @ @
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
J . W e n z l a f f
|
||||
|
||||
Z K I d e r A d W
|
||||
K u r s t r . 3 3
|
||||
-----------------------
|
||||
B E R L I N , 1 0 8 6
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
- 1 -
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ING_DB 6.3/4 AMX(FORTRAN77)
|
||||
|
||||
|
||||
|
||||
EINLEITUNG
|
||||
Fuer die Einbindung von Datenbankaktionen in FORTRAN77 unter
|
||||
UNIX bsd 2.9 stehen die AMX-Compiler `amxf' und `oamxf' zur
|
||||
Verfuegung. `oamxf' ist die overlay-Version von `amxf'.
|
||||
Die Datenbankaktionen werden in AMX/C programmiert und mit
|
||||
`amxf' uebersetzt, alle anderen Programmteile koennen in
|
||||
FORTRAN77 geschrieben werden. Sie werden mit `f77' ueber-
|
||||
setzt und mit `amxf' bzw. `oamxf' gelinkt (verbunden).
|
||||
Die Verwendung von `amxf' zur Programmerstellung erfordert
|
||||
keine Angabe einer speziellen AMX-Bibliothek (analog zu
|
||||
`amx'). Die Verwendung von `oamxf' erfordert vom Nutzer
|
||||
|
||||
1. die Angabe des Flags `-V' beim Uebersetzen der zu
|
||||
ueberlagernden Moduln
|
||||
|
||||
2. die Angabe der ueberlagerbaren AMX-Bibliotheken
|
||||
-lova1 bzw. `.../lib/libova1.a'
|
||||
-lova2 bzw. `.../lib/libova2.a'
|
||||
-lova3 bzw. `.../lib/libova3.a'
|
||||
-lova4 bzw. `.../lib/libova4.a'
|
||||
wobei der Pfad `.../' das home-directory des Da-
|
||||
tenbanksystems ING_DB 6.3 angeben soll.
|
||||
|
||||
Jede Bibliothek belegt ein Textsegment (8 KByte). Ent-
|
||||
sprechend der Ueberlagerungsstruktur koennen die Biblio-
|
||||
theken verteilt werden. Die Nummerierung schreibt aber die
|
||||
Reihenfolge der Angabe beim Verbinden vor.
|
||||
|
||||
|
||||
EIN-/AUSGABEN
|
||||
Solange in FORTRAN77 und C jeweils verschiedene Dateien an-
|
||||
gesprochen werden, koennen ohne Sprachmixprobleme beliebige
|
||||
Ein-/Ausgabeoperationen ausgefuehrt werden. Gleiche Dateien
|
||||
koennen nur dann in beiden Sprachen angesprochen werden,
|
||||
wenn es sich um die Standard-Ein- oder -Ausgabedatei han-
|
||||
delt.
|
||||
|
||||
FORTRAN77 C
|
||||
--------- ---------------------
|
||||
Einheit 5 stdin (Deskriptor 0)
|
||||
Einheit 6 stdout (Deskriptor 1)
|
||||
Einheit 0 stderr (Deskriptor 2)
|
||||
|
||||
Einheit 5, 6 oder 0 in FORTRAN77 darf dabei keiner anderen
|
||||
Datei zugewiesen werden, wie auch stdin, stdout oder stderr
|
||||
bzw. Deskriptor 0, 1 oder 2 in C. In C sollten die Stan-
|
||||
darddateien auch nicht gepuffert werden (s. SETBUF(III)).
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
- 1 -
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ING_DB 6.3/4 AMX(FORTRAN77)
|
||||
|
||||
|
||||
|
||||
FELDER
|
||||
In FORTRAN77 beginnen Indizes von Felder (Vektoren) immer
|
||||
mit 1, in C dagegen mit 0.
|
||||
|
||||
Beispiel
|
||||
FORTRAN77: array(n) hat die Indizes 1 .. n
|
||||
C array[n] hat die Indizes 0 .. (n - 1)
|
||||
|
||||
Probleme koennen immer dann auftreten, wenn ueber Argumente
|
||||
ein Index uebermittelt wird, der den Bearbeitungsstand des
|
||||
Feldes ausdruecken soll. Die Uebermittlung der Kardinali-
|
||||
taet des Feldes (Anzahl der Feldelemente) bringt keine Pro-
|
||||
bleme.
|
||||
In mehrdimensionalen Feldern hat in FORTRAN77 Spalte vor
|
||||
Zeile, in C Zeile vor Spalte Vorrang.
|
||||
|
||||
FORTRAN77
|
||||
+-----------------------------------+
|
||||
a(2,3) | 1,1 | 1,2 | 1,3 | 2,1 | 2,2 | 2,3 |
|
||||
a(3,2) | 1,1 | 1,2 | 2,1 | 2,2 | 3,1 | 3,2 |
|
||||
a(6) | 1 | 2 | 3 | 4 | 5 | 6 |
|
||||
+-----------------------------------+
|
||||
C
|
||||
+-----------------------------------+
|
||||
a[6] | 0 | 1 | 2 | 3 | 4 | 5 |
|
||||
a[2,3] | 0,0 | 1,0 | 0,1 | 1,1 | 0,2 | 1,2 |
|
||||
a[3,2] | 0,0 | 1,0 | 2,0 | 0,1 | 1,1 | 2,1 |
|
||||
+-----------------------------------+
|
||||
|
||||
|
||||
FORTRAN77 KONVENTIONEN
|
||||
Der Eintrittspunkt in das FORTRAN77-Programm ist
|
||||
|
||||
subroutine amx()
|
||||
|
||||
Damit wird eine ordnungsgemaesse Datenbankinitialisierung
|
||||
und -beendigung gesichert.
|
||||
Fuer FORTRAN77 gibt es keine weiteren Konventionen zu
|
||||
beachten, folgende Hinweise sollen die Arbeit etwas erleich-
|
||||
tern:
|
||||
|
||||
- Vermeiden Sie die Verwendung von Funktionen, die
|
||||
in C geschrieben sind und von FORTRAN77 aufgerufen
|
||||
werden, solange Sie den Mechanismus der Argu-
|
||||
mentuebergabe nicht vollstaendig verstanden haben.
|
||||
|
||||
- Stringvariablen in FORTRAN77, die Zeichenketten-
|
||||
domaenen aufnehmen sollen, muessen ein Zeichen
|
||||
laenger sein, als die Laenge der Zeichenketten-
|
||||
domaene in der Datenbank, auch wenn FORTRAN77 das
|
||||
Abschlusszeichen `\0' fuer die Zeichenkette nicht
|
||||
|
||||
|
||||
- 2 -
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ING_DB 6.3/4 AMX(FORTRAN77)
|
||||
|
||||
|
||||
benoetigt.
|
||||
|
||||
- Schon sehr kleine AMX/FORTRAN77-Programme belegen
|
||||
den vollen Adressraum. Benutzen Sie von vornhe-
|
||||
rein die Ueberlagerungsstrukturen.
|
||||
|
||||
- Benutzen Sie fuer AMX/F-Austauschobjekte vom Typ
|
||||
`integer' immer `integer*2' bzw. `integer*4'.
|
||||
|
||||
|
||||
C KONVENTIONEN
|
||||
Vom C-Teil der C/FORTRAN77-Programmen koennen alle
|
||||
FORTRAN77-Objekte (Routinen, Daten), vom FORTRAN77-Teil
|
||||
koennen nur bestimmte C-Objekte benutzt werden.
|
||||
|
||||
|
||||
NAMEN
|
||||
FORTRAN77-Namen (Symbole) duerfen maximal 6 Zeichen lang
|
||||
sein. In C muss an den FORTRAN77-Namen ein zusaetzlicher
|
||||
Unterstrich `_' angehaengt werden, um FORTRAN77-Objekte in C
|
||||
zu erreichen.
|
||||
|
||||
z.B. FORTRAN77 name string func
|
||||
C name_ string_ func_
|
||||
|
||||
Normalerweise wird in FORTRAN77 Gross- und Kleinschreibung
|
||||
nicht unterschieden, d.h. der FORTRAN77-Compiler uebersetzt
|
||||
alle Gross- in Kleinbuchstaben. Das `f77'-Flag `-U'
|
||||
gestattet die Verwendung von Gross- und Kleinbuchstaben.
|
||||
|
||||
|
||||
TYPKONVERSIONEN
|
||||
Fuer die Typen in FORTRAN77 und C gelten folgende Zuordnun-
|
||||
gen:
|
||||
|
||||
integer*2 short bzw. short int
|
||||
integer long bzw. long int
|
||||
oder
|
||||
short bzw. short int
|
||||
(siehe `f77'-Flag `-i2')
|
||||
integer*4 long bzw. long int
|
||||
logical long bzw. long int
|
||||
oder
|
||||
short bzw. short int
|
||||
(siehe `f77'-Flag `-i2')
|
||||
real float
|
||||
double precision double
|
||||
complex struct { float r, i; }
|
||||
double complex struct { double r, i; }
|
||||
character*n char [n]
|
||||
|
||||
|
||||
|
||||
|
||||
- 3 -
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ING_DB 6.3/4 AMX(FORTRAN77)
|
||||
|
||||
|
||||
|
||||
ARGUMENTKONVERSIONEN
|
||||
In FORTRAN77 werden Parameter grundsaetzlich durch
|
||||
Adressverweise (Call By Reference) uebergeben, einige Para-
|
||||
meter (Funktionen, Parameter vom Typ character*n) erzeugen
|
||||
einen zusaetzlichen Laengenparameter vom Typ integer*4 bzw.
|
||||
long.
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
integer*2 x short *x;
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
integer x long *x;
|
||||
oder
|
||||
short *x;
|
||||
(siehe `f77'-Flag `-i2')
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
integer*4 x long *x;
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
logical x long *x;
|
||||
oder
|
||||
short *x;
|
||||
(siehe `f77'-Flag `-i2')
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
real x float *x;
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
double precision x double *x;
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
complex x struct {float r, i; } *x;
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
double complex x struct {double r, i; } *x;
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ..., xlen)
|
||||
character*(*) x char x[];
|
||||
long xlen;
|
||||
|
||||
subroutine f(..., x, ...) f_(..., x, ..., xnull)
|
||||
subroutine x int (*x)();
|
||||
long xnull; /* == 0L */
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
- 4 -
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
ING_DB 6.3/4 AMX(FORTRAN77)
|
||||
|
||||
|
||||
FUNKTIONSKONVERSIONEN
|
||||
Fuer die Uebergabe von Funktionswerten an aufrufende Routi-
|
||||
nen gelten folgende Zuordnungen:
|
||||
|
||||
integer*2 function f(...) short f_(...)
|
||||
|
||||
integer function f(...) long f_(...)
|
||||
oder
|
||||
short f_(...)
|
||||
(siehe `f77'-Flag `-i2')
|
||||
|
||||
integer*4 function f(...) long f_(...)
|
||||
|
||||
logical function f(...) long f_(...)
|
||||
oder
|
||||
short f_(...)
|
||||
(siehe `f77'-Flag `-i2')
|
||||
|
||||
real function f(...) nicht darstellbar, weil
|
||||
float in Ausdruecken
|
||||
immer in double umgewan-
|
||||
delt wird
|
||||
|
||||
double precision function f(...) double f_(...)
|
||||
|
||||
complex function f(...) f_(r, ...)
|
||||
struct {float r, i;} *r;
|
||||
|
||||
double complex function f(...) f_(r, ...)
|
||||
struct {double r, i;} *r;
|
||||
|
||||
character*n function f(...) f_(r, l...)
|
||||
char r[];
|
||||
long l;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
- 5 -
|
||||
|
||||
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,469 @@
|
|||
.pl 66
|
||||
.ll 65
|
||||
.ns
|
||||
.po 5
|
||||
.nr in 5
|
||||
.de i0
|
||||
.in \n(in
|
||||
..
|
||||
.de lp
|
||||
.i0
|
||||
.if !\n(.V .ta \\$2+1
|
||||
.if \n(.V .ta \\$2
|
||||
.in \\$1
|
||||
.ti -\\$2
|
||||
..
|
||||
.de s1
|
||||
.sp 1
|
||||
.ne 4
|
||||
..
|
||||
.de s2
|
||||
.sp 1
|
||||
..
|
||||
.de fo
|
||||
'sp 2
|
||||
'tl ''- % -''
|
||||
'bp
|
||||
..
|
||||
.de th
|
||||
.de x1
|
||||
.rs
|
||||
'sp 4
|
||||
'tl '\\*(II/\\$3''\\$1(\\$2)'
|
||||
'sp 2
|
||||
\\..
|
||||
.wh -7 fo
|
||||
.wh 0 x1
|
||||
.pn 1
|
||||
'fi
|
||||
'ad
|
||||
.bp
|
||||
.in \n(in
|
||||
.dt
|
||||
..
|
||||
.de sh
|
||||
.i0
|
||||
.s1
|
||||
.ne 5
|
||||
.ti 0
|
||||
\\$1
|
||||
.br
|
||||
..
|
||||
.de dt
|
||||
.ta 8 16 24 32 40 48 56 64
|
||||
..
|
||||
.ds II ING_DB 6.3
|
||||
.ds UU UNIX
|
||||
.ds AA AMX
|
||||
.ds FF FORTRAN77
|
||||
.if !\n(.V .ds +- +-
|
||||
.if \n(.V .ds +- \(+-
|
||||
.ds ** *
|
||||
.ds - -
|
||||
.ds _ _
|
||||
.ds v |
|
||||
.hy 0
|
||||
.so f77.um
|
||||
.nf
|
||||
|
||||
.fi
|
||||
.sp 5
|
||||
.nf
|
||||
@ @ @ @ @
|
||||
@ @ @@ @@ @ @
|
||||
@ @ @ @ @ @ @ @
|
||||
@ @ @ @ @ @
|
||||
@@@@@@@ @ @ @ @
|
||||
@ @ @ @ @ @
|
||||
@ @ @ @ @ @
|
||||
.fi
|
||||
.sp 5
|
||||
.nf
|
||||
@ @ @ @ @@@@@
|
||||
@ @ @@ @ @ @
|
||||
@ @ @ @ @ @ @
|
||||
@ @ @ @ @ @ @
|
||||
@ @ @ @@ @ @
|
||||
@@@@ @ @ @@@@@
|
||||
.fi
|
||||
.sp 5
|
||||
.nf
|
||||
@@@@@@@ @@@@@@@ @@@@@@@
|
||||
@ @ @ @ @
|
||||
@ @ @
|
||||
@@@@@ @ @
|
||||
@ @ @
|
||||
@ @ @
|
||||
@ @ @
|
||||
|
||||
.fi
|
||||
.sp 10
|
||||
.nf
|
||||
J . W e n z l a f f
|
||||
|
||||
Z K I d e r A d W
|
||||
K u r s t r . 3 3
|
||||
-----------------------
|
||||
B E R L I N , 1 0 8 6
|
||||
.fi
|
||||
.th \*(AA \*(FF 4
|
||||
.sh EINLEITUNG
|
||||
F\*ur die Ein\%bin\%dung von Da\%ten\%bank\%aktio\%nen in
|
||||
\*(FF unter
|
||||
\*(UU bsd 2.9 stehen die
|
||||
\*(AA\*-Compiler `amxf' und `oamxf' zur Ver\%f\*ugung.
|
||||
`oamxf' ist die overlay\*-Ver\%sion von `amxf'.
|
||||
.br
|
||||
Die Da\%ten\%bank\%aktio\%nen wer\%den in
|
||||
\*(AA/C pro\%gram\%miert und mit `amxf' \*uber\%setzt,
|
||||
alle anderen Pro\%gramm\%tei\%le k\*on\%nen in
|
||||
\*(FF ge\%schrie\%ben wer\%den.
|
||||
Sie wer\%den mit `f77' \*uber\%setzt
|
||||
und mit `amxf' bzw. `oamxf' gelinkt (ver\%bunden).
|
||||
.br
|
||||
Die Ver\%wen\%dung von `amxf' zur Pro\%gramm\%er\%stel\%lung
|
||||
erfordert keine An\%ga\%be einer speziellen
|
||||
\*(AA\*-Bib\%lio\%thek
|
||||
(analog zu `amx').
|
||||
Die Ver\%wen\%dung von `oamxf' erfordert vom Nutzer
|
||||
.s2
|
||||
.lp +10 5
|
||||
1. die An\%ga\%be des Flags `\*-V' beim
|
||||
\*Uber\%setzen der zu \*uber\%lagernden Moduln
|
||||
.s2
|
||||
.lp +10 5
|
||||
2. die An\%ga\%be der \*uber\%la\%ger\%baren
|
||||
\*(AA\*-Bib\%lio\%theken
|
||||
.br
|
||||
\*-lova1 bzw. `.../lib/libova1.a'
|
||||
.br
|
||||
\*-lova2 bzw. `.../lib/libova2.a'
|
||||
.br
|
||||
\*-lova3 bzw. `.../lib/libova3.a'
|
||||
.br
|
||||
\*-lova4 bzw. `.../lib/libova4.a'
|
||||
.br
|
||||
wobei der Pfad `.../' das home\*-directory
|
||||
des Da\%ten\%bank\%sys\%tems \*(II an\%ge\%ben soll.
|
||||
.i0
|
||||
.s1
|
||||
Jede Bib\%lio\%thek belegt ein Text\%seg\%ment
|
||||
(8 KByte).
|
||||
Ent\%sprech\%end der \*Uber\%la\%ge\%rungs\%struk\%tur k\*on\%nen
|
||||
die Bib\%lio\%theken ver\%teilt wer\%den.
|
||||
Die Num\%me\%rie\%rung schreibt aber
|
||||
die Reihenfolge der An\%ga\%be
|
||||
beim Ver\%bin\%den vor.
|
||||
.s1
|
||||
.sh "EIN\*-/AUSGABEN"
|
||||
So\%lan\%ge in \*(FF und C jeweils ver\%schie\%dene
|
||||
Da\%tei\%en an\%ge\%sprochen wer\%den,
|
||||
k\*on\%nen ohne Sprach\%mix\%pro\%ble\%me
|
||||
beliebige Ein\*-/Aus\%ga\%be\%ope\%ra\%tionen
|
||||
ausgef\*uhrt wer\%den.
|
||||
Glei\%che Da\%tei\%en k\*on\%nen nur dann
|
||||
in bei\%den Spra\%chen an\%ge\%sprochen wer\%den,
|
||||
wenn es sich um die Stan\%dard\*-Ein\*-
|
||||
oder \*-Aus\%ga\%be\%da\%tei han\%delt.
|
||||
.s2
|
||||
.lp +25 20
|
||||
\*(FF C
|
||||
.br
|
||||
.lp +25 20
|
||||
\*-\*-\*-\*-\*-\*-\*-\*-\*- \*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-
|
||||
.br
|
||||
.lp +25 20
|
||||
Einheit 5 stdin\ \ (Des\%krip\%tor 0)
|
||||
.br
|
||||
.lp +25 20
|
||||
Einheit 6 stdout (Des\%krip\%tor 1)
|
||||
.br
|
||||
.lp +25 20
|
||||
Einheit 0 stderr (Des\%krip\%tor 2)
|
||||
.i0
|
||||
.s1
|
||||
Einheit 5, 6 oder 0 in \*(FF darf dabei keiner
|
||||
anderen Da\%tei zugewiesen wer\%den,
|
||||
wie auch stdin, stdout oder stderr
|
||||
bzw. Des\%krip\%tor 0, 1 oder 2 in C.
|
||||
In C soll\%ten die Stan\%dard\%da\%tei\%en auch
|
||||
nicht ge\%puf\%fert wer\%den (s. SETBUF(III)).
|
||||
.s1
|
||||
.sh FELDER
|
||||
In \*(FF beginnen Indizes von Fel\%der (Vek\%to\%ren)
|
||||
immer mit 1,
|
||||
in C dagegen mit 0.
|
||||
.s1
|
||||
Beispiel
|
||||
.lp +20 15
|
||||
\*(FF: array(n)\ \ \ hat die Indizes 1 .. n
|
||||
.lp +20 15
|
||||
C array[n]\ \ \ hat die Indizes 0 .. (n \*- 1)
|
||||
.i0
|
||||
.s1
|
||||
Pro\%ble\%me k\*on\%nen immer dann auftreten,
|
||||
wenn \*uber Ar\%gumente ein Index \*ubermittelt wird,
|
||||
der den Be\%ar\%bei\%tungs\%stand des Fel\%des aus\%dr\*ucken soll.
|
||||
Die \*Uber\%mitt\%lung der Kar\%di\%na\%li\%t\*at
|
||||
des Fel\%des (Anzahl der Feld\%ele\%men\%te)
|
||||
bringt keine Pro\%ble\%me.
|
||||
.br
|
||||
In mehr\%di\%men\%siona\%len Fel\%dern hat in \*(FF
|
||||
Spalte vor Zei\%le,
|
||||
in C Zei\%le vor Spalte Vorrang.
|
||||
.s1
|
||||
.nf
|
||||
\*(FF
|
||||
+\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-+
|
||||
a(2,3) | 1,1 | 1,2 | 1,3 | 2,1 | 2,2 | 2,3 |
|
||||
a(3,2) | 1,1 | 1,2 | 2,1 | 2,2 | 3,1 | 3,2 |
|
||||
a(6) | 1 | 2 | 3 | 4 | 5 | 6 |
|
||||
+\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-+
|
||||
C
|
||||
+\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-+
|
||||
a[6] | 0 | 1 | 2 | 3 | 4 | 5 |
|
||||
a[2,3] | 0,0 | 1,0 | 0,1 | 1,1 | 0,2 | 1,2 |
|
||||
a[3,2] | 0,0 | 1,0 | 2,0 | 0,1 | 1,1 | 2,1 |
|
||||
+\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-\*-+
|
||||
.fi
|
||||
.s1
|
||||
.sh "\*(FF KONVENTIONEN"
|
||||
Der Ein\%tritts\%punkt in das
|
||||
\*(FF\*-Pro\%gramm ist
|
||||
.s1
|
||||
.in 15
|
||||
subroutine amx()
|
||||
.i0
|
||||
.s2
|
||||
Damit wird eine ordnungsgem\*a\*se
|
||||
Da\%ten\%bank\%ini\%tia\%li\%sie\%rung und
|
||||
\*-beendigung gesichert.
|
||||
.br
|
||||
F\*ur \*(FF gibt es keine weiteren Konventionen
|
||||
zu beachten,
|
||||
fol\%gen\%de Hin\%wei\%se sol\%len die Ar\%beit etwas er\%leich\%tern:
|
||||
.s1
|
||||
.lp +10 5
|
||||
\*- Ver\%meiden Sie die Ver\%wen\%dung von Funk\%tio\%nen,
|
||||
die in C ge\%schrie\%ben sind
|
||||
und von \*(FF aufgerufen wer\%den,
|
||||
so\%lan\%ge Sie den Me\%cha\%nis\%mus der
|
||||
Ar\%gu\%ment\*uber\%ga\%be nicht voll\%st\*an\%dig ver\%stan\%den haben.
|
||||
.s1
|
||||
.lp +10 5
|
||||
\*- Stringvariablen in \*(FF,
|
||||
die Zei\%chen\%ket\%ten\%dom\*anen aufnehmen sol\%len,
|
||||
m\*ussen ein Zei\%chen l\*anger sein,
|
||||
als die L\*ange der Zei\%chen\%ket\%ten\%dom\*ane
|
||||
in der Da\%ten\%bank,
|
||||
auch wenn \*(FF das Abschlu\*szeichen `\e0'
|
||||
f\*ur die Zei\%chen\%ket\%te nicht ben\*otigt.
|
||||
.s2
|
||||
.lp +10 5
|
||||
\*- Schon sehr kleine
|
||||
\*(AA/\*(FF\*-Pro\%gram\%me belegen
|
||||
den vol\%len Adre\*s\%raum.
|
||||
Benutzen Sie von vorn\%he\%rein die
|
||||
\*Uber\%la\%ge\%rungs\%struk\%tu\%ren.
|
||||
.s2
|
||||
.lp +10 5
|
||||
\*- Be\%nutzen Sie f\*ur \*(AA/\*FF\*-Aus\%tausch\%ob\%jek\%te
|
||||
vom Typ `integer' immer `integer*2'
|
||||
bzw. `integer*4'.
|
||||
.s1
|
||||
.sh "C KONVENTIONEN"
|
||||
Vom C\*-Teil der C/\*(FF\*-Pro\%gram\%men
|
||||
k\*on\%nen alle \*(FF\*-Objekte
|
||||
(Rou\%ti\%nen, Da\%ten),
|
||||
vom \*(FF\*-Teil k\*on\%nen nur bestimmte
|
||||
C\*-Objekte benutzt wer\%den.
|
||||
.s1
|
||||
.sh "NAMEN"
|
||||
\*(FF\*-Namen (Symbole)
|
||||
d\*urfen maximal 6 Zei\%chen lang sein.
|
||||
In C mu\*s an den \*(FF\*-Namen
|
||||
ein zu\%s\*atz\%lich\%er Unterstrich `_'
|
||||
an\%ge\%h\*angt wer\%den,
|
||||
um \*(FF\*-Objekte in C zu erreichen.
|
||||
.s1
|
||||
.nf
|
||||
z.B. \*(FF name string func
|
||||
C name_ string_ func_
|
||||
.fi
|
||||
.s1
|
||||
Normalerweise wird in \*(FF
|
||||
Gro\*s\*- und Kleinschreibung
|
||||
nicht unterschieden,
|
||||
d.h. der \*(FF\*-Compiler \*uber\%setzt
|
||||
alle Gro\*s\*- in Klein\%buch\%sta\%ben.
|
||||
Das `f77'\*-Flag `\*-U' gestattet
|
||||
die Ver\%wen\%dung von Gro\*s\*- und Klein\%buch\%sta\%ben.
|
||||
.s1
|
||||
.sh TYPKONVERSIONEN
|
||||
F\*ur die Typen in \*(FF und C
|
||||
gel\%ten fol\%gen\%de Zu\%ord\%nun\%gen:
|
||||
.s1
|
||||
.lp +30 25
|
||||
integer*2 short bzw. short int
|
||||
.lp +30 25
|
||||
integer long bzw. long int
|
||||
.br
|
||||
oder
|
||||
.br
|
||||
short bzw. short int
|
||||
.br
|
||||
(siehe `f77'\*-Flag `\*-i2')
|
||||
.lp +30 25
|
||||
integer*4 long bzw. long int
|
||||
.lp +30 25
|
||||
logical long bzw. long int
|
||||
.br
|
||||
oder
|
||||
.br
|
||||
short bzw. short int
|
||||
.br
|
||||
(siehe `f77'\*-Flag `\*-i2')
|
||||
.lp +30 25
|
||||
real float
|
||||
.lp +30 25
|
||||
double precision double
|
||||
.lp +30 25
|
||||
complex struct { float r, i; }
|
||||
.lp +30 25
|
||||
double complex struct { double r, i; }
|
||||
.lp +30 25
|
||||
character*n char [n]
|
||||
.i0
|
||||
.s1
|
||||
.sh ARGUMENTKONVERSIONEN
|
||||
In \*(FF wer\%den Pa\%ra\%me\%ter grund\%s\*atz\%lich
|
||||
durch Adre\*sver\%weise
|
||||
(Call By Reference) \*ubergeben,
|
||||
einige Pa\%ra\%me\%ter
|
||||
(Funk\%tio\%nen, Pa\%ra\%me\%ter vom Typ character*n)
|
||||
er\%zeu\%gen einen zu\%s\*atz\%lichen L\*an\%gen\%pa\%ra\%me\%ter
|
||||
vom Typ integer*4 bzw. long.
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
.lp +30 30
|
||||
integer*2 x short *x;
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
.lp +30 30
|
||||
integer x long *x;
|
||||
.br
|
||||
oder
|
||||
.br
|
||||
short *x;
|
||||
.br
|
||||
(siehe `f77'\*-Flag `\*-i2')
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
.lp +30 30
|
||||
integer*4 x long *x;
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
.lp +30 30
|
||||
logical x long *x;
|
||||
.br
|
||||
oder
|
||||
.br
|
||||
short *x;
|
||||
.br
|
||||
(siehe `f77'\*-Flag `\*-i2')
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
.lp +30 30
|
||||
real x float *x;
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
.lp +30 30
|
||||
double precision x double *x;
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
.lp +30 30
|
||||
complex x struct {float r, i; } *x;
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ...)
|
||||
.lp +30 30
|
||||
double complex x struct {double r, i; } *x;
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ..., xlen)
|
||||
.lp +30 30
|
||||
character*(*) x char x[];
|
||||
.br
|
||||
long xlen;
|
||||
.s1
|
||||
.lp +30 30
|
||||
subroutine f(..., x, ...) f_(..., x, ..., xnull)
|
||||
.lp +30 30
|
||||
subroutine x int (*x)();
|
||||
.br
|
||||
long xnull; /* == 0L */
|
||||
.s1
|
||||
.i0
|
||||
.s1
|
||||
.sh FUNKTIONSKONVERSIONEN
|
||||
F\*ur die \*Uber\%ga\%be von Funk\%tions\%wer\%ten
|
||||
an aufru\%fen\%de Rou\%ti\%nen
|
||||
gel\%ten fol\%gen\%de Zu\%ord\%nungen:
|
||||
.s1
|
||||
.lp +35 35
|
||||
integer*2 function f(...) short f_(...)
|
||||
.s1
|
||||
.lp +35 35
|
||||
integer function f(...) long f_(...)
|
||||
.br
|
||||
oder
|
||||
.br
|
||||
short f_(...)
|
||||
.br
|
||||
(siehe `f77'\*-Flag `\*-i2')
|
||||
.s1
|
||||
.lp +35 35
|
||||
integer*4 function f(...) long f_(...)
|
||||
.s1
|
||||
.lp +35 35
|
||||
logical function f(...) long f_(...)
|
||||
.br
|
||||
oder
|
||||
.br
|
||||
short f_(...)
|
||||
.br
|
||||
(siehe `f77'\*-Flag `\*-i2')
|
||||
.s1
|
||||
.lp +35 35
|
||||
real function f(...) nicht darstellbar,
|
||||
weil float in Aus\%dr\*ucken immer in double
|
||||
um\%ge\%wan\%delt wird
|
||||
.s1
|
||||
.lp +35 35
|
||||
double precision function f(...) double f_(...)
|
||||
.s1
|
||||
.lp +35 35
|
||||
complex function f(...) f_(r, ...)
|
||||
.br
|
||||
struct {float r, i;} *r;
|
||||
.s1
|
||||
.lp +35 35
|
||||
double complex function f(...) f_(r, ...)
|
||||
.br
|
||||
struct {double r, i;} *r;
|
||||
.s1
|
||||
.lp +35 35
|
||||
character*n function f(...) f_(r, l...)
|
||||
.br
|
||||
char r[];
|
||||
.br
|
||||
long l;
|
||||
.i0
|
||||
.s1
|
||||
Loading…
Reference in New Issue