اچ تی تی پی net/http

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.مسیریاب
واردسازی کدگذاری.جیسون
واردسازی کدگذاری.خطای کدگذاری
واردسازی تبدیل

ناپایا کتاب‌ها := وکتور {} برگردان وکتور<کتاب>

ساختار کتاب:
    @جیسون "id"
    همگانی شناسه: صحیح = ۰
    @جیسون "title"
    همگانی عنوان: رشته = ""
پایان

تابع فهرست(ز: صحیح۶۴):
    اچ تی تی پی.جیسون(ز، جیسون.سریال سازی(کتاب‌ها))
پایان

تابع نمایش(ز: صحیح۶۴):
    شماره := تبدیل.رشته به عدد(اچ تی تی پی.پارامتر(ز، "id"))
    هر ک در کتاب‌ها:
        اگر ک.شناسه برابر شماره:
            اچ تی تی پی.جیسون(ز، جیسون.سریال سازی(ک))
            برگشت
        پایان
    پایان
    اچ تی تی پی.تنظیم وضعیت(ز، ۴۰۴)
    اچ تی تی پی.جیسون(ز، `{"error":"چنین کتابی نیست"}`)
پایان

تابع ساختن(ز: صحیح۶۴):
    ناپایا ک := کتاب {}
    ناپایا خ := خطای کدگذاری.بدون خطا()
    اگر وارونه جیسون.واسریال سازی آسان گیر(اچ تی تی پی.بدنه(ز)، ک، خ):
        اچ تی تی پی.تنظیم وضعیت(ز، ۴۰۰)
        اچ تی تی پی.جیسون(ز، "{" + جیسون.عضو("error"، خ.پیام) + "}")
        برگشت
    پایان
    ک.شناسه = کتاب‌ها.طول() + ۱
    کتاب‌ها.بیفزا(ک)
    اچ تی تی پی.تنظیم وضعیت(ز، ۲۰۱)
    اچ تی تی پی.تنظیم سرصفحه(ز، "Location"، "/books/" + ک.شناسه)
    اچ تی تی پی.جیسون(ز، جیسون.سریال سازی(ک))
پایان

تابع ریشه:
    ناپایا م := مسیریاب.مسیریاب جدید()
    مسیریاب.دریافت(م، "/books"، فهرست)
    مسیریاب.دریافت(م، "/books/:id"، نمایش)
    مسیریاب.ارسال(م، "/books"، ساختن)
    ناپایا س := اچ تی تی پی.سرور جدید(۱۹۷۸۱)
    اچ تی تی پی.استفاده(س، م)
    _ := اچ تی تی پی.اجرا در پس زمینه(س)
    پایه := "http://127.0.0.1:19781"
    پ := اچ تی تی پی.ارسال(پایه + "/books"، `{"title": "شازده کوچولو"}`)
    سرچاپ اچ تی تی پی.وضعیت(پ)، اچ تی تی پی.دریافت سرصفحه(پ، "location")، اچ تی تی پی.بدنه(پ)
    _ := اچ تی تی پی.ارسال(پایه + "/books"، `{"title": "مثنوی"}`)
    سرچاپ اچ تی تی پی.بدنه(اچ تی تی پی.دریافت(پایه + "/books"))
    سرچاپ اچ تی تی پی.بدنه(اچ تی تی پی.دریافت(پایه + "/books/2"))
    نبود := اچ تی تی پی.دریافت(پایه + "/books/9")
    سرچاپ اچ تی تی پی.وضعیت(نبود)، اچ تی تی پی.بدنه(نبود)
    بد := اچ تی تی پی.ارسال(پایه + "/books"، `{"title": 7}`)
    سرچاپ اچ تی تی پی.وضعیت(بد)، اچ تی تی پی.بدنه(بد)
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.مسیریاب
واردسازی قالب

ناپایا پیام‌ها := وکتور {} برگردان وکتور<رشته>

تابع تابلو(ز: صحیح۶۴):
    ناپایا صفحه := "<ul>"
    هر پیام در پیام‌ها:
        صفحه = صفحه + "<li>" + قالب.گریز اچ تی ام ال(پیام) + "</li>"
    پایان
    اچ تی تی پی.اچ تی ام ال(ز، صفحه + "</ul>")
پایان

