فحص الأسماء المكافئة والهوية والبايتات النصية

استورد أساسي::رايليب.
استورد أساسي::ويب.

غير_آمن خارجي مطلق(رقم: ص32) -> ص32 = سي("libc.so.6", "abs").

// أسماء المستخدم وحقول السجل عربية. تبقى المسارات والقيم الحرفية كما كتبت.
سجل أصل { اسم_الملف: نص, محفوظ_حرفيا: نص }

دالة ابدأ_الرئيسية() -> ص64 {
    إذا غير_آمن مطلق(-7) لا يطابق 7 { أرجع 11. }
    دع الأصل = أصل { اسم_الملف: "docs/examples/assets/raylib-sprites.png", محفوظ_حرفيا: "مسار/é.png\صA" }.
    إذا الأصل::اسم_الملف لا يطابق "docs/examples/assets/raylib-sprites.png" { أرجع 1. }
    إذا الأصل::محفوظ_حرفيا لا يطابق "مسار/e\ي{0301}.png\صA" { أرجع 2. }
    دع أ: رايليب::متجه2 = رايليب::متجه2 { س: 1.25, ص: 2.5 }.
    دع ب: رايليب::متجه2 = رايليب::متجه2 { س: أ::س, ص: أ::ص }.
    إذا ب::س لا يطابق 1.25 أو ب::ص لا يطابق 2.5 { أرجع 3. }
    دع مفتاح: رايليب::مفتاح = رايليب::مفتاح_مسافة.
    إذا مفتاح لا يطابق رايليب::مفتاح_مسافة { أرجع 4. }
    دع أعلام = رايليب::علم_نافذة_قابلة_للتحجيم | رايليب::علم_تلميح_تزامن_رأسي.
    إذا أعلام لا يطابق رايليب::علم_نافذة_قابلة_للتحجيم | رايليب::علم_تلميح_تزامن_رأسي { أرجع 5. }
    دع ميزانية: ويب::ميزانية_تقدم = ويب::ميزانية_التقدم().
    إذا ميزانية::حد_التعليمات لا يطابق 4096 { أرجع 6. }
    دع خط = رايليب::الخط_الافتراضي().
    إذا لا خط::نجاح { اطبع(خط::الخطأ::الرسالة). أرجع 7. }
    دع إنجليزي = رايليب::قس_النص_موسعا(خط::قيمة, "سلام ASPL 123", 32.0, 0.0).
    دع عربي = رايليب::قس_النص_موسعا(خط::قيمة, "سلام ASPL 123", 32.0, 0.0).
    إذا لا إنجليزي::نجاح أو لا عربي::نجاح { أرجع 8. }
    إذا إنجليزي::قيمة::س لا يطابق عربي::قيمة::س { أرجع 9. }
    دع غير_صالح = رايليب::قس_النص("bad\تtext", 32).
    إذا غير_صالح::نجاح أو غير_صالح::الخطأ::الرمز لا يطابق "raylib.invalid_text" { أرجع 10. }
    اطبع(غير_صالح::الخطأ::الرسالة). اطبع("\س").
    اطبع(الأصل::اسم_الملف). اطبع("\س").
    اطبع(الأصل::محفوظ_حرفيا). اطبع("\سidentity and literals complete\س").
    أرجع 0.
}

import core::raylib;
import core::http;

unsafe foreign absolute(number: i32) -> i32 = c("libc.so.6", "abs");

// User identifiers and record fields keep their own names in all three files.
record Asset { filename: string, untouched: string }

