a99  V32.6
allegro Windows Hauptprogramm
 Alle Klassen Dateien Funktionen Variablen Typdefinitionen Aufzählungen Aufzählungswerte Makrodefinitionen
main.cpp
gehe zur Dokumentation dieser Datei
1 // main.cpp : Hilfsfunktion zum Nachladen von Saetzen
2 // 2009-12-22 (Aufruf aus EXET.CPP)
3 // Copyright 2011 Universitätsbibliothek Braunschweig, more see bottom
4 
5 // Wird gebraucht, weil es mehrere Datenbanken geben kann, deren
6 // Adressen in Adn[] stehen.
7 // verwaltet werden sie in INDEX.CPP: activeNr()/inactiveNr()
8 
9 
10 // Allgemeine Definitionen:
11 
12 #define __GLOBALS // used in allegro.hpp
13 // bewirkt, dass in "allegro.hpp" die globalen Variablen angelegt werden
14 
15 #include "allegro.hpp"
16 #include "record.hpp"
17 #include "abase.hpp"
18 
19 
20 #ifdef __ABASE
21 #include "abase.hpp"
22 
23 // Nur diese Funktion muss ins eigene Hauptprogramm hinein:
24 // (wird aus exet.cpp gerufen)
25 
26 int main_ixl(int adn,RECORD *rec, CHAR *adr, int n, int ui4)
27 {
28  if (adn==-1) return 0; // no database available
29 
30  if (!Abase[adn]) return 0;
31 
32  if (n>199) // switch between databases
33  {
34  if (n>200) --n;
35  if (Active[n-200]==-1) return 0;
36  rec->Adn=n-200;
37  return 1;
38  }
39  if (adr) if (strlen(adr)>250) adr[250]=0; //Absicherung
40  return ((ABASE *)Abase[adn])->ix_load(rec,adr,n,ui4);
41 }
42 
43 
44 // Nur in EXET.CPP f. Sequenzen-Ersetzung
45 // z.B. steht im Reg. ix=10 eine Zeile яja
46 // Dann wird find="я" zu found="ja"
47 
48 
49 int main_find(int adn, int ix, CHAR *find, CHAR *found)
50 {
51  if (adn==-1 || !Abase[adn]) return 0; // no database available
52 
53  return aiEntGe(ix,find,found);
54 }
55 
56 
57 // Wenn es gar keine Datenbank gibt: (Verarb. von .ALG-Daten)
58 #else
59 
60 int main_ixl(int adn, RECORD *rec, CHAR *adr, int n)
61 {
62  return 0; // kein Ergebnis moeglich
63 }
64 #endif
65 
66 /*
67  Copyright 2011 Universitätsbibliothek Braunschweig
68 
69  Licensed under the Apache License, Version 2.0 (the "License");
70  you may not use this file except in compliance with the License.
71  You may obtain a copy of the License at
72 
73  http://www.apache.org/licenses/LICENSE-2.0
74 
75  Unless required by applicable law or agreed to in writing, software
76  distributed under the License is distributed on an "AS IS" BASIS,
77  WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
78  See the License for the specific language governing permissions and
79  limitations under the License.
80 */
81