Import the source code. #2

-  import Rel 3.16

Author: mpostol

BAT/NDB.BAT

@@ -2,7 +2,7 @@ rem PATH=%PATH%%ROBOCZA%\BAT;
 cd i:\ndb.src
 cd k:\VOR.SRC
 cd J:\SRC
-cd S:\
+cd S:\SRC\POM
 cd L:\
 cd r:\
 g:

BAT/NDBA.BAT

@@ -1,5 +1,5 @@
 cd i:\ndb.arc
-cd k:\src.arc
+cd k:\src\arc
 cd j:\ndb.src
 cd s:\vor.src
 cd t:\src

CMDFILE.BAT

@@ -1,10 +1,10 @@
 @ECHO OFF
-m2c T:D_Report.MOD/noa
+m2c I:H_DAcqui.MOD/noa J:PI_Repor.MOD/noa J:PI_ZoomS.MOD/noa aH.MOD/noa
 if exist *.lst goto error
 
 ECHO TRWA LINKOWANIE i BEDZIE TRWAC JESZCZE CHWILE
-m2l/SA/v/b/o al >lastlink.TXT
-IF NOT EXIST al.EXE GOTO ERROR
+m2l/SA/v/b aH >lastlink.TXT
+IF NOT EXIST aH.EXE GOTO ERROR
 GOTO end
 
 @ECHO ! NIC NOWEGO - WSZYSTKO JUZ ZROBIONE  !

SRC/ARC/DGHINI.MOD

@@ -0,0 +1,19 @@
+(*.F- *)
+(**********************************************************************
+|  Title   : DGH.INI reader
+|  Author  : MPostol
+|  System  : LOGITECH MODULA-2/86
+|  History :
+|    Rel 3.16: MPostol
+|      Aby zaoszczedzic pamiec zostala zdefiniowana imp pusta dla arch
+|
+|  Copyright (C), CAS LODZ POLAND.
+|  TEL: 42' 686 25 47
+|  mailto: [email protected]
+|  http: www.cas.com.pl
+|
+**********************************************************************)
+(*.F+ *)
+IMPLEMENTATION MODULE DGHIni;
+
+END DGHIni.

SRC/ARC/DGHINTER.MOD

@@ -0,0 +1,87 @@
+(*.F- *)
+(**********************************************************************
+|  Title   : Iterface to DGH modules connected through Digibord card.
+|  Author  : M.Postol
+|  System  : LOGITECH MODULA-2/86
+|  History :
+|    Rel 3.16: MPostol
+|      Aby zaoszczedzic pamiec zostala zdefiniowana imp pusta dla arch
+|  
+|  Copyright (C), CAS LODZ POLAND.
+|  TEL: 42' 686 25 47
+|  mailto: [email protected]
+|  http: www.cas.com.pl
+|
+**********************************************************************)
+
+IMPLEMENTATION MODULE DGHInterface;
+
+  FROM DGHIni IMPORT
+    SignalNames;
+
+  FROM PA_PA IMPORT
+    PomiarANieArchiwum;
+
+  FROM MANAGER IMPORT
+    Assert;
+
+  PROCEDURE GetCurrDataSign() : DtaSignType;
+
+  BEGIN
+    RETURN 0;
+  END GetCurrDataSign;
+
+  PROCEDURE WaitForNewData
+            ( VAR dtaSign : DtaSignType );
+
+  BEGIN
+  END WaitForNewData;
+
+  PROCEDURE TurnOff( what: SignalNames);
+  BEGIN
+  END TurnOff;
+  
+  PROCEDURE TurnOn( what: SignalNames);
+  BEGIN
+  END TurnOn;
+  
+  PROCEDURE GetAnalogVal
+            (     from    : SignalNames;
+              VAR val     : INTEGER;
+              VAR dtaSign : DtaSignType) : BOOLEAN;
+  BEGIN
+    RETURN FALSE;
+  END GetAnalogVal;
+
+  PROCEDURE GetBinaryVal
+            (     from    : SignalNames;
+              VAR val     : BITSET;
+              VAR dtaSign : DtaSignType) : BOOLEAN;
+  BEGIN
+    RETURN FALSE;
+  END GetBinaryVal;
+
+  PROCEDURE SetAnalogVal
+            (     from    : SignalNames;
+                  val     : INTEGER;
+              VAR dtaSign : DtaSignType);
+  BEGIN
+  END SetAnalogVal;
+
+  PROCEDURE SetBinaryVal
+            (     from     : SignalNames;
+                  val      : BITSET;
+                  twoBytes : BOOLEAN);
+  BEGIN
+  END SetBinaryVal;
+
+  PROCEDURE  SetMessage
+             (    num     : CARDINAL;
+                  digits  : Number;
+              VAR dtaSign : DtaSignType);
+  BEGIN
+  END SetMessage;
+
+BEGIN
+  Assert( NOT PomiarANieArchiwum );
+END DGHInterface.

SRC/ARC/DGH_UTIL.MOD

