test: migrate examples to XXXX-category-name layout + split expected streams

Rename all example tests/companions to the XXXX-category-test-name scheme (per-category 100-blocks: basic 0010, types 0100, ... errors 1000, diagnostics 1100, ffi 1200, ffi-objc 1300, ffi-jni 1400, vectors 1500, platform 1600). Companions and dir/C fixtures move in lockstep with their parent test; #import/#source/#include paths rewritten to match. Expected output now lives in examples/expected/ (a sibling dir of the tests) split into three streams per the new convention: <name>.exit / <name>.stdout / <name>.stderr (+ optional <name>.ir) run_examples.sh rewritten: scans examples/ and issues/ for an expected/<name>.exit marker, captures stdout and stderr separately (no more 2>&1), compares each stream + exit + optional IR snapshot. Behavior validated unchanged: every renamed test reproduces its prior merged output + exit (diffs limited to file paths/basenames embedded in diagnostics + traces, which correctly reflect the new names). Suite: 292 passed, 0 failed. 50-smoke.sx split + issue relocation + docs follow in subsequent commits.
2026-06-01 19:05:15 +03:00
parent e86e41b719
commit 4e942b5373
1231 changed files with 480 additions and 822 deletions
--- a/examples/1602-platform-http-server.sx
+++ b/examples/1602-platform-http-server.sx
@@ -0,0 +1,81 @@
+// HTTP server example (macOS only)
+
+#import "modules/std.sx";
+#import "modules/socket.sx";
+
+// --- Logger ---
+
+Logger :: struct {
+    prefix: string;
+    count: s64;
+}
+
+log :: (logger: *Logger, msg: string) {
+    logger.count += 1;
+    print("[{}] {}\n", logger.prefix, msg);
+}
+
+
+
+main :: () -> s32 {
+    PORT :: 8080;
+
+    fd := socket(AF_INET, SOCK_STREAM, 0);
+    if fd < 0 {
+        print("error: socket()\n");
+        return 1;
+    }
+
+    opt : s32 = 1;
+    setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, @opt, 4);
+
+    addr := SockAddr.{ sin_len = 16, sin_family = 2, sin_port = htons(PORT) };
+
+    if bind(fd, @addr, 16) < 0 {
+        print("error: bind()\n");
+        return 1;
+    }
+
+    if listen(fd, 10) < 0 {
+        print("error: listen()\n");
+        return 1;
+    }
+
+    print("listening on http://localhost:{}\n", PORT);
+
+    arena := Arena.init(context.allocator, 65536);
+    logger := Logger.{ prefix = "http", count = 0 };
+
+    while true {
+        client := accept(fd, null, null);
+        if client < 0 { continue; }
+
+        push Context.{ allocator = xx arena, data = xx @logger } {
+            handle(client);
+        }
+
+        arena.reset();
+        close(client);
+    }
+
+    arena.deinit();
+    close(fd);
+    0;
+}
+
+handle :: (client: s32) {
+    // Read request
+    buf : [4096]u8 = ---;
+    read(client, buf, buf.len);
+
+    body :: "<html><body><h1>Hello from sx!</h1></body></html>";
+    response :: format("HTTP/1.1 200 OK\r
+Content-Type: text/html\r
+Connection: close\r
+Content-Length: {}\r
+\r\n{}", body.len, body);
+
+    write(client, response, response.len);
+    logger : *Logger = xx context.data;
+    log(logger, format("served request #{}", logger.count + 1));
+}