تابع نوشتن(ز: صحیح۶۴):
    نام := اچ تی تی پی.فرم(ز، "name")
    متن := اچ تی تی پی.فرم(ز، "text")
    اگر نام برابر "" یا متن برابر "":
        اچ تی تی پی.تنظیم وضعیت(ز، ۴۰۰)
        اچ تی تی پی.متن(ز، "نام و متن هر دو لازم‌اند")
        برگشت
    پایان
    پیام‌ها.بیفزا(نام + ": " + متن)
    اچ تی تی پی.تغییرمسیر(ز، "/board")
پایان

تابع جستجو(ز: صحیح۶۴):
    واژه := اچ تی تی پی.پرسمان(ز، "q")
    ناپایا تعداد := ۰
    هر پیام در پیام‌ها:
        اگر پیام.بیاب(واژه) بزرگتربرابر ۰:
            تعداد += ۱
        پایان
    پایان
    اچ تی تی پی.متن(ز، "«" + واژه + "» در " + تعداد + " پیام پیدا شد")
پایان

تابع ریشه:
    ناپایا م := مسیریاب.مسیریاب جدید()
    مسیریاب.دریافت(م، "/board"، تابلو)
    مسیریاب.ارسال(م، "/board"، نوشتن)
    مسیریاب.دریافت(م، "/search"، جستجو)
    ناپایا س := اچ تی تی پی.سرور جدید(۱۹۷۸۲)
    اچ تی تی پی.استفاده(س، م)
    _ := اچ تی تی پی.اجرا در پس زمینه(س)
    پایه := "http://127.0.0.1:19782"
    ناپایا فرم := اچ تی تی پی.سرصفحه جدید()
    فرم.درج("name"، "سارا")
    فرم.درج("text"، "ساعت ۵ می‌بینمت و چای & شیرینی بیاور")
    ناپایا سر := اچ تی تی پی.سرصفحه جدید()
    سر.درج("Content-Type"، "application/x-www-form-urlencoded")
    پ := اچ تی تی پی.ارسال با(پایه + "/board"، اچ تی تی پی.کدگذاری فرم(فرم)، سر)
    سرچاپ اچ تی تی پی.وضعیت(پ)، اچ تی تی پی.دریافت سرصفحه(پ، "location")
    ناقص := اچ تی تی پی.ارسال با(پایه + "/board"، "name=Reza"، سر)
    سرچاپ اچ تی تی پی.وضعیت(ناقص)، اچ تی تی پی.بدنه(ناقص)
    سرچاپ اچ تی تی پی.بدنه(اچ تی تی پی.دریافت(پایه + "/board"))
    ناپایا پرسش := اچ تی تی پی.سرصفحه جدید()
    پرسش.درج("q"، "چای")
    سرچاپ اچ تی تی پی.بدنه(اچ تی تی پی.دریافت(اچ تی تی پی.با پرسمان(پایه + "/search"، پرسش)))
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.مسیریاب

تابع وارد شده(ز: صحیح۶۴): منطقی:
    اگر اچ تی تی پی.سرصفحه(ز، "Authorization") برابر "Bearer s3cret":
        برگشت درست
    پایان
    اچ تی تی پی.تنظیم وضعیت(ز، ۴۰۱)
    اچ تی تی پی.تنظیم سرصفحه(ز، "WWW-Authenticate"، "Bearer")
    اچ تی تی پی.جیسون(ز، `{"error":"اول وارد شوید"}`)
    برگشت نادرست
پایان

تابع سلامت(ز: صحیح۶۴):
    اچ تی تی پی.متن(ز، "ok")
پایان

تابع نمایه(ز: صحیح۶۴):
    اگر وارونه وارد شده(ز): برگشت پایان
    اچ تی تی پی.جیسون(ز، `{"user":"maryam"}`)
پایان

تابع پاک کردن(ز: صحیح۶۴):
    اگر وارونه وارد شده(ز): برگشت پایان
    اچ تی تی پی.تنظیم وضعیت(ز، ۲۰۴)
    اچ تی تی پی.متن(ز، "")
پایان

