This (getFiles) method is marked as internal in Cache, and yes, it's typical internal as it's usage is relied on the strong internals knowledge :). Besides, it's hidden in IRIS, and its caller should be rewritten to achieve DBMS independence:
ClassMethod ListDir2(path = "", wildchar = "*", recursive As %String(VALUELIST=",y,n") = "y", ByRef dirlist)
{
s pExtension=1
s pExtension(1)=wildchar
#if $zversion["IRIS"
s temp=$name(^IRIS.Temp)
#else
s temp=$name(^CacheTemp)
#endif
s pTempNode=$i(@temp)
k @temp@(pTempNode)
d ##class(%SQL.Util.Import).getFiles(path,.pExtension,pTempNode,recursive="y")
m dirlist=@temp@(pTempNode)
k @temp@(pTempNode) ;zw dirlist
}
Methods how these macros are defined are quite different: $$$ISWINDOWS is calculated using system call and always 1 on Windows platform, in contrast $$$WindowsCacheClient is defined manually, so it and can be easily set to 0 if needed.
Many years ago I faced a problem with LDAP which was solved this way (I didn't change ISC code, it was my own "fork"). Don't remember other details, only the fact.
Besides mapping ^ERRORS to a non-journaled database, you may want to tune the ErrorPurge configuration parameter that resides underSystem > Configuration > Startup Settings in SMP. As its default (30 days) is usually too big, it can be easily reduced to 7 days.
Switch 10 which inhibits all global/routine access except by the process that sets this switch should meet, while setting it can interfere with your _own_ activity. Switch 12 which disables logins can be insufficient for disabling web access, which is easier to restrict by stopping web server.
I didn't personally experiment with those switches as we have no such problem because our application utilizes its own "disable logins" flag by locking the variable.
Here is my solution. A couple of words as a preface. There are two tasks: #1
Switches journal and fixes the name of new journal file (e.g., in @..#GtrlJ@("JrnFirst")).
Processes the globals of a namespace. The algorithm of processing doesn't matter here, it's usually some kind of data re-coding.
#2. This task occurred just because users' activity during the task #1 execution can introduce the changes in globals already processed by the task #1.
Wait for the next journal file available for processing (WaitForJrnSwitch());
Process the globals found in this journal using the algorithm similar to the task_#1's one.
The latter is a pseudo-code of WaitForJrnSwitch() method and GetJrnID(), its helper.
/// If new jrn is available, set %JrnID=Jrn ID and return 1;
/// waiting by ..#TimeWait steps till ..#TimeLimit
ClassMethod WaitForJrnSwitch() As %Boolean
{
set rc=0
set nTimes = ..#TimeLimit \ ..#TimeWait
for i=1:1:nTimes {
$$$TOE(sc, ..GetJrnID(.JrnID)) // current journal
if %JrnID="" {
set JrnNext=@..#GtrlJ@("JrnFirst")
} else {
set JrnNext=%JrnID+1
}
if JrnNext<JrnID { // avoid extra journal switching ("by restore")
set %JrnID=JrnNext
set rc=1
quit
}
hang ..#TimeWait
}
quit rc
}
/// Get Jrn ID of the current journal file
/// Out:
/// returns %Status;
/// pJrnID - journal file name w/o prefix and "."
ClassMethod GetJrnID(Output pJrnID) As %Status
{
set sc=1
try {
set file=##class(%File).GetFilename(##class(%SYS.Journal.System).GetCurrentFileName())
set prefix=##class(%SYS.Journal.System).GetJournalFilePrefix()
set pJrnID=$tr($e(file,$l(prefix)+1,*),".")
} catch ex {
set sc=$$$ERROR($s(ex.%IsA("%Exception.SystemException"):5002,'ex.Code:5002,1:ex.Code),$lg(ex.Data)_" "_ex.Location_" "_ex.Name)
}
quit sc
}
Thank you for paying so much attention to this tiny question. Maybe it was too tiny formulated: I should mention that objects instantiation impact is beyond the scope of the question as all of them are instantiated once; correspondent OREFs are stored in global scope variables for "public" use.
Going deep inside with %SYS.MONLBL is possible, while I'm too lazy to do it having no real performance problem. So, I've wrote several dummy methods, doubling instance and class ones, with different numbers of formal arguments, from 0 to 10. Here is the code I managed to write.
ClassVsInst s p1="пропоывшыщзшвыщшв" s p2="гшщыгвыовлдыовдьыовдлоыдлв" s p3="widuiowudoiwudoiwudoiwud" s p4="прпроыпворыпворыпворыпв" s p5="uywyiusywisywzxbabzjhagjЭ" s p6="пропоывшыщзшвыщшв" s p7="гшщыгвыовлдыовдьыовдлоыдлв" s p8="widuiowudoiwudoiwudoiwud" s p9="прпроыпворыпворыпворыпв" s p10="uywyiusywisywzxbabzjhagjЭ" d run^zmawr("s sc=##class(Scratch.test).dummyClass10(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10)",1000000,"dummyClass10 "_$p($zv,"(Build")) n st s st=##class(Scratch.test).%New() d run^zmawr("s sc=st.dummyInst10(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10)",1000000,"dummyInst10 "_$p($zv,"(Build")) s st="" d run^zmawr("s sc=##class(Scratch.test).dummyClass5(p1,p2,p3,p4,p5)",1000000,"dummyClass5 "_$p($zv,"(Build")) n st s st=##class(Scratch.test).%New() d run^zmawr("s sc=st.dummyInst5(p1,p2,p3,p4,p5)",1000000,"dummyInst5 "_$p($zv,"(Build")) s st="" d run^zmawr("s sc=##class(Scratch.test).dummyClassNull()",1000000,"dummyClassNull "_$p($zv,"(Build")) n st s st=##class(Scratch.test).%New() d run^zmawr("s sc=st.dummyInstNull()",1000000,"dummyInstNull "_$p($zv,"(Build")) q
run(what, n, comment) ; execute line 'what' 'n' times n i s n=$g(n,1) s comment=$g(comment,"********** "_what_" "_n_" run(s) **********") w comment,! s zzh0=$zh f i=1:1:n x what s zzdt=$zh-zzh0 w "total time = "_zzdt_" avg time = "_(zzdt/n),! q
The results were:
USER>d ClassVsInst^zmawr
dummyClass10 Cache for Windows (x86-64) 2017.2.2
total time = .377751 avg time = .000000377751
dummyInst10 Cache for Windows (x86-64) 2017.2.2
total time = .338336 avg time = .000000338336
dummyClass5 Cache for Windows (x86-64) 2017.2.2
total time = .335734 avg time = .000000335734
dummyInst5 Cache for Windows (x86-64) 2017.2.2
total time = .280145 avg time = .000000280145
dummyClassNull Cache for Windows (x86-64) 2017.2.2
total time = .256858 avg time = .000000256858
dummyInstNull Cache for Windows (x86-64) 2017.2.2
total time = .225813 avg time = .000000225813
So, despite my expectations, oref.Method() call turned to be quicker than its ##class(myClass).myMethod() analogue. As there is only less than microsecond effect per call, I don't see any reason for refactoring.
go to post
This (getFiles) method is marked as internal in Cache, and yes, it's typical internal as it's usage is relied on the strong internals knowledge :). Besides, it's hidden in IRIS, and its caller should be rewritten to achieve DBMS independence:
go to post
Methods how these macros are defined are quite different: $$$ISWINDOWS is calculated using system call and always 1 on Windows platform, in contrast $$$WindowsCacheClient is defined manually, so it and can be easily set to 0 if needed.
Many years ago I faced a problem with LDAP which was solved this way (I didn't change ISC code, it was my own "fork"). Don't remember other details, only the fact.
go to post
Converting the file name to UTF8 usually helps. E.g.
USER>s file=$zcvt("/home/qms/Müller_Jörg.txt","o","UTF8") w $zf(-100,"","touch",file) 0go to post
Besides mapping ^ERRORS to a non-journaled database, you may want to tune the ErrorPurge configuration parameter that resides under System > Configuration > Startup Settings in SMP. As its default (30 days) is usually too big, it can be easily reduced to 7 days.
go to post
Yes, it's possible. You can use %SYS.Task for a Task API. Its methods and properties are well documented in its superclass %SYS.TaskSuper.
go to post
It depends.
Switch 10 which inhibits all global/routine access except by the process that sets this switch should meet, while setting it can interfere with your _own_ activity.
Switch 12 which disables logins can be insufficient for disabling web access, which is easier to restrict by stopping web server.
I didn't personally experiment with those switches as we have no such problem because our application utilizes its own "disable logins" flag by locking the variable.
go to post
Paul's warning sounded like this setting changed after the instance re-installation, while it unlikely could, as even in IRIS, according to docs:
System-Wide Security Parameters
Allow multiple security domains ... [Default is a single domain]
go to post
Here is my solution. A couple of words as a preface. There are two tasks:
#1
#2. This task occurred just because users' activity during the task #1 execution can introduce the changes in globals already processed by the task #1.
The latter is a pseudo-code of WaitForJrnSwitch() method and GetJrnID(), its helper.
go to post
In addition to replies of Evgeny and Robert:
go to post
Dear colleagues,
Thank you for paying so much attention to this tiny question. Maybe it was too tiny formulated: I should mention that objects instantiation impact is beyond the scope of the question as all of them are instantiated once; correspondent OREFs are stored in global scope variables for "public" use.
Going deep inside with %SYS.MONLBL is possible, while I'm too lazy to do it having no real performance problem. So, I've wrote several dummy methods, doubling instance and class ones, with different numbers of formal arguments, from 0 to 10. Here is the code I managed to write.
Class Scratch.test Extends %Library.RegisteredObject [ ProcedureBlock ] ClassMethod dummyClassNull() As %String { q 1 } Method dummyInstNull() As %String { q 1 } ClassMethod dummyClass5(a1, a2, a3, a4, a5) As %String { q 1 } Method dummyInst5(a1, a2, a3, a4, a5) As %String { q 1 } ClassMethod dummyClass10(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) As %String { q 1 } Method dummyInst10(a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) As %String { q 1 } }My testing routine was:
s p1="пропоывшыщзшвыщшв"
s p2="гшщыгвыовлдыовдьыовдлоыдлв"
s p3="widuiowudoiwudoiwudoiwud"
s p4="прпроыпворыпворыпворыпв"
s p5="uywyiusywisywzxbabzjhagjЭ"
s p6="пропоывшыщзшвыщшв"
s p7="гшщыгвыовлдыовдьыовдлоыдлв"
s p8="widuiowudoiwudoiwudoiwud"
s p9="прпроыпворыпворыпворыпв"
s p10="uywyiusywisywzxbabzjhagjЭ"
d run^zmawr("s sc=##class(Scratch.test).dummyClass10(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10)",1000000,"dummyClass10 "_$p($zv,"(Build"))
n st s st=##class(Scratch.test).%New() d run^zmawr("s sc=st.dummyInst10(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10)",1000000,"dummyInst10 "_$p($zv,"(Build"))
s st=""
d run^zmawr("s sc=##class(Scratch.test).dummyClass5(p1,p2,p3,p4,p5)",1000000,"dummyClass5 "_$p($zv,"(Build"))
n st s st=##class(Scratch.test).%New() d run^zmawr("s sc=st.dummyInst5(p1,p2,p3,p4,p5)",1000000,"dummyInst5 "_$p($zv,"(Build"))
s st=""
d run^zmawr("s sc=##class(Scratch.test).dummyClassNull()",1000000,"dummyClassNull "_$p($zv,"(Build"))
n st s st=##class(Scratch.test).%New() d run^zmawr("s sc=st.dummyInstNull()",1000000,"dummyInstNull "_$p($zv,"(Build"))
q
n i s n=$g(n,1)
s comment=$g(comment,"********** "_what_" "_n_" run(s) **********")
w comment,!
s zzh0=$zh
f i=1:1:n x what
s zzdt=$zh-zzh0 w "total time = "_zzdt_" avg time = "_(zzdt/n),!
q
The results were:
So, despite my expectations, oref.Method() call turned to be quicker than its ##class(myClass).myMethod() analogue. As there is only less than microsecond effect per call, I don't see any reason for refactoring.