You're right, I need to change $replace with Ш to $replace with Щ. Ш is replaced in $translate anyway
ClassMethod convertRussionToEnglish4(russian = "привет") As %String [ CodeMode = expression ]
{
$tr($zcvt($replace($replace($tr(russian, "абвгдезийклмнопрстуфхыэАБВГДЕЗИЙКЛМНОПРСТУФХЫЭЖЦЧШЮЯжцчшюяьЬъЪ", "abvgdeziyklmnoprstufhyeABVGDEZIYKLMNOPRSTUFHYE婨味䍨卨奵奡穨瑳捨獨祵祡"),"щ","shch"),"Щ","Shch"),"O","UnicodeBig"),$c(0))
}Interesting. Starting from 2019.2 there's a %JSON.Adapter, check it out when you update.
Also is there any particular reason you use these calls:
Set pObject=$Xecute("() Quit ##class("_pObjectName_").%New()")Instead of this:
Set pObject = $classmethod(pObjectName, "%New")?
Here's my new one-liner. Now 6 times faster.
ClassMethod convertRussionToEnglish4(russian = "привет") As %String [ CodeMode = expression ]
{
$tr($zcvt($replace($replace($tr(russian, "абвгдезийклмнопрстуфхыэАБВГДЕЗИЙКЛМНОПРСТУФХЫЭЖЦЧШЮЯжцчшюяьЬъЪ", "abvgdeziyklmnoprstufhyeABVGDEZIYKLMNOPRSTUFHYE婨味䍨卨奵奡穨瑳捨獨祵祡"),"щ","shch"),"Ш","Sh"),"O","UnicodeBig"),$c(0))
}Here's tests:
do ##class(Test.Cyr).Time()
Method: convertRussionToEnglish1, time: .009022 <- original
Method: convertRussionToEnglish2, time: .000689 <- my first idea
Method: convertRussionToEnglish3, time: .000417 <- Evgeny
Method: convertRussionToEnglish4, time: .000072 <- this version
Method: convertRussionToEnglish5, time: .000124 <- JonCompete code
Class Test.Cyr
{
/// do ##class(Test.Cyr).Time()
ClassMethod Time()
{
set words = $lb("Дорогие", "друзья", "начало", "повседневной", "работы", "по", "формированию", "позиции", "позволяет", "оценить", "значение", "ключевых", "компонентов", "планируемого", "обновления", "Соображения", "высшего", "порядка", "а", "также", "курс", "на", "социальноориентированный", "национальный", "проект", "играет", "важную", "роль", "в", "формировании", "всесторонне", "сбалансированных", "нововведений", "Таким", "образом", "сложившаяся", "структура", "организации", "способствует", "подготовке", "и", "реализации", "позиций", "занимаемых", "участниками", "в", "отношении", "поставленных", "задач")
for method = 1:1:5 {
set start = $zh
for i=1:1:$ll(words) {
set result = $classmethod(,"convertRussionToEnglish" _ method , $lg(words, i))
}
set end = $zh
write $$$FormatText("Method: %1, time: %2", "convertRussionToEnglish" _ method, end - start),!
}
}
ClassMethod getDict(Output dict)
{
kill dict
set dict("а")="a"
set dict("б")="b"
set dict("в")="v"
set dict("г")="g"
set dict("д")="d"
set dict("е")="e"
set dict("ж")="zh"
set dict("з")="z"
set dict("и")="i"
set dict("й")="y"
set dict("к")="k"
set dict("л")="l"
set dict("м")="m"
set dict("н")="n"
set dict("о")="o"
set dict("п")="p"
set dict("р")="r"
set dict("с")="s"
set dict("т")="t"
set dict("у")="u"
set dict("ф")="f"
set dict("х")="kh"
set dict("ц")="ts"
set dict("ч")="ch"
set dict("ш")="sh"
set dict("щ")="shch"
set dict("ъ")=""
set dict("ы")="y"
set dict("ь")=""
set dict("э")="e"
set dict("ю")="yu"
set dict("я")="ya"
}
/// w ##class(Test.Cyr).convertRussionToEnglish2()
ClassMethod convertRussionToEnglish2(word As %String = "Привет")
{
do ..getDict(.dict)
set out = ""
for i=1:1:$l(word) {
set letter = $e(word, i)
set letterL = $zcvt(letter, "l")
set outLetter = dict(letterL)
set:letter'=letterL outLetter = $zcvt(outLetter, "U")
set out = out _ outLetter
}
quit out
}
ClassMethod convertRussionToEnglish3(russian = "привет") As %String
{
set rus="абвгдезийклмнопрстуфхыэАБВГДЕЗИЙКЛМНОПРСТУФХЫЭьЬъЪ"
set eng="abvgdeziyklmnoprstufhyeABVGDEZIYKLMNOPRSTUFHYE"
set rus("ж")="zh"
set rus("ц")="ts"
set rus("ч")="ch"
set rus("ш")="sh"
set rus("щ")="shch"
set rus("ю")="yu"
set rus("я")="ya"
set rus("Ж")="Zh"
set rus("Ц")="Ts"
set rus("Ч")="Ch"
set rus("Ш")="Sh"
set rus("Щ")="Shch"
set rus("Ю")="Yu"
set rus("Я")="Ya"
set english=$tr(russian,rus,eng)
set wow=$O(rus(""))
while wow'="" {
set english=$Replace(english,wow,rus(wow))
set wow=$O(rus(wow))
}
return english
}
ClassMethod convertRussionToEnglish4(russian = "привет") As %String [ CodeMode = expression ]
{
$tr($zcvt($replace($replace($tr(russian, "абвгдезийклмнопрстуфхыэАБВГДЕЗИЙКЛМНОПРСТУФХЫЭЖЦЧШЮЯжцчшюяьЬъЪ", "abvgdeziyklmnoprstufhyeABVGDEZIYKLMNOPRSTUFHYE婨味䍨卨奵奡穨瑳捨獨祵祡"),"щ","shch"),"Ш","Sh"),"O","UnicodeBig"),$c(0))
}
ClassMethod convertRussionToEnglish1(word As %String)
{
//add array of transliteration system
Set convertArray = $LB(
$LB("а","a"),$LB("б","b"),$LB("в","v"),$LB("г","g"),$LB("д","d"),$LB("е","e"),$LB("ё","e"),$LB("ж","zh"),$LB("з","z"),
$LB("и","i"),$LB("й","y"),$LB("к","k"),$LB("л","l"),$LB("м","m"),$LB("н","n"),$LB("о","o"),$LB("п","p"),
$LB("р","r"),$LB("с","s"),$LB("т","t"),$LB("у","u"),$LB("ф","f"),$LB("х","kh"),$LB("ц","ts"),$LB("ч","ch"),
$LB("ш","sh"),$LB("щ","shch"),$LB("ы","y"),$LB("э","e"),$LB("ю","yu"),$LB("я","ya"),$LB("ъ",""),$LB("ь",""),
$LB("А","A"),$LB("Б","B"),$LB("В","V"),$LB("Г","G"),$LB("Д","D"),$LB("Е","E"),$LB("Ё","E"),$LB("Ж","ZH"),$LB("З","Z"),
$LB("И","I"),$LB("Й","Y"),$LB("К","K"),$LB("Л","L"),$LB("М","M"),$LB("Н","N"),$LB("О","O"),$LB("П","P"),
$LB("Р","R"),$LB("С","S"),$LB("Т","T"),$LB("У","U"),$LB("Ф","F"),$LB("Х","KH"),$LB("Ц","TS"),$LB("Ч","CH"),
$LB("Ш","SH"),$LB("Щ","SHCH"),$LB("Ы","Y"),$LB("Э","E"),$LB("Ю","YU"),$LB("Я","YA"),$LB("Ъ",""),$LB("Ь","")
)
//word Example
Set wordToConvert = "Пример для Кода"
Set wordToConvertLength = $L(wordToConvert)
Set cnt=$ListLength(convertArray)
Set latinWord = ""
//and with cycle get each letter and parse in transliteration array
for i=1:1:wordToConvertLength {
Set cyrillicWord = $E(wordToConvert,i)
for j=1:1:cnt {
Set codes=$ListGet(convertArray,j)
Set cyrillicLetter=$ListGet(codes,1)
Set latinLetter=$ListGet(codes,2)
if cyrillicLetter=cyrillicWord {
Set cyrillicWord = latinLetter
}
}
Set latinWord = latinWord_cyrillicWord
}
//Get result of convert
Quit latinWord
}
ClassMethod convertRussionToEnglish5(russian = "привет") As %String
{
s koi8=$zcvt(russian,"O","KOI8R")
s ascii=""
f i=1:1:$l(koi8) s ascii=ascii_$c($zb($a(koi8,i),127,1))
q ascii
}
}Less searching all around:
ClassMethod getDict(Output dict)
{
kill dict
set dict("а")="a"
set dict("б")="b"
set dict("в")="v"
set dict("г")="g"
set dict("д")="d"
set dict("е")="e"
set dict("ж")="zh"
set dict("з")="z"
set dict("и")="i"
set dict("й")="y"
set dict("к")="k"
set dict("л")="l"
set dict("м")="m"
set dict("н")="n"
set dict("о")="o"
set dict("п")="p"
set dict("р")="r"
set dict("с")="s"
set dict("т")="t"
set dict("у")="u"
set dict("ф")="f"
set dict("х")="kh"
set dict("ц")="ts"
set dict("ч")="ch"
set dict("ш")="sh"
set dict("щ")="shch"
set dict("ъ")=""
set dict("ы")="y"
set dict("ь")=""
set dict("э")="e"
set dict("ю")="yu"
set dict("я")="ya"
}
/// w ##class(Test.Cyr).convertRussionToEnglish()
ClassMethod convertRussionToEnglish(word As %String = "Привет")
{
do ..getDict(.dict)
set out = ""
for i=1:1:$l(word) {
set letter = $e(word, i)
set letterL = $zcvt(letter, "l")
set outLetter = dict(letterL)
set:letter'=letterL outLetter = $zcvt(outLetter, "U")
set out = out _ outLetter
}
quit out
}What do you want to achieve?
Do you want to read or write excel files?
Studio -> Edit -> Find in Files?
Can containerized IAM work with non-containerized InterSystems IRIS?
Not that I know of.
If you're sure about MAXLEN it's better to specify it explicitly of course, but if you have no idea %VarString is a nice solution.
Use %VarString instead of %String - it has default length of 3 641 144 characters.
It's a %GlobalCharacter stream.
In BPL I need to create it and write a few lines inside before sending it to BO.
That assumes only one task of the specified type exists.
Well, I always specify BH calls with indirection, so I guess my answer would be yes.
I'd add another Operation called MockSOAPOperation which accepts SOAP requests and calls your method.
After that change Business Host setting(s) to point to this mock operation.
You need to write it in OnHandleCorsRequest method.
In jQuery you don't need Allow* headers.
On server try this for TESTING ONLY:
Do %response.SetHeader("Access-Control-Allow-Origin",..GetOrigins())
Do %response.SetHeader("Access-Control-Allow-Credentials","true")
Do %response.SetHeader("Access-Control-Allow-Methods","GET, PUT, POST, DELETE, OPTIONS")
Do %response.SetHeader("Access-Control-Max-Age","10000")
Do %response.SetHeader("Access-Control-Allow-Headers","Content-Type, Authorization, Accept-Language, X-Requested-With")And GetOrigins
/// Get Origin from %request object
ClassMethod GetOrigins() As %String
{
set url = %request.GetCgiEnv("HTTP_REFERER")
return $p(url,"/",1,3) // get http(s)://origin.com:port
}Only DROP QUERY/CREATE QUERY.
You can alter queries via Studio/Atelier/VS Code IDEs.
In portal you can run DROP QUERY and create the query again.
You can add property to the task class which references this table.
Would it help?
Please elaborate on what do you want to do with ID.
What do you want to achieve?
Awesome work!
What's the error with
SELECT * FROM DUAL;and W methods?
Please describe your use case?
Do you need one time adjustment? If so move globals.
If children can freely change parents, consider one-many relationship instead.
If you're unable to receive data at ll, start with a simple query and check if it works:
SELECT * FROM DUAL;I never use hardcoded global names in code, all global references are defied as macros (preferable) or parameters (allows overloads).
Readme or documentation can provide some additional information on used globals but more as a reference.
Solved.
Streams are not passed only for overloaded methods.
This does not work:
public class API {
public void sendMessage(byte[] msg) throws Exception {}
public void sendMessage(byte[] msg, String Id) throws Exception {}
}However this does:
public class API {
public void sendMessage(byte[] msg) throws Exception {}
public void sendMessageId(byte[] msg, String Id) throws Exception {}
}
Try it like this:
/// d ##class(isc.test.Utils).Test2()
ClassMethod Test2()
{
set from = "^A"
set to = "^B"
kill @from, @to
set @from@(1) = "A"
set @from@(2) = "B"
set @from@(3) = "C"
do ..InvertList(from, to)
zwrite @from,@to
}
ClassMethod InvertList(from, to) As %Status
{
#define ForAll(%in,%gn) s gn%in=$na(%gn) s %in="" f { s %in=$o(@gn%in@(%in)) q:%in=""
#define EndFor }
$$$ForAll(key, @from)
set @to@(@from@(key))=key
$$$EndFor
}For me it returns
^A(1)="A"
^A(2)="B"
^A(3)="C"
^B("A")=1
^B("B")=2
^B("C")=3"For Each" for a global?
This is For each for a global, not local variable.