#!/usr/bin/gawk -f

BEGIN {
   server="wordnetweb.princeton.edu"
   connection="/inet/tcp/0/"server"/www"
   term=ARGV[1]
   url="/perl/webwn?s=" term
   request="GET " url " HTTP/1.0\r\n\r\n"

   # send HTTP request
   print request |& connection

	# receive HTTP response
   while (connection |& getline) {
      print ++lines,go "::" $0 >> "/dev/stderr"
      # process data
      if ($0 ~ "<h3>") { go=1; gsub("^.*<h3>",""); 
         gsub("<[^>]*>",""); print; continue }
      if (go && $0 ~ "<li>" ) { gsub("<i>[:space:]*</i>","");
         gsub("<i>","\n    > "); gsub("<[^>]*>","");
         sub("S: \\(.\\) ",""); gsub(";","\n    >"); print "  *",$0 }
      if ($0 ~ "</ul>") { go=0; continue }
   }

   # close connection
   close(connection)
}