تابع ریشه:
    ناپایا م := مسیریاب.مسیریاب جدید()
    مسیریاب.دریافت(م، "/health"، سلامت)
    مسیریاب.گروه(م، "/api/v1"، "GET"، "/profile"، نمایه)
    مسیریاب.گروه(م، "/api/v1"، "DELETE"، "/posts/:id"، پاک کردن)
    ناپایا س := اچ تی تی پی.سرور جدید(۱۹۷۸۳)
    اچ تی تی پی.استفاده(س، م)
    _ := اچ تی تی پی.اجرا در پس زمینه(س)
    پایه := "http://127.0.0.1:19783"
    سرچاپ اچ تی تی پی.بدنه(اچ تی تی پی.دریافت(پایه + "/health"))
    پ := اچ تی تی پی.دریافت(پایه + "/api/v1/profile")
    سرچاپ اچ تی تی پی.وضعیت(پ)، اچ تی تی پی.دریافت سرصفحه(پ، "www-authenticate")، اچ تی تی پی.بدنه(پ)
    ناپایا مجوز := اچ تی تی پی.سرصفحه جدید()
    مجوز.درج("Authorization"، "Bearer s3cret")
    سرچاپ اچ تی تی پی.بدنه(اچ تی تی پی.دریافت با(پایه + "/api/v1/profile"، مجوز))
    سرچاپ اچ تی تی پی.وضعیت(اچ تی تی پی.حذف با(پایه + "/api/v1/posts/3"، مجوز))
    سرچاپ اچ تی تی پی.وضعیت(اچ تی تی پی.دریافت(پایه + "/profile"))
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.مسیریاب
واردسازی سیستم عامل

تابع ریشه:
    _ := سیستم عامل.ساخت پوشه ها("public/css")
    _ := سیستم عامل.نوشتن پرونده("public/index.html"، "<h1>خوش آمدید</h1>")
    _ := سیستم عامل.نوشتن پرونده("public/css/site.css"، "body { margin: 0 }")
    ناپایا م := مسیریاب.مسیریاب جدید()
    مسیریاب.ایستا(م، "/site"، "public")
    ناپایا س := اچ تی تی پی.سرور جدید(۱۹۷۸۴)
    اچ تی تی پی.پنهان سازی توکن(س)
    اچ تی تی پی.استفاده(س، م)
    _ := اچ تی تی پی.اجرا در پس زمینه(س)
    پایه := "http://127.0.0.1:19784"
    صفحه := اچ تی تی پی.دریافت(پایه + "/site/index.html")
    سرچاپ اچ تی تی پی.وضعیت(صفحه)، اچ تی تی پی.دریافت سرصفحه(صفحه، "content-type")، اچ تی تی پی.بدنه(صفحه)
    سبک := اچ تی تی پی.دریافت(پایه + "/site/css/site.css")
    سرچاپ اچ تی تی پی.دریافت سرصفحه(سبک، "content-type")، اچ تی تی پی.بدنه(سبک)
    سرچاپ اچ تی تی پی.وضعیت(اچ تی تی پی.دریافت(پایه + "/site/missing.png"))
    سرچاپ اچ تی تی پی.وضعیت(اچ تی تی پی.دریافت(پایه + "/site/../secret.txt"))
    سرچاپ اچ تی تی پی.دریافت سرصفحه(صفحه، "server")
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.مسیریاب
واردسازی سیستم عامل
واردسازی تبدیل

تابع خانه(ز: صحیح۶۴):
    اچ تی تی پی.اچ تی ام ال(ز، "<h1>سلام</h1>")
پایان

تابع سلامت(ز: صحیح۶۴):
    اچ تی تی پی.جیسون(ز، `{"status":"ok"}`)
پایان

تابع ریشه:
    ناپایا درگاه := ۸۰۸۰
    اگر سیستم عامل.متغیر محیطی("PORT") نابرابر "":
        درگاه = تبدیل.رشته به عدد(سیستم عامل.متغیر محیطی("PORT"))
    پایان
    اچ تی تی پی.بیشینه بایت بدنه(۱۰۴۸۵۷۶)
    اچ تی تی پی.تنظیم بیکاری زنده نگه داشتن(۵۰۰۰)
    ناپایا م := مسیریاب.مسیریاب جدید()
    مسیریاب.دریافت(م، "/"، خانه)
    مسیریاب.دریافت(م، "/health"، سلامت)
    مسیریاب.ایستا(م، "/assets"، "public")
    ناپایا س := اچ تی تی پی.سرور جدید(درگاه)
    اچ تی تی پی.تنظیم میزبان(س، "0.0.0.0")
    اچ تی تی پی.پنهان سازی توکن(س)
    اچ تی تی پی.فعال سازی گزارش دسترسی(س)
    اچ تی تی پی.استفاده(س، م)
    سرچاپ "گوش دادن روی درگاه " + درگاه
    اچ تی تی پی.اجرا(س)
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.مسیریاب
واردسازی کدگذاری.جیسون