@@ -0,0 +1,100 @@
+(*.F- *)
+(**********************************************************************
+|  Title   : DGH utilities
+|  Author  : M.Postol
+|  System  : LOGITECH MODULA-2/86
+|  History :
+|    Rel 3.16: MPostol
+|      Aby zaoszczedzic pamiec zostala zdefiniowana iml pusta dla arch
+|
+|  Copyright (C), CAS LODZ POLAND.
+|  TEL: 42' 686 25 47
+|  mailto: [email protected]
+|  http: www.cas.com.pl
+|
+**********************************************************************)
+(*.F+ *)
+IMPLEMENTATION MODULE DGH_utils;
+
+  FROM CommonTypes IMPORT
+    GlownyOdbiornikT;
+
+  FROM Kalibracja IMPORT
+    InputSignal;
+
+  FROM MANAGER IMPORT
+    Assert;
+
+  FROM  PA_PA IMPORT
+    PomiarANieArchiwum;
+
+  PROCEDURE TurnOffILSSig;
+
+  BEGIN
+  END TurnOffILSSig;
+
+  PROCEDURE TurnOnLOCSig;
+
+  BEGIN
+  END TurnOnLOCSig;
+
+  PROCEDURE TurnOnGSSig;
+
+  BEGIN
+  END TurnOnGSSig;
+
+  PROCEDURE TurnOnVORSig;
+
+  BEGIN
+  END TurnOnVORSig;
+
+  PROCEDURE TurnOffVORSig;
+
+  BEGIN
+  END TurnOffVORSig;
+
+  PROCEDURE TurnOnDMESig;
+
+  BEGIN
+  END TurnOnDMESig;
+
+  PROCEDURE TurnOffDMESig;
+
+  BEGIN
+  END TurnOffDMESig;
+
+  PROCEDURE TurnOnADFSig;
+
+  BEGIN
+  END TurnOnADFSig;
+
+  PROCEDURE TurnOffADFSig;
+
+  BEGIN
+  END TurnOffADFSig;
+
+  PROCEDURE ReadValue
+            ( VAR zm   : INTEGER;
+                  S    : InputSignal;
+                  CHN  : GlownyOdbiornikT;
+                  prec : REAL             );
+
+  BEGIN
+  END ReadValue;
+
+  PROCEDURE ReadOmniber
+            ( VAR zm  : INTEGER;
+                  rec : GlownyOdbiornikT );
+  BEGIN
+  END ReadOmniber;
+
+  PROCEDURE BinaryValSet
+            (    sn  : BinInputSignal;
+                 CHN : GlownyOdbiornikT ) : BOOLEAN;
+  BEGIN
+    RETURN FALSE;
+  END BinaryValSet;
+
+BEGIN
+  Assert( NOT PomiarANieArchiwum );
+END DGH_utils.

SRC/ARC/PA_PA.MOD

@@ -0,0 +1,17 @@
+(*.F- *)
+(**********************************************************************
+|  Title   : Pomiar/Archiwum 
+|  Author  : M.Morawski i M.Postol
+|  System  : LOGITECH MODULA-2/86 
+|  History :
+|
+|  Copyright (C), CAS LODZ POLAND.
+|  TEL: 42' 862 547, 42' 87 80 44 FAX/TEL: 42' 84 48 40
+|
+**********************************************************************)
+(*.F+ *)
+IMPLEMENTATION MODULE PA_PA;
+
+BEGIN
+  PomiarANieArchiwum := FALSE;
+END PA_PA.

SRC/ARC/PI_DMENA.DEF

@@ -0,0 +1,31 @@
+DEFINITION MODULE PI_DMEnaglowek;
+
+FROM CommonTypes IMPORT
+  NadajnikT, PolozenieGeo;
+
+
+TYPE
+  WyznaczanieIDrukowanie = PROCEDURE(     BOOLEAN,
+                                          NadajnikT,
+                                      VAR ARRAY OF CHAR,
+                                          BOOLEAN
+                                    ) : BOOLEAN;
+  (*
+   * Parametr oznacza, ze
+   * FALSE -> Promien
+   * TRUE  -> Okrag
+   *
+   *
+   * Wynik FALSE znaczy "odpusc sobie"
+   *)
+
+  PROCEDURE DaneZBazyDanych( VAR Czestotliwosc : REAL;
+                             VAR Deklinacja    : REAL;
+                             VAR Polozenie     : PolozenieGeo );
+
+
+  PROCEDURE NastepneDane( wid : WyznaczanieIDrukowanie );
+
+  PROCEDURE UstawSciezke(  );
+
+END PI_DMEnaglowek.

SRC/ARC/PI_REPOR.DEF

@@ -0,0 +1,5 @@
+DEFINITION MODULE PI_Report;
+
+  PROCEDURE RaportKoncowy;
+
+END PI_Report.

SRC/ARC/RAP_UTIL.DEF

@@ -0,0 +1,22 @@
+(*
+  Tworzenie Strony Tytulowej do raportow koncowych
+  Michal Morawski
+  11-20-96 09:37pm
+*)
+
+DEFINITION MODULE Rap_Util;
+
+  FROM Dialog IMPORT
+    HDLG;
+
+  TYPE
+    InfoProc = PROCEDURE( HDLG );
+
+  PROCEDURE Dummy( h : HDLG );
+
+  PROCEDURE GetInteractiveData( VAR PomiarOK       : BOOLEAN;
+                                VAR Odpowiedzialny : ARRAY OF CHAR;
+                                VAR Samolot        : ARRAY OF CHAR;
+                                    DodInfo        : InfoProc ) : BOOLEAN;
+
+END Rap_Util.