ObjectScript المتقدمة

تقدم ObjectScript مجموعة غنية من أنماط البرمجة الكائنية المتقدمة.

الوراثة والتركيب

Class MyApp.Employee Extends %Persistent {
  Property Name As %String;
  Property Department As MyApp.Department;
  Method GetFullInfo() As %String {
    Return ..Name _ " - " _ ..Department.Name
  }
}

معالجة الأخطاء بشكل صحيح أمر حاسم.

ClassMethod SafeDivide(a, b) {
  Try {
    If b = 0 {
      Throw ##class(%Exception.General).%New("DivByZero")
    }
    Return a / b
  } Catch ex {
    Write "Error: ", ex.DisplayString()
    Return 0
  }
}

إدارة الذاكرة وتحسين الأداء بشكل فعال.

Method ProcessLargeDataset() {
  Set id = ""
  For {
    Set id = $Order(^MyData(id))
    Quit:
    Set data = ^MyData(id)
    Do ..ProcessItem(data)
  }
}

كتابة اختبارات فعالة باستخدام %UnitTest.

Class Test.EmployeeTest Extends %UnitTest.TestCase {
  Method TestCreate() {
    Set emp = ##class(MyApp.Employee).%New()
    Set emp.Name = "أحمد"
    Do $$$AssertStatusOK(emp.%Save())
  }
}

الـ Streams تتيح التعامل مع بيانات كبيرة مثل الملفات والنصوص الطويلة.

// كتابة stream
Set stream = ##class(%Stream.GlobalCharacter).%New()
Do stream.Write("سطر أول")
Do stream.Write("سطر ثاني")
Write "الحجم: ", stream.Size, !

// قراءة stream
Do stream.Rewind()
While 'stream.AtEnd {
  Write stream.Read(100), !
}

// حفظ stream في كائن
Set emp = ##class(MyApp.Employee).%New()
Set emp.Notes = stream
Do emp.%Save()

الـ Globals هي أساس تخزين IRIS. فهمها المتقدم يحسّن الأداء بشكل كبير.

// Global متعددة الأبعاد
Set ^Person(1,"name") = "أحمد"
Set ^Person(1,"age") = 30
Set ^Person(1,"address","city") = "الرياض"

// duyệt بـ $Order
Set id = ""
For {
  Set id = $Order(^Person(id))
  Quit:
  Write ^Person(id,"name"), " - ", ^Person(id,"age"), !
}

// Global temporarily
Kill ^||TempData
Set ^||TempData(1) = "data"
// تُحذف تلقائياً عند انتهاء الجلسة