www.a68

     
   1  COMMENT
   2  
   3  @Section Synopsis
   4  
   5  Reading web pages using Algol 68.
   6  
   7  COMMENT
   8  
   9  PR need curl PR
  10  
  11  INT rc, STRING reply;
  12  
  13  rc := http content (reply, "www.gnu.org", "/", 0);
  14  print ((rc, UPB reply, new line));
  15  
  16  rc := https content (reply, "www.gnu.org", "/", 0);
  17  print ((rc, UPB reply, new line));
  18  
  19  rc = tcp request (reply, "www.gnu.org", "GET / HTTP/1.0", 0);
  20  print ((rc, UPB reply, new line))