support for short, int64 and AST dump

1 files changed, 83 insertions, 0 deletions

diff --git a/t/ssl.pas b/t/ssl.pas
new file mode 100644
index 0000000..22d4d79
--- /dev/null
+++ b/t/ssl.pas
@@ -0,0 +1,83 @@
+program ssl;
+
+type
+    hostent=record
+        h_name:^char;
+        h_aliases:^^char;
+        h_addrtype:integer;
+        h_length:integer;
+        h_addr_list:^^char
+    end;
+    sockaddr_in=record
+        sin_family:short;
+        sin_port:short;
+        sin_addr:array[0..3] of char;
+        sin_zero:array[0..7] of char
+    end;
+
+const
+    AF_INET=2;
+    SOCK_STREAM=1;
+    IPPROTO_TCP=6;
+
+extern memset(dst:^void; n:integer; size:int64):^void;
+extern memcpy(dst:^void; src:^void; size:int64):^void;
+extern sprintf(s:^char; fmt:^char; ...):integer;
+extern printf(fmt:^char; ...):int64;
+
+extern socket(domain:integer; socktype:integer; protocol:integer):integer;
+extern htons(port:short):short;
+extern gethostbyname(name:^char):^hostent;
+extern connect(s:integer; addr:^sockaddr_in; size:integer):integer;
+
+extern TLS_method():^void;
+extern SSL_CTX_new(meth:^void):^void;
+extern SSL_new(meth:^void):^void;
+extern SSL_set_fd(ssl:^void; fd:integer):integer;
+extern SSL_connect(ssl:^void):integer;
+extern SSL_write(ssl:^void; buf:^void; num:integer):integer;
+extern SSL_read(ssl:^void; buf:^void; num:integer):integer;
+extern SSL_shutdown(ssl:^void):integer;
+extern SSL_free(ssl:^void):void;
+extern SSL_CTX_free(ssl:^void):void;
+
+function main(argc:integer; argv:^^char):integer;
+var
+    s, len, size, thissize:integer;
+    ssl, ctx:^void;
+    host:^hostent;
+    addr:sockaddr_in;
+    buf:array[0..1023] of char;
+    p:^char;
+begin
+    s := socket(AF_INET, SOCK_STREAM, IPPROTO_TCP);
+    memset(@addr, 0, 16);
+    addr.sin_family := AF_INET;
+    addr.sin_port := htons(443);
+    host := gethostbyname(argv[1]);
+    p := host^.h_addr_list[0];
+    memcpy(@addr.sin_addr, p, 4);
+    connect(s, @addr, 16);
+    ctx := SSL_CTX_new(TLS_method());
+    ssl := SSL_new(ctx);
+    SSL_set_fd(ssl, s);
+    SSL_connect(ssl);
+    len := sprintf(@buf, 'GET / HTTP/1.1\r\nHost: %s\r\nConnection: close\r\n\r\n', argv[1]);
+    size := 0;
+    while len>0 do begin
+        thissize := SSL_write(ssl, @buf[size], len - size);
+        len := len - thissize;
+        size := size + thissize;
+    end;
+    while true do begin
+        size := SSL_read(ssl, @buf, 1023);
+        if size<=0 then break;
+        buf[size] := '\0';
+        printf('%s', @buf);
+    end;
+    SSL_shutdown(ssl);
+    SSL_free(ssl);
+    SSL_CTX_free(ctx);
+    main := 0;
+end;
+