تابع ساخت تیکت(ز: صحیح۶۴):
    نوع محتوا := اچ تی تی پی.سرصفحه(ز، "Content-Type")
    اگر نوع محتوا != "application/json":
        اچ تی تی پی.تنظیم وضعیت(ز، ۴۱۵)
        اچ تی تی پی.جیسون(ز، "{\"error\":\"expected JSON, got " + نوع محتوا + "\"}")
        برگشت
    پایان
    عنوان := جیسون.دریافت(اچ تی تی پی.بدنه(ز)، "title")
    اچ تی تی پی.تنظیم وضعیت(ز، ۲۰۱)
    اچ تی تی پی.جیسون(ز، "{\"id\":31,\"title\":" + جیسون.رشته جیسون(عنوان) + "}")
پایان

تابع تیکت‌های قدیمی(ز: صحیح۶۴): اچ تی تی پی.تغییرمسیر(ز، "/v2/tickets") پایان

تابع ریشه:
    ناپایا م := مسیریاب.مسیریاب جدید()
    مسیریاب.ارسال(م، "/tickets"، ساخت تیکت)
    مسیریاب.دریافت(م، "/tickets"، تیکت‌های قدیمی)
    ناپایا س := اچ تی تی پی.سرور جدید(۱۸۶۳۲)
    اچ تی تی پی.تنظیم میزبان(س، "127.0.0.1")
    اچ تی تی پی.استفاده(س، م)
    اگر وارونه اچ تی تی پی.اجرا در پس زمینه(س):
        سرچاپ "درگاه ۱۸۶۳۲ گرفته است"
        برگشت ۱
    پایان
    پایه := "http://127.0.0.1:18632"
    بدنه := `{"title": "کاغذ چاپگر تمام شده"}`

    ساده := اچ تی تی پی.ارسال(پایه + "/tickets"، بدنه)
    سرچاپ "ارسال:"، اچ تی تی پی.وضعیت(ساده)، اچ تی تی پی.بدنه(ساده)

    ناپایا سرها := اچ تی تی پی.سرصفحه جدید()
    سرها.درج("Content-Type"، "application/json")
    ساخته := اچ تی تی پی.ارسال با(پایه + "/tickets"، بدنه، سرها)
    سرچاپ "ارسال با:"، اچ تی تی پی.وضعیت(ساخته)، اچ تی تی پی.موفق(ساخته)، "شناسه"، جیسون.دریافت عدد(اچ تی تی پی.بدنه(ساخته)، "id")

    جابه‌جا := اچ تی تی پی.دریافت(پایه + "/tickets")
    سرچاپ "دریافت:"، اچ تی تی پی.وضعیت(جابه‌جا)، "Location:"، اچ تی تی پی.دریافت سرصفحه(جابه‌جا، "location")

    خاموش := اچ تی تی پی.دریافت("http://127.0.0.1:1/tickets")
    سرچاپ "سرور خاموش:"، اچ تی تی پی.وضعیت(خاموش)، اچ تی تی پی.موفق(خاموش)، اچ تی تی پی.خطا(خاموش)
    برگشت ۰
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.تی سی پی
واردسازی کدگذاری.جیسون

ناپایا سرور := تی سی پی.سرور {}

تابع خواندن درخواست(ا: تی سی پی.اتصال شبکه): رشته:
    ناپایا رسیده := تی سی پی.خواندن(ا، ۴۰۹۶)
    تا رسیده.بیاب("\r\n\r\n") کوچکتر ۰:
        رسیده += تی سی پی.خواندن(ا، ۴۰۹۶)
    پایان
    انتهای سر := رسیده.بیاب("\r\n\r\n") + ۴
    اندازه := اچ تی تی پی.مقدار سرصفحه(رسیده، "content-length").به صحیح()
    تا رسیده.طول() کوچکتر انتهای سر + اندازه:
        رسیده += تی سی پی.خواندن(ا، ۴۰۹۶)
    پایان
    برگشت رسیده
پایان

