[288ae8]: Deklera.def History

Parent: [c017f0] (diff)

Child: [8d1c2d] (diff)

Download this file

Deklera.def    61 lines (51 with data), 3.0 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
DEFINITION MODULE Deklera;



  (*------------------------------------------------------------------------*)

  (* Deklaration von Konstanten und Datentypen fuer (fast) alle anderen     *)

  (* Module                                                                 *)

  (* Declaration of constants and data types for nearly all other modules   *)

  (*------------------------------------------------------------------------*)

  (* Letzte Veraenderung                                                    *)

  (*                                                                        *)

  (* dd.mm.9y: MRi: Erstellen der ersten Version ;-)                        *)

  (* 23.09.17, MRi: Umbenennen des Record-Typs LONGCOMPLEX in LONGCMPLX     *)

  (*                um konsequent den entsprechenden ISO-Typ nutzen zu      *)

  (*                koennen                                                 *)

  (*------------------------------------------------------------------------*)

  (* Implementation : Michael Riedl                                         *)

  (* Licence        : GNU Lesser General Public License (LGPL)              *)

  (*------------------------------------------------------------------------*)



  (* $Id: Deklera.def,v 1.1 2015/09/13 20:48:40 mriedl Exp mriedl $ *)



FROM SYSTEM IMPORT TSIZE;



TYPE      Locale        = (DE,EN,FR);



CONST     MaxDim        = 240; (* 128 + 68 + 32 + 16 *)

          MaxSV         = (MaxDim*(MaxDim+1) DIV 2);

          MaxPMat       = 4*1024; (* Formale L"ange *)



TYPE      FLOAT         = LONGREAL;



TYPE      STRING        = ARRAY [0..255] OF CHAR;

          VEKTOR        = ARRAY [1..MaxDim] OF LONGREAL;

          MATRIX        = ARRAY [1..MaxDim] OF VEKTOR;

          SUPERVEKTOR   = ARRAY [1..MaxSV]  OF LONGREAL;

          CARDVEKTOR    = ARRAY [1..MaxDim] OF CARDINAL;

          CARDMATRIX    = ARRAY [1..MaxDim] OF CARDVEKTOR;

          INTVEKTOR     = ARRAY [1..MaxDim] OF INTEGER;

          INTMATRIX     = ARRAY [1..MaxDim] OF INTVEKTOR;

          LONGCMPLX     = RECORD

                            re : LONGREAL; (* Realteil der Komplexen Zahl *)

                            im : LONGREAL; (* Imagin"arteil               *)

                          END;

          CRVEKTOR      = ARRAY [1..MaxDim] OF LONGCMPLX;

          CRMATRIX      = ARRAY [1..MaxDim] OF CRVEKTOR;

          CRSUPERVEKTOR = ARRAY [1..MaxSV]  OF LONGCMPLX;

          CVEKTOR       = ARRAY [1..MaxDim] OF LONGCOMPLEX;

          CMATRIX       = ARRAY [1..MaxDim] OF CVEKTOR;

          CSUPERVEKTOR  = ARRAY [1..MaxSV]  OF LONGCOMPLEX;

          PVEKTOR       = POINTER TO ARRAY [1..MaxPMat] OF LONGREAL;

          PMATRIX       = POINTER TO ARRAY [1..MaxPMat] OF PVEKTOR;



CONST     SIZELONGREAL  = TSIZE(LONGREAL);

          SIZEREAL      = TSIZE(REAL);

          SIZELONGCMPLX = TSIZE(LONGCOMPLEX);

          SIZECARDINAL  = TSIZE(CARDINAL);

          SIZELONGCARD  = TSIZE(LONGCARD);

          SIZEINTEGER   = TSIZE(INTEGER);

          SIZELONGINT   = TSIZE(LONGINT);



END Deklera.