Hello world/Web server: Difference between revisions
Content added Content deleted
m (→{{header|Phix}}: closesocket() now returns NULL) |
|||
Line 101: | Line 101: | ||
=={{header|Amazing Hopper}}== |
=={{header|Amazing Hopper}}== |
||
VERSION 1: "Hopper" flavour: |
|||
<lang Amazing Hopper> |
<lang Amazing Hopper> |
||
// Hello world! mode Server |
// Hello world! mode Server |
||
Line 128: | Line 129: | ||
exit(0) |
exit(0) |
||
</lang> |
|||
VERSION 2: "Hopper-BASIC" flavour |
|||
<lang Amazing Hopper> |
|||
// Hello world! mode Server: desde el navegador, escriba localhost:8080 |
|||
#include <hbasic.h> |
|||
Begin |
|||
Declare as Numeric (fd,fdc) |
|||
as Alpha (message,HEAD,head,body,form,html) |
|||
Let ( HEAD := Cat$("HTTP/1.1 200 OK\n","Content-Type: text/html; charset=UTF-8\n\n") + ("<!DOCTYPE html>\n") ) |
|||
ParsNormal$("title","","Bye-bye baby bye-bye")(head) |
|||
ParsNormal$("style","","body { background-color: #111 } h1 { font-size:4cm; text-align: center; color: black; text-shadow: 0 0 2mm red}")(head) |
|||
ParsNormal$("head","",head)(html) |
|||
ParsNormal$("h1","","Goodbye, world!")(body) |
|||
ParsNormal$("body","",body)(html) |
|||
ParsNormal$("html","",html)(form) |
|||
Let( form := Cat$(HEAD,form)) |
|||
Let( message := Tran$(">\n<","><", form) ) |
|||
Print( message, Newl) |
|||
/* Open socket in localhost (by default) */ |
|||
Let( fd := OpenServerTCP(3,8080) ) |
|||
/* accept conection & send message */ |
|||
Let( fdc := Accept(fd) ) |
|||
Send(message,fdc) |
|||
/* close all */ |
|||
CloseSocket(fdc) |
|||
CloseSocket(fd) |
|||
End |
|||
</lang> |
</lang> |
||
{{out}} |
{{out}} |