تابع رابط برنامه():
    ا := تی سی پی.پذیرش(سرور)
    درخواست := خواندن درخواست(ا)
    جا := درخواست.بیاب("\r\n\r\n") + ۴
    بدنه := درخواست.زیررشته(جا، درخواست.طول() - جا)
    نام := جیسون.دریافت(بدنه، "name")
    مجوز := اچ تی تی پی.مقدار سرصفحه(درخواست، "authorization")
    پاسخ := "{\"id\": 7, \"name\": \"" + نام + "\", \"auth\": \"" + مجوز + "\"}"
    سر := "HTTP/1.1 201 Created\r\nContent-Type: application/json\r\nLocation: /users/7\r\nContent-Length: " + پاسخ.طول() + "\r\nConnection: close\r\n\r\n"
    _ := تی سی پی.نوشتن(ا، سر + پاسخ)
    تی سی پی.بستن(ا)
پایان

تابع ریشه:
    سرور = تی سی پی.پیوند(۰)
    ک := نخ‌ساز(رابط برنامه)
    نشانی := اچ تی تی پی.تجزیه نقطه پایانی("http://127.0.0.1:" + تی سی پی.درگاه(سرور))
    بدنه := `{"name": "سارا", "role": "editor"}`
    ناپایا سر := "POST /users HTTP/1.1\r\n"
    سر += "Host: 127.0.0.1\r\n"
    سر += "Authorization: Bearer abc123\r\n"
    سر += "Content-Type: application/json\r\n"
    سر += "Content-Length: " + بدنه.طول() + "\r\n"
    سر += "Connection: close\r\n\r\n"
    ناپایا پ := اچ تی تی پی.ارسال خام با مهلت(نشانی، سر، بدنه برگردان تهی*، بدنه.طول()، ۵۰۰۰)
    پاسخ‌متن := اچ تی تی پی.متن پاسخ خام(پ)
    اچ تی تی پی.آزادسازی پاسخ خام(پ)
    نخ‌پیوند(ک)
    تی سی پی.بستن سرور(سرور)
    سرچاپ "وضعیت:"، پ.وضعیت، پ.موفق
    سرچاپ "نشانی تازه:"، اچ تی تی پی.مقدار سرصفحه(پ.سرصفحه، "Location")
    سرچاپ "شناسه:"، جیسون.دریافت عدد(پاسخ‌متن، "id")
    سرچاپ "بدنه:"، پاسخ‌متن
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.تی سی پی

ناپایا سرور := تی سی پی.سرور {}

تابع رابط برنامه():
    تکرار ۲:
        ا := تی سی پی.پذیرش(سرور)
        درخواست := تی سی پی.خواندن(ا، ۴۰۹۶)
        اگر درخواست.بیاب("GET /missing ") برابر ۰:
            تی سی پی.نوشتن اچ تی تی پی(ا، "404 Not Found"، "application/json; charset=utf-8"، `{"error": "چنین صفحه‌ای نیست"}`)
        وگرنه:
            تی سی پی.نوشتن اچ تی تی پی(ا، "503 Service Unavailable"، "text/plain; charset=utf-8"، "بعدا دوباره امتحان کنید")
        پایان
        تی سی پی.بستن(ا)
    پایان
پایان

تابع بگیر از(نشانی: اچ تی تی پی.نقطه پایانی، مسیر: رشته):
    سر := "GET " + مسیر + " HTTP/1.1\r\nHost: " + نشانی.میزبان + "\r\nConnection: close\r\n\r\n"
    ناپایا پ := اچ تی تی پی.ارسال خام با مهلت(نشانی، سر، پوچ، ۰، ۵۰۰۰)
    بدنه := اچ تی تی پی.متن پاسخ خام(پ)
    اگر پ.موفق:
        سرچاپ مسیر، "کار کرد:"، بدنه
    وگرنه پ.وضعیت بزرگتر ۰:
        سرچاپ مسیر، "پاسخ"، پ.وضعیت، "داد با"، بدنه
    وگرنه:
        سرچاپ مسیر، "شکست خورد:"، پ.خطا
    پایان
    اچ تی تی پی.آزادسازی پاسخ خام(پ)
پایان

