functs

Header source

0001 /*--------------------------------------------------
0002 functs.h:
0003     prototype des fonctions TSlib ( Norme ANSI ) (toutes ?)
0004 ----------------------------------------------------*/
0005 #if(client == PC)
0006 #include <windows.h>
0007 
0008 #define MAXDATAPC    100000L
0009 #define FAR_PASCAL   PASCAL
0010 #define HUGE         huge
0011 #define Register
0012 #define Strcpy         lstrcpy
0013 #define Strcat         lstrcat
0014 #define Strlen         lstrlen
0015 #define Memcpy         _fmemcpy
0016 #else
0017 #define FAR_PASCAL
0018 #define HUGE
0019 #define Register     register
0020 #define Strcpy         strcpy
0021 #define Strlen         strlen
0022 #define Strcat         strcat
0023 #define Memcpy         memcpy
0024 #endif
0025 
0026 
0027 /* --- module ceat.c --- */
0028 
0029 extern Longint FAR_PASCAL 
0030 TSLDiag (Longint numchoc,
0031      Longint *nbdiag,
0032      char *ListeDiag[]);
0033 
0034 extern Longint FAR_PASCAL 
0035 TSLSig (Longint numchoc,
0036     char *NomDiag,
0037     Longint *nbsig,
0038     char *ListeSig[]);
0039 
0040 extern Longint FAR_PASCAL 
0041 TSRqparm (Longint numchoc,
0042       char *nomdiag,
0043       char *nomobj,
0044       char *nomparam,
0045       Longint nbval,
0046       char *buff,
0047       Longint *nrep,
0048       Longint *fparm);
0049 
0050 extern Longint FAR_PASCAL 
0051 TSRqdecl (Longint numchoc,
0052       char *nomdec,
0053       Longint numoccur,
0054       float *datedec);
0055 
0056 extern Longint FAR_PASCAL TSGetinfo (Longint *numchoc);
0057 
0058 extern Longint FAR_PASCAL 
0059 TSLTrait (Longint *nbtrait,
0060       char *ListeTrait[]);
0061 
0062 extern Longint FAR_PASCAL 
0063 TSRqentete_sig (Longint numchoc,
0064         char *nomdiag,
0065         char *nomobj,
0066         char *unites,
0067         float *calibration);
0068 
0069 extern Longint FAR_PASCAL 
0070 TSRqentete_par (Longint numchoc,
0071         char *nomdiag,
0072         char *nomobj,
0073         char *nompar,
0074         char *unites);
0075 
0076 extern Longint FAR_PASCAL TSRqstop ();    /* aucun parametre */
0077 
0078 extern Longint FAR_PASCAL 
0079 TSTData (Longint numchoc,
0080      char * nom_diag,
0081      Longint *t_choc,
0082      Longint *t_param);
0083 
0084 extern Longint FAR_PASCAL
0085 TSRqt (    char * Requete,
0086     char ** ShotList,
0087          Longint * LShotList );
0088 
0089 extern Longint FAR_PASCAL
0090 TSLgDiag (      Longint numchoc,
0091                 char *nomdiag,
0092                 Longint *nbmes   );
0093 
0094 extern Longint FAR_PASCAL
0095 TSwriteParam (  Longint numchoc,
0096                 char *nomdiag,
0097                 char *nomobj,
0098                 char *nomparam,
0099                 Longint n,
0100                 Longint nbval[],
0101                 Longint lgval[],
0102                 char *buff);
0103 
0104 extern Longint FAR_PASCAL
0105 TSlistObjet ( );
0106                            
0107 extern Longint FAR_PASCAL
0108 TSrqParm (      Longint numchoc,
0109                 char *nomdiag,
0110                 char *nomobj,
0111                 char *typobj,
0112                 char *nomparam,
0113                 char **buff,
0114                 Longint *nrep,
0115                 Longint *fmt);
0116 
0117 extern Longint FAR_PASCAL
0118 TSdescObjet (   Longint numchoc,
0119                 char *nomdiag,
0120                 char *nomobj,
0121                /* char *typobj,*/
0122                 char **buff,
0123                 char **cmt);
0124 
0125 extern Longint FAR_PASCAL
0126 TStele ( char *NomDiag,
0127          Longint al,
0128          Longint val,
0129          char **pt_val,
0130          Longint *lg_data  );
0131 
0132 extern Longint FAR_PASCAL
0133 TSChargerObjet (Longint numchoc,
0134                 char *ensCible,
0135                 char *ensSource,
0136                 char *prodCible,
0137                 char *prodSource,
0138                 char *objSource,
0139                 char *objCible,
0140                 Longint remp,
0141                 Longint dom);
0142 
0143 
0144 extern Longint FAR_PASCAL
0145 TSPrepareTele ( char *NomDiag);
0146 
0147 extern Longint FAR_PASCAL
0148 TSArchive (char *NomDiag);
0149 
0150 extern Longint FAR_PASCAL
0151 TSEnregistrable (char *NomDiag, 
0152                  int val);
0153 
0154 /* --- module TSDesc.c --- */
0155 
0156 extern Longint FAR_PASCAL 
0157 TSDescTrait (char *NomTrait,
0158          Longint NumVer,
0159          pS_DescTrait * DescTrait);
0160 
0161 extern Longint FAR_PASCAL 
0162 TSDescDiag (char *NomDiag,
0163         Longint NumVer,
0164         pS_DescDiag * DescDiag);
0165 
0166 extern Longint FAR_PASCAL 
0167 TSDescDon (char *NomDon,
0168        pS_DescDon * DescDon);
0169 
0170 /* He les loulous faudrait voir de tout mettre
0171    pour que ca gaze !!!!   YB 12/6/96 14h */
0172 /*extern Longint FAR_PASCAL 
0173 TSDescDon_choc (char *NomDon,
0174          Longint num_choc,
0175          ts_donnee **pt_val );
0176 */
0177 
0178 extern Longint FAR_PASCAL 
0179 TSExist (char *NomDon,
0180      pS_Entree Entrees,
0181      Longint *NbCoord,
0182      Longint *NumVer,
0183      Longint *Certif,
0184      char *Date,
0185      char *Heure);
0186 
0187 /* --- module TSEcri.c --- */
0188 
0189 extern Longint FAR_PASCAL 
0190 TSWrite (char *NomTrait,
0191      pS_Entree Entrees,
0192      Longint *Longueurs,
0193      Longint *Certif,
0194      char *TabVal,
0195      Longint LongNb,
0196      Longint CertifNb,
0197      Longint ValNb);
0198 
0199 extern Longint FAR_PASCAL 
0200 TSWcertif (char *NomDon,
0201        pS_Entree Entrees,
0202        Longint *Certif,
0203        Longint CertifNb);
0204 
0205 /* JS - 10.2004 */
0206 extern Longint FAR_PASCAL
0207 TSInitOccTrait (char *NomTrait,
0208     pS_Entree Entrees);
0209 
0210 extern Longint FAR_PASCAL
0211 TSUpdateOccTrait (char *NomTrait,
0212     pS_Entree Entrees,
0213     Longint Status,
0214     Longint Dureems);
0215 /*** Fin JS ***/
0216 
0217 /* --- module TSLect.c --- */
0218 
0219 extern Longint FAR_PASCAL 
0220 TSGrpX (char *NomDon,
0221     pS_Entree Entrees,
0222     Double XI,
0223     Double XF,
0224     Longint NbMax,
0225     Longint Extract,
0226     pS_Unite * Unite,
0227     Longint *NumVer,
0228     Longint *Certif,
0229     char *Date,
0230     char *Heure,
0231     Longint *NbMes,
0232     Longint *MaxReel,
0233     char HUGE * X,
0234     char HUGE * Y,
0235     char *Coord);
0236 
0237 
0238 extern Longint FAR_PASCAL 
0239 TSGrpRg (char *NomDon,
0240      pS_Entree Entrees,
0241      Longint *Rangs,
0242      Longint NbMax,
0243      Longint Extract,
0244      pS_Unite * Unite,
0245      Longint *NumVer,
0246      Longint *Certif,
0247      char *Date,
0248      char *Heure,
0249      Longint *NbMes,
0250      Longint *MaxReel,
0251      char HUGE * X,
0252      char HUGE * Y,
0253      char *Coord);
0254 
0255 
0256 extern Longint FAR_PASCAL 
0257 TSRSigRg (char *NomDon,
0258       pS_Entree Entrees,
0259       Longint *Rangs,
0260       Longint NbMax,
0261       Longint Extract,
0262       pS_Unite * Unite,
0263       Longint *NumVer,
0264       Longint *Certif,
0265       char *Date,
0266       char *Heure,
0267       Longint *NbMes,
0268       Longint *MaxReel,
0269       char HUGE * X,
0270       char HUGE * Y);
0271 
0272 
0273 extern Longint FAR_PASCAL 
0274 TSRSigX (char *NomDon,
0275      pS_Entree Entrees,
0276      Double XI,
0277      Double XF,
0278      Longint NbMax,
0279      Longint Extract,
0280      pS_Unite * Unite,
0281      Longint *NumVer,
0282      Longint *Certif,
0283      char *Date,
0284      char *Heure,
0285      Longint *NbMes,
0286      Longint *MaxReel,
0287      char HUGE * X,
0288      char HUGE * Y);
0289 
0290 
0291 
0292 extern Longint FAR_PASCAL 
0293 TSXtrRg (char *NomDon,
0294      pS_Entree Entrees,
0295      Longint *Indices,
0296      Longint *Rangs,
0297      Longint NbMax,
0298      Longint Extract,
0299      pS_Unite * Unite,
0300      Longint *NumVer,
0301      Longint *Certif,
0302      char *Date,
0303      char *Heure,
0304      Longint *NbMes,
0305      Longint *MaxReel,
0306      char HUGE * X,
0307      char HUGE * Y,
0308      char *Coord);
0309 
0310 extern Longint FAR_PASCAL 
0311 TSXtrX (char *NomDon,
0312     pS_Entree Entrees,
0313     Longint *Indices,
0314     Double XI,
0315     Double XF,
0316     Longint NbMax,
0317     Longint Extract,
0318     pS_Unite * Unite,
0319     Longint *NumVer,
0320     Longint *Certif,
0321     char *Date,
0322     char *Heure,
0323     Longint *NbMes,
0324     Longint *MaxReel,
0325     char HUGE * X,
0326     char HUGE * Y,
0327     char *Coord);
0328 
0329 
0330 /* --- module TSDecl.c --- */
0331 
0332 extern Longint FAR_PASCAL 
0333 TSSigDeclenche (char *NomDon,
0334         Longint NumChoc,
0335         char *NomDec,
0336         Longint Occur,
0337         Longint NbMax,
0338         Longint Extract,
0339         pS_Unite * Unite,
0340         Longint *NumVer,
0341         char *Date,
0342         char *Heure,
0343         Longint *NbMes,
0344         Longint *MaxReel,
0345         char HUGE * T,
0346         char HUGE * Y);
0347 
0348 
0349 extern Longint FAR_PASCAL 
0350 TSXtrDeclenche (char *NomDon,
0351         Longint NumChoc,
0352         Longint *Indices,
0353         char *NomDec,
0354         Longint Occur,
0355         Longint NbMax,
0356         Longint Extract,
0357         pS_Unite * Unite,
0358         Longint *NumVer,
0359         char *Date,
0360         char *Heure,
0361         Longint *NbMes,
0362         Longint *MaxReel,
0363         char HUGE * T,
0364         char HUGE * Y);
0365 
0366 
0367 extern Longint FAR_PASCAL 
0368 TSGrpDeclenche (char *NomDon,
0369         Longint NumChoc,
0370         char *NomDec,
0371         Longint Occur,
0372         Longint NbMax,
0373         Longint Extract,
0374         pS_Unite * Unite,
0375         Longint *NumVer,
0376         char *Date,
0377         char *Heure,
0378         Longint *NbMes,
0379         Longint *MaxReel,
0380         char HUGE * T,
0381         char HUGE * Y);
0382 
0383 
0384 
0385 /* --- module TScom.c --- */
0386 
0387 extern Longint FAR_PASCAL
0388 Emission (
0389 #if (client == MAC)
0390       ConnHandle nsock,
0391 #else
0392       int nsock,
0393 #endif
0394       char *parametre,
0395       Longint longbuffer,
0396       Longint code_param);
0397 
0398 extern Longint FAR_PASCAL Fin_Emission (int nsock);
0399 
0400 Longint FAR_PASCAL
0401 Emission_DescDon (
0402 #if (client == MAC)
0403                ConnHandle nsock,
0404 #else
0405                 int nsock,
0406 #endif
0407              short int code_fonc,
0408         char *nom_don);
0409 
0410 extern Longint FAR_PASCAL
0411 Reception (
0412 #if (client == MAC)
0413        ConnHandle nsock,
0414 #else
0415        int nsock,
0416 #endif
0417        char * parametre,
0418        Longint longbuffer,
0419        Longint code_param);
0420 
0421 /************************************/
0422 extern Longint FAR_PASCAL
0423 ReceptionHuge (
0424        int nsock,
0425        char HUGE * parametre,
0426        Longint longbuffer,
0427        Longint code_param);
0428 /************************************/
0429 
0430 #if (client != MAC)
0431 extern Longint FAR_PASCAL
0432                 Debut_Communication (int *NumSocket, int ind_base);
0433 
0434 #else                /* version Macintosh */
0435 extern Longint
0436                 Debut_Communication (ConnHandle * NumSocket, int ind_base);
0437 #endif
0438 
0439 
0440 extern void 
0441 Fin_Communication (
0442 #if (client == MAC)
0443            ConnHandle nsock
0444 #else
0445            int nsock
0446 #endif
0447 );
0448 
0449 /* --- module TSutil.c --- */
0450 
0451 extern Longint FAR_PASCAL
0452 Emission_Entrees (
0453 #if (client == MAC)
0454           ConnHandle nsock,
0455 #else
0456           int nsock,
0457 #endif
0458           pS_Entree ptent,
0459           Longint code_param);
0460 
0461 
0462 
0463 extern Longint FAR_PASCAL
0464 Reception_Donnee (
0465 #if (client == MAC)
0466           ConnHandle nsock,
0467 #else
0468           int nsock,
0469 #endif
0470           pS_Donnee * ptdon,
0471           Longint code_param);
0472 
0473 
0474 extern Longint FAR_PASCAL
0475 Reception_DescEntree (
0476 #if (client == MAC)
0477           ConnHandle nsock,
0478 #else
0479           int nsock,
0480 #endif
0481           pS_DescEntree * ptent,
0482           Longint code_param);
0483 
0484 
0485 extern Longint FAR_PASCAL
0486 Reception_DescCoord (
0487 #if (client == MAC)
0488          ConnHandle nsock,
0489 #else
0490          int nsock,
0491 #endif
0492          pS_DescCoord * ptcoord,
0493          Longint code_param);
0494 
0495 extern Longint FAR_PASCAL
0496 Reception_Chaine (
0497 #if (client == MAC)
0498       ConnHandle nsock,
0499 #else
0500       int nsock,
0501 #endif
0502       char **chaine,
0503       Longint code_param);
0504 
0505 
0506 
0507 extern Longint FAR_PASCAL
0508 Reception_DescTrait (
0509 #if (client == MAC)
0510          ConnHandle nsock,
0511 #else
0512          int nsock,
0513 #endif
0514          pS_DescTrait * pttrait,
0515          Longint code_param);
0516 
0517 
0518 extern Longint FAR_PASCAL
0519 Reception_DescDiag (
0520 #if (client == MAC)
0521         ConnHandle nsock,
0522 #else
0523         int nsock,
0524 #endif
0525         pS_DescDiag * ptdiag,
0526         Longint code_param);
0527 
0528 
0529 extern Longint FAR_PASCAL
0530 Reception_DescDon (
0531 #if (client == MAC)
0532        ConnHandle nsock,
0533 #else
0534        int nsock,
0535 #endif
0536        pS_DescDon * ptdon,
0537        Longint code_param);
0538 
0539 
0540 extern Longint FAR_PASCAL
0541 Reception_Unite (
0542 #if (client == MAC)
0543      ConnHandle nsock,
0544 #else
0545      int nsock,
0546 #endif
0547      pS_Unite * ptunite,
0548      Longint code_param);
0549 
0550 
0551 extern Longint FAR_PASCAL
0552 Reception_Tableau (
0553 #if (client == MAC)
0554        ConnHandle nsock,
0555 #else
0556        int nsock,
0557 #endif
0558        char HUGE * Tab,
0559        Longint Tablg,
0560        char *Tabtyp,
0561        Longint code_param);
0562 
0563 
0564 extern Longint FAR_PASCAL
0565 Reception_Tab_Coord (
0566 #if (client == MAC)
0567          ConnHandle nsock,
0568 #else
0569          int nsock,
0570 #endif
0571          char *Tab,
0572          Longint *Tablg,
0573          char *Tabtyp,
0574          Longint Typtab,
0575          Longint code_param);
0576 
0577 /* --- module TSerr.c --- */
0578 
0579 extern Longint            /* C declaration */
0580 Gestion_Erreur (Longint erreur,
0581         Longint param);
0582 
0583