home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 1 / Meeting Pearls Vol 1 (1994).iso / installed_progs / comm / ums / developer.lha / Developer / interfaces / Modula-2 / UmsL.def < prev   
Encoding:
Modula Definition  |  1993-11-16  |  7.0 KB  |  209 lines
  1. (* --------------------------------------------------------------------------
  2.   :Program.       ums
  3.   :Contents.      Interfaces for ums.library
  4.   :Author.        Martin Koyro [mk]
  5.   :Address.       SnailMail:                EMail:
  6.   :Address.       Salzmannstr. 12           MAUS: MS3
  7.   :Address.       48147 Muenster            INET: mk@ms3.ms.open.de
  8.   :Address.       GERMANY
  9.   :Author.        Martin Loos [ml]
  10.   :Address.       SnailMail:                EMail:
  11.   :Address.       Im Scheidt 25             MAUS: UN
  12.   :Address.       58640 Iserlohn-Kalthof    INET: mattin@unicorn.mk.open.de
  13.   :Address.       GERMANY                   FIDO: 2:243/4624.2 (GCC)
  14.   :History.       [mk] 19-Jan-93: Conversion from Oberon to Modula-2
  15.   :Language.      Modula II
  16.   :Translator.    M2Amiga V4.1.07d
  17. -------------------------------------------------------------------------- *)
  18. DEFINITION MODULE UmsL{"ums.library",9};
  19.  
  20.  
  21. IMPORT d:UmsD,e:ExecD,R,u:UtilityD,s:SYSTEM;
  22.  
  23. CONST
  24.   umsMinVersion=9;
  25.   umsName="ums.library";
  26.  
  27. VAR
  28.   umsVersion:INTEGER;
  29.   umsBase:e.LibraryPtr;
  30.  
  31.   (***  functions ***)
  32.  
  33. PROCEDURE Login( user{R.D2}   : d.STRPTR;
  34.                  passwd{R.D3} : d.STRPTR): LONGINT; CODE -30;
  35.  
  36.  
  37. PROCEDURE Logout( account{R.D2} : LONGINT);  CODE -36;
  38.  
  39. PROCEDURE PutUMSMsg( account{R.D2}: LONGINT;
  40.                      Msg{R.D3}    : d.oldMsgPtr): INTEGER; CODE -42;
  41.  
  42. PROCEDURE GetMsgHdr( account{R.D2}: LONGINT;
  43.                      MsgNum{R.D3} : INTEGER): d.oldMsgPtr; CODE -48;
  44.  
  45. PROCEDURE GetMsgTxt( account{R.D2} : LONGINT;
  46.                      Msg{R.D3}     : d.oldMsgPtr): INTEGER; CODE -54;
  47.  
  48. PROCEDURE FreeMsg( account{R.D2}: LONGINT;
  49.                    Msg{R.D3}    : d.oldMsgPtr);  CODE -60;
  50.  
  51.  
  52. PROCEDURE NextNew( account{R.D2}: LONGINT;
  53.                    MsgNum{R.D3} : INTEGER): INTEGER; CODE -66;
  54.  
  55. PROCEDURE SearchID( account{R.D2}: LONGINT;
  56.                     id{R.D3}     : d.STRPTR): INTEGER;  CODE -72;
  57.  
  58. PROCEDURE ChangeID( account{R.D2}: LONGINT;
  59.                     MsgNum{R.D3} : INTEGER;
  60.                     id{R.D4}     : d.STRPTR): BOOLEAN;  CODE -78;
  61.  
  62. PROCEDURE ChainUp( account{R.D2}: LONGINT;
  63.                    MsgNum{R.D3} : INTEGER): INTEGER;  CODE -84;
  64.  
  65. PROCEDURE ChainDn( account{R.D2}: LONGINT;
  66.                    MsgNum{R.D3} : INTEGER): INTEGER; CODE -90;
  67.  
  68. PROCEDURE ChainRt( account{R.D2}: LONGINT;
  69.                    MsgNum{R.D3} : INTEGER): INTEGER; CODE -96;
  70.  
  71. PROCEDURE ChainLt( account{R.D2}: LONGINT;
  72.                    MsgNum{R.D3} : INTEGER): INTEGER;  CODE -102;
  73.  
  74. PROCEDURE GetGlobal( account{R.D2}: LONGINT;
  75.                      name{R.D3}   : d.STRPTR;
  76.                      data{R.D4}   : d.STRPTR);  CODE -108;
  77.  
  78. PROCEDURE DumpConfig( account{R.D2}: LONGINT) ;  CODE -114;
  79.  
  80. PROCEDURE ErrNum( account{R.D2}: LONGINT): INTEGER; CODE -120;
  81.  
  82. PROCEDURE ErrTxt( account{R.D2}: LONGINT): d.STRPTR; CODE -126;
  83.  
  84. PROCEDURE DeleteMsg( account{R.D2}: LONGINT;
  85.                      MsgNum{R.D3} : INTEGER): BOOLEAN; CODE -132;
  86.  
  87. PROCEDURE ChangeAttributes( account{R.D2}: LONGINT;
  88.                             MsgNum{R.D3} : INTEGER;
  89.                             att{R.D4}    : d.STRPTR): BOOLEAN; CODE -138;
  90.  
  91. PROCEDURE NextStatus( account{R.D2}: LONGINT;
  92.                       from{R.D3}   : INTEGER;
  93.                       mask{R.D4}   : s.BITSET;
  94.                       status{R.D5} : s.BITSET): INTEGER; CODE -144;
  95.  
  96. (*** definetly obsolete
  97.  
  98. PROCEDURE SelectStatus( account{R.D2}: LONGINT;
  99.                         set{R.D3}    : s.BITSET;
  100.                         mask{R.D4}   : s.BITSET;
  101.                         status{R.D5} : s.BITSET): INTEGER;  CODE -150;
  102.  
  103. PROCEDURE SelectGroup( account{R.D2}: LONGINT;
  104.                        set{R.D3}    : s.BITSET;
  105.                        group{R.D4}  : d.STRPTR): INTEGER; CODE -156;
  106. ***)
  107.  
  108. PROCEDURE SetStatus( acc{R.D2}    : LONGINT;
  109.                      MsgNum{R.D3} : INTEGER;
  110.                      unset{R.D4}  : s.BITSET;
  111.                      set{R.D5}    : s.BITSET);  CODE -162;
  112.  
  113. PROCEDURE PrevStatus( acc{R.D2}    : LONGINT;
  114.                       from{R.D3}   : INTEGER;
  115.                       mask{R.D4}   : s.BITSET;
  116.                       status{R.D5} : s.BITSET): INTEGER;  CODE -168;
  117.  
  118. PROCEDURE SelStatus( acc{R.D2}    : LONGINT;
  119.                      set{R.D3}    : s.BITSET;
  120.                      unset{R.D4}  : s.BITSET;
  121.                      mask{R.D5}   : s.BITSET;
  122.                      status{R.D6} : s.BITSET): INTEGER;  CODE -174;
  123.  
  124. PROCEDURE SelGroup( acc{R.D2}    : LONGINT;
  125.                     set{R.D3}    : s.BITSET;
  126.                     unset{R.D4}  : s.BITSET;
  127.                     group{R.D5}  : d.STRPTR): INTEGER;  CODE -180;
  128.  
  129. PROCEDURE GetStatus( acc{R.D2}    : LONGINT;
  130.                      MsgNum{R.D3} : LONGINT): s.BITSET; CODE -186;
  131.  
  132. PROCEDURE FlushUMS(); CODE -192;
  133.  
  134. PROCEDURE CleanMB(): INTEGER;  CODE -198;
  135.  
  136. PROCEDURE QuitUMS();  CODE -204;
  137.  
  138.  
  139. (*** V8: ***)
  140.  
  141. PROCEDURE UMSARexxQuery(); CODE -210;
  142.  
  143. (*** V9: ***)
  144.  
  145. (*** Patterns removed 6.10.92
  146.  
  147. PROCEDURE AllocUMSPattern( pattern{R.D2}: d.STRPTR;
  148.                            case{R.D3}  : BOOLEAN): s.ADDRESS;  CODE -216;
  149.  
  150. PROCEDURE FreeUMSPattern( pHandle{R.D2}: s.ADDRESS );  CODE -222;
  151.  
  152. PROCEDURE MatchUMSPattern( pHandle{R.D2}: s.ADDRESS;
  153.                            string{R.D3} : d.STRPTR): BOOLEAN; CODE -228;
  154. ***)
  155.  
  156. PROCEDURE ExportedMsg( acc{R.D2}    : LONGINT;
  157.                        num{R.D3}    : LONGINT);  CODE -234;
  158.  
  159. PROCEDURE CannotExport( acc{R.D2}    : LONGINT;
  160.                         num{R.D3}    : LONGINT;
  161.                         error{R.D4}  : d.STRPTR): BOOLEAN; CODE -240;
  162.  
  163.  
  164. PROCEDURE LogUMS( acc{R.D2}    : LONGINT;
  165.                   level{R.D4}  : LONGINT;
  166.                   format{R.D5} : d.STRPTR;
  167.                   args{R.D6}   : s.ADDRESS);  CODE -246;
  168.  
  169.  
  170. PROCEDURE LogUms( acc{R.D2}    : LONGINT;
  171.                   level{R.D4}  : LONGINT;
  172.                   format{R.D5} : d.STRPTR;
  173.                   args{R.D6}   : LONGINT);   CODE -246;
  174.  
  175. PROCEDURE UMSRLogin( server{R.D2} : d.STRPTR;
  176.                      user{R.D3}   : d.STRPTR;
  177.                      passwd{R.D4} : d.STRPTR): LONGINT;  CODE -252;
  178.  
  179.  
  180. PROCEDURE WriteUMSMsg( acc{R.D2}    : LONGINT;
  181.                        tagItems{R.D3}: u.TagItemPtr): LONGINT; CODE -258;
  182.  
  183. PROCEDURE ReadUMSMsg( acc{R.D2}    : LONGINT;
  184.                       tagItems{R.D3}: u.TagItemPtr): BOOLEAN; CODE -264;
  185.  
  186. PROCEDURE FreeUMSMsg( acc{R.D2}    : LONGINT;
  187.                       msgNum{R.D3} : LONGINT);  CODE -270;
  188.  
  189. PROCEDURE UMSSelect( acc{R.D2}     : LONGINT;
  190.                      tagItems{R.D3}: u.TagItemPtr): LONGINT; CODE -276;
  191.  
  192. PROCEDURE UMSSearch( acc{R.D2}     : LONGINT;
  193.                      tagItems{R.D3}: u.TagItemPtr): LONGINT; CODE -282;
  194.  
  195. PROCEDURE ReadUMSConfig( acc{R.D2}: LONGINT;
  196.                          tagItems{R.D3}: u.TagItemPtr): d.STRPTR; CODE -288;
  197.  
  198. PROCEDURE FreeUMSConfig( acc{R.D2}    : LONGINT;
  199.                          str{R.D3}    : d.STRPTR); CODE -294;
  200.  
  201.  
  202. PROCEDURE WriteUMSConfig( acc{R.D2}: LONGINT;
  203.                           tagItems{R.D3}: u.TagItemPtr): BOOLEAN; CODE -300;
  204.  
  205. PROCEDURE PrivateServerCall( command{R.D2}: LONGINT;
  206.                              arg{R.D3}    : s.ADDRESS): LONGINT; CODE -306;
  207.  
  208. END UmsL.lib9
  209.