تابع ریشه:
    سرور = تی سی پی.پیوند(۰)
    نخ := نخ‌ساز(رابط برنامه)
    نشانی := اچ تی تی پی.تجزیه نقطه پایانی("http://127.0.0.1:" + تی سی پی.درگاه(سرور))
    بگیر از(نشانی، "/missing")
    بگیر از(نشانی، "/busy")
    نخ‌پیوند(نخ)
    تی سی پی.بستن سرور(سرور)
    بگیر از(اچ تی تی پی.تجزیه نقطه پایانی("http://127.0.0.1:1")، "/nobody-listens")
    نشانی بد := اچ تی تی پی.تجزیه نقطه پایانی("ftp://files.example.com")
    سرچاپ "نشانی ftp درست است:"، نشانی بد.موفق
    بگیر از(نشانی بد، "/")
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.تی سی پی
واردسازی کدگذاری.جیسون

ناپایا سرور := تی سی پی.سرور {}

ساختار رابط:
    همگانی نشانی: اچ تی تی پی.نقطه پایانی = اچ تی تی پی.نقطه پایانی {}
    همگانی توکن: رشته = ""

    همگانی تابع خواندن مسیر(مسیر: رشته): رشته:
        ناپایا سر := "GET " + مسیر + " HTTP/1.1\r\n"
        سر += "Host: " + این.نشانی.میزبان + "\r\n"
        سر += "Authorization: Bearer " + این.توکن + "\r\n"
        سر += "Accept: application/json\r\n"
        سر += "Connection: close\r\n\r\n"
        ناپایا خام := اچ تی تی پی.ارسال خام با مهلت(این.نشانی، سر، پوچ، ۰، ۵۰۰۰)
        دیرکن اچ تی تی پی.آزادسازی پاسخ خام(خام)
        برگشت اچ تی تی پی.متن پاسخ خام(خام)
    پایان
پایان

تابع پشتیبان():
    تکرار ۲:
        ا := تی سی پی.پذیرش(سرور)
        درخواست := تی سی پی.خواندن(ا، ۴۰۹۶)
        اگر درخواست.بیاب("GET /users/7 ") برابر ۰:
            تی سی پی.نوشتن اچ تی تی پی(ا، "200 OK"، "application/json; charset=utf-8"، `{"id": 7, "name": "سارا", "city": "شیراز"}`)
        وگرنه:
            تی سی پی.نوشتن اچ تی تی پی(ا، "200 OK"، "application/json; charset=utf-8"، `[{"item": "خودکار", "qty": 3}, {"item": "دفتر", "qty": 1}]`)
        پایان
        تی سی پی.بستن(ا)
    پایان
پایان

تابع ریشه:
    سرور = تی سی پی.پیوند(۰)
    نخ := نخ‌ساز(پشتیبان)
    رابط برنامه := رابط { نشانی = اچ تی تی پی.تجزیه نقطه پایانی("http://127.0.0.1:" + تی سی پی.درگاه(سرور))، توکن = "abc123" }
    کاربر := رابط برنامه.خواندن مسیر("/users/7")
    سرچاپ جیسون.دریافت(کاربر، "name")، "از"، جیسون.دریافت(کاربر، "city")
    سفارش‌ها := رابط برنامه.خواندن مسیر("/users/7/orders")
    هر سفارش در جیسون.اقلام(سفارش‌ها):
        سرچاپ " "، جیسون.دریافت عدد(سفارش، "qty")، "عدد"، جیسون.دریافت(سفارش، "item")
    پایان
    نخ‌پیوند(نخ)
    تی سی پی.بستن سرور(سرور)
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.تی سی پی

ناپایا سرور := تی سی پی.سرور {}

تابع خبرنامه():
    تکرار ۲ در ی:
        ا := تی سی پی.پذیرش(سرور)
        _ := تی سی پی.خواندن(ا، ۴۰۹۶)
        اگر ی کوچکتر ۱:
            _ := تی سی پی.نوشتن(ا، "HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\nTransfer-Encoding: chunked\r\n\r\n6\r\nnews: \r\n9\r\nall quiet\r\n0\r\n\r\n")
        وگرنه:
            _ := تی سی پی.خواندن(ا، ۴۰۹۶)
        پایان
        تی سی پی.بستن(ا)
    پایان
پایان

