#!/usr/bin/env fun

/*
 * This file is part of the Fun programming language.
 * https://fun-lang.xyz/
 *
 * Copyright 2025 Johannes Findeisen <you@hanez.org>
 * Licensed under the terms of the Apache-2.0 license.
 * https://opensource.org/license/apache-2-0
 *
 * Added: 2025-11-25
 */

/*
 * Demonstrates curl_post sending form data and printing response.
 */

url = "https://httpbin.org/post"
data = "name=Fun&lang=fun"
resp = curl_post(url, data)
print("Response: " + resp)

// If JSON support is enabled, parse it
obj = json_parse(resp)
if obj != nil
  print("Content-Type: " + to_string(obj["headers"]["Content-Type"]))

if obj != nil
  print("Host: " + to_string(obj["headers"]["Host"]))

if obj != nil
  print("Origin: " + to_string(obj["origin"]))

// Possible output:
// Response: {
//   "args": {},
//   "data": "",
//   "files": {},
//   "form": {
//     "lang": "fun",
//     "name": "Fun"
//   },
//   "headers": {
//     "Accept": "*/*",
//     "Content-Length": "17",
//     "Content-Type": "application/x-www-form-urlencoded",
//     "Host": "httpbin.org",
//     "X-Amzn-Trace-Id": "Root=1-6944834b-74f499e251c322713e7dd9a8"
//   },
//   "json": nil,
//   "origin": "5.252.226.107",
//   "url": "https://httpbin.org/post"
// }
//
// Content-Type: application/x-www-form-urlencoded
// Host: httpbin.org
// Origin: 5.252.226.107