home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / os / vms / 18094 < prev    next >
Encoding:
Text File  |  1992-11-17  |  2.9 KB  |  91 lines
  1. Path: sparky!uunet!think.com!ames!agate!ucbvax!ko.hhs.dk!ARNE
  2. From: ARNE@ko.hhs.dk (Arne Vajhxj)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Help!  SMG$GET_TERM_DATA/VAX PASCAL
  5. Message-ID: <01GR5BWLC7VM8WW9XB@kopc.hhs.dk>
  6. Date: 14 Nov 92 15:12:11 GMT
  7. Sender: daemon@ucbvax.BERKELEY.EDU
  8. Distribution: world
  9. Organization: The Internet
  10. Lines: 79
  11.  
  12. > I'd _really_really_ appreciate it if someone could get the VAX PASCAL code
  13. > below my sig to work properly (and send me a copy... <grin>).  Basically,
  14. > I'm having difficulties passing the buffer address to SMG$GET_TERM_DATA...
  15. > who's bright idea was it to define "Address - Unsigned Longword" as an
  16. > [UNSAFE] ^[UNSAFE] INTEGER????
  17.  
  18. > [inherit('sys$library:starlet','sys$library:pascal$smg_routines')]
  19. > program termtab(input,output);
  20. > type
  21. >   $DEFTYP = [UNSAFE] INTEGER;   {as found in pascal$smg_routines.pas}
  22. >   $DEFPTR = [UNSAFE] ^$DEFTYP;  {ditto}
  23. > 
  24. > var
  25. >   stat : integer;
  26. >   termadr : unsigned;
  27. >   bufadr : $DEFPTR;
  28. >   line : varying [12] of char;  {arbitrary length string}
  29. >   junk : integer;
  30. >   i : integer;
  31. > 
  32. > begin
  33. >   stat := SMG$INIT_TERM_TABLE(%descr 'VT200_Series',termadr);
  34. >   if not(odd(stat)) then $exit(stat);
  35. > 
  36. >   line := zero;
  37. >   bufadr := iaddress(line.body); {this is what gives me problems, I think}
  38. > 
  39. >   {should return 4 character string "<esc>[2J"}
  40. >   stat := SMG$GET_TERM_DATA(termadr,SMG$K_ERASE_WHOLE_DISPLAY,12,junk,bufadr);
  41. >   if not(odd(stat)) then $exit(stat);
  42. >   line.length := junk;
  43. > 
  44. >   writeln('length = ',junk:1);  {this works okay... returns '4'}
  45. >   writeln('"',line.body,'"');   {... but this doesn't}
  46. > 
  47. >   {display the entire string for debugging purposes}
  48. >   for i:=1 to 12 do
  49. >     writeln(i:2,' "',line.body[i],'" (',ord(line.body[i]):1,')');
  50. > end.
  51.  
  52. The following SIMPLE modification works for me:
  53.  
  54. [inherit('sys$library:starlet','sys$library:pascal$smg_routines')]
  55. program termtab(input,output);
  56.  
  57. var
  58.   stat : integer;
  59.   termadr : unsigned;
  60.   line : varying [12] of char;  {arbitrary length string}
  61.   junk : integer;
  62.   i : integer;
  63.  
  64. begin
  65.   stat := SMG$INIT_TERM_TABLE(%descr 'VT200_Series',termadr);
  66.   if not(odd(stat)) then $exit(stat);
  67.  
  68.   line := zero;
  69.  
  70.   {should return 4 character string "<esc>[2J"}
  71.   stat := SMG$GET_TERM_DATA(termadr,SMG$K_ERASE_WHOLE_DISPLAY,12,junk,
  72.                             %REF line.body);
  73.   if not(odd(stat)) then $exit(stat);
  74.   line.length := junk;
  75.  
  76.   writeln('length = ',junk:1);  {this works okay... returns '4'}
  77.   writeln('"',line.body,'"');   {... but this doesn't} (* NOW IT DOES *)
  78.  
  79.   {display the entire string for debugging purposes}
  80.   for i:=1 to 12 do
  81.     writeln(i:2,' "',line.body[i],'" (',ord(line.body[i]):1,')');
  82. end.
  83.  
  84.                                                           Arne
  85.  
  86. Arne Vajhxj                             local DECNET:  KO::ARNE
  87. Computer Department                     PSI:           PSI%23831001304030::ARNE
  88. Business School of Southern Denmark     Internet:      ARNE@KO.HHS.DK
  89.  
  90.  
  91.