تابع ریشه:
    سرور = تی سی پی.پیوند(۰)
    نخ := نخ‌ساز(خبرنامه)
    نشانی := اچ تی تی پی.تجزیه نقطه پایانی("http://127.0.0.1:" + تی سی پی.درگاه(سرور))
    سر := "GET /feed HTTP/1.1\r\nHost: 127.0.0.1\r\nConnection: close\r\n\r\n"

    ناپایا خام := اچ تی تی پی.ارسال خام با مهلت(نشانی، سر، پوچ، ۰، ۲۰۰۰)
    سرچاپ "بدنه:"، اچ تی تی پی.متن پاسخ خام(خام)
    اچ تی تی پی.آزادسازی پاسخ خام(خام)

    ناپایا کند := اچ تی تی پی.ارسال خام با مهلت(نشانی، سر، پوچ، ۰، ۳۰۰)
    سرچاپ "سرور خاموش:"، کند.موفق، کند.وضعیت، کند.خطا
    اچ تی تی پی.آزادسازی پاسخ خام(کند)
    نخ‌پیوند(نخ)
    تی سی پی.بستن سرور(سرور)
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.تی سی پی
واردسازی حافظه
واردسازی تبدیل

ناپایا سرور := تی سی پی.سرور {}

تابع پرونده‌ها():
    ا := تی سی پی.پذیرش(سرور)
    _ := تی سی پی.خواندن(ا، ۴۰۹۶)
    تصویر := [۱۳۷، ۸۰، ۷۸، ۷۱، ۱۳، ۱۰، ۲۶، ۱۰، ۰، ۰، ۰، ۱۳]
    بافر := حافظه.تخصیص(۱۲ برگردان طبیعی۶۴) برگردان طبیعی۸*
    تکرار ۱۲ در ی:
        بافر[ی] = تصویر[ی] برگردان طبیعی۸
    پایان
    _ := تی سی پی.نوشتن(ا، "HTTP/1.1 200 OK\r\nContent-Type: image/png\r\nContent-Length: 12\r\nConnection: close\r\n\r\n")
    _ := تی سی پی.نوشتن بایت(ا، بافر برگردان تهی*، ۱۲)
    حافظه.آزادسازی(بافر برگردان تهی*)
    تی سی پی.بستن(ا)
پایان

تابع ریشه:
    سرور = تی سی پی.پیوند(۰)
    نخ := نخ‌ساز(پرونده‌ها)
    نشانی := اچ تی تی پی.تجزیه نقطه پایانی("http://127.0.0.1:" + تی سی پی.درگاه(سرور))
    سر := "GET /logo.png HTTP/1.1\r\nHost: 127.0.0.1\r\nConnection: close\r\n\r\n"
    ناپایا پ := اچ تی تی پی.ارسال خام با مهلت(نشانی، سر، پوچ، ۰، ۵۰۰۰)
    نخ‌پیوند(نخ)
    تی سی پی.بستن سرور(سرور)
    سرچاپ پ.موفق، پ.وضعیت، اچ تی تی پی.مقدار سرصفحه(پ.سرصفحه، "content-type")
    سرچاپ "بایت‌های رسیده:"، پ.اندازه
    بایت‌ها := پ.داده برگردان طبیعی۸*
    ناپایا شانزدهی := ""
    تکرار پ.اندازه در ی:
        اگر ی بزرگتر ۰: شانزدهی += " " پایان
        اگر بایت‌ها[ی] کوچکتر ۱۶: شانزدهی += "0" پایان
        شانزدهی += تبدیل.قالب شانزده(بایت‌ها[ی] برگردان طبیعی۶۴)
    پایان
    سرچاپ شانزدهی
    سرچاپ "PNG است:"، پ.اندازه بزرگتربرابر ۴ و بایت‌ها[۱] برگردان صحیح برابر ۸۰ و بایت‌ها[۲] برگردان صحیح برابر ۷۸ و بایت‌ها[۳] برگردان صحیح برابر ۷۱
    سرچاپ "متن پاسخ خام فقط"، اچ تی تی پی.متن پاسخ خام(پ).طول()، "بایت نگه می‌دارد"
    اچ تی تی پی.آزادسازی پاسخ خام(پ)
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی کدگذاری.جیسون