fn start_main() -> i64 {
    if unsafe absolute(-7) not matches 7 { return 11; }
    let asset = Asset { filename: "docs/examples/assets/raylib-sprites.png", untouched: "مسار/é.png\0A" };
    if asset::filename not matches "docs/examples/assets/raylib-sprites.png" { return 1; }
    if asset::untouched not matches "مسار/e\u{0301}.png\0A" { return 2; }
    let a: raylib::Vector2 = raylib::Vector2 { x: 1.25, y: 2.5 };
    let b: raylib::Vector2 = raylib::Vector2 { x: a::x, y: a::y };
    if b::x not matches 1.25 or b::y not matches 2.5 { return 3; }
    let key: raylib::Key = raylib::KEY_SPACE;
    if key not matches raylib::KEY_SPACE { return 4; }
    let flags = raylib::FLAG_WINDOW_RESIZABLE | raylib::FLAG_VSYNC_HINT;
    if flags not matches raylib::FLAG_WINDOW_RESIZABLE | raylib::FLAG_VSYNC_HINT { return 5; }
    let budget: http::ProgressBudget = http::progress_budget();
    if budget::max_instructions not matches 4096 { return 6; }
    let font = raylib::GetFontDefault();
    if not font::ok { print(font::error::message); return 7; }
    let english = raylib::MeasureTextEx(font::value, "سلام ASPL 123", 32.0, 0.0);
    let arabic = raylib::MeasureTextEx(font::value, "سلام ASPL 123", 32.0, 0.0);
    if not english::ok or not arabic::ok { return 8; }
    if english::value::x not matches arabic::value::x { return 9; }
    let invalid = raylib::MeasureText("bad\ttext", 32);
    if invalid::ok or invalid::error::code not matches "raylib.invalid_text" { return 10; }
    print(invalid::error::message); print("\n");
    print(asset::filename); print("\n");
    print(asset::untouched); print("\nidentity and literals complete\n");
    return 0;
}

import core::raylib;
استورد أساسي::رايليب.
import core::http;
استورد أساسي::ويب.

unsafe foreign absolute(number: i32) -> i32 = c("libc.so.6", "abs");

// User identifiers and record fields keep their own names in all three files.
record Asset { filename: string, untouched: string }

fn start_main() -> i64 {
    if unsafe absolute(-7) not matches 7 { return 11; }
    let asset = Asset { filename: "docs/examples/assets/raylib-sprites.png", untouched: "مسار/é.png\0A" };
    if asset::filename not matches "docs/examples/assets/raylib-sprites.png" { return 1; }
    if asset::untouched not matches "مسار/e\u{0301}.png\0A" { return 2; }
    let a: raylib::Vector2 = رايليب::متجه2 { س: 1.25, ص: 2.5 };
    let b: رايليب::متجه2 = raylib::Vector2 { x: a::س, y: a::y };
    if b::x not matches 1.25 or b::ص not matches 2.5 { return 3; }
    let key: رايليب::مفتاح = raylib::KEY_SPACE;
    if key not matches رايليب::مفتاح_مسافة { return 4; }
    let flags = رايليب::علم_نافذة_قابلة_للتحجيم | raylib::FLAG_VSYNC_HINT;
    if flags not matches raylib::FLAG_WINDOW_RESIZABLE | رايليب::علم_تلميح_تزامن_رأسي { return 5; }
    let budget: ويب::ميزانية_تقدم = http::progress_budget();
    if budget::حد_التعليمات not matches 4096 { return 6; }
    let font = raylib::GetFontDefault();
    if not font::ok { print(font::error::message); return 7; }
    let english = raylib::MeasureTextEx(font::value, "سلام ASPL 123", 32.0, 0.0);
    let arabic = رايليب::قس_النص_موسعا(font::value, "سلام ASPL 123", 32.0, 0.0);
    if not english::ok or not arabic::ok { return 8; }
    if english::value::x not matches arabic::value::س { return 9; }
    let invalid = raylib::MeasureText("bad\ttext", 32);
    if invalid::ok or invalid::error::code not matches "raylib.invalid_text" { return 10; }
    print(invalid::error::message); print("\n");
    print(asset::filename); print("\n");
    print(asset::untouched); print("\nidentity and literals complete\n");
    return 0;
}