nsutextbook (1037554), страница 20
Текст из файла (страница 20)
Так как результатом выполнения функции является строка символов, то можно применить оператор косвенности для получения значения:set x="^Univer(""математический"")"for { set x=$Query(@x)Quit:x=""write !,x}89Общность функций $Query и $Order состоит в том, что для получения самого первого индекса на заданном уровне используется пустая строка в позиции данного индекса, апутем задания – 1 (минус 1) в качестве второго аргумента можно «развернуть вспять» исходную последовательность сортировки.7.6.5. Функции $QLength, $QSubscriptФункция $Qlength ($QL) отвечает на вопрос, сколько уровней имеет индексированная переменная. Т.е. если индексированную переменную записать как Name (s1, s2,…,sn), то функция вернет n.
Например:> write $QL("(^Univer(""математический"",104,91232)")3>write $QL("А")0Аргумент функции должен заключаться в кавычки. Для неиндексированной переменной вернет 0. Пустая строка получается, если аргумент не является значением именипеременной, например: write $QL(1).Функция $QSubscript имеет два аргумента:$QS[ubscript] (<namevalue>,<intexpr>)namevalue – исследуемое значение имени, intexpr – число, которое задает какой индекс следует извлечь.Если значение имени имеет форму Name (s1, s2,…, sn), то результат функции$QS(Name (s1, s2,…, sn), m) равен значению m-того индекса, если m<=n. Пример:>write $QS("^Univer(""математический"",104,91232)", 2)1047.6.6. Команда MergeКоманда Merge (сокращенно M) создает полные копии индексированных переменных, независимо от того, являются ли они локальными или глобальными. Синтаксис:Merge <Конечная переменная>=<Исходная переменная >Где <Конечная переменная> и <Исходная переменная> – это имена локальной илиглобальной, индексированной или не индексированной переменной.
Конечная переменнаяможет не существовать на момент начала работы команды. Например:Merge copy=^UniverВ данном примере выполняется полное копирование всей структуры глобальной переменной ^Univer в локальную переменную copy. Узлы copy(i) получают значения^Univer(i).Если требуется скопировать лишь поддерево, то это осуществляется, например, командой:Merge ^Math(“математика”)=^Univer(“математический”)Для больших глобалов копирование занимает некоторое время.7.7. Использование многомерных структур для хранения данныхКаждый хранимый класс, который использует класс %CacheStorage, может сохранять свои экземпляры внутри базы данных, используя один или несколько узлов многомерных данных (глобалей). При создании класса компилятором класса автоматически90создаются определения двух глобалей: глобали данных и индексной глобали. При этомсправедливо следующее:• Данные сохраняются в глобале, имя которого начинается с полного имени класса, т.е.
пакет.класс, при этом справа к имени глобала данных добавляется буква“D”, к имени глобала индекса добавляется буква “I”.• Данные каждого экземпляра сохраняются внутри единственного узла глобаладанных, при этом значения свойств размещаются в списковых структурах.• Каждый узел глобала данных имеет объектный идентификатор ID. По умолчанию, значения ID это целые числа, значения которых обеспечиваются вызовомфункции $Increment.При этом для работы с объектами можно использовать либо объектный доступ, либочрезвычайно эффективный прямой доступ с помощью глобалей.
Например, предположиммы определили простой хранимый класс MyApp.Person с двумя литеральными свойствами.Class MyApp.Person Extends %Persistent [ClassType = persistent]{Property Name As %String;Property Age As %Integer;}Если мы создадим и сохраним два экземпляра этого класса, будет создан следующийглобал данных:^MyApp.PersonD = 2 // номер последнего узла данного уровня (счетчик узлов)^MyApp.PersonD(1) = $LB("",19,"Иванов")^MyApp.PersonD(2) = $LB("",20,"Петров")Заметим, что первый элемент списковой структуры, хранимой в каждом узле, пустой.
Это зарезервировано для имени подкласса. Если определить подклассы класса Person,этот элемент будет содержать имя подкласса. Метод %OpenId, обеспечиваемый классом%Persistent, использует эту информацию для полиморфного открытия корректного типаобъекта, когда несколько объектов сохраняются внутри подобных экстентов.7.7.1. Механизм IDKEYС помощью механизма IDKEY можно задать значение объектного ID, основываясьна значениях свойств объекта.
Для этого, к определению класса добавляется определениеиндекса IDKEY и задаются свойство или свойства, которые обеспечивают значение ID.Заметим, что после сохранения объекта, его объектный ID не может быть изменен. Этоозначает, что после сохранения объекта, использующего механизм IDKEY, нельзя изменять те его свойства, на которых базируется ID.Например, можно изменить класс Person из предыдущего примера, используя индекс IDKEY, который базируется на свойстве Name.Class MyApp.Person Extends %Persistent [ClassType = persistent]{Index IDKEY On Name [ Idkey ];Property Name As %String;Property Age As %Integer;}После создания и сохранения двух экземпляров класса Person, результирующий глобал будет следующим:^MyApp.PersonD("Иванов") = $LB("",19)^MyApp.PersonD("Петров") = $LB("",20)91Заметим, что здесь не определен счетчик узлов.
Также заметим, что, так как объектный ID основывается на свойстве Name, предполагается, что это свойство должно бытьуникальным идентификатором для каждого объекта.Если индекс IDKEY основывается на нескольких свойствах, то каждый узел данныхбудет иметь составной идентификатор.Class MyApp.Person Extends %Persistent [ClassType = persistent]{Index IDKEY On (Name,Age) [ Idkey ];Property Name As %String;Property Age As %Integer;}В этом случае результирующий глобал будет подобен следующему:^MyApp.PersonD("Иванов",19) = $LB("")^MyApp.PersonD("Петров",20) = $LB("")7.7.2.
ПодклассыПо умолчанию, любые поля, входящие в подкласс хранимого класса, хранятся в дополнительном узле. Имя подкласса используется как дополнительный идентификатор узла. Например, предположим, мы определили простой хранимый класс MyApp.Person сдвумя литеральными свойствами:Class MyApp.Person Extends %Persistent [ClassType = persistent]{Property Name As %String;Property Age As %Integer;}Потом определили хранимый подкласс, MyApp.Student, который включает два дополнительных литеральных свойства:Class MyApp.Student Extends Person [ClassType = persistent]{Property Subject As %String;Property Mark As %Float;}Если мы создадим и сохраним два экземпляра класса MyApp.Student, результирующий глобал будет подобен следующему:^MyApp.PersonD = 2 // счетчик узлов^MyApp.PersonD(1) = $LB("Student",19,"Иванов")^MyApp.PersonD(1,"Student") = $LB(3.2,"Физика")^MyApp.PersonD(2) = $LB("Student",20,"Петров")^MyApp.PersonD(2,"Student") = $LB(3.8,"Химия")Свойства, унаследованные от класса Person, сохраняются в главном узле, в то времякак свойства, входящие в класс Student сохранятся в дополнительных подузлах.
Этаструктура гарантирует, что данные класса Student могут быть использованы равнозначнои как данные класса Person. Например, SQL запрос, выдающий список имен всех объектов класса Person, будет корректно выбирать данные как Person, так и Student. Такаяструктура также облегчает работу компилятора классов по поддержке совместимостисвойств, добавляемых как из классов, так и из подклассов.Заметим, что первый элемент узла содержит строку “Student”, указывающую на то,что это данные класса Student.927.7.3. ИндексыХранимый класс может иметь один или несколько индексов, которые используютсядля выполнения операций, таких как сортировка или условный поиск.
Caché SQL использует индексы для выполнения запросов. Caché Object и SQL автоматически поддерживаеткорректные значения индексов при операциях вставки, изменения и удаления.7.7.4. Структуры хранения стандартных индексовСтандартный индекс связан с упорядоченным набором одного или нескольких значений объектного ID. Например, определим хранимый класс MyApp.Person с двумя литеральными свойствами и индексом по свойству Name.Class MyApp.Person Extends %Persistent [ClassType = persistent]{Index NameIdx On Name;Property Name As %String;Property Age As %Integer;}Если создать и сохранить несколько экземпляров класса Person, глобали данных ииндексов будут следующими:// глобал данных^MyApp.PersonD = 3 // счетчик узлов^MyApp.PersonD(1) = $LB("",34,"Jones")^MyApp.PersonD(2) = $LB("",22,"Smith")^MyApp.PersonD(3) = $LB("",45,"Jones")// глобал индекса^MyApp.PersonI("NameIdx"," JONES",1) = ""^MyApp.PersonI("NameIdx"," JONES",3) = ""^MyApp.PersonI("NameIdx"," SMITH",2) = ""Заметим следующее для индексных глобалей:1.По умолчанию, индексный глобал размещается в глобале с именем, которое состоит из имени класса плюс буква “I” справа.2.По умолчанию, первый элемент в таком глобале это имя индекса, это позволяетнескольким индексам храниться в подобных структурах глобалей без конфликтов.3.Второй элемент содержит упорядоченное значение данных.
По умолчанию, данные упорядочиваются в соответствии с функцией SQLUPPER, которая преобразует все символы значения в верхний регистр, и добавляет пробел в начале. Длятого, чтобы данные не преобразовывались в верхний регистр, следует использовать функцию Exact. В этом случае определение индекса может выглядеть так:Index NameIdx On Name As Exact;4.Третий элемент содержит объектный ID того объекта, который содержит эти данные;5.Значения узлов пустые, все необходимые данные содержатся внутри индексовиндексированного глобала. Заметим, что если определение индекса задает, чтоданные должны быть сохранены вместе с индексом, они будут размещены в узлах индексного глобала.93Вышеприведенный индекс содержит достаточно информации, для того чтобы удовлетворить большинство запросов, например, таких как выбрать список всех объектов Person, отсортированных по свойству Name.Поиск в индексе может выполняться с помощью функции $Order.
Например:Write $Order(^MyApp.PersonI("NameIdx"," JONES",-1))Т.к. такого узла нет, то будет выдан первый индекс третьего уровня, это 1. Таким образом, функция вернет значение объектного Id соответствующее значению " JONES". Следующий оператор:Write $Order(^MyApp.PersonI("NameIdx"," JONES",1))выдаст 3, это значение объектного Id второго узла, соответствующее значению " JONES", т.к. это следующий после 1 узел третьего уровня.94Глава 8.