Есть вопрос, ответ на который я не нашел за 2 часа и решил спросить на форуме.
Для наших задач захотелось попробовать вызов команты XECUTE для выполнения кода бизнес-логики...
Функцияxecuteval(code,result,error)
set idx=$increment(^wx) ; сперва формируем индекс idx для возвращение результата выполнения кода ^wx(idx)
xecute "set idx="_idx_" "_code ; перед кодом инициализируем индекс
xecute "set result="_$get(^wx(idx)) ; после выполнения устанавливаем результат равным ^wx(idx)
quit:$quit 0 quitПример выполнения: set result=1
set error=1
do xecuteval("set a=7 set a=a*5 set ^wx(idx)=a",.result,.error)После выполнения в result будет 35.
Зачем это мне - отдельный разговор. Просто захотелось...
А вопрос, на который я не нашел ответ - Как сделать вот так?
1.
2.
3.
4.
5.
6.
7.
set result=1
set error=1
do xecuteval("
set a=7
set a=a*5
set ^wx(idx)=a"
,.result,.error)
Уж не говоря об использовании в коде циклов и уровней выполнения...
Или спросите таки, зачем оно?
Я буду использовать функцию xecuteval в вызовах GT.M Call-In, для выполнения ее в C++ коде. И хочется, чтобы код на MUMPS был написан так как я пишу в файле - с переносами строк и уровнями " . ".
1.
2.
3.
4.
5.
gtmApi->XecuteVal("
set a=7
set a=a*5
set ^wx(idx)=a
",result);
а не одной строкой...
У меня есть только одна мысль - реализовать на C++ "чистку" строки с кодом - отбрасывать переносы строк, например. Не знаю как получится с уровнями выполнения.
Может кто то делал подобное?
