home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / comp / os / vms / 15012 < prev    next >
Encoding:
Text File  |  1992-09-14  |  9.5 KB  |  264 lines
  1. Path: sparky!uunet!olivea!spool.mu.edu!news.nd.edu!bsu-cs!bsu-ucs.uucp!00mjstum
  2. From: 00mjstum@bsu-ucs.uucp (Matthew J. Stum)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: VAX Pascal and callable mail
  5. Message-ID: <1992Sep14.120352.9516@bsu-ucs.uucp>
  6. Date: 14 Sep 92 17:03:52 GMT
  7. References: <1992Sep9.141711.8781@vax.oxford.ac.uk>
  8. Lines: 254
  9.  
  10. > I've been playing -- rather naively -- with Joe Meadows' callable
  11. > mail materials, but with singular lack of success. I don't know C,
  12. > the language his examples are in, and Pascal fails to perform.
  13. > 
  14. > In fact it won't even compile, sticking at the first mention of a
  15. > MAIL$xxx routine, calling it an undeclared identifier. This is
  16. > despite ``inheriting'' STARLET, which contains the definitions of
  17. > all the MAIL$_xxx codes, but not the MAIL$xxx routines. I've gone
  18. > hunting for definitions of the routines in most of the files in
  19. > SYS$LIBRARY, and there don't seem to be any, not even in MAILDEF.H. 
  20. > 
  21. > Can someone give me a hint, please???
  22.  
  23. The following program (below my sig) is rather specific to a local
  24. application (it extracts SCA Digest messages from NEWMAIL into appropriately
  25. named files), but hopefully you can see how to call the MAIL$ routines
  26. from VAX Pascal.  (I have some nicer, general-purpose VAX Pascal MAIL
  27. routines, but I wrote them before the official documentation came out
  28. so some of the data-structures are seriously gross, but work.)
  29.  
  30. -- 
  31. Matt Stum                    Gwydion ap Myrddin       Ball State University
  32. 00mjstum@leo.bsuvc.bsu.edu   Shire of Afonlyn, MK     Muncie, IN  USA
  33.  
  34. ---------------- CUT HERE ---------------------
  35. [inherit('sys$library:starlet')]
  36. program secretary(input,output);
  37.  
  38. const
  39.   MAIL$_NOMOREREC = 8314792; {can't find this anywhere}
  40.  
  41. type
  42.   uword = [word] 0..65535;
  43.   u255word = [byte] 0..255;
  44.   itmrec_mail = record
  45.                   buf_len : uword;
  46.                   item_code : uword;
  47.                   buf_adr : unsigned;
  48.                   ret_len_adr : unsigned;
  49.                 end;
  50.   itmlst_mail = array [1..10] of itmrec_mail;
  51.   v255string = varying [255] of char;
  52.  
  53. var
  54.  
  55.   stat : unsigned;
  56.   in_itmlst,out_itmlst,null : itmlst_mail;
  57.   mfc,mc,uc : unsigned;
  58.   line : array [1..6] of record
  59.                            line : v255string;
  60.                            a,b:uword;
  61.                          end;
  62.   junk : unsigned;
  63.   i,j : integer;
  64.  
  65.   new_messages : uword;
  66.   messages : integer;
  67.   filename : v255string;
  68.   outfile : text;
  69.  
  70. [external] function mail$mailfile_begin(var context:unsigned;
  71.                     var in_item_list:itmlst_mail;
  72.                     var out_item_list:itmlst_mail):unsigned; extern;
  73. [external] function mail$mailfile_open(var context:unsigned;
  74.                     var in_item_list:itmlst_mail;
  75.                     var out_item_list:itmlst_mail):unsigned; extern;
  76. [external] function mail$mailfile_close(var context:unsigned;
  77.                     var in_item_list:itmlst_mail;
  78.                     var out_item_list:itmlst_mail):unsigned; extern;
  79. [external] function mail$mailfile_end(var context:unsigned;
  80.                     var in_item_list:itmlst_mail;
  81.                     var out_item_list:itmlst_mail):unsigned; extern;
  82.  
  83.  
  84. [external] function mail$message_begin(var context:unsigned;
  85.                     var in_item_list:itmlst_mail;
  86.                     var out_item_list:itmlst_mail):unsigned; extern;
  87. [external] function mail$message_delete(var context:unsigned;
  88.                     var in_item_list:itmlst_mail;
  89.                     var out_item_list:itmlst_mail):unsigned; extern;
  90. [external] function mail$message_get(var context:unsigned;
  91.                     var in_item_list:itmlst_mail;
  92.                     var out_item_list:itmlst_mail):unsigned; extern;
  93. [external] function mail$message_select(var context:unsigned;
  94.                     var in_item_list:itmlst_mail;
  95.                     var out_item_list:itmlst_mail):unsigned; extern;
  96. [external] function mail$message_copy(var context:unsigned;
  97.                     var in_item_list:itmlst_mail;
  98.                     var out_item_list:itmlst_mail):unsigned; extern;
  99. [external] function mail$message_end(var context:unsigned;
  100.                     var in_item_list:itmlst_mail;
  101.                     var out_item_list:itmlst_mail):unsigned; extern;
  102.  
  103. [external] function mail$user_begin(var context:unsigned;
  104.                     var in_item_list:itmlst_mail;
  105.                     var out_item_list:itmlst_mail):unsigned; extern;
  106. [external] function mail$user_set_info(var context:unsigned;
  107.                     var in_item_list:itmlst_mail;
  108.                     var out_item_list:itmlst_mail):unsigned; extern;
  109. [external] function mail$user_end(var context:unsigned;
  110.                     var in_item_list:itmlst_mail;
  111.                     var out_item_list:itmlst_mail):unsigned; extern;
  112.  
  113. begin
  114.  
  115.   null[1] := zero;
  116.   mfc := 0; {MESSAGE FILE CONTEXT}
  117.   mc := 0;  {MESSAGE CONTEXT}
  118.   uc := 0;  {USER CONTEXT}
  119.   stat := mail$mailfile_begin(mfc,null,null);
  120.   stat := mail$mailfile_open(mfc,null,null);
  121.   in_itmlst[1].buf_len := 4;
  122.   in_itmlst[1].item_code := MAIL$_MESSAGE_FILE_CTX;
  123.   in_itmlst[1].buf_adr := iaddress(mfc);
  124.   in_itmlst[1].ret_len_adr := 0;
  125.   in_itmlst[2] := zero;
  126.   stat := mail$message_begin(mc,in_itmlst,null);
  127.  
  128.   line[1].line := 'NEWMAIL';
  129.   in_itmlst[1].buf_len := line[1].line.length;
  130.   in_itmlst[1].item_code := MAIL$_MESSAGE_FOLDER;
  131.   in_itmlst[1].buf_adr := iaddress(line[1].line.body);
  132.   in_itmlst[1].ret_len_adr := 0;
  133.  
  134.   line[2].line := 'IN%"SCA@mc.lcs.mit.edu"';
  135.   in_itmlst[2].buf_len := line[2].line.length;
  136.   in_itmlst[2].item_code := MAIL$_MESSAGE_FROM_SUBSTRING;
  137.   in_itmlst[2].buf_adr := iaddress(line[2].line.body);
  138.   in_itmlst[2].ret_len_adr := 0;
  139.  
  140.   line[3].line := 'IN%"SCA@mc.lcs.mit.edu"';
  141.   in_itmlst[3].buf_len := line[3].line.length;
  142.   in_itmlst[3].item_code := MAIL$_MESSAGE_TO_SUBSTRING;
  143.   in_itmlst[3].buf_adr := iaddress(line[3].line.body);
  144.   in_itmlst[3].ret_len_adr := 0;
  145.  
  146.   line[4].line := 'SCA Digest V';
  147.   in_itmlst[4].buf_len := line[4].line.length;
  148.   in_itmlst[4].item_code := MAIL$_MESSAGE_SUBJ_SUBSTRING;
  149.   in_itmlst[4].buf_adr := iaddress(line[4].line.body);
  150.   in_itmlst[4].ret_len_adr := 0;
  151.  
  152.   in_itmlst[5] := zero;
  153.  
  154.   out_itmlst[1].buf_len := 4;
  155.   out_itmlst[1].item_code := MAIL$_MESSAGE_SELECTED;
  156.   out_itmlst[1].buf_adr := iaddress(messages);
  157.   out_itmlst[1].ret_len_adr := iaddress(junk);
  158.  
  159.   out_itmlst[2] := zero;
  160.  
  161.   stat := mail$message_select(mc,in_itmlst,out_itmlst);
  162.  
  163. writeln('Processing ',messages:1,' messages...');
  164.  
  165.   for i := 1 to messages do
  166.     begin
  167.       in_itmlst[1].buf_len := 0;
  168.       in_itmlst[1].item_code := MAIL$_MESSAGE_NEXT;
  169.       in_itmlst[1].buf_adr := 0;
  170.       in_itmlst[1].ret_len_adr := 0;
  171.  
  172.       in_itmlst[2] := zero;
  173.  
  174.       out_itmlst[1].buf_len := 255;
  175.       out_itmlst[1].item_code := MAIL$_MESSAGE_DATE;
  176.       out_itmlst[1].buf_adr := iaddress(line[1].line.body);
  177.       out_itmlst[1].ret_len_adr := iaddress(line[1].a);
  178.  
  179.       out_itmlst[2].buf_len := 255;
  180.       out_itmlst[2].item_code := MAIL$_MESSAGE_SUBJECT;
  181.       out_itmlst[2].buf_adr := iaddress(line[2].line.body);
  182.       out_itmlst[2].ret_len_adr := iaddress(line[2].a);
  183.  
  184.       out_itmlst[3] := zero;
  185.  
  186.       stat := mail$message_get(mc,in_itmlst,out_itmlst);
  187.       line[1].line.length := line[1].a;
  188.       line[2].line.length := line[2].a;
  189.  
  190.       filename := 'RIALTO$ARCHIVE:DIGEST_V';
  191.       {line[2].line should be "SCA Digest Vn #nnn"}
  192.       line[2].line:=substr(line[2].line,13,line[2].line.length-12);
  193.       j := index(line[2].line,' ');
  194.       if j=2 then filename:=filename+'0';
  195.       filename := filename+substr(line[2].line,1,j-1)+'_';
  196.       j := index(line[2].line,'#');
  197.       line[2].line := substr(line[2].line,j+1,line[2].line.length-j);
  198.       if line[2].line.length=1 then filename:=filename+'000';
  199.       if line[2].line.length=2 then filename:=filename+'00';
  200.       if line[2].line.length=3 then filename:=filename+'0';
  201.       filename := filename+line[2].line+'.TXT';
  202.  
  203.       open(file_name := filename,
  204.            file_variable := outfile,
  205.            history := new);
  206.       rewrite(outfile);
  207.  
  208.       writeln(outfile,'Date:   ',line[1].line);
  209.  
  210.       in_itmlst[1].buf_len := 0;
  211.       in_itmlst[1].item_code := MAIL$_MESSAGE_CONTINUE;
  212.       in_itmlst[1].buf_adr := 0;
  213.       in_itmlst[1].ret_len_adr := 0;
  214.  
  215.       in_itmlst[2].buf_len := 0;
  216.       in_itmlst[2].item_code := MAIL$_MESSAGE_AUTO_NEWMAIL;
  217.       in_itmlst[2].buf_adr := 0;
  218.       in_itmlst[2].ret_len_adr := 0;
  219.  
  220.       in_itmlst[3] :=  zero;
  221.  
  222.       out_itmlst[1].buf_len := 255;
  223.       out_itmlst[1].item_code := MAIL$_MESSAGE_RECORD;
  224.       out_itmlst[1].buf_adr := iaddress(line[1].line.body);
  225.       out_itmlst[1].ret_len_adr := iaddress(line[1].a);
  226.  
  227.       out_itmlst[2] := zero;
  228.  
  229.       repeat
  230.           stat := MAIL$MESSAGE_GET(mc,in_itmlst,out_itmlst);
  231.           if stat<>MAIL$_NOMOREREC then
  232.             begin
  233.               line[1].line.length := line[1].a;
  234.               writeln(outfile,line[1].line);
  235.             end;
  236.       until stat=MAIL$_NOMOREREC;
  237.       close(outfile);
  238.  
  239.       out_itmlst[1].buf_len := 2;
  240.       out_itmlst[1].item_code := MAIL$_USER_NEW_MESSAGES;
  241.       out_itmlst[1].buf_adr := iaddress(new_messages);
  242.       out_itmlst[1].ret_len_adr := iaddress(junk);
  243.  
  244.       out_itmlst[2] := zero;
  245.  
  246.       stat := mail$user_begin(uc,null,out_itmlst);
  247.       new_messages := new_messages - 1;
  248.  
  249.       in_itmlst[1].buf_len := 2;
  250.       in_itmlst[1].item_code := MAIL$_USER_SET_NEW_MESSAGES;
  251.       in_itmlst[1].buf_adr := iaddress(new_messages);
  252.       in_itmlst[1].ret_len_adr := 0;
  253.  
  254.       in_itmlst[2] :=  zero;
  255.  
  256.       stat := mail$user_set_info(uc,in_itmlst,null);
  257.       stat := mail$user_end(uc,null,null);
  258.     end;
  259.  
  260.   stat := mail$message_end(mc,null,null);
  261.   stat := mail$mailfile_end(mfc,null,null);
  262.  
  263. end.
  264.