home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / comp / lang / ada / 3330 < prev    next >
Encoding:
Text File  |  1992-11-22  |  1.5 KB  |  43 lines
  1. Newsgroups: comp.lang.ada
  2. Path: sparky!uunet!mcsun!sunic!nobeltech!dawe
  3. From: dawe@nobeltech.se (Daniel Wengelin)
  4. Subject: Re: Outputting quote marks
  5. Message-ID: <1992Nov22.124601.4138@nobeltech.se>
  6. Organization: NobelTech AB
  7. References: <By13E7.4q5@plato.ds.boeing.com>
  8. Date: Sun, 22 Nov 1992 12:46:01 GMT
  9. Lines: 32
  10.  
  11. In article <By13E7.4q5@plato.ds.boeing.com> rosen@plato.ds.boeing.com (Robert Rosen) writes:
  12. >I need to use Text_IO to output a string consisting of three
  13. >consecutive quote marks (""").  How can I do it?  Trying 
  14. >
  15. >  Text_IO.Put_Line (""""");
  16. >
  17. >produces a compilation error.
  18. >
  19. >Bob Rosen
  20. >Boeing
  21. >rosen@goofy.ds.boeing.com
  22. >206-773-2852
  23.  
  24.  
  25. Try Put_Line(%"""%); It works fine on my Rat, and is much more 
  26. readable than a large number of quotation characters (LRM 2.10).
  27.  
  28.  
  29.                 Daniel
  30.  
  31.  
  32. ----------------------------------------------------------------
  33. !    with Standard_Disclaimer;                                 !
  34. ----------------------------------------------------------------
  35. !    Daniel Wengelin               ! E-mail: dawe@nobeltech.se !
  36. !    Systems analysis and design   ! Phone : +46 8 58084000    !
  37. !    NobelTech Systems             ! Fax   : +46 8 58081542    !
  38. !    Naval Systems Division        ! Mail  : S-17588 Jarfalla  !
  39. !                                  !         SWEDEN            !
  40. ----------------------------------------------------------------
  41. ! NobelTech: Winner of the -92 Ada Industry Leadership Award   !
  42. ----------------------------------------------------------------
  43.