تابع ریشه:
    نشانی := اچ تی تی پی.تجزیه نقطه پایانی("https://api.github.com")
    سرچاپ نشانی.میزبان، نشانی.درگاه، نشانی.امن
    ناپایا سر := "GET /repos/SalamLang/Salam HTTP/1.1\r\n"
    سر += "Host: api.github.com\r\n"
    سر += "User-Agent: salam-example\r\n"
    سر += "Accept: application/vnd.github+json\r\n"
    سر += "Connection: close\r\n\r\n"
    ناپایا پ := اچ تی تی پی.ارسال خام با مهلت(نشانی، سر، پوچ، ۰، ۱۰۰۰۰)
    دیرکن اچ تی تی پی.آزادسازی پاسخ خام(پ)
    بدنه := اچ تی تی پی.متن پاسخ خام(پ)
    اگر پ.وضعیت برابر ۰:
        سرچاپ "درخواست شکست خورد:"، پ.خطا
        برگشت ۱
    پایان
    سرچاپ "وضعیت:"، پ.وضعیت
    سرچاپ "سهمیه‌ی باقی‌مانده:"، اچ تی تی پی.مقدار سرصفحه(پ.سرصفحه، "x-ratelimit-remaining")
    اگر پ.موفق:
        سرچاپ جیسون.دریافت(بدنه، "full_name")، "به زبان"، جیسون.دریافت(بدنه، "language")، "نوشته شده است"
    پایان
    برگشت ۰
پایان

واردسازی شبکه.اچ تی تی پی
واردسازی شبکه.تی سی پی
واردسازی همگام سازی

ناپایا سرور := تی سی پی.سرور {}

تابع پشتیبان():
    تکرار ۶:
        اتصال := تی سی پی.پذیرش(سرور)
        درخواست := تی سی پی.خواندن(اتصال، ۴۰۹۶)
        اگر درخواست.بیاب("GET /old ") برابر ۰:
            _ := تی سی پی.نوشتن(اتصال، "HTTP/1.1 302 Found\r\nLocation: /new\r\nContent-Length: 0\r\nConnection: close\r\n\r\n")
        وگرنه درخواست.بیاب("GET /silent ") برابر ۰:
            همگام سازی.خواب میلی ثانیه(۷۰۰)
        وگرنه درخواست.بیاب("GET /big ") برابر ۰:
            تی سی پی.نوشتن اچ تی تی پی(اتصال، "200 OK"، "text/plain"، "0123456789")
        وگرنه:
            تی سی پی.نوشتن اچ تی تی پی(اتصال، "200 OK"، "text/plain"، "landed")
        پایان
        تی سی پی.بستن(اتصال)
    پایان
پایان

تابع ریشه:
    سرور = تی سی پی.پیوند(۰)
    نخ := نخ‌ساز(پشتیبان)
    پایه := "http://127.0.0.1:" + تی سی پی.درگاه(سرور)
    ناپایا کارخواه := اچ تی تی پی.کارخواه جدید()
    کارخواه.تنظیم سقف تغییر مسیر(۳)
    کارخواه.تنظیم مهلت(۵۰۰۰)
    کارخواه.تنظیم مهلت بیکاری(۲۰۰۰)
    کارخواه.تنظیم سقف بدنه(۱۰۰۰)
    پاسخ := کارخواه.دریافت(پایه + "/old")
    سرچاپ پاسخ.وضعیت، اچ تی تی پی.بدنه(پاسخ)، پاسخ.نشانی.بیاب("/new") بزرگتر ۰
    ناپایا تنگ := اچ تی تی پی.گزینه های درخواست {}
    تنگ.حداکثر‌بدنه = ۵
    بزرگ := اچ تی تی پی.انجام درخواست("GET"، پایه + "/big"، اچ تی تی پی.سرصفحه جدید()، ""، تنگ)
    سرچاپ بزرگ.وضعیت، بزرگ.خطا
    ناپایا سریع := اچ تی تی پی.گزینه های درخواست {}
    سریع.میلی‌ثانیه‌زمان‌انتظار = ۲۰۰
    ساکت := اچ تی تی پی.انجام درخواست("GET"، پایه + "/silent"، اچ تی تی پی.سرصفحه جدید()، ""، سریع)
    سرچاپ ساکت.وضعیت، ساکت.خطا
    خام := کارخواه.درخواست بایتی("GET"، پایه + "/big"، ""، "")
    سرچاپ خام.وضعیت، خام.بدنه.طول
    سرچاپ کارخواه.درخواست خام("GET"، پایه + "/new"، "X-Id: 1\r\n"، "").وضعیت
    کارخواه.آزادسازی()
    نخ‌پیوند(نخ)
    تی سی پی.بستن سرور(سرور)
پایان