[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gawk-diffs] [SCM] gawk branch, comment, updated. gawk-4.1.0-795-g5d0e35
|
From: |
Arnold Robbins |
|
Subject: |
[gawk-diffs] [SCM] gawk branch, comment, updated. gawk-4.1.0-795-g5d0e35d |
|
Date: |
Wed, 10 Sep 2014 05:20:27 +0000 |
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "gawk".
The branch, comment has been updated
via 5d0e35df699f96e1f22af4d8f4cffab355c82913 (commit)
via 6de0102373304c0fdf70a7ddeb17dd1caa3a9b23 (commit)
via ca9f23d6c33c4b5cb3786d480948a42988ca99ac (commit)
via 9da96e570a835d6a0427c9182585af307d393f45 (commit)
via c037ac7669150fbc955313fa63928fe00d3c825d (commit)
via f9fadc3b2bf0bf9d65a981a712aa9aebc21a699b (commit)
via 01c916919342d33cddfadb89b0b4e0ad6f6201f0 (commit)
via 4585a0f2ec53a3d26646925ad269acb9c861347a (commit)
via 4e463bfa0ca3d2e317a0d6afe0badd6b7ee4a001 (commit)
via c59f2580c1c2e3ac399c7fd33a860470e58ca76a (commit)
via 0f5cb955662136ad4a93e35db5721dd986dfd55b (commit)
via 3f30f514c6e81c4a9e8ba1374a5080683783c382 (commit)
via c30a04c8d3a2eef06338934f577fe3416f40d529 (commit)
via 16a26e063e9c62bff0478fa210d875c4eed2b7c0 (commit)
via 7448f28d356fc5cd8d9117111baea3a549e0930e (commit)
via 8beb9796b17b6ca48eb62df8fd3d31421e43c761 (commit)
via 611353597e20081bd0c72617e24fa5ff4c63dac1 (commit)
via cb92ab7aa657c57446cc9e0087f1364adaac8fee (commit)
via a0d7edfff1b489e50ae8751429ebf925948b746f (commit)
via a205df7903bce201577df4f7049c190e283f1ea4 (commit)
via f84a4ffb830e5f9ce138cb74fae99ad930805723 (commit)
via fb838ec318104f66a36e59f71ffb4f9eaa9b2eaa (commit)
via 2783f2c7d4e52fa7accfba7b847c416d8c71cd0f (commit)
via bfc794de222760871c6c6de6bb923a0bf57ee166 (commit)
via 00f86a1d837f838a715dc879076325f772c4c5c9 (commit)
via ba1e7ab66563efb5b597a418e2e9fb4a01998d03 (commit)
via 6c541fd0f75cd328dd80afec757ecccc833719af (commit)
via 5a05ddf24b9f5ebc81a1b295ba7a6fbc7348776b (commit)
via ff28c07f95ff2400eb0ad1becc0eae1eab9dc93d (commit)
via 3a2e4e1b409d87ade30d3ad2976695235347f13b (commit)
via a5847cb0a97b093cd0f23b65c72370af836c9748 (commit)
via b52b7b9f65b0edfe28f0b16a4aa72f1b76cf8820 (commit)
via 12e05615041147de61658bda8f5e7d5a4acd87c3 (commit)
via 73780a2b7c4a873c6844a489856b5ae2fe1a9c64 (commit)
via 5167f5aaabb5adb4801be9f46ba3ba16596014c3 (commit)
via ccac19d49a596ba9eaef739cbc9dd4ebf87c8a24 (commit)
via cd3f4b04ef1a3a0027e72ed6d7af2fcab5ca64df (commit)
via 12cd52d7342ec15db88fbbcb4e75af53406c0c49 (commit)
via 056c0179993b718d7859618023fd549c766e479f (commit)
via 3defec04e39c4ca6987a21f79686576d9823c653 (commit)
via 3cf354e731174233ff2370a8d3cd4cd9ba0b8e91 (commit)
via f215e2b823693103796cd71493b90300f54adba4 (commit)
via 0a8f56def1597bd886d7c9095c1f73e157d1197b (commit)
via 5663bd64a728649e694462caa0c5641c5eac5c60 (commit)
via e909ea8295f5556db159ec28fdc566f504f9cb9a (commit)
via 9a83e89c9880ec6f368216b5dda37cbf8cbf800f (commit)
via 59c3dea5f888dd71d806e31f67ca6d9a9577eabc (commit)
via 79b577d28d0921221726d881229b0364ef36eace (commit)
via 44f0c70e04a1beef988cde4950aabe29139e789a (commit)
via 1a9579b6c5722277b34802b7665f340b095a2e98 (commit)
via c9b1f9189625a8dab6092cbd46f8496537af227c (commit)
via 5e5e1e890b276d93f09317883dd7ce8555c6a1a8 (commit)
via f6b764345406aae0e659c007cf99f33ff7469bf2 (commit)
via 058370e159ba10507e7830ab4d83d5588542cf6b (commit)
via 9d8bd17c58e8fc74d4ad80b199d5ea1d5cbd2bce (commit)
via 1059680510215830da7e2eb91e72e4623d460d19 (commit)
via aec76b2b6e79e36dafced60fd91a877f5db98c4e (commit)
from d7c8dfd41bd5671ddfa6c81b2ef1779cab06e56b (commit)
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.
- Log -----------------------------------------------------------------
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=5d0e35df699f96e1f22af4d8f4cffab355c82913
commit 5d0e35df699f96e1f22af4d8f4cffab355c82913
Author: Arnold D. Robbins <address@hidden>
Date: Wed Sep 10 08:20:15 2014 +0300
Update NEWS and TODO.
diff --git a/NEWS b/NEWS
index 37cb5f9..4035ebf 100644
--- a/NEWS
+++ b/NEWS
@@ -34,6 +34,9 @@ Changes from 4.1.x to 4.2.0
8. MirBSD is no longer supported.
+9. Pretty printing now preserves comments and places them into the
+ pretty-printed file.
+
Changes from 4.1.1 to 4.1.2
---------------------------
diff --git a/TODO b/TODO
index 66c8cc9..3979cd1 100644
--- a/TODO
+++ b/TODO
@@ -1,13 +1,9 @@
-Sun Aug 24 20:00:53 IDT 2014
+Wed Sep 10 08:18:38 IDT 2014
============================
There were too many files tracking different thoughts and ideas for
things to do, or consider doing. This file merges them into one. As
-tasks are completed, they should be moved to the DONE section, below,
-or simply removed.
-
-Upon creation of a release (major or patch release), items from the
-previous release should be removed.
+tasks are completed, they should be removed.
This file should exist only in the master branch or branches based off
of it for development, but not in the stable branch. This may require some
@@ -23,9 +19,6 @@ Minor Cleanups and Code Improvements
order to nuke the use of libtool. [ Partially started in the
nolibtool branch. ]
- Enhance profiling to save comments in a byte-code that does nothing
- but that can be used when pretty printing the program.
-
API:
??? #if !defined(GAWK) && !defined(GAWK_OMIT_CONVENIENCE_MACROS)
@@ -146,18 +139,6 @@ Things To Think About That May Never Happen
E.g., a length of 0 or -1 or something. Maybe "n"?
-DONE
-====
-
-Minor Cleanups and Code Improvements
-------------------------------------
-
-Minor New Features
-------------------
-
-Major New Features
-------------------
-
Things That We Decided We Will Never Do
=======================================
http://git.sv.gnu.org/cgit/gawk.git/commit/?id=6de0102373304c0fdf70a7ddeb17dd1caa3a9b23
commit 6de0102373304c0fdf70a7ddeb17dd1caa3a9b23
Merge: d7c8dfd ca9f23d
Author: Arnold D. Robbins <address@hidden>
Date: Wed Sep 10 08:18:21 2014 +0300
Merge branch 'master' into comment
diff --cc test/ChangeLog
index 61b8cd3,68cc18e..0cd7e5f
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@@ -1,3 -1,24 +1,28 @@@
++2014-09-10 Arnold D. Robbins <address@hidden>
++
++ * profile2.ok, profile4.ok, profile5.ok: Update for new code.
++
+ 2014-09-05 Arnold D. Robbins <address@hidden>
+
+ * functab4.awk: Changed to use stat instead of chdir since
+ /tmp isn't /tmp on all systems (e.g. Mac OS X). Thanks to
+ Hermann Peifer for the report.
+
+ Sort of related:
+
+ * indirectcall2.awk, indirectcall2.ok: New files.
+ * id.ok: Updated.
+
+ 2014-09-04 Arnold D. Robbins <address@hidden>
+
+ * profile2.ok: Update after code improvement in profiler.
+ * functab4.ok: Update after making indirect calls of
+ extension functions work. :-)
+
+ 2014-08-15 Arnold D. Robbins <address@hidden>
+
+ * badargs.ok: Adjust after revising text for -L option.
+
2014-08-12 Arnold D. Robbins <address@hidden>
* ofs1.ok: Updated to match corrected behavior in gawk.
diff --cc test/profile4.ok
index 8ff4470,8ff4470..9d2b943
--- a/test/profile4.ok
+++ b/test/profile4.ok
@@@ -1,11 -1,11 +1,9 @@@
-- # BEGIN block(s)
--
-- BEGIN {
-- a = "foo" (c = "bar")
-- a = (b - c) "foo"
-- a = "foo" (b - c)
-- q = (d = "x") (e = "y")
-- a = (c = tolower("FOO")) in JUNK
-- x = y == 0 && z == 2 && q == 45
-- }
++BEGIN {
++ a = "foo" (c = "bar")
++ a = (b - c) "foo"
++ a = "foo" (b - c)
++ q = (d = "x") (e = "y")
++ a = (c = tolower("FOO")) in JUNK
++ x = y == 0 && z == 2 && q == 45
++}
diff --cc test/profile5.ok
index 3e0736d,cc83dc0..4c94462
--- a/test/profile5.ok
+++ b/test/profile5.ok
@@@ -1,7247 -1,5909 +1,7255 @@@
-- # BEGIN block(s)
++BEGIN {
++ _addlib("_BASE")
++}
++
++############################################################################
++
++BEGIN {
++ BINMODE = "rw"
++ SUBSEP = "\000"
++ _NULARR[""]
++ delete _NULARR[""]
++ _INITBASE()
++}
++
++BEGIN {
++ _addlib("_sYS")
++}
++
++BEGIN {
++ _addlib("_rEG")
++}
++
++BEGIN {
++ _addlib("_INSTRUC")
++}
++
++#############################################################################
++
++BEGIN {
++ _delay_perfmsdelay = 11500
++}
++
++BEGIN {
++ _addlib("_ARR")
++}
++
++#___________________________________________________________________________________
++BEGIN {
++}
++
++###########################################################################
++
++
++
++
++
++
++BEGIN {
++ _addlib("_EXTFN")
++}
++
++#############################################################################
++
++BEGIN {
++ delete _XCHR
++ delete _ASC
++ delete _CHR
++ t = ""
++ for (i = 0; i < 256; i++) {
++ _ASC[a = _CHR[i] = sprintf("%c", i)] = i
++ _QASC[a] = sprintf("%.3o", i)
++ _XCHR[_CHR[i]] = sprintf("%c", (i < 128 ? i + 128 : i - 128))
++ }
++
#_____________________________________________________________________________
++
++ for (i = 0; i < 256; i++) {
++ _QSTRQ[_CHR[i]] = "\\" sprintf("%.3o", i)
++ }
++ #_______________________________________________________________________
++
++ for (i = 0; i < 32; i++) {
++ _QSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
++ }
++ for (; i < 128; i++) {
++ _QSTR[_CHR[i]] = _CHR[i]
++ }
++ for (; i < 256; i++) {
++ _QSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
++ }
++ _QSTR["\\"] = "\\\\"
++ #; _QSTR["\""]="\\\""
++
#_____________________________________________________________________________
++
++ _CHR["CR"] = "\r"
++ _CHR["EOL"] = "\r\n"
++ _CHR["EOF"] = "\032"
++ _QSTR[_CHR["EOL"]] = "\\015\\012"
++ #_______________________________________________________________________
++
++ _CHR["MONTH"][_CHR["MONTH"]["Jan"] = "01"] = "Jan"
++ _CHR["MONTH"][_CHR["MONTH"]["Feb"] = "02"] = "Feb"
++ _CHR["MONTH"][_CHR["MONTH"]["Mar"] = "03"] = "Mar"
++ _CHR["MONTH"][_CHR["MONTH"]["Apr"] = "04"] = "Apr"
++ _CHR["MONTH"][_CHR["MONTH"]["May"] = "05"] = "May"
++ _CHR["MONTH"][_CHR["MONTH"]["Jun"] = "06"] = "Jun"
++ _CHR["MONTH"][_CHR["MONTH"]["Jul"] = "07"] = "Jul"
++ _CHR["MONTH"][_CHR["MONTH"]["Aug"] = "08"] = "Aug"
++ _CHR["MONTH"][_CHR["MONTH"]["Sep"] = "09"] = "Sep"
++ _CHR["MONTH"][_CHR["MONTH"]["Oct"] = "10"] = "Oct"
++ _CHR["MONTH"][_CHR["MONTH"]["Nov"] = "11"] = "Nov"
++ _CHR["MONTH"][_CHR["MONTH"]["Dec"] = "12"] = "Dec"
++
#_____________________________________________________________________________
++
++ _TAB_STEP_DEFAULT = 8
++
#_____________________________________________________________________________
++
++ for (i = 0; i < 32; i++) {
++ _REXPSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
++ }
++ for (; i < 256; i++) {
++ _REXPSTR[_CHR[i]] = _CHR[i]
++ }
++ _gensubfn("\\^$.()|{,}[-]?+*", ".", "_rexpstr_i0")
++}
++
++BEGIN {
++ _addlib("_SYSIO")
++}
++
++#############################################################################
++
++BEGIN {
++ _SYS_STDCON = "CON"
++ _CON_WIDTH = (match(_cmd("MODE " _SYS_STDCON " 2>NUL"), /Columns:[
\t]*([0-9]+)/, A) ? strtonum(A[1]) : 80)
++}
++
++BEGIN {
++ _addlib("_FILEIO")
++}
++
++#############################################################################
++
++BEGIN {
++ if (_SYS_STDOUT == "") {
++ _SYS_STDOUT = "/dev/stdout"
++ }
++ if (_SYS_STDERR == "") {
++ _SYS_STDERR = "/dev/stderr"
++ }
++ _CHR["SUBDIR"] = "\\"
++ if (_gawk_scriptlevel < 1) {
++ match(b = _cmd("echo %CD% 2>NUL"), /[^\x00-\x1F]*/)
++ ENVIRON["CD"] = _FILEIO_RD = _filerd(substr(b, RSTART, RLENGTH)
_CHR["SUBDIR"])
++ _FILEIO_R = _filer(_FILEIO_RD)
++ _FILEIO_D = _filed(_FILEIO_RD)
++ _setmpath(_filerd(_FILEIO_RD "_tmp" _CHR["SUBDIR"]))
++ }
++}
++
++BEGIN {
++ _addlib("_tOBJ")
++}
++
++#############################################################################
++BEGIN {
++ _tInBy = "\212._tInBy"
++ _tgenuid_init()
++ _UIDS[""]
++ delete _UIDS[""]
++ _UIDSDEL[""]
++ delete _UIDSDEL[""]
++ _tPREV[""]
++ _tPARENT[""]
++ _tNEXT[""]
++ _tFCHLD[""]
++ _tQCHLD[""]
++ _tLCHLD[""]
++ _tLINK[""]
++ _tCLASS[""]
++ _tSTR[""]
++ _tDLINK[""]
++ _[""]
++ delete _[""]
++ _ptr[""]
++ delete _ptr[""]
++ _TMP0[""]
++ delete _TMP0[""]
++ _TMP1[""]
++ delete _TMP1[""]
++}
++
++BEGIN {
++ _addlib("_ERRLOG")
++}
++
++#############################################################################
++
++BEGIN {
++ if (_gawk_scriptlevel < 1) {
++ _ERRLOG_TF = 1
++ _ERRLOG_VF = 1
++ _ERRLOG_IF = 1
++ _ERRLOG_WF = 1
++ _ERRLOG_EF = 1
++ _ERRLOG_FF = 1
++ _wrfile(_errlog_file = _getmpfile("OUTPUT.LOG"), "")
++ }
++}
++
++BEGIN {
++ _addlib("_SHORTCUT")
++}
++
++#___________________________________________________________________________________
++BEGIN {
++ _shortcut_init()
++}
++
++#########################################################
++
++
++
++BEGIN {
++ _addlib("_eXTFN")
++}
++
++#___________________________________________________________________________________
++BEGIN {
++ _extfn_init()
++}
++
++############################################################
++
++
++BEGIN {
++ _addlib("_sHARE")
++}
++
++BEGIN {
++ _addlib("_FILEVER")
++}
++
++BEGIN {
++ _addlib("_DS")
++
###############################################################################
++
++ _PRODUCT_NAME = "Deployment Solution Control"
++ _PRODUCT_VERSION = "1.0"
++ _PRODUCT_COPYRIGHT = "Copyright (C) 2013 by CosumoGEN"
++ _PRODUCT_FILENAME = "_main.ewk"
++}
++
++# problem configuring uid by array charset: i can' understand what format of
the array: possibly - remove array support
++# after removal of array format detection: there is unfinished conflicts: it
is possible to totally remove array uid-gen initialization
++
++#_____________________________________________________
++BEGIN {
++ _inituidefault()
++}
++
++#_____________________________________________________
++BEGIN {
++ _initfilever()
++}
++
++#_____________________________________________________
++BEGIN {
++ _initshare()
++}
++
++#_________________________________________________________________
++BEGIN {
++ _inspass(_IMPORT, "_import_data")
++}
++
++#_______________________________________________
++BEGIN {
++ _TEND[_ARRLEN] = 0
++ _TYPEWORD = "_TYPE"
++}
++
++#_______________________________________________
++BEGIN {
++ _ARRLEN = "\032LEN"
++ _ARRPTR = "\032PTR"
++ _ARRSTR = ""
++}
++
++#_____________________________________________________
++BEGIN {
++ _getperf_fn = "_nop"
++}
++
++BEGIN {
++ _datablock_length = 262144
++}
++
++#_____________________________________________________
++BEGIN {
++ _initrdreg()
++}
++
++#_____________________________________________________
++BEGIN {
++ _initregpath0()
++}
-- BEGIN {
-- _addlib("_BASE")
-- }
++#_____________________________________________________
++BEGIN {
++ _initsys()
++}
-- BEGIN {
-
#___________________________________________________________________________________
-
############################################################################
-- BINMODE = "rw"
-- SUBSEP = "\000"
-- _NULARR[""]
-- delete _NULARR[""]
-- _INITBASE()
++############################################################################
++
++BEGIN {
++ a = ENVIRON["EGAWK_CMDLINE"]
++ gsub(/^[ \t]*/, "", a)
++ a = _lib_CMDLN(a)
++ if (a != "" && ! _LIBAPI["F"]["!"]) {
++ _out(_lib_HELP())
++ _fatal("Bad comandline argument `" a "'")
++ }
++ gsub(/^[ \t]*/, "", a)
++ ENVIRON["EGAWK_CMDLINE"] = a
++ _lib_APPLY()
++ if (_basexit_fl) {
++ exit
++ }
++ _INIT()
++ _START()
++ _END()
++}
++
++########################################################################
++
++END {
++ _EXIT()
++}
++
++###############################################################################
++
++END {
++ if (_gawk_scriptlevel < 1) {
++ close(_errlog_file)
++ p = _Zimport(_rdfile(_errlog_file), _N())
++ if ((t = _get_errout(p)) != "") {
++ _expout(t, "/dev/stderr")
++ }
++ }
++}
++
++###############################################################################
++
++END {
++ if (_gawk_scriptlevel < 1) {
++ if (! _fileio_notdeltmpflag) {
++ _FILEIO_TMPATHS[_FILEIO_TMPRD]
++ _Foreach(_FILEIO_TMPATHS, "_uninit_del")
++ }
++ }
++}
++
++###############################################################################
++END {
++ if (_constatstrln > 0) {
++ _constat()
}
++}
-- BEGIN {
-- _addlib("_sYS")
-- }
++#___________________________________________________________________________________
++####################################################################################
-- BEGIN {
-- _addlib("_rEG")
-- }
-- BEGIN {
-- _addlib("_INSTRUC")
-- }
-- BEGIN {
-
#___________________________________________________________________________________
-
#############################################################################
-- _delay_perfmsdelay = 11500
-- }
-- BEGIN {
-- _addlib("_ARR")
-- }
-- BEGIN {
-- }
-- BEGIN {
-
#___________________________________________________________________________________
-
###########################################################################
-- _addlib("_EXTFN")
-- }
-- BEGIN {
-
#___________________________________________________________________________________
-
#############################################################################
-- delete _XCHR
-- delete _ASC
-- delete _CHR
-- t = ""
-
#_____________________________________________________________________________
-- for (i = 0; i < 256; i++) {
-- _ASC[a = _CHR[i] = sprintf("%c", i)] = i
-- _QASC[a] = sprintf("%.3o", i)
-- _XCHR[_CHR[i]] = sprintf("%c", (i < 128 ? i + 128 : i -
128))
-- }
-
#_______________________________________________________________________
-- for (i = 0; i < 256; i++) {
-- _QSTRQ[_CHR[i]] = "\\" sprintf("%.3o", i)
-- }
-- for (i = 0; i < 32; i++) {
-- _QSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
-- }
-- for (; i < 128; i++) {
-- _QSTR[_CHR[i]] = _CHR[i]
- }
- for (; i < 256; i++) {
- _QSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
- }
- _QSTR["\\"] = "\\\\"
- _CHR["CR"] = "\r"
- _CHR["EOL"] = "\r\n"
- _CHR["EOF"] = "\032"
- _QSTR[_CHR["EOL"]] = "\\015\\012"
- _CHR["MONTH"][_CHR["MONTH"]["Jan"] = "01"] = "Jan"
- _CHR["MONTH"][_CHR["MONTH"]["Feb"] = "02"] = "Feb"
- _CHR["MONTH"][_CHR["MONTH"]["Mar"] = "03"] = "Mar"
- _CHR["MONTH"][_CHR["MONTH"]["Apr"] = "04"] = "Apr"
- _CHR["MONTH"][_CHR["MONTH"]["May"] = "05"] = "May"
- _CHR["MONTH"][_CHR["MONTH"]["Jun"] = "06"] = "Jun"
- _CHR["MONTH"][_CHR["MONTH"]["Jul"] = "07"] = "Jul"
- _CHR["MONTH"][_CHR["MONTH"]["Aug"] = "08"] = "Aug"
- _CHR["MONTH"][_CHR["MONTH"]["Sep"] = "09"] = "Sep"
- _CHR["MONTH"][_CHR["MONTH"]["Oct"] = "10"] = "Oct"
- _CHR["MONTH"][_CHR["MONTH"]["Nov"] = "11"] = "Nov"
- _CHR["MONTH"][_CHR["MONTH"]["Dec"] = "12"] = "Dec"
- _TAB_STEP_DEFAULT = 8
- for (i = 0; i < 32; i++) {
- _REXPSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
++# make sure that stdout contain only expected characters
++# make sure that stderr contain only expected characters
++# redesign & reformat keys and its outputs
++# try different key combinations
++# add lib-specified to all libs
++
++
++#_______________________________________________________________________
++function W(p, p0, p1)
++{
++ #####################################################
++ if (isarray(p0)) {
++ delete p0[p]
++ if (isarray(p1)) {
++ for (i in p1) {
++ if (isarray(p1[i])) {
++ p0[p][i][""]
++ delete p0[p][i][""]
++ _N_i0(p0[p][i], p1[i])
++ } else {
++ p0[p][i] = p1[i]
++ }
++ }
++ return p
}
-- for (; i < 256; i++) {
- _QSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
- _REXPSTR[_CHR[i]] = _CHR[i]
++ return (p0[p] = p1)
++ }
++ delete _[p][p0]
++ if (isarray(p1)) {
++ for (i in p1) {
++ if (isarray(p1[i])) {
++ _[p][p0][i][""]
++ delete _[p][p0][i][""]
++ _N_i0(_[p][p0][i], p1[i])
++ } else {
++ _[p][p0][i] = p1[i]
++ }
}
- #; _QSTR["\""]="\\\""
-
#_____________________________________________________________________________
- _QSTR["\\"] = "\\\\"
- _CHR["CR"] = "\r"
- _CHR["EOL"] = "\r\n"
- _CHR["EOF"] = "\032"
-
#_______________________________________________________________________
- _QSTR[_CHR["EOL"]] = "\\015\\012"
- _CHR["MONTH"][_CHR["MONTH"]["Jan"] = "01"] = "Jan"
- _CHR["MONTH"][_CHR["MONTH"]["Feb"] = "02"] = "Feb"
- _CHR["MONTH"][_CHR["MONTH"]["Mar"] = "03"] = "Mar"
- _CHR["MONTH"][_CHR["MONTH"]["Apr"] = "04"] = "Apr"
- _CHR["MONTH"][_CHR["MONTH"]["May"] = "05"] = "May"
- _CHR["MONTH"][_CHR["MONTH"]["Jun"] = "06"] = "Jun"
- _CHR["MONTH"][_CHR["MONTH"]["Jul"] = "07"] = "Jul"
- _CHR["MONTH"][_CHR["MONTH"]["Aug"] = "08"] = "Aug"
- _CHR["MONTH"][_CHR["MONTH"]["Sep"] = "09"] = "Sep"
- _CHR["MONTH"][_CHR["MONTH"]["Oct"] = "10"] = "Oct"
- _CHR["MONTH"][_CHR["MONTH"]["Nov"] = "11"] = "Nov"
-
#_____________________________________________________________________________
- _CHR["MONTH"][_CHR["MONTH"]["Dec"] = "12"] = "Dec"
-
#_____________________________________________________________________________
- _TAB_STEP_DEFAULT = 8
- for (i = 0; i < 32; i++) {
- _REXPSTR[_CHR[i]] = _QSTRQ[_CHR[i]]
- }
- for (; i < 256; i++) {
- _REXPSTR[_CHR[i]] = _CHR[i]
- }
-- _gensubfn("\\^$.()|{,}[-]?+*", ".", "_rexpstr_i0")
- }
-
- BEGIN {
- _addlib("_SYSIO")
- }
-
- BEGIN {
-
#___________________________________________________________________________________
-
#############################################################################
- _SYS_STDCON = "CON"
- _CON_WIDTH = (match(_cmd("MODE " _SYS_STDCON " 2>NUL"),
/Columns:[ \t]*([0-9]+)/, A) ? strtonum(A[1]) : 80)
++ return p
}
++ return (_[p][p0] = p1)
++}
+
- BEGIN {
- _addlib("_SYSIO")
- }
++##########################################################
-- BEGIN {
- _addlib("_FILEIO")
- _SYS_STDCON = "CON"
- _CON_WIDTH = (match(_cmd("MODE " _SYS_STDCON " 2>NUL"),
/Columns:[ \t]*([0-9]+)/, A) ? strtonum(A[1]) : 80)
++function _ARR(c, t, P)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ return t
++ #___________________________________________________________
++
++ case "_lib_APPLY":
++ return
++ #___________________________________________________________
++
++ case "_lib_HELP":
++ return
++ #___________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_ARR 1.0")
++ #___________________________________________________________
++
++ case "_lib_BEGIN":
++ return
++ #___________________________________________________________
++
++ case "_lib_END":
++ return
}
++}
-- BEGIN {
-
#___________________________________________________________________________________
-
#############################################################################
- if (_SYS_STDOUT == "") {
- _SYS_STDOUT = "/dev/stdout"
- _addlib("_FILEIO")
- }
++##########################################################
+
- BEGIN {
- if (_SYS_STDOUT == "") {
- _SYS_STDOUT = "/dev/stdout"
- }
- if (_SYS_STDERR == "") {
- _SYS_STDERR = "/dev/stderr"
++function _BASE(c, t, P, A)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ if (match(t, /^((--([Vv])ersion)|(-([Vv])))[ \t]*/, A)) {
++ t = substr(t, RLENGTH + 1)
++ _cmdln_version = A[3] A[5]
++ } else {
++ if (match(t, /^((-?\?)|(--help))[ \t]*/)) {
++ t = substr(t, RLENGTH + 1)
++ _cmdln_help = 1
++ } else {
++ if (match(t, /^--[ \t]*/)) {
++ return _endpass(substr(t, RLENGTH + 1))
++ }
++ }
}
- if (_SYS_STDERR == "") {
- _SYS_STDERR = "/dev/stderr"
- _CHR["SUBDIR"] = "\\"
- if (_gawk_scriptlevel < 1) {
- match(b = _cmd("echo %CD% 2>NUL"), /[^\x00-\x1F]*/)
- ENVIRON["CD"] = _FILEIO_RD = _filerd(substr(b, RSTART,
RLENGTH) _CHR["SUBDIR"])
- _FILEIO_R = _filer(_FILEIO_RD)
- _FILEIO_D = _filed(_FILEIO_RD)
- _setmpath(_filerd(_FILEIO_RD "_tmp" _CHR["SUBDIR"]))
++ return t
++ #___________________________________________________________
++
++ case "_lib_APPLY":
++ if (_cmdln_help) {
++ match(_fbaccr(_LIBAPI, "_lib_HELP"),
/^([^\x00]*)\x00([^\x01]*)\x01(.*)/, A)
++ _out(A[2] A[1] A[3])
++ return _endpass(_basexit_fl = 1)
+ }
- _CHR["SUBDIR"] = "\\"
- if (_gawk_scriptlevel < 1) {
- match(b = _cmd("echo %CD% 2>NUL"), /[^\x00-\x1F]*/)
- ENVIRON["CD"] = _FILEIO_RD = _filerd(substr(b, RSTART,
RLENGTH) _CHR["SUBDIR"])
- _FILEIO_R = _filer(_FILEIO_RD)
- _FILEIO_D = _filed(_FILEIO_RD)
- _setmpath(_filerd(_FILEIO_RD "_tmp" _CHR["SUBDIR"]))
++ if (_cmdln_version) {
++ _out(_ln(_PRODUCT_NAME " v" _PRODUCT_VERSION)
_ln(_PRODUCT_COPYRIGHT) _ln() ((_cmdln_version == "v" ? "" : _lib_NAMEVER())))
++ return _endpass(_basexit_fl = 1)
}
++ return
++ #___________________________________________________________
++
++ case "_lib_HELP":
++ return ("\000" _ln(_PRODUCT_NAME " v" _PRODUCT_VERSION)
_ln(_PRODUCT_COPYRIGHT) _ln() _ln(" Usage:") _ln() _ln(" " _PRODUCT_FILENAME
" [/key1 /key2...] [-- cmdline]") _ln() _ln(" keys:") _ln() "\001" _ln(" -v
-V --version - output product version and (if /V) all
modules") _ln(" ? -? --help - output this help page")
_ln(" -- - command line string edge"))
++ #___________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_BASE 3.0")
++ #___________________________________________________________
++
++ case "_lib_BEGIN":
++ return
++ #___________________________________________________________
++
++ case "_lib_END":
++ return
}
++}
-- BEGIN {
-- _addlib("_tOBJ")
++#____________________________________________________________________________
++function _DS(c, t, P, a, A)
++{
++ ######################################################
++ switch (c) {
++ case "_lib_CMDLN":
++ #___________________________________________________________
++ return t
++ #_____________________________________________________
++ case "_lib_APPLY":
++ return
++ #_____________________________________________________
++ case "_lib_HELP":
++ return (_ln() _ln(" Usage: " _PRODUCT_NAME " [/key1 /key2...]
sourcefile [cmdline]") _ln())
++ #_____________________________________________________
++ case "_lib_NAMEVER":
++ return
++ #_____________________________________________________
++ case "_lib_BEGIN":
++ return
++ #_____________________________________________________
++ case "_lib_END":
++ return
}
++}
-- BEGIN {
-
#___________________________________________________________________________________
-
#############################################################################
-- _tInBy = "\212._tInBy"
-- _tgenuid_init()
-- _UIDS[""]
-- delete _UIDS[""]
-- _UIDSDEL[""]
-- delete _UIDSDEL[""]
-- _tPREV[""]
-- _tPARENT[""]
-- _tNEXT[""]
-- _tFCHLD[""]
-- _tQCHLD[""]
-- _tLCHLD[""]
-- _tLINK[""]
-- _tCLASS[""]
-- _tSTR[""]
-- _tDLINK[""]
-- _[""]
-- delete _[""]
-- _ptr[""]
-- delete _ptr[""]
-- _TMP0[""]
-- delete _TMP0[""]
-- _TMP1[""]
-- delete _TMP1[""]
-- }
++#______________________________________________________________________________________________
++function _END()
++{
++
#################################################################################
++
++}
-- BEGIN {
-- _addlib("_ERRLOG")
-- }
++########################################################
-- BEGIN {
-- if (_gawk_scriptlevel < 1) {
-
#___________________________________________________________________________________
-
#############################################################################
-- _ERRLOG_TF = 1
-- _ERRLOG_VF = 1
-- _ERRLOG_IF = 1
-- _ERRLOG_WF = 1
-- _ERRLOG_EF = 1
-- _ERRLOG_FF = 1
-- _wrfile(_errlog_file = _getmpfile("OUTPUT.LOG"), "")
++function _ERRLOG(c, t, P, a, b, A)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ if (match(t, /^[ \t]*-L:([TtVvIiWwEeFf]*)[ \t]*/, A)) {
++ t = substr(t, RLENGTH + 1)
++ _errlog_errflkey = _errlog_errflkey A[1]
++ }
++ return t
++
#_______________________________________________________________________
++
++ case "_lib_APPLY":
++ if (_errlog_errflkey) {
++ split(_errlog_errflkey, A, "")
++ for (a = 1; a in A; a++) {
++ if (A[a] == toupper(A[a])) {
++ b = 1
++ } else {
++ b = ""
++ }
++ switch (toupper(A[a])) {
++ case "T":
++ _ERRLOG_TF = b
++ break
++ case "V":
++ _ERRLOG_VF = b
++ break
++ case "I":
++ _ERRLOG_IF = b
++ break
++ case "W":
++ _ERRLOG_WF = b
++ break
++ case "E":
++ _ERRLOG_EF = b
++ break
++ case "F":
++ _ERRLOG_FF = b
++ break
++ }
++ }
++ if (_ERRLOG_IF) {
++ _info("Log-message types inherited acc/deny: "
"TRACE " ((_ERRLOG_TF ? "ON" : "OFF")) "/" "VERBOSE " ((_ERRLOG_VF ? "ON" :
"OFF")) "/" "INFO " ((_ERRLOG_IF ? "ON" : "OFF")) "/" "WARNING " ((_ERRLOG_WF ?
"ON" : "OFF")) "/" "ERROR " ((_ERRLOG_EF ? "ON" : "OFF")) "/" "FATAL "
((_ERRLOG_FF ? "ON" : "OFF")))
++ }
}
++ return
++
#_______________________________________________________________________
++
++ case "_lib_HELP":
++ return (_ln(" -L:TtVvIiWwEeFf -
enable(upcase: TVIWEF) or disable(lowcase: tviwef) allowable type of") _ln("
log messages.
Trace/Verbose/Informational/Warning/Error/Fatal.") _ln())
++
#_______________________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_ERRLOG 1.0")
++
#_______________________________________________________________________
++
++ case "_lib_BEGIN":
++ P["_ERRLOG_TF"] = _ERRLOG_TF
++ P["_ERRLOG_VF"] = _ERRLOG_VF
++ P["_ERRLOG_IF"] = _ERRLOG_IF
++ P["_ERRLOG_WF"] = _ERRLOG_WF
++ P["_ERRLOG_EF"] = _ERRLOG_EF
++ P["_ERRLOG_FF"] = _ERRLOG_FF
++ P["_errlog_file"] = "/dev/stderr"
++ return
}
++}
-- BEGIN {
-- _addlib("_SHORTCUT")
-- }
++#______________________________________________________________________________________________
++function _EXIT()
++{
++
################################################################################
++
++}
-- BEGIN {
-
#___________________________________________________________________________________
-- _shortcut_init()
-- }
++########################################################
-- BEGIN {
- #########################################################
-- _addlib("_eXTFN")
++function _EXTFN(c, t, P)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ return t
++ #___________________________________________________________
++
++ case "_lib_APPLY":
++ return
++ #___________________________________________________________
++
++ case "_lib_HELP":
++ return
++ #___________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_EXTFN 1.0")
++ #___________________________________________________________
++
++ case "_lib_BEGIN":
++ return
++ #___________________________________________________________
++
++ case "_lib_END":
++ return
}
++}
-- BEGIN {
-
#___________________________________________________________________________________
-- _extfn_init()
-- }
++#######################################################
-- BEGIN {
- ############################################################
-- _addlib("_sHARE")
++function _FILEIO(c, t, P, A)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ if (match(t, /^[ \t]*-[Tt]([\+-])[ \t]*/, A)) {
++ t = substr(t, RLENGTH + 1)
++ if (A[1] == "+") {
++ _fileio_notdeltmpflag = 1
++ } else {
++ _fileio_notdeltmpflag = ""
++ }
++ }
++ return t
++ #___________________________________________________________
++
++ case "_lib_APPLY":
++ if (_fileio_notdeltmpflag) {
++ _info("Temporary objects deletion DISABLED (inherited)")
++ }
++ return
++ #___________________________________________________________
++
++ case "_lib_HELP":
++ return (_ln(" -[Tt][+-] -
inherited: +enable\\-disable temporary files\\dirs deletion") _ln())
++ #___________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_FILEIO 2.1")
++ #___________________________________________________________
++
++ case "_lib_BEGIN":
++ P["ENVIRON"]["CD"] = ENVIRON["CD"]
++ P["_FILEIO_RD"] = _FILEIO_RD
++ P["_FILEIO_R"] = _FILEIO_R
++ P["_FILEIO_D"] = _FILEIO_D
++ if (! ("_FILEIO_TMPRD" in P)) {
++ P["_FILEIO_TMPRD"] = _getmpdir(_filen(P["SOURCE"]) "."
++_egawk_subcntr _CHR["SUBDIR"])
++ }
++ return
++ #___________________________________________________________
++
++ case "_lib_END":
++ return
}
++}
-- BEGIN {
-- _addlib("_FILEVER")
++############################################################
++#_____________________________________________________________________________
++function _FILEVER(c, t, P, a, A)
++{
++ #################################################
++ switch (c) {
++ case "_lib_CMDLN":
++ #___________________________________________________________
++ return t
++ #_____________________________________________________
++ case "_lib_APPLY":
++ return
++ #_____________________________________________________
++ case "_lib_HELP":
++ return
++ #_____________________________________________________
++ case "_lib_NAMEVER":
++ return
++ #_____________________________________________________
++ case "_lib_BEGIN":
++ return
++ #_____________________________________________________
++ case "_lib_END":
++ return
}
++}
-- BEGIN {
-
###############################################################################
-- _addlib("_DS")
-- _PRODUCT_NAME = "Deployment Solution Control"
-- _PRODUCT_VERSION = "1.0"
-- _PRODUCT_COPYRIGHT = "Copyright (C) 2013 by CosumoGEN"
-- _PRODUCT_FILENAME = "_main.ewk"
++function _Foreach(A, f, p0, i)
++{
++ for (i in A) {
++ @f(A, i, p0)
}
++}
-- BEGIN {
- # problem configuring uid by array charset: i can' understand
what format of the array: possibly - remove array support
- # after removal of array format detection: there is unfinished
conflicts: it is possible to totally remove array uid-gen initialization
- #_____________________________________________________
-- _inituidefault()
-- }
++function _INIT(f)
++{
++}
-- BEGIN {
- #_____________________________________________________
-- _initfilever()
-- }
++#___________________________________________________________________________________
++function _INITBASE()
++{
++ ################################################################
++
++ _egawk_utilpath = ENVIRON["EGAWK_PATH"] "BIN\\UTIL\\"
++}
-- BEGIN {
- #_____________________________________________________
-- _initshare()
-- }
++######################################################
-- BEGIN {
-
#_________________________________________________________________
-- _inspass(_IMPORT, "_import_data")
++function _INSTRUC(c, t, P)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ return t
++ #___________________________________________________________
++
++ case "_lib_APPLY":
++ return
++ #___________________________________________________________
++
++ case "_lib_HELP":
++ return
++ #___________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_INSTRUC 1.0")
++ #___________________________________________________________
++
++ case "_lib_BEGIN":
++ return
++ #___________________________________________________________
++
++ case "_lib_END":
++ return
}
++}
-- BEGIN {
- #_______________________________________________
-- _TEND[_ARRLEN] = 0
-- _TYPEWORD = "_TYPE"
-- }
++#___________________________________________________________________________________
-- BEGIN {
- #_______________________________________________
-- _ARRLEN = "\032LEN"
-- _ARRPTR = "\032PTR"
-- _ARRSTR = ""
-- }
-- BEGIN {
- #_____________________________________________________
-- _getperf_fn = "_nop"
-- }
++####################################################################################
-- BEGIN {
-- _datablock_length = 262144
-- }
-- BEGIN {
- #_____________________________________________________
-- _initrdreg()
++#_____________________________________________________________________________
++function _N(F, v, p)
++{
++ ###########################################################
++ for (p in _UIDS) {
++ delete _UIDS[p]
++ return _nN_i0(p, F, v)
}
++ return _nN_i0(_tgenuid(), F, v)
++}
-- BEGIN {
- #_____________________________________________________
-- _initregpath0()
- }
++#####################################################
+
- BEGIN {
- _initsys()
++function _SHORTCUT(c, t, P)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ return t
++ #___________________________________________________________
++
++ case "_lib_APPLY":
++ return
++ #___________________________________________________________
++
++ case "_lib_HELP":
++ return
++ #___________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_shortcut 1.0")
++ #___________________________________________________________
++
++ case "_lib_BEGIN":
++ return
++ #___________________________________________________________
++
++ case "_lib_END":
++ return
+ }
-
- BEGIN {
- a = ENVIRON["EGAWK_CMDLINE"]
- gsub(/^[ \t]*/, "", a)
- a = _lib_CMDLN(a)
- if (a != "" && ! _LIBAPI["F"]["!"]) {
- _out(_lib_HELP())
- _fatal("Bad comandline argument `" a "'")
- }
- gsub(/^[ \t]*/, "", a)
- ENVIRON["EGAWK_CMDLINE"] = a
- _lib_APPLY()
- if (_basexit_fl) {
- exit
- }
- _INIT()
- _START()
- _END()
++}
++
++#______________________________________________________________________________________________
++function _START(t, i, A)
++{
++
#########################################################################
++ _torexp_init()
++ test_uid()
++ return
++ _conl(patsplit("a,b,c", A, /[^,]/, B))
++ test_splitstr()
++ return
++ A[""]
++ _CLASSPTR["ptr"]
++ ALTARR["ptra"]
++ _conl(_dumparr(SYMTAB))
++ BB[1] = _NOP
++ zorr(1, 2, 3, 4, 5, 6)
++ zorr(BB, 1)
++ _rtn()
++ _rtn("")
++ _rtn(0)
++ _rtn("0")
++ _rtn(1)
++ _rtn("1")
++ _rtn(-1)
++ _rtn("-1")
++ _rtn("huj")
++ _rtn("ptr")
++ _rtn("ptra", ALTARR)
++ _rtn(ALTARR)
++ _rtn(ALTARR, ALTARR)
++ return
++ _tstini()
++ return
++ _splitpath_test()
++ # _split_regpath()
++ return
++ hh = "CPU"
++ _conl("go1!")
++ _conl(_var(_sharepath(hh, "gdfsgdsgsd sdgsdighjui teretiewrotrewut
345345345 rtjtireutireu huj")))
++ _conl("go2!")
++ _conl(_var(_sharelist(AAA, hh), _dumparr(AAA)))
++ _conline()
++ A[1] = "h"
++ A[3] = "j"
++ t = "pizda"
++ if (match(t, /^pi(Z)da/, A)) {
++ _conl("match")
++ } else {
++ _conl("not match")
++ }
++ _conl(_dumparr(A))
++ return
++ _pathSMA = "C:\\Program Files\\Altiris\\Altiris Agent\\"
++ DSPlugInPath = _pathSMA "Agents\\Deployment\\Agent\\"
++ DSAutoPath = _pathSMA
++ if (! _sysinfo(_SYS, _hostname)) {
++ _fatal("_sysinfo: unknown error")
++ }
++ _REG[""]
++ delete _REG[""]
++ _servoutput = _CHR["EOL"] _cmd("sc query state= all")
++ _dsbasepath = "\\\\CPU\\CPU\\DEV\\PROJECT\\_DS\\"
++ _rdreg(_REG, "HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris")
++ _wrfile("rego.txt", _dumparr(_REG))
++ _conl("fF")
++ #_______________________________________________________________________
++
++ c = _getreg_i1(DDD, "HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris
Agent\\Plugin Objects\\\204~.*\224Install path", _REG)
++
#_________________________________________________________________________________________
++ pp = _n("NAME", "NS")
++ #pp=_n()
++
#___________________________________________________________________________________
++ p = _defsolution(pp, "DS Plug-in",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris Agent\\Plugin
Objects\\Agents\\")
++ ClientConfiguration = _defdll(p, "Client Configuration",
"ClientConfiguration")
++ ClientImagingPrep = _defdll(p, "Client Inaging Preparation",
"ClientImagingPrep")
++ ClientImaging = _defdll(p, "Client Imaging", "ClientImaging")
++ ClientPCT = _defdll(p, "Client PCT", "ClientPCT")
++ ClientRebootTo = _defdll(p, "Client Reboot To", "ClientRebootTo")
++ DeploymentAgent = _defdll(p, "Deployment Agent", "Deployment Agent")
++ DeploymentSolutionBaseAgent = _defdll(p, "Deployment Solution Base
Agent", "Deployment Solution Base Agent")
++ ClientBCDEdit = _defile(p, "Client BCD Edit", "ClientBCDEdit.dll")
++ ClientCopyFile = _defile(p, "Client Copy File", "ClientCopyFile.dll")
++ ClientPreImage = _defile(p, "Client Pre Image", "ClientPreImage.dll")
++ ClientRebootTo = _defile(p, "Client Reboot To", "ClientRebootTo.dll")
++ _defile(p, "ConfigService.exe", "ConfigService.exe", "")
++ _defile(p, "config.dll", "config.dll", "")
++ _defsrv(p, "DS Plug-in Service", "Altiris Deployment Solution - System
Configuration")
++ _defreg(p, "Deployment Agent Path",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR")
++ _defile(p, "Altiris_DeploymentSolutionAgent_7_1_x86.msi",
(_SYS["OSArchitecture"] == "64-bit" ? "C:\\Program Files\\Altiris\\Altiris
Agent\\Agents\\SoftwareManagement\\Software
Delivery\\{9D76E4CA-377A-472D-A82E-EDAD77E7E4ED}\\cache\\Altiris_DeploymentSolutionAgent_7_1_x64.msi"
: "C:\\Program Files\\Altiris\\Altiris
Agent\\Agents\\SoftwareManagement\\Software
Delivery\\{4B747D25-612F-48FC-B6B5-9916D1BB755C}\\cache\\Altiris_DeploymentSolutionAgent_7_1_x86.msi"),
"")
++ _defdir(p, "Deployment Folder", a = gensub(/[^\\]*$/, "", 1,
_rdsafe(_REG,
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR",
"C:\\Program Files\\Altiris\\Altiris Agent\\Agents\\Deployment\\Agent\\")))
++
#___________________________________________________________________________________
++ p = _defsolution(pp, "DS Auto",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris Agent\\Plugin
Objects\\Agents\\")
++ _defdir(p, "C:\\Boot\\Altiris\\iso\\boot\\fonts\\",
"C:\\Boot\\Altiris\\iso\\boot\\fonts\\")
++ _defdir(p, "C:\\Boot\\Altiris\\iso\\sources\\",
"C:\\Boot\\Altiris\\iso\\sources\\")
++ _defile(p, "C:\\Boot\\Altiris\\iso\\autoinst.exe",
"C:\\Boot\\Altiris\\iso\\autoinst.exe", "")
++ _defile(p, "C:\\Boot\\Altiris\\iso\\autoinst.ini",
"C:\\Boot\\Altiris\\iso\\autoinst.ini", "")
++ _defile(p, "C:\\Boot\\Altiris\\iso\\autoutil.exe",
"C:\\Boot\\Altiris\\iso\\autoutil.exe", "")
++ _defile(p, "C:\\Boot\\Altiris\\iso\\autoutil.ini",
"C:\\Boot\\Altiris\\iso\\autoutil.ini", "")
++ _defile(p, "C:\\Boot\\Altiris\\iso\\bcdedit.exe",
"C:\\Boot\\Altiris\\iso\\bcdedit.exe", "")
++ _defile(p, "C:\\Boot\\Altiris\\iso\\bootmgr",
"C:\\Boot\\Altiris\\iso\\bootmgr", "")
++ _defile(p, "C:\\Boot\\Altiris\\iso\\bootsect.exe",
"C:\\Boot\\Altiris\\iso\\bootsect.exe", "")
++ _defreg(p, "Deployment Automation reg.File",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\AutoUtil\\File.XSZ", "autoutil.exe")
++ _defreg(p, "Deployment Automation reg.Path",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\AutoUtil\\Path.XSZ",
"%systemdrive%\\boot\\altiris\\iso")
++
#_________________________________________________________________________________________
++
++ _check(pp)
++
#_________________________________________________________________________________________
++
++ _conl(_report(pp))
++ _wrfile("report.txt", _report(pp))
++}
++
++#########################################################
++
++function _SYSIO(c, t, P)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ return t
++ #___________________________________________________________
++
++ case "_lib_APPLY":
++ return
++ #___________________________________________________________
++
++ case "_lib_HELP":
++ return
++ #___________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_SYSIO 1.0")
++ #___________________________________________________________
++
++ case "_lib_BEGIN":
++ return
++ #___________________________________________________________
++
++ case "_lib_END":
++ return
}
++}
- BEGIN {
-
#_____________________________________________________________________________
- ################################################################
- #_____________________________________________________
- _initsys()
- }
-
- BEGIN {
-
#_________________________________________________________________________________________
-
##########################################################################################
- #BootDevice BuildNumber BuildType
Caption CodeSet CountryCode
CreationClassName CSCreationClassName CSDVersion CSName
CurrentTimeZone DataExecutionPrevention_32BitApplications
DataExecutionPrevention_Available DataExecutionPrevention_Drivers
DataExecutionPrevention_SupportPolicy Debug Description Distributed
EncryptionLevel ForegroundApplicationBoost FreePhysicalMemory
FreeSpaceInPagingFiles FreeVirtualMemory InstallDate
LargeSystemCache LastBootUpTime LocalDateTime Locale
Manufacturer MaxNumberOfProcesses MaxProcessMemorySize MUILanguages
Name
NumberOfLicensedUsers NumberOfProcesses NumberOfUsers
OperatingSystemSKU Organization OSArchitecture OSLanguage OSProductSuite
OSType OtherTypeDescription PAEEnabled PlusProductID PlusVersionNumber
Primary ProductType RegisteredUser SerialNumber
ServicePackMajorVersion ServicePackMinorVersion SizeStoredInPagingFiles
Status SuiteMask SystemDevice SystemDirectory SystemDrive
TotalSwapSpaceSize TotalVirtualMemorySize TotalVisibleMemorySize Version
WindowsDirectory
- #\Device\HarddiskVolume1 7601 Multiprocessor Free
Microsoft Windows Server 2008 R2 Enterprise 1252 1
Win32_OperatingSystem Win32_ComputerSystem Service Pack 1 CPU 180
TRUE TRUE
TRUE 3
FALSE FALSE 256 0
6925316 33518716 41134632
20110502192745.000000+180 20130426120425.497469+180
20130510134606.932000+180 0409 Microsoft Corporation -1
8589934464 {"en-US"} Microsoft Windows Server 2008 R2 Enterprise
|C:\Windows|\Device\Harddisk0\Partition2 0 116
2 10 64-bit 1033
274 18
TRUE 3 Windows User 55041-507-2389175-84833 1
0 33554432 OK
274 \Device\HarddiskVolume2 C:\Windows\system32 C:
50311020 16758448 6.1.7601 C:\Windows
-
############################################################################
- a = ENVIRON["EGAWK_CMDLINE"]
- gsub(/^[ \t]*/, "", a)
- a = _lib_CMDLN(a)
- if (a != "" && ! _LIBAPI["F"]["!"]) {
- _out(_lib_HELP())
- _fatal("Bad comandline argument `" a "'")
- }
- gsub(/^[ \t]*/, "", a)
- ENVIRON["EGAWK_CMDLINE"] = a
- _lib_APPLY()
- if (_basexit_fl) {
- exit
- }
- _INIT()
- _START()
- _END()
- }
-
-- # END block(s)
-
- END {
-
#_____________________________________________________________________________
-
########################################################################
- _EXIT()
- }
-
- END {
- if (_gawk_scriptlevel < 1) {
-
#_______________________________________________________________________
-
########################################################################
-
###############################################################################
- close(_errlog_file)
- p = _Zimport(_rdfile(_errlog_file), _N())
- if ((t = _get_errout(p)) != "") {
- _expout(t, "/dev/stderr")
- }
++#_______________________________________________________________________
++########################################################################
+
- END {
- _EXIT()
- }
+
- END {
- if (_gawk_scriptlevel < 1) {
- close(_errlog_file)
- p = _Zimport(_rdfile(_errlog_file), _N())
- if ((t = _get_errout(p)) != "") {
- _expout(t, "/dev/stderr")
- }
++function _W(p, A, v)
++{
++ if (isarray(v)) {
++ if (p) {
++ delete A[p]
++ A[p][""]
++ delete A[p][""]
++ _movarr(A[p], v)
}
++ return p
+ }
-
- END {
- if (_gawk_scriptlevel < 1) {
- if (! _fileio_notdeltmpflag) {
- _FILEIO_TMPATHS[_FILEIO_TMPRD]
- _Foreach(_FILEIO_TMPATHS, "_uninit_del")
- }
- }
++ if (p) {
++ delete A[p]
++ return (A[p] = v)
}
++ return v
++}
-- END {
- if (_gawk_scriptlevel < 1) {
- if (! _fileio_notdeltmpflag) {
-
##########################################################################################
- # PUBLIC:
-
#_____________________________________________________________________________
- # _rFBRO(ptr) -
Return ptr of first-bro. [TESTED]
- #
If !ptr then returns "".
-
#_____________________________________________________________________________
- # _rLBRO(ptr) -
Return ptr of last-bro. [TESTED]
- #
If !ptr then returns "".
-
#_____________________________________________________________________________
- # _rQBRO(ptr) -
Returns brothers total quantity. [TESTED]
- #
If !ptr then returns "".
-
###############################################################################
- _FILEIO_TMPATHS[_FILEIO_TMPRD]
- _Foreach(_FILEIO_TMPATHS, "_uninit_del")
- }
- if (_constatstrln > 0) {
- _constat()
++#_______________________________________________________________________
++function _Zexparr(S, s, t, i)
++{
++ ##############################################
++ t = ""
++ if (isarray(S)) {
++ for (i in S) {
++ t = t ((isarray(S[i]) ? _Zexparr_i1(i) "\020"
_Zexparr_i0(S[i]) "\021\021\020" : _Zexparr_i2(_Zexparr_i3(i) "\021"
_Zexparr_i3(S[i])) "\020"))
}
}
++ if (s != "") {
++ gsub(/\x1B/, "\033;", s)
++ gsub(/\x10/, "\0330", s)
++ t = t "\021\021\020" s
++ }
++ gsub(/\x0A/, "\033:", t)
++ return t
++}
++
++#_________________________________________________________________
++function _Zexparr_i0(S, t, i)
++{
++ for (i in S) {
++ t = t ((isarray(S[i]) ? _Zexparr_i1(i) "\020" _Zexparr_i0(S[i])
"\021\021\020" : _Zexparr_i2(_Zexparr_i3(i) "\021" _Zexparr_i3(S[i])) "\020"))
++ }
++ return t
++}
++
++#_________________________________________________________________
++function _Zexparr_i1(t)
++{
++ gsub(/\x1B/, "\033;", t)
++ gsub(/\x11/, "\0331", t)
++ gsub(/\x10/, "\0330", t)
++ return t
++}
++
++#_________________________________________________________________
++function _Zexparr_i2(t)
++{
++ gsub(/\x10/, "\0330", t)
++ return t
++}
++
++#_________________________________________________________________
++function _Zexparr_i3(t)
++{
++ gsub(/\x1B/, "\033;", t)
++ gsub(/\x11/, "\0331", t)
++ return t
++}
++
++#_______________________________________________________________________
++function _Zimparr(D, t, A, B)
++{
++ ##############################################
++ if (isarray(D)) {
++ split(t, A, /\x10/, B)
++ t = _Zimparr_i0(A, B, _Zimparr_i1(D, A, B, 1))
++ gsub(/\x1B\x30/, "\020", t)
++ gsub(/\x1B\x3B/, "\033", t)
++ return t
++ }
++}
- END {
-
#___________________________________________________________________________________
-
####################################################################################
-
#___________________________________________________________________________________
- # fn _dirtree(array,pathmask)
- #
- # Return in `array' file tree from pathmask:
- # array["file.filerdne"]="size date time"
- # array["subdir.filerd"]["file.filerdne"]="size
date time"
- # array["subdir.filerd"]["file.filerd"][...]
- #
- # The array will be cleared before any action.
Function return pathmask w/o ltabspc and rtabspc.
-
#___________________________________________________________________________________
- # OK: change internal function's names to: w\o "_"
- # OK: FLENGTH: should cover r-spcs
- # OK: optimize REXP
- # OK: add new symbols to dir/file names ( ! and + )
- # OK: create _getfilepath()
- # OK: del - conflict with WROOTDIR (do not update it)
- # OK: dir/del - support for filemask ( * and ? )
- # OK: how to define code injections: header\ender;
and HANDLERS
- # OK: units in header\ender? conline division...
- # OK: _FILEPATH problem: it will not been defined at
the moment when subscript0 starts - at the start TMPRD="_tmp"
- # OK: del: if del("dir\\") - then all ok except it
NOT deleted "dir\\" - _del function removed(renamed to __del)
- # OK: tmpdirs: it delete only autotmp dir and only
from script0
- # OK: MICROTEST: global testing of filepath
(UNC! CORRECT RESULTS! )
- # question about cache: did new just now generated
absolute filepath cached in FILECACHE? its seems like NO
- # check _untmp: CONFLICT: if file or dir from autotmp dir will
be untmp then it anyway will be deleted; but file or dir from other point never
be deleted anyway - so what is the point of untmp?????
- #ERRLOG: _setmpath: warning!!!!!
-
#___________________________________________________________________________________
-
####################################################################################
- # PUBLIC:
-
#___________________________________________________________________________________
- #
- # fn _rdfile(_filepath)
- #
- # Read and return data from file specified in
_filepath.
- # If _filepath=="" then no action occured
and return "".
- # Function read and return data from
file. No any changes in data occured.
- # Function use _filerdne function
internally. If some syntax error
- # found in _filepath then
function return "".
- # If some error occured while reading
data from file then fuction return ""
- # and error-text is in ERRNO(and
no close-file action will be occured!).
- # If reading data completed successfully
then function try to close
- # file and if while closing file
some error occured then function
- # returns "" and error-text is in
ERRNO.
- # Otherwise function returns readed data.
-
#_____________________________________________________________________________
- #
- # fn _wrfile(_filepath,_data)
- #
- # Write data into file specified in _filepath.
- # If _filepath=="" then no action occured
and return "".
- # Function write _data to file. No any
changes in data occured.
- # Function use _filerdne function
internally. If some syntax error
- # found in _filepath then
function return "".
- # If some error occured while writing
data to file then fuction return ""
- # and error-text is in ERRNO(and
no close-file action will be occured!).
- # If writing data completed successfully
then function try to close
- # file and if while closing file
some error occured then function
- # returns "" and error-text is in
ERRNO.
- # Otherwise function returns
_filepath(re-processed).
-
#___________________________________________________________________________________
- #
- # fn _filepath(_filepath)
- #
- # Return re-processed root-dir-name-ext of
_filepath.
- # If _filepath=="" then no action occured
and return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#_____________________________________________________________________________
- #
- # fn _filerdne(_filepath)
- #
- # Return re-processed root-dir-filename of
_filepath.
- # If _filepath=="" then no action occured
and return "".
- # Function return result only if in
_filepath present file-name(name
- # and/or extension) - otherwise
its return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#_____________________________________________________________________________
- #
- # fn _filerdn(_filepath)
- #
- # Return re-processed root-dir-name of _filepath.
- # If _filepath=="" then no action occured
and return "".
- # Function return result only if in
_filepath present name field -
- # - otherwise its return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#_____________________________________________________________________________
- #
- # fn _filerd(_filepath)
- #
- # Return re-processed root-dir of _filepath.
- # If _filepath=="" then no action occured
and return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#_____________________________________________________________________________
- #
- # fn _filer(_filepath)
- #
- # Return re-processed root of _filepath.
- # If _filepath=="" then no action occured
and return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#_____________________________________________________________________________
- #
- # fn _filed(_filepath)
- #
- # Return re-processed dir of _filepath.
- # If _filepath=="" then no action occured
and return "".
- # There is only one case when dir string
can be =="" - when in
- # _filepath specified unmounted
drive(MS-format) and from-
- # current-location address
used(like Z:file.ext). In this
- # case no rootdir-cache-record
will be created.
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#_____________________________________________________________________________
- # fn _filene(_filepath)
- #
- # Return re-processed name-ext of _filepath.
- # If _filepath=="" then no action occured
and return "".
- # Function return result only if in
_filepath present file-name(name
- # and/or extension) - otherwise
its return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#_____________________________________________________________________________
- #
- # fn _filen(_filepath)
- #
- # Return re-processed name of _filepath.
- # If _filepath=="" then no action occured
and return "".
- # Function return result only if in
_filepath present name field -
- # - otherwise its return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#_____________________________________________________________________________
- #
- # fn _file(_filepath)
- #
- # Return re-processed ext of _filepath.
- # If _filepath=="" then no action occured
and return "".
- # Function return result only if in
_filepath present ext field -
- # - otherwise its return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
-
#___________________________________________________________________________________
- #
- # fn _dir(_ARR,_filepathmask)
- #
- # Get file-/folder-list of root-folder of
_filepathmask.
- # If _filepathmask=="" then no action
occured and return "".
- # _filepathmask can contain symbols like
`*' and `?' as like
- # its used in `dir'-shell command.
- # Function gets file-/folder-list of
specified root-dir-_filepathmask
- # and return this list in array
_ARR - where each element:
- #
- # index - is the _filepath of
file-or-folder name-ext
- # value - contains 3 fields separated by
" ":
- # 1. =="D" if this is folder
- # ==/[0-9]+/ if this is file -
size of file in bytes
- # 2. ==date-of-creation of file
or folder
- # 3. ==time-of-creation of file
or folder
- #
- # Function returns quantity of items in
ARR.
-
#___________________________________________________________________________________
- #
- # fn _filexist(_filepath)
- #
- # Test if file or path or drive specified in
_filepath is exist.
- # If _filepath=="" then no action
occured and return "".
- # If some syntax error found in
_filepath then function return ""
- # (and NO _filepath-cache-record will be
created!).
- # Function returns _filepath if
_filepath is exist. Otherwise
- # function return 0.
-
#_____________________________________________________________________________
- #
- # fn _filenotexist(_filepath)
- #
- # Test if file or path or drive specified in
_filepath is not exist.
- # If _filepath=="" then no action occured
and return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
- # Function returns 1 if _filepath is not
exist. Otherwise function
- # return 0.
-
#_____________________________________________________________________________
- #
- # fn _newdir(_filepath)
- #
- # Create path specified in root-dir-_filepath.
- # If _filepath=="" then no action occured
and return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
- # Function returns root-dir of _filepath.
-
#_______________________________________________________________________
- #
- # fn _newdir(_filepath)
- #
- # Create path specified in root-dir-_filepath. If
this folder
- # already exist then it will be completely
cleared.
- # If _filepath=="" then no action occured
and return "".
- # If some syntax error found in _filepath
then function return ""
- # (and NO _filepath-cache-record
will be created!).
- # Function returns root-dir of _filepath.
-
#___________________________________________________________________________________
- #
- # fn _getmpfile(_filepath,_currfilepath)
- #
- # Return ....
- #
-
#_____________________________________________________________________________
- #
- # fn _getmpdir(_filepath,_currfilepath)
- #
- # Return ...
- #
-
#_____________________________________________________________________________
- #
- # Temporary files folder.
- #
- # Temporary files folder location is defined by
_FILEIO_TMPRD.
- # If it wasn't been initialized before program
run or not been initialized
- # by ENVIRON["TMPDIR"] then it will
defined as the:
- # `current rootdir(stored in
_FILEIO_RD)\programname.TMP'
- # In this case if its already exist then
it will completely cleared when _FILEIO
- # library initialization processed.
- # And at the program uninitialization
processed it will completely
- # cleared if _FILEIO_TMPCLRFLAG is true.
-
#___________________________________________________________________________________
- #
- # var _FILEIO_RD (ENVIRON["CD"])
- #
- # This var can be set before running program. It
can contain path which
- # will be used as default current dir while
program run.
- # If this var is set before program runs - then
it will be refreshed by the
- # _filerd it will be used as default
current dir while program run.
- # If this var is not set before program runs -
then ENVIRON["CD"] can also
- # set up default current dir while
program run. If it set before program
- # begin then it will be refreshed by the
_filerd - and also writed into
- # _FILEIO_RD.
- # If both _FILEIO_RD and ENVIRON["CD"] are not
set before program begins
- # then real current root\dir will be
writed into both _FILEIO_RD and
- # ENVIRON["CD"] and it will be used as
default current dir while program run.
- #
-
#___________________________________________________________________________________
- #
- # var _FILEIO_TMPRD (ENVIRON["TMPRD"])
- #
- # This var can be set before running program. It
can contain path which
- # will be used as default temporary files
root-folder while program run.
- # If this var is set before program runs - then
it will be refreshed by the
- # _filerd - and also writed into
ENVIRON["TMPRD"].
- # If this var is not set before program runs -
then ENVIRON["TMPRD"] can also
- # set up default temporary files
root-folder while program run. If it set
- # before program begin then it will be
refreshed by the _filerd - and
- # also writed into _FILEIO_TMPRD.
- # If both _FILEIO_TMPRD and ENVIRON["TMPRD"] are
not set before program begins
- # then new folder into path specified by
the _FILEIO_RD(after its handling)
- # will be writed into both _FILEIO_TMPRD
and ENVIRON["TMPRD"] and it
- # will be used as default temporary files
root-folder while program run.
-
#___________________________________________________________________________________
- #
- # var _FILEPATH
- #
- # This var contain filepath of working script. It
should be setting up externally.
- #
- # var _gawk_scriptlevel
-
#___________________________________________________________________________________
-
####################################################################################
-
###############################################################################
- if (_constatstrln > 0) {
- _constat()
- }
- }
-
-
- # Functions, listed alphabetically
-
- function W(p, p0, p1)
- {
- if (isarray(p0)) {
-
#_______________________________________________________________________
- #####################################################
- delete p0[p]
- if (isarray(p1)) {
- for (i in p1) {
- if (isarray(p1[i])) {
- p0[p][i][""]
- delete p0[p][i][""]
- _N_i0(p0[p][i], p1[i])
- } else {
- p0[p][i] = p1[i]
- }
++#_________________________________________________________________
++function _Zimparr_i0(A, B, i)
++{
++ return ((i in A ? A[i] B[i] _Zimparr_i0(A, B, i + 1) : ""))
++}
+
- # Functions, listed alphabetically
-
- function W(p, p0, p1)
- {
- if (isarray(p0)) {
- delete p0[p]
- if (isarray(p1)) {
- for (i in p1) {
- if (isarray(p1[i])) {
- p0[p][i][""]
- delete p0[p][i][""]
- _N_i0(p0[p][i], p1[i])
- } else {
- p0[p][i] = p1[i]
- }
++#_________________________________________________________________
++function _Zimparr_i1(D, A, B, i, t, a, n)
++{
++ while (i in B) {
++ if ((t = A[i++]) == "\021\021") {
++ return i
++ }
++ gsub(/\x1B\x30/, "\020", t)
++ if ((a = index(t, "\021")) > 0) {
++ if (isarray(D[n = _Zimparr_i2(substr(t, 1, a - 1))])) {
++ delete D[n]
++ }
++ D[n] = _Zimparr_i2(substr(t, a + 1))
++ } else {
++ if (! isarray(D[t = _Zimparr_i2(t)])) {
++ delete D[t]
++ D[t][""]
++ delete D[t][""]
++ }
++ i = _Zimparr_i1(D[t], A, B, i)
++ }
++ }
++}
++
++#_________________________________________________________________
++function _Zimparr_i2(t)
++{
++ gsub(/\x1B\x31/, "\021", t)
++ gsub(/\x1B\x3B/, "\033", t)
++ return t
++}
++
++#_____________________________________________________________________________
++function _Zimport(t, p, A, c, i, n, B)
++{
++ ##############################################
++ if (p) {
++ c = split(t, B, /\x0A/)
++ for (i = 1; i <= c; i++) {
++ if ((t = B[i]) == "") {
++ continue
++ }
++ gsub(/\x1B\x3A/, "\n", t)
++ if (match(t, /^_ERRLOG: /)) {
++ _tLOG[n = _wLCHLD(p, _N())][""]
++ delete _tLOG[n][""]
++ _Zimparr(_tLOG[n], substr(t, 10))
++ } else {
++ if ((t = _pass(_IMPORT, t, p, A)) != "") {
++ gsub(/\x1B\x3B/, "\033", t)
++ _wLCHLD(p, _N(_tSTR, t))
}
-- return p
}
-- return (p0[p] = p1)
}
-- delete _[p][p0]
-- if (isarray(p1)) {
-- for (i in p1) {
-- if (isarray(p1[i])) {
-- _[p][p0][i][""]
-- delete _[p][p0][i][""]
-- _N_i0(_[p][p0][i], p1[i])
++ return p
++ } else {
++ _expout(t)
++ }
++}
++
++function _acc(A, a, t)
++{
++ if (t) {
++ if (_VLDMAXSTRING < length(t) + length(a)) {
++ if (a) {
++ if (_VLDMAXSTRING < length(t)) {
++ A[--A[_ARRPTR]] = a
++ A[--A[_ARRPTR]] = t
} else {
-- _[p][p0][i] = p1[i]
++ A[--A[_ARRPTR]] = a t
}
++ } else {
++ A[++A[_ARRLEN]] = t
}
-- return p
++ return ""
}
-- return (_[p][p0] = p1)
++ return (a t)
}
++ return a
++}
-- function _ARR(c, t, P)
-- {
-- switch (c) {
-- case "_lib_CMDLN":
-
##########################################################
-
#___________________________________________________________
-- return t
-- case "_lib_APPLY":
-
#___________________________________________________________
-- return
-- case "_lib_HELP":
-
#___________________________________________________________
-- return
-- case "_lib_NAMEVER":
-
#___________________________________________________________
-- return _ln("_ARR 1.0")
-- case "_lib_BEGIN":
-
#___________________________________________________________
-- return
-- case "_lib_END":
-- return
-- }
++function _accmpu(A, a, n)
++{
++ if (n) {
++ return (_mpufn0 = n)
}
--
-- function _BASE(c, t, P, A)
-- {
-- switch (c) {
-- case "_lib_CMDLN":
-- if (match(t, /^((--([Vv])ersion)|(-([Vv])))[ \t]*/, A))
{
-
##########################################################
-- t = substr(t, RLENGTH + 1)
-- _cmdln_version = A[3] A[5]
-- } else {
-- if (match(t, /^((-?\?)|(--help))[ \t]*/)) {
-- t = substr(t, RLENGTH + 1)
-- _cmdln_help = 1
++ if (_mpuacc) {
++ if (_VLDMAXSTRING < length(_mpuacc) + length(a)) {
++ if (a) {
++ if (_VLDMAXSTRING < length(_mpuacc)) {
++ A[--A[_ARRLEN]] = a
++ A[--A[_ARRLEN]] = _mpuacc
} else {
-- if (match(t, /^--[ \t]*/)) {
-- return _endpass(substr(t,
RLENGTH + 1))
-- }
++ A[--A[_ARRLEN]] = a _mpuacc
}
++ } else {
++ A[--A[_ARRLEN]] = _mpuacc
}
-
#___________________________________________________________
-- return t
-- case "_lib_APPLY":
-- if (_cmdln_help) {
-- match(_fbaccr(_LIBAPI, "_lib_HELP"),
/^([^\x00]*)\x00([^\x01]*)\x01(.*)/, A)
-- _out(A[2] A[1] A[3])
-- return _endpass(_basexit_fl = 1)
-- }
-- if (_cmdln_version) {
-- _out(_ln(_PRODUCT_NAME " v" _PRODUCT_VERSION)
_ln(_PRODUCT_COPYRIGHT) _ln() ((_cmdln_version == "v" ? "" : _lib_NAMEVER())))
-- return _endpass(_basexit_fl = 1)
-- }
-
#___________________________________________________________
-- return
-- case "_lib_HELP":
-
#___________________________________________________________
-- return ("\000" _ln(_PRODUCT_NAME " v" _PRODUCT_VERSION)
_ln(_PRODUCT_COPYRIGHT) _ln() _ln(" Usage:") _ln() _ln(" " _PRODUCT_FILENAME
" [/key1 /key2...] [-- cmdline]") _ln() _ln(" keys:") _ln() "\001" _ln(" -v
-V --version - output product version and (if /V) all
modules") _ln(" ? -? --help - output this help page")
_ln(" -- - command line string edge"))
-- case "_lib_NAMEVER":
-
#___________________________________________________________
-- return _ln("_BASE 3.0")
-- case "_lib_BEGIN":
-
#___________________________________________________________
-- return
-- case "_lib_END":
-- return
++ _mpuacc = ""
++ } else {
++ _mpuacc = a _mpuacc
}
++ } else {
++ _mpuacc = a
}
++}
-- function _DS(c, t, P, a, A)
-- {
-- switch (c) {
-- case "_lib_CMDLN":
-
#____________________________________________________________________________
- ######################################################
-
#___________________________________________________________
- #_____________________________________________________
-- return t
-- case "_lib_APPLY":
- #_____________________________________________________
-- return
-- case "_lib_HELP":
- #_____________________________________________________
-- return (_ln() _ln(" Usage: " _PRODUCT_NAME " [/key1
/key2...] sourcefile [cmdline]") _ln())
-- case "_lib_NAMEVER":
- #_____________________________________________________
-- return
-- case "_lib_BEGIN":
- #_____________________________________________________
-- return
-- case "_lib_END":
-- return
++#_______________________________________________________________________
++function _add(S, sf, D, df)
++{
++ ################################################
++ if (sf in S) {
++ if (isarray(S[sf])) {
++ if (df in D) {
++ if (isarray(D[df])) {
++ return _extarr(D[df], S[sf])
++ }
++ delete D[df]
++ }
++ D[df][""]
++ delete D[df][""]
++ return _extarr(D[df], S[sf])
++ } else {
++ if (isarray(D[df])) {
++ delete D[df]
++ }
++ D[df] = D[df] S[sf]
}
}
++}
-- function _END()
-- {
++#_________________________________________________________________
++function _addarr(D, S)
++{
++ #############################################
++ if (isarray(S)) {
++ _addarr_i0(D, S)
}
++}
-- function _ERRLOG(c, t, P, a, b, A)
-- {
-- switch (c) {
-- case "_lib_CMDLN":
-- if (match(t, /^[ \t]*-L:([TtVvIiWwEeFf]*)[ \t]*/, A)) {
-
########################################################
-- t = substr(t, RLENGTH + 1)
-- _errlog_errflkey = _errlog_errflkey A[1]
-- }
-
#_______________________________________________________________________
-- return t
-- case "_lib_APPLY":
-- if (_errlog_errflkey) {
-- split(_errlog_errflkey, A, "")
-- for (a = 1; a in A; a++) {
-- if (A[a] == toupper(A[a])) {
-- b = 1
-- } else {
-- b = ""
-- }
-- switch (toupper(A[a])) {
-- case "T":
-- _ERRLOG_TF = b
-- break
-- case "V":
-- _ERRLOG_VF = b
-- break
-- case "I":
-- _ERRLOG_IF = b
-- break
-- case "W":
-- _ERRLOG_WF = b
-- break
-- case "E":
-- _ERRLOG_EF = b
-- break
-- case "F":
-- _ERRLOG_FF = b
-- break
-- }
++#_____________________________________________________
++function _addarr_i0(D, S, i)
++{
++ for (i in S) {
++ if (isarray(S[i])) {
++ delete D[i]
++ D[i][""]
++ delete D[i][""]
++ _addarr_i0(D[i], S[i])
++ } else {
++ delete D[i]
++ D[i] = S[i]
++ }
++ }
++}
++
++#_______________________________________________________________________
++function _addarrmask(D, S, M)
++{
++ #############################################
++ for (_addarrmaski0 in M) {
++ if (_addarrmaski0 in S) {
++ if (isarray(S[_addarrmaski0])) {
++ if (! isarray(D[_addarrmaski0])) {
++ delete D[_addarrmaski0]
++ D[_addarrmaski0][""]
++ delete D[_addarrmaski0][""]
+ }
- if (_ERRLOG_IF) {
- _info("Log-message types inherited
acc/deny: " "TRACE " ((_ERRLOG_TF ? "ON" : "OFF")) "/" "VERBOSE " ((_ERRLOG_VF
? "ON" : "OFF")) "/" "INFO " ((_ERRLOG_IF ? "ON" : "OFF")) "/" "WARNING "
((_ERRLOG_WF ? "ON" : "OFF")) "/" "ERROR " ((_ERRLOG_EF ? "ON" : "OFF")) "/"
"FATAL " ((_ERRLOG_FF ? "ON" : "OFF")))
++ if (isarray(M[_addarrmaski0])) {
++ _addarrmask(D[_addarrmaski0],
S[_addarrmaski0], M[_addarrmaski0])
++ } else {
++ _extarr_i0(D[_addarrmaski0],
S[_addarrmaski0])
+ }
- if (_ERRLOG_IF) {
- _info("Log-message types inherited
acc/deny: " "TRACE " ((_ERRLOG_TF ? "ON" : "OFF")) "/" "VERBOSE " ((_ERRLOG_VF
? "ON" : "OFF")) "/" "INFO " ((_ERRLOG_IF ? "ON" : "OFF")) "/" "WARNING "
((_ERRLOG_WF ? "ON" : "OFF")) "/" "ERROR " ((_ERRLOG_EF ? "ON" : "OFF")) "/"
"FATAL " ((_ERRLOG_FF ? "ON" : "OFF")))
++ } else {
++ if (isarray(D[_addarrmaski0])) {
++ delete D[_addarrmaski0]
}
++ D[_addarrmaski0] = S[_addarrmaski0]
}
-
#_______________________________________________________________________
-- return
-- case "_lib_HELP":
-
#_______________________________________________________________________
-- return (_ln(" -L:TtVvIiWwEeFf -
enable(upcase: TVIWEF) or disable(lowcase: tviwef) allowable type of") _ln("
log messages.
Trace/Verbose/Informational/Warning/Error/Fatal.") _ln())
-- case "_lib_NAMEVER":
-
#_______________________________________________________________________
-- return _ln("_ERRLOG 1.0")
-- case "_lib_BEGIN":
-- P["_ERRLOG_TF"] = _ERRLOG_TF
-- P["_ERRLOG_VF"] = _ERRLOG_VF
-- P["_ERRLOG_IF"] = _ERRLOG_IF
-- P["_ERRLOG_WF"] = _ERRLOG_WF
-- P["_ERRLOG_EF"] = _ERRLOG_EF
-- P["_ERRLOG_FF"] = _ERRLOG_FF
-- P["_errlog_file"] = "/dev/stderr"
-- return
++ } else {
++ delete D[_addarrmaski0]
}
}
++}
-- function _EXIT()
-- {
-- }
++#___________________________________________________________________________________
++####################################################################################
-- function _EXTFN(c, t, P)
-- {
-- switch (c) {
-- case "_lib_CMDLN":
- ########################################################
-
#___________________________________________________________
-- return t
-- case "_lib_APPLY":
-
#___________________________________________________________
-- return
-- case "_lib_HELP":
-
#___________________________________________________________
-- return
-- case "_lib_NAMEVER":
-
#___________________________________________________________
-- return _ln("_EXTFN 1.0")
-- case "_lib_BEGIN":
-
#___________________________________________________________
-- return
-- case "_lib_END":
-- return
-- }
- }
+
- function _FILEIO(c, t, P, A)
- {
- switch (c) {
- case "_lib_CMDLN":
- if (match(t, /^[ \t]*-[Tt]([\+-])[ \t]*/, A)) {
-
#######################################################
- t = substr(t, RLENGTH + 1)
- if (A[1] == "+") {
- _fileio_notdeltmpflag = 1
- } else {
- _fileio_notdeltmpflag = ""
- }
- }
-
#___________________________________________________________
- return t
- case "_lib_APPLY":
- if (_fileio_notdeltmpflag) {
- _info("Temporary objects deletion DISABLED
(inherited)")
- }
-
#___________________________________________________________
- return
- case "_lib_HELP":
-
#___________________________________________________________
- return (_ln(" -[Tt][+-] -
inherited: +enable\\-disable temporary files\\dirs deletion") _ln())
- case "_lib_NAMEVER":
-
#___________________________________________________________
- return _ln("_FILEIO 2.1")
- case "_lib_BEGIN":
- P["ENVIRON"]["CD"] = ENVIRON["CD"]
- P["_FILEIO_RD"] = _FILEIO_RD
- P["_FILEIO_R"] = _FILEIO_R
- P["_FILEIO_D"] = _FILEIO_D
- if (! ("_FILEIO_TMPRD" in P)) {
- P["_FILEIO_TMPRD"] =
_getmpdir(_filen(P["SOURCE"]) "." ++_egawk_subcntr _CHR["SUBDIR"])
- }
-
#___________________________________________________________
- return
- case "_lib_END":
- return
- }
- }
++#_______________________________________________________________________
++function _addf(A, f)
++{
++ #####################################################
++ A["B"][""] = A["F"][A["B"][f] = A["B"][""]] = f
++}
+
- function _FILEVER(c, t, P, a, A)
- {
- switch (c) {
- case "_lib_CMDLN":
-
############################################################
-
#_____________________________________________________________________________
- #################################################
-
#___________________________________________________________
- #_____________________________________________________
- return t
- case "_lib_APPLY":
- #_____________________________________________________
- return
- case "_lib_HELP":
- #_____________________________________________________
- return
- case "_lib_NAMEVER":
- #_____________________________________________________
- return
- case "_lib_BEGIN":
- #_____________________________________________________
- return
- case "_lib_END":
- return
- }
++#___________________________________________________________
++function _addfile(f, d, a, b)
++{
++ ##################################
++ if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
++ ERRNO = "Filename error"
++ return
+ }
-
- function _Foreach(A, f, p0, i)
- {
- for (i in A) {
- @f(A, i, p0)
- }
++ a = BINMODE
++ BINMODE = "rw"
++ b = ORS
++ ORS = ""
++ ERRNO = ""
++ print(d) >> f
++ if (ERRNO) {
++ return ""
+ }
-
- function _INIT(f)
- {
++ close(f)
++ BINMODE = a
++ ORS = b
++ if (ERRNO) {
++ return ""
+ }
-
- function _INITBASE()
- {
-
#___________________________________________________________________________________
- ################################################################
- _egawk_utilpath = ENVIRON["EGAWK_PATH"] "BIN\\UTIL\\"
++ return d
++}
++
++#_____________________________________________________________________________
++function _addlib(f)
++{
++ ###########################################################
++ _addf(_LIBAPI, f)
++}
++
++#___________________________________________________________________________________
++####################################################################################
++
++
++#_______________________________________________________________________
++function _addlist(A, v)
++{
++ ##################################################
++ A[++A[0]] = v
++}
++
++############################################
++#_______________________________________________________________________
++function _bearray(A)
++{
++ ####################################################
++ if (isarray(A) || A == 0 && A == "") {
++ return 1
}
++}
- function _INSTRUC(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
- ######################################################
-
#___________________________________________________________
- return t
- case "_lib_APPLY":
-
#___________________________________________________________
- return
- case "_lib_HELP":
-
#___________________________________________________________
- return
- case "_lib_NAMEVER":
-
#___________________________________________________________
- return _ln("_INSTRUC 1.0")
- case "_lib_BEGIN":
-
#___________________________________________________________
- return
- case "_lib_END":
- return
- }
- }
- function _FILEIO(c, t, P, A)
- {
- switch (c) {
- case "_lib_CMDLN":
- if (match(t, /^[ \t]*-[Tt]([\+-])[ \t]*/, A)) {
- t = substr(t, RLENGTH + 1)
- if (A[1] == "+") {
- _fileio_notdeltmpflag = 1
- } else {
- _fileio_notdeltmpflag = ""
- }
- }
- return t
- case "_lib_APPLY":
- if (_fileio_notdeltmpflag) {
- _info("Temporary objects deletion DISABLED
(inherited)")
- }
- return
- case "_lib_HELP":
- return (_ln(" -[Tt][+-] -
inherited: +enable\\-disable temporary files\\dirs deletion") _ln())
- case "_lib_NAMEVER":
- return _ln("_FILEIO 2.1")
- case "_lib_BEGIN":
- P["ENVIRON"]["CD"] = ENVIRON["CD"]
- P["_FILEIO_RD"] = _FILEIO_RD
- P["_FILEIO_R"] = _FILEIO_R
- P["_FILEIO_D"] = _FILEIO_D
- if (! ("_FILEIO_TMPRD" in P)) {
- P["_FILEIO_TMPRD"] =
_getmpdir(_filen(P["SOURCE"]) "." ++_egawk_subcntr _CHR["SUBDIR"])
++#_________________________________________________________________
++function _bframe(A, t, p)
++{
++ ###########################################
++ return _bframe_i0(A, t, p, A[""])
++}
+
- function _N(F, v, p)
- {
- for (p in _UIDS) {
-
#___________________________________________________________________________________
-
####################################################################################
-
#_____________________________________________________________________________
-
###########################################################
- delete _UIDS[p]
- return _nN_i0(p, F, v)
- }
- return _nN_i0(_tgenuid(), F, v)
- }
++#___________________________________________________________
++function _bframe_i0(A, t, p, f)
++{
++ return ((f ? _bframe_i0(A, t, p, A[f]) (@f(t, p)) : ""))
++}
+
- function _SHORTCUT(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
- #####################################################
-
#___________________________________________________________
- return t
- case "_lib_APPLY":
-
#___________________________________________________________
- return
- case "_lib_HELP":
-
#___________________________________________________________
- return
- case "_lib_NAMEVER":
-
#___________________________________________________________
- return _ln("_shortcut 1.0")
- case "_lib_BEGIN":
-
#___________________________________________________________
- return
- case "_lib_END":
- return
- }
- }
++# add to _dumparr: checking that if element is undefined
+
- function _START(t, i, A)
- {
-
#______________________________________________________________________________________________
-
#########################################################################
- _torexp_init()
- test_uid()
- return
- _conl(patsplit("a,b,c", A, /[^,]/, B))
- test_splitstr()
- return
- A[""]
- _CLASSPTR["ptr"]
- ALTARR["ptra"]
- _conl(_dumparr(SYMTAB))
- BB[1] = _NOP
- zorr(1, 2, 3, 4, 5, 6)
- zorr(BB, 1)
- _rtn()
- _rtn("")
- _rtn(0)
- _rtn("0")
- _rtn(1)
- _rtn("1")
- _rtn(-1)
- _rtn("-1")
- _rtn("huj")
- _rtn("ptr")
- _rtn("ptra", ALTARR)
- _rtn(ALTARR)
- _rtn(ALTARR, ALTARR)
- return
- _tstini()
- return
- # _split_regpath()
- _splitpath_test()
- return
- hh = "CPU"
- _conl("go1!")
- _conl(_var(_sharepath(hh, "gdfsgdsgsd sdgsdighjui
teretiewrotrewut 345345345 rtjtireutireu huj")))
- _conl("go2!")
- _conl(_var(_sharelist(AAA, hh), _dumparr(AAA)))
- _conline()
- A[1] = "h"
- A[3] = "j"
- t = "pizda"
- if (match(t, /^pi(Z)da/, A)) {
- _conl("match")
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++#_______________________________________________________________________
++function _cfguid(p, optr, pfx, sfx, hstrcnt, lstrchr)
++{
++ #################### 0 #
++ delete _UIDOBL[p]
++ if (_isptr(optr)) {
++ if (optr == p) {
++ delete _UIDOBLV[p]
++ delete _UIDOBLV[_UIDOBLV[_UIDOBL[p] = p][""] = p][""]
+ } else {
- _conl("not match")
++ if (optr in _UIDOBL) {
++ _UIDOBL[p] = _UIDOBL[optr]
+ }
- return
- case "_lib_END":
- return
}
- _conl(_dumparr(A))
- return
- _pathSMA = "C:\\Program Files\\Altiris\\Altiris Agent\\"
- DSPlugInPath = _pathSMA "Agents\\Deployment\\Agent\\"
- DSAutoPath = _pathSMA
- if (! _sysinfo(_SYS, _hostname)) {
- _fatal("_sysinfo: unknown error")
- }
- _REG[""]
- delete _REG[""]
- _servoutput = _CHR["EOL"] _cmd("sc query state= all")
- _dsbasepath = "\\\\CPU\\CPU\\DEV\\PROJECT\\_DS\\"
- _rdreg(_REG, "HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris")
- _wrfile("rego.txt", _dumparr(_REG))
-
#_______________________________________________________________________
- _conl("fF")
-
#_________________________________________________________________________________________
- c = _getreg_i1(DDD,
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris Agent\\Plugin
Objects\\\204~.*\224Install path", _REG)
- #pp=_n()
-
#___________________________________________________________________________________
- pp = _n("NAME", "NS")
- p = _defsolution(pp, "DS Plug-in",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris Agent\\Plugin
Objects\\Agents\\")
- ClientConfiguration = _defdll(p, "Client Configuration",
"ClientConfiguration")
- ClientImagingPrep = _defdll(p, "Client Inaging Preparation",
"ClientImagingPrep")
- ClientImaging = _defdll(p, "Client Imaging", "ClientImaging")
- ClientPCT = _defdll(p, "Client PCT", "ClientPCT")
- ClientRebootTo = _defdll(p, "Client Reboot To",
"ClientRebootTo")
- DeploymentAgent = _defdll(p, "Deployment Agent", "Deployment
Agent")
- DeploymentSolutionBaseAgent = _defdll(p, "Deployment Solution
Base Agent", "Deployment Solution Base Agent")
- ClientBCDEdit = _defile(p, "Client BCD Edit",
"ClientBCDEdit.dll")
- ClientCopyFile = _defile(p, "Client Copy File",
"ClientCopyFile.dll")
- ClientPreImage = _defile(p, "Client Pre Image",
"ClientPreImage.dll")
- ClientRebootTo = _defile(p, "Client Reboot To",
"ClientRebootTo.dll")
- _defile(p, "ConfigService.exe", "ConfigService.exe", "")
- _defile(p, "config.dll", "config.dll", "")
- _defsrv(p, "DS Plug-in Service", "Altiris Deployment Solution -
System Configuration")
- _defreg(p, "Deployment Agent Path",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR")
- _defile(p, "Altiris_DeploymentSolutionAgent_7_1_x86.msi",
(_SYS["OSArchitecture"] == "64-bit" ? "C:\\Program Files\\Altiris\\Altiris
Agent\\Agents\\SoftwareManagement\\Software
Delivery\\{9D76E4CA-377A-472D-A82E-EDAD77E7E4ED}\\cache\\Altiris_DeploymentSolutionAgent_7_1_x64.msi"
: "C:\\Program Files\\Altiris\\Altiris
Agent\\Agents\\SoftwareManagement\\Software
Delivery\\{4B747D25-612F-48FC-B6B5-9916D1BB755C}\\cache\\Altiris_DeploymentSolutionAgent_7_1_x86.msi"),
"")
-
#___________________________________________________________________________________
- _defdir(p, "Deployment Folder", a = gensub(/[^\\]*$/, "", 1,
_rdsafe(_REG,
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR",
"C:\\Program Files\\Altiris\\Altiris Agent\\Agents\\Deployment\\Agent\\")))
- p = _defsolution(pp, "DS Auto",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris Agent\\Plugin
Objects\\Agents\\")
- _defdir(p, "C:\\Boot\\Altiris\\iso\\boot\\fonts\\",
"C:\\Boot\\Altiris\\iso\\boot\\fonts\\")
- _defdir(p, "C:\\Boot\\Altiris\\iso\\sources\\",
"C:\\Boot\\Altiris\\iso\\sources\\")
- _defile(p, "C:\\Boot\\Altiris\\iso\\autoinst.exe",
"C:\\Boot\\Altiris\\iso\\autoinst.exe", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\autoinst.ini",
"C:\\Boot\\Altiris\\iso\\autoinst.ini", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\autoutil.exe",
"C:\\Boot\\Altiris\\iso\\autoutil.exe", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\autoutil.ini",
"C:\\Boot\\Altiris\\iso\\autoutil.ini", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\bcdedit.exe",
"C:\\Boot\\Altiris\\iso\\bcdedit.exe", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\bootmgr",
"C:\\Boot\\Altiris\\iso\\bootmgr", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\bootsect.exe",
"C:\\Boot\\Altiris\\iso\\bootsect.exe", "")
- _defreg(p, "Deployment Automation reg.File",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\AutoUtil\\File.XSZ", "autoutil.exe")
-
#_________________________________________________________________________________________
- _defreg(p, "Deployment Automation reg.Path",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\AutoUtil\\Path.XSZ",
"%systemdrive%\\boot\\altiris\\iso")
-
#_________________________________________________________________________________________
- _check(pp)
- _conl(_report(pp))
- _wrfile("report.txt", _report(pp))
- }
-
- function _SYSIO(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
-
#########################################################
-
#___________________________________________________________
- return t
- case "_lib_APPLY":
-
#___________________________________________________________
- return
- case "_lib_HELP":
-
#___________________________________________________________
- return
- case "_lib_NAMEVER":
-
#___________________________________________________________
- return _ln("_SYSIO 1.0")
- case "_lib_BEGIN":
-
#___________________________________________________________
- return
- case "_lib_END":
- return
+ }
-
- function _FILEVER(c, t, P, a, A)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
++ _UIDPFX[p] = (_istr(pfx) ? pfx : "")
++ _UIDSFX[p] = (_istr(sfx) ? sfx : "")
++ if (_isptr(hstrcnt)) {
++ if (hstrcnt != p) {
++ _UIDCHR[p] = _UIDCHR[_UIDCNT[p] = _UIDCNT[hstrcnt]]
++ return p
}
++ hstrcnt = _NOP
}
++ _UIDCNTL[_UIDCNT[p] = p] = _cfguidchr(p, hstrcnt, lstrchr)
++ return p
++}
- function _W(p, A, v)
- {
- if (isarray(v)) {
- if (p) {
-
#_______________________________________________________________________
-
########################################################################
- delete A[p]
- A[p][""]
- delete A[p][""]
- _movarr(A[p], v)
- function _Foreach(A, f, p0, i)
- {
- for (i in A) {
- @f(A, i, p0)
++#_____________________________________________________
++function _cfguidchr(p, h, l, H, L)
++{
++ if (_isptr(l)) {
++ if (l != p) {
++ return (_UIDCHR[p] = _UIDCHR[l])
+ }
++ _UIDCHR[p] = p
++ l = _NOP
++ }
++ _UIDCHR[p] = p
++ _splitstr(H, h, _UIDCHRH[_classys])
++ _splitstr(L, l, H)
++ delete _UIDCHRH[_UIDCHRH[p][""] = p][""]
++ delete _UIDCHRL[_UIDCHRL[p][""] = p][""]
++ _cfguidh(p, H, L)
++ return _cfguidl(p, L, L)
++}
++
++#_______________________________________________
++function _cfguidh(p, H, L, hi, h, li)
++{
++ for (hi = 1; hi in H; hi++) {
++ h = H[hi]
++ for (li = 1; li in L; li++) {
++ _UIDCHRH[p][h L[li]]
++ }
++ }
++}
++
++function _cfguidl(p, H, L, hi, h, hl, li)
++{
++ for (hi = 1; hi in H; hi++) {
++ h = H[hi]
++ for (li = 1; li in L; li++) {
++ hl = _UIDCHRL[p][hl] = h L[li]
++ }
++ }
++ return hl
++}
++
++#____________________________________________________________________________________________________
++function _check(p)
++{
++
####################################################################################
++ _dll_check(p)
++ _file_check(p)
++ _serv_check(p)
++ _reg_check(p)
++}
++
++#_______________________________________________________________________
++function _chrline(t, ts, w, s)
++{
++ #############################################
++ return ((t = " " _tabtospc(t, ts) ((t ? (t ~ /[ \t]$/ ? "" : " ") :
""))) _getchrln((s ? s : "_"), ((w ? w : _CON_WIDTH - 1)) - length(t))
_CHR["EOL"])
++}
++
++#_____________________________________________________________________________
++function _cmd(c, i, A)
++{
++ #######################################################
++ _fio_cmda = RS
++ RS = ".{1,}"
++ _fio_cmdb = BINMODE
++ BINMODE = "rw"
++ ERRNO = RT = _NUL
++ c | getline RS
++ BINMODE = _fio_cmdb
++ RS = _fio_cmda
++ if (ERRNO || 0 > (_exitcode = close(c))) {
++ return (RT = _NOP)
+ }
-
- function _INIT(f)
- {
++ return RT
++}
++
++#_______________________________________________________________________
++function _cmparr(A0, A1, R, a, i)
++{
++ ##########################################
++ a = 0
++ delete R
++ for (i in A0) {
++ if (! (i in A1)) {
++ a++
++ R[i] = 0
++ } else {
++ if (A0[i] != A1[i]) {
++ a++
++ R[i] = 2
+ }
- return p
+ }
- if (p) {
- delete A[p]
- return (A[p] = v)
+ }
-
- function _INITBASE()
- {
- _egawk_utilpath = ENVIRON["EGAWK_PATH"] "BIN\\UTIL\\"
++ for (i in A1) {
++ if (! (i in A0)) {
++ a++
++ R[i] = 1
+ }
- return v
}
++ return a
++}
- function _Zexparr(S, s, t, i)
- {
-
#_______________________________________________________________________
- ##############################################
- t = ""
- if (isarray(S)) {
- for (i in S) {
- t = t ((isarray(S[i]) ? _Zexparr_i1(i) "\020"
_Zexparr_i0(S[i]) "\021\021\020" : _Zexparr_i2(_Zexparr_i3(i) "\021"
_Zexparr_i3(S[i])) "\020"))
- function _INSTRUC(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return _ln("_INSTRUC 1.0")
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
- }
- }
-
- function _N(F, v, p)
- {
- for (p in _UIDS) {
- delete _UIDS[p]
- return _nN_i0(p, F, v)
- }
- return _nN_i0(_tgenuid(), F, v)
- }
-
- function _SHORTCUT(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return _ln("_shortcut 1.0")
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
- }
- }
-
- function _START(t, i, A)
- {
- _torexp_init()
- test_uid()
- return
- _conl(patsplit("a,b,c", A, /[^,]/, B))
- test_splitstr()
- return
- A[""]
- _CLASSPTR["ptr"]
- ALTARR["ptra"]
- _conl(_dumparr(SYMTAB))
- BB[1] = _NOP
- zorr(1, 2, 3, 4, 5, 6)
- zorr(BB, 1)
- _rtn()
- _rtn("")
- _rtn(0)
- _rtn("0")
- _rtn(1)
- _rtn("1")
- _rtn(-1)
- _rtn("-1")
- _rtn("huj")
- _rtn("ptr")
- _rtn("ptra", ALTARR)
- _rtn(ALTARR)
- _rtn(ALTARR, ALTARR)
- return
- _tstini()
- return
- _splitpath_test()
- return
- hh = "CPU"
- _conl("go1!")
- _conl(_var(_sharepath(hh, "gdfsgdsgsd sdgsdighjui
teretiewrotrewut 345345345 rtjtireutireu huj")))
- _conl("go2!")
- _conl(_var(_sharelist(AAA, hh), _dumparr(AAA)))
- _conline()
- A[1] = "h"
- A[3] = "j"
- t = "pizda"
- if (match(t, /^pi(Z)da/, A)) {
- _conl("match")
- } else {
- _conl("not match")
- }
- _conl(_dumparr(A))
- return
- _pathSMA = "C:\\Program Files\\Altiris\\Altiris Agent\\"
- DSPlugInPath = _pathSMA "Agents\\Deployment\\Agent\\"
- DSAutoPath = _pathSMA
- if (! _sysinfo(_SYS, _hostname)) {
- _fatal("_sysinfo: unknown error")
- }
- _REG[""]
- delete _REG[""]
- _servoutput = _CHR["EOL"] _cmd("sc query state= all")
- _dsbasepath = "\\\\CPU\\CPU\\DEV\\PROJECT\\_DS\\"
- _rdreg(_REG, "HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris")
- _wrfile("rego.txt", _dumparr(_REG))
- _conl("fF")
- c = _getreg_i1(DDD,
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris Agent\\Plugin
Objects\\\204~.*\224Install path", _REG)
- pp = _n("NAME", "NS")
- p = _defsolution(pp, "DS Plug-in",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris Agent\\Plugin
Objects\\Agents\\")
- ClientConfiguration = _defdll(p, "Client Configuration",
"ClientConfiguration")
- ClientImagingPrep = _defdll(p, "Client Inaging Preparation",
"ClientImagingPrep")
- ClientImaging = _defdll(p, "Client Imaging", "ClientImaging")
- ClientPCT = _defdll(p, "Client PCT", "ClientPCT")
- ClientRebootTo = _defdll(p, "Client Reboot To",
"ClientRebootTo")
- DeploymentAgent = _defdll(p, "Deployment Agent", "Deployment
Agent")
- DeploymentSolutionBaseAgent = _defdll(p, "Deployment Solution
Base Agent", "Deployment Solution Base Agent")
- ClientBCDEdit = _defile(p, "Client BCD Edit",
"ClientBCDEdit.dll")
- ClientCopyFile = _defile(p, "Client Copy File",
"ClientCopyFile.dll")
- ClientPreImage = _defile(p, "Client Pre Image",
"ClientPreImage.dll")
- ClientRebootTo = _defile(p, "Client Reboot To",
"ClientRebootTo.dll")
- _defile(p, "ConfigService.exe", "ConfigService.exe", "")
- _defile(p, "config.dll", "config.dll", "")
- _defsrv(p, "DS Plug-in Service", "Altiris Deployment Solution -
System Configuration")
- _defreg(p, "Deployment Agent Path",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR")
- _defile(p, "Altiris_DeploymentSolutionAgent_7_1_x86.msi",
(_SYS["OSArchitecture"] == "64-bit" ? "C:\\Program Files\\Altiris\\Altiris
Agent\\Agents\\SoftwareManagement\\Software
Delivery\\{9D76E4CA-377A-472D-A82E-EDAD77E7E4ED}\\cache\\Altiris_DeploymentSolutionAgent_7_1_x64.msi"
: "C:\\Program Files\\Altiris\\Altiris
Agent\\Agents\\SoftwareManagement\\Software
Delivery\\{4B747D25-612F-48FC-B6B5-9916D1BB755C}\\cache\\Altiris_DeploymentSolutionAgent_7_1_x86.msi"),
"")
- _defdir(p, "Deployment Folder", a = gensub(/[^\\]*$/, "", 1,
_rdsafe(_REG,
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR",
"C:\\Program Files\\Altiris\\Altiris Agent\\Agents\\Deployment\\Agent\\")))
- p = _defsolution(pp, "DS Auto",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Altiris Agent\\Plugin
Objects\\Agents\\")
- _defdir(p, "C:\\Boot\\Altiris\\iso\\boot\\fonts\\",
"C:\\Boot\\Altiris\\iso\\boot\\fonts\\")
- _defdir(p, "C:\\Boot\\Altiris\\iso\\sources\\",
"C:\\Boot\\Altiris\\iso\\sources\\")
- _defile(p, "C:\\Boot\\Altiris\\iso\\autoinst.exe",
"C:\\Boot\\Altiris\\iso\\autoinst.exe", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\autoinst.ini",
"C:\\Boot\\Altiris\\iso\\autoinst.ini", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\autoutil.exe",
"C:\\Boot\\Altiris\\iso\\autoutil.exe", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\autoutil.ini",
"C:\\Boot\\Altiris\\iso\\autoutil.ini", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\bcdedit.exe",
"C:\\Boot\\Altiris\\iso\\bcdedit.exe", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\bootmgr",
"C:\\Boot\\Altiris\\iso\\bootmgr", "")
- _defile(p, "C:\\Boot\\Altiris\\iso\\bootsect.exe",
"C:\\Boot\\Altiris\\iso\\bootsect.exe", "")
- _defreg(p, "Deployment Automation reg.File",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\AutoUtil\\File.XSZ", "autoutil.exe")
- _defreg(p, "Deployment Automation reg.Path",
"HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\AutoUtil\\Path.XSZ",
"%systemdrive%\\boot\\altiris\\iso")
- _check(pp)
- _conl(_report(pp))
- _wrfile("report.txt", _report(pp))
- }
-
- function _SYSIO(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return _ln("_SYSIO 1.0")
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
- }
- }
-
- function _W(p, A, v)
- {
- if (isarray(v)) {
- if (p) {
- delete A[p]
- A[p][""]
- delete A[p][""]
- _movarr(A[p], v)
++#_____________________________________________________________________________
++function _con(t, ts, a, b, c, d, i, r, A, B)
++{
++ ##########################################
++ d = RLENGTH
++ if ((c = split(r = t, A, /\x0D?\x0A/, B)) > 0) {
++ a = BINMODE
++ b = ORS
++ BINMODE = "rw"
++ ORS = ""
++ if (c > 1) {
++ if ((i = length(t = _tabtospc(A[1], ts, _conlastrln)))
< _constatstrln) {
++ t = t _getchrln(" ", _constatstrln - i)
}
- return p
- }
- if (p) {
- delete A[p]
- return (A[p] = v)
- }
- return v
- }
-
- function _Zexparr(S, s, t, i)
- {
- t = ""
- if (isarray(S)) {
- for (i in S) {
- t = t ((isarray(S[i]) ? _Zexparr_i1(i) "\020"
_Zexparr_i0(S[i]) "\021\021\020" : _Zexparr_i2(_Zexparr_i3(i) "\021"
_Zexparr_i3(S[i])) "\020"))
++ print(t B[1]) > _SYS_STDCON
++ for (i = 2; i < c; i++) {
++ print(_tabtospc(A[i], ts) B[i]) > _SYS_STDCON
+ }
++ print(_conlastr = _tabtospc(A[c], ts)) > _SYS_STDCON
++ fflush(_SYS_STDCON)
++ } else {
++ print(t = _tabtospc(t, ts, _conlastrln)) > _SYS_STDCON
++ fflush(_SYS_STDCON)
++ _conlastr = _conlastr t
}
-- if (s != "") {
-- gsub(/\x1B/, "\033;", s)
-- gsub(/\x10/, "\0330", s)
-- t = t "\021\021\020" s
++ if ((i = length(_conlastr)) >= _CON_WIDTH) {
++ _conlastr = substr(_conlastr, 1 + int(i / _CON_WIDTH) *
_CON_WIDTH)
}
-- gsub(/\x0A/, "\033:", t)
-- return t
-- }
--
-- function _Zexparr_i0(S, t, i)
-- {
-- for (i in S) {
-
#_________________________________________________________________
-- t = t ((isarray(S[i]) ? _Zexparr_i1(i) "\020"
_Zexparr_i0(S[i]) "\021\021\020" : _Zexparr_i2(_Zexparr_i3(i) "\021"
_Zexparr_i3(S[i])) "\020"))
++ _conlastrln = length(_conlastr)
++ if (_constatstr) {
++ print((t = _constatgtstr(_constatstr, _CON_WIDTH - 1 -
_conlastrln)) _CHR["CR"] _conlastr) > _SYS_STDCON
++ fflush(_SYS_STDCON)
++ _constatstrln = length(t)
}
-- return t
-- }
--
-- function _Zexparr_i1(t)
-- {
-
#_________________________________________________________________
-- gsub(/\x1B/, "\033;", t)
-- gsub(/\x11/, "\0331", t)
-- gsub(/\x10/, "\0330", t)
-- return t
++ BINMODE = a
++ ORS = b
++ RLENGTH = d
++ return r
}
--
-- function _Zexparr_i2(t)
-- {
-
#_________________________________________________________________
-- gsub(/\x10/, "\0330", t)
-- return t
++ RLENGTH = d
++}
++
++#_______________________________________________________________________
++function _conin(t, a, b)
++{
++ #################################################
++ _constatpush()
++ _constat()
++ a = BINMODE
++ b = RS
++ BINMODE = "rw"
++ RS = "\n"
++ _con(t)
++ getline t < "CON"
++ close("CON")
++ _conlastrln = 0
++ _conlastr = ""
++ gsub(/[\x0D\x0A]+/, "", t)
++ BINMODE = a
++ RS = b
++ _constatpop()
++ return t
++}
++
++#_______________________________________________________________________
++function _conl(t, ts)
++{
++ ####################################################
++ return _con(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])), ts)
++}
++
++#_______________________________________________________________________
++function _conline(t, ts)
++{
++ #################################################
++ return _con(_chrline(t, ts))
++}
++
++#___________________________________________________________________________________
++####################################################################################
++
++
++
++function _conlq(t, ts)
++{
++ return _conl("`" t "'", ts)
++}
++
++#_______________________________________________________________________
++function _constat(t, ts, ln, a)
++{
++ ###########################################
++ if (_constatstrln > (ln = length(t = _constatgtstr(_constatstr =
_tabtospc(t, ts), _CON_WIDTH - 1 - _conlastrln)))) {
++ t = t _getchrln(" ", _constatstrln - ln)
++ }
++ _constatstrln = ln
++ ln = ORS
++ a = BINMODE
++ BINMODE = "rw"
++ ORS = ""
++ print(t _CHR["CR"] _conlastr) > _SYS_STDCON
++ fflush(_SYS_STDCON)
++ ORS = ln
++ BINMODE = a
++ return _constatstr
++}
++
++#_________________________________________________________________
++function _constatgtstr(t, ln, a, b)
++{
++ if (ln < 1) {
++ return ""
}
--
-- function _Zexparr_i3(t)
-- {
-
#_________________________________________________________________
-- gsub(/\x1B/, "\033;", t)
-- gsub(/\x11/, "\0331", t)
++ if ((a = length(t)) <= ln) {
return t
}
--
-- function _Zimparr(D, t, A, B)
-- {
-- if (isarray(D)) {
-
#_______________________________________________________________________
- ##############################################
-- split(t, A, /\x10/, B)
-- t = _Zimparr_i0(A, B, _Zimparr_i1(D, A, B, 1))
-- gsub(/\x1B\x30/, "\020", t)
-- gsub(/\x1B\x3B/, "\033", t)
-- return t
-- }
-- }
--
-- function _Zimparr_i0(A, B, i)
-- {
-
#_________________________________________________________________
-- return ((i in A ? A[i] B[i] _Zimparr_i0(A, B, i + 1) : ""))
-- }
--
-- function _Zimparr_i1(D, A, B, i, t, a, n)
-- {
-- while (i in B) {
-
#_________________________________________________________________
-- if ((t = A[i++]) == "\021\021") {
-- return i
-- }
-- gsub(/\x1B\x30/, "\020", t)
-- if ((a = index(t, "\021")) > 0) {
-- if (isarray(D[n = _Zimparr_i2(substr(t, 1, a -
1))])) {
-- delete D[n]
-- }
-- D[n] = _Zimparr_i2(substr(t, a + 1))
++ if (ln < 11) {
++ return substr(t, a - ln + 1)
++ }
++ if (ln < 19) {
++ return ("..." substr(t, a - ln + 4))
++ }
++ return (substr(t, 1, b = int((ln - 3) / 2)) "..." substr(t, a - ln + b
+ 4))
++}
++
++#_______________________________________________________________________
++function _constatpop()
++{
++ ##################################################
++ if (_CONSTATPUSH[0] > 0) {
++ return _constat(_CONSTATPUSH[_CONSTATPUSH[0]--])
++ }
++ return _constat("")
++}
++
++#_______________________________________________________________________
++function _constatpush(t, ts)
++{
++ #############################################
++ _CONSTATPUSH[++_CONSTATPUSH[0]] = _constatstr
++ if (t) {
++ _constat(t, ts)
++ }
++ return _constatstr
++}
++
++#___________________________________________________________________________________
++function _creport(p, t, f, z)
++{
++ _[p]["REPORT"] = _[p]["REPORT"] _ln(t ((f == "" ? "" : ": " f)))
++}
++
++#_________________________________________________________________________________________
++function _defdir(pp, n, f, v, p)
++{
++ #############################################################
++ _[p = _wLCHLD(pp, _n("TYPE", "defdir"))]["NAME"] = n
++ _[p]["DIR"] = f
++ return p
++}
++
++#_________________________________________________________________________________________
++function _defdll(pp, n, rn, p)
++{
++ ##############################################################
++ _[p = _wLCHLD(pp, _n("TYPE", "defdll"))]["NAME"] = n
++ _[p]["REGPATH"] = _[pp]["REGPATH"] rn
++ _[p]["ERRHOST"] = pp
++ return p
++}
++
++#___________________________________________________________
++function _defescarr(D, r, S, i, c, t)
++{
++ if (isarray(S)) {
++ for (i = 0; i < 256; i++) {
++ if ((c = _CHR[i]) ~ r) {
++ D[c] = "\\" S[c]
++ t = t c
} else {
-- if (! isarray(D[t = _Zimparr_i2(t)])) {
-- delete D[t]
-- D[t][""]
-- delete D[t][""]
++ if (D[c] == "") {
++ D[c] = c
}
-- i = _Zimparr_i1(D[t], A, B, i)
}
}
-- }
--
-- function _Zimparr_i2(t)
-- {
-
#_________________________________________________________________
-- gsub(/\x1B\x31/, "\021", t)
-- gsub(/\x1B\x3B/, "\033", t)
-- return t
-- }
--
-- function _Zimport(t, p, A, c, i, n, B)
-- {
-- if (p) {
-
#_____________________________________________________________________________
- ##############################################
-- c = split(t, B, /\x0A/)
-- for (i = 1; i <= c; i++) {
-- if ((t = B[i]) == "") {
-- continue
++ } else {
++ for (i = 0; i < 256; i++) {
++ if ((c = _CHR[i]) ~ r) {
++ D[c] = S c
++ if (S != "") {
++ t = t c
}
-- gsub(/\x1B\x3A/, "\n", t)
-- if (match(t, /^_ERRLOG: /)) {
-- _tLOG[n = _wLCHLD(p, _N())][""]
-- delete _tLOG[n][""]
-- _Zimparr(_tLOG[n], substr(t, 10))
-- } else {
-- if ((t = _pass(_IMPORT, t, p, A)) !=
"") {
-- gsub(/\x1B\x3B/, "\033", t)
-- _wLCHLD(p, _N(_tSTR, t))
-- }
++ } else {
++ if (D[c] == "") {
++ D[c] = c
}
}
-- return p
++ }
++ }
++ return t
++}
++
++#_________________________________________________________________________________________
++function _defile(pp, n, f, v, p)
++{
++ #############################################################
++ _[p = _wLCHLD(pp, _n("TYPE", "defile"))]["NAME"] = n
++ _[p]["FILE"] = f
++ if (! (v == 0 && v == "")) {
++ _[p]["RQVERSION"] = v
++ }
++ return p
++}
++
++#_______________________________________________________________________
++function _defn(f, c, v)
++{
++ ###################################################
++ FUNCTAB[c f] = v
++}
++
++#_________________________________________________________________________________________
++function _defreg(pp, n, f, v, p)
++{
++ #############################################################
++ _[p = _wLCHLD(pp, _n("TYPE", "defreg"))]["NAME"] = n
++ _[p]["REGPATH"] = f
++ if (! (v == 0 && v == "")) {
++ _[p]["VALUE"] = v
++ }
++}
++
++#_______________________________________________________________________________________________
++function _defsolution(pp, n, rn, p)
++{
++ ###############################################################
++ _[p = _wLCHLD(pp, _n("TYPE", "solution"))]["NAME"] = n
++ _[p]["REGPATH"] = rn
++ _[p]["ERRHOST"] = pp
++ return p
++}
++
++#_________________________________________________________________________________________
++function _defsrv(pp, n, f, v, p)
++{
++ #############################################################
++ _[p = _wLCHLD(pp, _n("TYPE", "defsrv"))]["NAME"] = n
++ _[p]["SERVNAME"] = f
++ return p
++}
++
++#_______________________________________________________________________
++function _del(f, c, a, A)
++{
++ #################################################
++ if (match(f, /\\[ \t]*$/)) {
++ if ((c = toupper(_filerd(f))) && length(f) == FLENGTH) {
++ _cmd("rd " c " /S /Q 2>NUL")
++ _deletepfx(_WFILEROOTDIR, c)
++ _deletepfx(_FILEIO_RDTMP, c)
++ _deletepfx(_FILEIO_RDNETMP, c)
} else {
-- _expout(t)
++ _conl("HUJ TEBE!")
++ return ""
}
++ } else {
++ a = _dir(A, f)
++ _cmd("del " f " /Q 2>NUL")
++ for (c in A) {
++ if (c ~ /\\$/) {
++ _cmd("rd " c " /S /Q 2>NUL")
++ _deletepfx(_WFILEROOTDIR, c)
++ _deletepfx(_FILEIO_RDTMP, c)
++ }
++ _deletepfx(_FILEIO_RDNETMP, c)
++ }
++ }
++ return a
++}
++
++#_______________________________________________________________________
++function _delay(t, a)
++{
++ ###################################################
++ for (a = 1; a <= t; a++) {
++ _delayms()
++ }
++}
++
++#_________________________________________________________________
++function _delayms(a)
++{
++ #############################################
++ for (a = 1; a <= _delay_perfmsdelay; a++) {
++ }
++}
++
++#_______________________________________________________________________
++function _deletepfx(A, f, B, le, i)
++{
++ ########################################
++ le = length(f)
++ for (i in A) {
++ if (substr(toupper(i), 1, le) == f) {
++ B[i] = A[i]
++ delete A[i]
++ }
++ }
++}
++
++#_________________________________________________________________
++function _delf(A, f)
++{
++ ###############################################
++ A["B"][A["F"][A["B"][f]] = A["F"][f]] = A["B"][f]
++ delete A["F"][f]
++ delete A["B"][f]
++}
++
++#_______________________________________________________________________
++function _deluid(p)
++{
++ ################################################# 1 #
++ if (p in _CLASSPTR) {
++ _deluida0 = _CLASSPTR[p]
++ if (_deluida0 in _UIDOBL) {
++ _UIDOBLV[_UIDOBL[_deluida0]][p]
++ }
++ }
++ delete _CLASSPTR[p]
++ return _deluida0
++}
++
++#_______________________________________________________________________
++function _dir(A, rd, i, r, f, ds, pf, B, C)
++{
++ ####################################
++ delete A
++ gsub(/(^[ \t]*)|([ \t]*$)/, "", rd)
++ if (rd == "") {
++ return ""
}
--
-- function _acc(A, a, t)
-- {
-- if (t) {
-- if (_VLDMAXSTRING < length(t) + length(a)) {
-- if (a) {
-- if (_VLDMAXSTRING < length(t)) {
-- A[--A[_ARRPTR]] = a
-- A[--A[_ARRPTR]] = t
-- } else {
-- A[--A[_ARRPTR]] = a t
-- }
++ i = split(_cmd("dir \"" rd "\" 2>NUL"), B, /\x0D?\x0A/) - 3
++ pf = (match(B[4], /Directory of ([^\x00-\x1F]+)/, C) ? C[1] ((C[1] ~
/\\$/ ? "" : "\\")) : "")
++ for (r = 0; i > 5; i--) {
++ if (match(B[i], /^([^ \t]*)[ \t]+([^ \t]*)[
\t]+((<DIR>)|([0-9\,]+))[ \t]+([^\x00-\x1F]+)$/, C)) {
++ if (C[6] !~ /^\.\.?$/) {
++ if (C[4]) {
++ ds = "D "
} else {
-- A[++A[_ARRLEN]] = t
++ ds = C[5] " "
++ gsub(/\,/, "", ds)
++ }
++ if ((f = _filepath(pf C[6] ((C[4] ? "\\" :
"")))) != "") {
++ A[f] = ds C[1] " " C[2]
++ r++
}
-- return ""
}
-- return (a t)
}
-- return a
}
--
-- function _accmpu(A, a, n)
-- {
-- if (n) {
-- return (_mpufn0 = n)
-- }
-- if (_mpuacc) {
-- if (_VLDMAXSTRING < length(_mpuacc) + length(a)) {
-- if (a) {
-- if (_VLDMAXSTRING < length(_mpuacc)) {
-- A[--A[_ARRLEN]] = a
-- A[--A[_ARRLEN]] = _mpuacc
-- } else {
-- A[--A[_ARRLEN]] = a _mpuacc
-- }
-- } else {
-- A[--A[_ARRLEN]] = _mpuacc
-- }
-- _mpuacc = ""
++ return r
++}
++
++#_________________________________________________________________
++function _dirtree(A, f, B)
++{
++ #########################################
++ gsub(/(^[ \t]*)|([ \t]*$)/, "", f)
++ delete A
++ A[""]
++ delete A[""]
++ _dirtree_i0(B, 8, split(_cmd("dir \"" f "\" /-C /S 2>NUL"), B,
/\x0D?\x0A/), A, f = _filerd(f))
++ return f
++}
++
++#___________________________________________________________
++function _dirtree_i0(B, i, c, A, f, lf, a, C)
++{
++ delete A[f]
++ A[f][0]
++ delete A[f][0]
++ lf = length(f)
++ for (; i <= c; ) {
++ if (match(B[i], /^[ \t]*Directory of (.+)/, C)) {
++ if (substr(a = _filerd(C[1] "\\"), 1, lf) == f) {
++ i = _dirtree_i0(B, i + 4, c, A[f], a)
} else {
-- _mpuacc = a _mpuacc
++ return i
}
} else {
-- _mpuacc = a
-- }
-- }
--
-- function _add(S, sf, D, df)
-- {
-- if (sf in S) {
-- if (isarray(S[sf])) {
-- if (df in D) {
-
#_______________________________________________________________________
-
################################################
-- if (isarray(D[df])) {
-- return _extarr(D[df], S[sf])
-- }
-- delete D[df]
-- }
-- D[df][""]
-- delete D[df][""]
-- return _extarr(D[df], S[sf])
-- } else {
-- if (isarray(D[df])) {
-- delete D[df]
-- }
-- D[df] = D[df] S[sf]
++ if (match(B[i++], /^([^ \t\-]+)\-([^ \t\-]+)\-([^
\t]+)[ \t]+([^ \t]+)[ \t]+([0-9]+)[ \t]+(.+)$/, C)) {
++ A[f][f C[6]] = C[5] " " C[1] "/"
_CHR["MONTH"][C[2]] "/" C[3] " " C[4]
}
}
}
++ return i
++}
-- function _addarr(D, S)
-- {
-
#_________________________________________________________________
- #############################################
-- if (isarray(S)) {
-- _addarr_i0(D, S)
++#_______________________________________________________________________
++function _dll_check(pp)
++{
++ _dllchktv = ""
++ _missfl = 1
++ _tframe("_dll_check_i0", pp, _REG, pp)
++ #also check that all dll have same version; also check that all dlls
have success and then report that DS plug-in version n - installed
++ if (1 || "AGENT" in _[pp]) {
++ if (_dllchktv != _[pp][".Product Version"]) {
++ _dllerr(_[pp]["AGENT"], "agent version ("
_[pp][".Product Version"] ") do not match all lib versions: " _dllchktv "'")
}
-- }
--
-- function _addarr_i0(D, S, i)
-- {
-- for (i in S) {
-- if (isarray(S[i])) {
-
#_____________________________________________________
-- delete D[i]
-- D[i][""]
-- delete D[i][""]
-- _addarr_i0(D[i], S[i])
-- } else {
-- delete D[i]
-- D[i] = S[i]
-- }
++ } else {
++ if (! _missfl) {
++ _creport(pp, "agent not detected in registry")
++ } else {
++ _dllerr(pp, "agent not detected in registry but some
registry entries exist:")
++ _tframe("_dll_check_i1", pp, pp)
}
}
++}
-- function _addarrmask(D, S, M)
-- {
-- for (_addarrmaski0 in M) {
-- if (_addarrmaski0 in S) {
-- if (isarray(S[_addarrmaski0])) {
-- if (! isarray(D[_addarrmaski0])) {
-
#_______________________________________________________________________
-
#############################################
-- delete D[_addarrmaski0]
-- D[_addarrmaski0][""]
-- delete D[_addarrmaski0][""]
++#_______________________________________________
++function _dll_check_i0(p, R, pp, p2, i, i2, r, f, v, rs, d, tv, tf)
++{
++ if (_[p]["TYPE"] == "defdll") {
++ r = toupper(_[p]["REGPATH"])
++ rs = 0
++ tf = 0
++ tv = ""
++ for (i in R) {
++ if (toupper(substr(i, 1, length(r))) == r) {
++ if ((_chka0 = substr(i, 1 + length(r), 1)) ==
"" || _chka0 == "\\") {
++ rs = 1
++ _missfl = 1
++ _[p]["." substr(gensub(/\....$/, "", 1,
i), i2 = 2 + length(r), length(i) - i2 + 1)] = R[i]
++ if (chka0 != "") {
++ rs = 1
}
-- if (isarray(M[_addarrmaski0])) {
-- _addarrmask(D[_addarrmaski0],
S[_addarrmaski0], M[_addarrmaski0])
++ }
++ }
++ }
++ #{ rs=_missfl=1; _[p]["."
gensub(/^([^\\]+\\)+(.*)\..../,"\\2","G",i)]=R[i] } }
++ if (rs) {
++ if ((i = ".Install Path") in _[p] && (i = ".Product
Version") in _[p]) {
++ _[p]["STATUS"] = "PRESENT"
++ f = _[p][".Install Path"]
++ v = _[p][".Product Version"]
++ if (! (".Module" in _[p])) {
++ _[pp][".Product Version"] = v
++
_VAR["HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR"]
= f
++ _[pp]["AGENT"] = p
++ _creport("OK: DLL DETECTED(" v "): "
substr(_[p]["NAME"], 1, 112))
++ } else {
++ if (_dllchktv == "") {
++ _dllchktv = v
} else {
-- _extarr_i0(D[_addarrmaski0],
S[_addarrmaski0])
++ if (v != _dllchktv) {
++ return _dllerr(p,
"different versions detected: " _dllchktv "!=" v "'")
++ }
}
-- } else {
-- if (isarray(D[_addarrmaski0])) {
-- delete D[_addarrmaski0]
++ ERRNO = ""
++ if (_th1(_[p]["DATA"] = _rdfile(f),
ERRNO)) {
++ delete _[p]["DATA"]
++ return _dllerr(p, "read lib: "
ERRNO, f)
+ }
- D[_addarrmaski0] = S[_addarrmaski0]
++ if (v != (_[p]["VERSION"] =
_getfilever(f))) {
++ return _dllerr(p, "library file
version mismatch: ==`" _[p]["VERSION"] "'; !=`" v "'", f)
+ }
- D[_addarrmaski0] = S[_addarrmaski0]
++ _creport(p, "OK: LIBRARY DETECTED("
v "): " substr(f, 1, 100))
}
} else {
-- delete D[_addarrmaski0]
++ tf = 1
++ _dllerr(p, "registry corrupt: `" i "' not
present")
}
++ } else {
++ _[p]["STATUS"] = "MISSED"
}
}
++}
-- function _addf(A, f)
-- {
-
#___________________________________________________________________________________
-
####################################################################################
-
#_______________________________________________________________________
- #####################################################
-- A["B"][""] = A["F"][A["B"][f] = A["B"][""]] = f
-- }
--
-- function _addfile(f, d, a, b)
-- {
-- if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
-
#___________________________________________________________
- ##################################
-- ERRNO = "Filename error"
-- return
-- }
-- a = BINMODE
-- BINMODE = "rw"
-- b = ORS
-- ORS = ""
-- ERRNO = ""
-- print(d) >> f
-- if (ERRNO) {
-- return ""
-- }
-- close(f)
-- BINMODE = a
-- ORS = b
-- if (ERRNO) {
-- return ""
++#_______________________________________________
++function _dll_check_i1(p, pp, p1, p2, p3, i)
++{
++ if (_[p]["TYPE"] == "defdll") {
++ for (i in _[p]) {
++ if (i ~ /^\./) {
++ _dllerr(pp, " " _[p]["REGPATH"] "\\"
substr(i, 2))
++ }
}
-- return d
}
++}
-- function _addlib(f)
-- {
-
#_____________________________________________________________________________
- ###########################################################
-- _addf(_LIBAPI, f)
++#___________________________________________________________________________________
++function _dllerr(p, t, f)
++{
++ if (t !~ /\x00/) {
++ t = "ERROR: \000" t
}
++ _errfl = 1
++ _[p]["ERROR"] = _[p]["ERROR"] _ln(t ((f == "" ? "" : ": " f)))
++}
-- function _addlist(A, v)
-- {
-
#___________________________________________________________________________________
-
####################################################################################
-
#_______________________________________________________________________
- ##################################################
-- A[++A[0]] = v
-- }
--
-- function _bearray(A)
-- {
- ##############################
-
#_______________________________________________________________________
- ############################################
-
#_______________________________________________________________________
- ####################################################
-- if (isarray(A) || A == 0 && A == "") {
-- return 1
++function _drawuid(p, cn, ch, o)
++{
++ _conl("uid: " p)
++ _conl("\toblptr: " ((p in _UIDOBL ? _UIDOBL[p] "'" : "-")))
++ if (p in _UIDOBL) {
++ if (! _isptr(o = _UIDOBL[p])) {
++ _conl(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> oblptr not
pointer")
++ }
++ if (! isarray(_UIDOBLV[o])) {
++ _conl(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> no OBLV array
at ptr")
}
}
--
-- function _bframe(A, t, p)
-- {
-
#_________________________________________________________________
- ###########################################
-- return _bframe_i0(A, t, p, A[""])
++ _conl("\tprefix: " ((p in _UIDPFX ? _UIDPFX[p] "'" : "-")))
++ _conl("\tsuffix: " ((p in _UIDSFX ? _UIDSFX[p] "'" : "-")))
++ _conl("\tcounters: " (cn = (p in _UIDCNT ? _UIDCNT[p] "'" : "-")))
++ if (cn != "-") {
++ _conl("\t\tcntrL: " _UIDCNTL[_UIDCNT[p]] "'")
++ _conl("\t\tcntrH: " _UIDCNTH[_UIDCNT[p]] "'")
}
--
-- function _bframe_i0(A, t, p, f)
-- {
- #___________________________________________________________
-- return ((f ? _bframe_i0(A, t, p, A[f]) (@f(t, p)) : ""))
++ _conl("\tcharset: " (ch = (p in _UIDCHR ? _UIDCHR[p] "'" : "-")))
++ if (ch != "-") {
++ _conl("chrH: ")
++ _conl(_dumparr(_UIDCHRH[_UIDCHR[p]]))
++ _conl()
++ _conl("chrL: ")
++ _conl(_dumparr(_UIDCHRL[_UIDCHR[p]]))
++ _conl()
}
--
-- function _cfguid(p, optr, pfx, sfx, hstrcnt, lstrchr)
-- {
- # add to _dumparr: checking that if element is undefined
-
#_______________________________________________________________________
- #################### 0 #
-- delete _UIDOBL[p]
-- if (_isptr(optr)) {
-- if (optr == p) {
-- delete _UIDOBLV[p]
-- delete _UIDOBLV[_UIDOBLV[_UIDOBL[p] = p][""] =
p][""]
-- } else {
-- if (optr in _UIDOBL) {
-- _UIDOBL[p] = _UIDOBL[optr]
-- }
++}
++
++#_______________________________________________________________________
++function _dumparr(A, t, lv, a)
++{
++ ############################################
++ b = PROCINFO["sorted_in"]
++ PROCINFO["sorted_in"] = "_lengthsort"
++ if (isarray(A)) {
++ delete _DUMPARR
++ _dumparrc = _dumparrd = ""
++ _dumparr_i1(A, lv = ((lv == "" ? 16 : (lv == 0 || lv + 0 != 0 ?
lv : (lv == "-*" ? -3 : (lv ~ /^\+?\*$/ ? 3 : 16))))) + 0, (lv < 0 ? -1 : 1),
0, _tabtospc(t))
++ PROCINFO["sorted_in"] = a
++ return _retarrd(_DUMPARR, _dumparrd, _dumparrd = "")
++ }
++}
++
++#___________________________________________________________
++function _dumparr_i1(A, lv, ls, ln, t, t2, i, a, f)
++{
++ t2 = _getchrln(" ", length(t))
++ if (ln == lv) {
++ if (ls > 0) {
++ for (i in A) {
++ ++a
}
-- }
-- _UIDPFX[p] = (_istr(pfx) ? pfx : "")
-- _UIDSFX[p] = (_istr(sfx) ? sfx : "")
-- if (_isptr(hstrcnt)) {
-- if (hstrcnt != p) {
-- _UIDCHR[p] = _UIDCHR[_UIDCNT[p] =
_UIDCNT[hstrcnt]]
-- return p
++ } else {
++ for (i in A) {
++ (isarray(A[i]) ? ++a : "")
}
-- hstrcnt = _NOP
}
-- _UIDCNTL[_UIDCNT[p] = p] = _cfguidchr(p, hstrcnt, lstrchr)
-- return p
++ if (length(_dumparrd = _dumparrd t ((a > 0 ? " ... (x" a ")" :
"")) _CHR["EOL"]) > 262144) {
++ _DUMPARR[++_dumparrc] = _dumparrd
++ _dumparrd = ""
++ }
++ return
}
--
-- function _cfguidchr(p, h, l, H, L)
-- {
-- if (_isptr(l)) {
- #_____________________________________________________
-- if (l != p) {
-- return (_UIDCHR[p] = _UIDCHR[l])
++ if (ls >= 0) {
++ for (i in A) {
++ if (! isarray(A[i])) {
++ if (length(_dumparrd = _dumparrd ((f ? t2 : t
_nop(f = 1))) "[" i "]=" A[i] "'" _CHR["EOL"]) > 262144) {
++ _DUMPARR[++_dumparrc] = _dumparrd
++ _dumparrd = ""
++ }
}
-- _UIDCHR[p] = p
-- l = _NOP
}
-- _UIDCHR[p] = p
-- _splitstr(H, h, _UIDCHRH[_classys])
-- _splitstr(L, l, H)
-- delete _UIDCHRH[_UIDCHRH[p][""] = p][""]
-- delete _UIDCHRL[_UIDCHRL[p][""] = p][""]
-- _cfguidh(p, H, L)
-- return _cfguidl(p, L, L)
-- }
--
-- function _cfguidh(p, H, L, hi, h, li)
-- {
-- for (hi = 1; hi in H; hi++) {
- #_______________________________________________
-- h = H[hi]
-- for (li = 1; li in L; li++) {
-- _UIDCHRH[p][h L[li]]
-- }
++ }
++ for (i in A) {
++ if (isarray(A[i])) {
++ _dumparr_i1(A[i], lv, ls, ln + ls, _th0((f ? t2 : t), f
= 1) "[" i "]")
}
}
--
-- function _cfguidl(p, H, L, hi, h, hl, li)
-- {
-- for (hi = 1; hi in H; hi++) {
-- h = H[hi]
-- for (li = 1; li in L; li++) {
-- hl = _UIDCHRL[p][hl] = h L[li]
-- }
++ if (! f) {
++ if (length(_dumparrd = _dumparrd t _CHR["EOL"]) > 262144) {
++ _DUMPARR[++_dumparrc] = _dumparrd
++ _dumparrd = ""
}
-- return hl
}
++}
+
- function _check(p)
- {
-
#______________________________________________________________________________________________
-
#################################################################################
-
#______________________________________________________________________________________________
-
################################################################################
-
#____________________________________________________________________________________________________
-
####################################################################################
- _dll_check(p)
- _file_check(p)
- _serv_check(p)
- _reg_check(p)
- }
++#___________________________________________________________________________________
++####################################################################################
- function _chrline(t, ts, w, s)
- {
-
#_______________________________________________________________________
- #############################################
- return ((t = " " _tabtospc(t, ts) ((t ? (t ~ /[ \t]$/ ? "" : "
") : ""))) _getchrln((s ? s : "_"), ((w ? w : _CON_WIDTH - 1)) - length(t))
_CHR["EOL"])
- function _check(p)
- {
- _dll_check(p)
- _file_check(p)
- _serv_check(p)
- _reg_check(p)
- }
+
- function _chrline(t, ts, w, s)
- {
- return ((t = " " _tabtospc(t, ts) ((t ? (t ~ /[ \t]$/ ? "" : "
") : ""))) _getchrln((s ? s : "_"), ((w ? w : _CON_WIDTH - 1)) - length(t))
_CHR["EOL"])
++#___________________________________________________________________________________
++# OTHER tFUNCTIONs
#################################################################
++
++#_____________________________________________________________________________
++function _dumpobj(p, f, t, s)
++{
++ ###################################################
++ s = _dumpobj_i0(p, f, t = t "." p "{")
++ if (p = _rFCHLD(p)) {
++ return (s = s _dumpobjm(p, f, (s ? _getchrln(" ", length(t) -
1) : t " ")))
}
++ return s
++}
-- function _cmd(c, i, A)
-- {
-
#_____________________________________________________________________________
- #######################################################
-- _fio_cmda = RS
-- RS = ".{1,}"
-- _fio_cmdb = BINMODE
-- BINMODE = "rw"
-- ERRNO = RT = _NUL
-- c | getline RS
-- BINMODE = _fio_cmdb
-- RS = _fio_cmda
-- if (ERRNO || 0 > (_exitcode = close(c))) {
-- return (RT = _NOP)
-- }
-- return RT
++#___________________________________________________________
++function _dumpobj_i0(p, f, t)
++{
++ if (f == "") {
++ return _dumpobj_i2(p, t)
}
++ if (f == 0) {
++ return _dumpobj_i1(p, t " ")
++ }
++ return (_dumpobj_i1(p, t " ") _dumpobj_i2(p, _getchrln(" ", length(t))))
++}
-- function _cmparr(A0, A1, R, a, i)
-- {
-
#_______________________________________________________________________
- ##########################################
-- a = 0
-- delete R
-- for (i in A0) {
-- if (! (i in A1)) {
-- a++
-- R[i] = 0
-- } else {
-- if (A0[i] != A1[i]) {
-- a++
-- R[i] = 2
++#___________________________________________________________
++function _dumpobj_i1(p, t)
++{
++ return _ln(t substr(((p in _tPREV ? "\253" _tPREV[p] : "")) " ",
1, 7) " " substr(((p in _tPARENT ? "\210" _tPARENT[p] : "")) " ", 1, 7) "
" substr(((p in _tFCHLD ? _tFCHLD[p] : "")) "\205" ((p in _tQCHLD ? " ("
_tQCHLD[p] ") " : "\205")) "\205" ((p in _tLCHLD ? _tLCHLD[p] : "")) "
", 1, 22) substr(((p in _tNEXT ? "\273" _tNEXT[p] : "")) "
", 1, 8))
++}
++
++#___________________________________________________________
++function _dumpobj_i2(p, t)
++{
++ return (_dumpobj_i3(_[p], t " ") _dumpobj_i3(_ptr[p], _getchrln(" ",
length(t)) "`", "`"))
++}
++
++#___________________________________________________________
++function _dumpobj_i3(A, t, p, e, s, i, t2)
++{
++ if (isarray(A)) {
++ for (i in A) {
++ t2 = _getchrln(" ", length(t))
++ for (i in A) {
++ if (isarray(A[i])) {
++ s = s _dumpobj_i3(A[i], t "["
_dumpobj_i4(i) "]", p, _ln())
++ } else {
++ s = s _ln(t "[" _dumpobj_i4(i) "]=" p
_dumpobj_i4(A[i]) "'")
}
++ t = t2
}
++ return s
}
-- for (i in A1) {
-- if (! (i in A0)) {
-- a++
-- R[i] = 1
-- }
-- }
-- return a
++ return ((e == "" ? "" : t e))
}
--
-- function _con(t, ts, a, b, c, d, i, r, A, B)
-- {
-
#_____________________________________________________________________________
- ##########################################
-- d = RLENGTH
-- if ((c = split(r = t, A, /\x0D?\x0A/, B)) > 0) {
-- a = BINMODE
-- b = ORS
-- BINMODE = "rw"
-- ORS = ""
-- if (c > 1) {
-- if ((i = length(t = _tabtospc(A[1], ts,
_conlastrln))) < _constatstrln) {
-- t = t _getchrln(" ", _constatstrln - i)
-- }
-- print(t B[1]) > _SYS_STDCON
-- for (i = 2; i < c; i++) {
-- print(_tabtospc(A[i], ts) B[i]) >
_SYS_STDCON
-- }
-- print(_conlastr = _tabtospc(A[c], ts)) >
_SYS_STDCON
-- fflush(_SYS_STDCON)
++ if (A == 0 && A == "") {
++ return
++ }
++ return _ln(t "=" _dumpobj_i4(p A) "'")
++}
++
++#___________________________________________________________
++function _dumpobj_i4(t)
++{
++ if (length(t) > 64) {
++ return (substr(t, 1, 28) " ... " substr(t, length(t) - 28))
++ }
++ return t
++}
++
++#_________________________________________________________________
++function _dumpobj_nc(p, f, t)
++{
++ #######################################
++ return _dumpobj_i0(p, f, t "." p "{ ")
++}
++
++#_________________________________________________________________
++function _dumpobjm(p, f, t, s, t2)
++{
++ ###################################
++ t2 = _getchrln(" ", length(t))
++ do {
++ s = s _dumpobj(p, f, t)
++ t = t2
++ } while (p = _rNEXT(p))
++ return s
++}
++
++#_________________________________________________________________
++function _dumpobjm_nc(p, f, t, s, t2)
++{
++ ################################
++ t2 = _getchrln(" ", length(t))
++ do {
++ s = s _dumpobj_nc(p, f, t)
++ t = t2
++ } while (p = _rNEXT(p))
++ return s
++}
++
++function _dumpuidgen(p, pd, pc, ps)
++{
++ _conline("#" ++cntdm ": " p "'")
++ _conl()
++ if (p in _tuidel) {
++ _conl("DEL: " _var(pd = _tuidel[p]))
++ _conl(_dumparr(_tUIDEL[pd]) _ln())
++ }
++ _conl("PFX: " _tUIDPFX[p] "'")
++ _conl("SFX: " _tUIDSFX[p] "'")
++ _conl("COUNT: " ((p in _tuidcnt ? (pc = _tuidcnt[p]) "'" : _th0("-", pc
= -2))))
++ _con("CHARS: ")
++ if (p in _tuidchr) {
++ _conl((ps = _tuidchr[p]) "'")
++ _conl("HCHR: " ((pc == -2 ? "-" : _tUIDCNTH[pc] "'")))
++ _conl(_dumparr(_tUIDCHRH[ps]) _ln())
++ _conl("LCHR: " ((pc == -2 ? "-" : _tUIDCNTL[pc] "'")))
++ _conl(_dumparr(_tUIDCHRL[ps]) _ln())
++ } else {
++ _conl("-")
++ }
++}
++
++#_____________________________________________________________________________
++function _dumpval(v, n)
++{
++ _dumpstr = _dumpstr (v = _ln(((n == 0 && n == "" ? "RET" : n)) ": " ((v
== 0 && v == "" ? "-" : v "'"))))
++ return v
++}
++
++########################################################
++
++function _eXTFN(c, t, P)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ return t
++ #___________________________________________________________
++
++ case "_lib_APPLY":
++ return
++ #___________________________________________________________
++
++ case "_lib_HELP":
++ return
++ #___________________________________________________________
++
++ case "_lib_NAMEVER":
++ return _ln("_extfn 1.0")
++ #___________________________________________________________
++
++ case "_lib_BEGIN":
++ return
++ #___________________________________________________________
++
++ case "_lib_END":
++ return
++ }
++}
++
++#_________________________________________________________________
++function _endpass(t)
++{
++ _endpass_v0 = t
++}
++
++#_______________________________________________________________________
++function _err(t, a, b)
++{
++ ###################################################
++ a = BINMODE
++ b = ORS
++ BINMODE = "rw"
++ ORS = ""
++ print(t) > _SYS_STDERR
++ fflush(_SYS_STDERR)
++ BINMODE = a
++ ORS = b
++ return t
++}
++
++#_________________________________________________________________
++function _errnl(t)
++{
++ ################################################
++ return _err(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])))
++}
++
++#_______________________________________________________________________
++function _error(t, d, A)
++{
++ #################################################
++ if (_ERRLOG_EF) {
++ A["TYPE"] = "ERROR"
++ A["TEXT"] = t
++ _log(A, d)
++ }
++}
++
++#_______________________________________________________________________
++function _exit(c)
++{
++ #######################################################
++ exit c
++}
++
++#_____________________________________________________________________________
++function _export_data(t, i, A)
++{
++ #################################################
++ A["DATA"] = t
++ A["ID"] = i
++ _expout("_DATA: " _Zexparr(A) "\n")
++}
++
++#___________________________________________________________________________________
++####################################################################################
++
++#_____________________________________________________________________________
++function _expout(t, d, a, b)
++{
++ ####################################################
++ a = BINMODE
++ b = ORS
++ BINMODE = "rw"
++ ORS = ""
++ print(t) > ((d ? d : d = _errlog_file))
++ fflush(d)
++ BINMODE = a
++ ORS = b
++}
++
++#_________________________________________________________________________________________
++##########################################################################################
++
++
++
++
++
++
++
++
++function _extfn_init()
++{
++ ##############################################################
++
++ _formatstrs_init()
++ _formatstrd_init()
++ _formatrexp_init()
++ _unformatstr_init()
++ _mac_init()
++}
++
++function _faccl_i0(A, t, p, P, f, r)
++{
++ f = r = ""
++ if (isarray(A)) {
++ while (f = A[f]) {
++ r = (@f(t, p, P)) r
++ }
++ }
++ return r
++}
++
++function _faccr_i0(A, t, p, P, f, r)
++{
++ f = r = ""
++ if (isarray(A)) {
++ while (f = A[f]) {
++ r = r @f(t, p, P)
++ }
++ }
++ return r
++}
++
++#_______________________________________________________________________
++function _fatal(t, d, A)
++{
++ #################################################
++ if (_ERRLOG_FF) {
++ A["TYPE"] = "FATAL"
++ A["TEXT"] = t
++ _log(A, d)
++ }
++ if (! d) {
++ exit
++ }
++}
++
++function _fbaccl(A, t, p, P)
++{
++ return _faccl_i0(A["B"], t, p, P)
++}
++
++function _fbaccr(A, t, p, P)
++{
++ return _faccr_i0(A["B"], t, p, P)
++}
++
++function _ffaccl(A, t, p, P)
++{
++ return _faccl_i0(A["F"], t, p, P)
++}
++
++function _ffaccr(A, t, p, P)
++{
++ return _faccr_i0(A["F"], t, p, P)
++}
++
++##################
++#_______________________________________________________________________
++function _fframe(A, t, p)
++{
++ #################################################
++ return _fframe_i0(A, t, p, A[""])
++}
++
++#___________________________________________________________
++function _fframe_i0(A, t, p, f)
++{
++ return ((f ? (@f(t, p)) _fframe_i0(A, t, p, A[f]) : ""))
++}
++
++#_________________________________________________________________
++function _file(f)
++{
++ #################################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
++ }
++ return ((f in _FILEXT ? _FILEXT[f] : ""))
++}
++
++#_______________________________________________________________________
++function _file_check(p)
++{
++ if (1 || "AGENT" in _[p]) {
++ _tframe("_file_check_i0", p, p)
++ }
++}
++
++#_______________________________________________
++function _file_check_i0(p, pp, p1, p2, f, v)
++{
++ if (_[p]["TYPE"] == "defile") {
++ f = _[p]["FILE"]
++ f = ((match(f, /^.:/) ? "" : _[_[pp]["AGENT"]][".Install Path"]
"\\")) _[p]["FILE"]
++ if ("RQVERSION" in _[p]) {
++ v = _[p]["RQVERSION"]
++ } else {
++ v = _[pp][".Product Version"]
++ }
++ ERRNO = ""
++ if (_th1(_[p]["DATA"] = _rdfile(f), ERRNO)) {
++ delete _[p]["DATA"]
++ return _dllerr(p, "read file: " ERRNO, f)
++ }
++ if (v != "" && v != (_[p]["VERSION"] = _getfilever(f))) {
++ return _dllerr(p, " file version mismatch: ==`"
_[p]["VERSION"] "'; !=`" v "'", f)
++ }
++ _creport(p, substr("OK: FILE DETECTED" ((v == "" ? "" : "("
v ")")) ": " f, 1, 122))
++ } else {
++ if (_[p]["TYPE"] == "defdir") {
++ if (_filexist(f = _[p]["DIR"])) {
++ _creport(p, substr("OK: DIR DETECTED: " f,
1, 112))
} else {
-- print(t = _tabtospc(t, ts, _conlastrln)) >
_SYS_STDCON
-- fflush(_SYS_STDCON)
-- _conlastr = _conlastr t
++ _dllerr(p, "directory " f " is not detected")
}
-- if ((i = length(_conlastr)) >= _CON_WIDTH) {
-- _conlastr = substr(_conlastr, 1 + int(i /
_CON_WIDTH) * _CON_WIDTH)
-- }
-- _conlastrln = length(_conlastr)
-- if (_constatstr) {
-- print((t = _constatgtstr(_constatstr,
_CON_WIDTH - 1 - _conlastrln)) _CHR["CR"] _conlastr) > _SYS_STDCON
-- fflush(_SYS_STDCON)
-- _constatstrln = length(t)
-- }
-- BINMODE = a
-- ORS = b
-- RLENGTH = d
-- return r
}
-- RLENGTH = d
}
++}
-- function _conin(t, a, b)
-- {
-
#_______________________________________________________________________
- #################################################
-- _constatpush()
-- _constat()
-- a = BINMODE
-- b = RS
-- BINMODE = "rw"
-- RS = "\n"
-- _con(t)
-- getline t < "CON"
-- close("CON")
-- _conlastrln = 0
-- _conlastr = ""
-- gsub(/[\x0D\x0A]+/, "", t)
-- BINMODE = a
-- RS = b
-- _constatpop()
-- return t
++#_________________________________________________________________
++function _filed(f, dd, d)
++{
++ ##########################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
}
--
-- function _conl(t, ts)
-- {
-
#_______________________________________________________________________
- ####################################################
-- return _con(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])), ts)
++ if (f in _FILEDIRFL) {
++ return _FILEDIR[f]
}
--
-- function _conline(t, ts)
-- {
-
#_______________________________________________________________________
- #################################################
-- return _con(_chrline(t, ts))
++ if (f in _FILEROOT) {
++ if (d = filegetdrvdir(_FILEROOT[f])) {
++ _FILEDIRFL[f]
++ }
++ return (_FILEDIR[f] = d _FILEDIR[f])
+ }
-
- function _conlq(t, ts)
- {
- return _conl("`" t "'", ts)
++ if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEDIR) {
++ return _FILEDIR[dd, f]
}
-
- function _constat(t, ts, ln, a)
- {
- if (_constatstrln > (ln = length(t = _constatgtstr(_constatstr
= _tabtospc(t, ts), _CON_WIDTH - 1 - _conlastrln)))) {
- t = t _getchrln(" ", _constatstrln - ln)
- }
- _constatstrln = ln
- ln = ORS
- a = BINMODE
- BINMODE = "rw"
- ORS = ""
- print(t _CHR["CR"] _conlastr) > _SYS_STDCON
- fflush(_SYS_STDCON)
- ORS = ln
- BINMODE = a
- return _constatstr
++ if ((d = filedi(dd) _FILEDIR[f]) ~ /^\\/) {
++ return (_FILEDIR[dd, f] = d)
+ }
++ return d
++}
- function _conlq(t, ts)
- {
-
#___________________________________________________________________________________
-
####################################################################################
- return _conl("`" t "'", ts)
- function _constatgtstr(t, ln, a, b)
- {
- if (ln < 1) {
- return ""
- }
- if ((a = length(t)) <= ln) {
- return t
- }
- if (ln < 11) {
- return substr(t, a - ln + 1)
- }
- if (ln < 19) {
- return ("..." substr(t, a - ln + 4))
- }
- return (substr(t, 1, b = int((ln - 3) / 2)) "..." substr(t, a -
ln + b + 4))
++#_________________________________________________________________
++function _filen(f)
++{
++ ################################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
}
++ return ((f in _FILENAM ? _FILENAM[f] : ""))
++}
- function _constat(t, ts, ln, a)
- {
- if (_constatstrln > (ln = length(t = _constatgtstr(_constatstr
= _tabtospc(t, ts), _CON_WIDTH - 1 - _conlastrln)))) {
-
#_______________________________________________________________________
- ###########################################
- t = t _getchrln(" ", _constatstrln - ln)
- }
- _constatstrln = ln
- ln = ORS
- a = BINMODE
- BINMODE = "rw"
- ORS = ""
- print(t _CHR["CR"] _conlastr) > _SYS_STDCON
- fflush(_SYS_STDCON)
- ORS = ln
- BINMODE = a
- return _constatstr
- function _constatpop()
- {
- if (_CONSTATPUSH[0] > 0) {
- return _constat(_CONSTATPUSH[_CONSTATPUSH[0]--])
- }
- return _constat("")
++#_________________________________________________________________
++function _filene(f)
++{
++ ###############################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
}
++ return (((f in _FILENAM ? _FILENAM[f] : "")) ((f in _FILEXT ?
_FILEXT[f] : "")))
++}
- function _constatgtstr(t, ln, a, b)
- {
- if (ln < 1) {
-
#_________________________________________________________________
- return ""
- }
- if ((a = length(t)) <= ln) {
- return t
- }
- if (ln < 11) {
- return substr(t, a - ln + 1)
- }
- if (ln < 19) {
- return ("..." substr(t, a - ln + 4))
- }
- return (substr(t, 1, b = int((ln - 3) / 2)) "..." substr(t, a -
ln + b + 4))
- function _constatpush(t, ts)
- {
- _CONSTATPUSH[++_CONSTATPUSH[0]] = _constatstr
- if (t) {
- _constat(t, ts)
- }
- return _constatstr
++#_________________________________________________________________
++function _filenotexist(f, a)
++{
++ ######################################
++ if (f == "") {
++ return ""
++ }
++ if ((a = _filepath(f)) == "") {
++ ERRNO = "Filepath error `" f "'"
++ return ""
+ }
++ _cmd("if exist \"" a "\" exit 1 2>NUL")
++ if (_exitcode == 1) {
++ return (ERRNO = _NOP)
+ }
++ return a
++}
- function _constatpop()
- {
- if (_CONSTATPUSH[0] > 0) {
-
#_______________________________________________________________________
- ##################################################
- return _constat(_CONSTATPUSH[_CONSTATPUSH[0]--])
- }
- return _constat("")
- function _creport(p, t, f, z)
- {
- _[p]["REPORT"] = _[p]["REPORT"] _ln(t ((f == "" ? "" : ": " f)))
++#_______________________________________________________________________
++function _filepath(f, dd)
++{
++ ################################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
}
++ return (filegetrootdir(f, dd) ((f in _FILENAM ? _FILENAM[f] : "")) ((f
in _FILEXT ? _FILEXT[f] : "")))
++}
- function _constatpush(t, ts)
- {
-
#_______________________________________________________________________
- #############################################
- _CONSTATPUSH[++_CONSTATPUSH[0]] = _constatstr
- if (t) {
- _constat(t, ts)
- }
- return _constatstr
- function _defdir(pp, n, f, v, p)
- {
- _[p = _wLCHLD(pp, _n("TYPE", "defdir"))]["NAME"] = n
- _[p]["DIR"] = f
- return p
++#_________________________________________________________________
++function _filer(f, dd)
++{
++ #############################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
+ }
++ if (f in _FILEROOT) {
++ return _FILEROOT[f]
+ }
++ if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEROOT) {
++ return _FILEROOT[dd, f]
++ }
++ return (_FILEROOT[dd, f] = fileri(dd))
++}
- function _creport(p, t, f, z)
- {
-
#___________________________________________________________________________________
- _[p]["REPORT"] = _[p]["REPORT"] _ln(t ((f == "" ? "" : ": " f)))
- function _defdll(pp, n, rn, p)
- {
- _[p = _wLCHLD(pp, _n("TYPE", "defdll"))]["NAME"] = n
- _[p]["REGPATH"] = _[pp]["REGPATH"] rn
- _[p]["ERRHOST"] = pp
- return p
++#_________________________________________________________________
++function _filerd(f, dd)
++{
++ ############################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
}
++ return filegetrootdir(f, dd)
++}
- function _defdir(pp, n, f, v, p)
- {
-
#_________________________________________________________________________________________
- #############################################################
- _[p = _wLCHLD(pp, _n("TYPE", "defdir"))]["NAME"] = n
- _[p]["DIR"] = f
- return p
- function _defescarr(D, r, S, i, c, t)
- {
- if (isarray(S)) {
- for (i = 0; i < 256; i++) {
- if ((c = _CHR[i]) ~ r) {
- D[c] = "\\" S[c]
- t = t c
- } else {
- if (D[c] == "") {
- D[c] = c
- }
++#_________________________________________________________________
++function _filerdn(f, dd)
++{
++ ###########################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
+ }
++ return ((f in _FILENAM ? filegetrootdir(f, dd) _FILENAM[f] : ""))
++}
+
- function _defdll(pp, n, rn, p)
- {
-
#_________________________________________________________________________________________
- ##############################################################
- _[p = _wLCHLD(pp, _n("TYPE", "defdll"))]["NAME"] = n
- _[p]["REGPATH"] = _[pp]["REGPATH"] rn
- _[p]["ERRHOST"] = pp
- return p
++#_________________________________________________________________
++function _filerdne(f, dd)
++{
++ ##########################################
++ if ((f = _filerdnehnd(f)) == "") {
++ return ""
++ }
++ if (f in _FILENAM) {
++ return (filegetrootdir(f, dd) _FILENAM[f] ((f in _FILEXT ?
_FILEXT[f] : "")))
++ }
++ if (f in _FILEXT) {
++ return (filegetrootdir(f, dd) _FILEXT[f])
+ }
++ return ""
++}
+
- function _defescarr(D, r, S, i, c, t)
- {
- if (isarray(S)) {
- for (i = 0; i < 256; i++) {
- if ((c = _CHR[i]) ~ r) {
-
#___________________________________________________________
- D[c] = "\\" S[c]
- t = t c
- } else {
- if (D[c] == "") {
- D[c] = c
- }
++#___________________________________________________________
++function _filerdnehnd(st, c, r, d, n, A)
++{
++ if (st) {
++ if ((c = toupper(st)) in _FILECACHE) {
++ FLENGTH = length(st)
++ return _FILECACHE[c]
++ }
++ if (match(st, /^[ \t]*\\[ \t]*\\/)) {
++ if (match(substr(st, (FLENGTH = RLENGTH) + 1), /^[
\t]*([0-9A-Za-z\-]+)[ \t]*(\\[ \t]*([A-Za-z])[ \t]*\$[ \t]*)?(\\[
\t]*([0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)+[
\t]*)?(([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)) {
++ FLENGTH = FLENGTH + RLENGTH
++ d = ((A[3] ? "\\" A[3] "$" : "")) A[4]
++ gsub(/[ \t]*\\[ \t]*/, "\\", d)
++ if ((st = toupper((r = "\\\\" A[1]) d (n =
A[8]))) in _FILECACHE) {
++ return (_FILECACHE[substr(c, 1,
FLENGTH)] = _FILECACHE[st])
}
++ _FILEDIR[c = _FILECACHE[substr(c, 1, FLENGTH)]
= _FILECACHE[st] = ++_file_rootcntr] = d
++ _FILEDIRFL[c]
++ _FILEROOT[c] = r
++ } else {
++ FLENGTH = 0
++ _filepath_err = "UNC"
++ return ""
}
} else {
-- for (i = 0; i < 256; i++) {
-- if ((c = _CHR[i]) ~ r) {
-- D[c] = S c
-- if (S != "") {
-- t = t c
-- }
-- } else {
-- if (D[c] == "") {
-- D[c] = c
-- }
-- }
++ match(st, /^(([ \t]*\.[ \t]*\\[ \t]*)|(([
\t]*([A-Za-z])[ \t]*(\:)[ \t]*)?([ \t]*(\\)[ \t]*)?))([ \t]*(([
\t]*[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)+)[ \t]*)?([
\t]*([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)
++ if (! (FLENGTH = RLENGTH)) {
++ return ""
++ }
++ d = A[8] A[10]
++ gsub(/[ \t]*\\[ \t]*/, "\\", d)
++ if ((st = toupper((r = A[5] A[6]) d (n = A[14]))) in
_FILECACHE) {
++ return (_FILECACHE[substr(c, 1, FLENGTH)] =
_FILECACHE[st])
++ }
++ _FILEDIR[c = _FILECACHE[substr(c, 1, FLENGTH)] =
_FILECACHE[st] = ++_file_rootcntr] = d
++ if (A[8]) {
++ _FILEDIRFL[c]
++ }
++ if (r) {
++ _FILEROOT[c] = r
}
}
-- return t
++ if (n) {
++ if (match(n, /\.[^\.]*$/)) {
++ _FILEXT[c] = substr(n, RSTART)
++ _FILENAM[c] = substr(n, 1, RSTART - 1)
++ } else {
++ _FILENAM[c] = n
++ }
++ }
++ return c
}
++ return ""
++}
-- function _defile(pp, n, f, v, p)
-- {
-
#_________________________________________________________________________________________
- #############################################################
-- _[p = _wLCHLD(pp, _n("TYPE", "defile"))]["NAME"] = n
-- _[p]["FILE"] = f
-- if (! (v == 0 && v == "")) {
-- _[p]["RQVERSION"] = v
++#_______________________________________________________________________
++function _filexist(f, a)
++{
++ ################################################
++ if (f == "") {
++ return ""
++ }
++ if ((a = _filepath(f)) == "") {
++ ERRNO = "Filepath error `" f "'"
++ return ""
++ }
++ _cmd("if exist \"" a "\" exit 1 2>NUL")
++ if (_exitcode == 1) {
++ return a
++ }
++ ERRNO = "File not found `" f "'"
++ return _NOP
++}
++
++#_______________________________________________________________________
++function _fn(f, p0, p1, p2)
++{
++ ################################################
++ if (f in FUNCTAB) {
++ return @f(p0, p1, p2)
++ }
++}
++
++#_______________________________________________________________________
++function _foreach(A, f, r, p0, p1, p2, i, p)
++{
++ ####################################
++ if (isarray(A)) {
++ _TMP0[p = _n()]["."] = 1
++ _foreach_i0(A, f, _TMP0[p], p0, p1, p2)
++ return _th0(_retarr(_TMP0[p]), _tdel(p))
++ }
++ if (_isptr(A)) {
++ _TMP0[p = _n()][_ARRLEN] = 1
++ _tframe4("_foreach_i1" ((r ? "~" r : "")), A, f, _TMP0[p], p0,
p1)
++ return _th0(_retarr(_TMP0[p]), _tdel(p))
++ }
++}
++
++#_____________________________________________________
++function _foreach_i0(A, f, D, p0, p1, p2)
++{
++ for (i in A) {
++ if (isarray(A[i])) {
++ _foreach_i0(A[i], f, D, p0, p1, p2)
++ } else {
++ _gen(D, @f(A[i], p0, p1, p2))
}
-- return p
}
++}
-- function _defn(f, c, v)
-- {
-
#_______________________________________________________________________
- ###################################################
-- FUNCTAB[c f] = v
-- }
++#_____________________________________________________
++function _foreach_i1(p, f, D, p0, p1, p2)
++{
++ _gen(D, @f(p, p0, p1, p2))
++}
-- function _defreg(pp, n, f, v, p)
-- {
-
#_________________________________________________________________________________________
- #############################################################
-- _[p = _wLCHLD(pp, _n("TYPE", "defreg"))]["NAME"] = n
-- _[p]["REGPATH"] = f
-- if (! (v == 0 && v == "")) {
-- _[p]["VALUE"] = v
-- }
++#_____________________________________________________________________________
++function _formatrexp(t)
++{
++ _formatstrq0 = split(t, _FORMATSTRA, /[\/\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
++ _formatstrs0 = ""
++ for (t = 1; t < _formatstrq0; t++) {
++ _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATREXPESC[_FORMATSTRB[t]]
}
++ return (_formatstrs0 _FORMATSTRA[t])
++}
-- function _defsolution(pp, n, rn, p)
-- {
-
#_______________________________________________________________________________________________
- ###############################################################
-- _[p = _wLCHLD(pp, _n("TYPE", "solution"))]["NAME"] = n
-- _[p]["REGPATH"] = rn
-- _[p]["ERRHOST"] = pp
-- return p
++#___________________________________________________________
++function _formatrexp_init()
++{
++ _defescarr(_FORMATREXPESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
++ _defescarr(_FORMATREXPESC, "\\/", "\\")
++ _FORMATREXPESC["\t"] = "\\t"
++}
++
++#_____________________________________________________________________________
++function _formatstrd(t)
++{
++ _formatstrq0 = split(t, _FORMATSTRA, /["\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
++ _formatstrs0 = ""
++ for (t = 1; t < _formatstrq0; t++) {
++ _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATSTRDESC[_FORMATSTRB[t]]
}
++ return (_formatstrs0 _FORMATSTRA[t])
++}
-- function _defsrv(pp, n, f, v, p)
-- {
-
#_________________________________________________________________________________________
- #############################################################
-- _[p = _wLCHLD(pp, _n("TYPE", "defsrv"))]["NAME"] = n
-- _[p]["SERVNAME"] = f
-- return p
++#___________________________________________________________
++function _formatstrd_init()
++{
++ _defescarr(_FORMATSTRDESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
++ _defescarr(_FORMATSTRDESC, "[\\\\\"]", "\\")
++ _FORMATSTRDESC["\t"] = "\\t"
++}
++
++#__________________________________________________________________________________
++####################################################################################
++
++
++
++
++#___________________________________________________________________________________
++function _formatstrs(t)
++{
++ _formatstrq0 = split(t, _FORMATSTRA, /['\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
++ _formatstrs0 = ""
++ for (t = 1; t < _formatstrq0; t++) {
++ _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATSTRSESC[_FORMATSTRB[t]]
}
++ return (_formatstrs0 _FORMATSTRA[t])
++}
++
++#___________________________________________________________
++function _formatstrs_init()
++{
++ _defescarr(_FORMATSTRSESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
++ _defescarr(_FORMATSTRSESC, "[\\\\']", "\\")
++ _FORMATSTRSESC["\t"] = "\\t"
++}
++
++function _fpp(q, D, S)
++{
++ _conl()
++ _conline(q)
++ _conl()
++ q = _patharr0(S, q)
++ #_arregpath(D,S)
++ #_conl(_dumparr(D))
++ _conl(_dumparr(S))
++ _conl()
++ return q
++}
++
++#_______________________________________________________________________
++########################################################################
++
++
++
++
++
++
++
++
++
++function _fthru(A, c, p, B)
++{
++ return _fthru_i0(A, c, p, B, A[""])
++}
++
++#_________________________________________________________________
++function _fthru_i0(A, c, p, B, f)
++{
++ return ((f ? @f(c, _fthru_i0(A, c, p, B, A[f]), B) : ""))
++}
++
++function _gen(D, t)
++{
++ if (length(D[D[_ARRLEN]] = D[D["."]] t) > _datablock_length) {
++ D[++D[_ARRLEN]] = ""
++ }
++}
++
++#_____________________________________________________________________________
++function _gensubfn(t, r, f, p0, A)
++{
++ ###############################################
++ if (match(t, r, A)) {
++ return (substr(t, 1, RSTART - 1) (@f(_th0(substr(t, RSTART,
RLENGTH), t = substr(t, RSTART + RLENGTH)), A, p0)) _gensubfn(t, r, f, p0))
++ }
++ return t
++}
++
++#_____________________________________________________________________________
++function _get_errout(p)
++{
++ #######################################################
++ return _tframe("_get_errout_i0", p)
++}
++
++#_______________________________________________________________________
++function _get_errout_i0(p, t, n, a)
++{
++ return ((p in _tLOG ? _get_errout_i1(p) _get_errout_i3(p) : ""))
++}
++
++#_________________________________________________________________
++function _get_errout_i1(p, t, n, a)
++{
++ if (p in _tLOG) {
++ n = ""
++ if (_tLOG[p]["TYPE"]) {
++ n = _tLOG[p]["TYPE"] ": " _get_errout_i2(p)
++ if (match(_tLOG[p]["TEXT"], /\x1F/)) {
++ t = n
++ gsub(/[^\t]/, " ", t)
++ return (_ln(n substr(_tLOG[p]["TEXT"], 1,
RSTART - 1)) _ln(t substr(_tLOG[p]["TEXT"], RSTART + 1)))
++ }
++ }
++ return _ln(n _tLOG[p]["TEXT"])
++ }
++}
++
++#_______________________________________________________________________
++function _get_errout_i2(p)
++{
++ return (("FILE" in _tLOG[p] ? _tLOG[p]["FILE"] (("LINE" in _tLOG[p] ?
"(" _tLOG[p]["LINE"] ")" : "")) ": " : ""))
++}
++
++#_______________________________________________________________________
++function _get_errout_i3(p, t, ts, cl, cp, cr, a, b)
++{
++ if ("LSTR" in _tLOG[p]) {
++ t = _tLOG[p]["FULLSTR"]
++ ts = _tLOG[p]["TS"]
++ cp = "^"
++ if ("CSTR" in _tLOG[p]) {
++ cr = _tLOG[p]["CSTR"]
++ cl = _tLOG[p]["CLSTR"]
++ if ("CPSTR" in _tLOG[p]) {
++ cp = _tLOG[p]["CPSTR"]
++ }
++ }
++ cr = substr(cr, length(cl) + length(cp) + 1)
++ return (_ln(_tabtospc(t, ts)) _ln(_getchrln(" ", a =
length(_tabtospc(_tLOG[p]["LSTR"], ts))) _getchrln("-", b =
length(_tabtospc(cl, ts, a))) _getchrln("^", b = length(_tabtospc(cp, ts, a = a
+ b))) _getchrln("-", length(_tabtospc(cr, ts, a + b)))))
++ }
++}
-- function _del(f, c, a, A)
-- {
-- if (match(f, /\\[ \t]*$/)) {
-- if ((c = toupper(_filerd(f))) && length(f) == FLENGTH) {
-
#_______________________________________________________________________
-
#################################################
-- _cmd("rd " c " /S /Q 2>NUL")
-- _deletepfx(_WFILEROOTDIR, c)
-- _deletepfx(_FILEIO_RDTMP, c)
-- _deletepfx(_FILEIO_RDNETMP, c)
-- } else {
-- _conl("HUJ TEBE!")
-- return ""
++#_____________________________________________________________________________
++function _get_logout(p)
++{
++ #######################################################
++ return _tframe("_get_logout_i0", p)
++}
++
++#_______________________________________________________________________
++function _get_logout_i0(p, t, n, a)
++{
++ if (p in _tLOG) {
++ n = (("DATE" in _tLOG[p] ? _tLOG[p]["DATE"] " " : "")) (("TIME"
in _tLOG[p] ? _tLOG[p]["TIME"] " " : ""))
++ if (_tLOG[p]["TYPE"]) {
++ n = n _tLOG[p]["TYPE"] ": " (("FILE" in _tLOG[p] ?
_tLOG[p]["FILE"] (("LINE" in _tLOG[p] ? "(" _tLOG[p]["LINE"] ")" : "")) ": " :
""))
++ if (match(_tLOG[p]["TEXT"], /\x1F/)) {
++ t = n
++ gsub(/[^\t]/, " ", t)
++ return (_ln(n substr(_tLOG[p]["TEXT"], 1,
RSTART - 1)) _ln(t substr(_tLOG[p]["TEXT"], RSTART + 1)))
++ }
++ }
++ return _ln(n _tLOG[p]["TEXT"])
++ }
++}
++
++#_______________________________________________________________________
++function _getchrln(s, w)
++{
++ #################################################
++ if (s == "") {
++ return
++ }
++ #if ( w!=w+0 || w<0 ) w=_CON_WIDTH
++ if (length(s) < w) {
++ if (s in _GETCHRLN) {
++ if (length(_getchrlnt0 = _GETCHRLN[s]) >= w) {
++ return substr(_getchrlnt0, 1, w)
}
} else {
-- a = _dir(A, f)
-- _cmd("del " f " /Q 2>NUL")
-- for (c in A) {
-- if (c ~ /\\$/) {
-- _cmd("rd " c " /S /Q 2>NUL")
-- _deletepfx(_WFILEROOTDIR, c)
-- _deletepfx(_FILEIO_RDTMP, c)
-- }
-- _deletepfx(_FILEIO_RDNETMP, c)
- }
- }
- return a
++ _getchrlnt0 = s s
++ }
++ while (length(_getchrlnt0) < w) {
++ _getchrlnt0 = _getchrlnt0 _getchrlnt0
++ }
++ _GETCHRLN[s] = _getchrlnt0
++ return substr(_getchrlnt0, 1, w)
++ } else {
++ return substr(s, 1, w)
++ }
++}
++
++#_______________________________________________________________________
++function _getdate()
++{
++ #####################################################
++ return strftime("%F")
++}
++
++#_____________________________________________________________________________
++function _getfilepath(t, f, al, b, A)
++{
++ ############################################
++ ERRNO = ""
++ if (match(t, /^[ \t]*(("([^"]*)"[ \t]*)|([`']([^']*)'[ \t]*)|(([^
\t]+)[ \t]*))/, A)) {
++ al = RLENGTH
++ f = A[3] A[5] A[7]
++ _conl("_getfilepath(" f ") (" al ")")
++ if (b = _filepath(f)) {
++ if (length(f) <= FLENGTH) {
++ FLENGTH = al
++ return b
++ }
++ ERRNO = "Filepath `" f "' error"
++ }
++ }
++ FLENGTH = 0
++}
++
++function _getfilever(f)
++{
++ #############################################################
++ split(_cmd(_fileverpath " \"" f "\""), _GETFILEVERA0, /[ \t]+/)
++ if (_GETFILEVERA0[5]) {
++ return _GETFILEVERA0[5]
++ }
++}
++
++#_________________________________________________________________
++function _getime()
++{
++ ################################################
++ return strftime("%H:%M:%S")
++}
++
++#_________________________________________________________________
++function _getmpdir(f, dd)
++{
++ ##########################################
++ if (! dd || ! (dd = _filerd(dd))) {
++ dd = _FILEIO_TMPRD
++ }
++ if (f = (f ? _filerd(f, dd) : _filerd("_" ++_FILEIO_TMPCNTR "\\", dd)))
{
++ _FILEIO_RDTMP[toupper(f)]
++ }
++ return f
++}
++
++#_________________________________________________________________
++function _getmpfile(f, dd)
++{
++ #########################################
++ if (! dd || ! (dd = _filerd(dd))) {
++ dd = _FILEIO_TMPRD
++ }
++ if (f = _filerdne((_filene(f) ? f : f "_" ++_FILEIO_TMPCNTR), dd)) {
++ _FILEIO_RDNETMP[toupper(f)]
++ }
++ return f
++}
++
++#_______________________________________________________________________
++function _getperf(o, t, a)
++{
++ ###############################################
++ (o == "" ? ++_getperf_opcurr : _getperf_opcurr = o)
++ if ((a = _getsecond()) != _getperf_last) {
++ _getperf_opsec = (_getperf_opcurr - _getperf_opstart) /
((_getperf_last = a) - _getperf_start)
++ return @_getperf_fn(o, t, a)
++ }
++ return 1
++}
++
++#___________________________________________________________
++function _getperf_(o, t, a)
++{
++ if (a >= _getperf_end) {
++ return 0
+ }
-
- function _delay(t, a)
- {
- for (a = 1; a <= t; a++) {
-
#_______________________________________________________________________
- ###################################################
- _delayms()
- }
++ if (_getperf_opsecp != _getperf_opsec) {
++ _constat(((_constatstr == _getperf_stat ? _getperf_statstr :
_getperf_statstr = _constatstr)) t " [TIME=" (a - _getperf_start) " sec("
(_getperf_opsecp = _getperf_opsec) " ops/sec)]")
++ _getperf_stat = _constatstr
++ }
++ return 1
++}
++
++#___________________________________________________________
++function _getperf_noe(o, t, a)
++{
++ if (_getperf_opsecp != _getperf_opsec) {
++ _constat(((_constatstr == _getperf_stat ? _getperf_statstr :
_getperf_statstr = _constatstr)) t " [TIME=" (a - _getperf_start) " sec("
(_getperf_opsecp = _getperf_opsec) " ops/sec)]")
++ _getperf_stat = _constatstr
++ }
++ return 1
++}
++
++#___________________________________________________________
++function _getperf_noenot(o, t, a)
++{
++ return 1
++}
++
++#___________________________________________________________
++function _getperf_not(o, t, a)
++{
++ if (a < _getperf_end) {
++ return 1
+ }
++}
+
- function _delayms(a)
- {
-
#_________________________________________________________________
- #############################################
- for (a = 1; a <= _delay_perfmsdelay; a++) {
- }
- }
++#_________________________________________________________________________________________
++##########################################################################################
+
- function _deletepfx(A, f, B, le, i)
- {
-
#_______________________________________________________________________
- ########################################
- le = length(f)
- for (i in A) {
- if (substr(toupper(i), 1, le) == f) {
- B[i] = A[i]
- delete A[i]
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++
++function _getreg_i1(D, r, R, a, i, il, ir, rc, B)
++{
++ a = IGNORECASE
++ IGNORECASE = 1
++ r = "^" _torexp(r)
++ rc = 0
++ zs = ""
++ for (i in R) {
++ if (match(i, r, B)) {
++ il = B[_torexp_pfxcntr]
++ ir = gensub(/....$/, "", 1, substr(i, 1 +
B[_torexp_pfxcntr, "length"]))
++ if (! gsub(/^\\/, "", ir) && match(il, /[^\\]+$/)) {
++ ir = substr(il, RSTART) ir
}
++ D[ir] = R[i]
++ rc++
}
- return a
}
++ IGNORECASE = a
++ if (rc > 0) {
++ return rc
++ }
++}
- function _delf(A, f)
- {
-
#_________________________________________________________________
- ###############################################
- A["B"][A["F"][A["B"][f]] = A["F"][f]] = A["B"][f]
- delete A["F"][f]
- delete A["B"][f]
- function _delay(t, a)
- {
- for (a = 1; a <= t; a++) {
- _delayms()
- }
++#_________________________________________________________________
++function _getsecond()
++{
++ #############################################
++ return systime()
++}
++
++#___________________________________________________________
++function _getsecondsync(a, c, b, c2)
++{
++ ##########################
++ a = systime()
++ while (a == systime()) {
++ ++c
}
++ return (a + 1)
++}
- function _deluid(p)
- {
- if (p in _CLASSPTR) {
-
#_______________________________________________________________________
- ################################################# 1 #
- _deluida0 = _CLASSPTR[p]
- if (_deluida0 in _UIDOBL) {
- _UIDOBLV[_UIDOBL[_deluida0]][p]
- }
- function _delayms(a)
- {
- for (a = 1; a <= _delay_perfmsdelay; a++) {
++#_______________________________________________________________________
++function _getuid(p)
++{
++ ################################################# 1 #
++ if (p in _UIDOBL) {
++ for (_tptr in _UIDOBLV[_getuida0 = _UIDOBL[p]]) {
++ delete _UIDOBLV[_getuida0][_tptr]
++ _CLASSPTR[_tptr] = p
++ return _tptr
}
- delete _CLASSPTR[p]
- return _deluida0
}
++ _CLASSPTR[_tptr = _UIDPFX[p] _getuid_i0(_UIDCNT[p], _UIDCHRL[_tptr =
_UIDCHR[p]], _UIDCHRH[_tptr]) _UIDSFX[p]] = p
++ return _tptr
++}
- function _dir(A, rd, i, r, f, ds, pf, B, C)
- {
-
#_______________________________________________________________________
- ####################################
- delete A
- gsub(/(^[ \t]*)|([ \t]*$)/, "", rd)
- if (rd == "") {
- return ""
- }
- i = split(_cmd("dir \"" rd "\" 2>NUL"), B, /\x0D?\x0A/) - 3
- pf = (match(B[4], /Directory of ([^\x00-\x1F]+)/, C) ? C[1]
((C[1] ~ /\\$/ ? "" : "\\")) : "")
- for (r = 0; i > 5; i--) {
- if (match(B[i], /^([^ \t]*)[ \t]+([^ \t]*)[
\t]+((<DIR>)|([0-9\,]+))[ \t]+([^\x00-\x1F]+)$/, C)) {
- if (C[6] !~ /^\.\.?$/) {
- if (C[4]) {
- ds = "D "
- } else {
- ds = C[5] " "
- gsub(/\,/, "", ds)
- }
- if ((f = _filepath(pf C[6] ((C[4] ?
"\\" : "")))) != "") {
- A[f] = ds C[1] " " C[2]
- r++
- }
- }
- }
- function _deletepfx(A, f, B, le, i)
- {
- le = length(f)
- for (i in A) {
- if (substr(toupper(i), 1, le) == f) {
- B[i] = A[i]
- delete A[i]
- }
++#_____________________________________________________
++function _getuid_i0(p, UL, UH)
++{
++ if ("" == (_tptr = UL[_UIDCNTL[p]])) {
++ for (_tptr in UH) {
++ delete UH[_tptr]
++ return ((_UIDCNTH[p] = _tptr) (_UIDCNTL[p] = UL[""]))
}
- return r
++ _fatal("out of UID")
}
++ return (_UIDCNTH[p] (_UIDCNTL[p] = _tptr))
++}
+
- function _dirtree(A, f, B)
- {
-
#_________________________________________________________________
- #########################################
- gsub(/(^[ \t]*)|([ \t]*$)/, "", f)
- delete A
- A[""]
- delete A[""]
- _dirtree_i0(B, 8, split(_cmd("dir \"" f "\" /-C /S 2>NUL"), B,
/\x0D?\x0A/), A, f = _filerd(f))
- return f
++function _handle8494(t)
++{
++ return gensub(/(.)/, ".\\1", "G", t)
++}
+
- function _delf(A, f)
- {
- A["B"][A["F"][A["B"][f]] = A["F"][f]] = A["B"][f]
- delete A["F"][f]
- delete A["B"][f]
++#_____________________________________________________________________________
++function _hexnum(n, l)
++{
++ #########################################################
++ if (l + 0 < 1) {
++ l = 2
}
++ return sprintf("%." ((l + 0 < 1 ? 2 : l)) "X", n)
++}
- function _dirtree_i0(B, i, c, A, f, lf, a, C)
- {
- #___________________________________________________________
- delete A[f]
- A[f][0]
- delete A[f][0]
- lf = length(f)
- for (; i <= c; ) {
- if (match(B[i], /^[ \t]*Directory of (.+)/, C)) {
- if (substr(a = _filerd(C[1] "\\"), 1, lf) == f)
{
- i = _dirtree_i0(B, i + 4, c, A[f], a)
- } else {
- return i
- }
- } else {
- if (match(B[i++], /^([^ \t\-]+)\-([^
\t\-]+)\-([^ \t]+)[ \t]+([^ \t]+)[ \t]+([0-9]+)[ \t]+(.+)$/, C)) {
- A[f][f C[6]] = C[5] " " C[1] "/"
_CHR["MONTH"][C[2]] "/" C[3] " " C[4]
- }
- }
- function _deluid(p)
- {
- if (p in _CLASSPTR) {
- _deluida0 = _CLASSPTR[p]
- if (_deluida0 in _UIDOBL) {
- _UIDOBLV[_UIDOBL[_deluida0]][p]
- }
++#_________________________________________________________________
++function _igetperf(t, s, o)
++{
++ ######################################### # t-test period in
seconds(==0 ? no period; s(=true/false)-output/not output status; o-qnt of ops
before test start
++ if (t == 0 && t == "" && s == 0 && s == "" && o == 0 && o == "") {
++ if (_getperf_fn !~ /not$/ && _constatstr == _getperf_stat) {
++ _constat(_getperf_statstr)
}
- return i
- delete _CLASSPTR[p]
- return _deluida0
++ _getperf_fn = "_nop"
++ return ("[TIME=" (_getperf_last - _getperf_start) " sec("
_getperf_opsec " ops/sec)]")
++ }
++ _conl("initiate _getperf")
++ _getperf_opstart = _getperf_opcurr = o + 0
++ _getperf_opsec = _getperf_opsecp = _getperf_stat = _getperf_statstr = ""
++ _getperf_end = t + (_getperf_start = _getperf_last = _getsecondsync())
++ _getperf_fn = ((t + 0 > 0 ? "_getperf_" : "_getperf_noe")) ((s ? "" :
"not"))
++ return _getperf_start
++}
++
++function _import_data(t, p, p2, a)
++{
++ if (match(t, /^_DATA: /)) {
++ _tDATA[a = _wLCHLD(p, _N())][""]
++ delete _tDATA[a][""]
++ _Zimparr(_tDATA[a], substr(t, 8))
++ _conl("DATA: `" _tDATA[a]["ID"] "':`" _tDATA[a]["DATA"] "'")
++ return ""
}
--
- function _dll_check(pp)
- {
-
#_______________________________________________________________________
- _dllchktv = ""
- _missfl = 1
- #also check that all dll have same version; also check that all
dlls have success and then report that DS plug-in version n - installed
- _tframe("_dll_check_i0", pp, _REG, pp)
- if (1 || "AGENT" in _[pp]) {
- if (_dllchktv != _[pp][".Product Version"]) {
- _dllerr(_[pp]["AGENT"], "agent version ("
_[pp][".Product Version"] ") do not match all lib versions: " _dllchktv "'")
- }
- function _dir(A, rd, i, r, f, ds, pf, B, C)
- {
- delete A
- gsub(/(^[ \t]*)|([ \t]*$)/, "", rd)
- if (rd == "") {
- return ""
++ return t
++}
++
++#_______________________________________________________________________
++function _info(t, d, A)
++{
++ ##################################################
++ if (_ERRLOG_IF) {
++ A["TYPE"] = "INFO"
++ A["TEXT"] = t
++ _log(A, d)
++ }
++}
++
++# test with the different path types
++# _conl(_ln("SRC:") _dumparr(S)); _conl();
++
++function _ini(p, cs, dptr, pfx, sfx, hstr, lstr)
++{
++ return _inituid(p, cs, dptr, pfx, sfx, hstr, lstr, A)
++}
++
++function _initfilever()
++{
++ _fileverpath = "\\\\CPU\\eGAWK\\LIB\\_filever\\_filever.exe"
++}
++
++function _initrdreg()
++{
++ _RDREGTYPE["SZ"] = "STR"
++ _RDREGTYPE["DWORD"] = "W32"
++ _RDREGTYPE["QWORD"] = "W64"
++ _RDREGTYPE["BINARY"] = "BIN"
++ _RDREGTYPE["EXPAND_SZ"] = "XSZ"
++ _RDREGTYPE["MULTI_SZ"] = "MSZ"
++ _RDrdregfld = _rdregkey = 0
++}
++
++function _initregpath0()
++{
++ _REGPATH0REGDIR[""] = "HKEY_LOCAL_MACHINE"
++ _REGPATH0REGDIR["HKLM"] = "HKEY_LOCAL_MACHINE"
++ _REGPATH0REGDIR["HKEY_LOCAL_MACHINE"] = "HKEY_LOCAL_MACHINE"
++ _REGPATH0REGDIR["HKCR"] = "HKEY_CLASSES_ROOT"
++ _REGPATH0REGDIR["HKEY_CLASSES_ROOT"] = "HKEY_CLASSES_ROOT"
++ _REGPATH0REGDIR["HKCU"] = "HKEY_CURRENT_USER"
++ _REGPATH0REGDIR["HKEY_CURRENT_USER"] = "HKEY_CURRENT_USER"
++ _REGPATH0REGDIR["HKU"] = "HKEY_USERS"
++ _REGPATH0REGDIR["HKEY_USERS"] = "HKEY_USERS"
++ _REGPATH0REGDIR["HKCC"] = "HKEY_CURRENT_CONFIG"
++ _REGPATH0REGDIR["HKEY_CURRENT_CONFIG"] = "HKEY_CURRENT_CONFIG"
++ _REGPATH0REGDIR["HKPD"] = "HKEY_PERFORMANCE_DATA"
++ _REGPATH0REGDIR["HKEY_PERFORMANCE_DATA"] = "HKEY_PERFORMANCE_DATA"
++}
++
++function _initshare()
++{
++ _sharextool = "\\\\CPU\\eGAWK\\LIB\\_share\\_share.exe"
++}
++
++#_________________________________________
++function _initspecialuid()
++{
++ _NOINDEX = _getuid()
++ _LEN = _getuid()
++ _PTR = _getuid()
++ _NAME = _getuid()
++ _TYPE = _getuid()
++ _FORMAT = _getuid()
++}
++
++function _initsys()
++{
++}
++
++#_______________________________________________________________________
++function _inituid(p, cs, dptr, pfx, sfx, hstr, lstr, A)
++{
++ ################### 1 #
++ if (cs == 0 && cs == "") {
++ cs = p
++ p = _getuid()
++ }
++ _conl()
++ _conl()
++ _conl(cs)
++ if (match(cs, /^(([^:]*):)?(([^'\xB4]*\xB4.)*[^'\xB4]*)[']/, A)) {
++ pfx = A[3]
++ dptr = A[2]
++ }
++ if (match(cs = substr(cs, 1 + RLENGTH),
/'(([^'\xB4]*\xB4.)*[^'\xB4]*)$/, A)) {
++ sfx = A[1]
++ cs = substr(cs, 1, RSTART - 1)
++ }
++ if (match(cs, /^(([`\^])(.*))/, A)) {
++ if (A[2] == "`") {
++ hstr = A[3] "~"
++ lstr = ""
+ } else {
- if (! _missfl) {
- _creport(pp, "agent not detected in registry")
- } else {
- _dllerr(pp, "agent not detected in registry but
some registry entries exist:")
- _tframe("_dll_check_i1", pp, pp)
- }
++ lstr = A[3] "+"
++ hstr = ""
}
- }
-
- function _dll_check_i0(p, R, pp, p2, i, i2, r, f, v, rs, d, tv, tf)
- {
- if (_[p]["TYPE"] == "defdll") {
- #_______________________________________________
- r = toupper(_[p]["REGPATH"])
- rs = 0
- tf = 0
- tv = ""
- #{ rs=_missfl=1; _[p]["."
gensub(/^([^\\]+\\)+(.*)\..../,"\\2","G",i)]=R[i] } }
- for (i in R) {
- if (toupper(substr(i, 1, length(r))) == r) {
- if ((_chka0 = substr(i, 1 + length(r),
1)) == "" || _chka0 == "\\") {
- rs = 1
- _missfl = 1
- _[p]["."
substr(gensub(/\....$/, "", 1, i), i2 = 2 + length(r), length(i) - i2 + 1)] =
R[i]
- if (chka0 != "") {
- rs = 1
- }
- }
- }
- }
- if (rs) {
- if ((i = ".Install Path") in _[p] && (i =
".Product Version") in _[p]) {
- _[p]["STATUS"] = "PRESENT"
- f = _[p][".Install Path"]
- v = _[p][".Product Version"]
- if (! (".Module" in _[p])) {
- _[pp][".Product Version"] = v
-
_VAR["HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR"]
= f
- _[pp]["AGENT"] = p
- _creport("OK: DLL DETECTED(" v
"): " substr(_[p]["NAME"], 1, 112))
- } else {
- if (_dllchktv == "") {
- _dllchktv = v
- } else {
- if (v != _dllchktv) {
- return
_dllerr(p, "different versions detected: " _dllchktv "!=" v "'")
- }
- }
- ERRNO = ""
- if (_th1(_[p]["DATA"] =
_rdfile(f), ERRNO)) {
- delete _[p]["DATA"]
- return _dllerr(p, "read
lib: " ERRNO, f)
- }
- if (v != (_[p]["VERSION"] =
_getfilever(f))) {
- return _dllerr(p,
"library file version mismatch: ==`" _[p]["VERSION"] "'; !=`" v "'", f)
- }
- _creport(p, "OK: LIBRARY
DETECTED(" v "): " substr(f, 1, 100))
- }
- } else {
- tf = 1
- _dllerr(p, "registry corrupt: `" i "'
not present")
- }
- } else {
- _[p]["STATUS"] = "MISSED"
- }
- i = split(_cmd("dir \"" rd "\" 2>NUL"), B, /\x0D?\x0A/) - 3
- pf = (match(B[4], /Directory of ([^\x00-\x1F]+)/, C) ? C[1]
((C[1] ~ /\\$/ ? "" : "\\")) : "")
- for (r = 0; i > 5; i--) {
- if (match(B[i], /^([^ \t]*)[ \t]+([^ \t]*)[
\t]+((<DIR>)|([0-9\,]+))[ \t]+([^\x00-\x1F]+)$/, C)) {
- if (C[6] !~ /^\.\.?$/) {
- if (C[4]) {
- ds = "D "
- } else {
- ds = C[5] " "
- gsub(/\,/, "", ds)
- }
- if ((f = _filepath(pf C[6] ((C[4] ?
"\\" : "")))) != "") {
- A[f] = ds C[1] " " C[2]
- r++
- }
++ } else {
++ if (match(cs, /^(([^'\xB4\|]*\xB4.)*[^'\xB4\|]*)(\|(.*))?/, A))
{
++ hstr = A[1]
++ lstr = A[4]
++ } else {
++ ERRNO = "_inituid(): bad parameters"
++ return
+ }
+ }
-
- function _dll_check_i1(p, pp, p1, p2, p3, i)
- {
- if (_[p]["TYPE"] == "defdll") {
- for (i in _[p]) {
- #_______________________________________________
- if (i ~ /^\./) {
- _dllerr(pp, " "
_[p]["REGPATH"] "\\" substr(i, 2))
++ _conl(dptr ":" pfx "'" hstr "|" lstr "'" sfx)
++ return _cfguid(p, dptr, pfx, sfx, hstr, lstr)
++}
++
++function _inituidefault(h, l, H, L)
++{
++ _classys = ""
++ delete _UIDOBLV[_UIDOBLV[_UIDOBL[_classys] = _classys][""] =
_classys][""]
++ _UIDPFX[_classys]
++ _UIDSFX[_classys]
++ _UIDCNT[_classys] = _UIDCHR[_classys] = _CLASSPTR[_classys] = _classys
++ h = "AB"
++ l = h "01"
++ _splitstr(H, h)
++ _splitstr(L, l)
++ delete _UIDCHRH[_UIDCHRH[_classys][""] = _classys][""]
++ delete _UIDCHRL[_UIDCHRL[_classys][""] = _classys][""]
++ _UIDCNTH[_classys]
++ _cfguidh(_classys, H, L)
++ _UIDCNTL[_classys] = _cfguidl(_classys, L, L)
++ _CLASSFN[_classys]["del"] = "_tobjDEL"
++ _CLASSFN[_classys]["new"] = "_tobjNEW"
++ _drawuid(_classys)
++ _initspecialuid()
++}
++
++#_______________________________________________________________________
++function _ins(S, sf, D, df)
++{
++ ################################################
++ if (sf in S) {
++ if (isarray(S[sf])) {
++ if (df in D) {
++ if (isarray(D[df])) {
++ return _extarr(D[df], S[sf])
}
++ delete D[df]
}
-- }
- return r
++ D[df][""]
++ delete D[df][""]
++ return _extarr(D[df], S[sf])
++ } else {
++ if (isarray(D[df])) {
++ delete D[df]
++ }
++ D[df] = S[sf] D[df]
++ }
++ }
++}
++
++#_________________________________________________________________
++function _insf(A, f)
++{
++ ###############################################
++ A["F"][""] = A["B"][A["F"][f] = A["F"][""]] = f
++}
++
++#_________________________________________________________________
++function _insframe(A, f)
++{
++ ###########################################
++ A[f] = A[""]
++ A[""] = f
++}
++
++########################
++#_________________________________________________________________
++function _inspass(A, f)
++{
++ A[f] = A[""]
++ A[""] = f
++}
++
++# there is problem with string's format: i can;t easilly merge 2 charsets:
comma-divided and every-char-divided strings
++
++#_______________________________________________________________________
++function _isptr(p)
++{
++ ################################################## 1 #
++ if (isarray(p)) {
++ is = _NOP
++ it = "A"
++ return 0
}
-
- function _dllerr(p, t, f)
- {
-
#___________________________________________________________________________________
- if (t !~ /\x00/) {
- t = "ERROR: \000" t
- }
- _errfl = 1
- _[p]["ERROR"] = _[p]["ERROR"] _ln(t ((f == "" ? "" : ": " f)))
++ is = p
++ if (p == 0 && p == "") {
++ it = "-"
++ return 0
+ }
-
- function _drawuid(p, cn, ch, o)
- {
- _conl("uid: " p)
- _conl("\toblptr: " ((p in _UIDOBL ? _UIDOBL[p] "'" : "-")))
- if (p in _UIDOBL) {
- if (! _isptr(o = _UIDOBL[p])) {
- _conl(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> oblptr
not pointer")
- }
- if (! isarray(_UIDOBLV[o])) {
- _conl(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> no
OBLV array at ptr")
- }
- }
- _conl("\tprefix: " ((p in _UIDPFX ? _UIDPFX[p] "'" : "-")))
- _conl("\tsuffix: " ((p in _UIDSFX ? _UIDSFX[p] "'" : "-")))
- _conl("\tcounters: " (cn = (p in _UIDCNT ? _UIDCNT[p] "'" :
"-")))
- if (cn != "-") {
- _conl("\t\tcntrL: " _UIDCNTL[_UIDCNT[p]] "'")
- _conl("\t\tcntrH: " _UIDCNTH[_UIDCNT[p]] "'")
- }
- _conl("\tcharset: " (ch = (p in _UIDCHR ? _UIDCHR[p] "'" :
"-")))
- if (ch != "-") {
- _conl("chrH: ")
- _conl(_dumparr(_UIDCHRH[_UIDCHR[p]]))
- _conl()
- _conl("chrL: ")
- _conl(_dumparr(_UIDCHRL[_UIDCHR[p]]))
- _conl()
- }
++ if (p in _CLASSPTR) {
++ return (it = "P")
+ }
++ it = "S"
++ return 0
++}
- function _dumparr(A, t, lv, a)
- {
-
#_______________________________________________________________________
- ############################################
- b = PROCINFO["sorted_in"]
- PROCINFO["sorted_in"] = "_lengthsort"
- if (isarray(A)) {
- delete _DUMPARR
- _dumparrc = _dumparrd = ""
- _dumparr_i1(A, lv = ((lv == "" ? 16 : (lv == 0 || lv +
0 != 0 ? lv : (lv == "-*" ? -3 : (lv ~ /^\+?\*$/ ? 3 : 16))))) + 0, (lv < 0 ?
-1 : 1), 0, _tabtospc(t))
- PROCINFO["sorted_in"] = a
- return _retarrd(_DUMPARR, _dumparrd, _dumparrd = "")
- function _dirtree(A, f, B)
- {
- gsub(/(^[ \t]*)|([ \t]*$)/, "", f)
- delete A
- A[""]
- delete A[""]
- _dirtree_i0(B, 8, split(_cmd("dir \"" f "\" /-C /S 2>NUL"), B,
/\x0D?\x0A/), A, f = _filerd(f))
- return f
++#_______________________________________________________________________
++function _istr(p)
++{
++ ################################################### 1 #
++ if (isarray(p)) {
++ is = _NOP
++ it = "A"
++ return 0
++ }
++ is = p
++ if (p == 0 && p == "") {
++ it = "-"
++ return 0
++ }
++ return (it = (p == "" ? "s" : "S"))
++}
++
++#_________________________________________________________________
++function _lengthsort(i1, v1, i2, v2)
++{
++ ##############################
++ return ((length(i1) < length(i2) ? -1 : (length(i1) > length(i2) ? 1 :
(i1 < i2 ? -1 : 1))))
++}
++
++#_________________________________________________________________
++function _lib_APPLY()
++{
++ return _ffaccr(_LIBAPI, "_lib_APPLY")
++}
++
++#_________________________________________________________________
++function _lib_BEGIN(A)
++{
++ return _ffaccr(_LIBAPI, "_lib_BEGIN", "", A)
++}
++
++#_______________________________________________________________________
++function _lib_CMDLN(t)
++{
++ return _pass(_LIBAPI["F"], "_lib_CMDLN", t)
++}
++
++#_________________________________________________________________
++function _lib_END(A)
++{
++ return _ffaccr(_LIBAPI, "_lib_END", "", A)
++}
++
++#_________________________________________________________________
++function _lib_HELP()
++{
++ return _fbaccr(_LIBAPI, "_lib_HELP")
++}
++
++#_________________________________________________________________
++function _lib_NAMEVER()
++{
++ return _fbaccr(_LIBAPI, "_lib_NAMEVER")
++}
++
++#_____________________________________________________________________________
++function _ln(t)
++{
++ ###############################################################
++ return ((t ~ /\x0A$/ ? t : t _CHR["EOL"]))
++}
++
++#_________________________________________________________________
++function _log(A, p, a, B)
++{
++ ###########################################
++ if (isarray(A)) {
++ A["TIME"] = _getime()
++ A["DATE"] = _getdate()
++ if (p) {
++ _tLOG[p = _wLCHLD(p, _N())][""]
++ delete _tLOG[p][""]
++ _movarr(_tLOG[p], A)
++ return p
+ }
++ _expout("_ERRLOG: " _Zexparr(A) "\n")
++ } else {
++ B["TEXT"] = A
++ B["TYPE"] = ""
++ return _log(B, p)
}
++}
- function _dumparr_i1(A, lv, ls, ln, t, t2, i, a, f)
- {
- #___________________________________________________________
- t2 = _getchrln(" ", length(t))
- if (ln == lv) {
- if (ls > 0) {
- for (i in A) {
- ++a
- }
- } else {
- for (i in A) {
- (isarray(A[i]) ? ++a : "")
- }
- }
- if (length(_dumparrd = _dumparrd t ((a > 0 ? " ... (x"
a ")" : "")) _CHR["EOL"]) > 262144) {
- _DUMPARR[++_dumparrc] = _dumparrd
- _dumparrd = ""
- }
- return
- }
- if (ls >= 0) {
- for (i in A) {
- if (! isarray(A[i])) {
- if (length(_dumparrd = _dumparrd ((f ?
t2 : t _nop(f = 1))) "[" i "]=" A[i] "'" _CHR["EOL"]) > 262144) {
- _DUMPARR[++_dumparrc] =
_dumparrd
- _dumparrd = ""
- }
- }
- }
- function _dirtree_i0(B, i, c, A, f, lf, a, C)
- {
- delete A[f]
- A[f][0]
- delete A[f][0]
- lf = length(f)
- for (; i <= c; ) {
- if (match(B[i], /^[ \t]*Directory of (.+)/, C)) {
- if (substr(a = _filerd(C[1] "\\"), 1, lf) == f)
{
- i = _dirtree_i0(B, i + 4, c, A[f], a)
- } else {
- return i
- }
- } else {
- if (match(B[i++], /^([^ \t\-]+)\-([^
\t\-]+)\-([^ \t]+)[ \t]+([^ \t]+)[ \t]+([0-9]+)[ \t]+(.+)$/, C)) {
- A[f][f C[6]] = C[5] " " C[1] "/"
_CHR["MONTH"][C[2]] "/" C[3] " " C[4]
- }
++#_________________________________________________________________
++function _lspctab(t, ts, l, l1, l2, A)
++{
++ ################################
++ while (match(t, /^(\t*)( *)((\t*)(.*))$/, A)) {
++ if (A[1, "length"] >= l) {
++ return substr(t, l + 1)
+ }
- for (i in A) {
- if (isarray(A[i])) {
- _dumparr_i1(A[i], lv, ls, ln + ls, _th0((f ? t2
: t), f = 1) "[" i "]")
++ if (A[2]) {
++ if ((l1 = int(A[2, "length"] / ts)) >= (l2 = l - A[1,
"length"])) {
++ return (substr(A[2], l2 * ts + 1) A[3])
}
- }
- if (! f) {
- if (length(_dumparrd = _dumparrd t _CHR["EOL"]) >
262144) {
- _DUMPARR[++_dumparrc] = _dumparrd
- _dumparrd = ""
++ if (! A[4]) {
++ return A[5]
+ }
++ t = A[1] _getchrln("\t", l1) A[3]
++ } else {
++ return t
}
- return i
}
-
- function _dumpobj(p, f, t, s)
- {
-
#___________________________________________________________________________________
-
####################################################################################
-
#___________________________________________________________________________________
- # OTHER tFUNCTIONs
#################################################################
-
#_____________________________________________________________________________
- ###################################################
- s = _dumpobj_i0(p, f, t = t "." p "{")
- if (p = _rFCHLD(p)) {
- return (s = s _dumpobjm(p, f, (s ? _getchrln(" ",
length(t) - 1) : t " ")))
- }
- return s
++}
++
++function _mac_init()
++{
++ _MACPFX["\204"] = "_macpfx84"
++ _MACPFX[""] = "_mpupfxsubret"
++ _MACPFX84SFX["\204"] = "_macpfx84"
++ _MACPFX84SFX["\224"] = "_macsfx94"
++ _MACPFX84SFX[""] = "_mpusfxsubret"
++ _VLDMAXSTRING = 1e+06
++}
++
++function _macpfx84(F, D, C, p1, p2, p3)
++{
++ return _mpusub(_MACPFX84SFX, D, C, D[_mpuptr++], p1, p2, p3)
++}
++
++function _macsfx94(F, D, C, p1, p2, p3)
++{
++ return _mpuretsub(D, _handle8494(_mpuacc))
++}
++
++#_______________________________________________________________________
++function _movarr(D, S)
++{
++ ###################################################
++ delete D
++ D[""]
++ delete D[""]
++ _addarr(D, S)
++}
++
++function _mpu(t, F, p1, p2, p3, D, C)
++{
++ if (patsplit(t, C, /[\x84\x93\x94]/, D) > 0) {
++ _conline("CODE")
++ _conl()
++ _conl(_dumparr(C))
++ _conline("DATA")
++ _conl()
++ _conl(_dumparr(D))
++ _mpuptr = 0
++ _mpucc0 = ""
++ _mpusub(F, D, C, D[_mpuptr++], p1, p2, p3)
++ return _mpuacc
+ }
++ return t
++}
+
- function _dumpobj_i0(p, f, t)
- {
- #___________________________________________________________
- if (f == "") {
- return _dumpobj_i2(p, t)
- }
- if (f == 0) {
- return _dumpobj_i1(p, t " ")
- }
- return (_dumpobj_i1(p, t " ") _dumpobj_i2(p, _getchrln(" ",
length(t))))
- }
++#
++# /rexpstr/ -> datastr
++# (\x00\t\+)* -> 28 00 09 5B 2B 29
++#
++# unesc all non-rexp characters: replace unesc of rexp-characters but do not
remove it: \* -> \*, \x2A -> \*, \052 -> \*, \\ -> \#
+
- function _dumpobj_i1(p, t)
- {
- #___________________________________________________________
- return _ln(t substr(((p in _tPREV ? "\253" _tPREV[p] : "")) "
", 1, 7) " " substr(((p in _tPARENT ? "\210" _tPARENT[p] : "")) " ",
1, 7) " " substr(((p in _tFCHLD ? _tFCHLD[p] : "")) "\205" ((p in _tQCHLD ? "
(" _tQCHLD[p] ") " : "\205")) "\205" ((p in _tLCHLD ? _tLCHLD[p] : "")) "
", 1, 22) substr(((p in _tNEXT ? "\273" _tNEXT[p] : "")) "
", 1, 8))
- }
+
- function _dumpobj_i2(p, t)
- {
- #___________________________________________________________
- return (_dumpobj_i3(_[p], t " ") _dumpobj_i3(_ptr[p],
_getchrln(" ", length(t)) "`", "`"))
- }
+
- function _dumpobj_i3(A, t, p, e, s, i, t2)
- {
- if (isarray(A)) {
- for (i in A) {
-
#___________________________________________________________
- t2 = _getchrln(" ", length(t))
- for (i in A) {
- if (isarray(A[i])) {
- s = s _dumpobj_i3(A[i], t "["
_dumpobj_i4(i) "]", p, _ln())
- } else {
- s = s _ln(t "[" _dumpobj_i4(i)
"]=" p _dumpobj_i4(A[i]) "'")
- }
- t = t2
- }
- return s
- }
- return ((e == "" ? "" : t e))
- }
- if (A == 0 && A == "") {
- return
- }
- return _ln(t "=" _dumpobj_i4(p A) "'")
- }
+
- function _dumpobj_i4(t)
- {
- #___________________________________________________________
- if (length(t) > 64) {
- return (substr(t, 1, 28) " ... " substr(t, length(t) -
28))
- }
- return t
- }
+
- function _dumpobj_nc(p, f, t)
- {
-
#_________________________________________________________________
- #######################################
- return _dumpobj_i0(p, f, t "." p "{ ")
- }
+
- function _dumpobjm(p, f, t, s, t2)
- {
-
#_________________________________________________________________
- ###################################
- t2 = _getchrln(" ", length(t))
- do {
- s = s _dumpobj(p, f, t)
- t = t2
- } while (p = _rNEXT(p))
- return s
- }
+
- function _dumpobjm_nc(p, f, t, s, t2)
- {
-
#_________________________________________________________________
- ################################
- t2 = _getchrln(" ", length(t))
- do {
- s = s _dumpobj_nc(p, f, t)
- t = t2
- } while (p = _rNEXT(p))
- return s
- }
+
- function _dumpuidgen(p, pd, pc, ps)
- {
- _conline("#" ++cntdm ": " p "'")
- _conl()
- if (p in _tuidel) {
- _conl("DEL: " _var(pd = _tuidel[p]))
- _conl(_dumparr(_tUIDEL[pd]) _ln())
- }
- _conl("PFX: " _tUIDPFX[p] "'")
- _conl("SFX: " _tUIDSFX[p] "'")
- _conl("COUNT: " ((p in _tuidcnt ? (pc = _tuidcnt[p]) "'" :
_th0("-", pc = -2))))
- _con("CHARS: ")
- if (p in _tuidchr) {
- _conl((ps = _tuidchr[p]) "'")
- _conl("HCHR: " ((pc == -2 ? "-" : _tUIDCNTH[pc] "'")))
- _conl(_dumparr(_tUIDCHRH[ps]) _ln())
- _conl("LCHR: " ((pc == -2 ? "-" : _tUIDCNTL[pc] "'")))
- _conl(_dumparr(_tUIDCHRL[ps]) _ln())
- } else {
- _conl("-")
- }
- }
+
- function _dumpval(v, n)
- {
-
#_____________________________________________________________________________
- _dumpstr = _dumpstr (v = _ln(((n == 0 && n == "" ? "RET" : n))
": " ((v == 0 && v == "" ? "-" : v "'"))))
- return v
- }
+
- function _eXTFN(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
- ########################################################
-
#___________________________________________________________
- return t
- case "_lib_APPLY":
-
#___________________________________________________________
- return
- case "_lib_HELP":
-
#___________________________________________________________
- return
- case "_lib_NAMEVER":
-
#___________________________________________________________
- return _ln("_extfn 1.0")
- case "_lib_BEGIN":
-
#___________________________________________________________
- return
- case "_lib_END":
- return
- }
- }
+
- function _endpass(t)
- {
-
#_________________________________________________________________
- _endpass_v0 = t
- }
+
- function _err(t, a, b)
- {
-
#_______________________________________________________________________
- ###################################################
- a = BINMODE
- b = ORS
- BINMODE = "rw"
- ORS = ""
- print(t) > _SYS_STDERR
- fflush(_SYS_STDERR)
- BINMODE = a
- ORS = b
- return t
- }
+
- function _errnl(t)
- {
-
#_________________________________________________________________
- ################################################
- return _err(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])))
- }
+
- function _error(t, d, A)
- {
- if (_ERRLOG_EF) {
-
#_______________________________________________________________________
- #################################################
- A["TYPE"] = "ERROR"
- A["TEXT"] = t
- _log(A, d)
- }
- }
+
- function _exit(c)
- {
-
#_______________________________________________________________________
- #######################################################
- exit c
- }
+
- function _export_data(t, i, A)
- {
-
#_____________________________________________________________________________
- #################################################
- A["DATA"] = t
- A["ID"] = i
- _expout("_DATA: " _Zexparr(A) "\n")
- }
+
- function _expout(t, d, a, b)
- {
-
#___________________________________________________________________________________
-
####################################################################################
-
#_____________________________________________________________________________
- ####################################################
- a = BINMODE
- b = ORS
- BINMODE = "rw"
- ORS = ""
- print(t) > ((d ? d : d = _errlog_file))
- fflush(d)
- BINMODE = a
- ORS = b
- }
+
- function _extfn_init()
- {
-
#_________________________________________________________________________________________
-
##########################################################################################
- ##############################################################
- _formatstrs_init()
- _formatstrd_init()
- _formatrexp_init()
- _unformatstr_init()
- _mac_init()
- }
-
- function _faccl_i0(A, t, p, P, f, r)
- {
- f = r = ""
- if (isarray(A)) {
- while (f = A[f]) {
- r = (@f(t, p, P)) r
- }
- }
- return r
- }
+
- function _faccr_i0(A, t, p, P, f, r)
- {
- f = r = ""
- if (isarray(A)) {
- while (f = A[f]) {
- r = r @f(t, p, P)
- }
- }
- return r
- }
+
- function _fatal(t, d, A)
- {
- if (_ERRLOG_FF) {
-
#_______________________________________________________________________
- #################################################
- A["TYPE"] = "FATAL"
- A["TEXT"] = t
- _log(A, d)
- }
- if (! d) {
- exit
- }
- }
+
- function _fbaccl(A, t, p, P)
- {
- return _faccl_i0(A["B"], t, p, P)
- }
+
- function _fbaccr(A, t, p, P)
- {
- return _faccr_i0(A["B"], t, p, P)
- }
+
- function _ffaccl(A, t, p, P)
- {
- return _faccl_i0(A["F"], t, p, P)
- }
+
- function _ffaccr(A, t, p, P)
- {
- return _faccr_i0(A["F"], t, p, P)
- }
+
- function _fframe(A, t, p)
- {
- ##################
-
#_______________________________________________________________________
- #################################################
- return _fframe_i0(A, t, p, A[""])
- }
+
- function _fframe_i0(A, t, p, f)
- {
- #___________________________________________________________
- return ((f ? (@f(t, p)) _fframe_i0(A, t, p, A[f]) : ""))
- }
+
- function _file(f)
- {
-
#_________________________________________________________________
- #################################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return ((f in _FILEXT ? _FILEXT[f] : ""))
- }
+
- function _file_check(p)
- {
- if (1 || "AGENT" in _[p]) {
-
#_______________________________________________________________________
- _tframe("_file_check_i0", p, p)
- }
- }
+
- function _file_check_i0(p, pp, p1, p2, f, v)
- {
- if (_[p]["TYPE"] == "defile") {
- #_______________________________________________
- f = _[p]["FILE"]
- f = ((match(f, /^.:/) ? "" :
_[_[pp]["AGENT"]][".Install Path"] "\\")) _[p]["FILE"]
- if ("RQVERSION" in _[p]) {
- v = _[p]["RQVERSION"]
- } else {
- v = _[pp][".Product Version"]
- }
- ERRNO = ""
- if (_th1(_[p]["DATA"] = _rdfile(f), ERRNO)) {
- delete _[p]["DATA"]
- return _dllerr(p, "read file: " ERRNO, f)
- }
- if (v != "" && v != (_[p]["VERSION"] = _getfilever(f)))
{
- return _dllerr(p, " file version mismatch: ==`"
_[p]["VERSION"] "'; !=`" v "'", f)
+
- function _dll_check(pp)
- {
- _dllchktv = ""
- _missfl = 1
- _tframe("_dll_check_i0", pp, _REG, pp)
- if (1 || "AGENT" in _[pp]) {
- if (_dllchktv != _[pp][".Product Version"]) {
- _dllerr(_[pp]["AGENT"], "agent version ("
_[pp][".Product Version"] ") do not match all lib versions: " _dllchktv "'")
++
++
++
++
++function _mpudefaulthnd(F, D, C, p1, p2, p3)
++{
++ _mpuretsub(D, _mpucc0)
++}
++
++function _mpupfxsubret(F, D, C, p1, p2, p3)
++{
++ return 1
++}
++
++function _mpuretsub(D, t)
++{
++ _mpuacc = D[_mpuptr++]
++ _accmpu(D, t)
++ return 1
++}
++
++function _mpusfxsubret(F, D, C, p1, p2, p3)
++{
++ return -1
++}
++
++function _mpusub(F, D, C, d, p1, p2, p3, q)
++{
++ q = D[_ARRLEN]
++ if (_VLDMAXSTRING < length(d)) {
++ D[--D[_ARRLEN]] = d
++ _mpuacc = ""
++ } else {
++ _mpuacc = d
++ }
++ d = _mpucc0
++ _conl("_mpusub enter: in `" _mpuacc "' / _mpuptr=" _mpuptr "'")
++ do {
++ if ((_mpucc0 = C[_mpuptr]) in F) {
++ if (isarray(F[_mpucc0])) {
++ _mpufn0 = F[_mpucc0]
}
- _creport(p, substr("OK: FILE DETECTED" ((v == "" ?
"" : "(" v ")")) ": " f, 1, 122))
++ _conl("FN: `" _mpucc0 "' > CALL: `" _mpufn0 "' :
_mpuacc=" _mpuacc "'")
++ } else {
++ _mpufn0 = "_mpudefaulthnd"
++ }
++ } while (! _accmpu(D, _mpuacc, @_mpufn0(F, D, C, p1, p2, p3)))
++ if (_mpufn0 == -1) {
++ _conl("WARNING: unclosed expression: `" d _mpuacc "'")
++ _mpuacc = d _mpuacc
++ }
++ _retarrm(D, q, "", (_mpufn0 == -1 ? _th0(d, _mpusubwrng("WARNING:
unclosed expression", d _mpuacc)) : ""))
++ # collect: _mpuacc=_retarr(D) _mpuacc
++ _conl("mpusub exit: _mpuacc: `" _mpuacc "'")
++}
++
++#_______________________________________________________________________
++function _n(F, v, p)
++{
++ #####################################################
++ for (p in _UIDSDEL) {
++ delete _UIDSDEL[p]
++ delete _ptr[p]
++ delete _tPREV[p]
++ delete _tPARENT[p]
++ delete _tNEXT[p]
++ delete _tFCHLD[p]
++ delete _tQCHLD[p]
++ delete _tLCHLD[p]
++ delete _TMP0[p]
++ delete _TMP1[p]
++ delete _tLINK[p]
++ delete _tCLASS[p]
++ return _nN_i0(p, F, v)
++ }
++ for (p in _UIDS) {
++ delete _UIDS[p]
++ return _nN_i0(p, F, v)
++ }
++ return _nN_i0(_tgenuid(), F, v)
++}
++
++#_____________________________________________________
++function _nN_i0(p, F, v)
++{
++ _[p][""]
++ delete _[p][""]
++ _ptr[p][""]
++ delete _ptr[p][""]
++ _TMP0[p][_ARRLEN] = _TMP1[p][_ARRLEN] = 0
++ if (isarray(F)) {
++ delete F[p]
++ if (isarray(v)) {
++ F[p][""]
++ delete F[p][""]
++ _copyarr(F[p], v)
} else {
- if (_[p]["TYPE"] == "defdir") {
- if (_filexist(f = _[p]["DIR"])) {
- _creport(p, substr("OK: DIR
DETECTED: " f, 1, 112))
- if (! _missfl) {
- _creport(pp, "agent not detected in registry")
++ if (! (v == 0 && v == "")) {
++ F[p] = v
++ }
++ }
++ } else {
++ if (! (F == 0 && F == "")) {
++ if (isarray(v)) {
++ _[p][F][""]
++ delete _[p][F][""]
++ _copyarr(_[p][F], v)
+ } else {
- _dllerr(pp, "agent not detected in registry but
some registry entries exist:")
- _tframe("_dll_check_i1", pp, pp)
++ if (v == 0 && v == "") {
++ _mpu(F, p)
+ } else {
- _dllerr(p, "directory " f " is not
detected")
++ _[p][F] = v
+ }
}
}
}
++ return p
++}
- function _filed(f, dd, d)
- {
-
#_________________________________________________________________
- ##########################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- if (f in _FILEDIRFL) {
- return _FILEDIR[f]
- }
- if (f in _FILEROOT) {
- if (d = filegetdrvdir(_FILEROOT[f])) {
- _FILEDIRFL[f]
- }
- return (_FILEDIR[f] = d _FILEDIR[f])
- }
- if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEDIR) {
- return _FILEDIR[dd, f]
- }
- if ((d = filedi(dd) _FILEDIR[f]) ~ /^\\/) {
- return (_FILEDIR[dd, f] = d)
- }
- return d
- function _dll_check_i0(p, R, pp, p2, i, i2, r, f, v, rs, d, tv, tf)
- {
- if (_[p]["TYPE"] == "defdll") {
- r = toupper(_[p]["REGPATH"])
- rs = 0
- tf = 0
- tv = ""
- for (i in R) {
- if (toupper(substr(i, 1, length(r))) == r) {
- if ((_chka0 = substr(i, 1 + length(r),
1)) == "" || _chka0 == "\\") {
- rs = 1
- _missfl = 1
- _[p]["."
substr(gensub(/\....$/, "", 1, i), i2 = 2 + length(r), length(i) - i2 + 1)] =
R[i]
- if (chka0 != "") {
- rs = 1
- }
- }
++#_________________________________________________________________
++function _newclrdir(f)
++{
++ ############################################
++ if ((f = _filerd(f)) == "") {
++ return
+ }
-
- function _filen(f)
- {
-
#_________________________________________________________________
- ################################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return ((f in _FILENAM ? _FILENAM[f] : ""))
++ _cmd("rd " f " /S /Q 2>NUL")
++ _cmd("md " f " 2>NUL")
++ _WFILEROOTDIR[f]
++ return f
++}
++
++#_______________________________________________________________________
++function _newdir(f)
++{
++ #####################################################
++ if ((f = _filerd(f)) == "") {
++ return
+ }
-
- function _filene(f)
- {
-
#_________________________________________________________________
- ###############################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return (((f in _FILENAM ? _FILENAM[f] : "")) ((f in _FILEXT ?
_FILEXT[f] : "")))
++ if (! (f in _WFILEROOTDIR)) {
++ _cmd("md " f " 2>NUL")
++ _WFILEROOTDIR[f]
+ }
-
- function _filenotexist(f, a)
- {
-
#_________________________________________________________________
- ######################################
- if (f == "") {
- return ""
- }
- if ((a = _filepath(f)) == "") {
- ERRNO = "Filepath error `" f "'"
- return ""
++ return f
++}
++
++##############################
++#_______________________________________________________________________
++function _nop(p0, p1, p2, p3)
++{
++}
++
++#_____________________________________________________
++# _retarr(ARRAY,start,prefixtr,postfixtr)
++# Return string collected from elements of ARRAY.
++# The data elements in ARRAY have numeric indexes. By default it
starts from element with index 1, but it is possible to locate elements
starting from
++# 0,-1,-.... The last data element in the ARRAY have the highest
numeric index that is stored in ARRAY[_ARRLEN].
++# Optimized for very large data size.
++#
++# IN: ARRAY - source data
array(is ARRAY is not array then return undefined)
++# start - (optional)
start index in ARRAY; if missed or have non-numeric value then start array
index will be 1.
++# prefixst - the string
that will be inserted in the begin of generated return string
++# postfix - the string that will
be added at the end of generated return string
++# MOD: -
++# OUT: -
++# RETURN: undefined - if ARRAY is not
array; if ARRAY is empty; if start is higher than ARRAY last element index
++# string - collected string:
prefixtr-arraydata-postfixtr
++#_________________________________________________________________
++function _nretarr(A, i, v, r, q)
++{
++ #####################################
++ if ((i = (i == "" ? 1 : i + 0)) <= (q = A[_ARRLEN])) {
++ if (i <= (r = q - 16)) {
++ _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
++ while (i < r) {
++ _ARRSTR = _ARRSTR A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i]
++ }
++ _ARRSTR = _ARRSTR A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] v
_retarr_i0(A, q, i)
++ return
+ }
- _cmd("if exist \"" a "\" exit 1 2>NUL")
- if (_exitcode == 1) {
- return (ERRNO = _NOP)
++ _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] v _retarr_i0(A, q, i)
++ return
++ }
++ _ARRSTR = v
++ return
++}
++
++#___________________________________________________________
++function _nretarrd(A, i, v, r, q)
++{
++ ##############################
++ if ((i = (i == "" ? 1 : i + 0)) <= (q = A[_ARRLEN])) {
++ if (i <= (r = q - 16)) {
++ _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
++ while (i < r) {
++ _ARRSTR = _ARRSTR A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i]
++ }
++ _ARRSTR = _ARRSTR A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] v
_retarr_i0(A, q, i)
++ } else {
++ _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] v
_retarr_i0(A, q, i)
+ }
- return a
++ } else {
++ _ARRSTR = v
+ }
-
- function _filepath(f, dd)
- {
-
#_______________________________________________________________________
- ################################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
++ delete A
++ A[""]
++ delete A[""]
++}
++
++#___________________________________________________________________________________
++####################################################################################
++
++#___________________________________________________________________________________
++function _out(t, a, b)
++{
++ ###############################################################
++ a = BINMODE
++ b = ORS
++ BINMODE = "rw"
++ ORS = ""
++ print(t) > _SYS_STDOUT
++ fflush(_SYS_STDOUT)
++ BINMODE = a
++ ORS = b
++ return t
++}
++
++#_________________________________________________________________
++function _outnl(t)
++{
++ ################################################
++ return _out(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])))
++}
++
++function _p1(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s1, p1, p2, p3, p4,
p5, p6, p7)
++}
++
++function _p2(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s2, p1, p2, p3, p4,
p5, p6, p7)
++}
++
++function _p3(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s3, p1, p2, p3, p4,
p5, p6, p7)
++}
++
++function _p4(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s4, p1, p2, p3, p4,
p5, p6, p7)
++}
++
++function _p5(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s5, p1, p2, p3, p4,
p5, p6, p7)
++}
++
++function _p6(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s6, p1, p2, p3, p4,
p5, p6, p7)
++}
++
++function _p7(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s7, p1, p2, p3, p4,
p5, p6, p7)
++}
++
++function _p8(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s8, p1, p2, p3, p4,
p5, p6, p7)
++}
++
++#_______________________________________________________________________
++function _pass(A, f, t, p2, i, a)
++{
++ ###########################################
++ a = _endpass_v0
++ _endpass_v0 = ""
++ i = 1
++ while (t && i) {
++ i = ""
++ while ((i = A[i]) && t == (t = @i(f, t, p2))) {
++ }
++ }
++ if (i && _endpass_v0) {
++ A["!"] = 1
++ t = _endpass_v0
++ } else {
++ delete A["!"]
++ }
++ _endpass_v0 = a
++ return t
++}
++
++# this is somnitelno: that / / . / / com 56 / / - is the DEV...; what is
DEV ??? this already PROBLEM
++#_____________________________________________________________________________
++function _patharr0(D, q, i, h, A, B)
++{
++ ##############################################
++ delete D
++ if (0 < (q = split(gensub(/\\/, "/", "G", gensub(/ *([:$\\\/]) */,
"\\1", "G", gensub(/(^[ \t]+)|([ \t]+$)/, "", "G", q))), A, /\/+/, B))) {
++ if (2 > (h = length(B[1]))) {
++ D["type"] = "FILE"
++ A[1] = _patharr0_i0(A[1], D, "drive")
++ return _patharr0_i1(D, A, 1, q)
++ }
++ i = gensub(/ *([\.\?]) */, "\\1", "G", A[2])
++ IGNORECASE = 1
++ match(A[1], /^((https?)|(ftp)):$/)
++ IGNORECASE = 0
++ if (RLENGTH > 0) {
++ D["type"] = toupper(substr(A[1], 1, RLENGTH - 1))
++ _patharr0_i0(i, D, "site", "port")
++ } else {
++ if (A[1] == "") {
++ D["type"] = "UNC"
++ if (h > 2) {
++ D["host"]
++ A[2] = _patharr0_i0(A[2], D, "drive",
"", "FILE")
++ return _patharr0_i1(D, A, 2, q)
+ }
- }
- if (rs) {
- if ((i = ".Install Path") in _[p] && (i =
".Product Version") in _[p]) {
- _[p]["STATUS"] = "PRESENT"
- f = _[p][".Install Path"]
- v = _[p][".Product Version"]
- if (! (".Module" in _[p])) {
- _[pp][".Product Version"] = v
-
_VAR["HKEY_LOCAL_MACHINE\\SOFTWARE\\Altiris\\Deployment\\AgentInstallPath.STR"]
= f
- _[pp]["AGENT"] = p
- _creport("OK: DLL DETECTED(" v
"): " substr(_[p]["NAME"], 1, 112))
- } else {
- if (_dllchktv == "") {
- _dllchktv = v
- } else {
- if (v != _dllchktv) {
- return
_dllerr(p, "different versions detected: " _dllchktv "!=" v "'")
- }
- }
- ERRNO = ""
- if (_th1(_[p]["DATA"] =
_rdfile(f), ERRNO)) {
- delete _[p]["DATA"]
- return _dllerr(p, "read
lib: " ERRNO, f)
- }
- if (v != (_[p]["VERSION"] =
_getfilever(f))) {
- return _dllerr(p,
"library file version mismatch: ==`" _[p]["VERSION"] "'; !=`" v "'", f)
- }
- _creport(p, "OK: LIBRARY
DETECTED(" v "): " substr(f, 1, 100))
- }
- } else {
- tf = 1
- _dllerr(p, "registry corrupt: `" i "'
not present")
++ if (i == "") {
++ return 1
+ }
++ D["host"] = i
++ A[3] = _patharr0_i0(A[3], D, "drive", "",
"FILE")
+ } else {
- _[p]["STATUS"] = "MISSED"
++ D["type"] = "FILE"
++ A[1] = _patharr0_i0(A[1], D, "drive")
++ return _patharr0_i1(D, A, 1, q)
+ }
}
- return (filegetrootdir(f, dd) ((f in _FILENAM ? _FILENAM[f] :
"")) ((f in _FILEXT ? _FILEXT[f] : "")))
++ return _patharr0_i1(D, A, 3, q)
}
++}
- function _filer(f, dd)
- {
-
#_________________________________________________________________
- #############################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- function _dll_check_i1(p, pp, p1, p2, p3, i)
- {
- if (_[p]["TYPE"] == "defdll") {
- for (i in _[p]) {
- if (i ~ /^\./) {
- _dllerr(pp, " "
_[p]["REGPATH"] "\\" substr(i, 2))
- }
- }
++#_____________________________________________________
++function _patharr0_i0(t, D, l, r, d, i)
++{
++ if (i = index(t, ":")) {
++ if (d) {
++ D["type"] = d
+ }
- if (f in _FILEROOT) {
- return _FILEROOT[f]
++ if (i > 1) {
++ D[l] = substr(t, 1, i - 1)
+ }
- if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEROOT) {
- return _FILEROOT[dd, f]
++ if ((t = substr(t, i + 1)) && r) {
++ D[r] = t
+ }
- return (_FILEROOT[dd, f] = fileri(dd))
- }
-
- function _filerd(f, dd)
- {
-
#_________________________________________________________________
- ############################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
++ return t
++ } else {
++ if (t && r) {
++ D[l] = t
}
- return filegetrootdir(f, dd)
}
++ return t
++}
- function _filerdn(f, dd)
- {
-
#_________________________________________________________________
- ###########################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- function _dllerr(p, t, f)
- {
- if (t !~ /\x00/) {
- t = "ERROR: \000" t
++#_____________________________________________________
++function _patharr0_i1(D, A, i, q, t, c)
++{
++ if (D["type"] == "UNC") {
++ if (t = A[i++]) {
++ D[0] = (D["share"] = D[++c] = t) "/"
++ } else {
++ return 1
}
- return ((f in _FILENAM ? filegetrootdir(f, dd) _FILENAM[f] :
""))
- _errfl = 1
- _[p]["ERROR"] = _[p]["ERROR"] _ln(t ((f == "" ? "" : ": " f)))
}
--
- function _filerdne(f, dd)
- {
-
#_________________________________________________________________
- ##########################################
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- if (f in _FILENAM) {
- return (filegetrootdir(f, dd) _FILENAM[f] ((f in
_FILEXT ? _FILEXT[f] : "")))
- }
- if (f in _FILEXT) {
- return (filegetrootdir(f, dd) _FILEXT[f])
- }
- return ""
- function _drawuid(p, cn, ch, o)
- {
- _conl("uid: " p)
- _conl("\toblptr: " ((p in _UIDOBL ? _UIDOBL[p] "'" : "-")))
- if (p in _UIDOBL) {
- if (! _isptr(o = _UIDOBL[p])) {
- _conl(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> oblptr
not pointer")
++ while (i < q) {
++ D[0] = D[0] (D[++c] = A[i++]) "/"
+ }
-
- function _filerdnehnd(st, c, r, d, n, A)
- {
- if (st) {
- if ((c = toupper(st)) in _FILECACHE) {
-
#___________________________________________________________
- FLENGTH = length(st)
- return _FILECACHE[c]
- }
- if (match(st, /^[ \t]*\\[ \t]*\\/)) {
- if (match(substr(st, (FLENGTH = RLENGTH) + 1),
/^[ \t]*([0-9A-Za-z\-]+)[ \t]*(\\[ \t]*([A-Za-z])[ \t]*\$[ \t]*)?(\\[
\t]*([0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)+[
\t]*)?(([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)) {
- FLENGTH = FLENGTH + RLENGTH
- d = ((A[3] ? "\\" A[3] "$" : "")) A[4]
- gsub(/[ \t]*\\[ \t]*/, "\\", d)
- if ((st = toupper((r = "\\\\" A[1]) d
(n = A[8]))) in _FILECACHE) {
- return (_FILECACHE[substr(c, 1,
FLENGTH)] = _FILECACHE[st])
- }
- _FILEDIR[c = _FILECACHE[substr(c, 1,
FLENGTH)] = _FILECACHE[st] = ++_file_rootcntr] = d
- _FILEDIRFL[c]
- _FILEROOT[c] = r
- } else {
- FLENGTH = 0
- _filepath_err = "UNC"
- return ""
- }
- } else {
- match(st, /^(([ \t]*\.[ \t]*\\[ \t]*)|(([
\t]*([A-Za-z])[ \t]*(\:)[ \t]*)?([ \t]*(\\)[ \t]*)?))([ \t]*(([
\t]*[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)+)[ \t]*)?([
\t]*([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)
- if (! (FLENGTH = RLENGTH)) {
- return ""
- }
- d = A[8] A[10]
- gsub(/[ \t]*\\[ \t]*/, "\\", d)
- if ((st = toupper((r = A[5] A[6]) d (n =
A[14]))) in _FILECACHE) {
- return (_FILECACHE[substr(c, 1,
FLENGTH)] = _FILECACHE[st])
- }
- _FILEDIR[c = _FILECACHE[substr(c, 1, FLENGTH)]
= _FILECACHE[st] = ++_file_rootcntr] = d
- if (A[8]) {
- _FILEDIRFL[c]
- }
- if (r) {
- _FILEROOT[c] = r
- }
++ if (i == q) {
++ if (match(t = A[i], /\.[^\.]*$/)) {
++ if (RSTART > 1) {
++ D["name"] = substr(t, 1, RSTART - 1)
}
- if (n) {
- if (match(n, /\.[^\.]*$/)) {
- _FILEXT[c] = substr(n, RSTART)
- _FILENAM[c] = substr(n, 1, RSTART - 1)
- } else {
- _FILENAM[c] = n
- }
- if (! isarray(_UIDOBLV[o])) {
- _conl(">>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> no
OBLV array at ptr")
++ D["ext"] = substr(t, RSTART, RLENGTH)
++ } else {
++ if (t != "") {
++ D["name"] = t
}
- return c
}
- return ""
- _conl("\tprefix: " ((p in _UIDPFX ? _UIDPFX[p] "'" : "-")))
- _conl("\tsuffix: " ((p in _UIDSFX ? _UIDSFX[p] "'" : "-")))
- _conl("\tcounters: " (cn = (p in _UIDCNT ? _UIDCNT[p] "'" :
"-")))
- if (cn != "-") {
- _conl("\t\tcntrL: " _UIDCNTL[_UIDCNT[p]] "'")
- _conl("\t\tcntrH: " _UIDCNTH[_UIDCNT[p]] "'")
- }
- _conl("\tcharset: " (ch = (p in _UIDCHR ? _UIDCHR[p] "'" :
"-")))
- if (ch != "-") {
- _conl("chrH: ")
- _conl(_dumparr(_UIDCHRH[_UIDCHR[p]]))
- _conl()
- _conl("chrL: ")
- _conl(_dumparr(_UIDCHRL[_UIDCHR[p]]))
- _conl()
- }
- }
-
- function _dumparr(A, t, lv, a)
- {
- b = PROCINFO["sorted_in"]
- PROCINFO["sorted_in"] = "_lengthsort"
- if (isarray(A)) {
- delete _DUMPARR
- _dumparrc = _dumparrd = ""
- _dumparr_i1(A, lv = ((lv == "" ? 16 : (lv == 0 || lv +
0 != 0 ? lv : (lv == "-*" ? -3 : (lv ~ /^\+?\*$/ ? 3 : 16))))) + 0, (lv < 0 ?
-1 : 1), 0, _tabtospc(t))
- PROCINFO["sorted_in"] = a
- return _retarrd(_DUMPARR, _dumparrd, _dumparrd = "")
- }
- }
-
- function _dumparr_i1(A, lv, ls, ln, t, t2, i, a, f)
- {
- t2 = _getchrln(" ", length(t))
- if (ln == lv) {
- if (ls > 0) {
- for (i in A) {
- ++a
- }
- } else {
- for (i in A) {
- (isarray(A[i]) ? ++a : "")
- }
+ }
++ return 1
++}
+
- function _filexist(f, a)
- {
-
#_______________________________________________________________________
- ################################################
- if (f == "") {
- return ""
- }
- if ((a = _filepath(f)) == "") {
- ERRNO = "Filepath error `" f "'"
- return ""
- }
- _cmd("if exist \"" a "\" exit 1 2>NUL")
- if (_exitcode == 1) {
- return a
- }
- ERRNO = "File not found `" f "'"
- return _NOP
- }
++#############################################################################
+
- function _fn(f, p0, p1, p2)
- {
-
#_______________________________________________________________________
- ################################################
- if (f in FUNCTAB) {
- return @f(p0, p1, p2)
- }
- }
+
- function _foreach(A, f, r, p0, p1, p2, i, p)
- {
- if (isarray(A)) {
-
#_______________________________________________________________________
- ####################################
- _TMP0[p = _n()]["."] = 1
- _foreach_i0(A, f, _TMP0[p], p0, p1, p2)
- return _th0(_retarr(_TMP0[p]), _tdel(p))
++
++function _pmap(m, s1, s2, s3, s4, s5, s6, s7, s8)
++{
++ if (match(m, /^([^\(]+)\(([^\)]*)\)$/, _QMAP)) {
++ _qparamf1 = _QMAP[1]
++ _QMAP[0] = "r" (_qparamc1 = split(_QMAP[2], _QMAP, ""))
++ _qparamf0 = "_p" _QMAP[_qparamc1--]
++ return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8)
++ }
++}
++
++function _pr0(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1()
++}
++
++function _pr1(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1(p1)
++}
++
++function _pr2(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1(p1, p2)
++}
++
++function _pr3(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1(p1, p2, p3)
++}
++
++function _pr4(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1(p1, p2, p3, p4)
++}
++
++function _pr5(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1(p1, p2, p3, p4, p5)
++}
++
++function _pr6(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1(p1, p2, p3, p4, p5, p6)
++}
++
++function _pr7(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1(p1, p2, p3, p4, p5, p6, p7)
++}
++
++function _pr8(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6, p7, p8)
++{
++ return @_qparamf1(p1, p2, p3, p4, p5, p6, p7, p8)
++}
++
++#_________________________________________________________________
++function _printarr(A, t, lv, r, a)
++{
++ ####################################
++ a = PROCINFO["sorted_in"]
++ PROCINFO["sorted_in"] = "_lengthsort"
++ _printarrexp = (r ? r : "")
++ if (isarray(A)) {
++ delete _DUMPARR
++ _dumparrc = _dumparrd = ""
++ _printarr_i1(A, lv = ((lv == "" ? 16 : (lv == 0 || lv + 0 != 0
? lv : (lv == "-*" ? -3 : (lv ~ /^\+?\*$/ ? 3 : 16))))) + 0, (lv < 0 ? -1 : 1),
0, _tabtospc(t))
++ PROCINFO["sorted_in"] = a
++ return _retarrd(_DUMPARR, _dumparrd, _dumparrd = "")
++ }
++}
++
++#___________________________________________________________
++function _printarr_i1(A, lv, ls, ln, t, t2, i, a, f)
++{
++ t2 = _getchrln(" ", length(t))
++ if (ln == lv) {
++ if (ls > 0) {
++ for (i in A) {
++ ++a
+ }
- if (length(_dumparrd = _dumparrd t ((a > 0 ? " ... (x"
a ")" : "")) _CHR["EOL"]) > 262144) {
- _DUMPARR[++_dumparrc] = _dumparrd
- _dumparrd = ""
++ } else {
++ for (i in A) {
++ (isarray(A[i]) ? ++a : "")
+ }
- return
}
- if (_isptr(A)) {
- _TMP0[p = _n()][_ARRLEN] = 1
- _tframe4("_foreach_i1" ((r ? "~" r : "")), A, f,
_TMP0[p], p0, p1)
- return _th0(_retarr(_TMP0[p]), _tdel(p))
- if (ls >= 0) {
- for (i in A) {
++ if (length(_dumparrd = _dumparrd t ((a > 0 ? " ... (x" a ")" :
"")) _CHR["EOL"]) > 262144) {
++ _conl(_dumparrd)
++ _dumparrd = ""
+ }
++ return
+ }
-
- function _foreach_i0(A, f, D, p0, p1, p2)
- {
++ if (ls >= 0) {
+ for (i in A) {
- #_____________________________________________________
- if (isarray(A[i])) {
- _foreach_i0(A[i], f, D, p0, p1, p2)
- } else {
- _gen(D, @f(A[i], p0, p1, p2))
++ if (! _printarrexp || i ~ _printarrexp) {
+ if (! isarray(A[i])) {
+ if (length(_dumparrd = _dumparrd ((f ?
t2 : t _nop(f = 1))) "[" i "]=" A[i] "'" _CHR["EOL"]) > 262144) {
- _DUMPARR[++_dumparrc] =
_dumparrd
++ _conl(_dumparrd)
+ _dumparrd = ""
+ }
+ }
}
}
- for (i in A) {
- if (isarray(A[i])) {
- _dumparr_i1(A[i], lv, ls, ln + ls, _th0((f ? t2
: t), f = 1) "[" i "]")
+ }
-
- function _foreach_i1(p, f, D, p0, p1, p2)
- {
- #_____________________________________________________
- _gen(D, @f(p, p0, p1, p2))
- }
-
- function _formatrexp(t)
- {
-
#_____________________________________________________________________________
- _formatstrq0 = split(t, _FORMATSTRA, /[\/\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATREXPESC[_FORMATSTRB[t]]
++ for (i in A) {
++ if (isarray(A[i])) {
++ if (! _printarrexp || i ~ _printarrexp) {
++ _printarr_i1(A[i], lv, ls, ln + ls, _th0((f ?
t2 : t), f = 1) "[" i "]")
+ }
}
- return (_formatstrs0 _FORMATSTRA[t])
- }
-
- function _formatrexp_init()
- {
- #___________________________________________________________
- _defescarr(_FORMATREXPESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
- _defescarr(_FORMATREXPESC, "\\/", "\\")
- _FORMATREXPESC["\t"] = "\\t"
- if (! f) {
- if (length(_dumparrd = _dumparrd t _CHR["EOL"]) >
262144) {
- _DUMPARR[++_dumparrc] = _dumparrd
- _dumparrd = ""
- }
+ }
-
- function _formatstrd(t)
- {
-
#_____________________________________________________________________________
- _formatstrq0 = split(t, _FORMATSTRA, /["\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATSTRDESC[_FORMATSTRB[t]]
++ if (! f) {
++ if (length(_dumparrd = _dumparrd t _CHR["EOL"]) > 262144) {
++ _conl(_dumparrd)
++ _dumparrd = ""
}
- return (_formatstrs0 _FORMATSTRA[t])
}
++}
- function _formatstrd_init()
- {
- function _dumpobj(p, f, t, s)
- {
- s = _dumpobj_i0(p, f, t = t "." p "{")
- if (p = _rFCHLD(p)) {
- return (s = s _dumpobjm(p, f, (s ? _getchrln(" ",
length(t) - 1) : t " ")))
++function _qparam(qm, p0, p1, p2, p3, p4, p5, p6, p7)
++{
++ if (qm == qm + 0 && qm > 0) {
++ _qparamim = substr(" ", 1, qm)
++ } else {
++ if (qm != "") {
++ _qparamim = qm
++ } else {
++ _qparamim = " "
++ }
++ }
++ _qparamask = ""
++ return _qparam_i0(p0, p1, p2, p3, p4, p5, p6, p7)
++}
++
++function _qparam_i0(p0, p1, p2, p3, p4, p5, p6, p7)
++{
++ _qparama0 = substr(_qparamim, 1, 1)
++ _qparamim = substr(_qparamim, 2)
++ switch (_qparama0) {
++ case "":
++ gsub(/ +$/, "", _qparamask)
++ return length(_qparamask)
++ default:
++ if (isarray(p0)) {
++ _qparama0 = "A"
++ } else {
++ if (p0 == "" && p0 == 0) {
++ _qparama0 = " "
++ } else {
++ if (_isptr(p0)) {
++ _qparama0 = "P"
++ } else {
++ _qparama0 = "S"
++ }
++ }
+ }
- return s
++ case ".":
++ _qparamask = _qparamask _qparama0
++ return _qparam_i0(p1, p2, p3, p4, p5, p6, p7)
++ }
++}
++
++#_______________________________________________________________________
++function _qstr(t, c, A, B)
++{
++ ################################################
++ c = ""
++ for (t = split(t, A, /[\x00-\x1F\\"]/, B); t >= 0; t--) {
++ c = _QSTR[B[t]] A[t + 1] c
++ }
++ return c
++}
++
++#_________________________________________________________________
++function _qstrq(t)
++{
++ ################################################
++ gsub(/\\/, "\\\\", t)
++ gsub(/"/, "\\\"", t)
++ return t
++}
++
++################################################################
++#_____________________________________________________________________________
++function _rEG(c, t, P, a, A)
++{
++ #####################################################
++ switch (c) {
++ case "_lib_CMDLN":
+ #___________________________________________________________
- _defescarr(_FORMATSTRDESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
- _defescarr(_FORMATSTRDESC, "[\\\\\"]", "\\")
- _FORMATSTRDESC["\t"] = "\\t"
++ return t
++ #_____________________________________________________
++ case "_lib_APPLY":
++ return
++ #_____________________________________________________
++ case "_lib_HELP":
++ return
++ #_____________________________________________________
++ case "_lib_NAMEVER":
++ return _ln("_reg 0.001")
++ #_____________________________________________________
++ case "_lib_BEGIN":
++ return
++ #_____________________________________________________
++ case "_lib_END":
++ return
}
++}
- function _formatstrs(t)
- {
-
#__________________________________________________________________________________
-
####################################################################################
-
#___________________________________________________________________________________
- _formatstrq0 = split(t, _FORMATSTRA, /['\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATSTRSESC[_FORMATSTRB[t]]
- function _dumpobj_i0(p, f, t)
- {
- if (f == "") {
- return _dumpobj_i2(p, t)
++#_______________________________________________________________________
++function _rFBRO(p)
++{
++ ######################################################
++ if (p) {
++ if (p in _tPARENT) {
++ return _tFCHLD[_tPARENT[p]]
+ }
- if (f == 0) {
- return _dumpobj_i1(p, t " ")
++ while (p in _tPREV) {
++ p = _tPREV[p]
}
- return (_formatstrs0 _FORMATSTRA[t])
- return (_dumpobj_i1(p, t " ") _dumpobj_i2(p, _getchrln(" ",
length(t))))
++ return p
}
--
- function _formatstrs_init()
- {
- #___________________________________________________________
- _defescarr(_FORMATSTRSESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
- _defescarr(_FORMATSTRSESC, "[\\\\']", "\\")
- _FORMATSTRSESC["\t"] = "\\t"
- function _dumpobj_i1(p, t)
- {
- return _ln(t substr(((p in _tPREV ? "\253" _tPREV[p] : "")) "
", 1, 7) " " substr(((p in _tPARENT ? "\210" _tPARENT[p] : "")) " ",
1, 7) " " substr(((p in _tFCHLD ? _tFCHLD[p] : "")) "\205" ((p in _tQCHLD ? "
(" _tQCHLD[p] ") " : "\205")) "\205" ((p in _tLCHLD ? _tLCHLD[p] : "")) "
", 1, 22) substr(((p in _tNEXT ? "\273" _tNEXT[p] : "")) "
", 1, 8))
++ return p
++}
++
++#_______________________________________________________________________
++function _rFCHLD(p)
++{
++ #####################################################
++ if (p && p in _tFCHLD) {
++ return _tFCHLD[p]
++ }
++ return ""
++}
++
++######################## p="", !v
++#_______________________________________________________________________
++function _rLBRO(p)
++{
++ ######################################################
++ if (p) {
++ if (p in _tPARENT) {
++ return _tLCHLD[_tPARENT[p]]
++ }
++ while (p in _tNEXT) {
++ p = _tNEXT[p]
++ }
++ return p
+ }
-
- function _fpp(q, D, S)
- {
- _conl()
- _conline(q)
- _conl()
- #_arregpath(D,S)
- #_conl(_dumparr(D))
- q = _patharr0(S, q)
- _conl(_dumparr(S))
- _conl()
- return q
++ return p
++}
++
++######################## p=""
++#_______________________________________________________________________
++function _rLCHLD(p)
++{
++ #####################################################
++ if (p && p in _tLCHLD) {
++ return _tLCHLD[p]
++ }
++ return ""
++}
++
++#_______________________________________________________________________
++function _rLINK(p)
++{
++ ######################################################
++ return ((p in _tLINK ? _tLINK[p] : ""))
++}
++
++######################## p=""
++#_______________________________________________________________________
++function _rNEXT(p)
++{
++ ######################################################
++ if (p && p in _tNEXT) {
++ return _tNEXT[p]
++ }
++ return ""
++}
++
++######################## p=""
++#_______________________________________________________________________
++function _rPARENT(p)
++{
++ ####################################################
++ if (p && p in _tPARENT) {
++ return _tPARENT[p]
++ }
++ return ""
++}
++
++######################## p=""
++#_______________________________________________________________________
++function _rPREV(p)
++{
++ ######################################################
++ if (p && p in _tPREV) {
++ return _tPREV[p]
++ }
++ return ""
++}
++
++######################## p=""
++#_______________________________________________________________________
++function _rQBRO(p, c, p1)
++{
++ ################################################
++ if (p) {
++ if (p in _tPARENT) {
++ return _tQCHLD[_tPARENT[p]]
++ }
++ c = 1
++ p1 = p
++ while (p1 in _tPREV) {
++ c++
++ p1 = _tPREV[p1]
++ }
++ while (p in _tNEXT) {
++ c++
++ p = _tNEXT[p]
++ }
++ return c
+ }
-
- function _fthru(A, c, p, B)
- {
-
#_______________________________________________________________________
-
########################################################################
- return _fthru_i0(A, c, p, B, A[""])
++ return p
++}
++
++######################## p=""
++#_______________________________________________________________________
++function _rQCHLD(p)
++{
++ #####################################################
++ if (p && p in _tQCHLD) {
++ return _tQCHLD[p]
++ }
++ return ""
++}
++
++#___________________________________________________________________________________
++# EMMULATED FUNCTIONAL FIELDS
######################################################
++
++#_____________________________________________________________________________
++function _rSQFIRST(g, p, A)
++{
++ #####################################################
++ if (isarray(A)) {
++ return _rSQFIRSTA(g, p, A)
++ }
++ _SQTOPTR[g] = p
++ _SQSTACK[g][0] = 0
++ return _rsqgetptr(g, p)
++}
++
++#_________________________________________________________________
++function _rSQFIRSTA(g, p, A)
++{
++ ########################################
++ _SQTOPTR[g] = p
++ _SQSTACK[g][0] = 0
++ if ((p = _rsqgetptr(g, p)) in A) {
++ return p
}
++ return _rSQNEXTA(g, p, A)
++}
- function _fthru_i0(A, c, p, B, f)
- {
-
#_________________________________________________________________
- return ((f ? @f(c, _fthru_i0(A, c, p, B, A[f]), B) : ""))
- function _dumpobj_i2(p, t)
- {
- return (_dumpobj_i3(_[p], t " ") _dumpobj_i3(_ptr[p],
_getchrln(" ", length(t)) "`", "`"))
++#_______________________________________________________________________
++function _rSQNEXT(g, p, A)
++{
++ ################################################
++ if (isarray(A)) {
++ return _rSQNEXTA(g, p, A)
}
++ return _rsqnext_i0(g, p)
++}
- function _gen(D, t)
- {
- if (length(D[D[_ARRLEN]] = D[D["."]] t) > _datablock_length) {
- D[++D[_ARRLEN]] = ""
- function _dumpobj_i3(A, t, p, e, s, i, t2)
- {
- if (isarray(A)) {
- for (i in A) {
- t2 = _getchrln(" ", length(t))
- for (i in A) {
- if (isarray(A[i])) {
- s = s _dumpobj_i3(A[i], t "["
_dumpobj_i4(i) "]", p, _ln())
- } else {
- s = s _ln(t "[" _dumpobj_i4(i)
"]=" p _dumpobj_i4(A[i]) "'")
- }
- t = t2
- }
- return s
- }
- return ((e == "" ? "" : t e))
++#_________________________________________________________________
++function _rSQNEXTA(g, p, A)
++{
++ #########################################
++ if (p == _SQTOPTR[g]) {
++ if (_SQSTACK[g][0] > 0) {
++ _SQTOPTR[g] = _SQSTACK[g][_SQSTACK[g][0]--]
++ return _rSQNEXTA(g, _SQSTACK[g][_SQSTACK[g][0]--], A)
}
- if (A == 0 && A == "") {
- return
++ return
+ }
-
- function _gensubfn(t, r, f, p0, A)
- {
-
#_____________________________________________________________________________
- ###############################################
- if (match(t, r, A)) {
- return (substr(t, 1, RSTART - 1) (@f(_th0(substr(t,
RSTART, RLENGTH), t = substr(t, RSTART + RLENGTH)), A, p0)) _gensubfn(t, r, f,
p0))
++ while (p in _tNEXT) {
++ if ((p = _rsqgetptr(g, _tNEXT[p])) in A) {
++ return p
}
- return t
- return _ln(t "=" _dumpobj_i4(p A) "'")
}
++ return ((p in _tPARENT ? _rSQNEXTA(g, _tPARENT[p], A) : ""))
++}
+
- function _get_errout(p)
- {
-
#_____________________________________________________________________________
- #######################################################
- return _tframe("_get_errout_i0", p)
- }
++function _rconl(t)
++{
++ _rprt = _rprt _ln(t)
++}
- function _get_errout_i0(p, t, n, a)
- {
-
#_______________________________________________________________________
- return ((p in _tLOG ? _get_errout_i1(p) _get_errout_i3(p) : ""))
- }
-
- function _get_errout_i1(p, t, n, a)
- {
- if (p in _tLOG) {
-
#_________________________________________________________________
- n = ""
- if (_tLOG[p]["TYPE"]) {
- n = _tLOG[p]["TYPE"] ": " _get_errout_i2(p)
- if (match(_tLOG[p]["TEXT"], /\x1F/)) {
- t = n
- gsub(/[^\t]/, " ", t)
- return (_ln(n substr(_tLOG[p]["TEXT"],
1, RSTART - 1)) _ln(t substr(_tLOG[p]["TEXT"], RSTART + 1)))
- function _dumpobj_i4(t)
- {
- if (length(t) > 64) {
- return (substr(t, 1, 28) " ... " substr(t, length(t) -
28))
++function _rconline(t)
++{
++ _rprt = _rprt _ln((t = " " t " ") _getchrln("_", _CON_WIDTH - length(t)
- 1))
++}
++
++#___________________________________________________________
++function _rd_shortcut(D, f)
++{
++ if ((_shrtcutf0 = _filepath(f)) && _shortcut_nerr(_shrtcuta0 =
_cmd(_shortcut_fpath " /A:Q /F:\"" _shrtcutf0 "\" 2>&1"), _shrtcutf0)) {
++ ERRNO = ""
++ split(_shrtcuta0, _SHRTCUTA0, /\x0D?\x0A/)
++ for (_shrtcuta0 in _SHRTCUTA0) {
++ for (f in _SHORTCUTRSTRUC) {
++ if (match(_SHRTCUTA0[_shrtcuta0], "^" f)) {
++ D[_SHORTCUTRSTRUC[f]] =
substr(_SHRTCUTA0[_shrtcuta0], 1 + RLENGTH)
+ }
+ }
- return _ln(n _tLOG[p]["TEXT"])
}
- return t
}
++ return ((ERRNO ? ERRNO = "read shortcut: " ERRNO : _NOP))
++}
- function _get_errout_i2(p)
- {
-
#_______________________________________________________________________
- return (("FILE" in _tLOG[p] ? _tLOG[p]["FILE"] (("LINE" in
_tLOG[p] ? "(" _tLOG[p]["LINE"] ")" : "")) ": " : ""))
- }
-
- function _get_errout_i3(p, t, ts, cl, cp, cr, a, b)
- {
- if ("LSTR" in _tLOG[p]) {
-
#_______________________________________________________________________
- t = _tLOG[p]["FULLSTR"]
- ts = _tLOG[p]["TS"]
- cp = "^"
- if ("CSTR" in _tLOG[p]) {
- cr = _tLOG[p]["CSTR"]
- cl = _tLOG[p]["CLSTR"]
- if ("CPSTR" in _tLOG[p]) {
- cp = _tLOG[p]["CPSTR"]
- }
- }
- cr = substr(cr, length(cl) + length(cp) + 1)
- return (_ln(_tabtospc(t, ts)) _ln(_getchrln(" ", a =
length(_tabtospc(_tLOG[p]["LSTR"], ts))) _getchrln("-", b =
length(_tabtospc(cl, ts, a))) _getchrln("^", b = length(_tabtospc(cp, ts, a = a
+ b))) _getchrln("-", length(_tabtospc(cr, ts, a + b)))))
- }
- function _dumpobj_nc(p, f, t)
- {
- return _dumpobj_i0(p, f, t "." p "{ ")
++#_______________________________________________________________________
++function _rdfile(f, i, A)
++{
++ ################################################
++ if ((f = _filerdne(f)) == "" || _filene(f) == "") {
++ ERRNO = "Filename error"
++ return
}
--
- function _get_logout(p)
- {
-
#_____________________________________________________________________________
- #######################################################
- return _tframe("_get_logout_i0", p)
- function _dumpobjm(p, f, t, s, t2)
- {
- t2 = _getchrln(" ", length(t))
- do {
- s = s _dumpobj(p, f, t)
- t = t2
- } while (p = _rNEXT(p))
- return s
++ _fio_cmda = RS
++ RS = ".{1,}"
++ _fio_cmdb = BINMODE
++ BINMODE = "rw"
++ ERRNO = RT = _NUL
++ getline RS < f
++ BINMODE = _fio_cmdb
++ RS = _fio_cmda
++ if (ERRNO == "") {
++ close(f)
}
--
- function _get_logout_i0(p, t, n, a)
- {
- if (p in _tLOG) {
-
#_______________________________________________________________________
- n = (("DATE" in _tLOG[p] ? _tLOG[p]["DATE"] " " : ""))
(("TIME" in _tLOG[p] ? _tLOG[p]["TIME"] " " : ""))
- if (_tLOG[p]["TYPE"]) {
- n = n _tLOG[p]["TYPE"] ": " (("FILE" in
_tLOG[p] ? _tLOG[p]["FILE"] (("LINE" in _tLOG[p] ? "(" _tLOG[p]["LINE"] ")" :
"")) ": " : ""))
- if (match(_tLOG[p]["TEXT"], /\x1F/)) {
- t = n
- gsub(/[^\t]/, " ", t)
- return (_ln(n substr(_tLOG[p]["TEXT"],
1, RSTART - 1)) _ln(t substr(_tLOG[p]["TEXT"], RSTART + 1)))
- }
- }
- return _ln(n _tLOG[p]["TEXT"])
- }
- function _dumpobjm_nc(p, f, t, s, t2)
- {
- t2 = _getchrln(" ", length(t))
- do {
- s = s _dumpobj_nc(p, f, t)
- t = t2
- } while (p = _rNEXT(p))
- return s
++ if (ERRNO == "") {
++ return RT
}
--
- function _getchrln(s, w)
- {
-
#_______________________________________________________________________
- #################################################
- #if ( w!=w+0 || w<0 ) w=_CON_WIDTH
- if (s == "") {
- return
- }
- if (length(s) < w) {
- if (s in _GETCHRLN) {
- if (length(_getchrlnt0 = _GETCHRLN[s]) >= w) {
- return substr(_getchrlnt0, 1, w)
- }
- function _dumpuidgen(p, pd, pc, ps)
- {
- _conline("#" ++cntdm ": " p "'")
- _conl()
- if (p in _tuidel) {
- _conl("DEL: " _var(pd = _tuidel[p]))
- _conl(_dumparr(_tUIDEL[pd]) _ln())
- }
- _conl("PFX: " _tUIDPFX[p] "'")
- _conl("SFX: " _tUIDSFX[p] "'")
- _conl("COUNT: " ((p in _tuidcnt ? (pc = _tuidcnt[p]) "'" :
_th0("-", pc = -2))))
- _con("CHARS: ")
- if (p in _tuidchr) {
- _conl((ps = _tuidchr[p]) "'")
- _conl("HCHR: " ((pc == -2 ? "-" : _tUIDCNTH[pc] "'")))
- _conl(_dumparr(_tUIDCHRH[ps]) _ln())
- _conl("LCHR: " ((pc == -2 ? "-" : _tUIDCNTL[pc] "'")))
- _conl(_dumparr(_tUIDCHRL[ps]) _ln())
++ return (RT = _NOP)
++}
++
++####################################################################################
++# PUBLIC:
++#_____________________________________________________________________________
++# fn _th0,_th1,_th2,_th3
++# USAGE:
++# _th0(p1,p2,p3,p4)
++#
++# Each of this functions can have up to 4 parameters.
++# _th0(p1,p2,p3,p4) return 1st parameter (p1)
++# _th1(p1,p2,p3,p4) return 2nd parameter (p2)
++# _th2(p1,p2,p3,p4) return 3rd parameter (p3)
++# _th3(p1,p2,p3,p4) return 4th parameter (p4)
++#_____________________________________________________________________________
++# fn _nop(p1,p2,p3,p4,p5,p6,p7,p8)
++# USAGE:
++# _nop()
++#
++# Does not do any action. No result returned. Up to 8
parameters.
++#_____________________________________________________________________________
++# fn _exit(c)
++# USAGE:
++# _exit(code)
++#
++# This function do the same as GAWK-operator `exit code'.
++#_____________________________________________________________________________
++# fn _getdate()
++# fn _getime()
++# fn _getsecond()
++# fn _getsecondsync()
++function _rdreg(D, p)
++{
++ ################################################################
++ _rdregp0 = "reg query \"" p "\" /S /reg:64 2>NUL"
++ _rdregfld = _rdregkey = 0
++ _rdregq0 = split(gensub(/[\x0D?\x0A]{2,}/, _CHR["EOL"], "G",
_cmd(_rdregp0)), _RDREGA0, /\x0D?\x0A/)
++ while (_rdregq0 > 0) {
++ _rdreg_i0(D)
++ }
++ return (_rdregfld + _rdregkey)
++}
++
++#___________________________________________________________
++function _rdreg_i0(D, A)
++{
++ while (_rdregq0 > 0) {
++ if (match(_rdregp0 = _RDREGA0[_rdregq0--], / (.*)
REG_((SZ)|(DWORD)|(QWORD)|(BINARY)|(EXPAND_SZ)|(MULTI_SZ)) (.*)$/, A)) {
++ if (! _rdreg_i0(D)) {
++ ++_rdregfld
++ D[_rdregp0 A[1] "." _RDREGTYPE[A[2]]] = A[9]
++ return
+ } else {
- _getchrlnt0 = s s
- }
- while (length(_getchrlnt0) < w) {
- _getchrlnt0 = _getchrlnt0 _getchrlnt0
++ break
+ }
- _GETCHRLN[s] = _getchrlnt0
- return substr(_getchrlnt0, 1, w)
} else {
- return substr(s, 1, w)
- _conl("-")
++ if (_rdregp0 ~ /^HK/) {
++ ++_rdregkey
++ return D[_rdregp0 = _rdregp0 "\\"]
++ }
}
}
++ return 1
++}
+
- function _dumpval(v, n)
- {
- _dumpstr = _dumpstr (v = _ln(((n == 0 && n == "" ? "RET" : n))
": " ((v == 0 && v == "" ? "-" : v "'"))))
- return v
- }
++#_____________________________________________________________________________________________________
++######################################################################################################
+
- function _eXTFN(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return _ln("_extfn 1.0")
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
- }
- }
+
- function _endpass(t)
- {
- _endpass_v0 = t
- }
+
- function _err(t, a, b)
- {
- a = BINMODE
- b = ORS
- BINMODE = "rw"
- ORS = ""
- print(t) > _SYS_STDERR
- fflush(_SYS_STDERR)
- BINMODE = a
- ORS = b
- return t
- }
- function _getdate()
- {
-
#_______________________________________________________________________
- #####################################################
- return strftime("%F")
- }
- function _errnl(t)
- {
- return _err(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])))
- }
- function _getfilepath(t, f, al, b, A)
- {
-
#_____________________________________________________________________________
- ############################################
- ERRNO = ""
- if (match(t, /^[ \t]*(("([^"]*)"[ \t]*)|([`']([^']*)'[
\t]*)|(([^ \t]+)[ \t]*))/, A)) {
- al = RLENGTH
- f = A[3] A[5] A[7]
- _conl("_getfilepath(" f ") (" al ")")
- if (b = _filepath(f)) {
- if (length(f) <= FLENGTH) {
- FLENGTH = al
- return b
- }
- ERRNO = "Filepath `" f "' error"
- }
- }
- FLENGTH = 0
- }
- function _error(t, d, A)
- {
- if (_ERRLOG_EF) {
- A["TYPE"] = "ERROR"
- A["TEXT"] = t
- _log(A, d)
- }
- }
- function _getfilever(f)
- {
- #############################################################
- split(_cmd(_fileverpath " \"" f "\""), _GETFILEVERA0, /[ \t]+/)
- if (_GETFILEVERA0[5]) {
- return _GETFILEVERA0[5]
- }
- }
- function _exit(c)
- {
- exit c
- }
- function _getime()
- {
-
#_________________________________________________________________
- ################################################
- return strftime("%H:%M:%S")
- }
- function _export_data(t, i, A)
- {
- A["DATA"] = t
- A["ID"] = i
- _expout("_DATA: " _Zexparr(A) "\n")
- }
- function _getmpdir(f, dd)
- {
-
#_________________________________________________________________
- ##########################################
- if (! dd || ! (dd = _filerd(dd))) {
- dd = _FILEIO_TMPRD
- }
- if (f = (f ? _filerd(f, dd) : _filerd("_" ++_FILEIO_TMPCNTR
"\\", dd))) {
- _FILEIO_RDTMP[toupper(f)]
- }
- return f
- }
- function _expout(t, d, a, b)
- {
- a = BINMODE
- b = ORS
- BINMODE = "rw"
- ORS = ""
- print(t) > ((d ? d : d = _errlog_file))
- fflush(d)
- BINMODE = a
- ORS = b
- }
- function _getmpfile(f, dd)
- {
-
#_________________________________________________________________
- #########################################
- if (! dd || ! (dd = _filerd(dd))) {
- dd = _FILEIO_TMPRD
- }
- if (f = _filerdne((_filene(f) ? f : f "_" ++_FILEIO_TMPCNTR),
dd)) {
- _FILEIO_RDNETMP[toupper(f)]
- }
- return f
- }
- function _extfn_init()
- {
- _formatstrs_init()
- _formatstrd_init()
- _formatrexp_init()
- _unformatstr_init()
- _mac_init()
- }
- function _getperf(o, t, a)
- {
-
#_______________________________________________________________________
- ###############################################
- (o == "" ? ++_getperf_opcurr : _getperf_opcurr = o)
- if ((a = _getsecond()) != _getperf_last) {
- _getperf_opsec = (_getperf_opcurr - _getperf_opstart) /
((_getperf_last = a) - _getperf_start)
- return @_getperf_fn(o, t, a)
- }
- return 1
- }
- function _faccl_i0(A, t, p, P, f, r)
- {
- f = r = ""
- if (isarray(A)) {
- while (f = A[f]) {
- r = (@f(t, p, P)) r
- }
- }
- return r
- }
- function _getperf_(o, t, a)
- {
- #___________________________________________________________
- if (a >= _getperf_end) {
- return 0
- }
- if (_getperf_opsecp != _getperf_opsec) {
- _constat(((_constatstr == _getperf_stat ?
_getperf_statstr : _getperf_statstr = _constatstr)) t " [TIME=" (a -
_getperf_start) " sec(" (_getperf_opsecp = _getperf_opsec) " ops/sec)]")
- _getperf_stat = _constatstr
- }
- return 1
- }
- function _faccr_i0(A, t, p, P, f, r)
- {
- f = r = ""
- if (isarray(A)) {
- while (f = A[f]) {
- r = r @f(t, p, P)
- }
- }
- return r
- }
- function _getperf_noe(o, t, a)
- {
- if (_getperf_opsecp != _getperf_opsec) {
-
#___________________________________________________________
- _constat(((_constatstr == _getperf_stat ?
_getperf_statstr : _getperf_statstr = _constatstr)) t " [TIME=" (a -
_getperf_start) " sec(" (_getperf_opsecp = _getperf_opsec) " ops/sec)]")
- _getperf_stat = _constatstr
- }
- return 1
- }
- function _fatal(t, d, A)
- {
- if (_ERRLOG_FF) {
- A["TYPE"] = "FATAL"
- A["TEXT"] = t
- _log(A, d)
- }
- if (! d) {
- exit
- }
- }
- function _getperf_noenot(o, t, a)
- {
- #___________________________________________________________
- return 1
- }
- function _fbaccl(A, t, p, P)
- {
- return _faccl_i0(A["B"], t, p, P)
- }
- function _getperf_not(o, t, a)
- {
- #___________________________________________________________
- if (a < _getperf_end) {
- return 1
- }
- }
- function _fbaccr(A, t, p, P)
- {
- return _faccr_i0(A["B"], t, p, P)
- }
- function _getreg_i1(D, r, R, a, i, il, ir, rc, B)
- {
-
#_________________________________________________________________________________________
-
##########################################################################################
- a = IGNORECASE
- IGNORECASE = 1
- r = "^" _torexp(r)
- rc = 0
- zs = ""
- for (i in R) {
- if (match(i, r, B)) {
- il = B[_torexp_pfxcntr]
- ir = gensub(/....$/, "", 1, substr(i, 1 +
B[_torexp_pfxcntr, "length"]))
- if (! gsub(/^\\/, "", ir) && match(il,
/[^\\]+$/)) {
- ir = substr(il, RSTART) ir
- }
- D[ir] = R[i]
- rc++
- }
- }
- IGNORECASE = a
- if (rc > 0) {
- return rc
- }
- }
- function _ffaccl(A, t, p, P)
- {
- return _faccl_i0(A["F"], t, p, P)
- }
- function _getsecond()
- {
-
#_________________________________________________________________
- #############################################
- return systime()
- }
- function _ffaccr(A, t, p, P)
- {
- return _faccr_i0(A["F"], t, p, P)
- }
- function _getsecondsync(a, c, b, c2)
- {
- #___________________________________________________________
- ##########################
- a = systime()
- while (a == systime()) {
- ++c
- }
- return (a + 1)
- }
-
- function _getuid(p)
- {
- if (p in _UIDOBL) {
- for (_tptr in _UIDOBLV[_getuida0 = _UIDOBL[p]]) {
-
#_______________________________________________________________________
-
################################################# 1 #
- delete _UIDOBLV[_getuida0][_tptr]
- _CLASSPTR[_tptr] = p
- return _tptr
- }
- }
- _CLASSPTR[_tptr = _UIDPFX[p] _getuid_i0(_UIDCNT[p],
_UIDCHRL[_tptr = _UIDCHR[p]], _UIDCHRH[_tptr]) _UIDSFX[p]] = p
- return _tptr
- }
- function _fframe(A, t, p)
- {
- return _fframe_i0(A, t, p, A[""])
- }
- function _getuid_i0(p, UL, UH)
- {
- if ("" == (_tptr = UL[_UIDCNTL[p]])) {
- for (_tptr in UH) {
-
#_____________________________________________________
- delete UH[_tptr]
- return ((_UIDCNTH[p] = _tptr) (_UIDCNTL[p] =
UL[""]))
- }
- _fatal("out of UID")
- }
- return (_UIDCNTH[p] (_UIDCNTL[p] = _tptr))
- }
- function _fframe_i0(A, t, p, f)
- {
- return ((f ? (@f(t, p)) _fframe_i0(A, t, p, A[f]) : ""))
- }
- function _handle8494(t)
- {
- return gensub(/(.)/, ".\\1", "G", t)
- }
- function _file(f)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return ((f in _FILEXT ? _FILEXT[f] : ""))
- }
- function _hexnum(n, l)
- {
-
#_____________________________________________________________________________
- #########################################################
- if (l + 0 < 1) {
- l = 2
- }
- return sprintf("%." ((l + 0 < 1 ? 2 : l)) "X", n)
- }
- function _file_check(p)
- {
- if (1 || "AGENT" in _[p]) {
- _tframe("_file_check_i0", p, p)
- }
- }
- function _igetperf(t, s, o)
- {
- if (t == 0 && t == "" && s == 0 && s == "" && o == 0 && o ==
"") {
-
#_________________________________________________________________
- ######################################### #
t-test period in seconds(==0 ? no period; s(=true/false)-output/not output
status; o-qnt of ops before test start
- if (_getperf_fn !~ /not$/ && _constatstr ==
_getperf_stat) {
- _constat(_getperf_statstr)
- }
- _getperf_fn = "_nop"
- return ("[TIME=" (_getperf_last - _getperf_start) "
sec(" _getperf_opsec " ops/sec)]")
- }
- _conl("initiate _getperf")
- _getperf_opstart = _getperf_opcurr = o + 0
- _getperf_opsec = _getperf_opsecp = _getperf_stat =
_getperf_statstr = ""
- _getperf_end = t + (_getperf_start = _getperf_last =
_getsecondsync())
- _getperf_fn = ((t + 0 > 0 ? "_getperf_" : "_getperf_noe")) ((s
? "" : "not"))
- return _getperf_start
- }
-
- function _import_data(t, p, p2, a)
- {
- if (match(t, /^_DATA: /)) {
- _tDATA[a = _wLCHLD(p, _N())][""]
- delete _tDATA[a][""]
- _Zimparr(_tDATA[a], substr(t, 8))
- _conl("DATA: `" _tDATA[a]["ID"] "':`" _tDATA[a]["DATA"]
"'")
- return ""
- }
- return t
- }
- function _file_check_i0(p, pp, p1, p2, f, v)
- {
- if (_[p]["TYPE"] == "defile") {
- f = _[p]["FILE"]
- f = ((match(f, /^.:/) ? "" :
_[_[pp]["AGENT"]][".Install Path"] "\\")) _[p]["FILE"]
- if ("RQVERSION" in _[p]) {
- v = _[p]["RQVERSION"]
- } else {
- v = _[pp][".Product Version"]
- }
- ERRNO = ""
- if (_th1(_[p]["DATA"] = _rdfile(f), ERRNO)) {
- delete _[p]["DATA"]
- return _dllerr(p, "read file: " ERRNO, f)
- }
- if (v != "" && v != (_[p]["VERSION"] = _getfilever(f)))
{
- return _dllerr(p, " file version mismatch: ==`"
_[p]["VERSION"] "'; !=`" v "'", f)
- }
- _creport(p, substr("OK: FILE DETECTED" ((v == "" ?
"" : "(" v ")")) ": " f, 1, 122))
- } else {
- if (_[p]["TYPE"] == "defdir") {
- if (_filexist(f = _[p]["DIR"])) {
- _creport(p, substr("OK: DIR
DETECTED: " f, 1, 112))
- } else {
- _dllerr(p, "directory " f " is not
detected")
- }
- }
- }
- }
- function _info(t, d, A)
- {
- if (_ERRLOG_IF) {
-
#_______________________________________________________________________
- ##################################################
- A["TYPE"] = "INFO"
- A["TEXT"] = t
- _log(A, d)
- }
- }
- function _filed(f, dd, d)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- if (f in _FILEDIRFL) {
- return _FILEDIR[f]
- }
- if (f in _FILEROOT) {
- if (d = filegetdrvdir(_FILEROOT[f])) {
- _FILEDIRFL[f]
- }
- return (_FILEDIR[f] = d _FILEDIR[f])
- }
- if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEDIR) {
- return _FILEDIR[dd, f]
- }
- if ((d = filedi(dd) _FILEDIR[f]) ~ /^\\/) {
- return (_FILEDIR[dd, f] = d)
- }
- return d
- }
- function _ini(p, cs, dptr, pfx, sfx, hstr, lstr)
- {
- # test with the different path types
- # _conl(_ln("SRC:") _dumparr(S)); _conl();
- return _inituid(p, cs, dptr, pfx, sfx, hstr, lstr, A)
- }
- function _filen(f)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return ((f in _FILENAM ? _FILENAM[f] : ""))
- }
- function _initfilever()
- {
- _fileverpath = "\\\\CPU\\eGAWK\\LIB\\_filever\\_filever.exe"
- }
- function _filene(f)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return (((f in _FILENAM ? _FILENAM[f] : "")) ((f in _FILEXT ?
_FILEXT[f] : "")))
- }
- function _initrdreg()
- {
- _RDREGTYPE["SZ"] = "STR"
- _RDREGTYPE["DWORD"] = "W32"
- _RDREGTYPE["QWORD"] = "W64"
- _RDREGTYPE["BINARY"] = "BIN"
- _RDREGTYPE["EXPAND_SZ"] = "XSZ"
- _RDREGTYPE["MULTI_SZ"] = "MSZ"
- _RDrdregfld = _rdregkey = 0
- }
- function _filenotexist(f, a)
- {
- if (f == "") {
- return ""
- }
- if ((a = _filepath(f)) == "") {
- ERRNO = "Filepath error `" f "'"
- return ""
- }
- _cmd("if exist \"" a "\" exit 1 2>NUL")
- if (_exitcode == 1) {
- return (ERRNO = _NOP)
- }
- return a
- }
- function _initregpath0()
- {
- _REGPATH0REGDIR[""] = "HKEY_LOCAL_MACHINE"
- _REGPATH0REGDIR["HKLM"] = "HKEY_LOCAL_MACHINE"
- _REGPATH0REGDIR["HKEY_LOCAL_MACHINE"] = "HKEY_LOCAL_MACHINE"
- _REGPATH0REGDIR["HKCR"] = "HKEY_CLASSES_ROOT"
- _REGPATH0REGDIR["HKEY_CLASSES_ROOT"] = "HKEY_CLASSES_ROOT"
- _REGPATH0REGDIR["HKCU"] = "HKEY_CURRENT_USER"
- _REGPATH0REGDIR["HKEY_CURRENT_USER"] = "HKEY_CURRENT_USER"
- _REGPATH0REGDIR["HKU"] = "HKEY_USERS"
- _REGPATH0REGDIR["HKEY_USERS"] = "HKEY_USERS"
- _REGPATH0REGDIR["HKCC"] = "HKEY_CURRENT_CONFIG"
- _REGPATH0REGDIR["HKEY_CURRENT_CONFIG"] = "HKEY_CURRENT_CONFIG"
- _REGPATH0REGDIR["HKPD"] = "HKEY_PERFORMANCE_DATA"
- _REGPATH0REGDIR["HKEY_PERFORMANCE_DATA"] =
"HKEY_PERFORMANCE_DATA"
- }
- function _filepath(f, dd)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return (filegetrootdir(f, dd) ((f in _FILENAM ? _FILENAM[f] :
"")) ((f in _FILEXT ? _FILEXT[f] : "")))
- }
- function _initshare()
- {
- _sharextool = "\\\\CPU\\eGAWK\\LIB\\_share\\_share.exe"
- }
- function _filer(f, dd)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- if (f in _FILEROOT) {
- return _FILEROOT[f]
- }
- if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEROOT) {
- return _FILEROOT[dd, f]
- }
- return (_FILEROOT[dd, f] = fileri(dd))
- }
- function _initspecialuid()
- {
- #_________________________________________
- _NOINDEX = _getuid()
- _LEN = _getuid()
- _PTR = _getuid()
- _NAME = _getuid()
- _TYPE = _getuid()
- _FORMAT = _getuid()
- }
- function _filerd(f, dd)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return filegetrootdir(f, dd)
- }
- function _initsys()
- {
- }
- function _filerdn(f, dd)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- return ((f in _FILENAM ? filegetrootdir(f, dd) _FILENAM[f] :
""))
- }
- function _inituid(p, cs, dptr, pfx, sfx, hstr, lstr, A)
- {
- if (cs == 0 && cs == "") {
-
#_______________________________________________________________________
- ################### 1 #
- cs = p
- p = _getuid()
- }
- _conl()
- _conl()
- _conl(cs)
- if (match(cs, /^(([^:]*):)?(([^'\xB4]*\xB4.)*[^'\xB4]*)[']/,
A)) {
- pfx = A[3]
- dptr = A[2]
- }
- if (match(cs = substr(cs, 1 + RLENGTH),
/'(([^'\xB4]*\xB4.)*[^'\xB4]*)$/, A)) {
- sfx = A[1]
- cs = substr(cs, 1, RSTART - 1)
- }
- if (match(cs, /^(([`\^])(.*))/, A)) {
- if (A[2] == "`") {
- hstr = A[3] "~"
- lstr = ""
- } else {
- lstr = A[3] "+"
- hstr = ""
- }
- } else {
- if (match(cs,
/^(([^'\xB4\|]*\xB4.)*[^'\xB4\|]*)(\|(.*))?/, A)) {
- hstr = A[1]
- lstr = A[4]
- } else {
- ERRNO = "_inituid(): bad parameters"
- return
- }
- }
- _conl(dptr ":" pfx "'" hstr "|" lstr "'" sfx)
- return _cfguid(p, dptr, pfx, sfx, hstr, lstr)
- }
-
- function _inituidefault(h, l, H, L)
- {
- _classys = ""
- delete _UIDOBLV[_UIDOBLV[_UIDOBL[_classys] = _classys][""] =
_classys][""]
- _UIDPFX[_classys]
- _UIDSFX[_classys]
- _UIDCNT[_classys] = _UIDCHR[_classys] = _CLASSPTR[_classys] =
_classys
- h = "AB"
- l = h "01"
- _splitstr(H, h)
- _splitstr(L, l)
- delete _UIDCHRH[_UIDCHRH[_classys][""] = _classys][""]
- delete _UIDCHRL[_UIDCHRL[_classys][""] = _classys][""]
- _UIDCNTH[_classys]
- _cfguidh(_classys, H, L)
- _UIDCNTL[_classys] = _cfguidl(_classys, L, L)
- _CLASSFN[_classys]["del"] = "_tobjDEL"
- _CLASSFN[_classys]["new"] = "_tobjNEW"
- _drawuid(_classys)
- _initspecialuid()
- }
-
- function _ins(S, sf, D, df)
- {
- if (sf in S) {
- if (isarray(S[sf])) {
- if (df in D) {
-
#_______________________________________________________________________
-
################################################
- if (isarray(D[df])) {
- return _extarr(D[df], S[sf])
- }
- delete D[df]
- }
- D[df][""]
- delete D[df][""]
- return _extarr(D[df], S[sf])
- } else {
- if (isarray(D[df])) {
- delete D[df]
- }
- D[df] = S[sf] D[df]
- }
- }
- }
- function _filerdne(f, dd)
- {
- if ((f = _filerdnehnd(f)) == "") {
- return ""
- }
- if (f in _FILENAM) {
- return (filegetrootdir(f, dd) _FILENAM[f] ((f in
_FILEXT ? _FILEXT[f] : "")))
- }
- if (f in _FILEXT) {
- return (filegetrootdir(f, dd) _FILEXT[f])
- }
- return ""
+
- function _insf(A, f)
- {
-
#_________________________________________________________________
- ###############################################
- A["F"][""] = A["B"][A["F"][f] = A["F"][""]] = f
- }
+
- function _insframe(A, f)
- {
-
#_________________________________________________________________
- ###########################################
- A[f] = A[""]
- A[""] = f
- }
+
- function _inspass(A, f)
- {
- ########################
-
#_________________________________________________________________
- A[f] = A[""]
- A[""] = f
- }
+
- function _isptr(p)
- {
- if (isarray(p)) {
- # there is problem with string's format: i can;t
easilly merge 2 charsets: comma-divided and every-char-divided strings
-
#_______________________________________________________________________
- ################################################## 1 #
- is = _NOP
- it = "A"
- return 0
- }
- is = p
- if (p == 0 && p == "") {
- it = "-"
- return 0
- }
- if (p in _CLASSPTR) {
- return (it = "P")
- }
- it = "S"
- return 0
- }
+
- function _istr(p)
- {
- if (isarray(p)) {
-
#_______________________________________________________________________
- ################################################### 1 #
- is = _NOP
- it = "A"
- return 0
- }
- is = p
- if (p == 0 && p == "") {
- it = "-"
- return 0
- }
- return (it = (p == "" ? "s" : "S"))
- }
+
- function _lengthsort(i1, v1, i2, v2)
- {
-
#_________________________________________________________________
- ##############################
- return ((length(i1) < length(i2) ? -1 : (length(i1) >
length(i2) ? 1 : (i1 < i2 ? -1 : 1))))
- }
+
- function _lib_APPLY()
- {
-
#_________________________________________________________________
- return _ffaccr(_LIBAPI, "_lib_APPLY")
- }
+
- function _lib_BEGIN(A)
- {
-
#_________________________________________________________________
- return _ffaccr(_LIBAPI, "_lib_BEGIN", "", A)
- }
+
- function _lib_CMDLN(t)
- {
-
#_______________________________________________________________________
- return _pass(_LIBAPI["F"], "_lib_CMDLN", t)
- }
+
- function _lib_END(A)
- {
-
#_________________________________________________________________
- return _ffaccr(_LIBAPI, "_lib_END", "", A)
- }
+
- function _lib_HELP()
- {
-
#_________________________________________________________________
- return _fbaccr(_LIBAPI, "_lib_HELP")
- }
+
- function _lib_NAMEVER()
- {
-
#_________________________________________________________________
- return _fbaccr(_LIBAPI, "_lib_NAMEVER")
- }
+
- function _ln(t)
- {
-
#_____________________________________________________________________________
- ###############################################################
- return ((t ~ /\x0A$/ ? t : t _CHR["EOL"]))
- }
+
- function _log(A, p, a, B)
- {
- if (isarray(A)) {
-
#_________________________________________________________________
- ###########################################
- A["TIME"] = _getime()
- A["DATE"] = _getdate()
- if (p) {
- _tLOG[p = _wLCHLD(p, _N())][""]
- delete _tLOG[p][""]
- _movarr(_tLOG[p], A)
- return p
- }
- _expout("_ERRLOG: " _Zexparr(A) "\n")
- } else {
- B["TEXT"] = A
- B["TYPE"] = ""
- return _log(B, p)
- }
- }
+
- function _lspctab(t, ts, l, l1, l2, A)
- {
- while (match(t, /^(\t*)( *)((\t*)(.*))$/, A)) {
-
#_________________________________________________________________
- ################################
- if (A[1, "length"] >= l) {
- return substr(t, l + 1)
- }
- if (A[2]) {
- if ((l1 = int(A[2, "length"] / ts)) >= (l2 = l
- A[1, "length"])) {
- return (substr(A[2], l2 * ts + 1) A[3])
- }
- if (! A[4]) {
- return A[5]
- }
- t = A[1] _getchrln("\t", l1) A[3]
- } else {
- return t
- }
- }
- }
+
- function _mac_init()
- {
- _MACPFX["\204"] = "_macpfx84"
- _MACPFX[""] = "_mpupfxsubret"
- _MACPFX84SFX["\204"] = "_macpfx84"
- _MACPFX84SFX["\224"] = "_macsfx94"
- _MACPFX84SFX[""] = "_mpusfxsubret"
- _VLDMAXSTRING = 1e+06
- }
+
- function _macpfx84(F, D, C, p1, p2, p3)
- {
- return _mpusub(_MACPFX84SFX, D, C, D[_mpuptr++], p1, p2, p3)
- }
+
- function _macsfx94(F, D, C, p1, p2, p3)
- {
- return _mpuretsub(D, _handle8494(_mpuacc))
- }
+
- function _movarr(D, S)
- {
-
#_______________________________________________________________________
- ###################################################
- delete D
- D[""]
- delete D[""]
- _addarr(D, S)
- }
-
- function _mpu(t, F, p1, p2, p3, D, C)
- {
- if (patsplit(t, C, /[\x84\x93\x94]/, D) > 0) {
- _conline("CODE")
- _conl()
- _conl(_dumparr(C))
- _conline("DATA")
- _conl()
- _conl(_dumparr(D))
- _mpuptr = 0
- _mpucc0 = ""
- _mpusub(F, D, C, D[_mpuptr++], p1, p2, p3)
- return _mpuacc
- }
- return t
- }
+
- function _mpudefaulthnd(F, D, C, p1, p2, p3)
- {
- #
- # /rexpstr/ -> datastr
- # (\x00\t\+)* -> 28 00 09 5B 2B 29
- #
- # unesc all non-rexp characters: replace unesc of
rexp-characters but do not remove it: \* -> \*, \x2A -> \*, \052 -> \*, \\ -> \#
- _mpuretsub(D, _mpucc0)
- }
+
- function _mpupfxsubret(F, D, C, p1, p2, p3)
- {
- return 1
- }
+
- function _mpuretsub(D, t)
- {
- _mpuacc = D[_mpuptr++]
- _accmpu(D, t)
- return 1
- }
+
- function _mpusfxsubret(F, D, C, p1, p2, p3)
- {
- return -1
++
++
++
++function _rdsafe(A, i, d)
++{
++ if (i in A) {
++ return A[i]
}
++ return d
++}
- function _mpusub(F, D, C, d, p1, p2, p3, q)
- {
- q = D[_ARRLEN]
- if (_VLDMAXSTRING < length(d)) {
- D[--D[_ARRLEN]] = d
- _mpuacc = ""
- } else {
- _mpuacc = d
- }
- d = _mpucc0
- _conl("_mpusub enter: in `" _mpuacc "' / _mpuptr=" _mpuptr "'")
- do {
- if ((_mpucc0 = C[_mpuptr]) in F) {
- if (isarray(F[_mpucc0])) {
- _mpufn0 = F[_mpucc0]
- function _filerdnehnd(st, c, r, d, n, A)
- {
- if (st) {
- if ((c = toupper(st)) in _FILECACHE) {
- FLENGTH = length(st)
- return _FILECACHE[c]
- }
- if (match(st, /^[ \t]*\\[ \t]*\\/)) {
- if (match(substr(st, (FLENGTH = RLENGTH) + 1),
/^[ \t]*([0-9A-Za-z\-]+)[ \t]*(\\[ \t]*([A-Za-z])[ \t]*\$[ \t]*)?(\\[
\t]*([0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)+[
\t]*)?(([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)) {
- FLENGTH = FLENGTH + RLENGTH
- d = ((A[3] ? "\\" A[3] "$" : "")) A[4]
- gsub(/[ \t]*\\[ \t]*/, "\\", d)
- if ((st = toupper((r = "\\\\" A[1]) d
(n = A[8]))) in _FILECACHE) {
- return (_FILECACHE[substr(c, 1,
FLENGTH)] = _FILECACHE[st])
- }
- _FILEDIR[c = _FILECACHE[substr(c, 1,
FLENGTH)] = _FILECACHE[st] = ++_file_rootcntr] = d
- _FILEDIRFL[c]
- _FILEROOT[c] = r
++#_______________________________________________________________________
++function _reg_check(p)
++{
++ _tframe("_reg_check_i0", p, p)
++}
++
++#_______________________________________________
++function _reg_check_i0(p, pp, p1, p2)
++{
++ if (_[p]["TYPE"] == "defreg") {
++ if (_[p]["REGPATH"] in _REG) {
++ if ("VALUE" in _[p]) {
++ if (_[p]["VALUE"] == _REG[_[p]["REGPATH"]]) {
++ _creport(p, substr("OK: REGENTRY
MATCH(==" _[p]["VALUE"] "): " _[p]["REGPATH"], 1, 126))
+ } else {
- FLENGTH = 0
- _filepath_err = "UNC"
- return ""
++ _dllerr(p, substr("REGENTRY NOT
MATCH(!=" _[p]["VALUE"] "): " _[p]["REGPATH"], 1, 126))
}
- _conl("FN: `" _mpucc0 "' > CALL: `" _mpufn0 "'
: _mpuacc=" _mpuacc "'")
} else {
- _mpufn0 = "_mpudefaulthnd"
- match(st, /^(([ \t]*\.[ \t]*\\[ \t]*)|(([
\t]*([A-Za-z])[ \t]*(\:)[ \t]*)?([ \t]*(\\)[ \t]*)?))([ \t]*(([
\t]*[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)+)[ \t]*)?([
\t]*([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)
- if (! (FLENGTH = RLENGTH)) {
- return ""
- }
- d = A[8] A[10]
- gsub(/[ \t]*\\[ \t]*/, "\\", d)
- if ((st = toupper((r = A[5] A[6]) d (n =
A[14]))) in _FILECACHE) {
- return (_FILECACHE[substr(c, 1,
FLENGTH)] = _FILECACHE[st])
- }
- _FILEDIR[c = _FILECACHE[substr(c, 1, FLENGTH)]
= _FILECACHE[st] = ++_file_rootcntr] = d
- if (A[8]) {
- _FILEDIRFL[c]
- }
- if (r) {
- _FILEROOT[c] = r
- }
- }
- if (n) {
- if (match(n, /\.[^\.]*$/)) {
- _FILEXT[c] = substr(n, RSTART)
- _FILENAM[c] = substr(n, 1, RSTART - 1)
++ if (_VAR[_[p]["REGPATH"]] ==
_REG[_[p]["REGPATH"]]) {
++ _creport(p, substr("OK: REGPATH
MATCH(==" _VAR[_[p]["REGPATH"]] "): " _[p]["REGPATH"], 1, 126))
+ } else {
- _FILENAM[c] = n
++ _dllerr(p, substr("REGPATH NOT
MATCH(!=" _VAR[_[p]["REGPATH"]] "): " _[p]["REGPATH"], 1, 126))
+ }
}
- } while (! _accmpu(D, _mpuacc, @_mpufn0(F, D, C, p1, p2, p3)))
- if (_mpufn0 == -1) {
- _conl("WARNING: unclosed expression: `" d _mpuacc "'")
- _mpuacc = d _mpuacc
- }
- # collect: _mpuacc=_retarr(D) _mpuacc
- _retarrm(D, q, "", (_mpufn0 == -1 ? _th0(d,
_mpusubwrng("WARNING: unclosed expression", d _mpuacc)) : ""))
- _conl("mpusub exit: _mpuacc: `" _mpuacc "'")
- }
-
- function _n(F, v, p)
- {
- for (p in _UIDSDEL) {
-
#_______________________________________________________________________
- #####################################################
- delete _UIDSDEL[p]
- delete _ptr[p]
- delete _tPREV[p]
- delete _tPARENT[p]
- delete _tNEXT[p]
- delete _tFCHLD[p]
- delete _tQCHLD[p]
- delete _tLCHLD[p]
- delete _TMP0[p]
- delete _TMP1[p]
- delete _tLINK[p]
- delete _tCLASS[p]
- return _nN_i0(p, F, v)
- }
- for (p in _UIDS) {
- delete _UIDS[p]
- return _nN_i0(p, F, v)
- return c
++ } else {
++ _dllerr(p, substr("REGPATH NOT FOUND: "
_[p]["REGPATH"], 1, 126))
}
- return _nN_i0(_tgenuid(), F, v)
- return ""
}
++}
- function _nN_i0(p, F, v)
- {
- #_____________________________________________________
- _[p][""]
- delete _[p][""]
- _ptr[p][""]
- delete _ptr[p][""]
- _TMP0[p][_ARRLEN] = _TMP1[p][_ARRLEN] = 0
- if (isarray(F)) {
- delete F[p]
- if (isarray(v)) {
- F[p][""]
- delete F[p][""]
- _copyarr(F[p], v)
- } else {
- if (! (v == 0 && v == "")) {
- F[p] = v
- }
- function _filexist(f, a)
- {
- if (f == "") {
- return ""
++#_____________________________________________________
++function _registryinit()
++{
++ _registrytmpfile = _getmpfile()
++}
++
++# _rdregfld : gvar - number of readed registry fields by _rdreg()
++# _rdregkey : gvar - number of readed registry keys by _rdreg()
++#_____________________________________________________________________________
++function _regpath0(D, i, s, q, S)
++{
++ ############################################ 0 #
++ if (i = _patharr0(S, i)) {
++ if ("name" in S) {
++ D["name"] = S["name"]
+ }
- if ((a = _filepath(f)) == "") {
- ERRNO = "Filepath error `" f "'"
- return ""
++ if ("ext" in S) {
++ D["ext"] = S["ext"]
++ }
++ s = ((toupper(s = (i in S ? S[i] : "")) in _REGPATH0REGDIR ?
D[++q] = _REGPATH0REGDIR[toupper(s)] : (D[++q] = _REGPATH0REGDIR[""]) "\\"
(D[++q] = s))) "\\"
++ while (++i in S) {
++ s = s (D[++q] = S[i]) "\\"
++ }
++ if (s != "") {
++ D[0] = s
+ }
- _cmd("if exist \"" a "\" exit 1 2>NUL")
- if (_exitcode == 1) {
- return a
++ IGNORECASE = 1
++ D["hostdir"] = "\\\\" (D["host"] = ("host" in S && ("" == (i =
S["host"]) || "." == i || "?" == i || "localhost" == i) ?
ENVIRON["COMPUTERNAME"] : i)) "\\" s
++ IGNORECASE = 0
++ }
++}
++
++#_________________________________________________________________________________________
++function _report(p)
++{
++ #######################################################################
++ _report_t0 = _reportparnt = ""
++ _report_i0(p)
++ _tframe("_report_i0", p)
++ return _report_t0
++}
++
++function _report_i0(p, p0, p1, p2)
++{
++ if (p in _tPARENT) {
++ if (_reportparnt != (_reportparnt = _tPARENT[p])) {
++ _report_t0 = _report_t0 _ln() _ln((z = "_ "
_[_tPARENT[p]]["NAME"] " ") _getchrln("_", _CON_WIDTH - length(z) - 2))
_ln(_getchrln("#", _CON_WIDTH - 2)) _ln()
++ }
++ }
++ if ("ERROR" in _[p]) {
++ _report_t0 = _report_t0 _reporterr(p, _[p]["ERROR"])
++ }
++ if ("REPORT" in _[p]) {
++ _report_t0 = _report_t0 _ln(_[p]["REPORT"])
++ }
++}
++
++#___________________________________________________________________________________
++function _reporterr(p, t3, pp, t, t2)
++{
++ t = ""
++ pp = p
++ do {
++ ("NAME" in _[pp] ? t = _[pp]["NAME"] ": " t : "")
++ } while (pp = _rPARENT(pp))
++ if (match(t3, /\x00/)) {
++ return (substr(t3, 1, RSTART - 1) t substr(t3, RSTART + 1))
++ }
++ return (t t3)
++}
++
++#___________________________________________________________________________________
++####################################################################################
++
++
++
++
++#_______________________________________________________________________
++# _CHR array
++#
++# _CHR[ASC-code decimal number]=="char"
++#
++# Contains 256 elements. The index is the decimal number from
0-255.
++# The value is the single character with ASC-code equivalent to
index number:
++#
++# _CHR[97] =="a" -
character with ASC-code 97 is `a'
++#
++# This array is useful if you want to get character using it's
ASC-code
++#_________________________________________________________________
++# _ASC array
++#
++# _ASC[char]==number: ASC-code of char
++#
++# Contains 256 elements. The index is the any single character
with ASC-code \x00-\xFF.
++# The value is the number equivalent of character's ASC-code:
++#
++# _ASC["A"] ==65 -
ASC-code of character `A' is 65
++#
++# This array is useful if you want to get ASC-code of the
character.
++#_________________________________________________________________
++# _QASC array
++#
++# _QASC[char]=="string: octal ASC-code of char in 3-digit octal format"
++#
++# Contains 256 elements. The index is the any single charcter
with ASC-code \x00-\xFF.
++# The value is the octal number equivalent of character's
ASC-code in fixed-length - 3-digit - string:
++#
++# _QASC["!"] =="041" - ASC-code of
character `!' is 33(decimal) == 41(in octal)
++# _QASC["\x0D"] =="015"
++#
++# This array is useful when some type of string escape conversion
is performed. It allows quickly get
++# replace string for the characters that can be specified only by
character code in result string:
++#
++# "\x0D" -> "\\015"
++#_______________________________________________________________________
++
++
++
++
++
++
++
++####################################################################################
++# PUBLIC:
++#_____________________________________________________________________________
++# fn _getchrln(ptt,len)
++#_____________________________________________________________________________
++# fn _tabtospc(src,tabstep,xcoord)
++####################################################################################
++
++#_____________________________________________________________________________
++function _retarr(A, i, p, a, q)
++{
++ ##################################################
++ if (isarray(A)) {
++ i = (i == "" ? 0 : i + 0)
++ q = A[_ARRLEN] + 0
++ if (i < q) {
++ return (p A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
_retarr_i0(A, q, i, a))
++ }
++ }
++}
++
++function _retarr_i0(A, q, i, a)
++{
++ if (i < q) {
++ return (A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] _retarr_i0(A, q,
i, a))
++ }
++ while (q < i) {
++ delete A[++q]
++ }
++ return a
++}
++
++#_________________________________________________________________
++function _retarrd(A, v, i)
++{
++ #########################################
++ if (1 in A) {
++ return (A[1] A[2] A[3] A[4] A[5] A[6] A[7] A[8] A[9] A[10]
A[11] A[12] A[13] A[14] A[15] A[16] (((i = 17) in A ? _retarrd_i0(A, i) v : v)))
++ }
++ delete A
++ return v
++}
++
++#_____________________________________________________
++function _retarrd_i0(A, i)
++{
++ if (i in A) {
++ return (A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++]
A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] ((i in A ?
_retarrd_i0(A, i) : "")))
++ }
++ delete A
++}
++
++#_______________________________________________________________________
++########################################################################
++#EXPERIMENTAL
++
++function _rexpfn(R, t, p)
++{
++ _REXPFN[""] = ""
++ while (t) {
++ t = _rxpfn(R, t, p)
++ }
++ return _REXPFN[""]
++}
++
++function _rexpfnend(t)
++{
++ _REXPFN[""] = t
++}
++
++#_____________________________________________________________________________
++function _rexpstr(r, i, c, A)
++{
++ ###################################################
++ c = split(r, A, "")
++ r = ""
++ for (i = 1; i <= c; i++) {
++ r = r _REXPSTR[A[i]]
++ }
++ return r
++}
++
++#_____________________________________________________________________________
++function _rexpstr_i0(t, A, p0)
++{
++ return (_REXPSTR[t] = "\\" t)
++}
++
++#___________________________________________________________
++function _rmtsharerr(h, t)
++{
++ gsub(/[\x0D\x0A]+/, "", t)
++ if (t ~ /^The command failed: 53/) {
++ ERRNO = "host not found: \\\\" h
++ } else {
++ ERRNO = t ": \\\\" h
++ }
++}
++
++function _rpp(q, D, S)
++{
++ _conl()
++ _conline(q)
++ _conl()
++ _regpath0(D, q)
++ #_conl(_dumparr(D))
++
++ _conl(_ln("DEST:") _dumparr(D))
++ _conl()
++ return q
++}
++
++#_________________________________________________________________________________________
++function _rrdreg(DD, p, k, t, v, c, i, q, tT, A, B, C, D)
++{
++ ############################################# old; regedit
++ if (! _registrytmpfile) {
++ _registryinit()
++ }
++ _cmd("regedit /E \"" _registrytmpfile "\" \"" p "\" 2>&1")
++ q = patsplit(gensub(/[\x00\xFF\xFE]+/, "", "G",
_rdfile(_registrytmpfile)), A, /\x0D?\x0A\[[^\]]+\]\x0D?\x0A/, B)
++ for (i = 1; i <= q; i++) {
++ p = gensub(/(^[ \t\x0D\x0A]*\[)|((\\)\\+)|(\][ \t\x0D\x0A]*$)/,
"\\3", "G", A[i])
++ DD[p "\\"]
++ delete C[split(B[i], C, /[\x0D\x0A]+/)]
++ for (c = 1; c in C; c++) {
++ tt = tt C[c]
++ if (gsub(/\\$/, "", tt)) {
++ continue
+ }
- } else {
- if (! (F == 0 && F == "")) {
- if (isarray(v)) {
- _[p][F][""]
- delete _[p][F][""]
- _copyarr(_[p][F], v)
++ if (tt == "") {
++ continue
++ }
++ if (match(_th0(tt, tt = ""),
/((^"(([^\\"]|\\.)*)")|(@))=(("(([^\\"]|\\.)*)")|(dword:([[:xdigit:]]{8}))|(hex(\(([27b])\))?:(.*)))$/,
D)) {
++ if (D[7]) {
++ t = "STR"
++ v = _unstr(D[8])
+ } else {
- if (v == 0 && v == "") {
- _mpu(F, p)
++ if (D[10]) {
++ t = "W32"
++ v = D[11]
+ } else {
- _[p][F] = v
++ v = D[15]
++ if (D[13]) {
++ switch (D[14]) {
++ case "2":
++ t = "XSZ"
++ break
++ case "7":
++ t = "MSZ"
++ break
++ default:
++ t = "W64"
++ }
++ } else {
++ t = "BIN"
++ }
+ }
+ }
++ DD[gensub(/(\\)\\+/, "\\1", "G", p "\\"
_unstr(D[3] ((D[5] ? "(Default)" : ""))) "." t)] = v
++ } else {
++ _fatal("regedit: unknown output format(" c "):
`" C[c] "'")
+ }
}
- return p
- ERRNO = "File not found `" f "'"
- return _NOP
}
++}
- function _newclrdir(f)
- {
-
#_________________________________________________________________
- ############################################
- if ((f = _filerd(f)) == "") {
- return
- function _fn(f, p0, p1, p2)
- {
- if (f in FUNCTAB) {
- return @f(p0, p1, p2)
++#_________________________________________________________________
++function _rsqgetptr(g, p, A)
++{
++ if (p in _tLINK) {
++ _SQSTACK[g][++_SQSTACK[g][0]] = p
++ _SQSTACK[g][++_SQSTACK[g][0]] = _SQTOPTR[g]
++ while ((p = _tLINK[p]) in _tLINK) {
++ _con(".")
}
- _cmd("rd " f " /S /Q 2>NUL")
- _cmd("md " f " 2>NUL")
- _WFILEROOTDIR[f]
- return f
++ _SQTOPTR[g] = p
}
-
- function _newdir(f)
- {
-
#_______________________________________________________________________
- #####################################################
- if ((f = _filerd(f)) == "") {
- return
- }
- if (! (f in _WFILEROOTDIR)) {
- _cmd("md " f " 2>NUL")
- _WFILEROOTDIR[f]
- }
- return f
++ if (p in _tFCHLD) {
++ return _rsqgetptr(g, _tFCHLD[p])
+ }
++ return p
++}
- function _nop(p0, p1, p2, p3)
- {
- }
-
- function _nretarr(A, i, v, r, q)
- {
- if ((i = (i == "" ? 1 : i + 0)) <= (q = A[_ARRLEN])) {
- if (i <= (r = q - 16)) {
-
#_____________________________________________________
- # _retarr(ARRAY,start,prefixtr,postfixtr)
- # Return string collected from
elements of ARRAY.
- # The data elements in ARRAY have
numeric indexes. By default it starts from element with index 1, but it is
possible to locate elements starting from
- # 0,-1,-.... The last data
element in the ARRAY have the highest numeric index that is stored in
ARRAY[_ARRLEN].
- # Optimized for very large data
size.
- #
- # IN: ARRAY
- source data array(is ARRAY is not array then return undefined)
- # start
- (optional) start index in ARRAY; if missed or have
non-numeric value then start array index will be 1.
- #
prefixst - the string that will be inserted in the begin of
generated return string
- # postfix
- the string that will be added at the end of generated return string
- # MOD: -
- # OUT: -
- # RETURN: undefined
- if ARRAY is not array; if ARRAY is empty; if start is higher than
ARRAY last element index
- # string
- collected string: prefixtr-arraydata-postfixtr
-
#_________________________________________________________________
- #####################################
- _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
- while (i < r) {
- _ARRSTR = _ARRSTR A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i]
- }
- _ARRSTR = _ARRSTR A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] v _retarr_i0(A, q, i)
- return
- }
- _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] v
_retarr_i0(A, q, i)
- return
- function _foreach(A, f, r, p0, p1, p2, i, p)
- {
- if (isarray(A)) {
- _TMP0[p = _n()]["."] = 1
- _foreach_i0(A, f, _TMP0[p], p0, p1, p2)
- return _th0(_retarr(_TMP0[p]), _tdel(p))
- }
- if (_isptr(A)) {
- _TMP0[p = _n()][_ARRLEN] = 1
- _tframe4("_foreach_i1" ((r ? "~" r : "")), A, f,
_TMP0[p], p0, p1)
- return _th0(_retarr(_TMP0[p]), _tdel(p))
++#___________________________________________________________
++function _rsqnext_i0(g, p)
++{
++ if (p == _SQTOPTR[g]) {
++ if (_SQSTACK[g][0] > 0) {
++ _SQTOPTR[g] = _SQSTACK[g][_SQSTACK[g][0]--]
++ return _rsqnext_i0(g, _SQSTACK[g][_SQSTACK[g][0]--])
}
- _ARRSTR = v
+ return
}
--
- function _nretarrd(A, i, v, r, q)
- {
- if ((i = (i == "" ? 1 : i + 0)) <= (q = A[_ARRLEN])) {
- if (i <= (r = q - 16)) {
-
#___________________________________________________________
- ##############################
- _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
- while (i < r) {
- _ARRSTR = _ARRSTR A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i]
- }
- _ARRSTR = _ARRSTR A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] v _retarr_i0(A, q, i)
- } else {
- _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] v
_retarr_i0(A, q, i)
- function _foreach_i0(A, f, D, p0, p1, p2)
- {
- for (i in A) {
- if (isarray(A[i])) {
- _foreach_i0(A[i], f, D, p0, p1, p2)
- } else {
- _gen(D, @f(A[i], p0, p1, p2))
++ if (p in _tNEXT) {
++ return _rsqgetptr(g, _tNEXT[p])
++ }
++ return _rsqnext_i0(g, _tPARENT[p])
++}
++
++function _rtn(v, A)
++{
++ _conl()
++ _conline(_val(v) " : " _val(A))
++ _conl()
++ _rtn2(v, A)
++ _conl()
++}
++
++function _rtn2(v, A, r, t)
++{
++ r = (isarray(A) ? _typa(v, A) : _typ(v))
++ if ("`" > _t0 && _t0) {
++ _conl("ggggg")
++ }
++ t = ((r ? "TRUE" : "FALSE")) " / " ((r > 0 ? r ">0" : r "!>0")) " / "
((r + 0 > 0 ? r "+0>0" : r "+0!>0")) " / " ((r + 0 != r ? r "+0!=" r : r "+0=="
r)) " / " ((r && "`" > r ? "'`'>" r " && " r : "!('`'>" r " && " r ")"))
++ _conl("`" r "' : " t)
++ return r
++}
++
++function _rxpfn(R, t, p, i, f, A)
++{
++ for (i in R) {
++ if (match(t, i, A)) {
++ f = R[i]
++ if (t != (t = @f(A, substr(t, RLENGTH + 1), p))) {
++ return t
}
- } else {
- _ARRSTR = v
}
- delete A
- A[""]
- delete A[""]
}
++ return _rexpfnend(t)
++}
- function _out(t, a, b)
- {
-
#___________________________________________________________________________________
-
####################################################################################
-
#___________________________________________________________________________________
- ###############################################################
- a = BINMODE
- b = ORS
- BINMODE = "rw"
- ORS = ""
- print(t) > _SYS_STDOUT
- fflush(_SYS_STDOUT)
- BINMODE = a
- ORS = b
- function _foreach_i1(p, f, D, p0, p1, p2)
- {
- _gen(D, @f(p, p0, p1, p2))
++##############################################################
++#_____________________________________________________________________________
++function _sHARE(c, t, P, a, A)
++{
++ ###################################################
++ switch (c) {
++ case "_lib_CMDLN":
++ #___________________________________________________________
+ return t
++ #_____________________________________________________
++ case "_lib_APPLY":
++ return
++ #_____________________________________________________
++ case "_lib_HELP":
++ return
++ #_____________________________________________________
++ case "_lib_NAMEVER":
++ return _ln("_share 1.000")
++ #_____________________________________________________
++ case "_lib_BEGIN":
++ return
++ #_____________________________________________________
++ case "_lib_END":
++ return
}
++}
- function _outnl(t)
- {
-
#_________________________________________________________________
- ################################################
- return _out(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])))
- function _formatrexp(t)
- {
- _formatstrq0 = split(t, _FORMATSTRA, /[\/\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATREXPESC[_FORMATSTRB[t]]
- }
- return (_formatstrs0 _FORMATSTRA[t])
++################################################################
++#_____________________________________________________________________________
++function _sYS(c, t, P, a, A)
++{
++ #####################################################
++ switch (c) {
++ case "_lib_CMDLN":
++ #___________________________________________________________
++ return t
++ #_____________________________________________________
++ case "_lib_APPLY":
++ return
++ #_____________________________________________________
++ case "_lib_HELP":
++ return
++ #_____________________________________________________
++ case "_lib_NAMEVER":
++ return
++ #_____________________________________________________
++ case "_lib_BEGIN":
++ return
++ #_____________________________________________________
++ case "_lib_END":
++ return
}
++}
- function _p1(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s1, p1, p2,
p3, p4, p5, p6, p7)
- }
- function _formatrexp_init()
- {
- _defescarr(_FORMATREXPESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
- _defescarr(_FORMATREXPESC, "\\/", "\\")
- _FORMATREXPESC["\t"] = "\\t"
- }
++#_______________________________________________________________________
++function _serv_check(p)
++{
++ _tframe("_serv_check_i0", p, p)
++}
- function _p2(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s2, p1, p2,
p3, p4, p5, p6, p7)
- function _formatstrd(t)
- {
- _formatstrq0 = split(t, _FORMATSTRA, /["\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATSTRDESC[_FORMATSTRB[t]]
++#_______________________________________________
++function _serv_check_i0(p, p0, p1, p2, p3, i, q, c)
++{
++ if (_[p]["TYPE"] == "defsrv") {
++ i = IGNORECASE
++ IGNORECASE = 1
++ if (match(_servoutput, roi = "\\012DISPLAY_NAME: "
_torexp(_[p]["SERVNAME"]))) {
++ _creport(p, "OK: SERVICE DETECTED: "
substr(_[p]["SERVNAME"], 1, 112))
++ } else {
++ _dllerr(p, "service " _[p]["SERVNAME"] " not detected")
+ }
- return (_formatstrs0 _FORMATSTRA[t])
}
++ IGNORECASE = i
++}
- function _p3(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s3, p1, p2,
p3, p4, p5, p6, p7)
- function _formatstrd_init()
- {
- _defescarr(_FORMATSTRDESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
- _defescarr(_FORMATSTRDESC, "[\\\\\"]", "\\")
- _FORMATSTRDESC["\t"] = "\\t"
++#_______________________________________________________________________
++function _setarrsort(f, a)
++{
++ ##############################################
++ a = PROCINFO["sorted_in"]
++ if (! f) {
++ delete PROCINFO["sorted_in"]
++ } else {
++ PROCINFO["sorted_in"] = f
}
++ return a
++}
- function _p4(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s4, p1, p2,
p3, p4, p5, p6, p7)
- function _formatstrs(t)
- {
- _formatstrq0 = split(t, _FORMATSTRA, /['\x00-\x1F\x80-\xFF]/,
_FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
_FORMATSTRSESC[_FORMATSTRB[t]]
++#_______________________________________________________________________
++function _setmpath(p, a)
++{
++ ################################################
++ ERRNO = ""
++ if (p && (a = _filerd(p))) {
++ if (_FILEIO_TMPRD) {
++ _FILEIO_TMPATHS[_FILEIO_TMPRD]
+ }
- return (_formatstrs0 _FORMATSTRA[t])
++ #if ( _filexist(a) ) _del(a)
++ #_cmd("rd " a " /S /Q 2>NUL"); _cmd("del " a " /Q 2>NUL")
++ return (_FILEIO_TMPRD = a)
++ } else {
++ return _warning("`" p "': cannot set temporary folder" ((ERRNO
? ": " ERRNO : "")))
}
++}
- function _p5(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s5, p1, p2,
p3, p4, p5, p6, p7)
- }
- function _formatstrs_init()
- {
- _defescarr(_FORMATSTRSESC, "[\\x00-\\x1F\\x80-\\xFF]", _QASC)
- _defescarr(_FORMATSTRSESC, "[\\\\']", "\\")
- _FORMATSTRSESC["\t"] = "\\t"
- }
++#_________________________________________________________________________________________
++##########################################################################################
- function _p6(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s6, p1, p2,
p3, p4, p5, p6, p7)
- }
- function _fpp(q, D, S)
- {
- _conl()
- _conline(q)
- _conl()
- q = _patharr0(S, q)
- _conl(_dumparr(S))
- _conl()
- return q
- }
- function _p7(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s7, p1, p2,
p3, p4, p5, p6, p7)
- }
- function _fthru(A, c, p, B)
- {
- return _fthru_i0(A, c, p, B, A[""])
- }
- function _p8(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s8, p1, p2,
p3, p4, p5, p6, p7)
- }
- function _fthru_i0(A, c, p, B, f)
- {
- return ((f ? @f(c, _fthru_i0(A, c, p, B, A[f]), B) : ""))
- }
- function _pass(A, f, t, p2, i, a)
- {
-
#_______________________________________________________________________
- ###########################################
- a = _endpass_v0
- _endpass_v0 = ""
- i = 1
- while (t && i) {
- i = ""
- while ((i = A[i]) && t == (t = @i(f, t, p2))) {
- }
- }
- if (i && _endpass_v0) {
- A["!"] = 1
- t = _endpass_v0
- } else {
- delete A["!"]
- }
- _endpass_v0 = a
- return t
- }
-
- function _patharr0(D, q, i, h, A, B)
- {
- # this is somnitelno: that / / . / / com 56 / / - is the
DEV...; what is DEV ??? this already PROBLEM
-
#_____________________________________________________________________________
- ##############################################
- delete D
- if (0 < (q = split(gensub(/\\/, "/", "G", gensub(/ *([:$\\\/])
*/, "\\1", "G", gensub(/(^[ \t]+)|([ \t]+$)/, "", "G", q))), A, /\/+/, B))) {
- if (2 > (h = length(B[1]))) {
- D["type"] = "FILE"
- A[1] = _patharr0_i0(A[1], D, "drive")
- return _patharr0_i1(D, A, 1, q)
- }
- i = gensub(/ *([\.\?]) */, "\\1", "G", A[2])
- IGNORECASE = 1
- match(A[1], /^((https?)|(ftp)):$/)
- IGNORECASE = 0
- if (RLENGTH > 0) {
- D["type"] = toupper(substr(A[1], 1, RLENGTH -
1))
- _patharr0_i0(i, D, "site", "port")
- } else {
- if (A[1] == "") {
- D["type"] = "UNC"
- if (h > 2) {
- D["host"]
- A[2] = _patharr0_i0(A[2], D,
"drive", "", "FILE")
- return _patharr0_i1(D, A, 2, q)
- }
- if (i == "") {
- return 1
- }
- D["host"] = i
- A[3] = _patharr0_i0(A[3], D, "drive",
"", "FILE")
- } else {
- D["type"] = "FILE"
- A[1] = _patharr0_i0(A[1], D, "drive")
- return _patharr0_i1(D, A, 1, q)
- }
- }
- return _patharr0_i1(D, A, 3, q)
- }
- }
-
- function _patharr0_i0(t, D, l, r, d, i)
- {
- if (i = index(t, ":")) {
- #_____________________________________________________
- if (d) {
- D["type"] = d
- }
- if (i > 1) {
- D[l] = substr(t, 1, i - 1)
- }
- if ((t = substr(t, i + 1)) && r) {
- D[r] = t
- }
- return t
- } else {
- if (t && r) {
- D[l] = t
- }
- }
- return t
- }
-
- function _patharr0_i1(D, A, i, q, t, c)
- {
- if (D["type"] == "UNC") {
- #_____________________________________________________
- if (t = A[i++]) {
- D[0] = (D["share"] = D[++c] = t) "/"
- } else {
- return 1
- }
- }
- while (i < q) {
- D[0] = D[0] (D[++c] = A[i++]) "/"
- }
- if (i == q) {
- if (match(t = A[i], /\.[^\.]*$/)) {
- if (RSTART > 1) {
- D["name"] = substr(t, 1, RSTART - 1)
- }
- D["ext"] = substr(t, RSTART, RLENGTH)
- } else {
- if (t != "") {
- D["name"] = t
- }
- }
- }
- return 1
- }
-
- function _pmap(m, s1, s2, s3, s4, s5, s6, s7, s8)
- {
- if (match(m, /^([^\(]+)\(([^\)]*)\)$/, _QMAP)) {
-
#############################################################################
- _qparamf1 = _QMAP[1]
- _QMAP[0] = "r" (_qparamc1 = split(_QMAP[2], _QMAP, ""))
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8)
- }
- }
-
- function _pr0(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1()
- }
-
- function _pr1(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1)
- }
-
- function _pr2(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2)
- }
-
- function _pr3(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3)
- }
-
- function _pr4(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4)
- }
-
- function _pr5(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4, p5)
- }
-
- function _pr6(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4, p5, p6)
- }
-
- function _pr7(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4, p5, p6, p7)
- }
-
- function _pr8(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4, p5, p6, p7, p8)
- }
-
- function _printarr(A, t, lv, r, a)
- {
-
#_________________________________________________________________
- ####################################
- a = PROCINFO["sorted_in"]
- PROCINFO["sorted_in"] = "_lengthsort"
- _printarrexp = (r ? r : "")
- if (isarray(A)) {
- delete _DUMPARR
- _dumparrc = _dumparrd = ""
- _printarr_i1(A, lv = ((lv == "" ? 16 : (lv == 0 || lv +
0 != 0 ? lv : (lv == "-*" ? -3 : (lv ~ /^\+?\*$/ ? 3 : 16))))) + 0, (lv < 0 ?
-1 : 1), 0, _tabtospc(t))
- PROCINFO["sorted_in"] = a
- return _retarrd(_DUMPARR, _dumparrd, _dumparrd = "")
- }
- }
-
- function _printarr_i1(A, lv, ls, ln, t, t2, i, a, f)
- {
- #___________________________________________________________
- t2 = _getchrln(" ", length(t))
- if (ln == lv) {
- if (ls > 0) {
- for (i in A) {
- ++a
- }
- } else {
- for (i in A) {
- (isarray(A[i]) ? ++a : "")
- }
- }
- if (length(_dumparrd = _dumparrd t ((a > 0 ? " ... (x"
a ")" : "")) _CHR["EOL"]) > 262144) {
- _conl(_dumparrd)
- _dumparrd = ""
- }
- return
- }
- if (ls >= 0) {
- for (i in A) {
- if (! _printarrexp || i ~ _printarrexp) {
- if (! isarray(A[i])) {
- if (length(_dumparrd =
_dumparrd ((f ? t2 : t _nop(f = 1))) "[" i "]=" A[i] "'" _CHR["EOL"]) > 262144)
{
- _conl(_dumparrd)
- _dumparrd = ""
- }
- }
- }
- }
- }
- for (i in A) {
- if (isarray(A[i])) {
- if (! _printarrexp || i ~ _printarrexp) {
- _printarr_i1(A[i], lv, ls, ln + ls,
_th0((f ? t2 : t), f = 1) "[" i "]")
- }
- }
- }
- if (! f) {
- if (length(_dumparrd = _dumparrd t _CHR["EOL"]) >
262144) {
- _conl(_dumparrd)
- _dumparrd = ""
- }
- }
- }
-
- function _qparam(qm, p0, p1, p2, p3, p4, p5, p6, p7)
- {
- if (qm == qm + 0 && qm > 0) {
- _qparamim = substr(" ", 1, qm)
- } else {
- if (qm != "") {
- _qparamim = qm
- } else {
- _qparamim = " "
- }
- }
- _qparamask = ""
- return _qparam_i0(p0, p1, p2, p3, p4, p5, p6, p7)
- }
-
- function _qparam_i0(p0, p1, p2, p3, p4, p5, p6, p7)
- {
- _qparama0 = substr(_qparamim, 1, 1)
- _qparamim = substr(_qparamim, 2)
- switch (_qparama0) {
- case "":
- gsub(/ +$/, "", _qparamask)
- return length(_qparamask)
- default:
- if (isarray(p0)) {
- _qparama0 = "A"
- } else {
- if (p0 == "" && p0 == 0) {
- _qparama0 = " "
- } else {
- if (_isptr(p0)) {
- _qparama0 = "P"
- } else {
- _qparama0 = "S"
- }
- }
- }
- case ".":
- _qparamask = _qparamask _qparama0
- return _qparam_i0(p1, p2, p3, p4, p5, p6, p7)
- }
- }
-
- function _qstr(t, c, A, B)
- {
-
#_______________________________________________________________________
- ################################################
- c = ""
- for (t = split(t, A, /[\x00-\x1F\\"]/, B); t >= 0; t--) {
- c = _QSTR[B[t]] A[t + 1] c
- }
- return c
- }
-
- function _qstrq(t)
- {
-
#_________________________________________________________________
- ################################################
- gsub(/\\/, "\\\\", t)
- gsub(/"/, "\\\"", t)
- return t
- }
-
- function _rEG(c, t, P, a, A)
- {
- switch (c) {
- case "_lib_CMDLN":
-
################################################################
-
#_____________________________________________________________________________
- #####################################################
-
#___________________________________________________________
- #_____________________________________________________
- return t
- case "_lib_APPLY":
- #_____________________________________________________
- return
- case "_lib_HELP":
- #_____________________________________________________
- return
- case "_lib_NAMEVER":
- #_____________________________________________________
- return _ln("_reg 0.001")
- case "_lib_BEGIN":
- #_____________________________________________________
- return
- case "_lib_END":
- return
- }
- }
-
- function _rFBRO(p)
- {
- if (p) {
- if (p in _tPARENT) {
-
#_______________________________________________________________________
-
######################################################
- return _tFCHLD[_tPARENT[p]]
- }
- while (p in _tPREV) {
- p = _tPREV[p]
- }
- return p
- }
- return p
- }
-
- function _rFCHLD(p)
- {
- if (p && p in _tFCHLD) {
-
#_______________________________________________________________________
- #####################################################
- return _tFCHLD[p]
- }
- return ""
- }
-
- function _rLBRO(p)
- {
- if (p) {
- if (p in _tPARENT) {
- ######################## p="", !v
-
#_______________________________________________________________________
-
######################################################
- return _tLCHLD[_tPARENT[p]]
- }
- while (p in _tNEXT) {
- p = _tNEXT[p]
- }
- return p
- }
- return p
- }
-
- function _rLCHLD(p)
- {
- if (p && p in _tLCHLD) {
- ######################## p=""
-
#_______________________________________________________________________
- #####################################################
- return _tLCHLD[p]
- }
- return ""
- }
-
- function _rLINK(p)
- {
-
#_______________________________________________________________________
- ######################################################
- return ((p in _tLINK ? _tLINK[p] : ""))
- }
-
- function _rNEXT(p)
- {
- if (p && p in _tNEXT) {
- ######################## p=""
-
#_______________________________________________________________________
- ######################################################
- return _tNEXT[p]
- }
- return ""
- }
-
- function _rPARENT(p)
- {
- if (p && p in _tPARENT) {
- ######################## p=""
-
#_______________________________________________________________________
- ####################################################
- return _tPARENT[p]
- }
- return ""
- }
-
- function _rPREV(p)
- {
- if (p && p in _tPREV) {
- ######################## p=""
-
#_______________________________________________________________________
- ######################################################
- return _tPREV[p]
- }
- return ""
- }
-
- function _rQBRO(p, c, p1)
- {
- if (p) {
- if (p in _tPARENT) {
- ######################## p=""
-
#_______________________________________________________________________
- ################################################
- return _tQCHLD[_tPARENT[p]]
- }
- c = 1
- p1 = p
- while (p1 in _tPREV) {
- c++
- p1 = _tPREV[p1]
- }
- while (p in _tNEXT) {
- c++
- p = _tNEXT[p]
- }
- return c
- }
- return p
- }
-
- function _rQCHLD(p)
- {
- if (p && p in _tQCHLD) {
- ######################## p=""
-
#_______________________________________________________________________
- #####################################################
- return _tQCHLD[p]
- }
- return ""
- }
-
- function _rSQFIRST(g, p, A)
- {
-
#___________________________________________________________________________________
- # EMMULATED FUNCTIONAL FIELDS
######################################################
-
#_____________________________________________________________________________
- #####################################################
- if (isarray(A)) {
- return _rSQFIRSTA(g, p, A)
- }
- _SQTOPTR[g] = p
- _SQSTACK[g][0] = 0
- return _rsqgetptr(g, p)
- }
-
- function _rSQFIRSTA(g, p, A)
- {
-
#_________________________________________________________________
- ########################################
- _SQTOPTR[g] = p
- _SQSTACK[g][0] = 0
- if ((p = _rsqgetptr(g, p)) in A) {
- return p
- }
- return _rSQNEXTA(g, p, A)
- }
-
- function _rSQNEXT(g, p, A)
- {
-
#_______________________________________________________________________
- ################################################
- if (isarray(A)) {
- return _rSQNEXTA(g, p, A)
- }
- return _rsqnext_i0(g, p)
- }
-
- function _rSQNEXTA(g, p, A)
- {
- if (p == _SQTOPTR[g]) {
- if (_SQSTACK[g][0] > 0) {
-
#_________________________________________________________________
- #########################################
- _SQTOPTR[g] = _SQSTACK[g][_SQSTACK[g][0]--]
- return _rSQNEXTA(g,
_SQSTACK[g][_SQSTACK[g][0]--], A)
- }
- return
- }
- while (p in _tNEXT) {
- if ((p = _rsqgetptr(g, _tNEXT[p])) in A) {
- return p
- }
- }
- return ((p in _tPARENT ? _rSQNEXTA(g, _tPARENT[p], A) : ""))
- }
-
- function _rconl(t)
- {
- _rprt = _rprt _ln(t)
- }
-
- function _rconline(t)
- {
- _rprt = _rprt _ln((t = " " t " ") _getchrln("_", _CON_WIDTH -
length(t) - 1))
- }
-
- function _rd_shortcut(D, f)
- {
- if ((_shrtcutf0 = _filepath(f)) && _shortcut_nerr(_shrtcuta0 =
_cmd(_shortcut_fpath " /A:Q /F:\"" _shrtcutf0 "\" 2>&1"), _shrtcutf0)) {
-
#___________________________________________________________
- ERRNO = ""
- split(_shrtcuta0, _SHRTCUTA0, /\x0D?\x0A/)
- for (_shrtcuta0 in _SHRTCUTA0) {
- for (f in _SHORTCUTRSTRUC) {
- if (match(_SHRTCUTA0[_shrtcuta0], "^"
f)) {
- D[_SHORTCUTRSTRUC[f]] =
substr(_SHRTCUTA0[_shrtcuta0], 1 + RLENGTH)
- }
- }
- }
- }
- return ((ERRNO ? ERRNO = "read shortcut: " ERRNO : _NOP))
- }
-
- function _rdfile(f, i, A)
- {
- if ((f = _filerdne(f)) == "" || _filene(f) == "") {
-
#_______________________________________________________________________
- ################################################
- ERRNO = "Filename error"
- return
- }
- _fio_cmda = RS
- RS = ".{1,}"
- _fio_cmdb = BINMODE
- BINMODE = "rw"
- ERRNO = RT = _NUL
- getline RS < f
- BINMODE = _fio_cmdb
- RS = _fio_cmda
- if (ERRNO == "") {
- close(f)
- }
- if (ERRNO == "") {
- return RT
- }
- return (RT = _NOP)
- }
-
- function _rdreg(D, p)
- {
-
####################################################################################
- # PUBLIC:
-
#_____________________________________________________________________________
- # fn _th0,_th1,_th2,_th3
- # USAGE:
- # _th0(p1,p2,p3,p4)
- #
- # Each of this functions can have up to 4
parameters.
- # _th0(p1,p2,p3,p4) return 1st
parameter (p1)
- # _th1(p1,p2,p3,p4) return 2nd
parameter (p2)
- # _th2(p1,p2,p3,p4) return 3rd
parameter (p3)
- # _th3(p1,p2,p3,p4) return 4th
parameter (p4)
-
#_____________________________________________________________________________
- # fn _nop(p1,p2,p3,p4,p5,p6,p7,p8)
- # USAGE:
- # _nop()
- #
- # Does not do any action. No result
returned. Up to 8 parameters.
-
#_____________________________________________________________________________
- # fn _exit(c)
- # USAGE:
- # _exit(code)
- #
- # This function do the same as
GAWK-operator `exit code'.
-
#_____________________________________________________________________________
- # fn _getdate()
- # fn _getime()
- # fn _getsecond()
- # fn _getsecondsync()
- ################################################################
- _rdregp0 = "reg query \"" p "\" /S /reg:64 2>NUL"
- _rdregfld = _rdregkey = 0
- _rdregq0 = split(gensub(/[\x0D?\x0A]{2,}/, _CHR["EOL"], "G",
_cmd(_rdregp0)), _RDREGA0, /\x0D?\x0A/)
- while (_rdregq0 > 0) {
- _rdreg_i0(D)
- }
- return (_rdregfld + _rdregkey)
- }
-
- function _rdreg_i0(D, A)
- {
- while (_rdregq0 > 0) {
- if (match(_rdregp0 = _RDREGA0[_rdregq0--], / (.*)
REG_((SZ)|(DWORD)|(QWORD)|(BINARY)|(EXPAND_SZ)|(MULTI_SZ)) (.*)$/, A)) {
- if (! _rdreg_i0(D)) {
-
#___________________________________________________________
- ++_rdregfld
- D[_rdregp0 A[1] "." _RDREGTYPE[A[2]]] =
A[9]
- return
- } else {
- break
- }
- } else {
- if (_rdregp0 ~ /^HK/) {
- ++_rdregkey
- return D[_rdregp0 = _rdregp0 "\\"]
- }
- }
- }
- return 1
- }
-
- function _rdsafe(A, i, d)
- {
-
#_____________________________________________________________________________________________________
-
######################################################################################################
- if (i in A) {
- return A[i]
- }
- return d
- }
-
- function _reg_check(p)
- {
-
#_______________________________________________________________________
- _tframe("_reg_check_i0", p, p)
- }
-
- function _reg_check_i0(p, pp, p1, p2)
- {
- if (_[p]["TYPE"] == "defreg") {
- if (_[p]["REGPATH"] in _REG) {
- if ("VALUE" in _[p]) {
-
#_______________________________________________
- if (_[p]["VALUE"] ==
_REG[_[p]["REGPATH"]]) {
- _creport(p, substr("OK:
REGENTRY MATCH(==" _[p]["VALUE"] "): " _[p]["REGPATH"], 1, 126))
- } else {
- _dllerr(p, substr("REGENTRY NOT
MATCH(!=" _[p]["VALUE"] "): " _[p]["REGPATH"], 1, 126))
- }
- } else {
- if (_VAR[_[p]["REGPATH"]] ==
_REG[_[p]["REGPATH"]]) {
- _creport(p, substr("OK:
REGPATH MATCH(==" _VAR[_[p]["REGPATH"]] "): " _[p]["REGPATH"], 1, 126))
- } else {
- _dllerr(p, substr("REGPATH NOT
MATCH(!=" _VAR[_[p]["REGPATH"]] "): " _[p]["REGPATH"], 1, 126))
- }
- }
- } else {
- _dllerr(p, substr("REGPATH NOT FOUND: "
_[p]["REGPATH"], 1, 126))
- }
- }
- }
-
- function _registryinit()
- {
- #_____________________________________________________
- _registrytmpfile = _getmpfile()
- }
-
- function _regpath0(D, i, s, q, S)
- {
- if (i = _patharr0(S, i)) {
- # _rdregfld : gvar - number of readed
registry fields by _rdreg()
- # _rdregkey : gvar - number of readed
registry keys by _rdreg()
-
#_____________________________________________________________________________
- ############################################ 0 #
- if ("name" in S) {
- D["name"] = S["name"]
- }
- if ("ext" in S) {
- D["ext"] = S["ext"]
- }
- s = ((toupper(s = (i in S ? S[i] : "")) in
_REGPATH0REGDIR ? D[++q] = _REGPATH0REGDIR[toupper(s)] : (D[++q] =
_REGPATH0REGDIR[""]) "\\" (D[++q] = s))) "\\"
- while (++i in S) {
- s = s (D[++q] = S[i]) "\\"
- }
- if (s != "") {
- D[0] = s
- }
- IGNORECASE = 1
- D["hostdir"] = "\\\\" (D["host"] = ("host" in S && (""
== (i = S["host"]) || "." == i || "?" == i || "localhost" == i) ?
ENVIRON["COMPUTERNAME"] : i)) "\\" s
- IGNORECASE = 0
- }
- }
-
- function _report(p)
- {
-
#_________________________________________________________________________________________
-
#######################################################################
- _report_t0 = _reportparnt = ""
- _report_i0(p)
- _tframe("_report_i0", p)
- return _report_t0
- }
-
- function _report_i0(p, p0, p1, p2)
- {
- if (p in _tPARENT) {
- if (_reportparnt != (_reportparnt = _tPARENT[p])) {
- _report_t0 = _report_t0 _ln() _ln((z = "_ "
_[_tPARENT[p]]["NAME"] " ") _getchrln("_", _CON_WIDTH - length(z) - 2))
_ln(_getchrln("#", _CON_WIDTH - 2)) _ln()
- }
- }
- if ("ERROR" in _[p]) {
- _report_t0 = _report_t0 _reporterr(p, _[p]["ERROR"])
- }
- if ("REPORT" in _[p]) {
- _report_t0 = _report_t0 _ln(_[p]["REPORT"])
- }
- }
-
- function _reporterr(p, t3, pp, t, t2)
- {
-
#___________________________________________________________________________________
- t = ""
- pp = p
- do {
- ("NAME" in _[pp] ? t = _[pp]["NAME"] ": " t : "")
- } while (pp = _rPARENT(pp))
- if (match(t3, /\x00/)) {
- return (substr(t3, 1, RSTART - 1) t substr(t3, RSTART +
1))
- }
- return (t t3)
- }
-
- function _retarr(A, i, p, a, q)
- {
- if (isarray(A)) {
-
#___________________________________________________________________________________
-
####################################################################################
-
#_______________________________________________________________________
- # _CHR array
- #
- # _CHR[ASC-code decimal number]=="char"
- #
- # Contains 256 elements. The index is the
decimal number from 0-255.
- # The value is the single character with
ASC-code equivalent to index number:
- #
- # _CHR[97] =="a"
- character with ASC-code 97 is `a'
- #
- # This array is useful if you want to get
character using it's ASC-code
-
#_________________________________________________________________
- # _ASC array
- #
- # _ASC[char]==number: ASC-code of char
- #
- # Contains 256 elements. The index is the
any single character with ASC-code \x00-\xFF.
- # The value is the number equivalent of
character's ASC-code:
- #
- # _ASC["A"] ==65
- ASC-code of character `A' is 65
- #
- # This array is useful if you want to get
ASC-code of the character.
-
#_________________________________________________________________
- # _QASC array
- #
- # _QASC[char]=="string: octal ASC-code of char in
3-digit octal format"
- #
- # Contains 256 elements. The index is the
any single charcter with ASC-code \x00-\xFF.
- # The value is the octal number
equivalent of character's ASC-code in fixed-length - 3-digit - string:
- #
- # _QASC["!"] =="041"
- ASC-code of character `!' is 33(decimal) == 41(in octal)
- # _QASC["\x0D"] =="015"
- #
- # This array is useful when some type of
string escape conversion is performed. It allows quickly get
- # replace string for the characters that
can be specified only by character code in result string:
- #
- # "\x0D" -> "\\015"
-
#_______________________________________________________________________
-
####################################################################################
- # PUBLIC:
-
#_____________________________________________________________________________
- # fn _getchrln(ptt,len)
-
#_____________________________________________________________________________
- # fn _tabtospc(src,tabstep,xcoord)
-
####################################################################################
-
#_____________________________________________________________________________
- ##################################################
- i = (i == "" ? 0 : i + 0)
- q = A[_ARRLEN] + 0
- if (i < q) {
- return (p A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] _retarr_i0(A, q, i, a))
- }
- }
- }
-
- function _retarr_i0(A, q, i, a)
- {
- if (i < q) {
- return (A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
_retarr_i0(A, q, i, a))
- }
- while (q < i) {
- delete A[++q]
- }
- return a
- }
-
- function _retarrd(A, v, i)
- {
-
#_________________________________________________________________
- #########################################
- if (1 in A) {
- return (A[1] A[2] A[3] A[4] A[5] A[6] A[7] A[8] A[9]
A[10] A[11] A[12] A[13] A[14] A[15] A[16] (((i = 17) in A ? _retarrd_i0(A, i) v
: v)))
- }
- delete A
- return v
- }
-
- function _retarrd_i0(A, i)
- {
- #_____________________________________________________
- if (i in A) {
- return (A[i++] A[i++] A[i++] A[i++] A[i++] A[i++]
A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] ((i in A
? _retarrd_i0(A, i) : "")))
- }
- delete A
- }
-
- function _rexpfn(R, t, p)
- {
-
#_______________________________________________________________________
-
########################################################################
- #EXPERIMENTAL
- _REXPFN[""] = ""
- while (t) {
- t = _rxpfn(R, t, p)
- }
- return _REXPFN[""]
- }
-
- function _rexpfnend(t)
- {
- _REXPFN[""] = t
- }
- function _gen(D, t)
- {
- if (length(D[D[_ARRLEN]] = D[D["."]] t) > _datablock_length) {
- D[++D[_ARRLEN]] = ""
- }
- }
- function _rexpstr(r, i, c, A)
- {
-
#_____________________________________________________________________________
- ###################################################
- c = split(r, A, "")
- r = ""
- for (i = 1; i <= c; i++) {
- r = r _REXPSTR[A[i]]
- }
- return r
- }
- function _gensubfn(t, r, f, p0, A)
- {
- if (match(t, r, A)) {
- return (substr(t, 1, RSTART - 1) (@f(_th0(substr(t,
RSTART, RLENGTH), t = substr(t, RSTART + RLENGTH)), A, p0)) _gensubfn(t, r, f,
p0))
- }
- return t
- }
- function _rexpstr_i0(t, A, p0)
- {
-
#_____________________________________________________________________________
- return (_REXPSTR[t] = "\\" t)
- }
- function _get_errout(p)
- {
- return _tframe("_get_errout_i0", p)
- }
- function _rmtsharerr(h, t)
- {
- #___________________________________________________________
- gsub(/[\x0D\x0A]+/, "", t)
- if (t ~ /^The command failed: 53/) {
- ERRNO = "host not found: \\\\" h
- } else {
- ERRNO = t ": \\\\" h
- }
- }
- function _get_errout_i0(p, t, n, a)
- {
- return ((p in _tLOG ? _get_errout_i1(p) _get_errout_i3(p) : ""))
- }
- function _rpp(q, D, S)
- {
- _conl()
- _conline(q)
- _conl()
- #_conl(_dumparr(D))
- _regpath0(D, q)
- _conl(_ln("DEST:") _dumparr(D))
- _conl()
- return q
- }
- function _get_errout_i1(p, t, n, a)
- {
- if (p in _tLOG) {
- n = ""
- if (_tLOG[p]["TYPE"]) {
- n = _tLOG[p]["TYPE"] ": " _get_errout_i2(p)
- if (match(_tLOG[p]["TEXT"], /\x1F/)) {
- t = n
- gsub(/[^\t]/, " ", t)
- return (_ln(n substr(_tLOG[p]["TEXT"],
1, RSTART - 1)) _ln(t substr(_tLOG[p]["TEXT"], RSTART + 1)))
- }
- }
- return _ln(n _tLOG[p]["TEXT"])
- }
- }
- function _rrdreg(DD, p, k, t, v, c, i, q, tT, A, B, C, D)
- {
-
#_________________________________________________________________________________________
- ############################################# old; regedit
- if (! _registrytmpfile) {
- _registryinit()
- }
- _cmd("regedit /E \"" _registrytmpfile "\" \"" p "\" 2>&1")
- q = patsplit(gensub(/[\x00\xFF\xFE]+/, "", "G",
_rdfile(_registrytmpfile)), A, /\x0D?\x0A\[[^\]]+\]\x0D?\x0A/, B)
- for (i = 1; i <= q; i++) {
- p = gensub(/(^[ \t\x0D\x0A]*\[)|((\\)\\+)|(\][
\t\x0D\x0A]*$)/, "\\3", "G", A[i])
- DD[p "\\"]
- delete C[split(B[i], C, /[\x0D\x0A]+/)]
- for (c = 1; c in C; c++) {
- tt = tt C[c]
- if (gsub(/\\$/, "", tt)) {
- continue
- }
- if (tt == "") {
- continue
- }
- if (match(_th0(tt, tt = ""),
/((^"(([^\\"]|\\.)*)")|(@))=(("(([^\\"]|\\.)*)")|(dword:([[:xdigit:]]{8}))|(hex(\(([27b])\))?:(.*)))$/,
D)) {
- if (D[7]) {
- t = "STR"
- v = _unstr(D[8])
- } else {
- if (D[10]) {
- t = "W32"
- v = D[11]
- } else {
- v = D[15]
- if (D[13]) {
- switch (D[14]) {
- case "2":
- t =
"XSZ"
- break
- case "7":
- t =
"MSZ"
- break
- default:
- t =
"W64"
- }
- } else {
- t = "BIN"
- }
- }
- }
- DD[gensub(/(\\)\\+/, "\\1", "G", p "\\"
_unstr(D[3] ((D[5] ? "(Default)" : ""))) "." t)] = v
- } else {
- _fatal("regedit: unknown output
format(" c "): `" C[c] "'")
- }
- }
- }
- }
- function _get_errout_i2(p)
- {
- return (("FILE" in _tLOG[p] ? _tLOG[p]["FILE"] (("LINE" in
_tLOG[p] ? "(" _tLOG[p]["LINE"] ")" : "")) ": " : ""))
- }
- function _rsqgetptr(g, p, A)
- {
- if (p in _tLINK) {
-
#_________________________________________________________________
- _SQSTACK[g][++_SQSTACK[g][0]] = p
- _SQSTACK[g][++_SQSTACK[g][0]] = _SQTOPTR[g]
- while ((p = _tLINK[p]) in _tLINK) {
- _con(".")
- }
- _SQTOPTR[g] = p
- }
- if (p in _tFCHLD) {
- return _rsqgetptr(g, _tFCHLD[p])
- }
- return p
- }
- function _get_errout_i3(p, t, ts, cl, cp, cr, a, b)
- {
- if ("LSTR" in _tLOG[p]) {
- t = _tLOG[p]["FULLSTR"]
- ts = _tLOG[p]["TS"]
- cp = "^"
- if ("CSTR" in _tLOG[p]) {
- cr = _tLOG[p]["CSTR"]
- cl = _tLOG[p]["CLSTR"]
- if ("CPSTR" in _tLOG[p]) {
- cp = _tLOG[p]["CPSTR"]
- }
- }
- cr = substr(cr, length(cl) + length(cp) + 1)
- return (_ln(_tabtospc(t, ts)) _ln(_getchrln(" ", a =
length(_tabtospc(_tLOG[p]["LSTR"], ts))) _getchrln("-", b =
length(_tabtospc(cl, ts, a))) _getchrln("^", b = length(_tabtospc(cp, ts, a = a
+ b))) _getchrln("-", length(_tabtospc(cr, ts, a + b)))))
+
- function _rsqnext_i0(g, p)
- {
- if (p == _SQTOPTR[g]) {
- if (_SQSTACK[g][0] > 0) {
-
#___________________________________________________________
- _SQTOPTR[g] = _SQSTACK[g][_SQSTACK[g][0]--]
- return _rsqnext_i0(g,
_SQSTACK[g][_SQSTACK[g][0]--])
- }
- return
- }
- if (p in _tNEXT) {
- return _rsqgetptr(g, _tNEXT[p])
- }
- return _rsqnext_i0(g, _tPARENT[p])
- }
+
- function _rtn(v, A)
- {
- _conl()
- _conline(_val(v) " : " _val(A))
- _conl()
- _rtn2(v, A)
- _conl()
- }
+
- function _rtn2(v, A, r, t)
- {
- r = (isarray(A) ? _typa(v, A) : _typ(v))
- if ("`" > _t0 && _t0) {
- _conl("ggggg")
- }
- t = ((r ? "TRUE" : "FALSE")) " / " ((r > 0 ? r ">0" : r "!>0"))
" / " ((r + 0 > 0 ? r "+0>0" : r "+0!>0")) " / " ((r + 0 != r ? r "+0!=" r : r
"+0==" r)) " / " ((r && "`" > r ? "'`'>" r " && " r : "!('`'>" r " && " r ")"))
- _conl("`" r "' : " t)
- return r
- }
+
- function _rxpfn(R, t, p, i, f, A)
- {
- for (i in R) {
- if (match(t, i, A)) {
- f = R[i]
- if (t != (t = @f(A, substr(t, RLENGTH + 1),
p))) {
- return t
- }
- }
- }
- return _rexpfnend(t)
- }
+
- function _sHARE(c, t, P, a, A)
- {
- switch (c) {
- case "_lib_CMDLN":
-
##############################################################
-
#_____________________________________________________________________________
- ###################################################
-
#___________________________________________________________
- #_____________________________________________________
- return t
- case "_lib_APPLY":
- #_____________________________________________________
- return
- case "_lib_HELP":
- #_____________________________________________________
- return
- case "_lib_NAMEVER":
- #_____________________________________________________
- return _ln("_share 1.000")
- case "_lib_BEGIN":
- #_____________________________________________________
- return
- case "_lib_END":
- return
- }
- }
+
- function _sYS(c, t, P, a, A)
- {
- switch (c) {
- case "_lib_CMDLN":
-
################################################################
-
#_____________________________________________________________________________
- #####################################################
-
#___________________________________________________________
- #_____________________________________________________
- return t
- case "_lib_APPLY":
- #_____________________________________________________
- return
- case "_lib_HELP":
- #_____________________________________________________
- return
- case "_lib_NAMEVER":
- #_____________________________________________________
- return
- case "_lib_BEGIN":
- #_____________________________________________________
- return
- case "_lib_END":
- return
- }
- }
+
- function _serv_check(p)
- {
-
#_______________________________________________________________________
- _tframe("_serv_check_i0", p, p)
- }
+
- function _serv_check_i0(p, p0, p1, p2, p3, i, q, c)
- {
- if (_[p]["TYPE"] == "defsrv") {
- #_______________________________________________
- i = IGNORECASE
- IGNORECASE = 1
- if (match(_servoutput, roi = "\\012DISPLAY_NAME: "
_torexp(_[p]["SERVNAME"]))) {
- _creport(p, "OK: SERVICE DETECTED: "
substr(_[p]["SERVNAME"], 1, 112))
- } else {
- _dllerr(p, "service " _[p]["SERVNAME"] " not
detected")
- }
- }
- IGNORECASE = i
- }
+
- function _setarrsort(f, a)
- {
-
#_______________________________________________________________________
- ##############################################
- a = PROCINFO["sorted_in"]
- if (! f) {
- delete PROCINFO["sorted_in"]
- } else {
- PROCINFO["sorted_in"] = f
- }
- return a
- }
+
- function _setmpath(p, a)
- {
-
#_______________________________________________________________________
- ################################################
- ERRNO = ""
- if (p && (a = _filerd(p))) {
- #if ( _filexist(a) ) _del(a)
- #_cmd("rd " a " /S /Q 2>NUL"); _cmd("del " a " /Q
2>NUL")
- if (_FILEIO_TMPRD) {
- _FILEIO_TMPATHS[_FILEIO_TMPRD]
- }
- return (_FILEIO_TMPRD = a)
- } else {
- return _warning("`" p "': cannot set temporary folder"
((ERRNO ? ": " ERRNO : "")))
- }
- }
-
- function _sharelist(D, h, q, c, l, A, B)
- {
-
#_________________________________________________________________________________________
-
##########################################################################################
- #################################################
- delete D
- c = _sharextool " \\\\" ((h == "" ? h = ENVIRON["COMPUTERNAME"]
: h)) " 2>&1"
- if (match(c = _cmd(c), /\x0AShare[^\x0A]*Remark/)) {
- gsub(/(^[^-]*\x0D?\x0A-+\x0D?\x0A[ \t]*)|(\x0D?\x0AThe
command completed successfully.*$)/, "", c)
- l = RLENGTH - 7
- split(c, A, /([ \t]*\x0D?\x0A)+[ \t]*/)
- for (c in A) {
- if (match(A[c], /((([^ \t:]+[ \t]+)*[^ \t:]+)[
\t]+)([A-Za-z])[ \t]*:/, B) && ++q) {
- D[B[2]] = (A[c] ~ /\.\.\.$/ ?
_sharepath(h, B[2]) : gensub(/[ \t\\\/]*$/, "\\\\", 1, substr(A[c], 1 + B[1,
"length"], l - B[1, "length"])))
- }
++function _sharelist(D, h, q, c, l, A, B)
++{
++ #################################################
++ delete D
++ c = _sharextool " \\\\" ((h == "" ? h = ENVIRON["COMPUTERNAME"] : h)) "
2>&1"
++ if (match(c = _cmd(c), /\x0AShare[^\x0A]*Remark/)) {
++ gsub(/(^[^-]*\x0D?\x0A-+\x0D?\x0A[ \t]*)|(\x0D?\x0AThe command
completed successfully.*$)/, "", c)
++ l = RLENGTH - 7
++ split(c, A, /([ \t]*\x0D?\x0A)+[ \t]*/)
++ for (c in A) {
++ if (match(A[c], /((([^ \t:]+[ \t]+)*[^ \t:]+)[
\t]+)([A-Za-z])[ \t]*:/, B) && ++q) {
++ D[B[2]] = (A[c] ~ /\.\.\.$/ ? _sharepath(h,
B[2]) : gensub(/[ \t\\\/]*$/, "\\\\", 1, substr(A[c], 1 + B[1, "length"], l -
B[1, "length"])))
+ }
- return q
}
- return _rmtsharerr(h, c)
++ return q
}
++ return _rmtsharerr(h, c)
++}
- function _sharepath(h, s, A)
- {
-
#_____________________________________________________________________________
- ###################################################
- s = _sharextool " \\\\" ((h == "" ? h = ENVIRON["COMPUTERNAME"]
: h)) "\\\"" s "\" 2>&1"
- if (match(s = _cmd(s), /\x0APath[ \t]+([^\x0D\x0A]+)/,
_SHAREPATHA0)) {
- return gensub(/[ \t\\\/]*$/, "\\\\", 1, _SHAREPATHA0[1])
- }
- return _rmtsharerr(h, s)
- function _get_logout(p)
- {
- return _tframe("_get_logout_i0", p)
++#_____________________________________________________________________________
++function _sharepath(h, s, A)
++{
++ ###################################################
++ s = _sharextool " \\\\" ((h == "" ? h = ENVIRON["COMPUTERNAME"] : h))
"\\\"" s "\" 2>&1"
++ if (match(s = _cmd(s), /\x0APath[ \t]+([^\x0D\x0A]+)/, _SHAREPATHA0)) {
++ return gensub(/[ \t\\\/]*$/, "\\\\", 1, _SHAREPATHA0[1])
}
++ return _rmtsharerr(h, s)
++}
- function _shortcut(D, S)
- {
- # filepath,filepath2* - [over]write shorcut file filepath;
shortcut parameters will be defined from shortcut file filepath2(copy shortcut)
- if (isarray(D)) {
- # array,ptr* - copy from array _[ptr] to
array shorcut-specific elements
- if (isarray(S)) {
-
#############################################################
- _addarrmask(D, S, _SHORTCUTWSTRUC)
- } else {
- if (S == 0 && S == "") {
- # array,array2* - copy from
array2 to array shorcut-specific elements
- _addarrmask(D, _SHORTCUTDEFAULT,
_SHORTCUTWSTRUC)
- } else {
- if (_isnotfileptr(S)) {
- # array*
- define shortcut-specific elements in array by default values
- _addarrmask(D, _[S],
_SHORTCUTWSTRUC)
- } else {
- if (_rd_shortcut(D, S)) {
- return
- }
- }
- }
- }
- function _get_logout_i0(p, t, n, a)
- {
- if (p in _tLOG) {
- n = (("DATE" in _tLOG[p] ? _tLOG[p]["DATE"] " " : ""))
(("TIME" in _tLOG[p] ? _tLOG[p]["TIME"] " " : ""))
- if (_tLOG[p]["TYPE"]) {
- n = n _tLOG[p]["TYPE"] ": " (("FILE" in
_tLOG[p] ? _tLOG[p]["FILE"] (("LINE" in _tLOG[p] ? "(" _tLOG[p]["LINE"] ")" :
"")) ": " : ""))
- if (match(_tLOG[p]["TEXT"], /\x1F/)) {
- t = n
- gsub(/[^\t]/, " ", t)
- return (_ln(n substr(_tLOG[p]["TEXT"],
1, RSTART - 1)) _ln(t substr(_tLOG[p]["TEXT"], RSTART + 1)))
++function _shortcut(D, S)
++{
++ #############################################################
++ if (isarray(D)) {
++ if (isarray(S)) {
++ _addarrmask(D, S, _SHORTCUTWSTRUC)
+ } else {
- if (D == 0 && D == "") {
- return _NOP
++ if (S == 0 && S == "") {
++ # array,array2* - copy from array2 to
array shorcut-specific elements
++ _addarrmask(D, _SHORTCUTDEFAULT,
_SHORTCUTWSTRUC)
+ } else {
- if (_isnotfileptr(D)) {
- # ptr,ptr2* - copy
from array _[ptr2] to array _[ptr] shorcut-specific elements
- if (isarray(S)) {
- # array,filepath*
- define in array shortcut-specific elements by reading its from shortcut file
filepath(load shortcut)
- # -*
- no action(return -)
- _addarrmask(_[D], S,
_SHORTCUTWSTRUC)
- } else {
- if (S == 0 && S == "") {
- # ptr,array*
- copy from array to array _[ptr] shorcut-specific elements
- _addarrmask(_[D],
_SHORTCUTDEFAULT, _SHORTCUTWSTRUC)
- } else {
- if (_isnotfileptr(S)) {
- # ptr*
- define shortcut-specifc elements in array _[ptr] by default values
-
_addarrmask(_[D], _[S], _SHORTCUTWSTRUC)
- } else {
- if
(_rd_shortcut(_[D], S)) {
- return
- }
- }
- }
- }
++ if (_isnotfileptr(S)) {
++ # array* -
define shortcut-specific elements in array by default values
++ _addarrmask(D, _[S], _SHORTCUTWSTRUC)
+ } else {
- # ptr,filepath* - define in
array _[ptr] shortcut-specific elements by reading its from shortcut file
filepath(load shortcut)
- # filepath,array* -
[over]write shorcut file filepath; shortcut parameters will be defined by
shortcut-specific elements in array(save shortcut)
- # filepath* -
[over]write shorcut file filepath; shortcut parameters will be defined by
default values
- # filepath,ptr* - [over]write
shorcut file filepath; shortcut parameters will be defined by shortcut-specific
elements in array _[ptr](save shortcut)
- if (isarray(S) && _wr_shortcut(D, S)) {
++ if (_rd_shortcut(D, S)) {
+ return
- } else {
- if (S == 0 && S == "" &&
_wr_shortcut(D, _SHORTCUTDEFAULT)) {
- return
- } else {
- if (_isnotfileptr(S) &&
_wr_shortcut(D, _[S])) {
- return
- } else {
- if
(_rd_shortcut(_SHRTCUTA1, S) || _wr_shortcut(D, _SHRTCUTA1)) {
- return
- }
- }
- }
- }
- }
- }
- }
- return 1
- }
-
- function _shortcut_init(A, B, q)
- {
- #________________________________________________
- _SHORTCUTERR[2] = "file not found"
- _SHORTCUTERR[3] = "no such filepath"
- _SHORTCUTERR["The system cannot find the file specified."] =
"no such filepath"
- _SHORTCUTERR[5] = "file is folder"
- _SHORTCUTERR["Access is denied."] = "file is folder"
- _SHORTCUTERR[123] = "filepath syntax error"
- _SHORTCUTERR["The filename, directory name, or volume label
syntax is incorrect."] = "filepath syntax error"
- q =
"target\t\t\t/T:\t\t\t\tTargetPath=\t\t\t\t\ttarget?\t\t\t;\t\t\t_target\t\t\t\t\t\t\tTargetPathExpanded=\t\t\t\t\t\t\t;\t\t\tparameters\t\t\t/P:\t\t\t\tArguments=\t\t\t\t\tparaneters?\t\t\t;\t\t\t_parameters\t\t\t\t\t\t\tArgumentsExpanded=\t\t\t\t\t\t\t;\t\t\tstartdir\t\t\t/W:\t\t\t\tWorkingDirectory=\t\t\t\tstartdir?\t\t\t;\t\t\t_startdir\t\t\t\t\t\t\tWorkingDirectoryExpanded=\t\t\t\t\t\t;\t\t\trunstyle\t\t\t/R:\t\t\t\tRunStyle=\t\t\t\t\t1\t\t\t\t;\t\t\ticon,index\t\t\t/I:\t\t\t\tIconLocation=\t\t\t\ticon,index?\t\t\t;\t\t\txicon,index\t\t\t\t\t\t\tIconLocationExpanded=\t\t\t\t\t\t\t;\t\t\tshortcut
key\t\t/H:\t\t\t\tHotKey=\t\t\t\t\t0\t\t\t\t;\t\t\tdescription\t\t\t/D:\t\t\t\tDescription=\t\t\t\t_env4:
default shortcut\t"
- split(q, _SHRTCUTA0, /[ \t]*;[ \t]*/)
- for (q in _SHRTCUTA0) {
- if (match(_SHRTCUTA0[q],
/^([^\t]+)\t+([^\t]+)(\t+([^\t]+)(\t+([^\t]+))?)?/, B)) {
- if (B[3] == "") {
- _SHORTCUTRSTRUC[B[2]] = B[1]
- } else {
- if (B[5] == "") {
-
_SHORTCUTWSTRUC[_SHORTCUTRSTRUC[B[4]] = B[1]] = B[2]
- delete _SHORTCUTDEFAULT[B[1]]
- } else {
-
_SHORTCUTWSTRUC[_SHORTCUTRSTRUC[B[4]] = B[1]] = B[2]
- _SHORTCUTDEFAULT[B[1]] = B[6]
- }
- }
- } else {
- _fatal("_shortcut.init: _shortcut_struc: syntax
error: `" _SHRTCUTA0[q] "'")
- }
- }
- _SHRTCUTA1[""]
- delete _SHRTCUTA1[""]
- _shortcut_fpath =
"\\\\localhost\\eGAWK\\LIB\\_shortcut\\_shortcut.exe"
- }
-
- function _shortcut_nerr(t, s, A)
- {
- if (match(t, /\x0ASystem error
(-?[0-9]+)[^\x0D\x0A]*[\x0D\x0A]+([^\x0D\x0A]+)/, A)) {
- #_____________________________________________________
- ERRNO = ((A[1] in _SHORTCUTERR ? _SHORTCUTERR[A[1]] :
(A[2] in _SHORTCUTERR ? _SHORTCUTERR[A[2]] : tolower(gensub(/^(The
)?(((.*)\.$)|(.*[^\.]$))/, "\\4\\5", "G", A[2])) "(" A[1] ")"))) ((s ? ": `" s
"'" : ""))
- } else {
- return 1
- }
- }
-
- function _split_regpath()
- {
- _rpp(" / / / / ")
- _rpp(" / / / / huj ")
- _rpp(" / / / / huj / ")
- _rpp(" / / / / huj / pizda.TSR ")
- _rpp(" / / / / hklm ")
- _rpp(" / / / / hklm / ")
- _rpp(" / / / / hklm / huj ")
- _rpp(" / / / / hklm / huj / ")
- _rpp(" / / / / hklm / huj / \tpizda.TSR ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _rpp(" / / / / hklm / software / altiris / fi le . ex t ")
- _rpp(" / / . / / hkcr / software / altiris / fi le . ex t ")
- _rpp(" / / ? / / hKcU / software / altiris / fi le . ex t ")
- _rpp(" / / lOcAlHoSt / / hKu / software / altiris / fi le . ex
t ")
- _rpp(" / / ho st / / hKcc / software / altiris / fi le . ex t
")
- _rpp(" / / ho st / / hKPd / software / altiris / fi le . ex t
")
- _conl()
-
_conl("########################################################################################")
- _conl()
- }
-
- function _splitpath_test()
- {
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" ")
- _fpp(" fi le . ex t ")
- _fpp(" di r0 / / ")
- _fpp(" di r0 / / fi le . ex t ")
- _fpp(" / ")
- _fpp(" / fi le . ex t ")
- _fpp(" / di r0 / / ")
- _fpp(" / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" c : ")
- _fpp(" c : fi le . ex t ")
- _fpp(" c : di r0 / / ")
- _fpp(" c : di r0 / / fi le . ex t ")
- _fpp(" c : / / ")
- _fpp(" c : / / fi le . ex t ")
- _fpp(" c : / / di r0 / / ")
- _fpp(" c : / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" / / ")
- _fpp(" / / ho st . hs t ")
- _fpp(" / / ho st / / ")
- _fpp(" / / ho st / / fi le . ex t ")
- _fpp(" / / ho st / / di r0 / / ")
- _fpp(" / / ho st / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" / / ho st / / c : ")
- _fpp(" / / ho st / / c : fi le . ex t ")
- _fpp(" / / ho st / / c : di r0 / / ")
- _fpp(" / / ho st / / c : di r0 / / fi le . ex t ")
- _fpp(" / / ho st / / c : / / ")
- _fpp(" / / ho st / / c : / / fi le . ex t ")
- _fpp(" / / ho st / / c : / / di r0 / / ")
- _fpp(" / / ho st / / c : / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" http : / / / ")
- _fpp(" http : / / / si te . ex t ")
- _fpp(" http : / / / si te / / ")
- _fpp(" http : / / / si te / / fi le . ex t ")
- _fpp(" http : / / / si te / / di r0 / / ")
- _fpp(" http : / / / si te / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" ftp : / / / : po rt ")
- _fpp(" ftp : / / / si te . ex t : po rt ")
- _fpp(" ftp : / / / si te : po rt / / ")
- _fpp(" ftp : / / / si te : po rt / / fi le . ex t ")
- _fpp(" ftp : / / / si te : po rt / / di r0 / / ")
- _fpp(" ftp : / / / si te : po rt / / di r0 / / fi le . ex t ")
- _conl()
- _conl("## //.
######################################################################################")
- _conl()
- _fpp(" / / . ")
- _fpp(" / / . / / ")
- _fpp(" / / . / / com 56 ")
- _fpp(" / / . / / com 56 / / ")
- _fpp(" / / . / / c : ")
- _fpp(" / / . / / c : / / ")
- _fpp(" / / . / / c : com 56 ")
- _fpp(" / / . / / c : com 56 / / ")
- _fpp(" / / . / / c : / / com 56 ")
- _fpp(" / / . / / c : / / com 56 / / ")
- _conl()
- _conl("## //?
######################################################################################")
- _conl()
- _fpp(" / / ? ")
- _fpp(" / / ? / / ")
- _fpp(" / / ? / / com 56 ")
- _fpp(" / / ? / / com 56 / / ")
- _fpp(" / / ? / / c : ")
- _fpp(" / / ? / / c : / / ")
- _fpp(" / / ? / / c : com 56 ")
- _fpp(" / / ? / / c : com 56 / / ")
- _fpp(" / / ? / / c : / / com 56 ")
- _fpp(" / / ? / / c : / / com 56 / / ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" / / / ")
- _fpp(" / / / . hs t ")
- _fpp(" / / / / fi le . ex t ")
- _fpp(" / / / / di r0 / / ")
- _fpp(" / / / / di r0 / / di r1 / fi le . ex t ")
- _fpp(" / / / / c : ")
- _fpp(" / / / / c : fi le . ex t ")
- _fpp(" / / / / c : di r0 / / ")
- _fpp(" / / / / c : di r0 / / fi le . ex t ")
- _fpp(" / / / / c : / / ")
- _fpp(" / / / / c : / / fi le . ex t ")
- _fpp(" / / / / c : / / di r0 / / ")
- _fpp(" / / / / c : / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- return
- }
-
- function _splitstr(A, t, r)
- {
- if (_istr(t)) {
-
#_______________________________________________________________________
- ########################################### 1 #
- if (_splitstr_i0(A, t) > 0) {
- return _splitstrp0
- }
- if (_istr(r)) {
- return _splitstr_i0(A, r)
- }
- } else {
- if (it == "A") {
- if (length(t) > 0) {
- _movarr(A, t)
- return (0 - length(A))
- }
- }
- _istr(r)
- }
- if (it == "A") {
- if (length(r) > 0) {
- _movarr(A, r)
- return (0 - length(A))
- }
- }
- }
-
- function _splitstr_i0(A, t, C)
- {
- #_____________________________________________________
- if (2 > (_splitstrq0 = patsplit(t, _SPLITSTRA0,
/([^,\xB4]*\xB4.)*[^,\xB4]*/))) {
- _splitstrq0 = split(gensub(/\xB4(.)/, "\\1", "G", t),
_SPLITSTRA0, "")
- }
- delete A
- _splitstri0 = _splitstrp0 = 0
- while (_splitstri0++ < _splitstrq0) {
- if ((t = gensub(/\xB4(.)/, "\\1", "G",
_SPLITSTRA0[_splitstri0])) in C || t == "") {
- continue
- }
- C[A[++_splitstrp0] = t]
- }
- return _splitstrp0
- }
-
- function _strtorexp(t)
- {
- #_______________________________________________
- gsub(/[\\\.\?\*\+\-\(\)\{\}\[\]\^\$\/\|]/, "\\\\&", t)
- t = split(t, _TOREXP_STRA, /[\x00-\x1F]/, _TOREXP_STRB)
- _torexp_strt0 = ""
- for (_torexp_stri0 = 1; _torexp_stri0 < t; _torexp_stri0++) {
- _torexp_strt0 = _torexp_strt0
_TOREXP_STRA[_torexp_stri0] "\\" _QASC[_TOREXP_STRB[_torexp_stri0]]
- }
- return (_torexp_strt0 _TOREXP_STRA[_torexp_stri0])
- }
-
- function _subseqoff(r, B)
- {
- patsplit(r, B, /\x84[^\x94]*\x94/)
- return gensub(/\x84[^\x94]*\x94/, "\204", "G", r)
- }
-
- function _subseqon(B, r, F, f, s, e, q, i, A)
- {
- q = split(r, A, /\x84/)
- r = ""
- f = F[""]
- for (i = 1; i < q; i++) {
- #_conl("curr r==`" r "': A[" i "]=`" A[i] "'")
- #s=s in F ? _th0(F[s],_conl("handler `" F[s] "' for `"
s "' ost=`" substr(e,3,length(e)-3) "'")) : _th0(F[""],_conl("default handler
for `" s "'"))
- s = substr(e = B[i], 2, 1)
- #_conl("`" f "'")
- s = (s in F ? F[s] : F[""])
- r = r (@f(A[i])) (@s(substr(e, 3, length(e) - 3)))
- }
- return (r (@f(A[i])))
- }
-
- function _sysinfo(D, h)
- {
-
#_____________________________________________________________________________
- # _rdreg(ARRAY,reg_path)
- # Import into ARRAY the content of the whole
registree tree with the higher point specified by reg_path.
- # ARRAY will be filled by the strings with
following format:
- #
- #
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\GnuWin32\CoreUtils\5.3.0\pck\InstallPath.STR=C:\Program
Files (x86)\GnuWin32
- # where:
- #
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\GnuWin32\CoreUtils\5.3.0\pck
<- REG KEY PATH
- #
InstallPath
<- DATA FIELD
- #
STR
<- TYPE
- #
C:\Program Files
(x86)\GnuWin32 <- VALUE
- # TYPE:
- # STR - REG_SZ (String Value)
- # W32 - REG_DWORD (DWORD (32-bit)
Value)
- # W64 - REG_QWORD (QWORD (64-bit)
Value)
- # BIN - REG_BINARY (Binary Value)
- # XSZ - REG_EXPAND_SZ (Expandable String
Value)
- # MSZ - REG_MULTI_SZ (Multi-String Value)
-
#_________________________________________________________________________________________
- # HKCR HKEY_CLASSES_ROOT
- # HKCU HKEY_CURRENT_USER
- # HKLM HKEY_LOCAL_MACHINE
- # HKU HKEY_USERS
- # HKCC HKEY_CURRENT_CONFIG
- # HKPD HKEY_PERFORMANCE_DATA
-
#___________________________________________________________________________________
-
####################################################################################
- ##############################################################
- h = "wmic /NODE: \"" h "\" OS 2>NUL"
- if (split(_cmd(h), _SYSINFOA0, /[\x0D\x0A]+/) == 3) {
- _sysinfol0 = length(h = _SYSINFOA0[2]) + 1
- _sysinfoq0 = _sysinfoq1 = split(_SYSINFOA0[1],
_SYSINFOA0, / +/, _SYSINFOB0)
- while (--_sysinfoq0 > 0) {
- D[_sysinfof0] = gensub(/^ +| +$/, "", "G",
substr(h, _sysinfol0 = _sysinfol0 - (_sysinfol1 = length(_sysinfof0 =
_SYSINFOA0[_sysinfoq0]) + length(_SYSINFOB0[_sysinfoq0])), _sysinfol1))
- }
- return (_sysinfoq1 - 1)
- }
- }
-
- function _tOBJ(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
-
#########################################################
-
#___________________________________________________________
-
#___________________________________________________________
- return t
- case "_lib_APPLY":
-
#___________________________________________________________
- return
- case "_lib_HELP":
-
#___________________________________________________________
- return
- case "_lib_NAMEVER":
-
#___________________________________________________________
- return _ln("_tOBJ 3.0")
- case "_lib_BEGIN":
-
#___________________________________________________________
- return
- case "_lib_END":
-
#___________________________________________________________
- return
- case "_lib_CLEANUP":
- return _tOBJ_CLEANUP()
- }
- }
-
- function _tOBJ_CLEANUP(p)
- {
- for (p in UIDSDEL) {
-
#_______________________________________________________________________
- ##############################################
- delete _ptr[p]
- delete _tPREV[p]
- delete _tPARENT[p]
- delete _tNEXT[p]
- delete _tFCHLD[p]
- delete _tQCHLD[p]
- delete _tLCHLD[p]
- delete _TMP0[p]
- delete _TMP1[p]
- delete _tLINK[p]
- delete _tCLASS[p]
- }
- }
-
- function _tabtospc(t, ts, xc, a, c, n, A, B)
- {
- if (! ts) {
-
#_______________________________________________________________________
- ##################################
- ts = _TAB_STEP_DEFAULT
- }
- c = split("." t, A, /\t+/, B)
- A[1] = substr(A[1], 2)
- t = ""
- for (n = 1; n <= c; n++) {
- t = t A[n] _getchrln(" ", (xc = length(B[n]) * ts +
int((a = xc + length(A[n])) / ts) * ts) - a)
- }
- return t
- }
-
- function _tapi(p, f, p0, p1, p2, p3, c)
- {
-
#___________________________________________________________________________________
-
####################################################################################
- c = p
- do {
- if (f in _[c]["API"]) {
- f = _[c]["API"][f]
- return @f(p, p0, p1, p2, p3)
- }
- c = _[c]["CLASS"]
- } while ("CLASS" in _[c])
- }
-
- function _tbframe(f, p, p0, p1)
- {
-
#_____________________________________________________________________________
- ##################################################
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tbframe_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
-
- function _tbframe_i0(f, p, p0, p1, a)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tLCHLD ? _tmbframe(f, _tLCHLD[p], p0, p1) :
@f(p, p0, p1)))
- }
-
- function _tbframex(f, p, p0, p1)
- {
-
#_______________________________________________________________________
- ###########################################
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tbframex_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
-
- function _tbframex_i0(f, p, p0, p1)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tLCHLD ? _tmbframex(f, _tLCHLD[p], p0, p1) :
@f(p, p0, p1)))
- }
-
- function _tbpass(f, p, p0, p1)
- {
-
#_____________________________________________________________________________
- ###################################################
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tbpass_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
-
- function _tbpass_i0(f, p, p0, p1, a)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tLCHLD ? _tmbpass(f, _tLCHLD[p], p0, p1) : @f(p,
p0, p1)))
- }
-
- function _tbpassx(f, p, p0, p1)
- {
-
#_____________________________________________________________________________
- ##################################################
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tbpassx_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
-
- function _tbpassx_i0(f, p, p0, p1)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tLCHLD ? _tmbpassx(f, _tLCHLD[p], p0, p1) :
@f(p, p0, p1)))
- }
-
- function _tbrochld(p, f, pp)
- {
- if (p) {
- if (p in _tFCHLD) {
-
#_____________________________________________________________________________
-
###################################################
# TEST!!!
- f = _tFCHLD[p]
- delete _tFCHLD[p]
- delete _tLCHLD[p]
- if (p in _tPARENT) {
- pp = _tPARENT[p]
- delete _tPARENT[p]
- if (p in _tPREV) {
- _tNEXT[_tPREV[f] = _tPREV[p]] =
f
- delete _tPREV[p]
- } else {
- _tFCHLD[pp] = f
- }
- for (; f in _tNEXT; f = _tNEXT[f]) {
- _tPARENT[f] = pp
- }
- _tPARENT[f] = pp
- if (p in _tNEXT) {
- _tPREV[_tNEXT[f] = _tNEXT[p]] =
f
- delete _tNEXT[p]
- } else {
- _tLCHLD[pp] = f
- }
- _tQCHLD[pp] = _tQCHLD[pp] + _tQCHLD[p]
- 1
- delete _tQCHLD[p]
- return f
- } else {
- delete _tQCHLD[p]
- if (p in _tPREV) {
- _tNEXT[_tPREV[f] = _tPREV[p]] =
f
- delete _tPREV[p]
- }
- for (; f in _tNEXT; f = _tNEXT[f]) {
- delete _tPARENT[f]
- }
- delete _tPARENT[f]
- if (p in _tNEXT) {
- _tPREV[_tNEXT[f] = _tNEXT[p]] =
f
- delete _tNEXT[p]
+ }
- return f
- }
- } else {
- if (p in _tPARENT) {
- pp = _tPARENT[p]
- delete _tPARENT[p]
- if (p in _tPREV) {
- if (p in _tNEXT) {
- _tNEXT[_tPREV[f] =
_tPREV[p]] = f = _tNEXT[p]
- delete _tNEXT[p]
- } else {
- delete
_tNEXT[_tLCHLD[pp] = _tPREV[p]]
- }
- delete _tPREV[p]
- _tQCHLD[pp]--
+ }
+ }
- return _ln(n _tLOG[p]["TEXT"])
- }
- }
-
- function _getchrln(s, w)
- {
- if (s == "") {
- return
+ }
- if (length(s) < w) {
- if (s in _GETCHRLN) {
- if (length(_getchrlnt0 = _GETCHRLN[s]) >= w) {
- return substr(_getchrlnt0, 1, w)
++ # array,ptr* - copy from array _[ptr] to array
shorcut-specific elements
++ } else {
++ if (D == 0 && D == "") {
++ return _NOP
++ } else {
++ if (_isnotfileptr(D)) {
++ # -* - no
action(return -)
++ if (isarray(S)) {
++ _addarrmask(_[D], S, _SHORTCUTWSTRUC)
++ } else {
++ if (S == 0 && S == "") {
++ # ptr,array* - copy
from array to array _[ptr] shorcut-specific elements
++ _addarrmask(_[D],
_SHORTCUTDEFAULT, _SHORTCUTWSTRUC)
+ } else {
- if (p in _tNEXT) {
- delete
_tPREV[_tFCHLD[pp] = _tNEXT[p]]
- delete _tNEXT[p]
- _tQCHLD[pp]--
++ if (_isnotfileptr(S)) {
++ # ptr*
- define shortcut-specifc elements in array _[ptr] by default values
++ _addarrmask(_[D], _[S],
_SHORTCUTWSTRUC)
+ } else {
- delete _tFCHLD[pp]
- delete _tLCHLD[pp]
- delete _tQCHLD[pp]
++ if (_rd_shortcut(_[D],
S)) {
++ return
++ }
+ }
+ }
+ }
++ # ptr,ptr2* - copy from
array _[ptr2] to array _[ptr] shorcut-specific elements
+ } else {
- _getchrlnt0 = s s
- }
- while (length(_getchrlnt0) < w) {
- _getchrlnt0 = _getchrlnt0 _getchrlnt0
++ # ptr,filepath* - define in array
_[ptr] shortcut-specific elements by reading its from shortcut file
filepath(load shortcut)
++ if (isarray(S) && _wr_shortcut(D, S)) {
++ return
+ } else {
- if (p in _tPREV) {
- if (p in _tNEXT) {
- _tNEXT[_tPREV[f] =
_tPREV[p]] = f = _tNEXT[p]
- delete _tNEXT[p]
- } else {
- delete _tNEXT[_tPREV[p]]
- }
- delete _tPREV[p]
++ if (S == 0 && S == "" &&
_wr_shortcut(D, _SHORTCUTDEFAULT)) {
++ return
+ } else {
- if (p in _tNEXT) {
- delete _tPREV[_tNEXT[p]]
- delete _tNEXT[p]
++ if (_isnotfileptr(S) &&
_wr_shortcut(D, _[S])) {
++ return
++ } else {
++ if
(_rd_shortcut(_SHRTCUTA1, S) || _wr_shortcut(D, _SHRTCUTA1)) {
++ return
++ }
+ }
+ }
+ }
- }
- }
- return p
- }
-
- function _tbrunframe(f, p, p0, p1)
- {
-
#_________________________________________________________________
- ###################################
- return _tbframe((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tbrunframex(f, p, p0, p1)
- {
-
#_________________________________________________________________
- ##################################
- return _tbframex((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tbrunpass(f, p, p0, p1)
- {
-
#_________________________________________________________________
- ####################################
- return _tbpass((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tbrunpassx(f, p, p0, p1)
- {
-
#_________________________________________________________________
- ###################################
- return _tbpassx((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tdel(p, i)
- {
- if (p in _) {
-
#_____________________________________________________________________________
-
##########################################################
- _texclude(p)
- for (i in _ptr[p]) {
- if (isarray(_ptr[p][i])) {
- _tdel_i1(_ptr[p][i])
++ # filepath,ptr* - [over]write shorcut
file filepath; shortcut parameters will be defined by shortcut-specific
elements in array _[ptr](save shortcut)
++ }
++ }
++ }
++ # filepath,filepath2* - [over]write shorcut file filepath; shortcut
parameters will be defined from shortcut file filepath2(copy shortcut)
++ return 1
++}
++
++#________________________________________________
++function _shortcut_init(A, B, q)
++{
++ _SHORTCUTERR[2] = "file not found"
++ _SHORTCUTERR[3] = "no such filepath"
++ _SHORTCUTERR["The system cannot find the file specified."] = "no such
filepath"
++ _SHORTCUTERR[5] = "file is folder"
++ _SHORTCUTERR["Access is denied."] = "file is folder"
++ _SHORTCUTERR[123] = "filepath syntax error"
++ _SHORTCUTERR["The filename, directory name, or volume label syntax is
incorrect."] = "filepath syntax error"
++ q =
"target\t\t\t/T:\t\t\t\tTargetPath=\t\t\t\t\ttarget?\t\t\t;\t\t\t_target\t\t\t\t\t\t\tTargetPathExpanded=\t\t\t\t\t\t\t;\t\t\tparameters\t\t\t/P:\t\t\t\tArguments=\t\t\t\t\tparaneters?\t\t\t;\t\t\t_parameters\t\t\t\t\t\t\tArgumentsExpanded=\t\t\t\t\t\t\t;\t\t\tstartdir\t\t\t/W:\t\t\t\tWorkingDirectory=\t\t\t\tstartdir?\t\t\t;\t\t\t_startdir\t\t\t\t\t\t\tWorkingDirectoryExpanded=\t\t\t\t\t\t;\t\t\trunstyle\t\t\t/R:\t\t\t\tRunStyle=\t\t\t\t\t1\t\t\t\t;\t\t\ticon,index\t\t\t/I:\t\t\t\tIconLocation=\t\t\t\ticon,index?\t\t\t;\t\t\txicon,index\t\t\t\t\t\t\tIconLocationExpanded=\t\t\t\t\t\t\t;\t\t\tshortcut
key\t\t/H:\t\t\t\tHotKey=\t\t\t\t\t0\t\t\t\t;\t\t\tdescription\t\t\t/D:\t\t\t\tDescription=\t\t\t\t_env4:
default shortcut\t"
++ split(q, _SHRTCUTA0, /[ \t]*;[ \t]*/)
++ for (q in _SHRTCUTA0) {
++ if (match(_SHRTCUTA0[q],
/^([^\t]+)\t+([^\t]+)(\t+([^\t]+)(\t+([^\t]+))?)?/, B)) {
++ if (B[3] == "") {
++ _SHORTCUTRSTRUC[B[2]] = B[1]
++ } else {
++ if (B[5] == "") {
++ _SHORTCUTWSTRUC[_SHORTCUTRSTRUC[B[4]] =
B[1]] = B[2]
++ delete _SHORTCUTDEFAULT[B[1]]
+ } else {
- if (i = _ptr[p][i]) {
- _tdel(i)
- }
++ _SHORTCUTWSTRUC[_SHORTCUTRSTRUC[B[4]] =
B[1]] = B[2]
++ _SHORTCUTDEFAULT[B[1]] = B[6]
+ }
}
- if (p in _tFCHLD) {
- i = _tFCHLD[p]
- do {
- i = ((i in _tNEXT ? _tNEXT[i] : ""))
_tdel_i0(i)
- } while (i)
- }
- delete _[p]
- _UIDSDEL[p]
- _GETCHRLN[s] = _getchrlnt0
- return substr(_getchrlnt0, 1, w)
+ } else {
- return substr(s, 1, w)
++ _fatal("_shortcut.init: _shortcut_struc: syntax error:
`" _SHRTCUTA0[q] "'")
}
}
++ _SHRTCUTA1[""]
++ delete _SHRTCUTA1[""]
++ _shortcut_fpath = "\\\\localhost\\eGAWK\\LIB\\_shortcut\\_shortcut.exe"
++}
- function _tdel_i0(p, i)
- {
- for (i in _ptr[p]) {
- #_____________________________________________________
- if (isarray(_ptr[p][i])) {
- _tdel_i1(_ptr[p][i])
- } else {
- if (i = _ptr[p][i]) {
- _tdel(i)
- }
- function _getdate()
- {
- return strftime("%F")
++#_____________________________________________________
++function _shortcut_nerr(t, s, A)
++{
++ if (match(t, /\x0ASystem error
(-?[0-9]+)[^\x0D\x0A]*[\x0D\x0A]+([^\x0D\x0A]+)/, A)) {
++ ERRNO = ((A[1] in _SHORTCUTERR ? _SHORTCUTERR[A[1]] : (A[2] in
_SHORTCUTERR ? _SHORTCUTERR[A[2]] : tolower(gensub(/^(The
)?(((.*)\.$)|(.*[^\.]$))/, "\\4\\5", "G", A[2])) "(" A[1] ")"))) ((s ? ": `" s
"'" : ""))
++ } else {
++ return 1
+ }
-
- function _getfilepath(t, f, al, b, A)
- {
- ERRNO = ""
- if (match(t, /^[ \t]*(("([^"]*)"[ \t]*)|([`']([^']*)'[
\t]*)|(([^ \t]+)[ \t]*))/, A)) {
- al = RLENGTH
- f = A[3] A[5] A[7]
- _conl("_getfilepath(" f ") (" al ")")
- if (b = _filepath(f)) {
- if (length(f) <= FLENGTH) {
- FLENGTH = al
- return b
- }
- ERRNO = "Filepath `" f "' error"
++}
++
++function _split_regpath()
++{
++ _rpp(" / / / / ")
++ _rpp(" / / / / huj ")
++ _rpp(" / / / / huj / ")
++ _rpp(" / / / / huj / pizda.TSR ")
++ _rpp(" / / / / hklm ")
++ _rpp(" / / / / hklm / ")
++ _rpp(" / / / / hklm / huj ")
++ _rpp(" / / / / hklm / huj / ")
++ _rpp(" / / / / hklm / huj / \tpizda.TSR ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _rpp(" / / / / hklm / software / altiris / fi le . ex t ")
++ _rpp(" / / . / / hkcr / software / altiris / fi le . ex t ")
++ _rpp(" / / ? / / hKcU / software / altiris / fi le . ex t ")
++ _rpp(" / / lOcAlHoSt / / hKu / software / altiris / fi le . ex t ")
++ _rpp(" / / ho st / / hKcc / software / altiris / fi le . ex t ")
++ _rpp(" / / ho st / / hKPd / software / altiris / fi le . ex t ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++}
++
++function _splitpath_test()
++{
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _fpp(" ")
++ _fpp(" fi le . ex t ")
++ _fpp(" di r0 / / ")
++ _fpp(" di r0 / / fi le . ex t ")
++ _fpp(" / ")
++ _fpp(" / fi le . ex t ")
++ _fpp(" / di r0 / / ")
++ _fpp(" / di r0 / / fi le . ex t ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _fpp(" c : ")
++ _fpp(" c : fi le . ex t ")
++ _fpp(" c : di r0 / / ")
++ _fpp(" c : di r0 / / fi le . ex t ")
++ _fpp(" c : / / ")
++ _fpp(" c : / / fi le . ex t ")
++ _fpp(" c : / / di r0 / / ")
++ _fpp(" c : / / di r0 / / fi le . ex t ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _fpp(" / / ")
++ _fpp(" / / ho st . hs t ")
++ _fpp(" / / ho st / / ")
++ _fpp(" / / ho st / / fi le . ex t ")
++ _fpp(" / / ho st / / di r0 / / ")
++ _fpp(" / / ho st / / di r0 / / fi le . ex t ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _fpp(" / / ho st / / c : ")
++ _fpp(" / / ho st / / c : fi le . ex t ")
++ _fpp(" / / ho st / / c : di r0 / / ")
++ _fpp(" / / ho st / / c : di r0 / / fi le . ex t ")
++ _fpp(" / / ho st / / c : / / ")
++ _fpp(" / / ho st / / c : / / fi le . ex t ")
++ _fpp(" / / ho st / / c : / / di r0 / / ")
++ _fpp(" / / ho st / / c : / / di r0 / / fi le . ex t ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _fpp(" http : / / / ")
++ _fpp(" http : / / / si te . ex t ")
++ _fpp(" http : / / / si te / / ")
++ _fpp(" http : / / / si te / / fi le . ex t ")
++ _fpp(" http : / / / si te / / di r0 / / ")
++ _fpp(" http : / / / si te / / di r0 / / fi le . ex t ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _fpp(" ftp : / / / : po rt ")
++ _fpp(" ftp : / / / si te . ex t : po rt ")
++ _fpp(" ftp : / / / si te : po rt / / ")
++ _fpp(" ftp : / / / si te : po rt / / fi le . ex t ")
++ _fpp(" ftp : / / / si te : po rt / / di r0 / / ")
++ _fpp(" ftp : / / / si te : po rt / / di r0 / / fi le . ex t ")
++ _conl()
++ _conl("## //.
######################################################################################")
++ _conl()
++ _fpp(" / / . ")
++ _fpp(" / / . / / ")
++ _fpp(" / / . / / com 56 ")
++ _fpp(" / / . / / com 56 / / ")
++ _fpp(" / / . / / c : ")
++ _fpp(" / / . / / c : / / ")
++ _fpp(" / / . / / c : com 56 ")
++ _fpp(" / / . / / c : com 56 / / ")
++ _fpp(" / / . / / c : / / com 56 ")
++ _fpp(" / / . / / c : / / com 56 / / ")
++ _conl()
++ _conl("## //?
######################################################################################")
++ _conl()
++ _fpp(" / / ? ")
++ _fpp(" / / ? / / ")
++ _fpp(" / / ? / / com 56 ")
++ _fpp(" / / ? / / com 56 / / ")
++ _fpp(" / / ? / / c : ")
++ _fpp(" / / ? / / c : / / ")
++ _fpp(" / / ? / / c : com 56 ")
++ _fpp(" / / ? / / c : com 56 / / ")
++ _fpp(" / / ? / / c : / / com 56 ")
++ _fpp(" / / ? / / c : / / com 56 / / ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _fpp(" / / / ")
++ _fpp(" / / / . hs t ")
++ _fpp(" / / / / fi le . ex t ")
++ _fpp(" / / / / di r0 / / ")
++ _fpp(" / / / / di r0 / / di r1 / fi le . ex t ")
++ _fpp(" / / / / c : ")
++ _fpp(" / / / / c : fi le . ex t ")
++ _fpp(" / / / / c : di r0 / / ")
++ _fpp(" / / / / c : di r0 / / fi le . ex t ")
++ _fpp(" / / / / c : / / ")
++ _fpp(" / / / / c : / / fi le . ex t ")
++ _fpp(" / / / / c : / / di r0 / / ")
++ _fpp(" / / / / c : / / di r0 / / fi le . ex t ")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ return
++}
++
++#_______________________________________________________________________
++function _splitstr(A, t, r)
++{
++ ########################################### 1 #
++ if (_istr(t)) {
++ if (_splitstr_i0(A, t) > 0) {
++ return _splitstrp0
++ }
++ if (_istr(r)) {
++ return _splitstr_i0(A, r)
++ }
++ } else {
++ if (it == "A") {
++ if (length(t) > 0) {
++ _movarr(A, t)
++ return (0 - length(A))
}
}
- if (p in _tFCHLD) {
- i = _tFCHLD[p]
- do {
- i = ((i in _tNEXT ? _tNEXT[i] : "")) _tdel_i0(i)
- } while (i)
- FLENGTH = 0
++ _istr(r)
+ }
-
- function _getfilever(f)
- {
- split(_cmd(_fileverpath " \"" f "\""), _GETFILEVERA0, /[ \t]+/)
- if (_GETFILEVERA0[5]) {
- return _GETFILEVERA0[5]
++ if (it == "A") {
++ if (length(r) > 0) {
++ _movarr(A, r)
++ return (0 - length(A))
}
- delete _[p]
- _UIDSDEL[p]
}
++}
- function _tdel_i1(A, i)
- {
- for (i in A) {
- #_____________________________________________________
- if (isarray(A[i])) {
- _tdel_i1(A[i])
- } else {
- if (i = A[i]) {
- _tdel(i)
- }
- }
- function _getime()
- {
- return strftime("%H:%M:%S")
++#_____________________________________________________
++function _splitstr_i0(A, t, C)
++{
++ if (2 > (_splitstrq0 = patsplit(t, _SPLITSTRA0,
/([^,\xB4]*\xB4.)*[^,\xB4]*/))) {
++ _splitstrq0 = split(gensub(/\xB4(.)/, "\\1", "G", t),
_SPLITSTRA0, "")
+ }
-
- function _getmpdir(f, dd)
- {
- if (! dd || ! (dd = _filerd(dd))) {
- dd = _FILEIO_TMPRD
- }
- if (f = (f ? _filerd(f, dd) : _filerd("_" ++_FILEIO_TMPCNTR
"\\", dd))) {
- _FILEIO_RDTMP[toupper(f)]
++ delete A
++ _splitstri0 = _splitstrp0 = 0
++ while (_splitstri0++ < _splitstrq0) {
++ if ((t = gensub(/\xB4(.)/, "\\1", "G",
_SPLITSTRA0[_splitstri0])) in C || t == "") {
++ continue
}
- return f
++ C[A[++_splitstrp0] = t]
}
++ return _splitstrp0
++}
- function _tdelete(p, v)
- {
-
#_____________________________________________________________________________
- #######################################################
# REMAKE EXCLUDE
- if (p) {
- _wLCHLD(_tDELPTR, p)
- }
- return v
- function _getmpfile(f, dd)
- {
- if (! dd || ! (dd = _filerd(dd))) {
- dd = _FILEIO_TMPRD
- }
- if (f = _filerdne((_filene(f) ? f : f "_" ++_FILEIO_TMPCNTR),
dd)) {
- _FILEIO_RDNETMP[toupper(f)]
- }
- return f
++#_______________________________________________
++function _strtorexp(t)
++{
++ gsub(/[\\\.\?\*\+\-\(\)\{\}\[\]\^\$\/\|]/, "\\\\&", t)
++ t = split(t, _TOREXP_STRA, /[\x00-\x1F]/, _TOREXP_STRB)
++ _torexp_strt0 = ""
++ for (_torexp_stri0 = 1; _torexp_stri0 < t; _torexp_stri0++) {
++ _torexp_strt0 = _torexp_strt0 _TOREXP_STRA[_torexp_stri0] "\\"
_QASC[_TOREXP_STRB[_torexp_stri0]]
}
++ return (_torexp_strt0 _TOREXP_STRA[_torexp_stri0])
++}
- function _tdelitem(p)
- {
- if (p) {
- if ("HOST" in _PTR[p] && "ITEMNAME" in _[p]) {
-
#_________________________________________________________________
- #############################################
- return
_wLCHLD(_PTR[_PTR[p]["HOST"]]["ITEM"][_[p]["ITEMNAME"]], p)
- }
- _tdelete(p)
- return p
- }
- function _getperf(o, t, a)
- {
- (o == "" ? ++_getperf_opcurr : _getperf_opcurr = o)
- if ((a = _getsecond()) != _getperf_last) {
- _getperf_opsec = (_getperf_opcurr - _getperf_opstart) /
((_getperf_last = a) - _getperf_start)
- return @_getperf_fn(o, t, a)
- }
- return 1
- }
++function _subseqoff(r, B)
++{
++ patsplit(r, B, /\x84[^\x94]*\x94/)
++ return gensub(/\x84[^\x94]*\x94/, "\204", "G", r)
++}
+
- function _getperf_(o, t, a)
- {
- if (a >= _getperf_end) {
- return 0
- }
- if (_getperf_opsecp != _getperf_opsec) {
- _constat(((_constatstr == _getperf_stat ?
_getperf_statstr : _getperf_statstr = _constatstr)) t " [TIME=" (a -
_getperf_start) " sec(" (_getperf_opsecp = _getperf_opsec) " ops/sec)]")
- _getperf_stat = _constatstr
- }
- return 1
++function _subseqon(B, r, F, f, s, e, q, i, A)
++{
++ q = split(r, A, /\x84/)
++ r = ""
++ f = F[""]
++ for (i = 1; i < q; i++) {
++ s = substr(e = B[i], 2, 1)
++ #_conl("curr r==`" r "': A[" i "]=`" A[i] "'")
++ #s=s in F ? _th0(F[s],_conl("handler `" F[s] "' for `" s "'
ost=`" substr(e,3,length(e)-3) "'")) : _th0(F[""],_conl("default handler for `"
s "'"))
++ s = (s in F ? F[s] : F[""])
++ #_conl("`" f "'")
++ r = r (@f(A[i])) (@s(substr(e, 3, length(e) - 3)))
}
++ return (r (@f(A[i])))
++}
- function _tend(a, b)
- {
-
#_______________________________________________________________________
- #####################################################
- if (b == "") {
- return (_t_ENDF[_t_ENDF[0]] = a)
- } else {
- return (_t_ENDF[_t_ENDF[0] + a] = b)
- function _getperf_noe(o, t, a)
- {
- if (_getperf_opsecp != _getperf_opsec) {
- _constat(((_constatstr == _getperf_stat ?
_getperf_statstr : _getperf_statstr = _constatstr)) t " [TIME=" (a -
_getperf_start) " sec(" (_getperf_opsecp = _getperf_opsec) " ops/sec)]")
- _getperf_stat = _constatstr
- }
- return 1
- }
++#_____________________________________________________________________________
++# _rdreg(ARRAY,reg_path)
++# Import into ARRAY the content of the whole registree tree with
the higher point specified by reg_path.
++# ARRAY will be filled by the strings with following format:
++#
++#
HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\GnuWin32\CoreUtils\5.3.0\pck\InstallPath.STR=C:\Program
Files (x86)\GnuWin32
++# where:
++# HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\GnuWin32\CoreUtils\5.3.0\pck
<- REG KEY PATH
++#
InstallPath
<- DATA FIELD
++#
STR
<- TYPE
++#
C:\Program Files (x86)\GnuWin32 <- VALUE
++# TYPE:
++# STR - REG_SZ (String Value)
++# W32 - REG_DWORD (DWORD (32-bit) Value)
++# W64 - REG_QWORD (QWORD (64-bit) Value)
++# BIN - REG_BINARY (Binary Value)
++# XSZ - REG_EXPAND_SZ (Expandable String Value)
++# MSZ - REG_MULTI_SZ (Multi-String Value)
++#_________________________________________________________________________________________
+
- function _getperf_noenot(o, t, a)
- {
- return 1
- }
+
- function _getperf_not(o, t, a)
- {
- if (a < _getperf_end) {
- return 1
- }
- }
+
- function _getreg_i1(D, r, R, a, i, il, ir, rc, B)
- {
- a = IGNORECASE
- IGNORECASE = 1
- r = "^" _torexp(r)
- rc = 0
- zs = ""
- for (i in R) {
- if (match(i, r, B)) {
- il = B[_torexp_pfxcntr]
- ir = gensub(/....$/, "", 1, substr(i, 1 +
B[_torexp_pfxcntr, "length"]))
- if (! gsub(/^\\/, "", ir) && match(il,
/[^\\]+$/)) {
- ir = substr(il, RSTART) ir
- }
- D[ir] = R[i]
- rc++
- }
- }
- IGNORECASE = a
- if (rc > 0) {
- return rc
- }
- }
+
- function _getsecond()
- {
- return systime()
- }
++# HKCR HKEY_CLASSES_ROOT
++# HKCU HKEY_CURRENT_USER
++# HKLM HKEY_LOCAL_MACHINE
++# HKU HKEY_USERS
++# HKCC HKEY_CURRENT_CONFIG
++# HKPD HKEY_PERFORMANCE_DATA
+
- function _getsecondsync(a, c, b, c2)
- {
- a = systime()
- while (a == systime()) {
- ++c
- }
- return (a + 1)
- }
+
- function _getuid(p)
- {
- if (p in _UIDOBL) {
- for (_tptr in _UIDOBLV[_getuida0 = _UIDOBL[p]]) {
- delete _UIDOBLV[_getuida0][_tptr]
- _CLASSPTR[_tptr] = p
- return _tptr
- }
- }
- _CLASSPTR[_tptr = _UIDPFX[p] _getuid_i0(_UIDCNT[p],
_UIDCHRL[_tptr = _UIDCHR[p]], _UIDCHRH[_tptr]) _UIDSFX[p]] = p
- return _tptr
- }
+
- function _getuid_i0(p, UL, UH)
- {
- if ("" == (_tptr = UL[_UIDCNTL[p]])) {
- for (_tptr in UH) {
- delete UH[_tptr]
- return ((_UIDCNTH[p] = _tptr) (_UIDCNTL[p] =
UL[""]))
- }
- _fatal("out of UID")
- }
- return (_UIDCNTH[p] (_UIDCNTL[p] = _tptr))
- }
+
- function _handle8494(t)
- {
- return gensub(/(.)/, ".\\1", "G", t)
- }
+
- function _hexnum(n, l)
- {
- if (l + 0 < 1) {
- l = 2
- }
- return sprintf("%." ((l + 0 < 1 ? 2 : l)) "X", n)
- }
+
- function _igetperf(t, s, o)
- {
- if (t == 0 && t == "" && s == 0 && s == "" && o == 0 && o ==
"") {
- if (_getperf_fn !~ /not$/ && _constatstr ==
_getperf_stat) {
- _constat(_getperf_statstr)
- }
- _getperf_fn = "_nop"
- return ("[TIME=" (_getperf_last - _getperf_start) "
sec(" _getperf_opsec " ops/sec)]")
- }
- _conl("initiate _getperf")
- _getperf_opstart = _getperf_opcurr = o + 0
- _getperf_opsec = _getperf_opsecp = _getperf_stat =
_getperf_statstr = ""
- _getperf_end = t + (_getperf_start = _getperf_last =
_getsecondsync())
- _getperf_fn = ((t + 0 > 0 ? "_getperf_" : "_getperf_noe")) ((s
? "" : "not"))
- return _getperf_start
- }
-
- function _import_data(t, p, p2, a)
- {
- if (match(t, /^_DATA: /)) {
- _tDATA[a = _wLCHLD(p, _N())][""]
- delete _tDATA[a][""]
- _Zimparr(_tDATA[a], substr(t, 8))
- _conl("DATA: `" _tDATA[a]["ID"] "':`" _tDATA[a]["DATA"]
"'")
- return ""
- }
- return t
- }
+
- function _info(t, d, A)
- {
- if (_ERRLOG_IF) {
- A["TYPE"] = "INFO"
- A["TEXT"] = t
- _log(A, d)
- }
- }
+
- function _ini(p, cs, dptr, pfx, sfx, hstr, lstr)
- {
- return _inituid(p, cs, dptr, pfx, sfx, hstr, lstr, A)
- }
+
- function _initfilever()
- {
- _fileverpath = "\\\\CPU\\eGAWK\\LIB\\_filever\\_filever.exe"
- }
+
- function _initrdreg()
- {
- _RDREGTYPE["SZ"] = "STR"
- _RDREGTYPE["DWORD"] = "W32"
- _RDREGTYPE["QWORD"] = "W64"
- _RDREGTYPE["BINARY"] = "BIN"
- _RDREGTYPE["EXPAND_SZ"] = "XSZ"
- _RDREGTYPE["MULTI_SZ"] = "MSZ"
- _RDrdregfld = _rdregkey = 0
- }
+
- function _initregpath0()
- {
- _REGPATH0REGDIR[""] = "HKEY_LOCAL_MACHINE"
- _REGPATH0REGDIR["HKLM"] = "HKEY_LOCAL_MACHINE"
- _REGPATH0REGDIR["HKEY_LOCAL_MACHINE"] = "HKEY_LOCAL_MACHINE"
- _REGPATH0REGDIR["HKCR"] = "HKEY_CLASSES_ROOT"
- _REGPATH0REGDIR["HKEY_CLASSES_ROOT"] = "HKEY_CLASSES_ROOT"
- _REGPATH0REGDIR["HKCU"] = "HKEY_CURRENT_USER"
- _REGPATH0REGDIR["HKEY_CURRENT_USER"] = "HKEY_CURRENT_USER"
- _REGPATH0REGDIR["HKU"] = "HKEY_USERS"
- _REGPATH0REGDIR["HKEY_USERS"] = "HKEY_USERS"
- _REGPATH0REGDIR["HKCC"] = "HKEY_CURRENT_CONFIG"
- _REGPATH0REGDIR["HKEY_CURRENT_CONFIG"] = "HKEY_CURRENT_CONFIG"
- _REGPATH0REGDIR["HKPD"] = "HKEY_PERFORMANCE_DATA"
- _REGPATH0REGDIR["HKEY_PERFORMANCE_DATA"] =
"HKEY_PERFORMANCE_DATA"
- }
+
- function _initshare()
- {
- _sharextool = "\\\\CPU\\eGAWK\\LIB\\_share\\_share.exe"
- }
+
- function _initspecialuid()
- {
- _NOINDEX = _getuid()
- _LEN = _getuid()
- _PTR = _getuid()
- _NAME = _getuid()
- _TYPE = _getuid()
- _FORMAT = _getuid()
- }
+
- function _initsys()
- {
- }
+
- function _inituid(p, cs, dptr, pfx, sfx, hstr, lstr, A)
- {
- if (cs == 0 && cs == "") {
- cs = p
- p = _getuid()
- }
- _conl()
- _conl()
- _conl(cs)
- if (match(cs, /^(([^:]*):)?(([^'\xB4]*\xB4.)*[^'\xB4]*)[']/,
A)) {
- pfx = A[3]
- dptr = A[2]
- }
- if (match(cs = substr(cs, 1 + RLENGTH),
/'(([^'\xB4]*\xB4.)*[^'\xB4]*)$/, A)) {
- sfx = A[1]
- cs = substr(cs, 1, RSTART - 1)
- }
- if (match(cs, /^(([`\^])(.*))/, A)) {
- if (A[2] == "`") {
- hstr = A[3] "~"
- lstr = ""
- } else {
- lstr = A[3] "+"
- hstr = ""
- }
- } else {
- if (match(cs,
/^(([^'\xB4\|]*\xB4.)*[^'\xB4\|]*)(\|(.*))?/, A)) {
- hstr = A[1]
- lstr = A[4]
- } else {
- ERRNO = "_inituid(): bad parameters"
- return
- }
- }
- _conl(dptr ":" pfx "'" hstr "|" lstr "'" sfx)
- return _cfguid(p, dptr, pfx, sfx, hstr, lstr)
- }
-
- function _inituidefault(h, l, H, L)
- {
- _classys = ""
- delete _UIDOBLV[_UIDOBLV[_UIDOBL[_classys] = _classys][""] =
_classys][""]
- _UIDPFX[_classys]
- _UIDSFX[_classys]
- _UIDCNT[_classys] = _UIDCHR[_classys] = _CLASSPTR[_classys] =
_classys
- h = "AB"
- l = h "01"
- _splitstr(H, h)
- _splitstr(L, l)
- delete _UIDCHRH[_UIDCHRH[_classys][""] = _classys][""]
- delete _UIDCHRL[_UIDCHRL[_classys][""] = _classys][""]
- _UIDCNTH[_classys]
- _cfguidh(_classys, H, L)
- _UIDCNTL[_classys] = _cfguidl(_classys, L, L)
- _CLASSFN[_classys]["del"] = "_tobjDEL"
- _CLASSFN[_classys]["new"] = "_tobjNEW"
- _drawuid(_classys)
- _initspecialuid()
- }
-
- function _ins(S, sf, D, df)
- {
- if (sf in S) {
- if (isarray(S[sf])) {
- if (df in D) {
- if (isarray(D[df])) {
- return _extarr(D[df], S[sf])
- }
- delete D[df]
- }
- D[df][""]
- delete D[df][""]
- return _extarr(D[df], S[sf])
- } else {
- if (isarray(D[df])) {
- delete D[df]
- }
- D[df] = S[sf] D[df]
- }
- }
- }
+
- function _insf(A, f)
- {
- A["F"][""] = A["B"][A["F"][f] = A["F"][""]] = f
- }
+
- function _insframe(A, f)
- {
- A[f] = A[""]
- A[""] = f
- }
+
- function _inspass(A, f)
- {
- A[f] = A[""]
- A[""] = f
- }
+
- function _isptr(p)
- {
- if (isarray(p)) {
- is = _NOP
- it = "A"
- return 0
- }
- is = p
- if (p == 0 && p == "") {
- it = "-"
- return 0
- }
- if (p in _CLASSPTR) {
- return (it = "P")
- }
- it = "S"
- return 0
- }
+
- function _istr(p)
- {
- if (isarray(p)) {
- is = _NOP
- it = "A"
- return 0
- }
- is = p
- if (p == 0 && p == "") {
- it = "-"
- return 0
- }
- return (it = (p == "" ? "s" : "S"))
- }
+
- function _lengthsort(i1, v1, i2, v2)
- {
- return ((length(i1) < length(i2) ? -1 : (length(i1) >
length(i2) ? 1 : (i1 < i2 ? -1 : 1))))
- }
+
- function _lib_APPLY()
- {
- return _ffaccr(_LIBAPI, "_lib_APPLY")
- }
+
- function _lib_BEGIN(A)
- {
- return _ffaccr(_LIBAPI, "_lib_BEGIN", "", A)
- }
+
- function _lib_CMDLN(t)
- {
- return _pass(_LIBAPI["F"], "_lib_CMDLN", t)
- }
+
- function _lib_END(A)
- {
- return _ffaccr(_LIBAPI, "_lib_END", "", A)
- }
+
- function _lib_HELP()
- {
- return _fbaccr(_LIBAPI, "_lib_HELP")
- }
+
- function _lib_NAMEVER()
- {
- return _fbaccr(_LIBAPI, "_lib_NAMEVER")
- }
+
- function _ln(t)
- {
- return ((t ~ /\x0A$/ ? t : t _CHR["EOL"]))
- }
+
- function _log(A, p, a, B)
- {
- if (isarray(A)) {
- A["TIME"] = _getime()
- A["DATE"] = _getdate()
- if (p) {
- _tLOG[p = _wLCHLD(p, _N())][""]
- delete _tLOG[p][""]
- _movarr(_tLOG[p], A)
- return p
- }
- _expout("_ERRLOG: " _Zexparr(A) "\n")
- } else {
- B["TEXT"] = A
- B["TYPE"] = ""
- return _log(B, p)
- }
- }
+
- function _lspctab(t, ts, l, l1, l2, A)
- {
- while (match(t, /^(\t*)( *)((\t*)(.*))$/, A)) {
- if (A[1, "length"] >= l) {
- return substr(t, l + 1)
- }
- if (A[2]) {
- if ((l1 = int(A[2, "length"] / ts)) >= (l2 = l
- A[1, "length"])) {
- return (substr(A[2], l2 * ts + 1) A[3])
- }
- if (! A[4]) {
- return A[5]
- }
- t = A[1] _getchrln("\t", l1) A[3]
- } else {
- return t
- }
- }
- }
+
- function _mac_init()
- {
- _MACPFX["\204"] = "_macpfx84"
- _MACPFX[""] = "_mpupfxsubret"
- _MACPFX84SFX["\204"] = "_macpfx84"
- _MACPFX84SFX["\224"] = "_macsfx94"
- _MACPFX84SFX[""] = "_mpusfxsubret"
- _VLDMAXSTRING = 1e+06
- }
+
- function _macpfx84(F, D, C, p1, p2, p3)
- {
- return _mpusub(_MACPFX84SFX, D, C, D[_mpuptr++], p1, p2, p3)
- }
+
- function _macsfx94(F, D, C, p1, p2, p3)
- {
- return _mpuretsub(D, _handle8494(_mpuacc))
- }
+
- function _movarr(D, S)
- {
- delete D
- D[""]
- delete D[""]
- _addarr(D, S)
- }
+
- function _mpu(t, F, p1, p2, p3, D, C)
- {
- if (patsplit(t, C, /[\x84\x93\x94]/, D) > 0) {
- _conline("CODE")
- _conl()
- _conl(_dumparr(C))
- _conline("DATA")
- _conl()
- _conl(_dumparr(D))
- _mpuptr = 0
- _mpucc0 = ""
- _mpusub(F, D, C, D[_mpuptr++], p1, p2, p3)
- return _mpuacc
- }
- return t
- }
+
- function _mpudefaulthnd(F, D, C, p1, p2, p3)
- {
- _mpuretsub(D, _mpucc0)
- }
+
- function _mpupfxsubret(F, D, C, p1, p2, p3)
- {
- return 1
- }
+
- function _mpuretsub(D, t)
- {
- _mpuacc = D[_mpuptr++]
- _accmpu(D, t)
- return 1
- }
+
- function _mpusfxsubret(F, D, C, p1, p2, p3)
- {
- return -1
- }
+
- function _mpusub(F, D, C, d, p1, p2, p3, q)
- {
- q = D[_ARRLEN]
- if (_VLDMAXSTRING < length(d)) {
- D[--D[_ARRLEN]] = d
- _mpuacc = ""
- } else {
- _mpuacc = d
- }
- d = _mpucc0
- _conl("_mpusub enter: in `" _mpuacc "' / _mpuptr=" _mpuptr "'")
- do {
- if ((_mpucc0 = C[_mpuptr]) in F) {
- if (isarray(F[_mpucc0])) {
- _mpufn0 = F[_mpucc0]
- }
- _conl("FN: `" _mpucc0 "' > CALL: `" _mpufn0 "'
: _mpuacc=" _mpuacc "'")
- } else {
- _mpufn0 = "_mpudefaulthnd"
- }
- } while (! _accmpu(D, _mpuacc, @_mpufn0(F, D, C, p1, p2, p3)))
- if (_mpufn0 == -1) {
- _conl("WARNING: unclosed expression: `" d _mpuacc "'")
- _mpuacc = d _mpuacc
- }
- _retarrm(D, q, "", (_mpufn0 == -1 ? _th0(d,
_mpusubwrng("WARNING: unclosed expression", d _mpuacc)) : ""))
- _conl("mpusub exit: _mpuacc: `" _mpuacc "'")
- }
+
- function _n(F, v, p)
- {
- for (p in _UIDSDEL) {
- delete _UIDSDEL[p]
- delete _ptr[p]
- delete _tPREV[p]
- delete _tPARENT[p]
- delete _tNEXT[p]
- delete _tFCHLD[p]
- delete _tQCHLD[p]
- delete _tLCHLD[p]
- delete _TMP0[p]
- delete _TMP1[p]
- delete _tLINK[p]
- delete _tCLASS[p]
- return _nN_i0(p, F, v)
- }
- for (p in _UIDS) {
- delete _UIDS[p]
- return _nN_i0(p, F, v)
- }
- return _nN_i0(_tgenuid(), F, v)
- }
-
- function _nN_i0(p, F, v)
- {
- _[p][""]
- delete _[p][""]
- _ptr[p][""]
- delete _ptr[p][""]
- _TMP0[p][_ARRLEN] = _TMP1[p][_ARRLEN] = 0
- if (isarray(F)) {
- delete F[p]
- if (isarray(v)) {
- F[p][""]
- delete F[p][""]
- _copyarr(F[p], v)
- } else {
- if (! (v == 0 && v == "")) {
- F[p] = v
- }
- }
- } else {
- if (! (F == 0 && F == "")) {
- if (isarray(v)) {
- _[p][F][""]
- delete _[p][F][""]
- _copyarr(_[p][F], v)
- } else {
- if (v == 0 && v == "") {
- _mpu(F, p)
- } else {
- _[p][F] = v
- }
- }
- }
- }
- return p
- }
+
- function _newclrdir(f)
- {
- if ((f = _filerd(f)) == "") {
- return
- }
- _cmd("rd " f " /S /Q 2>NUL")
- _cmd("md " f " 2>NUL")
- _WFILEROOTDIR[f]
- return f
- }
+
- function _newdir(f)
- {
- if ((f = _filerd(f)) == "") {
- return
- }
- if (! (f in _WFILEROOTDIR)) {
- _cmd("md " f " 2>NUL")
- _WFILEROOTDIR[f]
- }
- return f
- }
+
- function _nop(p0, p1, p2, p3)
- {
- }
++#___________________________________________________________________________________
++####################################################################################
+
- function _nretarr(A, i, v, r, q)
- {
- if ((i = (i == "" ? 1 : i + 0)) <= (q = A[_ARRLEN])) {
- if (i <= (r = q - 16)) {
- _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
- while (i < r) {
- _ARRSTR = _ARRSTR A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i]
- }
- _ARRSTR = _ARRSTR A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] v _retarr_i0(A, q, i)
- return
- }
- _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] v
_retarr_i0(A, q, i)
- return
- }
- _ARRSTR = v
- return
- }
+
- function _nretarrd(A, i, v, r, q)
- {
- if ((i = (i == "" ? 1 : i + 0)) <= (q = A[_ARRLEN])) {
- if (i <= (r = q - 16)) {
- _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
- while (i < r) {
- _ARRSTR = _ARRSTR A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i]
- }
- _ARRSTR = _ARRSTR A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] v _retarr_i0(A, q, i)
- } else {
- _ARRSTR = A[i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] v
_retarr_i0(A, q, i)
- }
- } else {
- _ARRSTR = v
- }
- delete A
- A[""]
- delete A[""]
- }
+
- function _out(t, a, b)
- {
- a = BINMODE
- b = ORS
- BINMODE = "rw"
- ORS = ""
- print(t) > _SYS_STDOUT
- fflush(_SYS_STDOUT)
- BINMODE = a
- ORS = b
- return t
- }
+
- function _outnl(t)
- {
- return _out(t ((t ~ /\x0A$/ ? "" : _CHR["EOL"])))
- }
+
- function _p1(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s1, p1, p2,
p3, p4, p5, p6, p7)
- }
+
- function _p2(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s2, p1, p2,
p3, p4, p5, p6, p7)
- }
+
- function _p3(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s3, p1, p2,
p3, p4, p5, p6, p7)
- }
+
- function _p4(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s4, p1, p2,
p3, p4, p5, p6, p7)
- }
+
- function _p5(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s5, p1, p2,
p3, p4, p5, p6, p7)
- }
+
- function _p6(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s6, p1, p2,
p3, p4, p5, p6, p7)
- }
+
- function _p7(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s7, p1, p2,
p3, p4, p5, p6, p7)
- }
+
- function _p8(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8, s8, p1, p2,
p3, p4, p5, p6, p7)
- }
+
- function _pass(A, f, t, p2, i, a)
- {
- a = _endpass_v0
- _endpass_v0 = ""
- i = 1
- while (t && i) {
- i = ""
- while ((i = A[i]) && t == (t = @i(f, t, p2))) {
- }
- }
- if (i && _endpass_v0) {
- A["!"] = 1
- t = _endpass_v0
- } else {
- delete A["!"]
- }
- _endpass_v0 = a
- return t
- }
+
- function _patharr0(D, q, i, h, A, B)
- {
- delete D
- if (0 < (q = split(gensub(/\\/, "/", "G", gensub(/ *([:$\\\/])
*/, "\\1", "G", gensub(/(^[ \t]+)|([ \t]+$)/, "", "G", q))), A, /\/+/, B))) {
- if (2 > (h = length(B[1]))) {
- D["type"] = "FILE"
- A[1] = _patharr0_i0(A[1], D, "drive")
- return _patharr0_i1(D, A, 1, q)
- }
- i = gensub(/ *([\.\?]) */, "\\1", "G", A[2])
- IGNORECASE = 1
- match(A[1], /^((https?)|(ftp)):$/)
- IGNORECASE = 0
- if (RLENGTH > 0) {
- D["type"] = toupper(substr(A[1], 1, RLENGTH -
1))
- _patharr0_i0(i, D, "site", "port")
- } else {
- if (A[1] == "") {
- D["type"] = "UNC"
- if (h > 2) {
- D["host"]
- A[2] = _patharr0_i0(A[2], D,
"drive", "", "FILE")
- return _patharr0_i1(D, A, 2, q)
- }
- if (i == "") {
- return 1
- }
- D["host"] = i
- A[3] = _patharr0_i0(A[3], D, "drive",
"", "FILE")
- } else {
- D["type"] = "FILE"
- A[1] = _patharr0_i0(A[1], D, "drive")
- return _patharr0_i1(D, A, 1, q)
- }
- }
- return _patharr0_i1(D, A, 3, q)
- }
- }
-
- function _patharr0_i0(t, D, l, r, d, i)
- {
- if (i = index(t, ":")) {
- if (d) {
- D["type"] = d
- }
- if (i > 1) {
- D[l] = substr(t, 1, i - 1)
- }
- if ((t = substr(t, i + 1)) && r) {
- D[r] = t
- }
- return t
- } else {
- if (t && r) {
- D[l] = t
- }
- }
- return t
- }
-
- function _patharr0_i1(D, A, i, q, t, c)
- {
- if (D["type"] == "UNC") {
- if (t = A[i++]) {
- D[0] = (D["share"] = D[++c] = t) "/"
- } else {
- return 1
- }
- }
- while (i < q) {
- D[0] = D[0] (D[++c] = A[i++]) "/"
- }
- if (i == q) {
- if (match(t = A[i], /\.[^\.]*$/)) {
- if (RSTART > 1) {
- D["name"] = substr(t, 1, RSTART - 1)
- }
- D["ext"] = substr(t, RSTART, RLENGTH)
- } else {
- if (t != "") {
- D["name"] = t
- }
- }
- }
- return 1
- }
-
- function _pmap(m, s1, s2, s3, s4, s5, s6, s7, s8)
- {
- if (match(m, /^([^\(]+)\(([^\)]*)\)$/, _QMAP)) {
- _qparamf1 = _QMAP[1]
- _QMAP[0] = "r" (_qparamc1 = split(_QMAP[2], _QMAP, ""))
- _qparamf0 = "_p" _QMAP[_qparamc1--]
- return @_qparamf0(s1, s2, s3, s4, s5, s6, s7, s8)
- }
- }
-
- function _pr0(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1()
- }
-
- function _pr1(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1)
- }
-
- function _pr2(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2)
- }
-
- function _pr3(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3)
- }
-
- function _pr4(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4)
- }
-
- function _pr5(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4, p5)
- }
-
- function _pr6(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4, p5, p6)
- }
-
- function _pr7(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4, p5, p6, p7)
- }
-
- function _pr8(s1, s2, s3, s4, s5, s6, s7, s8, p1, p2, p3, p4, p5, p6,
p7, p8)
- {
- return @_qparamf1(p1, p2, p3, p4, p5, p6, p7, p8)
- }
-
- function _printarr(A, t, lv, r, a)
- {
- a = PROCINFO["sorted_in"]
- PROCINFO["sorted_in"] = "_lengthsort"
- _printarrexp = (r ? r : "")
- if (isarray(A)) {
- delete _DUMPARR
- _dumparrc = _dumparrd = ""
- _printarr_i1(A, lv = ((lv == "" ? 16 : (lv == 0 || lv +
0 != 0 ? lv : (lv == "-*" ? -3 : (lv ~ /^\+?\*$/ ? 3 : 16))))) + 0, (lv < 0 ?
-1 : 1), 0, _tabtospc(t))
- PROCINFO["sorted_in"] = a
- return _retarrd(_DUMPARR, _dumparrd, _dumparrd = "")
- }
- }
-
- function _printarr_i1(A, lv, ls, ln, t, t2, i, a, f)
- {
- t2 = _getchrln(" ", length(t))
- if (ln == lv) {
- if (ls > 0) {
- for (i in A) {
- ++a
- }
- } else {
- for (i in A) {
- (isarray(A[i]) ? ++a : "")
- }
- }
- if (length(_dumparrd = _dumparrd t ((a > 0 ? " ... (x"
a ")" : "")) _CHR["EOL"]) > 262144) {
- _conl(_dumparrd)
- _dumparrd = ""
- }
- return
- }
- if (ls >= 0) {
- for (i in A) {
- if (! _printarrexp || i ~ _printarrexp) {
- if (! isarray(A[i])) {
- if (length(_dumparrd =
_dumparrd ((f ? t2 : t _nop(f = 1))) "[" i "]=" A[i] "'" _CHR["EOL"]) > 262144)
{
- _conl(_dumparrd)
- _dumparrd = ""
- }
- }
- }
- }
- }
- for (i in A) {
- if (isarray(A[i])) {
- if (! _printarrexp || i ~ _printarrexp) {
- _printarr_i1(A[i], lv, ls, ln + ls,
_th0((f ? t2 : t), f = 1) "[" i "]")
- }
- }
- }
- if (! f) {
- if (length(_dumparrd = _dumparrd t _CHR["EOL"]) >
262144) {
- _conl(_dumparrd)
- _dumparrd = ""
- }
- }
- }
-
- function _qparam(qm, p0, p1, p2, p3, p4, p5, p6, p7)
- {
- if (qm == qm + 0 && qm > 0) {
- _qparamim = substr(" ", 1, qm)
- } else {
- if (qm != "") {
- _qparamim = qm
- } else {
- _qparamim = " "
- }
- }
- _qparamask = ""
- return _qparam_i0(p0, p1, p2, p3, p4, p5, p6, p7)
- }
-
- function _qparam_i0(p0, p1, p2, p3, p4, p5, p6, p7)
- {
- _qparama0 = substr(_qparamim, 1, 1)
- _qparamim = substr(_qparamim, 2)
- switch (_qparama0) {
- case "":
- gsub(/ +$/, "", _qparamask)
- return length(_qparamask)
- default:
- if (isarray(p0)) {
- _qparama0 = "A"
- } else {
- if (p0 == "" && p0 == 0) {
- _qparama0 = " "
- } else {
- if (_isptr(p0)) {
- _qparama0 = "P"
- } else {
- _qparama0 = "S"
- }
- }
- }
- case ".":
- _qparamask = _qparamask _qparama0
- return _qparam_i0(p1, p2, p3, p4, p5, p6, p7)
- }
- }
-
- function _qstr(t, c, A, B)
- {
- c = ""
- for (t = split(t, A, /[\x00-\x1F\\"]/, B); t >= 0; t--) {
- c = _QSTR[B[t]] A[t + 1] c
- }
- return c
- }
-
- function _qstrq(t)
- {
- gsub(/\\/, "\\\\", t)
- gsub(/"/, "\\\"", t)
- return t
- }
-
- function _rEG(c, t, P, a, A)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return _ln("_reg 0.001")
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
- }
- }
-
- function _rFBRO(p)
- {
- if (p) {
- if (p in _tPARENT) {
- return _tFCHLD[_tPARENT[p]]
- }
- while (p in _tPREV) {
- p = _tPREV[p]
- }
- return p
- }
- return p
- }
-
- function _rFCHLD(p)
- {
- if (p && p in _tFCHLD) {
- return _tFCHLD[p]
- }
- return ""
- }
-
- function _rLBRO(p)
- {
- if (p) {
- if (p in _tPARENT) {
- return _tLCHLD[_tPARENT[p]]
- }
- while (p in _tNEXT) {
- p = _tNEXT[p]
- }
- return p
- }
- return p
- }
-
- function _rLCHLD(p)
- {
- if (p && p in _tLCHLD) {
- return _tLCHLD[p]
- }
- return ""
- }
-
- function _rLINK(p)
- {
- return ((p in _tLINK ? _tLINK[p] : ""))
- }
-
- function _rNEXT(p)
- {
- if (p && p in _tNEXT) {
- return _tNEXT[p]
- }
- return ""
- }
-
- function _rPARENT(p)
- {
- if (p && p in _tPARENT) {
- return _tPARENT[p]
- }
- return ""
- }
-
- function _rPREV(p)
- {
- if (p && p in _tPREV) {
- return _tPREV[p]
- }
- return ""
- }
-
- function _rQBRO(p, c, p1)
- {
- if (p) {
- if (p in _tPARENT) {
- return _tQCHLD[_tPARENT[p]]
- }
- c = 1
- p1 = p
- while (p1 in _tPREV) {
- c++
- p1 = _tPREV[p1]
- }
- while (p in _tNEXT) {
- c++
- p = _tNEXT[p]
- }
- return c
- }
- return p
- }
-
- function _rQCHLD(p)
- {
- if (p && p in _tQCHLD) {
- return _tQCHLD[p]
- }
- return ""
- }
-
- function _rSQFIRST(g, p, A)
- {
- if (isarray(A)) {
- return _rSQFIRSTA(g, p, A)
- }
- _SQTOPTR[g] = p
- _SQSTACK[g][0] = 0
- return _rsqgetptr(g, p)
- }
-
- function _rSQFIRSTA(g, p, A)
- {
- _SQTOPTR[g] = p
- _SQSTACK[g][0] = 0
- if ((p = _rsqgetptr(g, p)) in A) {
- return p
- }
- return _rSQNEXTA(g, p, A)
- }
-
- function _rSQNEXT(g, p, A)
- {
- if (isarray(A)) {
- return _rSQNEXTA(g, p, A)
- }
- return _rsqnext_i0(g, p)
- }
-
- function _rSQNEXTA(g, p, A)
- {
- if (p == _SQTOPTR[g]) {
- if (_SQSTACK[g][0] > 0) {
- _SQTOPTR[g] = _SQSTACK[g][_SQSTACK[g][0]--]
- return _rSQNEXTA(g,
_SQSTACK[g][_SQSTACK[g][0]--], A)
- }
- return
- }
- while (p in _tNEXT) {
- if ((p = _rsqgetptr(g, _tNEXT[p])) in A) {
- return p
- }
- }
- return ((p in _tPARENT ? _rSQNEXTA(g, _tPARENT[p], A) : ""))
- }
-
- function _rconl(t)
- {
- _rprt = _rprt _ln(t)
- }
-
- function _rconline(t)
- {
- _rprt = _rprt _ln((t = " " t " ") _getchrln("_", _CON_WIDTH -
length(t) - 1))
- }
-
- function _rd_shortcut(D, f)
- {
- if ((_shrtcutf0 = _filepath(f)) && _shortcut_nerr(_shrtcuta0 =
_cmd(_shortcut_fpath " /A:Q /F:\"" _shrtcutf0 "\" 2>&1"), _shrtcutf0)) {
- ERRNO = ""
- split(_shrtcuta0, _SHRTCUTA0, /\x0D?\x0A/)
- for (_shrtcuta0 in _SHRTCUTA0) {
- for (f in _SHORTCUTRSTRUC) {
- if (match(_SHRTCUTA0[_shrtcuta0], "^"
f)) {
- D[_SHORTCUTRSTRUC[f]] =
substr(_SHRTCUTA0[_shrtcuta0], 1 + RLENGTH)
- }
- }
- }
- }
- return ((ERRNO ? ERRNO = "read shortcut: " ERRNO : _NOP))
- }
-
- function _rdfile(f, i, A)
- {
- if ((f = _filerdne(f)) == "" || _filene(f) == "") {
- ERRNO = "Filename error"
- return
- }
- _fio_cmda = RS
- RS = ".{1,}"
- _fio_cmdb = BINMODE
- BINMODE = "rw"
- ERRNO = RT = _NUL
- getline RS < f
- BINMODE = _fio_cmdb
- RS = _fio_cmda
- if (ERRNO == "") {
- close(f)
- }
- if (ERRNO == "") {
- return RT
- }
- return (RT = _NOP)
- }
-
- function _rdreg(D, p)
- {
- _rdregp0 = "reg query \"" p "\" /S /reg:64 2>NUL"
- _rdregfld = _rdregkey = 0
- _rdregq0 = split(gensub(/[\x0D?\x0A]{2,}/, _CHR["EOL"], "G",
_cmd(_rdregp0)), _RDREGA0, /\x0D?\x0A/)
- while (_rdregq0 > 0) {
- _rdreg_i0(D)
- }
- return (_rdregfld + _rdregkey)
- }
-
- function _rdreg_i0(D, A)
- {
- while (_rdregq0 > 0) {
- if (match(_rdregp0 = _RDREGA0[_rdregq0--], / (.*)
REG_((SZ)|(DWORD)|(QWORD)|(BINARY)|(EXPAND_SZ)|(MULTI_SZ)) (.*)$/, A)) {
- if (! _rdreg_i0(D)) {
- ++_rdregfld
- D[_rdregp0 A[1] "." _RDREGTYPE[A[2]]] =
A[9]
- return
- } else {
- break
- }
- } else {
- if (_rdregp0 ~ /^HK/) {
- ++_rdregkey
- return D[_rdregp0 = _rdregp0 "\\"]
- }
- }
- }
- return 1
- }
-
- function _rdsafe(A, i, d)
- {
- if (i in A) {
- return A[i]
- }
- return d
- }
-
- function _reg_check(p)
- {
- _tframe("_reg_check_i0", p, p)
- }
-
- function _reg_check_i0(p, pp, p1, p2)
- {
- if (_[p]["TYPE"] == "defreg") {
- if (_[p]["REGPATH"] in _REG) {
- if ("VALUE" in _[p]) {
- if (_[p]["VALUE"] ==
_REG[_[p]["REGPATH"]]) {
- _creport(p, substr("OK:
REGENTRY MATCH(==" _[p]["VALUE"] "): " _[p]["REGPATH"], 1, 126))
- } else {
- _dllerr(p, substr("REGENTRY NOT
MATCH(!=" _[p]["VALUE"] "): " _[p]["REGPATH"], 1, 126))
- }
- } else {
- if (_VAR[_[p]["REGPATH"]] ==
_REG[_[p]["REGPATH"]]) {
- _creport(p, substr("OK:
REGPATH MATCH(==" _VAR[_[p]["REGPATH"]] "): " _[p]["REGPATH"], 1, 126))
- } else {
- _dllerr(p, substr("REGPATH NOT
MATCH(!=" _VAR[_[p]["REGPATH"]] "): " _[p]["REGPATH"], 1, 126))
- }
- }
- } else {
- _dllerr(p, substr("REGPATH NOT FOUND: "
_[p]["REGPATH"], 1, 126))
- }
- }
- }
-
- function _registryinit()
- {
- _registrytmpfile = _getmpfile()
- }
-
- function _regpath0(D, i, s, q, S)
- {
- if (i = _patharr0(S, i)) {
- if ("name" in S) {
- D["name"] = S["name"]
- }
- if ("ext" in S) {
- D["ext"] = S["ext"]
- }
- s = ((toupper(s = (i in S ? S[i] : "")) in
_REGPATH0REGDIR ? D[++q] = _REGPATH0REGDIR[toupper(s)] : (D[++q] =
_REGPATH0REGDIR[""]) "\\" (D[++q] = s))) "\\"
- while (++i in S) {
- s = s (D[++q] = S[i]) "\\"
- }
- if (s != "") {
- D[0] = s
- }
- IGNORECASE = 1
- D["hostdir"] = "\\\\" (D["host"] = ("host" in S && (""
== (i = S["host"]) || "." == i || "?" == i || "localhost" == i) ?
ENVIRON["COMPUTERNAME"] : i)) "\\" s
- IGNORECASE = 0
- }
- }
-
- function _report(p)
- {
- _report_t0 = _reportparnt = ""
- _report_i0(p)
- _tframe("_report_i0", p)
- return _report_t0
- }
-
- function _report_i0(p, p0, p1, p2)
- {
- if (p in _tPARENT) {
- if (_reportparnt != (_reportparnt = _tPARENT[p])) {
- _report_t0 = _report_t0 _ln() _ln((z = "_ "
_[_tPARENT[p]]["NAME"] " ") _getchrln("_", _CON_WIDTH - length(z) - 2))
_ln(_getchrln("#", _CON_WIDTH - 2)) _ln()
- }
- }
- if ("ERROR" in _[p]) {
- _report_t0 = _report_t0 _reporterr(p, _[p]["ERROR"])
- }
- if ("REPORT" in _[p]) {
- _report_t0 = _report_t0 _ln(_[p]["REPORT"])
- }
- }
-
- function _reporterr(p, t3, pp, t, t2)
- {
- t = ""
- pp = p
- do {
- ("NAME" in _[pp] ? t = _[pp]["NAME"] ": " t : "")
- } while (pp = _rPARENT(pp))
- if (match(t3, /\x00/)) {
- return (substr(t3, 1, RSTART - 1) t substr(t3, RSTART +
1))
- }
- return (t t3)
- }
-
- function _retarr(A, i, p, a, q)
- {
- if (isarray(A)) {
- i = (i == "" ? 0 : i + 0)
- q = A[_ARRLEN] + 0
- if (i < q) {
- return (p A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] _retarr_i0(A, q, i, a))
- }
- }
- }
-
- function _retarr_i0(A, q, i, a)
- {
- if (i < q) {
- return (A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i] A[++i]
_retarr_i0(A, q, i, a))
- }
- while (q < i) {
- delete A[++q]
- }
- return a
- }
-
- function _retarrd(A, v, i)
- {
- if (1 in A) {
- return (A[1] A[2] A[3] A[4] A[5] A[6] A[7] A[8] A[9]
A[10] A[11] A[12] A[13] A[14] A[15] A[16] (((i = 17) in A ? _retarrd_i0(A, i) v
: v)))
- }
- delete A
- return v
- }
-
- function _retarrd_i0(A, i)
- {
- if (i in A) {
- return (A[i++] A[i++] A[i++] A[i++] A[i++] A[i++]
A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] A[i++] ((i in A
? _retarrd_i0(A, i) : "")))
- }
- delete A
- }
-
- function _rexpfn(R, t, p)
- {
- _REXPFN[""] = ""
- while (t) {
- t = _rxpfn(R, t, p)
- }
- return _REXPFN[""]
- }
-
- function _rexpfnend(t)
- {
- _REXPFN[""] = t
- }
-
- function _rexpstr(r, i, c, A)
- {
- c = split(r, A, "")
- r = ""
- for (i = 1; i <= c; i++) {
- r = r _REXPSTR[A[i]]
- }
- return r
- }
-
- function _rexpstr_i0(t, A, p0)
- {
- return (_REXPSTR[t] = "\\" t)
- }
-
- function _rmtsharerr(h, t)
- {
- gsub(/[\x0D\x0A]+/, "", t)
- if (t ~ /^The command failed: 53/) {
- ERRNO = "host not found: \\\\" h
- } else {
- ERRNO = t ": \\\\" h
- }
- }
-
- function _rpp(q, D, S)
- {
- _conl()
- _conline(q)
- _conl()
- _regpath0(D, q)
- _conl(_ln("DEST:") _dumparr(D))
- _conl()
- return q
- }
-
- function _rrdreg(DD, p, k, t, v, c, i, q, tT, A, B, C, D)
- {
- if (! _registrytmpfile) {
- _registryinit()
- }
- _cmd("regedit /E \"" _registrytmpfile "\" \"" p "\" 2>&1")
- q = patsplit(gensub(/[\x00\xFF\xFE]+/, "", "G",
_rdfile(_registrytmpfile)), A, /\x0D?\x0A\[[^\]]+\]\x0D?\x0A/, B)
- for (i = 1; i <= q; i++) {
- p = gensub(/(^[ \t\x0D\x0A]*\[)|((\\)\\+)|(\][
\t\x0D\x0A]*$)/, "\\3", "G", A[i])
- DD[p "\\"]
- delete C[split(B[i], C, /[\x0D\x0A]+/)]
- for (c = 1; c in C; c++) {
- tt = tt C[c]
- if (gsub(/\\$/, "", tt)) {
- continue
- }
- if (tt == "") {
- continue
- }
- if (match(_th0(tt, tt = ""),
/((^"(([^\\"]|\\.)*)")|(@))=(("(([^\\"]|\\.)*)")|(dword:([[:xdigit:]]{8}))|(hex(\(([27b])\))?:(.*)))$/,
D)) {
- if (D[7]) {
- t = "STR"
- v = _unstr(D[8])
- } else {
- if (D[10]) {
- t = "W32"
- v = D[11]
- } else {
- v = D[15]
- if (D[13]) {
- switch (D[14]) {
- case "2":
- t =
"XSZ"
- break
- case "7":
- t =
"MSZ"
- break
- default:
- t =
"W64"
- }
- } else {
- t = "BIN"
- }
- }
- }
- DD[gensub(/(\\)\\+/, "\\1", "G", p "\\"
_unstr(D[3] ((D[5] ? "(Default)" : ""))) "." t)] = v
- } else {
- _fatal("regedit: unknown output
format(" c "): `" C[c] "'")
- }
- }
- }
- }
-
- function _rsqgetptr(g, p, A)
- {
- if (p in _tLINK) {
- _SQSTACK[g][++_SQSTACK[g][0]] = p
- _SQSTACK[g][++_SQSTACK[g][0]] = _SQTOPTR[g]
- while ((p = _tLINK[p]) in _tLINK) {
- _con(".")
- }
- _SQTOPTR[g] = p
- }
- if (p in _tFCHLD) {
- return _rsqgetptr(g, _tFCHLD[p])
- }
- return p
- }
-
- function _rsqnext_i0(g, p)
- {
- if (p == _SQTOPTR[g]) {
- if (_SQSTACK[g][0] > 0) {
- _SQTOPTR[g] = _SQSTACK[g][_SQSTACK[g][0]--]
- return _rsqnext_i0(g,
_SQSTACK[g][_SQSTACK[g][0]--])
- }
- return
- }
- if (p in _tNEXT) {
- return _rsqgetptr(g, _tNEXT[p])
- }
- return _rsqnext_i0(g, _tPARENT[p])
- }
-
- function _rtn(v, A)
- {
- _conl()
- _conline(_val(v) " : " _val(A))
- _conl()
- _rtn2(v, A)
- _conl()
- }
-
- function _rtn2(v, A, r, t)
- {
- r = (isarray(A) ? _typa(v, A) : _typ(v))
- if ("`" > _t0 && _t0) {
- _conl("ggggg")
- }
- t = ((r ? "TRUE" : "FALSE")) " / " ((r > 0 ? r ">0" : r "!>0"))
" / " ((r + 0 > 0 ? r "+0>0" : r "+0!>0")) " / " ((r + 0 != r ? r "+0!=" r : r
"+0==" r)) " / " ((r && "`" > r ? "'`'>" r " && " r : "!('`'>" r " && " r ")"))
- _conl("`" r "' : " t)
- return r
- }
-
- function _rxpfn(R, t, p, i, f, A)
- {
- for (i in R) {
- if (match(t, i, A)) {
- f = R[i]
- if (t != (t = @f(A, substr(t, RLENGTH + 1),
p))) {
- return t
- }
- }
- }
- return _rexpfnend(t)
- }
-
- function _sHARE(c, t, P, a, A)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return _ln("_share 1.000")
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
- }
- }
-
- function _sYS(c, t, P, a, A)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
- }
- }
-
- function _serv_check(p)
- {
- _tframe("_serv_check_i0", p, p)
- }
-
- function _serv_check_i0(p, p0, p1, p2, p3, i, q, c)
- {
- if (_[p]["TYPE"] == "defsrv") {
- i = IGNORECASE
- IGNORECASE = 1
- if (match(_servoutput, roi = "\\012DISPLAY_NAME: "
_torexp(_[p]["SERVNAME"]))) {
- _creport(p, "OK: SERVICE DETECTED: "
substr(_[p]["SERVNAME"], 1, 112))
- } else {
- _dllerr(p, "service " _[p]["SERVNAME"] " not
detected")
- }
- }
- IGNORECASE = i
- }
-
- function _setarrsort(f, a)
- {
- a = PROCINFO["sorted_in"]
- if (! f) {
- delete PROCINFO["sorted_in"]
- } else {
- PROCINFO["sorted_in"] = f
- }
- return a
- }
-
- function _setmpath(p, a)
- {
- ERRNO = ""
- if (p && (a = _filerd(p))) {
- if (_FILEIO_TMPRD) {
- _FILEIO_TMPATHS[_FILEIO_TMPRD]
- }
- return (_FILEIO_TMPRD = a)
- } else {
- return _warning("`" p "': cannot set temporary folder"
((ERRNO ? ": " ERRNO : "")))
- }
- }
-
- function _sharelist(D, h, q, c, l, A, B)
- {
- delete D
- c = _sharextool " \\\\" ((h == "" ? h = ENVIRON["COMPUTERNAME"]
: h)) " 2>&1"
- if (match(c = _cmd(c), /\x0AShare[^\x0A]*Remark/)) {
- gsub(/(^[^-]*\x0D?\x0A-+\x0D?\x0A[ \t]*)|(\x0D?\x0AThe
command completed successfully.*$)/, "", c)
- l = RLENGTH - 7
- split(c, A, /([ \t]*\x0D?\x0A)+[ \t]*/)
- for (c in A) {
- if (match(A[c], /((([^ \t:]+[ \t]+)*[^ \t:]+)[
\t]+)([A-Za-z])[ \t]*:/, B) && ++q) {
- D[B[2]] = (A[c] ~ /\.\.\.$/ ?
_sharepath(h, B[2]) : gensub(/[ \t\\\/]*$/, "\\\\", 1, substr(A[c], 1 + B[1,
"length"], l - B[1, "length"])))
- }
- }
- return q
- }
- return _rmtsharerr(h, c)
- }
-
- function _sharepath(h, s, A)
- {
- s = _sharextool " \\\\" ((h == "" ? h = ENVIRON["COMPUTERNAME"]
: h)) "\\\"" s "\" 2>&1"
- if (match(s = _cmd(s), /\x0APath[ \t]+([^\x0D\x0A]+)/,
_SHAREPATHA0)) {
- return gensub(/[ \t\\\/]*$/, "\\\\", 1, _SHAREPATHA0[1])
- }
- return _rmtsharerr(h, s)
- }
-
- function _shortcut(D, S)
- {
- if (isarray(D)) {
- if (isarray(S)) {
- _addarrmask(D, S, _SHORTCUTWSTRUC)
- } else {
- if (S == 0 && S == "") {
- _addarrmask(D, _SHORTCUTDEFAULT,
_SHORTCUTWSTRUC)
- } else {
- if (_isnotfileptr(S)) {
- _addarrmask(D, _[S],
_SHORTCUTWSTRUC)
- } else {
- if (_rd_shortcut(D, S)) {
- return
- }
- }
- }
- }
- } else {
- if (D == 0 && D == "") {
- return _NOP
- } else {
- if (_isnotfileptr(D)) {
- if (isarray(S)) {
- _addarrmask(_[D], S,
_SHORTCUTWSTRUC)
- } else {
- if (S == 0 && S == "") {
- _addarrmask(_[D],
_SHORTCUTDEFAULT, _SHORTCUTWSTRUC)
- } else {
- if (_isnotfileptr(S)) {
-
_addarrmask(_[D], _[S], _SHORTCUTWSTRUC)
- } else {
- if
(_rd_shortcut(_[D], S)) {
- return
- }
- }
- }
- }
- } else {
- if (isarray(S) && _wr_shortcut(D, S)) {
- return
- } else {
- if (S == 0 && S == "" &&
_wr_shortcut(D, _SHORTCUTDEFAULT)) {
- return
- } else {
- if (_isnotfileptr(S) &&
_wr_shortcut(D, _[S])) {
- return
- } else {
- if
(_rd_shortcut(_SHRTCUTA1, S) || _wr_shortcut(D, _SHRTCUTA1)) {
- return
- }
- }
- }
- }
- }
- }
- }
- return 1
- }
-
- function _shortcut_init(A, B, q)
- {
- _SHORTCUTERR[2] = "file not found"
- _SHORTCUTERR[3] = "no such filepath"
- _SHORTCUTERR["The system cannot find the file specified."] =
"no such filepath"
- _SHORTCUTERR[5] = "file is folder"
- _SHORTCUTERR["Access is denied."] = "file is folder"
- _SHORTCUTERR[123] = "filepath syntax error"
- _SHORTCUTERR["The filename, directory name, or volume label
syntax is incorrect."] = "filepath syntax error"
- q =
"target\t\t\t/T:\t\t\t\tTargetPath=\t\t\t\t\ttarget?\t\t\t;\t\t\t_target\t\t\t\t\t\t\tTargetPathExpanded=\t\t\t\t\t\t\t;\t\t\tparameters\t\t\t/P:\t\t\t\tArguments=\t\t\t\t\tparaneters?\t\t\t;\t\t\t_parameters\t\t\t\t\t\t\tArgumentsExpanded=\t\t\t\t\t\t\t;\t\t\tstartdir\t\t\t/W:\t\t\t\tWorkingDirectory=\t\t\t\tstartdir?\t\t\t;\t\t\t_startdir\t\t\t\t\t\t\tWorkingDirectoryExpanded=\t\t\t\t\t\t;\t\t\trunstyle\t\t\t/R:\t\t\t\tRunStyle=\t\t\t\t\t1\t\t\t\t;\t\t\ticon,index\t\t\t/I:\t\t\t\tIconLocation=\t\t\t\ticon,index?\t\t\t;\t\t\txicon,index\t\t\t\t\t\t\tIconLocationExpanded=\t\t\t\t\t\t\t;\t\t\tshortcut
key\t\t/H:\t\t\t\tHotKey=\t\t\t\t\t0\t\t\t\t;\t\t\tdescription\t\t\t/D:\t\t\t\tDescription=\t\t\t\t_env4:
default shortcut\t"
- split(q, _SHRTCUTA0, /[ \t]*;[ \t]*/)
- for (q in _SHRTCUTA0) {
- if (match(_SHRTCUTA0[q],
/^([^\t]+)\t+([^\t]+)(\t+([^\t]+)(\t+([^\t]+))?)?/, B)) {
- if (B[3] == "") {
- _SHORTCUTRSTRUC[B[2]] = B[1]
- } else {
- if (B[5] == "") {
-
_SHORTCUTWSTRUC[_SHORTCUTRSTRUC[B[4]] = B[1]] = B[2]
- delete _SHORTCUTDEFAULT[B[1]]
- } else {
-
_SHORTCUTWSTRUC[_SHORTCUTRSTRUC[B[4]] = B[1]] = B[2]
- _SHORTCUTDEFAULT[B[1]] = B[6]
- }
- }
- } else {
- _fatal("_shortcut.init: _shortcut_struc: syntax
error: `" _SHRTCUTA0[q] "'")
- }
- }
- _SHRTCUTA1[""]
- delete _SHRTCUTA1[""]
- _shortcut_fpath =
"\\\\localhost\\eGAWK\\LIB\\_shortcut\\_shortcut.exe"
- }
-
- function _shortcut_nerr(t, s, A)
- {
- if (match(t, /\x0ASystem error
(-?[0-9]+)[^\x0D\x0A]*[\x0D\x0A]+([^\x0D\x0A]+)/, A)) {
- ERRNO = ((A[1] in _SHORTCUTERR ? _SHORTCUTERR[A[1]] :
(A[2] in _SHORTCUTERR ? _SHORTCUTERR[A[2]] : tolower(gensub(/^(The
)?(((.*)\.$)|(.*[^\.]$))/, "\\4\\5", "G", A[2])) "(" A[1] ")"))) ((s ? ": `" s
"'" : ""))
- } else {
- return 1
- }
- }
-
- function _split_regpath()
- {
- _rpp(" / / / / ")
- _rpp(" / / / / huj ")
- _rpp(" / / / / huj / ")
- _rpp(" / / / / huj / pizda.TSR ")
- _rpp(" / / / / hklm ")
- _rpp(" / / / / hklm / ")
- _rpp(" / / / / hklm / huj ")
- _rpp(" / / / / hklm / huj / ")
- _rpp(" / / / / hklm / huj / \tpizda.TSR ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _rpp(" / / / / hklm / software / altiris / fi le . ex t ")
- _rpp(" / / . / / hkcr / software / altiris / fi le . ex t ")
- _rpp(" / / ? / / hKcU / software / altiris / fi le . ex t ")
- _rpp(" / / lOcAlHoSt / / hKu / software / altiris / fi le . ex
t ")
- _rpp(" / / ho st / / hKcc / software / altiris / fi le . ex t
")
- _rpp(" / / ho st / / hKPd / software / altiris / fi le . ex t
")
- _conl()
-
_conl("########################################################################################")
- _conl()
- }
-
- function _splitpath_test()
- {
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" ")
- _fpp(" fi le . ex t ")
- _fpp(" di r0 / / ")
- _fpp(" di r0 / / fi le . ex t ")
- _fpp(" / ")
- _fpp(" / fi le . ex t ")
- _fpp(" / di r0 / / ")
- _fpp(" / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" c : ")
- _fpp(" c : fi le . ex t ")
- _fpp(" c : di r0 / / ")
- _fpp(" c : di r0 / / fi le . ex t ")
- _fpp(" c : / / ")
- _fpp(" c : / / fi le . ex t ")
- _fpp(" c : / / di r0 / / ")
- _fpp(" c : / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" / / ")
- _fpp(" / / ho st . hs t ")
- _fpp(" / / ho st / / ")
- _fpp(" / / ho st / / fi le . ex t ")
- _fpp(" / / ho st / / di r0 / / ")
- _fpp(" / / ho st / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" / / ho st / / c : ")
- _fpp(" / / ho st / / c : fi le . ex t ")
- _fpp(" / / ho st / / c : di r0 / / ")
- _fpp(" / / ho st / / c : di r0 / / fi le . ex t ")
- _fpp(" / / ho st / / c : / / ")
- _fpp(" / / ho st / / c : / / fi le . ex t ")
- _fpp(" / / ho st / / c : / / di r0 / / ")
- _fpp(" / / ho st / / c : / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" http : / / / ")
- _fpp(" http : / / / si te . ex t ")
- _fpp(" http : / / / si te / / ")
- _fpp(" http : / / / si te / / fi le . ex t ")
- _fpp(" http : / / / si te / / di r0 / / ")
- _fpp(" http : / / / si te / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" ftp : / / / : po rt ")
- _fpp(" ftp : / / / si te . ex t : po rt ")
- _fpp(" ftp : / / / si te : po rt / / ")
- _fpp(" ftp : / / / si te : po rt / / fi le . ex t ")
- _fpp(" ftp : / / / si te : po rt / / di r0 / / ")
- _fpp(" ftp : / / / si te : po rt / / di r0 / / fi le . ex t ")
- _conl()
- _conl("## //.
######################################################################################")
- _conl()
- _fpp(" / / . ")
- _fpp(" / / . / / ")
- _fpp(" / / . / / com 56 ")
- _fpp(" / / . / / com 56 / / ")
- _fpp(" / / . / / c : ")
- _fpp(" / / . / / c : / / ")
- _fpp(" / / . / / c : com 56 ")
- _fpp(" / / . / / c : com 56 / / ")
- _fpp(" / / . / / c : / / com 56 ")
- _fpp(" / / . / / c : / / com 56 / / ")
- _conl()
- _conl("## //?
######################################################################################")
- _conl()
- _fpp(" / / ? ")
- _fpp(" / / ? / / ")
- _fpp(" / / ? / / com 56 ")
- _fpp(" / / ? / / com 56 / / ")
- _fpp(" / / ? / / c : ")
- _fpp(" / / ? / / c : / / ")
- _fpp(" / / ? / / c : com 56 ")
- _fpp(" / / ? / / c : com 56 / / ")
- _fpp(" / / ? / / c : / / com 56 ")
- _fpp(" / / ? / / c : / / com 56 / / ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _fpp(" / / / ")
- _fpp(" / / / . hs t ")
- _fpp(" / / / / fi le . ex t ")
- _fpp(" / / / / di r0 / / ")
- _fpp(" / / / / di r0 / / di r1 / fi le . ex t ")
- _fpp(" / / / / c : ")
- _fpp(" / / / / c : fi le . ex t ")
- _fpp(" / / / / c : di r0 / / ")
- _fpp(" / / / / c : di r0 / / fi le . ex t ")
- _fpp(" / / / / c : / / ")
- _fpp(" / / / / c : / / fi le . ex t ")
- _fpp(" / / / / c : / / di r0 / / ")
- _fpp(" / / / / c : / / di r0 / / fi le . ex t ")
- _conl()
-
_conl("########################################################################################")
- _conl()
- return
- }
-
- function _splitstr(A, t, r)
- {
- if (_istr(t)) {
- if (_splitstr_i0(A, t) > 0) {
- return _splitstrp0
- }
- if (_istr(r)) {
- return _splitstr_i0(A, r)
- }
- } else {
- if (it == "A") {
- if (length(t) > 0) {
- _movarr(A, t)
- return (0 - length(A))
- }
- }
- _istr(r)
- }
- if (it == "A") {
- if (length(r) > 0) {
- _movarr(A, r)
- return (0 - length(A))
- }
- }
- }
-
- function _splitstr_i0(A, t, C)
- {
- if (2 > (_splitstrq0 = patsplit(t, _SPLITSTRA0,
/([^,\xB4]*\xB4.)*[^,\xB4]*/))) {
- _splitstrq0 = split(gensub(/\xB4(.)/, "\\1", "G", t),
_SPLITSTRA0, "")
- }
- delete A
- _splitstri0 = _splitstrp0 = 0
- while (_splitstri0++ < _splitstrq0) {
- if ((t = gensub(/\xB4(.)/, "\\1", "G",
_SPLITSTRA0[_splitstri0])) in C || t == "") {
- continue
- }
- C[A[++_splitstrp0] = t]
- }
- return _splitstrp0
- }
-
- function _strtorexp(t)
- {
- gsub(/[\\\.\?\*\+\-\(\)\{\}\[\]\^\$\/\|]/, "\\\\&", t)
- t = split(t, _TOREXP_STRA, /[\x00-\x1F]/, _TOREXP_STRB)
- _torexp_strt0 = ""
- for (_torexp_stri0 = 1; _torexp_stri0 < t; _torexp_stri0++) {
- _torexp_strt0 = _torexp_strt0
_TOREXP_STRA[_torexp_stri0] "\\" _QASC[_TOREXP_STRB[_torexp_stri0]]
- }
- return (_torexp_strt0 _TOREXP_STRA[_torexp_stri0])
- }
-
- function _subseqoff(r, B)
- {
- patsplit(r, B, /\x84[^\x94]*\x94/)
- return gensub(/\x84[^\x94]*\x94/, "\204", "G", r)
- }
-
- function _subseqon(B, r, F, f, s, e, q, i, A)
- {
- q = split(r, A, /\x84/)
- r = ""
- f = F[""]
- for (i = 1; i < q; i++) {
- s = substr(e = B[i], 2, 1)
- s = (s in F ? F[s] : F[""])
- r = r (@f(A[i])) (@s(substr(e, 3, length(e) - 3)))
- }
- return (r (@f(A[i])))
- }
-
- function _sysinfo(D, h)
- {
- h = "wmic /NODE: \"" h "\" OS 2>NUL"
- if (split(_cmd(h), _SYSINFOA0, /[\x0D\x0A]+/) == 3) {
- _sysinfol0 = length(h = _SYSINFOA0[2]) + 1
- _sysinfoq0 = _sysinfoq1 = split(_SYSINFOA0[1],
_SYSINFOA0, / +/, _SYSINFOB0)
- while (--_sysinfoq0 > 0) {
- D[_sysinfof0] = gensub(/^ +| +$/, "", "G",
substr(h, _sysinfol0 = _sysinfol0 - (_sysinfol1 = length(_sysinfof0 =
_SYSINFOA0[_sysinfoq0]) + length(_SYSINFOB0[_sysinfoq0])), _sysinfol1))
- }
- return (_sysinfoq1 - 1)
- }
- }
-
- function _tOBJ(c, t, P)
- {
- switch (c) {
- case "_lib_CMDLN":
- return t
- case "_lib_APPLY":
- return
- case "_lib_HELP":
- return
- case "_lib_NAMEVER":
- return _ln("_tOBJ 3.0")
- case "_lib_BEGIN":
- return
- case "_lib_END":
- return
- case "_lib_CLEANUP":
- return _tOBJ_CLEANUP()
- }
- }
-
- function _tOBJ_CLEANUP(p)
- {
- for (p in UIDSDEL) {
- delete _ptr[p]
- delete _tPREV[p]
- delete _tPARENT[p]
- delete _tNEXT[p]
- delete _tFCHLD[p]
- delete _tQCHLD[p]
- delete _tLCHLD[p]
- delete _TMP0[p]
- delete _TMP1[p]
- delete _tLINK[p]
- delete _tCLASS[p]
- }
- }
-
- function _tabtospc(t, ts, xc, a, c, n, A, B)
- {
- if (! ts) {
- ts = _TAB_STEP_DEFAULT
- }
- c = split("." t, A, /\t+/, B)
- A[1] = substr(A[1], 2)
- t = ""
- for (n = 1; n <= c; n++) {
- t = t A[n] _getchrln(" ", (xc = length(B[n]) * ts +
int((a = xc + length(A[n])) / ts) * ts) - a)
- }
- return t
- }
+
- function _tapi(p, f, p0, p1, p2, p3, c)
- {
- c = p
- do {
- if (f in _[c]["API"]) {
- f = _[c]["API"][f]
- return @f(p, p0, p1, p2, p3)
- }
- c = _[c]["CLASS"]
- } while ("CLASS" in _[c])
- }
+
- function _tbframe(f, p, p0, p1)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tbframe_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
+
- function _tbframe_i0(f, p, p0, p1, a)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tLCHLD ? _tmbframe(f, _tLCHLD[p], p0, p1) :
@f(p, p0, p1)))
- }
+
- function _tbframex(f, p, p0, p1)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tbframex_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
+
- function _tbframex_i0(f, p, p0, p1)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tLCHLD ? _tmbframex(f, _tLCHLD[p], p0, p1) :
@f(p, p0, p1)))
- }
+
- function _tbpass(f, p, p0, p1)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tbpass_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
+
- function _tbpass_i0(f, p, p0, p1, a)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tLCHLD ? _tmbpass(f, _tLCHLD[p], p0, p1) : @f(p,
p0, p1)))
- }
+
- function _tbpassx(f, p, p0, p1)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tbpassx_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
+
- function _tbpassx_i0(f, p, p0, p1)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
++function _sysinfo(D, h)
++{
++ ##############################################################
++ h = "wmic /NODE: \"" h "\" OS 2>NUL"
++ if (split(_cmd(h), _SYSINFOA0, /[\x0D\x0A]+/) == 3) {
++ _sysinfol0 = length(h = _SYSINFOA0[2]) + 1
++ _sysinfoq0 = _sysinfoq1 = split(_SYSINFOA0[1], _SYSINFOA0, /
+/, _SYSINFOB0)
++ while (--_sysinfoq0 > 0) {
++ D[_sysinfof0] = gensub(/^ +| +$/, "", "G", substr(h,
_sysinfol0 = _sysinfol0 - (_sysinfol1 = length(_sysinfof0 =
_SYSINFOA0[_sysinfoq0]) + length(_SYSINFOB0[_sysinfoq0])), _sysinfol1))
}
- return ((p in _tLCHLD ? _tmbpassx(f, _tLCHLD[p], p0, p1) :
@f(p, p0, p1)))
++ return (_sysinfoq1 - 1)
}
++}
- function _texclude(p, v, pp)
- {
- if (p in _) {
- function _tbrochld(p, f, pp)
- {
- if (p) {
- if (p in _tFCHLD) {
- f = _tFCHLD[p]
- delete _tFCHLD[p]
- delete _tLCHLD[p]
- if (p in _tPARENT) {
- pp = _tPARENT[p]
- delete _tPARENT[p]
- if (p in _tPREV) {
- _tNEXT[_tPREV[f] = _tPREV[p]] =
f
- delete _tPREV[p]
- } else {
- _tFCHLD[pp] = f
- }
- for (; f in _tNEXT; f = _tNEXT[f]) {
- _tPARENT[f] = pp
- }
- _tPARENT[f] = pp
- if (p in _tNEXT) {
- _tPREV[_tNEXT[f] = _tNEXT[p]] =
f
- delete _tNEXT[p]
- } else {
- _tLCHLD[pp] = f
- }
- _tQCHLD[pp] = _tQCHLD[pp] + _tQCHLD[p]
- 1
- delete _tQCHLD[p]
- return f
++#########################################################
++
++function _tOBJ(c, t, P)
++{
++ switch (c) {
++ case "_lib_CMDLN":
++ #___________________________________________________________
++ return t
++ #___________________________________________________________
++ case "_lib_APPLY":
++ return
++ #___________________________________________________________
++ case "_lib_HELP":
++ return
++ #___________________________________________________________
++ case "_lib_NAMEVER":
++ return _ln("_tOBJ 3.0")
++ #___________________________________________________________
++ case "_lib_BEGIN":
++ return
++ #___________________________________________________________
++ case "_lib_END":
++ return
++ #___________________________________________________________
++ case "_lib_CLEANUP":
++ return _tOBJ_CLEANUP()
++ }
++}
++
++#_______________________________________________________________________
++function _tOBJ_CLEANUP(p)
++{
++ ##############################################
++ for (p in UIDSDEL) {
++ delete _ptr[p]
++ delete _tPREV[p]
++ delete _tPARENT[p]
++ delete _tNEXT[p]
++ delete _tFCHLD[p]
++ delete _tQCHLD[p]
++ delete _tLCHLD[p]
++ delete _TMP0[p]
++ delete _TMP1[p]
++ delete _tLINK[p]
++ delete _tCLASS[p]
++ }
++}
++
++#_______________________________________________________________________
++function _tabtospc(t, ts, xc, a, c, n, A, B)
++{
++ ##################################
++ if (! ts) {
++ ts = _TAB_STEP_DEFAULT
++ }
++ c = split("." t, A, /\t+/, B)
++ A[1] = substr(A[1], 2)
++ t = ""
++ for (n = 1; n <= c; n++) {
++ t = t A[n] _getchrln(" ", (xc = length(B[n]) * ts + int((a = xc
+ length(A[n])) / ts) * ts) - a)
++ }
++ return t
++}
++
++#___________________________________________________________________________________
++####################################################################################
++
++
++
++
++
++
++
++function _tapi(p, f, p0, p1, p2, p3, c)
++{
++ c = p
++ do {
++ if (f in _[c]["API"]) {
++ f = _[c]["API"][f]
++ return @f(p, p0, p1, p2, p3)
++ }
++ c = _[c]["CLASS"]
++ } while ("CLASS" in _[c])
++}
++
++#_____________________________________________________________________________
++function _tbframe(f, p, p0, p1)
++{
++ ##################################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ f = (p ? _tbframe_i0(f, p, p0, p1) : "")
++ --_t_ENDF[0]
++ return f
++}
++
++#___________________________________________________________
++function _tbframe_i0(f, p, p0, p1, a)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tLCHLD ? _tmbframe(f, _tLCHLD[p], p0, p1) : @f(p, p0,
p1)))
++}
++
++#_______________________________________________________________________
++function _tbframex(f, p, p0, p1)
++{
++ ###########################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ f = (p ? _tbframex_i0(f, p, p0, p1) : "")
++ --_t_ENDF[0]
++ return f
++}
++
++#___________________________________________________________
++function _tbframex_i0(f, p, p0, p1)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tLCHLD ? _tmbframex(f, _tLCHLD[p], p0, p1) : @f(p, p0,
p1)))
++}
++
++#_____________________________________________________________________________
++function _tbpass(f, p, p0, p1)
++{
++ ###################################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ f = (p ? _tbpass_i0(f, p, p0, p1) : "")
++ --_t_ENDF[0]
++ return f
++}
++
++#___________________________________________________________
++function _tbpass_i0(f, p, p0, p1, a)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tLCHLD ? _tmbpass(f, _tLCHLD[p], p0, p1) : @f(p, p0,
p1)))
++}
++
++#_____________________________________________________________________________
++function _tbpassx(f, p, p0, p1)
++{
++ ##################################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ f = (p ? _tbpassx_i0(f, p, p0, p1) : "")
++ --_t_ENDF[0]
++ return f
++}
++
++#___________________________________________________________
++function _tbpassx_i0(f, p, p0, p1)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tLCHLD ? _tmbpassx(f, _tLCHLD[p], p0, p1) : @f(p, p0,
p1)))
++}
++
++#_____________________________________________________________________________
++function _tbrochld(p, f, pp)
++{
++ ###################################################
# TEST!!!
++ if (p) {
++ if (p in _tFCHLD) {
++ f = _tFCHLD[p]
++ delete _tFCHLD[p]
++ delete _tLCHLD[p]
++ if (p in _tPARENT) {
++ pp = _tPARENT[p]
++ delete _tPARENT[p]
++ if (p in _tPREV) {
++ _tNEXT[_tPREV[f] = _tPREV[p]] = f
++ delete _tPREV[p]
+ } else {
- delete _tQCHLD[p]
- if (p in _tPREV) {
- _tNEXT[_tPREV[f] = _tPREV[p]] =
f
- delete _tPREV[p]
- }
- for (; f in _tNEXT; f = _tNEXT[f]) {
- delete _tPARENT[f]
- }
- delete _tPARENT[f]
- if (p in _tNEXT) {
- _tPREV[_tNEXT[f] = _tNEXT[p]] =
f
- delete _tNEXT[p]
- }
- return f
++ _tFCHLD[pp] = f
+ }
- } else {
- if (p in _tPARENT) {
- pp = _tPARENT[p]
- delete _tPARENT[p]
- if (p in _tPREV) {
- if (p in _tNEXT) {
- _tNEXT[_tPREV[f] =
_tPREV[p]] = f = _tNEXT[p]
- delete _tNEXT[p]
- } else {
- delete
_tNEXT[_tLCHLD[pp] = _tPREV[p]]
- }
- delete _tPREV[p]
- _tQCHLD[pp]--
- } else {
- if (p in _tNEXT) {
- delete
_tPREV[_tFCHLD[pp] = _tNEXT[p]]
- delete _tNEXT[p]
- _tQCHLD[pp]--
- } else {
- delete _tFCHLD[pp]
- delete _tLCHLD[pp]
- delete _tQCHLD[pp]
- }
- }
- } else {
- if (p in _tPREV) {
- if (p in _tNEXT) {
- _tNEXT[_tPREV[f] =
_tPREV[p]] = f = _tNEXT[p]
- delete _tNEXT[p]
- } else {
- delete _tNEXT[_tPREV[p]]
- }
- delete _tPREV[p]
- } else {
- if (p in _tNEXT) {
- delete _tPREV[_tNEXT[p]]
- delete _tNEXT[p]
- }
- }
++ for (; f in _tNEXT; f = _tNEXT[f]) {
++ _tPARENT[f] = pp
+ }
- }
- }
- return p
- }
-
- function _tbrunframe(f, p, p0, p1)
- {
- return _tbframe((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tbrunframex(f, p, p0, p1)
- {
- return _tbframex((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tbrunpass(f, p, p0, p1)
- {
- return _tbpass((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tbrunpassx(f, p, p0, p1)
- {
- return _tbpassx((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tdel(p, i)
- {
- if (p in _) {
- _texclude(p)
- for (i in _ptr[p]) {
- if (isarray(_ptr[p][i])) {
- _tdel_i1(_ptr[p][i])
++ _tPARENT[f] = pp
++ if (p in _tNEXT) {
++ _tPREV[_tNEXT[f] = _tNEXT[p]] = f
++ delete _tNEXT[p]
+ } else {
- if (i = _ptr[p][i]) {
- _tdel(i)
- }
++ _tLCHLD[pp] = f
+ }
- }
- if (p in _tFCHLD) {
- i = _tFCHLD[p]
- do {
- i = ((i in _tNEXT ? _tNEXT[i] : ""))
_tdel_i0(i)
- } while (i)
- }
- delete _[p]
- _UIDSDEL[p]
- }
- }
-
- function _tdel_i0(p, i)
- {
- for (i in _ptr[p]) {
- if (isarray(_ptr[p][i])) {
- _tdel_i1(_ptr[p][i])
++ _tQCHLD[pp] = _tQCHLD[pp] + _tQCHLD[p] - 1
++ delete _tQCHLD[p]
++ return f
+ } else {
- if (i = _ptr[p][i]) {
- _tdel(i)
++ delete _tQCHLD[p]
++ if (p in _tPREV) {
++ _tNEXT[_tPREV[f] = _tPREV[p]] = f
++ delete _tPREV[p]
+ }
- }
- }
- if (p in _tFCHLD) {
- i = _tFCHLD[p]
- do {
- i = ((i in _tNEXT ? _tNEXT[i] : "")) _tdel_i0(i)
- } while (i)
- }
- delete _[p]
- _UIDSDEL[p]
- }
-
- function _tdel_i1(A, i)
- {
- for (i in A) {
- if (isarray(A[i])) {
- _tdel_i1(A[i])
- } else {
- if (i = A[i]) {
- _tdel(i)
++ for (; f in _tNEXT; f = _tNEXT[f]) {
++ delete _tPARENT[f]
+ }
++ delete _tPARENT[f]
++ if (p in _tNEXT) {
++ _tPREV[_tNEXT[f] = _tNEXT[p]] = f
++ delete _tNEXT[p]
++ }
++ return f
+ }
- }
- }
-
- function _tdelete(p, v)
- {
- if (p) {
- _wLCHLD(_tDELPTR, p)
- }
- return v
- }
-
- function _tdelitem(p)
- {
- if (p) {
- if ("HOST" in _PTR[p] && "ITEMNAME" in _[p]) {
- return
_wLCHLD(_PTR[_PTR[p]["HOST"]]["ITEM"][_[p]["ITEMNAME"]], p)
- }
- _tdelete(p)
- return p
- }
- }
-
- function _tend(a, b)
- {
- if (b == "") {
- return (_t_ENDF[_t_ENDF[0]] = a)
+ } else {
- return (_t_ENDF[_t_ENDF[0] + a] = b)
- }
- }
-
- function _texclude(p, v, pp)
- {
- if (p in _) {
if (p in _tPARENT) {
-
#_____________________________________________________________________________
-
###################################################
# TEST!!!
pp = _tPARENT[p]
delete _tPARENT[p]
if (p in _tPREV) {
if (p in _tNEXT) {
-- _tPREV[_tNEXT[v] = _tNEXT[p]] =
v = _tPREV[p]
++ _tNEXT[_tPREV[f] = _tPREV[p]] =
f = _tNEXT[p]
delete _tNEXT[p]
} else {
delete _tNEXT[_tLCHLD[pp] =
_tPREV[p]]
}
delete _tPREV[p]
++ _tQCHLD[pp]--
} else {
if (p in _tNEXT) {
delete _tPREV[_tFCHLD[pp] =
_tNEXT[p]]
delete _tNEXT[p]
++ _tQCHLD[pp]--
} else {
delete _tFCHLD[pp]
delete _tLCHLD[pp]
- delete _tQCHLD[pp]
- return p
- }
- }
- --_tQCHLD[pp]
- } else {
- if (p in _tPREV) {
- if (p in _tNEXT) {
- _tPREV[_tNEXT[v] = _tNEXT[p]] =
v = _tPREV[p]
- delete _tNEXT[p]
- } else {
- delete _tNEXT[_tPREV[p]]
- }
- delete _tPREV[p]
- } else {
- if (p in _tNEXT) {
- delete _tPREV[_tNEXT[p]]
- delete _tNEXT[p]
- }
- }
- }
- return p
- }
- }
-
- function _tframe(fF, p, p0, p1, p2)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- p = (_isptr(p) ? (isarray(fF) ? _tframe_i1(fF, p, p0, p1, p2) :
_tframe_i0(fF, p, p0, p1, p2)) : "")
- --_t_ENDF[0]
- return p
- }
-
- function _tframe0(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
- if (isarray(f)) {
- return _tframe0_i0(f, p)
- }
- _tframex_p0(A, f, 0)
- return _th0(_tframe0_i0(A, p), --_TEND[_ARRLEN])
- }
- }
-
- function _tframe0_i0(A, p, f)
- {
- if (p in _tLINK) {
- _tframe_link = p
- if ("`" in A) {
- f = A["`"]
- while (p in _tLINK) {
- @f(p = _tLINK[p])
- }
- } else {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- }
- } else {
- _tframe_link = ""
- }
- if (p in _tFCHLD) {
- return (_tframe0_i2(A, "^", p) _tframe0_i1(A,
_tFCHLD[p]))
- }
- return _tframe0_i2(A, ".", p)
- }
-
- function _tframe0_i1(A, p)
- {
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe0_i0(A, p) _tframe0_i1(A, _tNEXT[p]))
- }
- return _tframe0_i0(A, p)
- }
-
- function _tframe0_i2(A, m, p)
- {
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
- }
- }
- m = A[m]
- return @m(p)
- }
- }
-
- function _tframe1(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
- if (isarray(f)) {
- return _tframe1_i0(f, p, p0)
- }
- _tframex_p0(A, f, 1)
- return _th0(_tframe1_i0(A, p, p0), --_TEND[_ARRLEN])
- }
- }
-
- function _tframe1_i0(A, p, p0)
- {
- _tframe_link = p
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- if (p in _tFCHLD) {
- return (_tframe1_i2(A, "^", p, p0) _tframe1_i1(A,
_tFCHLD[p], p0))
- }
- return _tframe1_i2(A, ".", p, p0)
- }
-
- function _tframe1_i1(A, p, p0)
- {
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe1_i0(A, p, p0) _tframe1_i1(A, _tNEXT[p],
p0))
- }
- return _tframe1_i0(A, p, p0)
- }
-
- function _tframe1_i2(A, m, p, p0)
- {
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
- }
- }
- m = A[m]
- return @m(p, p0)
- }
- }
-
- function _tframe2(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
- if (isarray(f)) {
- return _tframe2_i0(f, p, p0, p1)
- }
- _tframex_p0(A, f, 2)
- return _th0(_tframe2_i0(A, p, p0, p1), --_TEND[_ARRLEN])
- }
- }
-
- function _tframe2_i0(A, p, p0, p1)
- {
- _tframe_link = p
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- if (p in _tFCHLD) {
- return (_tframe2_i2(A, "^", p, p0, p1) _tframe2_i1(A,
_tFCHLD[p], p0, p1))
- }
- return _tframe2_i2(A, ".", p, p0, p1)
- }
-
- function _tframe2_i1(A, p, p0, p1)
- {
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe2_i0(A, p, p0, p1) _tframe2_i1(A,
_tNEXT[p], p0, p1))
- }
- return _tframe2_i0(A, p, p0, p1)
- }
-
- function _tframe2_i2(A, m, p, p0, p1)
- {
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
- }
- }
- m = A[m]
- return @m(p, p0, p1)
- }
- }
-
- function _tframe3(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
- if (isarray(f)) {
- return _tframe3_i0(f, p, p0, p1, p2)
- }
- _tframex_p0(A, f, 3)
- return _th0(_tframe3_i0(A, p, p0, p1, p2),
--_TEND[_ARRLEN])
- }
- }
-
- function _tframe3_i0(A, p, p0, p1, p2)
- {
- _tframe_link = p
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- if (p in _tFCHLD) {
- return (_tframe3_i2(A, "^", p, p0, p1, p2)
_tframe3_i1(A, _tFCHLD[p], p0, p1, p2))
- }
- return _tframe3_i2(A, ".", p, p0, p1, p2)
- }
-
- function _tframe3_i1(A, p, p0, p1, p2)
- {
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe3_i0(A, p, p0, p1, p2) _tframe3_i1(A,
_tNEXT[p], p0, p1, p2))
- }
- return _tframe3_i0(A, p, p0, p1, p2)
- }
-
- function _tframe3_i2(A, m, p, p0, p1, p2)
- {
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
+ delete _tQCHLD[pp]
- return p
+ }
+ }
- --_tQCHLD[pp]
+ } else {
+ if (p in _tPREV) {
+ if (p in _tNEXT) {
- _tPREV[_tNEXT[v] = _tNEXT[p]] =
v = _tPREV[p]
++ _tNEXT[_tPREV[f] = _tPREV[p]] =
f = _tNEXT[p]
+ delete _tNEXT[p]
+ } else {
+ delete _tNEXT[_tPREV[p]]
+ }
+ delete _tPREV[p]
+ } else {
+ if (p in _tNEXT) {
+ delete _tPREV[_tNEXT[p]]
+ delete _tNEXT[p]
+ }
}
}
- return p
- }
- }
-
- function _tframe(fF, p, p0, p1, p2)
- {
- # _tDLINK progressive development: concrete _tDLINK
function\processing algo; all frame's families support
-
#_____________________________________________________________________________
- ###############################################
- delete _t_ENDF[++_t_ENDF[0]]
- p = (_isptr(p) ? (isarray(fF) ? _tframe_i1(fF, p, p0, p1, p2) :
_tframe_i0(fF, p, p0, p1, p2)) : "")
- --_t_ENDF[0]
- return p
- }
-
- function _tframe0(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
-
#_____________________________________________________________________________
- #########################################
- if (isarray(f)) {
- return _tframe0_i0(f, p)
- }
- _tframex_p0(A, f, 0)
- return _th0(_tframe0_i0(A, p), --_TEND[_ARRLEN])
- m = A[m]
- return @m(p, p0, p1, p2)
}
}
--
- function _tframe0_i0(A, p, f)
- {
- if (p in _tLINK) {
- #_______________________________________________
- _tframe_link = p
- if ("`" in A) {
- f = A["`"]
- while (p in _tLINK) {
- @f(p = _tLINK[p])
- }
- function _tframe4(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
- if (isarray(f)) {
- return _tframe4_i0(f, p, p0, p1, p2, p3)
++ return p
++}
++
++#_________________________________________________________________
++function _tbrunframe(f, p, p0, p1)
++{
++ ###################################
++ return _tbframe((f ? f : "_trunframe_i0"), p, p0, p1)
++}
++
++#_________________________________________________________________
++function _tbrunframex(f, p, p0, p1)
++{
++ ##################################
++ return _tbframex((f ? f : "_trunframe_i0"), p, p0, p1)
++}
++
++#_________________________________________________________________
++function _tbrunpass(f, p, p0, p1)
++{
++ ####################################
++ return _tbpass((f ? f : "_trunframe_i0"), p, p0, p1)
++}
++
++#_________________________________________________________________
++function _tbrunpassx(f, p, p0, p1)
++{
++ ###################################
++ return _tbpassx((f ? f : "_trunframe_i0"), p, p0, p1)
++}
++
++#_____________________________________________________________________________
++function _tdel(p, i)
++{
++ ##########################################################
++ if (p in _) {
++ _texclude(p)
++ for (i in _ptr[p]) {
++ if (isarray(_ptr[p][i])) {
++ _tdel_i1(_ptr[p][i])
+ } else {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- }
- } else {
- _tframe_link = ""
- }
- if (p in _tFCHLD) {
- return (_tframe0_i2(A, "^", p) _tframe0_i1(A,
_tFCHLD[p]))
- }
- return _tframe0_i2(A, ".", p)
- }
-
- function _tframe0_i1(A, p)
- {
- #_______________________________________________
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe0_i0(A, p) _tframe0_i1(A, _tNEXT[p]))
- }
- return _tframe0_i0(A, p)
- }
-
- function _tframe0_i2(A, m, p)
- {
- #_______________________________________________
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
++ if (i = _ptr[p][i]) {
++ _tdel(i)
+ }
}
- m = A[m]
- return @m(p)
- }
- }
-
- function _tframe1(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
-
#_________________________________________________________________
- #############################
- if (isarray(f)) {
- return _tframe1_i0(f, p, p0)
- }
- _tframex_p0(A, f, 1)
- return _th0(_tframe1_i0(A, p, p0), --_TEND[_ARRLEN])
- }
- }
-
- function _tframe1_i0(A, p, p0)
- {
- #_______________________________________________
- _tframe_link = p
- while (p in _tLINK) {
- p = _tLINK[p]
- _tframex_p0(A, f, 4)
- return _th0(_tframe4_i0(A, p, p0, p1, p2, p3),
--_TEND[_ARRLEN])
- }
- }
-
- function _tframe4_i0(A, p, p0, p1, p2, p3)
- {
- _tframe_link = p
- while (p in _tLINK) {
- p = _tLINK[p]
}
if (p in _tFCHLD) {
- return (_tframe1_i2(A, "^", p, p0) _tframe1_i1(A,
_tFCHLD[p], p0))
- }
- return _tframe1_i2(A, ".", p, p0)
- }
-
- function _tframe1_i1(A, p, p0)
- {
- #_______________________________________________
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe1_i0(A, p, p0) _tframe1_i1(A, _tNEXT[p],
p0))
- }
- return _tframe1_i0(A, p, p0)
- }
-
- function _tframe1_i2(A, m, p, p0)
- {
- #_______________________________________________
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
- }
- }
- m = A[m]
- return @m(p, p0)
- return (_tframe4_i2(A, "^", p, p0, p1, p2, p3)
_tframe4_i1(A, _tFCHLD[p], p0, p1, p2, p3))
- }
- return _tframe4_i2(A, ".", p, p0, p1, p2, p3)
- }
-
- function _tframe4_i1(A, p, p0, p1, p2, p3)
- {
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe4_i0(A, p, p0, p1, p2, p3)
_tframe4_i1(A, _tNEXT[p], p0, p1, p2, p3))
++ i = _tFCHLD[p]
++ do {
++ i = ((i in _tNEXT ? _tNEXT[i] : "")) _tdel_i0(i)
++ } while (i)
}
- return _tframe4_i0(A, p, p0, p1, p2, p3)
++ delete _[p]
++ _UIDSDEL[p]
}
++}
- function _tframe2(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
-
#_________________________________________________________________
- #############################
- if (isarray(f)) {
- return _tframe2_i0(f, p, p0, p1)
- function _tframe4_i2(A, m, p, p0, p1, p2, p3)
- {
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
- }
++#_____________________________________________________
++function _tdel_i0(p, i)
++{
++ for (i in _ptr[p]) {
++ if (isarray(_ptr[p][i])) {
++ _tdel_i1(_ptr[p][i])
++ } else {
++ if (i = _ptr[p][i]) {
++ _tdel(i)
}
- _tframex_p0(A, f, 2)
- return _th0(_tframe2_i0(A, p, p0, p1), --_TEND[_ARRLEN])
- }
- }
-
- function _tframe2_i0(A, p, p0, p1)
- {
- #_______________________________________________
- _tframe_link = p
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- if (p in _tFCHLD) {
- return (_tframe2_i2(A, "^", p, p0, p1) _tframe2_i1(A,
_tFCHLD[p], p0, p1))
- }
- return _tframe2_i2(A, ".", p, p0, p1)
- }
-
- function _tframe2_i1(A, p, p0, p1)
- {
- #_______________________________________________
- if (_TEND[_ARRLEN] in _TEND) {
- return
- m = A[m]
- return @m(p, p0, p1, p2, p3)
- }
- }
-
- function _tframe_i0(f, p, p0, p1, p2, a)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
}
- if (p in _tNEXT) {
- return (_tframe2_i0(A, p, p0, p1) _tframe2_i1(A,
_tNEXT[p], p0, p1))
- }
- return _tframe2_i0(A, p, p0, p1)
- return ((p in _tFCHLD ? _tmframe_i0(f, _tFCHLD[p], p0, p1, p2)
: (p in _tDLINK ? @f(_tDLINK[p], p0, p1, p2) : @f(p, p0, p1, p2))))
}
--
- function _tframe2_i2(A, m, p, p0, p1)
- {
- #_______________________________________________
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
- }
- function _tframe_i1(F, p, p0, p1, p2, a)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
++ if (p in _tFCHLD) {
++ i = _tFCHLD[p]
++ do {
++ i = ((i in _tNEXT ? _tNEXT[i] : "")) _tdel_i0(i)
++ } while (i)
++ }
++ delete _[p]
++ _UIDSDEL[p]
++}
++
++#_____________________________________________________
++function _tdel_i1(A, i)
++{
++ for (i in A) {
++ if (isarray(A[i])) {
++ _tdel_i1(A[i])
++ } else {
++ if (i = A[i]) {
++ _tdel(i)
+ }
- m = A[m]
- return @m(p, p0, p1)
}
- return ((p in _tFCHLD ? (("." in F ? _th1(a = F["."], @a(p, p0,
p1, p2)) : "")) _tmframe_i1(F, _tFCHLD[p], p0, p1, p2) : (">" in F ? _th1(a =
F[">"], (p in _tDLINK ? @a(_tDLINK[p], p0, p1, p2) : @a(p, p0, p1, p2))) : "")))
}
++}
- function _tframe3(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
-
#_________________________________________________________________
- #############################
- if (isarray(f)) {
- return _tframe3_i0(f, p, p0, p1, p2)
- }
- _tframex_p0(A, f, 3)
- return _th0(_tframe3_i0(A, p, p0, p1, p2),
--_TEND[_ARRLEN])
- }
- function _tframex(f, p, p0, p1)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tframex_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
++#_____________________________________________________________________________
++function _tdelete(p, v)
++{
++ #######################################################
# REMAKE EXCLUDE
++ if (p) {
++ _wLCHLD(_tDELPTR, p)
}
++ return v
++}
- function _tframe3_i0(A, p, p0, p1, p2)
- {
- #_______________________________________________
- _tframe_link = p
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- if (p in _tFCHLD) {
- return (_tframe3_i2(A, "^", p, p0, p1, p2)
_tframe3_i1(A, _tFCHLD[p], p0, p1, p2))
- function _tframex_i0(f, p, p0, p1)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
++#_________________________________________________________________
++function _tdelitem(p)
++{
++ #############################################
++ if (p) {
++ if ("HOST" in _PTR[p] && "ITEMNAME" in _[p]) {
++ return
_wLCHLD(_PTR[_PTR[p]["HOST"]]["ITEM"][_[p]["ITEMNAME"]], p)
}
- return _tframe3_i2(A, ".", p, p0, p1, p2)
- return ((p in _tFCHLD ? _tmframex(f, _tFCHLD[p], p0, p1) :
@f(p, p0, p1)))
++ _tdelete(p)
++ return p
}
++}
- function _tframe3_i1(A, p, p0, p1, p2)
- {
- #_______________________________________________
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe3_i0(A, p, p0, p1, p2) _tframe3_i1(A,
_tNEXT[p], p0, p1, p2))
- }
- return _tframe3_i0(A, p, p0, p1, p2)
- function _tframex_p0(A, f, q, i, B, C)
- {
- _tframe_qparam = q
- delete _TEND[++_TEND[_ARRLEN]]
- if (match(f, /\~(.*)$/, B)) {
- A["^~"] = A[".~"] = B[1]
- f = substr(f, 1, RSTART - 1)
- }
- A["."] = A["^"] = f
- return
- q = split(f, B, /;/)
- i = 0
- while (i < q) {
- _tframex_p1(A, C[i])
- while (++i <= q) {
- _tframex_p1(A, C[i], B[i])
- }
- }
++#_______________________________________________________________________
++function _tend(a, b)
++{
++ #####################################################
++ if (b == "") {
++ return (_t_ENDF[_t_ENDF[0]] = a)
++ } else {
++ return (_t_ENDF[_t_ENDF[0] + a] = b)
}
++}
- function _tframe3_i2(A, m, p, p0, p1, p2)
- {
- #_______________________________________________
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
- function _tframex_p1(A, v, i, r, B)
- {
- gsub(/[ \t]+/, "", v)
- while (match(v, /^([^~]*)~\/(([^\/\\]*\\.)*[^\/\\]*)\//, B)) {
- v = B[1] substr(v, RSTART + RLENGTH)
- r = B[2]
- }
- if (i == "") {
- if (v != "") {
- A["."] = v
- delete A["`"]
- delete A["^"]
- }
- if (r != "") {
- A[".~"] = A["`~"] = A["^~"] = r
++#_____________________________________________________________________________
++function _texclude(p, v, pp)
++{
++ ###################################################
# TEST!!!
++ if (p in _) {
++ if (p in _tPARENT) {
++ pp = _tPARENT[p]
++ delete _tPARENT[p]
++ if (p in _tPREV) {
++ if (p in _tNEXT) {
++ _tPREV[_tNEXT[v] = _tNEXT[p]] = v =
_tPREV[p]
++ delete _tNEXT[p]
++ } else {
++ delete _tNEXT[_tLCHLD[pp] = _tPREV[p]]
++ }
++ delete _tPREV[p]
++ } else {
++ if (p in _tNEXT) {
++ delete _tPREV[_tFCHLD[pp] = _tNEXT[p]]
++ delete _tNEXT[p]
++ } else {
++ delete _tFCHLD[pp]
++ delete _tLCHLD[pp]
++ delete _tQCHLD[pp]
++ return p
+ }
}
- m = A[m]
- return @m(p, p0, p1, p2)
- }
- }
-
- function _tframe4(f, p, p0, p1, p2, p3, A)
- {
- if (_isptr(p)) {
-
#_________________________________________________________________
- #############################
- if (isarray(f)) {
- return _tframe4_i0(f, p, p0, p1, p2, p3)
++ --_tQCHLD[pp]
+ } else {
- if (match(v, /!/)) {
- delete A[i]
++ if (p in _tPREV) {
++ if (p in _tNEXT) {
++ _tPREV[_tNEXT[v] = _tNEXT[p]] = v =
_tPREV[p]
++ delete _tNEXT[p]
++ } else {
++ delete _tNEXT[_tPREV[p]]
++ }
++ delete _tPREV[p]
+ } else {
- A[i] = v
- if (r != "") {
- A[i "~"] = r
++ if (p in _tNEXT) {
++ delete _tPREV[_tNEXT[p]]
++ delete _tNEXT[p]
+ }
}
- _tframex_p0(A, f, 4)
- return _th0(_tframe4_i0(A, p, p0, p1, p2, p3),
--_TEND[_ARRLEN])
}
++ return p
}
--
- function _tframe4_i0(A, p, p0, p1, p2, p3)
- {
- #_______________________________________________
- function _tgenuid(c)
- {
- for (_uidcntr in _UIDARR1) {
- delete _UIDARR1[_uidcntr]
- for (c in _UIDARR0) {
- _UIDS[_uidcntr c]
++}
++
++# _tDLINK progressive development: concrete _tDLINK function\processing algo;
all frame's families support
++#_____________________________________________________________________________
++function _tframe(fF, p, p0, p1, p2)
++{
++ ###############################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ p = (_isptr(p) ? (isarray(fF) ? _tframe_i1(fF, p, p0, p1, p2) :
_tframe_i0(fF, p, p0, p1, p2)) : "")
++ --_t_ENDF[0]
++ return p
++}
++
++#_____________________________________________________________________________
++function _tframe0(f, p, p0, p1, p2, p3, A)
++{
++ #########################################
++ if (_isptr(p)) {
++ if (isarray(f)) {
++ return _tframe0_i0(f, p)
++ }
++ _tframex_p0(A, f, 0)
++ return _th0(_tframe0_i0(A, p), --_TEND[_ARRLEN])
++ }
++}
++
++#_______________________________________________
++function _tframe0_i0(A, p, f)
++{
++ if (p in _tLINK) {
+ _tframe_link = p
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- if (p in _tFCHLD) {
- return (_tframe4_i2(A, "^", p, p0, p1, p2, p3)
_tframe4_i1(A, _tFCHLD[p], p0, p1, p2, p3))
++ if ("`" in A) {
++ f = A["`"]
++ while (p in _tLINK) {
++ @f(p = _tLINK[p])
+ }
- delete _UIDS[_uidcntr c]
- return (_uidcntr c)
- }
- return _fatal("_tUID: Out of UID range")
- }
-
- function _tgenuid_init(a, b, A)
- {
- _ptrlength = 4
- a = "\222\223\224\225\226\227\230\231\232"
"\240\241\242\243\244\245\246\247"
"\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277"
"\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317"
"\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337"
- split(a, A, "")
- for (a in A) {
- for (b in A) {
- _UIDARR0[A[a] A[b]] _UIDARR1[A[a] A[b]]
++ } else {
++ while (p in _tLINK) {
++ p = _tLINK[p]
+ }
}
- return _tframe4_i2(A, ".", p, p0, p1, p2, p3)
- _uidcntr = A[a] A[b]
++ } else {
++ _tframe_link = ""
}
-
- function _tgetitem(p, n, a, b)
- {
- if (p) {
- if (isarray(_PTR[p]["ITEM"]) && n in _PTR[p]["ITEM"]) {
- a = _PTR[p]["ITEM"][n]
- } else {
- a = _PTR[p]["ITEM"][n] = _N()
- }
- if (! (b = _rFCHLD(a))) {
- b = _wLCHLD(a, _N())
- _PTR[b]["HOST"] = p
- _[b]["ITEMNAME"] = n
- }
- return b
- }
++ if (p in _tFCHLD) {
++ return (_tframe0_i2(A, "^", p) _tframe0_i1(A, _tFCHLD[p]))
+ }
++ return _tframe0_i2(A, ".", p)
++}
- function _tframe4_i1(A, p, p0, p1, p2, p3)
- {
- #_______________________________________________
- if (_TEND[_ARRLEN] in _TEND) {
- return
- }
- if (p in _tNEXT) {
- return (_tframe4_i0(A, p, p0, p1, p2, p3)
_tframe4_i1(A, _tNEXT[p], p0, p1, p2, p3))
- }
- return _tframe4_i0(A, p, p0, p1, p2, p3)
- function _tgetsp(p)
- {
- return _tSTACK[p][0]
++#_______________________________________________
++function _tframe0_i1(A, p)
++{
++ if (_TEND[_ARRLEN] in _TEND) {
++ return
+ }
-
- function _th0(p, p1, p2, p3)
- {
- return p
++ if (p in _tNEXT) {
++ return (_tframe0_i0(A, p) _tframe0_i1(A, _tNEXT[p]))
}
++ return _tframe0_i0(A, p)
++}
- function _tframe4_i2(A, m, p, p0, p1, p2, p3)
- {
- #_______________________________________________
- _tframe_dlink = p
- while (p in _tDLINK) {
- p = _tDLINK[p]
- }
- if (m in A) {
- if (m "~" in A) {
- if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
- return
- }
- function _th1(p0, p, p2, p3)
- {
- return p
++#_______________________________________________
++function _tframe0_i2(A, m, p)
++{
++ _tframe_dlink = p
++ while (p in _tDLINK) {
++ p = _tDLINK[p]
+ }
-
- function _th10(p0, p1)
- {
- return (p1 p0)
++ if (m in A) {
++ if (m "~" in A) {
++ if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
++ return
+ }
- m = A[m]
- return @m(p, p0, p1, p2, p3)
+ }
++ m = A[m]
++ return @m(p)
}
++}
- function _tframe_i0(f, p, p0, p1, p2, a)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- function _th2(p0, p1, r, p3)
- {
- return p
++#_________________________________________________________________
++function _tframe1(f, p, p0, p1, p2, p3, A)
++{
++ #############################
++ if (_isptr(p)) {
++ if (isarray(f)) {
++ return _tframe1_i0(f, p, p0)
+ }
- return ((p in _tFCHLD ? _tmframe_i0(f, _tFCHLD[p], p0, p1, p2)
: (p in _tDLINK ? @f(_tDLINK[p], p0, p1, p2) : @f(p, p0, p1, p2))))
++ _tframex_p0(A, f, 1)
++ return _th0(_tframe1_i0(A, p, p0), --_TEND[_ARRLEN])
}
++}
- function _tframe_i1(F, p, p0, p1, p2, a)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tFCHLD ? (("." in F ? _th1(a = F["."], @a(p, p0,
p1, p2)) : "")) _tmframe_i1(F, _tFCHLD[p], p0, p1, p2) : (">" in F ? _th1(a =
F[">"], (p in _tDLINK ? @a(_tDLINK[p], p0, p1, p2) : @a(p, p0, p1, p2))) : "")))
- function _th3(p0, p1, p2, r)
- {
- return p
++#_______________________________________________
++function _tframe1_i0(A, p, p0)
++{
++ _tframe_link = p
++ while (p in _tLINK) {
++ p = _tLINK[p]
}
--
- function _tframex(f, p, p0, p1)
- {
-
#_______________________________________________________________________
- ############################################
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tframex_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- function _tifend(l)
- {
- return ((_t_ENDF[0] + l in _t_ENDF ? (_t_ENDF[_t_ENDF[0] + l] ?
_t_ENDF[_t_ENDF[0] + l] : 1) : ""))
++ if (p in _tFCHLD) {
++ return (_tframe1_i2(A, "^", p, p0) _tframe1_i1(A, _tFCHLD[p],
p0))
}
++ return _tframe1_i2(A, ".", p, p0)
++}
- function _tframex_i0(f, p, p0, p1)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tFCHLD ? _tmframex(f, _tFCHLD[p], p0, p1) :
@f(p, p0, p1)))
- function _tinit_i0(D, S, i)
- {
- for (i in S) {
- if (isarray(S[i])) {
- if (! isarray(D[i][""])) {
- delete D[i]
- D[i][""]
- delete D[i][""]
- }
- _N_i0(D[i], S[i])
- } else {
- if (isarray(D[i])) {
- delete D[i]
- }
- D[i] = S[i]
- }
- }
++#_______________________________________________
++function _tframe1_i1(A, p, p0)
++{
++ if (_TEND[_ARRLEN] in _TEND) {
++ return
}
-
- function _tlist(L, p, f)
- {
- _tlisti1 = _tlisti0 = L[_ARRLEN] + 0
- if (f == 0 && f == "") {
- _tlist_i0(L, p)
- } else {
- _tlistf0 = (f in _TAPI ? _TAPI[f] : f)
- _tlist_i1(L, p)
- }
- return (_tlisti0 - _tlisti1)
++ if (p in _tNEXT) {
++ return (_tframe1_i0(A, p, p0) _tframe1_i1(A, _tNEXT[p], p0))
+ }
++ return _tframe1_i0(A, p, p0)
++}
- function _tframex_p0(A, f, q, i, B, C)
- {
- #_____________________________________________________
- _tframe_qparam = q
- delete _TEND[++_TEND[_ARRLEN]]
- if (match(f, /\~(.*)$/, B)) {
- A["^~"] = A[".~"] = B[1]
- f = substr(f, 1, RSTART - 1)
- }
- A["."] = A["^"] = f
- return
- q = split(f, B, /;/)
- i = 0
- while (i < q) {
- _tframex_p1(A, C[i])
- while (++i <= q) {
- _tframex_p1(A, C[i], B[i])
- function _tlist_i0(L, p, q, i)
- {
- if (isarray(p)) {
- q = p[_ARRLEN]
- i = 0
- while (i++ < q) {
- _tlist_i0(L, p[i])
- }
- return
- }
- if (p in _) {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- L[++_tlisti0] = p
- if (p in _tFCHLD) {
- for (p = _tFCHLD[p]; p; p = (p in _tNEXT ?
_tNEXT[p] : "")) {
- _tlist_i0(L, p)
- }
- }
- }
++#_______________________________________________
++function _tframe1_i2(A, m, p, p0)
++{
++ _tframe_dlink = p
++ while (p in _tDLINK) {
++ p = _tDLINK[p]
+ }
-
- function _tlist_i1(L, p)
- {
- if (isarray(p)) {
- q = p[_ARRLEN]
- i = 0
- while (i++ < q) {
- _tlist_i1(L, p[i])
- }
- return
- }
- if (p in _) {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- if (_tlistf0 in _[p]) {
- L[++_tlisti0] = p
- }
- if (p in _tFCHLD) {
- for (p = _tFCHLD[p]; p; p = (p in _tNEXT ?
_tNEXT[p] : "")) {
- _tlist_i1(L, p)
- }
++ if (m in A) {
++ if (m "~" in A) {
++ if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
++ return
}
}
++ m = A[m]
++ return @m(p, p0)
}
++}
- function _tframex_p1(A, v, i, r, B)
- {
- #_______________________________________________
- gsub(/[ \t]+/, "", v)
- while (match(v, /^([^~]*)~\/(([^\/\\]*\\.)*[^\/\\]*)\//, B)) {
- v = B[1] substr(v, RSTART + RLENGTH)
- r = B[2]
- }
- if (i == "") {
- if (v != "") {
- A["."] = v
- delete A["`"]
- delete A["^"]
- }
- if (r != "") {
- A[".~"] = A["`~"] = A["^~"] = r
- }
- } else {
- if (match(v, /!/)) {
- delete A[i]
- } else {
- A[i] = v
- if (r != "") {
- A[i "~"] = r
- }
- }
- function _tmbframe(f, p, p0, p1, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- t = t _tbframe_i0(f, p, p0, p1, p = (p in _tPREV ?
_tPREV[p] : ""))
++#_________________________________________________________________
++function _tframe2(f, p, p0, p1, p2, p3, A)
++{
++ #############################
++ if (_isptr(p)) {
++ if (isarray(f)) {
++ return _tframe2_i0(f, p, p0, p1)
}
- return t
++ _tframex_p0(A, f, 2)
++ return _th0(_tframe2_i0(A, p, p0, p1), --_TEND[_ARRLEN])
}
++}
- function _tgenuid(c)
- {
- for (_uidcntr in _UIDARR1) {
- #_____________________________________________________
- # F v action
- #-----------------------------------------------------
- # - * no additional action
- # A B delete A[p] and define A[p] as
array; copy array B to array A[p]
- # A - delete A[p]
- # A "*" delete A[p]; A[p]="*"
- # "*" B define _[p]["*"] as array; copy
array B to array _[p]["*"]
- # "*" - run _mpu program "*" for `p
- # "*0" "*1" _[p]["*0"]="*1"
-
#___________________________________________________________
- delete _UIDARR1[_uidcntr]
- for (c in _UIDARR0) {
- _UIDS[_uidcntr c]
- }
- delete _UIDS[_uidcntr c]
- return (_uidcntr c)
- }
- return _fatal("_tUID: Out of UID range")
- function _tmbframex(f, p, p0, p1, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- t = t _tbframex_i0(f, p, p0, p1)
- p = (p in _tPREV ? _tPREV[p] : "")
- }
- return t
++#_______________________________________________
++function _tframe2_i0(A, p, p0, p1)
++{
++ _tframe_link = p
++ while (p in _tLINK) {
++ p = _tLINK[p]
+ }
-
- function _tmbpass(f, p, p0, p1)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- p0 = _tbpass_i0(f, p, p0, p1, p = (p in _tPREV ?
_tPREV[p] : ""))
- }
- return p0
++ if (p in _tFCHLD) {
++ return (_tframe2_i2(A, "^", p, p0, p1) _tframe2_i1(A,
_tFCHLD[p], p0, p1))
}
++ return _tframe2_i2(A, ".", p, p0, p1)
++}
- function _tgenuid_init(a, b, A)
- {
- #_____________________________________________________
- _ptrlength = 4
- a = "\222\223\224\225\226\227\230\231\232"
"\240\241\242\243\244\245\246\247"
"\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277"
"\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317"
"\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337"
- split(a, A, "")
- for (a in A) {
- for (b in A) {
- _UIDARR0[A[a] A[b]] _UIDARR1[A[a] A[b]]
- }
- }
- _uidcntr = A[a] A[b]
- function _tmbpassx(f, p, p0, p1)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- p0 = _tbpassx_i0(f, p, p0, p1)
- p = (p in _tPREV ? _tPREV[p] : "")
- }
- return p0
++#_______________________________________________
++function _tframe2_i1(A, p, p0, p1)
++{
++ if (_TEND[_ARRLEN] in _TEND) {
++ return
}
-
- function _tmframe(f, p, p0, p1, p2)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tmframe_i0(f, p, p0, p1, p2) : "")
- --_t_ENDF[0]
- return f
++ if (p in _tNEXT) {
++ return (_tframe2_i0(A, p, p0, p1) _tframe2_i1(A, _tNEXT[p], p0,
p1))
+ }
++ return _tframe2_i0(A, p, p0, p1)
++}
- function _tgetitem(p, n, a, b)
- {
- if (p) {
- # if ( F in _TCLASS )
{ _[p]["CLASS"]=_TCLASS[F]; _tapi(p); return p }
- # # ??? _mpu(F,p)
???
- # return p }
- # _[p][F]=v; return p }
-
#_______________________________________________________________________
- ############################################
- if (isarray(_PTR[p]["ITEM"]) && n in _PTR[p]["ITEM"]) {
- a = _PTR[p]["ITEM"][n]
- } else {
- a = _PTR[p]["ITEM"][n] = _N()
- }
- if (! (b = _rFCHLD(a))) {
- b = _wLCHLD(a, _N())
- _PTR[b]["HOST"] = p
- _[b]["ITEMNAME"] = n
- function _tmframe_i0(f, p, p0, p1, p2, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- t = t _tframe_i0(f, p, p0, p1, p2, p = (p in _tNEXT ?
_tNEXT[p] : ""))
- }
- return t
++#_______________________________________________
++function _tframe2_i2(A, m, p, p0, p1)
++{
++ _tframe_dlink = p
++ while (p in _tDLINK) {
++ p = _tDLINK[p]
+ }
-
- function _tmframe_i1(F, p, p0, p1, p2, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- t = t _tframe_i1(F, p, p0, p1, p2, p = (p in _tNEXT ?
_tNEXT[p] : ""))
++ if (m in A) {
++ if (m "~" in A) {
++ if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
++ return
+ }
- return b
}
- return t
++ m = A[m]
++ return @m(p, p0, p1)
}
++}
- function _tgetsp(p)
- {
-
#_________________________________________________________________
- ###############################################
- return _tSTACK[p][0]
- }
-
- function _th0(p, p1, p2, p3)
- {
-
####################################################################################
-
#_____________________________________________________________________________
- return p
- function _tmframex(f, p, p0, p1, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- t = t _tframex_i0(f, p, p0, p1)
- p = (p in _tNEXT ? _tNEXT[p] : "")
++#_________________________________________________________________
++function _tframe3(f, p, p0, p1, p2, p3, A)
++{
++ #############################
++ if (_isptr(p)) {
++ if (isarray(f)) {
++ return _tframe3_i0(f, p, p0, p1, p2)
+ }
- return t
++ _tframex_p0(A, f, 3)
++ return _th0(_tframe3_i0(A, p, p0, p1, p2), --_TEND[_ARRLEN])
}
++}
- function _th1(p0, p, p2, p3)
- {
- ##########################################
-
#_________________________________________________________________
- return p
- function _tmpass(f, p, p0, p1)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- p0 = _tbpass_i0(f, p, p0, p1, p = (p in _tNEXT ?
_tNEXT[p] : ""))
- }
- return p0
++#_______________________________________________
++function _tframe3_i0(A, p, p0, p1, p2)
++{
++ _tframe_link = p
++ while (p in _tLINK) {
++ p = _tLINK[p]
}
--
- function _th10(p0, p1)
- {
- ##############################
-
#_________________________________________________________________
- return (p1 p0)
- function _tmpassx(f, p, p0, p1)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
- p0 = _tbpassx_i0(f, p, p0, p1)
- p = (p in _tNEXT ? _tNEXT[p] : "")
- }
- return p0
++ if (p in _tFCHLD) {
++ return (_tframe3_i2(A, "^", p, p0, p1, p2) _tframe3_i1(A,
_tFCHLD[p], p0, p1, p2))
}
++ return _tframe3_i2(A, ".", p, p0, p1, p2)
++}
- function _th2(p0, p1, r, p3)
- {
- ##############################
-
#_________________________________________________________________
- return p
- function _torexp(r)
- {
- return _subseqon(_TOREXPB0, gensub(/(^[ \t]+)|(([ \t]*(\\)+)+[
\t]*)|([ \t]+$)/, "\\4", "G", _subseqoff(r, _TOREXPB0)), _TOREXPFN)
++#_______________________________________________
++function _tframe3_i1(A, p, p0, p1, p2)
++{
++ if (_TEND[_ARRLEN] in _TEND) {
++ return
}
--
- function _th3(p0, p1, p2, r)
- {
- ##############################
-
#_________________________________________________________________
- return p
- function _torexp_cmdstr(t)
- {
- return _strtorexp(gensub(/\^(.)/, "\\1", "G", t))
++ if (p in _tNEXT) {
++ return (_tframe3_i0(A, p, p0, p1, p2) _tframe3_i1(A, _tNEXT[p],
p0, p1, p2))
}
++ return _tframe3_i0(A, p, p0, p1, p2)
++}
- function _tifend(l)
- {
-
#_________________________________________________________________
- ###############################################
- return ((_t_ENDF[0] + l in _t_ENDF ? (_t_ENDF[_t_ENDF[0] + l] ?
_t_ENDF[_t_ENDF[0] + l] : 1) : ""))
- function _torexp_fmask(t)
- {
- return gensub(/\\\*/, ".*", "G", gensub(/\\\?/, ".?", "G",
_strtorexp(t)))
++#_______________________________________________
++function _tframe3_i2(A, m, p, p0, p1, p2)
++{
++ _tframe_dlink = p
++ while (p in _tDLINK) {
++ p = _tDLINK[p]
}
--
- function _tinit_i0(D, S, i)
- {
- for (i in S) {
- if (isarray(S[i])) {
- if (! isarray(D[i][""])) {
- # test _tbrochld fn; develope
tOBJ r\w func specification for brochld func
-
#_________________________________________________________________
- delete D[i]
- D[i][""]
- delete D[i][""]
- }
- _N_i0(D[i], S[i])
- } else {
- if (isarray(D[i])) {
- delete D[i]
- }
- D[i] = S[i]
- function _torexp_init()
- {
- _TOREXPFN[""] = "_strtorexp"
- _TOREXPFN["~"] = "_torexp_rexp"
- _TOREXPFN["="] = "_strtorexp"
- _TOREXPFN[">"] = "_torexp_cmdstr"
- _TOREXPFN["#"] = "_torexp_fmask"
- _TOREXPFN["\""] = "_torexp_dqstr"
- _TOREXPFN["'"] = "_torexp_sqstr"
++ if (m in A) {
++ if (m "~" in A) {
++ if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
++ return
+ }
+ }
++ m = A[m]
++ return @m(p, p0, p1, p2)
}
++}
- function _tlist(L, p, f)
- {
-
#_______________________________________________________________________
-
########################################################################
-
#_______________________________________________________________________
- # _N(arr\str\mpuptr,val) \ _n(arr\str\mpuptr,val)
- # This functions create new object and return ptr.
- # _n() - creates object from list of deleted
objects or if it's empty create new one, while _N() always create new one
- # It is strongly recommended to use _N() for the
objects that have some data outside of standart object arrays. Or - make
routines
- # that will clear outsided object data in case if
object deleting.
- #
- # IN: arr\str\mpu,val - (both
missed) just create obj and return ptr
- # arr,val -
create object and write arr[ptr]=val
- # str,val -
create object and write _[ptr][str]=val
- # mpuptr - NOT
ALLOWED (val missed) create object and run MPU-code specified by mpuptr with
created object ptr as primary parameter
- # MOD: -
- # OUT: -
- # RETURN: ptr -
pointer to newly created object
-
#_________________________________________________________________
- # _tdel(ptr)
- # This function exclude object from it's current
structure and delete it. ptr can be later used by function: _n() for creating
new object
- # Also same story will occured with all chields
and subchields of object specified by ptr.
- # ??? What happened with linked py _ptr[ptr]
objects ???
- #
- # IN: ptr
- pointer to object that will deleted
- # MOD: -
- # OUT: -
- # RETURN: undefined
-
#_________________________________________________________________
- # _isptr(ptr)
- # This function checks: is ptr is the object
pointer that is currently exist?
- # Unescaped remained data will be in data of
src_dst_ptr.
- #
- # IN: ptr
- string that will be tested
- # MOD: -
- # OUT: -
- # RETURN: undefined - if
ptr is not pointer to exist object
- # ptr
- if ptr is the pointer to exist object
-
#_________________________________________________________________
-
#_________________________________________________________________
- #
- # TO DESIGN:
- #
- # create basic objectapi interface support
- # modify everywhere checking ptr not by `if ( ptr )...', but by
`if ( ptr in _ )...'
- # _TMP0, _TMP1 name change to something like _DATA name ???
- # think about redesigning routines for not depending if ptr is
exist in tsysarrs: reason: performance\light code
- _tlisti1 = _tlisti0 = L[_ARRLEN] + 0
- if (f == 0 && f == "") {
- _tlist_i0(L, p)
- } else {
- _tlistf0 = (f in _TAPI ? _TAPI[f] : f)
- _tlist_i1(L, p)
- function _torexp_rexp(t)
- {
- return t
++#_________________________________________________________________
++function _tframe4(f, p, p0, p1, p2, p3, A)
++{
++ #############################
++ if (_isptr(p)) {
++ if (isarray(f)) {
++ return _tframe4_i0(f, p, p0, p1, p2, p3)
+ }
- return (_tlisti0 - _tlisti1)
++ _tframex_p0(A, f, 4)
++ return _th0(_tframe4_i0(A, p, p0, p1, p2, p3), --_TEND[_ARRLEN])
}
++}
- function _tlist_i0(L, p, q, i)
- {
- if (isarray(p)) {
- q = p[_ARRLEN]
- i = 0
- while (i++ < q) {
- _tlist_i0(L, p[i])
- }
- return
- }
- if (p in _) {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- L[++_tlisti0] = p
- if (p in _tFCHLD) {
- for (p = _tFCHLD[p]; p; p = (p in _tNEXT ?
_tNEXT[p] : "")) {
- _tlist_i0(L, p)
- }
- }
- }
- function _tpass(f, p, p0, p1)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tpass_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
++#_______________________________________________
++function _tframe4_i0(A, p, p0, p1, p2, p3)
++{
++ _tframe_link = p
++ while (p in _tLINK) {
++ p = _tLINK[p]
+ }
-
- function _tpass_i0(f, p, p0, p1, a)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tFCHLD ? _tmpass(f, _tFCHLD[p], p0, p1) : @f(p,
p0, p1)))
++ if (p in _tFCHLD) {
++ return (_tframe4_i2(A, "^", p, p0, p1, p2, p3) _tframe4_i1(A,
_tFCHLD[p], p0, p1, p2, p3))
}
++ return _tframe4_i2(A, ".", p, p0, p1, p2, p3)
++}
- function _tlist_i1(L, p)
- {
- if (isarray(p)) {
- q = p[_ARRLEN]
- i = 0
- while (i++ < q) {
- _tlist_i1(L, p[i])
- function _tpassx(f, p, p0, p1)
- {
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tpassx_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
++#_______________________________________________
++function _tframe4_i1(A, p, p0, p1, p2, p3)
++{
++ if (_TEND[_ARRLEN] in _TEND) {
++ return
+ }
-
- function _tpassx_i0(f, p, p0, p1)
- {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tFCHLD ? _tmpassx(f, _tFCHLD[p], p0, p1) : @f(p,
p0, p1)))
++ if (p in _tNEXT) {
++ return (_tframe4_i0(A, p, p0, p1, p2, p3) _tframe4_i1(A,
_tNEXT[p], p0, p1, p2, p3))
+ }
++ return _tframe4_i0(A, p, p0, p1, p2, p3)
++}
+
- function _tpop(p, aA, a)
- {
- if ((a = _tSTACK[p][0]) > 0) {
- _tSTACK[p][0]--
- if (isarray(_tSTACK[p][a])) {
- delete aA
- _movarr(aA, _tSTACK[p][a])
++#_______________________________________________
++function _tframe4_i2(A, m, p, p0, p1, p2, p3)
++{
++ _tframe_dlink = p
++ while (p in _tDLINK) {
++ p = _tDLINK[p]
++ }
++ if (m in A) {
++ if (m "~" in A) {
++ if (! (_TYPEWORD in _[p]) || A[m "~"] !~
_[p][_TYPEWORD]) {
+ return
}
- return
- return _tSTACK[p][a]
- }
- _fatal("^" p ": Out of tSTACK")
- }
-
- function _tpush(p, aA, a)
- {
- if (isarray(aA)) {
- delete _tSTACK[p][a = ++_tSTACK[p][0]]
- _tSTACK[p][a][""]
- delete _tSTACK[p][a][""]
- _movarr(_tSTACK[p][a], aA)
- return
}
- if (p in _) {
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- if (_tlistf0 in _[p]) {
- L[++_tlisti0] = p
- delete _tSTACK[p][a = ++_tSTACK[p][0]]
- return (_tSTACK[p][a] = aA)
- }
-
- function _tr(n, cs, H)
- {
- _rconline(n ": " cs)
- _rconl()
- if (match(cs,
/^((([^\xB4:\[\|\]]*\xB4.)*[^\xB4:\[\|\]]*):)?((([^\xB4\[\|\]]*\xB4.)*[^\xB4\[\|\]]*)\[)?(([^\xB4\|\]]*\xB4.)*[^\xB4\|\]]*)?(\|(\.)?(([^\xB4\]]*\xB4.)*[^\xB4\]]*))?(\](.*))?$/,
H)) {
- _rconl("delptr: " _une(H[2]) "'")
- _rconl("pfxstr: " _une(H[5]) "'")
- _rconl("hichr: " _une(H[7]) "'")
- _rconl("lochr: " _une((H[10] ? H[7] "' and " H[11] "'"
: H[11] "'")))
- _rconl("sfxstr: " _une(H[14]) "'")
++ m = A[m]
++ return @m(p, p0, p1, p2, p3)
++ }
++}
++
++#___________________________________________________________
++function _tframe_i0(f, p, p0, p1, p2, a)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tFCHLD ? _tmframe_i0(f, _tFCHLD[p], p0, p1, p2) : (p in
_tDLINK ? @f(_tDLINK[p], p0, p1, p2) : @f(p, p0, p1, p2))))
++}
++
++#___________________________________________________________
++function _tframe_i1(F, p, p0, p1, p2, a)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tFCHLD ? (("." in F ? _th1(a = F["."], @a(p, p0, p1,
p2)) : "")) _tmframe_i1(F, _tFCHLD[p], p0, p1, p2) : (">" in F ? _th1(a =
F[">"], (p in _tDLINK ? @a(_tDLINK[p], p0, p1, p2) : @a(p, p0, p1, p2))) : "")))
++}
++
++#_______________________________________________________________________
++function _tframex(f, p, p0, p1)
++{
++ ############################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ f = (p ? _tframex_i0(f, p, p0, p1) : "")
++ --_t_ENDF[0]
++ return f
++}
++
++#___________________________________________________________
++function _tframex_i0(f, p, p0, p1)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tFCHLD ? _tmframex(f, _tFCHLD[p], p0, p1) : @f(p, p0,
p1)))
++}
++
++#_____________________________________________________
++function _tframex_p0(A, f, q, i, B, C)
++{
++ _tframe_qparam = q
++ delete _TEND[++_TEND[_ARRLEN]]
++ if (match(f, /\~(.*)$/, B)) {
++ A["^~"] = A[".~"] = B[1]
++ f = substr(f, 1, RSTART - 1)
++ }
++ A["."] = A["^"] = f
++ return
++ q = split(f, B, /;/)
++ i = 0
++ while (i < q) {
++ _tframex_p1(A, C[i])
++ while (++i <= q) {
++ _tframex_p1(A, C[i], B[i])
++ }
++ }
++}
++
++#_______________________________________________
++function _tframex_p1(A, v, i, r, B)
++{
++ gsub(/[ \t]+/, "", v)
++ while (match(v, /^([^~]*)~\/(([^\/\\]*\\.)*[^\/\\]*)\//, B)) {
++ v = B[1] substr(v, RSTART + RLENGTH)
++ r = B[2]
++ }
++ if (i == "") {
++ if (v != "") {
++ A["."] = v
++ delete A["`"]
++ delete A["^"]
++ }
++ if (r != "") {
++ A[".~"] = A["`~"] = A["^~"] = r
++ }
++ } else {
++ if (match(v, /!/)) {
++ delete A[i]
++ } else {
++ A[i] = v
++ if (r != "") {
++ A[i "~"] = r
++ }
++ }
++ }
++}
++
++#_____________________________________________________
++# F v action
++#-----------------------------------------------------
++# - * no additional action
++# A B delete A[p] and define A[p] as array; copy array B to
array A[p]
++# A - delete A[p]
++# A "*" delete A[p]; A[p]="*"
++# "*" B define _[p]["*"] as array; copy array B to array
_[p]["*"]
++# "*" - run _mpu program "*" for `p
++# "*0" "*1" _[p]["*0"]="*1"
++#___________________________________________________________
++function _tgenuid(c)
++{
++ for (_uidcntr in _UIDARR1) {
++ delete _UIDARR1[_uidcntr]
++ for (c in _UIDARR0) {
++ _UIDS[_uidcntr c]
++ }
++ delete _UIDS[_uidcntr c]
++ return (_uidcntr c)
++ }
++ return _fatal("_tUID: Out of UID range")
++}
++
++#_____________________________________________________
++function _tgenuid_init(a, b, A)
++{
++ _ptrlength = 4
++ a = "\222\223\224\225\226\227\230\231\232"
"\240\241\242\243\244\245\246\247"
"\260\261\262\263\264\265\266\267\270\271\272\273\274\275\276\277"
"\300\301\302\303\304\305\306\307\310\311\312\313\314\315\316\317"
"\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337"
++ split(a, A, "")
++ for (a in A) {
++ for (b in A) {
++ _UIDARR0[A[a] A[b]] _UIDARR1[A[a] A[b]]
++ }
++ }
++ _uidcntr = A[a] A[b]
++}
++
++# if ( F in _TCLASS ) {
_[p]["CLASS"]=_TCLASS[F]; _tapi(p); return p }
++# # ??? _mpu(F,p) ???
++# return p }
++# _[p][F]=v; return p }
++
++#_______________________________________________________________________
++function _tgetitem(p, n, a, b)
++{
++ ############################################
++ if (p) {
++ if (isarray(_PTR[p]["ITEM"]) && n in _PTR[p]["ITEM"]) {
++ a = _PTR[p]["ITEM"][n]
++ } else {
++ a = _PTR[p]["ITEM"][n] = _N()
++ }
++ if (! (b = _rFCHLD(a))) {
++ b = _wLCHLD(a, _N())
++ _PTR[b]["HOST"] = p
++ _[b]["ITEMNAME"] = n
++ }
++ return b
++ }
++}
++
++#_________________________________________________________________
++function _tgetsp(p)
++{
++ ###############################################
++ return _tSTACK[p][0]
++}
++
++####################################################################################
++
++#_____________________________________________________________________________
++function _th0(p, p1, p2, p3)
++{
++ return p
++}
++
++##########################################
++#_________________________________________________________________
++function _th1(p0, p, p2, p3)
++{
++ return p
++}
++
++##############################
++#_________________________________________________________________
++function _th10(p0, p1)
++{
++ return (p1 p0)
++}
++
++##############################
++#_________________________________________________________________
++function _th2(p0, p1, r, p3)
++{
++ return p
++}
++
++##############################
++#_________________________________________________________________
++function _th3(p0, p1, p2, r)
++{
++ return p
++}
++
++#_________________________________________________________________
++function _tifend(l)
++{
++ ###############################################
++ return ((_t_ENDF[0] + l in _t_ENDF ? (_t_ENDF[_t_ENDF[0] + l] ?
_t_ENDF[_t_ENDF[0] + l] : 1) : ""))
++}
++
++# test _tbrochld fn; develope tOBJ r\w func specification for brochld func
++
++#_________________________________________________________________
++function _tinit_i0(D, S, i)
++{
++ for (i in S) {
++ if (isarray(S[i])) {
++ if (! isarray(D[i][""])) {
++ delete D[i]
++ D[i][""]
++ delete D[i][""]
+ }
- if (p in _tFCHLD) {
- for (p = _tFCHLD[p]; p; p = (p in _tNEXT ?
_tNEXT[p] : "")) {
- _tlist_i1(L, p)
- }
++ _N_i0(D[i], S[i])
+ } else {
- _rconl("NOT MATCH!")
++ if (isarray(D[i])) {
++ delete D[i]
+ }
++ D[i] = S[i]
}
- _rconl()
}
++}
- function _tmbframe(f, p, p0, p1, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#_________________________________________________________________
- ##################################
- t = t _tbframe_i0(f, p, p0, p1, p = (p in _tPREV ?
_tPREV[p] : ""))
- }
- return t
- }
- function _trace(t, d, A)
- {
- if (_ERRLOG_TF) {
- A["TYPE"] = "TRACE"
- A["TEXT"] = t
- _log(A, d)
- }
- }
++#_______________________________________________________________________
++########################################################################
- function _tmbframex(f, p, p0, p1, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#_________________________________________________________________
- #################################
- t = t _tbframex_i0(f, p, p0, p1)
- p = (p in _tPREV ? _tPREV[p] : "")
- }
- return t
- }
- function _trunframe(f, p, p0, p1, p2)
- {
- return _tframe((f ? f : "_trunframe_i0"), p, p0, p1, p2)
- }
- function _tmbpass(f, p, p0, p1)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#_________________________________________________________________
- ######################################
- p0 = _tbpass_i0(f, p, p0, p1, p = (p in _tPREV ?
_tPREV[p] : ""))
- }
- return p0
- }
- function _trunframe_i0(p, p0, p1, p2, f)
- {
- if (p in _tFN) {
- f = _tFN[p]
- return @f(p, p0, p1, p2)
- }
- }
- function _tmbpassx(f, p, p0, p1)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#_________________________________________________________________
- #####################################
- p0 = _tbpassx_i0(f, p, p0, p1)
- p = (p in _tPREV ? _tPREV[p] : "")
- }
- return p0
- }
- function _trunframex(f, p, p0, p1)
- {
- return _tframex((f ? f : "_trunframe_i0"), p, p0, p1)
- }
- function _tmframe(f, p, p0, p1, p2)
- {
-
#_________________________________________________________________
- ###################################
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tmframe_i0(f, p, p0, p1, p2) : "")
- --_t_ENDF[0]
- return f
- }
- function _trunpass(f, p, p0, p1)
- {
- return _tpass((f ? f : "_trunframe_i0"), p, p0, p1)
- }
- function _tmframe_i0(f, p, p0, p1, p2, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#___________________________________________________________
- t = t _tframe_i0(f, p, p0, p1, p2, p = (p in _tNEXT ?
_tNEXT[p] : ""))
- }
- return t
- }
- function _trunpassx(f, p, p0, p1)
- {
- return _tpassx((f ? f : "_trunframe_i0"), p, p0, p1)
- }
- function _tmframe_i1(F, p, p0, p1, p2, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#___________________________________________________________
- t = t _tframe_i1(F, p, p0, p1, p2, p = (p in _tNEXT ?
_tNEXT[p] : ""))
- }
- return t
- }
- function _tsetsp(p, v)
- {
- return (_tSTACK[p][0] = v)
- }
- function _tmframex(f, p, p0, p1, t)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#_________________________________________________________________
- ##################################
- t = t _tframex_i0(f, p, p0, p1)
- p = (p in _tNEXT ? _tNEXT[p] : "")
- }
- return t
- }
- function _tstini()
- {
- _ini("uidel:pfx'hstr|lstr'sfx")
- _ini("uidel:pfx'hstr|lstr'")
- _ini("uidel:'hstr|lstr'sfx")
- _ini("uidel:'hstr|lstr'")
- _ini("uidel:pfx'hstr'sfx")
- _ini("uidel:pfx'hstr'")
- _ini("uidel:'hstr'sfx")
- _ini("uidel:'hstr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("pfx'hstr|lstr'sfx")
- _ini("pfx'hstr|lstr'")
- _ini("'hstr|lstr'sfx")
- _ini("'hstr|lstr'")
- _ini("pfx'hstr'sfx")
- _ini("pfx'hstr'")
- _ini("'hstr'sfx")
- _ini("'hstr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("uidel:pfx'`cntptr'sfx")
- _ini("uidel:pfx'`cntptr'")
- _ini("uidel:'`cntptr'sfx")
- _ini("uidel:'`cntptr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("pfx'`cntptr'sfx")
- _ini("pfx'`cntptr'")
- _ini("'`cntptr'sfx")
- _ini("'`cntptr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("uidel:pfx'^chrptr'sfx")
- _ini("uidel:pfx'^chrptr'")
- _ini("uidel:'^chrptr'sfx")
- _ini("uidel:'^chrptr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("pfx'^chrptr'sfx")
- _ini("pfx'^chrptr'")
- _ini("'^chrptr'sfx")
- _ini("'^chrptr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- }
- function _tmpass(f, p, p0, p1)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#_________________________________________________________________
- #######################################
- p0 = _tbpass_i0(f, p, p0, p1, p = (p in _tNEXT ?
_tNEXT[p] : ""))
- }
- return p0
- }
- function _tstv(p, A, r, f)
- {
- if (f == "") {
- f = "tst_splitstr"
- }
- @f(_NOP, A, p)
- @f(AA0, A, p)
- @f(AB0, A, p)
- @f(AC0, A, p)
- @f("", A, p)
- @f("a", A, p)
- @f("\264a", A, p)
- @f("\264", A, p)
- @f("a\264\264\264,ba\264\264\264,", A, p)
- @f("\264,", A, p)
- @f(",", A, p)
- @f("\264a,", A, p)
- @f("ab,", A, p)
- @f("ab,\264", A, p)
- @f("\264a\264,,ba", A, p)
- @f(",a,,b\264,c,,\264a,,\264,,,", A, p)
- }
- function _tmpassx(f, p, p0, p1)
- {
- while (p && ! (_t_ENDF[0] in _t_ENDF)) {
-
#_________________________________________________________________
- ######################################
- p0 = _tbpassx_i0(f, p, p0, p1)
- p = (p in _tNEXT ? _tNEXT[p] : "")
- }
- return p0
- }
- function _typ(p)
- {
- return (_t0 = (isarray(p) ? "#" : (p == 0 ? (p == "" ? 0 : (p
in _CLASSPTR ? "`" : (p ? 3 : 4))) : (p in _CLASSPTR ? "`" : (p + 0 == p ? 5 :
(p ? 3 : 2))))))
- }
- function _torexp(r)
- {
- return _subseqon(_TOREXPB0, gensub(/(^[ \t]+)|(([ \t]*(\\)+)+[
\t]*)|([ \t]+$)/, "\\4", "G", _subseqoff(r, _TOREXPB0)), _TOREXPFN)
- }
- function _typa(p, A)
- {
- return (_t0 = (isarray(p) ? "#" : (p == 0 ? (p == "" ? 0 : (p
in A ? "`" : (p ? 3 : 4))) : (p in A ? "`" : (p + 0 == p ? 5 : (p ? 3 : 2))))))
- }
- function _torexp_cmdstr(t)
- {
- return _strtorexp(gensub(/\^(.)/, "\\1", "G", t))
- }
- function _tzend(a, b)
- {
- if (b == 0 && b == "") {
- return (_TEND[_TEND[_ARRLEN]] = a)
- } else {
- return (_TEND[_TEND[_ARRLEN] + a] = b)
- }
- }
- function _torexp_fmask(t)
- {
- return gensub(/\\\*/, ".*", "G", gensub(/\\\?/, ".?", "G",
_strtorexp(t)))
- }
- function _uidcyc(p, i)
- {
- _dumpuidgen(p)
- for (i = 1; i < 64 * 8 * 6 - 1; i++) {
- _conl(i ":" _var(_getuid(p)))
- }
- _dumpuidgen(p)
- }
- function _torexp_init()
- {
- #_______________________________________________
- _TOREXPFN[""] = "_strtorexp"
- _TOREXPFN["~"] = "_torexp_rexp"
- _TOREXPFN["="] = "_strtorexp"
- _TOREXPFN[">"] = "_torexp_cmdstr"
- _TOREXPFN["#"] = "_torexp_fmask"
- _TOREXPFN["\""] = "_torexp_dqstr"
- _TOREXPFN["'"] = "_torexp_sqstr"
- }
- function _une(t)
- {
- return gensub(/\xB4(.)/, "\\1", "G", t)
- }
- function _torexp_rexp(t)
- {
- #_______________________________________________
- return t
- }
- function _unformatrexp(t)
- {
- _formatstrq0 = split(t, _FORMATSTRA,
/(\\[0-9]{1,3})|(\\x[[:xdigit:]]+)|(\\.)/, _FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
((_FORMATSTRB[t] in _QESCHR ? _QESCREXP[_FORMATSTRB[t]] :
_QESCREXP[toupper(substr(_FORMATSTRB[t], length(_FORMATSTRB[t]) - 1))]))
- }
- return (_formatstrs0 _FORMATSTRA[t])
- }
- function _tpass(f, p, p0, p1)
- {
-
#_____________________________________________________________________________
- ####################################################
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tpass_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
- function _unformatrexp_init(i, a)
- {
- _formatstrs0 = "\\^$.[]|()*+?{}-sSwW<>yB`'"
- delete _FORMATSTRB
- for (i = 0; i < 256; i++) {
- _QESCREXP["\\" _CHR[i]] = (index(_formatstrs0, _CHR[i])
? "\\" _CHR[i] : _CHR[i])
- }
- for (i = 0; i < 256; i++) {
- a = (index(_formatstrs0, _CHR[i]) ? "\\" : "")
- _QESCREXP[sprintf("%.2X", i)] = a _CHR[i]
- _QESCREXP["\\" sprintf("%.3o", i)] = a _CHR[i]
- if (i < 8) {
- _QESCREXP["\\" sprintf("%.1o", i)] = a _CHR[i]
- }
- if (i < 64) {
- _QESCREXP["\\" sprintf("%.2o", i)] = a _CHR[i]
- }
- if (i < 16) {
- _QESCREXP["\\x" sprintf("%.1X", i)] =
_QESCREXP["\\x" sprintf("%.1x", i)] = a _CHR[i]
- }
- }
- patsplit("a" 7 "b" 8 "f" 12 "n" 10 "r" 13 "t" 9 "v" 11,
_FORMATSTRA, /[^0-9]/, _FORMATSTRB)
- for (i in _FORMATSTRA) {
- _QESCREXP["\\" _FORMATSTRA[i]] = _CHR[_FORMATSTRB[i] +
0]
- }
- }
- function _tpass_i0(f, p, p0, p1, a)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tFCHLD ? _tmpass(f, _tFCHLD[p], p0, p1) : @f(p,
p0, p1)))
- }
- function _unformatstr(t)
- {
- _formatstrq0 = split(t, _FORMATSTRA,
/(\\[0-9]{1,3})|(\\x[[:xdigit:]]+)|(\\.)/, _FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
((_FORMATSTRB[t] in _QESCHR ? _QESCHR[_FORMATSTRB[t]] :
_QESCHR[toupper(substr(_FORMATSTRB[t], length(_FORMATSTRB[t]) - 1))]))
- }
- return (_formatstrs0 _FORMATSTRA[t])
- }
- function _tpassx(f, p, p0, p1)
- {
-
#_____________________________________________________________________________
- ###################################################
- delete _t_ENDF[++_t_ENDF[0]]
- f = (p ? _tpassx_i0(f, p, p0, p1) : "")
- --_t_ENDF[0]
- return f
- }
- function _unformatstr_init(i)
- {
- for (i = 0; i < 256; i++) {
- _QESCHR["\\" _CHR[i]] = _CHR[i]
- }
- for (i = 0; i < 256; i++) {
- _QESCHR[sprintf("%.2X", i)] = _CHR[i]
- _QESCHR["\\" sprintf("%.3o", i)] = _CHR[i]
- if (i < 8) {
- _QESCHR["\\" sprintf("%.1o", i)] = _CHR[i]
- }
- if (i < 64) {
- _QESCHR["\\" sprintf("%.2o", i)] = _CHR[i]
- }
- if (i < 16) {
- _QESCHR["\\x" sprintf("%.1X", i)] =
_QESCHR["\\x" sprintf("%.1x", i)] = _CHR[i]
- }
- }
- i = "a" 7 "b" 8 "f" 12 "n" 10 "r" 13 "t" 9 "v" 11
- patsplit(i, _FORMATSTRA, /[^0-9]/, _FORMATSTRB)
- for (i in _FORMATSTRA) {
- _QESCHR["\\" _FORMATSTRA[i]] = _CHR[_FORMATSTRB[i] + 0]
- }
- }
- function _tpassx_i0(f, p, p0, p1)
- {
- #___________________________________________________________
- while (p in _tLINK) {
- p = _tLINK[p]
- }
- return ((p in _tFCHLD ? _tmpassx(f, _tFCHLD[p], p0, p1) : @f(p,
p0, p1)))
- }
- function _uninit_del(A, i, p0)
- {
- _del(i)
- }
- function _tpop(p, aA, a)
- {
- if ((a = _tSTACK[p][0]) > 0) {
-
#_________________________________________________________________
- ###########################################
- _tSTACK[p][0]--
- if (isarray(_tSTACK[p][a])) {
- delete aA
- _movarr(aA, _tSTACK[p][a])
- return
- }
- return _tSTACK[p][a]
- }
- _fatal("^" p ": Out of tSTACK")
- }
- function _unstr(t)
- {
- return gensub(/\\(.)/, "\\1", "G", t)
+
- function _tpush(p, aA, a)
- {
- if (isarray(aA)) {
-
#_____________________________________________________________________________
- ######################################################
- delete _tSTACK[p][a = ++_tSTACK[p][0]]
- _tSTACK[p][a][""]
- delete _tSTACK[p][a][""]
- _movarr(_tSTACK[p][a], aA)
- return
- }
- delete _tSTACK[p][a = ++_tSTACK[p][0]]
- return (_tSTACK[p][a] = aA)
- }
-
- function _tr(n, cs, H)
- {
- # prefix -
- # prichr - aware character `{', `^',`]'
- # sechr - aware character `.' as the first char of sechr, and
character `}'
- # suffix - aware character `]'
- # cntptr - aware character `]'
- #_tuidinitcs[p]=cs
- #2 uidel, 5 pfx, 7 hichr,11(10) lochr,14 suffix
- _rconline(n ": " cs)
- _rconl()
- if (match(cs,
/^((([^\xB4:\[\|\]]*\xB4.)*[^\xB4:\[\|\]]*):)?((([^\xB4\[\|\]]*\xB4.)*[^\xB4\[\|\]]*)\[)?(([^\xB4\|\]]*\xB4.)*[^\xB4\|\]]*)?(\|(\.)?(([^\xB4\]]*\xB4.)*[^\xB4\]]*))?(\](.*))?$/,
H)) {
- _rconl("delptr: " _une(H[2]) "'")
- _rconl("pfxstr: " _une(H[5]) "'")
- _rconl("hichr: " _une(H[7]) "'")
- _rconl("lochr: " _une((H[10] ? H[7] "' and " H[11] "'"
: H[11] "'")))
- _rconl("sfxstr: " _une(H[14]) "'")
- } else {
- _rconl("NOT MATCH!")
- }
- _rconl()
- }
-
- function _trace(t, d, A)
- {
- if (_ERRLOG_TF) {
-
#_______________________________________________________________________
- #################################################
- A["TYPE"] = "TRACE"
- A["TEXT"] = t
- _log(A, d)
- }
- }
-
- function _trunframe(f, p, p0, p1, p2)
- {
-
#_________________________________________________________________
- #################################
- return _tframe((f ? f : "_trunframe_i0"), p, p0, p1, p2)
- }
-
- function _trunframe_i0(p, p0, p1, p2, f)
- {
- if (p in _tFN) {
-
#_________________________________________________________________
- f = _tFN[p]
- return @f(p, p0, p1, p2)
- }
- }
-
- function _trunframex(f, p, p0, p1)
- {
-
#_________________________________________________________________
- ###################################
- return _tframex((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _trunpass(f, p, p0, p1)
- {
-
#_________________________________________________________________
- #####################################
- return _tpass((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _trunpassx(f, p, p0, p1)
- {
-
#_________________________________________________________________
- ####################################
- return _tpassx((f ? f : "_trunframe_i0"), p, p0, p1)
- }
-
- function _tsetsp(p, v)
- {
-
#_________________________________________________________________
- #############################################
- return (_tSTACK[p][0] = v)
- }
-
- function _tstini()
- {
- # dptr - morg ptr; in
case if object deleted then _CLASSPTR[ptr] will be deleted(object is death), but
- #
_tUIDEL[_CLASSPTR[ptr]] will be created that object can be resurrected from morg
- # dptr
can be any string containing any characters except `:'. It's not verified
- # pfx,sfx - uid prefix str, and
uid suffix str; this strings specifies string that can be inserted before/after
- # uid
generated by uid generator:
- #
- #
class uid: pfx uidgen sfx
- #
- # Both
can be any string(including ""), and can contains any character with
B4-escaping feature.
- # Note:
that this strings cannot contains "'" character: it's should be escaped by
B4-escaper.
- # hstr,lstr - this values
configure uid-generator itself. ther is a 3 combinations regarding its:
- #
- #
hstr lstr function
- #
- #
`ptr * - specify pointer to external
uid-generator
- #
All uids and chars will be
generated by external uid-generator
- #
* ^ptr - class will have it's own uid
generator using external character set
- #
str str - class will have it's own uid
generator with it's own character set
- #
character set inmplemented in
hstr(high-charset) and in lstr(low-charset) in 2 ways:
- # 1)
"AB" "AB01" - this mean that high-charset
contain chars: `A' and `B'
- #
low-charset
contains chars: `A', `B', `0', `1'
- #
- # 2)
"Az,By" "Ax,Bw,0v,1u" - this mean that high-charset contain
chars: `Az' and `By'
- #
low-charset
contains chars: `Ax', `Bw', `0v', `1u'
- #
Note: both: hstr and
lstr cannot contain char `,' directly, but it's can uses
- #
B4-escaper to escape any char including `,'
- # !!!! in case of using `,' in hstr/lstr - the escaped `,' will
leads to interpretate hstr and lstr as divided by `,'
- # if parameters error then i should be more specific about what
error in parameters detected
- # document _inituid(): parameters; document cs: uid
initialization string format
- # test with escape char
- # adv hstr and lstr splitting?
- # chk if hstr len==0 ?
- # return _tclass & report error?
- # _tapi thru function
- # additional syntax checking ???
- # implement syntax and uid srv in docs
- # add _dumpuid() ????
- # make performance measurement
- # protection against badchar list
- # additional feature to specify _getuid() to not resurrect uid;
and informative that uid was ressurected or not
- # build _defclass fn
- # _tuidinitcs ????
- # _tuidchrh[p]
- # _tuidchrl[p]
- # _tuidchr[p]
- # _tuidcnt[p]
- # _tUIDPFX[p]
- # _tUIDSFX[p]
- # _tUIDEL
- # _tUIDCNTH
- # _tUIDCNTL
- # _tUIDCHRL
- # _tUIDCHRH
- # create default class basic `new' and `del' functions
- _ini("uidel:pfx'hstr|lstr'sfx")
- _ini("uidel:pfx'hstr|lstr'")
- _ini("uidel:'hstr|lstr'sfx")
- _ini("uidel:'hstr|lstr'")
- _ini("uidel:pfx'hstr'sfx")
- _ini("uidel:pfx'hstr'")
- _ini("uidel:'hstr'sfx")
- _ini("uidel:'hstr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("pfx'hstr|lstr'sfx")
- _ini("pfx'hstr|lstr'")
- _ini("'hstr|lstr'sfx")
- _ini("'hstr|lstr'")
- _ini("pfx'hstr'sfx")
- _ini("pfx'hstr'")
- _ini("'hstr'sfx")
- _ini("'hstr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("uidel:pfx'`cntptr'sfx")
- _ini("uidel:pfx'`cntptr'")
- _ini("uidel:'`cntptr'sfx")
- _ini("uidel:'`cntptr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("pfx'`cntptr'sfx")
- _ini("pfx'`cntptr'")
- _ini("'`cntptr'sfx")
- _ini("'`cntptr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("uidel:pfx'^chrptr'sfx")
- _ini("uidel:pfx'^chrptr'")
- _ini("uidel:'^chrptr'sfx")
- _ini("uidel:'^chrptr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- _ini("pfx'^chrptr'sfx")
- _ini("pfx'^chrptr'")
- _ini("'^chrptr'sfx")
- _ini("'^chrptr'")
- _conl()
-
_conl("########################################################################################")
- _conl()
- }
+
- function _tstv(p, A, r, f)
- {
- if (f == "") {
- f = "tst_splitstr"
- }
- @f(_NOP, A, p)
- @f(AA0, A, p)
- @f(AB0, A, p)
- @f(AC0, A, p)
- @f("", A, p)
- @f("a", A, p)
- @f("\264a", A, p)
- @f("\264", A, p)
- @f("a\264\264\264,ba\264\264\264,", A, p)
- @f("\264,", A, p)
- @f(",", A, p)
- @f("\264a,", A, p)
- @f("ab,", A, p)
- @f("ab,\264", A, p)
- @f("\264a\264,,ba", A, p)
- @f(",a,,b\264,c,,\264a,,\264,,,", A, p)
- }
+
- function _typ(p)
- {
- return (_t0 = (isarray(p) ? "#" : (p == 0 ? (p == "" ? 0 : (p
in _CLASSPTR ? "`" : (p ? 3 : 4))) : (p in _CLASSPTR ? "`" : (p + 0 == p ? 5 :
(p ? 3 : 2))))))
- }
++#_______________________________________________________________________
++# _N(arr\str\mpuptr,val) \ _n(arr\str\mpuptr,val)
++# This functions create new object and return ptr.
++# _n() - creates object from list of deleted objects or if it's
empty create new one, while _N() always create new one
++# It is strongly recommended to use _N() for the objects that
have some data outside of standart object arrays. Or - make routines
++# that will clear outsided object data in case if object deleting.
++#
++# IN: arr\str\mpu,val - (both missed) just
create obj and return ptr
++# arr,val - create object and
write arr[ptr]=val
++# str,val - create object and
write _[ptr][str]=val
++# mpuptr - NOT ALLOWED (val
missed) create object and run MPU-code specified by mpuptr with created object
ptr as primary parameter
++# MOD: -
++# OUT: -
++# RETURN: ptr - pointer to newly
created object
++#_________________________________________________________________
++# _tdel(ptr)
++# This function exclude object from it's current structure and
delete it. ptr can be later used by function: _n() for creating new object
++# Also same story will occured with all chields and subchields of
object specified by ptr.
++# ??? What happened with linked py _ptr[ptr] objects ???
++#
++# IN: ptr - pointer to
object that will deleted
++# MOD: -
++# OUT: -
++# RETURN: undefined
++#_________________________________________________________________
++# _isptr(ptr)
++# This function checks: is ptr is the object pointer that is
currently exist?
++# Unescaped remained data will be in data of src_dst_ptr.
++#
++# IN: ptr - string that
will be tested
++# MOD: -
++# OUT: -
++# RETURN: undefined - if ptr is not pointer
to exist object
++# ptr - if ptr is the
pointer to exist object
++#_________________________________________________________________
+
- function _typa(p, A)
- {
- return (_t0 = (isarray(p) ? "#" : (p == 0 ? (p == "" ? 0 : (p
in A ? "`" : (p ? 3 : 4))) : (p in A ? "`" : (p + 0 == p ? 5 : (p ? 3 : 2))))))
- }
+
- function _tzend(a, b)
- {
- #_____________________________________________________
- # _tframe0(hndstr,ptr)
- #
- #
- # IN:
- # MOD:
- # OUT:
- # RETURN:
- #
- # handler string:
- # Handler-string divides to words. Word splitter
is char ";"
- #
- # Note that handler-string processed left to right. This
mean that next word(more rightly) will overwrite fields implemented
before(leftmost).
- # Note that if word-string contains more than one
rexp-field then only last rexp-field(most rightly) will be applied.
- #_______________________________________________
- # TO DESIGN:
- #
- # 0-4: complete design of tlink handler call
- # 1-4: add new tlink handler call
- # 1-4: add new run fn (changed rexp to different for each type:
see _tframe0)
- #
- # hndstr:
- # may be add rexp for each type of handler and also total
rexp for all ??? ADDED (test)
- # may be add separator char ";" ??? ADDED
(test)
-
#_______________________________________________________________________
- #####################################################
- if (b == 0 && b == "") {
- return (_TEND[_TEND[_ARRLEN]] = a)
- } else {
- return (_TEND[_TEND[_ARRLEN] + a] = b)
- }
- }
+
- function _uidcyc(p, i)
- {
- _dumpuidgen(p)
- for (i = 1; i < 64 * 8 * 6 - 1; i++) {
- _conl(i ":" _var(_getuid(p)))
- }
- _dumpuidgen(p)
- }
++#_________________________________________________________________
++#
++# TO DESIGN:
++#
++# create basic objectapi interface support
++# modify everywhere checking ptr not by `if ( ptr )...', but by `if ( ptr in
_ )...'
++# _TMP0, _TMP1 name change to something like _DATA name ???
++# think about redesigning routines for not depending if ptr is exist in
tsysarrs: reason: performance\light code
+
- function _une(t)
- {
- return gensub(/\xB4(.)/, "\\1", "G", t)
- }
+
- function _unformatrexp(t)
- {
-
#___________________________________________________________________________________
- _formatstrq0 = split(t, _FORMATSTRA,
/(\\[0-9]{1,3})|(\\x[[:xdigit:]]+)|(\\.)/, _FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
((_FORMATSTRB[t] in _QESCHR ? _QESCREXP[_FORMATSTRB[t]] :
_QESCREXP[toupper(substr(_FORMATSTRB[t], length(_FORMATSTRB[t]) - 1))]))
- }
- return (_formatstrs0 _FORMATSTRA[t])
- }
+
- function _unformatrexp_init(i, a)
- {
- #___________________________________________________________
- _formatstrs0 = "\\^$.[]|()*+?{}-sSwW<>yB`'"
- delete _FORMATSTRB
- for (i = 0; i < 256; i++) {
- _QESCREXP["\\" _CHR[i]] = (index(_formatstrs0, _CHR[i])
? "\\" _CHR[i] : _CHR[i])
- }
- for (i = 0; i < 256; i++) {
- a = (index(_formatstrs0, _CHR[i]) ? "\\" : "")
- _QESCREXP[sprintf("%.2X", i)] = a _CHR[i]
- _QESCREXP["\\" sprintf("%.3o", i)] = a _CHR[i]
- if (i < 8) {
- _QESCREXP["\\" sprintf("%.1o", i)] = a _CHR[i]
- }
- if (i < 64) {
- _QESCREXP["\\" sprintf("%.2o", i)] = a _CHR[i]
- }
- if (i < 16) {
- _QESCREXP["\\x" sprintf("%.1X", i)] =
_QESCREXP["\\x" sprintf("%.1x", i)] = a _CHR[i]
- }
- }
- patsplit("a" 7 "b" 8 "f" 12 "n" 10 "r" 13 "t" 9 "v" 11,
_FORMATSTRA, /[^0-9]/, _FORMATSTRB)
- for (i in _FORMATSTRA) {
- _QESCREXP["\\" _FORMATSTRA[i]] = _CHR[_FORMATSTRB[i] +
0]
- }
- }
+
- function _unformatstr(t)
- {
-
#___________________________________________________________________________________
- _formatstrq0 = split(t, _FORMATSTRA,
/(\\[0-9]{1,3})|(\\x[[:xdigit:]]+)|(\\.)/, _FORMATSTRB)
- _formatstrs0 = ""
- for (t = 1; t < _formatstrq0; t++) {
- _formatstrs0 = _formatstrs0 _FORMATSTRA[t]
((_FORMATSTRB[t] in _QESCHR ? _QESCHR[_FORMATSTRB[t]] :
_QESCHR[toupper(substr(_FORMATSTRB[t], length(_FORMATSTRB[t]) - 1))]))
- }
- return (_formatstrs0 _FORMATSTRA[t])
- }
+
- function _unformatstr_init(i)
- {
- #___________________________________________________________
- for (i = 0; i < 256; i++) {
- _QESCHR["\\" _CHR[i]] = _CHR[i]
- }
- for (i = 0; i < 256; i++) {
- _QESCHR[sprintf("%.2X", i)] = _CHR[i]
- _QESCHR["\\" sprintf("%.3o", i)] = _CHR[i]
- if (i < 8) {
- _QESCHR["\\" sprintf("%.1o", i)] = _CHR[i]
- }
- if (i < 64) {
- _QESCHR["\\" sprintf("%.2o", i)] = _CHR[i]
- }
- if (i < 16) {
- _QESCHR["\\x" sprintf("%.1X", i)] =
_QESCHR["\\x" sprintf("%.1x", i)] = _CHR[i]
- }
- }
- i = "a" 7 "b" 8 "f" 12 "n" 10 "r" 13 "t" 9 "v" 11
- patsplit(i, _FORMATSTRA, /[^0-9]/, _FORMATSTRB)
- for (i in _FORMATSTRA) {
- _QESCHR["\\" _FORMATSTRA[i]] = _CHR[_FORMATSTRB[i] + 0]
- }
- }
-
- function _uninit_del(A, i, p0)
- {
-
#_____________________________________________________________________________
- _del(i)
- }
-
- function _unstr(t)
- {
-
####################################################################################
- # PUBLIC:
-
#_____________________________________________________________________________
- # var _SYS_STDOUT - (by default =
"/dev/stdout") standart output pipe filename
- # var _SYS_STDERR - (by default =
"/dev/stderr") standart error output pipe filename
- # var _SYS_STDCON - (by default =
"CON") standart console output device
-
#_____________________________________________________________________________
- # var _CHR["CR"] - return cursor
to the position 0 without newline(normally ="\x0D")
- # var _CHR["EOL"] - return cursor
to the position 0 & newline (MS:="\x0D\x0A" / UX:="\x0D")
- # var _CON_WIDTH - console
width(columns number)
-
#_____________________________________________________________________________
- # fn _cmd(c) - execute shell command
c and return output
- # fn _err - output string
w\o any addition into _SYS_STDERR device
- # fn _errnl - output string with
addition _CHR["EOL"] at the end of the string into _SYS_STDERR device
- # fn _out - output string
w\o any addition into _SYS_STDOUT device
- # fn _outnl - output string with
addition _CHR["EOL"] at the end of the string into _SYS_STDOUT device
-
#_____________________________________________________________________________
- # fn _con(text[,tabspace])
- # fn _conl(text[,tabspace])
- # fn _conline(text[,tabspace])
- # fn _constat(status[,tabspace])
- # fn _constatpush([status[,tabspace]])
- # fn _constatpop()
-
#_______________________________________________________________________
- # var _constatstr
-
####################################################################################
- return gensub(/\\(.)/, "\\1", "G", t)
- }
-
- function _untmp(f, a)
- {
- if (f = filepath(f)) {
- if (match(f, /\\$/)) {
-
#_________________________________________________________________
- #############################################
- _deletepfx(_FILEIO_RDTMP, a = toupper(f))
- _deletepfx(_FILEIO_RDNETMP, a)
- } else {
- delete _FILEIO_RDNETMP[toupper(f)]
- }
- return f
- }
- return ""
++
++
++
++
++
++
++function _tlist(L, p, f)
++{
++ _tlisti1 = _tlisti0 = L[_ARRLEN] + 0
++ if (f == 0 && f == "") {
++ _tlist_i0(L, p)
++ } else {
++ _tlistf0 = (f in _TAPI ? _TAPI[f] : f)
++ _tlist_i1(L, p)
}
++ return (_tlisti0 - _tlisti1)
++}
- function _val(v, t)
- {
-
#_____________________________________________________________________________
- if (isarray(v)) {
- return (_dumparr(v) _ln(t))
- }
- if (v == 0 && v == "") {
- return (_ln("- (ERRNO=" ERRNO ")") _ln(t))
- function _untmp(f, a)
- {
- if (f = filepath(f)) {
- if (match(f, /\\$/)) {
- _deletepfx(_FILEIO_RDTMP, a = toupper(f))
- _deletepfx(_FILEIO_RDNETMP, a)
- } else {
- delete _FILEIO_RDNETMP[toupper(f)]
- }
- return f
++function _tlist_i0(L, p, q, i)
++{
++ if (isarray(p)) {
++ q = p[_ARRLEN]
++ i = 0
++ while (i++ < q) {
++ _tlist_i0(L, p[i])
}
- return (_ln(v "'") _ln(t))
- return ""
++ return
}
--
- function _val0(v)
- {
-
#_____________________________________________________________________________
- if (isarray(v)) {
- return _dumparr(v)
- function _val(v, t)
- {
- if (isarray(v)) {
- return (_dumparr(v) _ln(t))
++ if (p in _) {
++ while (p in _tLINK) {
++ p = _tLINK[p]
}
-- if (v == 0 && v == "") {
- return "-"
- return (_ln("- (ERRNO=" ERRNO ")") _ln(t))
++ L[++_tlisti0] = p
++ if (p in _tFCHLD) {
++ for (p = _tFCHLD[p]; p; p = (p in _tNEXT ? _tNEXT[p] :
"")) {
++ _tlist_i0(L, p)
++ }
}
- return ("\"" v "\"")
- return (_ln(v "'") _ln(t))
}
++}
- function _var(v, t)
- {
-
#_____________________________________________________________________________
- if (isarray(v)) {
- return (_dumparr(v) _ln(t))
- }
- if (v == 0 && v == "") {
- return (_ln("- (ERRNO=" ERRNO ")") _ln(t))
- function _val0(v)
- {
- if (isarray(v)) {
- return _dumparr(v)
- }
- if (v == 0 && v == "") {
- return "-"
++function _tlist_i1(L, p)
++{
++ if (isarray(p)) {
++ q = p[_ARRLEN]
++ i = 0
++ while (i++ < q) {
++ _tlist_i1(L, p[i])
}
- return (_ln(v "'") _ln(t))
- return ("\"" v "\"")
++ return
}
--
- function _verb(t, d, A)
- {
- if (_ERRLOG_VF) {
-
#_______________________________________________________________________
- ##################################################
- A["TYPE"] = "VERB"
- A["TEXT"] = t
- _log(A, d)
- function _var(v, t)
- {
- if (isarray(v)) {
- return (_dumparr(v) _ln(t))
++ if (p in _) {
++ while (p in _tLINK) {
++ p = _tLINK[p]
+ }
- if (v == 0 && v == "") {
- return (_ln("- (ERRNO=" ERRNO ")") _ln(t))
++ if (_tlistf0 in _[p]) {
++ L[++_tlisti0] = p
+ }
- return (_ln(v "'") _ln(t))
- }
-
- function _verb(t, d, A)
- {
- if (_ERRLOG_VF) {
- A["TYPE"] = "VERB"
- A["TEXT"] = t
- _log(A, d)
++ if (p in _tFCHLD) {
++ for (p = _tFCHLD[p]; p; p = (p in _tNEXT ? _tNEXT[p] :
"")) {
++ _tlist_i1(L, p)
++ }
++ }
++ }
++}
++
++#_________________________________________________________________
++function _tmbframe(f, p, p0, p1, t)
++{
++ ##################################
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ t = t _tbframe_i0(f, p, p0, p1, p = (p in _tPREV ? _tPREV[p] :
""))
++ }
++ return t
++}
++
++#_________________________________________________________________
++function _tmbframex(f, p, p0, p1, t)
++{
++ #################################
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ t = t _tbframex_i0(f, p, p0, p1)
++ p = (p in _tPREV ? _tPREV[p] : "")
++ }
++ return t
++}
++
++#_________________________________________________________________
++function _tmbpass(f, p, p0, p1)
++{
++ ######################################
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ p0 = _tbpass_i0(f, p, p0, p1, p = (p in _tPREV ? _tPREV[p] :
""))
++ }
++ return p0
++}
++
++#_________________________________________________________________
++function _tmbpassx(f, p, p0, p1)
++{
++ #####################################
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ p0 = _tbpassx_i0(f, p, p0, p1)
++ p = (p in _tPREV ? _tPREV[p] : "")
++ }
++ return p0
++}
++
++#_________________________________________________________________
++function _tmframe(f, p, p0, p1, p2)
++{
++ ###################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ f = (p ? _tmframe_i0(f, p, p0, p1, p2) : "")
++ --_t_ENDF[0]
++ return f
++}
++
++#___________________________________________________________
++function _tmframe_i0(f, p, p0, p1, p2, t)
++{
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ t = t _tframe_i0(f, p, p0, p1, p2, p = (p in _tNEXT ? _tNEXT[p]
: ""))
++ }
++ return t
++}
++
++#___________________________________________________________
++function _tmframe_i1(F, p, p0, p1, p2, t)
++{
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ t = t _tframe_i1(F, p, p0, p1, p2, p = (p in _tNEXT ? _tNEXT[p]
: ""))
++ }
++ return t
++}
++
++#_________________________________________________________________
++function _tmframex(f, p, p0, p1, t)
++{
++ ##################################
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ t = t _tframex_i0(f, p, p0, p1)
++ p = (p in _tNEXT ? _tNEXT[p] : "")
++ }
++ return t
++}
++
++#_________________________________________________________________
++function _tmpass(f, p, p0, p1)
++{
++ #######################################
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ p0 = _tbpass_i0(f, p, p0, p1, p = (p in _tNEXT ? _tNEXT[p] :
""))
++ }
++ return p0
++}
++
++#_________________________________________________________________
++function _tmpassx(f, p, p0, p1)
++{
++ ######################################
++ while (p && ! (_t_ENDF[0] in _t_ENDF)) {
++ p0 = _tbpassx_i0(f, p, p0, p1)
++ p = (p in _tNEXT ? _tNEXT[p] : "")
++ }
++ return p0
++}
++
++function _torexp(r)
++{
++ return _subseqon(_TOREXPB0, gensub(/(^[ \t]+)|(([ \t]*(\\)+)+[ \t]*)|([
\t]+$)/, "\\4", "G", _subseqoff(r, _TOREXPB0)), _TOREXPFN)
++}
++
++function _torexp_cmdstr(t)
++{
++ return _strtorexp(gensub(/\^(.)/, "\\1", "G", t))
++}
++
++function _torexp_fmask(t)
++{
++ return gensub(/\\\*/, ".*", "G", gensub(/\\\?/, ".?", "G",
_strtorexp(t)))
++}
++
++#_______________________________________________
++function _torexp_init()
++{
++ _TOREXPFN[""] = "_strtorexp"
++ _TOREXPFN["~"] = "_torexp_rexp"
++ _TOREXPFN["="] = "_strtorexp"
++ _TOREXPFN[">"] = "_torexp_cmdstr"
++ _TOREXPFN["#"] = "_torexp_fmask"
++ _TOREXPFN["\""] = "_torexp_dqstr"
++ _TOREXPFN["'"] = "_torexp_sqstr"
++}
++
++#_______________________________________________
++function _torexp_rexp(t)
++{
++ return t
++}
++
++#_____________________________________________________________________________
++function _tpass(f, p, p0, p1)
++{
++ ####################################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ f = (p ? _tpass_i0(f, p, p0, p1) : "")
++ --_t_ENDF[0]
++ return f
++}
++
++#___________________________________________________________
++function _tpass_i0(f, p, p0, p1, a)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tFCHLD ? _tmpass(f, _tFCHLD[p], p0, p1) : @f(p, p0, p1)))
++}
++
++#_____________________________________________________________________________
++function _tpassx(f, p, p0, p1)
++{
++ ###################################################
++ delete _t_ENDF[++_t_ENDF[0]]
++ f = (p ? _tpassx_i0(f, p, p0, p1) : "")
++ --_t_ENDF[0]
++ return f
++}
++
++#___________________________________________________________
++function _tpassx_i0(f, p, p0, p1)
++{
++ while (p in _tLINK) {
++ p = _tLINK[p]
++ }
++ return ((p in _tFCHLD ? _tmpassx(f, _tFCHLD[p], p0, p1) : @f(p, p0,
p1)))
++}
++
++#_________________________________________________________________
++function _tpop(p, aA, a)
++{
++ ###########################################
++ if ((a = _tSTACK[p][0]) > 0) {
++ _tSTACK[p][0]--
++ if (isarray(_tSTACK[p][a])) {
++ delete aA
++ _movarr(aA, _tSTACK[p][a])
++ return
}
++ return _tSTACK[p][a]
}
++ _fatal("^" p ": Out of tSTACK")
++}
-- function _wFBRO(p, v, a)
-- {
-- if (p) {
-- if (v) {
- ######################## v is parentesis of p
-- for (a = p; a in _tPARENT; ) {
-- if ((a = _tPARENT[a]) == v) {
-
#_________________________________________________________________
-
###########################################
-- return v
-- }
-- }
-- if (p in _tPARENT) {
-- p = _tPARENT[p]
-- if (v in _tNEXT) {
-- if (v in _tPREV) {
-- _tPREV[_tNEXT[a] =
_tNEXT[v]] = a = _tPREV[v]
-- delete _tPREV[v]
-- if (v in _tPARENT) {
-- if (p == (a =
_tPARENT[v])) {
-- return
(_tFCHLD[p] = _tPREV[_tNEXT[v] = _tFCHLD[p]] = v)
-- }
-- --_tQCHLD[a]
-- }
-- } else {
-- if (v in _tPARENT) {
-- if (p == (a =
_tPARENT[v])) {
-- return v
-- }
-- delete
_tPREV[_tFCHLD[a] = _tNEXT[v]]
-- --_tQCHLD[a]
-- } else {
-- delete
_tPREV[_tNEXT[v]]
-- }
-- }
-- ++_tQCHLD[p]
-- return (_tFCHLD[p] =
_tPREV[_tNEXT[v] = _tFCHLD[_tPARENT[v] = p]] = v)
-- } else {
-- if (v in _tPREV) {
-- if (v in _tPARENT) {
-- delete
_tNEXT[_tLCHLD[a = _tPARENT[v]] = _tPREV[v]]
-- if (p == a) {
-- delete
_tPREV[v]
-- return
(_tFCHLD[p] = _tPREV[_tNEXT[v] = _tFCHLD[p]] = v)
-- }
-- --_tQCHLD[a]
-- } else {
-- delete
_tNEXT[_tPREV[v]]
-- }
-- delete _tPREV[v]
-- } else {
-- if (v in _tPARENT) {
-- if (p == (a =
_tPARENT[v])) {
-- return v
-- }
-- delete
_tFCHLD[a]
-- delete
_tLCHLD[a]
-- delete
_tQCHLD[a]
-- }
-- }
-- ++_tQCHLD[p]
-- return (_tFCHLD[p] =
_tPREV[_tNEXT[v] = _tFCHLD[_tPARENT[v] = p]] = v)
-- }
-- } else {
-- while (p in _tPREV) {
-- p = _tPREV[p]
-- }
-- if (v in _tPREV) {
-- if (v in _tPARENT) {
-- --_tQCHLD[a =
_tPARENT[v]]
-- delete _tPARENT[v]
-- if (v in _tNEXT) {
--
_tNEXT[_tPREV[a] = _tPREV[v]] = a = _tNEXT[v]
-- } else {
-- delete
_tNEXT[_tLCHLD[a] = _tPREV[v]]
-- }
-- } else {
-- if (v in _tNEXT) {
--
_tNEXT[_tPREV[a] = _tPREV[v]] = a = _tNEXT[v]
-- } else {
-- delete
_tNEXT[_tPREV[v]]
-- }
-- }
-- delete _tPREV[v]
-- } else {
-- if (p == v) {
-- return v
-- }
-- if (v in _tPARENT) {
-- if (v in _tNEXT) {
-- delete
_tPREV[_tFCHLD[a = _tPARENT[v]] = _tNEXT[v]]
-- --_tQCHLD[a]
-- } else {
-- delete
_tLCHLD[a = _tPARENT[v]]
-- delete
_tFCHLD[a]
-- delete
_tQCHLD[a]
-- }
-- delete _tPARENT[v]
-- } else {
-- if (v in _tNEXT) {
-- delete
_tPREV[_tNEXT[v]]
-- }
-- }
-- }
-- return (_tPREV[_tNEXT[v] = p] = v)
-- }
-- } else {
- ######################## p=ptr, v=0
-- if (v == 0) {
-- return v
-- }
-- return v
-- }
++#_____________________________________________________________________________
++function _tpush(p, aA, a)
++{
++ ######################################################
++ if (isarray(aA)) {
++ delete _tSTACK[p][a = ++_tSTACK[p][0]]
++ _tSTACK[p][a][""]
++ delete _tSTACK[p][a][""]
++ _movarr(_tSTACK[p][a], aA)
++ return
++ }
++ delete _tSTACK[p][a = ++_tSTACK[p][0]]
++ return (_tSTACK[p][a] = aA)
++}
++
++# prefix -
++# prichr - aware character `{', `^',`]'
++# sechr - aware character `.' as the first char of sechr, and character
`}'
++# suffix - aware character `]'
++# cntptr - aware character `]'
++
++function _tr(n, cs, H)
++{
++ #_tuidinitcs[p]=cs
++ #2 uidel, 5 pfx, 7 hichr,11(10) lochr,14 suffix
++ _rconline(n ": " cs)
++ _rconl()
++ if (match(cs,
/^((([^\xB4:\[\|\]]*\xB4.)*[^\xB4:\[\|\]]*):)?((([^\xB4\[\|\]]*\xB4.)*[^\xB4\[\|\]]*)\[)?(([^\xB4\|\]]*\xB4.)*[^\xB4\|\]]*)?(\|(\.)?(([^\xB4\]]*\xB4.)*[^\xB4\]]*))?(\](.*))?$/,
H)) {
++ _rconl("delptr: " _une(H[2]) "'")
++ _rconl("pfxstr: " _une(H[5]) "'")
++ _rconl("hichr: " _une(H[7]) "'")
++ _rconl("lochr: " _une((H[10] ? H[7] "' and " H[11] "'" : H[11]
"'")))
++ _rconl("sfxstr: " _une(H[14]) "'")
++ } else {
++ _rconl("NOT MATCH!")
++ }
++ _rconl()
++}
++
++#_______________________________________________________________________
++function _trace(t, d, A)
++{
++ #################################################
++ if (_ERRLOG_TF) {
++ A["TYPE"] = "TRACE"
++ A["TEXT"] = t
++ _log(A, d)
++ }
++}
++
++#_________________________________________________________________
++function _trunframe(f, p, p0, p1, p2)
++{
++ #################################
++ return _tframe((f ? f : "_trunframe_i0"), p, p0, p1, p2)
++}
++
++#_________________________________________________________________
++function _trunframe_i0(p, p0, p1, p2, f)
++{
++ if (p in _tFN) {
++ f = _tFN[p]
++ return @f(p, p0, p1, p2)
++ }
++}
++
++#_________________________________________________________________
++function _trunframex(f, p, p0, p1)
++{
++ ###################################
++ return _tframex((f ? f : "_trunframe_i0"), p, p0, p1)
++}
++
++#_________________________________________________________________
++function _trunpass(f, p, p0, p1)
++{
++ #####################################
++ return _tpass((f ? f : "_trunframe_i0"), p, p0, p1)
++}
++
++#_________________________________________________________________
++function _trunpassx(f, p, p0, p1)
++{
++ ####################################
++ return _tpassx((f ? f : "_trunframe_i0"), p, p0, p1)
++}
++
++#_________________________________________________________________
++function _tsetsp(p, v)
++{
++ #############################################
++ return (_tSTACK[p][0] = v)
++}
++
++# dptr - morg ptr; in case if object
deleted then _CLASSPTR[ptr] will be deleted(object is death), but
++# _tUIDEL[_CLASSPTR[ptr]]
will be created that object can be resurrected from morg
++# dptr can be any string
containing any characters except `:'. It's not verified
++# pfx,sfx - uid prefix str, and uid suffix str;
this strings specifies string that can be inserted before/after
++# uid generated by uid
generator:
++#
++# class uid:
pfx uidgen sfx
++#
++# Both can be any
string(including ""), and can contains any character with B4-escaping feature.
++# Note: that this strings
cannot contains "'" character: it's should be escaped by B4-escaper.
++# hstr,lstr - this values configure
uid-generator itself. ther is a 3 combinations regarding its:
++#
++# hstr
lstr function
++#
++# `ptr
* - specify pointer to external uid-generator
++#
All uids and chars will be generated by
external uid-generator
++# *
^ptr - class will have it's own uid generator using
external character set
++# str
str - class will have it's own uid generator with
it's own character set
++#
character set inmplemented in
hstr(high-charset) and in lstr(low-charset) in 2 ways:
++# 1) "AB"
"AB01" - this mean that high-charset contain chars:
`A' and `B'
++#
low-charset contains chars:
`A', `B', `0', `1'
++#
++# 2) "Az,By"
"Ax,Bw,0v,1u" - this mean that high-charset contain chars: `Az' and
`By'
++#
low-charset contains chars:
`Ax', `Bw', `0v', `1u'
++#
Note: both: hstr and lstr cannot
contain char `,' directly, but it's can uses
++#
B4-escaper to escape
any char including `,'
++
++
++
++# !!!! in case of using `,' in hstr/lstr - the escaped `,' will leads to
interpretate hstr and lstr as divided by `,'
++# if parameters error then i should be more specific about what error in
parameters detected
++# document _inituid(): parameters; document cs: uid initialization string
format
++# test with escape char
++# adv hstr and lstr splitting?
++# chk if hstr len==0 ?
++# return _tclass & report error?
++# _tapi thru function
++
++# additional syntax checking ???
++# implement syntax and uid srv in docs
++# add _dumpuid() ????
++# make performance measurement
++# protection against badchar list
++# additional feature to specify _getuid() to not resurrect uid; and
informative that uid was ressurected or not
++# build _defclass fn
++
++# _tuidinitcs ????
++# _tuidchrh[p]
++# _tuidchrl[p]
++# _tuidchr[p]
++# _tuidcnt[p]
++# _tUIDPFX[p]
++# _tUIDSFX[p]
++# _tUIDEL
++# _tUIDCNTH
++# _tUIDCNTL
++# _tUIDCHRL
++# _tUIDCHRH
++
++# create default class basic `new' and `del' functions
++
++
++
++function _tstini()
++{
++ _ini("uidel:pfx'hstr|lstr'sfx")
++ _ini("uidel:pfx'hstr|lstr'")
++ _ini("uidel:'hstr|lstr'sfx")
++ _ini("uidel:'hstr|lstr'")
++ _ini("uidel:pfx'hstr'sfx")
++ _ini("uidel:pfx'hstr'")
++ _ini("uidel:'hstr'sfx")
++ _ini("uidel:'hstr'")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _ini("pfx'hstr|lstr'sfx")
++ _ini("pfx'hstr|lstr'")
++ _ini("'hstr|lstr'sfx")
++ _ini("'hstr|lstr'")
++ _ini("pfx'hstr'sfx")
++ _ini("pfx'hstr'")
++ _ini("'hstr'sfx")
++ _ini("'hstr'")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _ini("uidel:pfx'`cntptr'sfx")
++ _ini("uidel:pfx'`cntptr'")
++ _ini("uidel:'`cntptr'sfx")
++ _ini("uidel:'`cntptr'")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _ini("pfx'`cntptr'sfx")
++ _ini("pfx'`cntptr'")
++ _ini("'`cntptr'sfx")
++ _ini("'`cntptr'")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _ini("uidel:pfx'^chrptr'sfx")
++ _ini("uidel:pfx'^chrptr'")
++ _ini("uidel:'^chrptr'sfx")
++ _ini("uidel:'^chrptr'")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++ _ini("pfx'^chrptr'sfx")
++ _ini("pfx'^chrptr'")
++ _ini("'^chrptr'sfx")
++ _ini("'^chrptr'")
++ _conl()
++
_conl("########################################################################################")
++ _conl()
++}
++
++function _tstv(p, A, r, f)
++{
++ if (f == "") {
++ f = "tst_splitstr"
++ }
++ @f(_NOP, A, p)
++ @f(AA0, A, p)
++ @f(AB0, A, p)
++ @f(AC0, A, p)
++ @f("", A, p)
++ @f("a", A, p)
++ @f("\264a", A, p)
++ @f("\264", A, p)
++ @f("a\264\264\264,ba\264\264\264,", A, p)
++ @f("\264,", A, p)
++ @f(",", A, p)
++ @f("\264a,", A, p)
++ @f("ab,", A, p)
++ @f("ab,\264", A, p)
++ @f("\264a\264,,ba", A, p)
++ @f(",a,,b\264,c,,\264a,,\264,,,", A, p)
++}
++
++function _typ(p)
++{
++ return (_t0 = (isarray(p) ? "#" : (p == 0 ? (p == "" ? 0 : (p in
_CLASSPTR ? "`" : (p ? 3 : 4))) : (p in _CLASSPTR ? "`" : (p + 0 == p ? 5 : (p
? 3 : 2))))))
++}
++
++function _typa(p, A)
++{
++ return (_t0 = (isarray(p) ? "#" : (p == 0 ? (p == "" ? 0 : (p in A ?
"`" : (p ? 3 : 4))) : (p in A ? "`" : (p + 0 == p ? 5 : (p ? 3 : 2))))))
++}
++
++#_____________________________________________________
++# _tframe0(hndstr,ptr)
++#
++#
++# IN:
++# MOD:
++# OUT:
++# RETURN:
++#
++# handler string:
++# Handler-string divides to words. Word splitter is char ";"
++#
++# Note that handler-string processed left to right. This mean that next
word(more rightly) will overwrite fields implemented before(leftmost).
++# Note that if word-string contains more than one rexp-field then only
last rexp-field(most rightly) will be applied.
++#_______________________________________________
++# TO DESIGN:
++#
++# 0-4: complete design of tlink handler call
++# 1-4: add new tlink handler call
++# 1-4: add new run fn (changed rexp to different for each type: see _tframe0)
++#
++# hndstr:
++# may be add rexp for each type of handler and also total rexp for all
??? ADDED (test)
++# may be add separator char ";" ??? ADDED (test)
++#_______________________________________________________________________
++function _tzend(a, b)
++{
++ #####################################################
++ if (b == 0 && b == "") {
++ return (_TEND[_TEND[_ARRLEN]] = a)
++ } else {
++ return (_TEND[_TEND[_ARRLEN] + a] = b)
++ }
++}
++
++function _uidcyc(p, i)
++{
++ _dumpuidgen(p)
++ for (i = 1; i < 64 * 8 * 6 - 1; i++) {
++ _conl(i ":" _var(_getuid(p)))
++ }
++ _dumpuidgen(p)
++}
++
++function _une(t)
++{
++ return gensub(/\xB4(.)/, "\\1", "G", t)
++}
++
++#___________________________________________________________________________________
++function _unformatrexp(t)
++{
++ _formatstrq0 = split(t, _FORMATSTRA,
/(\\[0-9]{1,3})|(\\x[[:xdigit:]]+)|(\\.)/, _FORMATSTRB)
++ _formatstrs0 = ""
++ for (t = 1; t < _formatstrq0; t++) {
++ _formatstrs0 = _formatstrs0 _FORMATSTRA[t] ((_FORMATSTRB[t] in
_QESCHR ? _QESCREXP[_FORMATSTRB[t]] : _QESCREXP[toupper(substr(_FORMATSTRB[t],
length(_FORMATSTRB[t]) - 1))]))
++ }
++ return (_formatstrs0 _FORMATSTRA[t])
++}
++
++#___________________________________________________________
++function _unformatrexp_init(i, a)
++{
++ _formatstrs0 = "\\^$.[]|()*+?{}-sSwW<>yB`'"
++ delete _FORMATSTRB
++ for (i = 0; i < 256; i++) {
++ _QESCREXP["\\" _CHR[i]] = (index(_formatstrs0, _CHR[i]) ? "\\"
_CHR[i] : _CHR[i])
++ }
++ for (i = 0; i < 256; i++) {
++ a = (index(_formatstrs0, _CHR[i]) ? "\\" : "")
++ _QESCREXP[sprintf("%.2X", i)] = a _CHR[i]
++ _QESCREXP["\\" sprintf("%.3o", i)] = a _CHR[i]
++ if (i < 8) {
++ _QESCREXP["\\" sprintf("%.1o", i)] = a _CHR[i]
++ }
++ if (i < 64) {
++ _QESCREXP["\\" sprintf("%.2o", i)] = a _CHR[i]
++ }
++ if (i < 16) {
++ _QESCREXP["\\x" sprintf("%.1X", i)] = _QESCREXP["\\x"
sprintf("%.1x", i)] = a _CHR[i]
++ }
++ }
++ patsplit("a" 7 "b" 8 "f" 12 "n" 10 "r" 13 "t" 9 "v" 11, _FORMATSTRA,
/[^0-9]/, _FORMATSTRB)
++ for (i in _FORMATSTRA) {
++ _QESCREXP["\\" _FORMATSTRA[i]] = _CHR[_FORMATSTRB[i] + 0]
++ }
++}
++
++#___________________________________________________________________________________
++function _unformatstr(t)
++{
++ _formatstrq0 = split(t, _FORMATSTRA,
/(\\[0-9]{1,3})|(\\x[[:xdigit:]]+)|(\\.)/, _FORMATSTRB)
++ _formatstrs0 = ""
++ for (t = 1; t < _formatstrq0; t++) {
++ _formatstrs0 = _formatstrs0 _FORMATSTRA[t] ((_FORMATSTRB[t] in
_QESCHR ? _QESCHR[_FORMATSTRB[t]] : _QESCHR[toupper(substr(_FORMATSTRB[t],
length(_FORMATSTRB[t]) - 1))]))
++ }
++ return (_formatstrs0 _FORMATSTRA[t])
++}
++
++#___________________________________________________________
++function _unformatstr_init(i)
++{
++ for (i = 0; i < 256; i++) {
++ _QESCHR["\\" _CHR[i]] = _CHR[i]
++ }
++ for (i = 0; i < 256; i++) {
++ _QESCHR[sprintf("%.2X", i)] = _CHR[i]
++ _QESCHR["\\" sprintf("%.3o", i)] = _CHR[i]
++ if (i < 8) {
++ _QESCHR["\\" sprintf("%.1o", i)] = _CHR[i]
++ }
++ if (i < 64) {
++ _QESCHR["\\" sprintf("%.2o", i)] = _CHR[i]
++ }
++ if (i < 16) {
++ _QESCHR["\\x" sprintf("%.1X", i)] = _QESCHR["\\x"
sprintf("%.1x", i)] = _CHR[i]
++ }
++ }
++ i = "a" 7 "b" 8 "f" 12 "n" 10 "r" 13 "t" 9 "v" 11
++ patsplit(i, _FORMATSTRA, /[^0-9]/, _FORMATSTRB)
++ for (i in _FORMATSTRA) {
++ _QESCHR["\\" _FORMATSTRA[i]] = _CHR[_FORMATSTRB[i] + 0]
++ }
++}
++
++#_____________________________________________________________________________
++function _uninit_del(A, i, p0)
++{
++ _del(i)
++}
++
++####################################################################################
++# PUBLIC:
++#_____________________________________________________________________________
++# var _SYS_STDOUT - (by default = "/dev/stdout")
standart output pipe filename
++# var _SYS_STDERR - (by default = "/dev/stderr")
standart error output pipe filename
++# var _SYS_STDCON - (by default = "CON") standart
console output device
++#_____________________________________________________________________________
++# var _CHR["CR"] - return cursor to the position
0 without newline(normally ="\x0D")
++# var _CHR["EOL"] - return cursor to the position
0 & newline (MS:="\x0D\x0A" / UX:="\x0D")
++# var _CON_WIDTH - console width(columns number)
++#_____________________________________________________________________________
++# fn _cmd(c) - execute shell command c and return
output
++# fn _err - output string w\o any
addition into _SYS_STDERR device
++# fn _errnl - output string with addition
_CHR["EOL"] at the end of the string into _SYS_STDERR device
++# fn _out - output string w\o any
addition into _SYS_STDOUT device
++# fn _outnl - output string with addition
_CHR["EOL"] at the end of the string into _SYS_STDOUT device
++#_____________________________________________________________________________
++# fn _con(text[,tabspace])
++# fn _conl(text[,tabspace])
++# fn _conline(text[,tabspace])
++# fn _constat(status[,tabspace])
++# fn _constatpush([status[,tabspace]])
++# fn _constatpop()
++#_______________________________________________________________________
++# var _constatstr
++####################################################################################
++
++
++function _unstr(t)
++{
++ return gensub(/\\(.)/, "\\1", "G", t)
++}
++
++#_________________________________________________________________
++function _untmp(f, a)
++{
++ #############################################
++ if (f = filepath(f)) {
++ if (match(f, /\\$/)) {
++ _deletepfx(_FILEIO_RDTMP, a = toupper(f))
++ _deletepfx(_FILEIO_RDNETMP, a)
} else {
- ######################## p=ptr, v=""
- ######################## p=0
-- if (p == 0) {
-- return v
-- }
- ######################## p="", v=ptr - exclude v
-- if (v) {
-- return _texclude(v)
-- }
-- return v
++ delete _FILEIO_RDNETMP[toupper(f)]
}
++ return f
}
--
-- function _wFCHLD(p, v, a)
-- {
-- if (p) {
-- if (v) {
- ######################## p=v=ptr
-- if (p == v) {
-
#_________________________________________________________________
-
##########################################
++ return ""
++}
++
++#_____________________________________________________________________________
++function _val(v, t)
++{
++ if (isarray(v)) {
++ return (_dumparr(v) _ln(t))
++ }
++ if (v == 0 && v == "") {
++ return (_ln("- (ERRNO=" ERRNO ")") _ln(t))
++ }
++ return (_ln(v "'") _ln(t))
++}
++
++#_____________________________________________________________________________
++function _val0(v)
++{
++ if (isarray(v)) {
++ return _dumparr(v)
++ }
++ if (v == 0 && v == "") {
++ return "-"
++ }
++ return ("\"" v "\"")
++}
++
++#_____________________________________________________________________________
++function _var(v, t)
++{
++ if (isarray(v)) {
++ return (_dumparr(v) _ln(t))
++ }
++ if (v == 0 && v == "") {
++ return (_ln("- (ERRNO=" ERRNO ")") _ln(t))
++ }
++ return (_ln(v "'") _ln(t))
++}
++
++#_______________________________________________________________________
++function _verb(t, d, A)
++{
++ ##################################################
++ if (_ERRLOG_VF) {
++ A["TYPE"] = "VERB"
++ A["TEXT"] = t
++ _log(A, d)
++ }
++}
++
++#_________________________________________________________________
++function _wFBRO(p, v, a)
++{
++ ###########################################
++ if (p) {
++ if (v) {
++ for (a = p; a in _tPARENT; ) {
++ if ((a = _tPARENT[a]) == v) {
return v
}
- ######################## v is parentesis of p
-- for (a = p; a in _tPARENT; ) {
-- if ((a = _tPARENT[a]) == v) {
-- return v
-- }
-- }
++ }
++ ######################## v is parentesis of p
++ if (p in _tPARENT) {
++ p = _tPARENT[p]
if (v in _tNEXT) {
if (v in _tPREV) {
_tPREV[_tNEXT[a] = _tNEXT[v]] =
a = _tPREV[v]
@@@ -7263,11 -5925,11 +7271,8 @@@
delete _tPREV[_tNEXT[v]]
}
}
-- if (p in _tFCHLD) {
-- ++_tQCHLD[p]
-- return (_tFCHLD[p] =
_tPREV[_tNEXT[v] = _tFCHLD[_tPARENT[v] = p]] = v)
-- }
-- delete _tNEXT[v]
++ ++_tQCHLD[p]
++ return (_tFCHLD[p] = _tPREV[_tNEXT[v] =
_tFCHLD[_tPARENT[v] = p]] = v)
} else {
if (v in _tPREV) {
if (v in _tPARENT) {
@@@ -7291,181 -5953,167 +7296,184 @@@
delete _tQCHLD[a]
}
}
-- if (p in _tFCHLD) {
-- ++_tQCHLD[p]
-- return (_tFCHLD[p] =
_tPREV[_tNEXT[v] = _tFCHLD[_tPARENT[v] = p]] = v)
-- }
++ ++_tQCHLD[p]
++ return (_tFCHLD[p] = _tPREV[_tNEXT[v] =
_tFCHLD[_tPARENT[v] = p]] = v)
}
-- _tQCHLD[p] = 1
-- return (_tFCHLD[_tPARENT[v] = p] = _tLCHLD[p] =
v)
} else {
-- if (v == 0) {
-- if (p in _tFCHLD) {
- ######################## p=ptr,
v=0 > delete all chld
-- v = _tFCHLD[p]
-- delete _tFCHLD[p]
-- delete _tLCHLD[p]
-- delete _tQCHLD[p]
-- do {
-- delete _tPARENT[v]
-- } while (v in _tNEXT && (v =
_tNEXT[v]))
++ while (p in _tPREV) {
++ p = _tPREV[p]
++ }
++ if (v in _tPREV) {
++ if (v in _tPARENT) {
++ --_tQCHLD[a = _tPARENT[v]]
++ delete _tPARENT[v]
++ if (v in _tNEXT) {
++ _tNEXT[_tPREV[a] =
_tPREV[v]] = a = _tNEXT[v]
++ } else {
++ delete
_tNEXT[_tLCHLD[a] = _tPREV[v]]
++ }
++ } else {
++ if (v in _tNEXT) {
++ _tNEXT[_tPREV[a] =
_tPREV[v]] = a = _tNEXT[v]
++ } else {
++ delete _tNEXT[_tPREV[v]]
++ }
++ }
++ delete _tPREV[v]
++ } else {
++ if (p == v) {
++ return v
++ }
++ if (v in _tPARENT) {
++ if (v in _tNEXT) {
++ delete _tPREV[_tFCHLD[a
= _tPARENT[v]] = _tNEXT[v]]
++ --_tQCHLD[a]
++ } else {
++ delete _tLCHLD[a =
_tPARENT[v]]
++ delete _tFCHLD[a]
++ delete _tQCHLD[a]
++ }
++ delete _tPARENT[v]
++ } else {
++ if (v in _tNEXT) {
++ delete _tPREV[_tNEXT[v]]
++ }
}
}
-- return v
++ return (_tPREV[_tNEXT[v] = p] = v)
}
} else {
- ######################## p=ptr, v="" > ignore action
- ######################## p=0
-- if (p == 0) {
++ if (v == 0) {
return v
}
++ ######################## p=ptr, v=0
++ return v
++ }
++ } else {
++ ######################## p=ptr, v=""
++ if (p == 0) {
return v
}
++ ######################## p=0
++ if (v) {
++ return _texclude(v)
++ }
++ ######################## p="", v=ptr - exclude v
++ return v
}
++}
-- function _wLBRO(p, v, a)
-- {
-- if (p) {
-- if (v) {
- ######################## v is parentesis of p
-- for (a = p; a in _tPARENT; ) {
-- if ((a = _tPARENT[a]) == v) {
-
#_________________________________________________________________
-
###########################################
-- return v
-- }
++#_________________________________________________________________
++function _wFCHLD(p, v, a)
++{
++ ##########################################
++ if (p) {
++ if (v) {
++ if (p == v) {
++ return v
++ }
++ ######################## p=v=ptr
++ for (a = p; a in _tPARENT; ) {
++ if ((a = _tPARENT[a]) == v) {
++ return v
}
-- if (p in _tPARENT) {
-- p = _tPARENT[p]
-- if (v in _tPREV) {
-- if (v in _tNEXT) {
-- _tNEXT[_tPREV[a] =
_tPREV[v]] = a = _tNEXT[v]
-- delete _tNEXT[v]
-- if (v in _tPARENT) {
-- if (p == (a =
_tPARENT[v])) {
-- return
(_tLCHLD[p] = _tNEXT[_tPREV[v] = _tLCHLD[p]] = v)
-- }
-- --_tQCHLD[a]
-- }
-- } else {
-- if (v in _tPARENT) {
-- if (p == (a =
_tPARENT[v])) {
-- return v
-- }
-- delete
_tNEXT[_tLCHLD[a] = _tPREV[v]]
-- --_tQCHLD[a]
-- } else {
-- delete
_tNEXT[_tPREV[v]]
-- }
-- }
-- ++_tQCHLD[p]
-- return (_tLCHLD[p] =
_tNEXT[_tPREV[v] = _tLCHLD[_tPARENT[v] = p]] = v)
-- } else {
-- if (v in _tNEXT) {
-- if (v in _tPARENT) {
-- delete
_tPREV[_tFCHLD[a = _tPARENT[v]] = _tNEXT[v]]
-- if (p == a) {
-- delete
_tNEXT[v]
-- return
(_tLCHLD[p] = _tNEXT[_tPREV[v] = _tLCHLD[p]] = v)
-- }
-- --_tQCHLD[a]
-- } else {
-- delete
_tPREV[_tNEXT[v]]
-- }
-- delete _tNEXT[v]
-- } else {
-- if (v in _tPARENT) {
-- if (p == (a =
_tPARENT[v])) {
-- return v
-- }
-- delete
_tLCHLD[a]
-- delete
_tFCHLD[a]
-- delete
_tQCHLD[a]
-- }
++ }
++ ######################## v is parentesis of p
++ if (v in _tNEXT) {
++ if (v in _tPREV) {
++ _tPREV[_tNEXT[a] = _tNEXT[v]] = a =
_tPREV[v]
++ delete _tPREV[v]
++ if (v in _tPARENT) {
++ if (p == (a = _tPARENT[v])) {
++ return (_tFCHLD[p] =
_tPREV[_tNEXT[v] = _tFCHLD[p]] = v)
}
-- ++_tQCHLD[p]
-- return (_tLCHLD[p] =
_tNEXT[_tPREV[v] = _tLCHLD[_tPARENT[v] = p]] = v)
++ --_tQCHLD[a]
}
} else {
-- while (p in _tNEXT) {
-- p = _tNEXT[p]
++ if (v in _tPARENT) {
++ if (p == (a = _tPARENT[v])) {
++ return v
++ }
++ delete _tPREV[_tFCHLD[a] =
_tNEXT[v]]
++ --_tQCHLD[a]
++ } else {
++ delete _tPREV[_tNEXT[v]]
}
-- if (v in _tNEXT) {
-- if (v in _tPARENT) {
-- --_tQCHLD[a =
_tPARENT[v]]
-- delete _tPARENT[v]
-- if (v in _tPREV) {
--
_tPREV[_tNEXT[a] = _tNEXT[v]] = a = _tPREV[v]
-- } else {
-- delete
_tPREV[_tFCHLD[a] = _tNEXT[v]]
-- }
-- } else {
-- if (v in _tPREV) {
--
_tPREV[_tNEXT[a] = _tNEXT[v]] = a = _tPREV[v]
-- } else {
-- delete
_tPREV[_tNEXT[v]]
-- }
++ }
++ if (p in _tFCHLD) {
++ ++_tQCHLD[p]
++ return (_tFCHLD[p] = _tPREV[_tNEXT[v] =
_tFCHLD[_tPARENT[v] = p]] = v)
++ }
++ delete _tNEXT[v]
++ } else {
++ if (v in _tPREV) {
++ if (v in _tPARENT) {
++ delete _tNEXT[_tLCHLD[a =
_tPARENT[v]] = _tPREV[v]]
++ if (p == a) {
++ delete _tPREV[v]
++ return (_tFCHLD[p] =
_tPREV[_tNEXT[v] = _tFCHLD[p]] = v)
}
-- delete _tNEXT[v]
++ --_tQCHLD[a]
} else {
-- if (p == v) {
++ delete _tNEXT[_tPREV[v]]
++ }
++ delete _tPREV[v]
++ } else {
++ if (v in _tPARENT) {
++ if (p == (a = _tPARENT[v])) {
return v
}
-- if (v in _tPARENT) {
-- if (v in _tPREV) {
-- delete
_tNEXT[_tLCHLD[a = _tPARENT[v]] = _tPREV[v]]
-- --_tQCHLD[a]
-- } else {
-- delete
_tFCHLD[a = _tPARENT[v]]
-- delete
_tLCHLD[a]
-- delete
_tQCHLD[a]
-- }
-- delete _tPARENT[v]
-- } else {
-- if (v in _tPREV) {
-- delete
_tNEXT[_tPREV[v]]
-- }
-- }
++ delete _tFCHLD[a]
++ delete _tLCHLD[a]
++ delete _tQCHLD[a]
}
-- return (_tNEXT[_tPREV[v] = p] = v)
}
-- } else {
- ######################## p=ptr, v=0
-- if (v == 0) {
-- return v
++ if (p in _tFCHLD) {
++ ++_tQCHLD[p]
++ return (_tFCHLD[p] = _tPREV[_tNEXT[v] =
_tFCHLD[_tPARENT[v] = p]] = v)
}
-- return v
}
++ _tQCHLD[p] = 1
++ return (_tFCHLD[_tPARENT[v] = p] = _tLCHLD[p] = v)
} else {
- ######################## p=ptr, v=""
- ######################## p=0
-- if (p == 0) {
-- return v
-- }
- ######################## p="", v=ptr - exclude v
-- if (v) {
-- return _texclude(v)
++ if (v == 0) {
++ if (p in _tFCHLD) {
++ ######################## p=ptr, v=0 >
delete all chld
++ v = _tFCHLD[p]
++ delete _tFCHLD[p]
++ delete _tLCHLD[p]
++ delete _tQCHLD[p]
++ do {
++ delete _tPARENT[v]
++ } while (v in _tNEXT && (v = _tNEXT[v]))
++ }
}
return v
}
++ } else {
++ ######################## p=ptr, v="" > ignore action
++ if (p == 0) {
++ return v
++ }
++ ######################## p=0
++ return v
}
++}
-- function _wLCHLD(p, v, a)
-- {
-- if (p) {
-- if (v) {
- ######################## p=v=ptr
-- if (p == v) {
-
#_________________________________________________________________
-
##########################################
++#_________________________________________________________________
++function _wLBRO(p, v, a)
++{
++ ###########################################
++ if (p) {
++ if (v) {
++ for (a = p; a in _tPARENT; ) {
++ if ((a = _tPARENT[a]) == v) {
return v
}
- ######################## v is parentesis of p
-- for (a = p; a in _tPARENT; ) {
-- if ((a = _tPARENT[a]) == v) {
-- return v
-- }
-- }
++ }
++ ######################## v is parentesis of p
++ if (p in _tPARENT) {
++ p = _tPARENT[p]
if (v in _tPREV) {
if (v in _tNEXT) {
_tNEXT[_tPREV[a] = _tPREV[v]] =
a = _tNEXT[v]
@@@ -7487,11 -6135,11 +7495,8 @@@
delete _tNEXT[_tPREV[v]]
}
}
-- if (p in _tLCHLD) {
-- ++_tQCHLD[p]
-- return (_tLCHLD[p] =
_tNEXT[_tPREV[v] = _tLCHLD[_tPARENT[v] = p]] = v)
-- }
-- delete _tPREV[v]
++ ++_tQCHLD[p]
++ return (_tLCHLD[p] = _tNEXT[_tPREV[v] =
_tLCHLD[_tPARENT[v] = p]] = v)
} else {
if (v in _tNEXT) {
if (v in _tPARENT) {
@@@ -7515,664 -6163,596 +7520,802 @@@
delete _tQCHLD[a]
}
}
-- if (p in _tLCHLD) {
-- ++_tQCHLD[p]
-- return (_tLCHLD[p] =
_tNEXT[_tPREV[v] = _tLCHLD[_tPARENT[v] = p]] = v)
-- }
++ ++_tQCHLD[p]
++ return (_tLCHLD[p] = _tNEXT[_tPREV[v] =
_tLCHLD[_tPARENT[v] = p]] = v)
}
-- _tQCHLD[p] = 1
-- return (_tLCHLD[_tPARENT[v] = p] = _tFCHLD[p] =
v)
} else {
-- if (v == 0) {
-- if (p in _tFCHLD) {
- ######################## p=ptr,
v=0 > delete all chld
-- v = _tFCHLD[p]
-- delete _tFCHLD[p]
-- delete _tLCHLD[p]
-- delete _tQCHLD[p]
-- do {
-- delete _tPARENT[v]
-- } while (v in _tNEXT && (v =
_tNEXT[v]))
++ while (p in _tNEXT) {
++ p = _tNEXT[p]
++ }
++ if (v in _tNEXT) {
++ if (v in _tPARENT) {
++ --_tQCHLD[a = _tPARENT[v]]
++ delete _tPARENT[v]
++ if (v in _tPREV) {
++ _tPREV[_tNEXT[a] =
_tNEXT[v]] = a = _tPREV[v]
++ } else {
++ delete
_tPREV[_tFCHLD[a] = _tNEXT[v]]
++ }
++ } else {
++ if (v in _tPREV) {
++ _tPREV[_tNEXT[a] =
_tNEXT[v]] = a = _tPREV[v]
++ } else {
++ delete _tPREV[_tNEXT[v]]
++ }
++ }
++ delete _tNEXT[v]
++ } else {
++ if (p == v) {
++ return v
++ }
++ if (v in _tPARENT) {
++ if (v in _tPREV) {
++ delete _tNEXT[_tLCHLD[a
= _tPARENT[v]] = _tPREV[v]]
++ --_tQCHLD[a]
++ } else {
++ delete _tFCHLD[a =
_tPARENT[v]]
++ delete _tLCHLD[a]
++ delete _tQCHLD[a]
++ }
++ delete _tPARENT[v]
++ } else {
++ if (v in _tPREV) {
++ delete _tNEXT[_tPREV[v]]
++ }
}
}
-- return v
++ return (_tNEXT[_tPREV[v] = p] = v)
}
} else {
- ######################## p=ptr, v="" > ignore action
- ######################## p=0
-- if (p == 0) {
++ if (v == 0) {
return v
}
++ ######################## p=ptr, v=0
return v
}
++ } else {
++ ######################## p=ptr, v=""
++ if (p == 0) {
++ return v
++ }
++ ######################## p=0
++ if (v) {
++ return _texclude(v)
++ }
++ ######################## p="", v=ptr - exclude v
++ return v
}
++}
-- function _wLINK(p, v)
-- {
-
#_________________________________________________________________
- ##############################################
-- return (_tLINK[p] = v)
-- }
--
-- function _wNEXT(p, v, a, b)
-- {
-- if (p) {
-- if (v) {
- ######################## p=v=ptr
-- if (p == v) {
-
#_________________________________________________________________
-
#########################################
++#_________________________________________________________________
++function _wLCHLD(p, v, a)
++{
++ ##########################################
++ if (p) {
++ if (v) {
++ if (p == v) {
++ return v
++ }
++ ######################## p=v=ptr
++ for (a = p; a in _tPARENT; ) {
++ if ((a = _tPARENT[a]) == v) {
return v
}
- ######################## v is parentesis of p
-- for (a = p; a in _tPARENT; ) {
-- if ((a = _tPARENT[a]) == v) {
-- return v
-- }
-- }
-- if (v in _tPREV) {
-- if (p == (a = _tPREV[v])) {
-- return v
-- }
-- if (v in _tNEXT) {
-- _tPREV[_tNEXT[a] = _tNEXT[v]] =
a
-- if (v in _tPARENT) {
-- --_tQCHLD[_tPARENT[v]]
-- }
-- } else {
-- delete _tNEXT[a]
-- if (v in _tPARENT) {
-- _tLCHLD[b =
_tPARENT[v]] = a
-- --_tQCHLD[b]
++ }
++ ######################## v is parentesis of p
++ if (v in _tPREV) {
++ if (v in _tNEXT) {
++ _tNEXT[_tPREV[a] = _tPREV[v]] = a =
_tNEXT[v]
++ delete _tNEXT[v]
++ if (v in _tPARENT) {
++ if (p == (a = _tPARENT[v])) {
++ return (_tLCHLD[p] =
_tNEXT[_tPREV[v] = _tLCHLD[p]] = v)
}
- }
- } else {
- if (v in _tNEXT) {
- if (v in _tPARENT) {
- delete _tPREV[_tFCHLD[a
= _tPARENT[v]] = _tNEXT[v]]
- --_tQCHLD[a]
- } else {
- delete _tPREV[_tNEXT[v]]
++ --_tQCHLD[a]
+ }
+ } else {
- if (v in _tNEXT) {
- if (v in _tPARENT) {
- delete _tPREV[_tFCHLD[a
= _tPARENT[v]] = _tNEXT[v]]
- --_tQCHLD[a]
- } else {
- delete _tPREV[_tNEXT[v]]
++ if (v in _tPARENT) {
++ if (p == (a = _tPARENT[v])) {
++ return v
}
++ delete _tNEXT[_tLCHLD[a] =
_tPREV[v]]
++ --_tQCHLD[a]
} else {
-- if (v in _tPARENT) {
-- delete _tFCHLD[a =
_tPARENT[v]]
-- delete _tLCHLD[a]
-- delete _tQCHLD[a]
-- }
++ delete _tNEXT[_tPREV[v]]
}
}
-- if (p in _tNEXT) {
-- _tPREV[_tNEXT[v] = _tNEXT[p]] = v
-- if (p in _tPARENT) {
-- ++_tQCHLD[_tPARENT[v] =
_tPARENT[p]]
++ if (p in _tLCHLD) {
++ ++_tQCHLD[p]
++ return (_tLCHLD[p] = _tNEXT[_tPREV[v] =
_tLCHLD[_tPARENT[v] = p]] = v)
++ }
++ delete _tPREV[v]
++ } else {
++ if (v in _tNEXT) {
++ if (v in _tPARENT) {
++ delete _tPREV[_tFCHLD[a =
_tPARENT[v]] = _tNEXT[v]]
++ if (p == a) {
++ delete _tNEXT[v]
++ return (_tLCHLD[p] =
_tNEXT[_tPREV[v] = _tLCHLD[p]] = v)
++ }
++ --_tQCHLD[a]
} else {
-- delete _tPARENT[v]
++ delete _tPREV[_tNEXT[v]]
}
-- } else {
delete _tNEXT[v]
-- if (p in _tPARENT) {
-- ++_tQCHLD[_tPARENT[_tLCHLD[a] =
v] = a = _tPARENT[p]]
-- } else {
-- delete _tPARENT[v]
++ } else {
++ if (v in _tPARENT) {
++ if (p == (a = _tPARENT[v])) {
++ return v
++ }
++ delete _tLCHLD[a]
++ delete _tFCHLD[a]
++ delete _tQCHLD[a]
}
}
-- return (_tNEXT[_tPREV[v] = p] = v)
-- } else {
- ######################## p=ptr, v=0
-- if (v == 0) {
-- return v
++ if (p in _tLCHLD) {
++ ++_tQCHLD[p]
++ return (_tLCHLD[p] = _tNEXT[_tPREV[v] =
_tLCHLD[_tPARENT[v] = p]] = v)
}
-- return v
}
++ _tQCHLD[p] = 1
++ return (_tLCHLD[_tPARENT[v] = p] = _tFCHLD[p] = v)
} else {
- ######################## p=ptr, v=""
- ######################## p=0
-- if (p == 0) {
-- return v
-- }
- ######################## p="", v=ptr - exclude v
-- if (v) {
-- return _texclude(v)
++ if (v == 0) {
++ if (p in _tFCHLD) {
++ ######################## p=ptr, v=0 >
delete all chld
++ v = _tFCHLD[p]
++ delete _tFCHLD[p]
++ delete _tLCHLD[p]
++ delete _tQCHLD[p]
++ do {
++ delete _tPARENT[v]
++ } while (v in _tNEXT && (v = _tNEXT[v]))
++ }
}
return v
}
-- }
--
-- function _wPARENT(p, v)
-- {
-
#_________________________________________________________________
- ############################################
++ } else {
++ ######################## p=ptr, v="" > ignore action
++ if (p == 0) {
++ return v
++ }
++ ######################## p=0
return v
}
--
-- function _wPREV(p, v, a, b)
-- {
-- if (p) {
-- if (v) {
- ######################## p=v=ptr
-- if (p == v) {
-
#_________________________________________________________________
-
#########################################
++}
++
++#_________________________________________________________________
++function _wLINK(p, v)
++{
++ ##############################################
++ return (_tLINK[p] = v)
++}
++
++#_________________________________________________________________
++function _wNEXT(p, v, a, b)
++{
++ #########################################
++ if (p) {
++ if (v) {
++ if (p == v) {
++ return v
++ }
++ ######################## p=v=ptr
++ for (a = p; a in _tPARENT; ) {
++ if ((a = _tPARENT[a]) == v) {
return v
}
- ######################## v is parentesis of p
-- for (a = p; a in _tPARENT; ) {
-- if ((a = _tPARENT[a]) == v) {
-- return v
-- }
++ }
++ ######################## v is parentesis of p
++ if (v in _tPREV) {
++ if (p == (a = _tPREV[v])) {
++ return v
}
if (v in _tNEXT) {
-- if (p == (a = _tNEXT[v])) {
-- return v
-- }
-- if (v in _tPREV) {
-- _tNEXT[_tPREV[a] = _tPREV[v]] =
a
-- if (v in _tPARENT) {
-- --_tQCHLD[_tPARENT[v]]
-- }
-- } else {
-- delete _tPREV[a]
-- if (v in _tPARENT) {
-- _tFCHLD[b =
_tPARENT[v]] = a
-- --_tQCHLD[b]
-- }
++ _tPREV[_tNEXT[a] = _tNEXT[v]] = a
++ if (v in _tPARENT) {
++ --_tQCHLD[_tPARENT[v]]
}
} else {
-- if (v in _tPREV) {
-- if (v in _tPARENT) {
-- delete _tNEXT[_tLCHLD[a
= _tPARENT[v]] = _tPREV[v]]
-- --_tQCHLD[a]
-- } else {
-- delete _tNEXT[_tPREV[v]]
-- }
-- } else {
-- if (v in _tPARENT) {
-- delete _tLCHLD[a =
_tPARENT[v]]
-- delete _tFCHLD[a]
-- delete _tQCHLD[a]
-- }
++ delete _tNEXT[a]
++ if (v in _tPARENT) {
++ _tLCHLD[b = _tPARENT[v]] = a
++ --_tQCHLD[b]
}
}
-- if (p in _tPREV) {
-- _tNEXT[_tPREV[v] = _tPREV[p]] = v
-- if (p in _tPARENT) {
-- ++_tQCHLD[_tPARENT[v] =
_tPARENT[p]]
++ } else {
++ if (v in _tNEXT) {
++ if (v in _tPARENT) {
++ delete _tPREV[_tFCHLD[a =
_tPARENT[v]] = _tNEXT[v]]
++ --_tQCHLD[a]
} else {
-- delete _tPARENT[v]
++ delete _tPREV[_tNEXT[v]]
}
} else {
-- delete _tPREV[v]
-- if (p in _tPARENT) {
-- ++_tQCHLD[_tPARENT[_tFCHLD[a] =
v] = a = _tPARENT[p]]
-- } else {
-- delete _tPARENT[v]
++ if (v in _tPARENT) {
++ delete _tFCHLD[a = _tPARENT[v]]
++ delete _tLCHLD[a]
++ delete _tQCHLD[a]
}
}
-- return (_tPREV[_tNEXT[v] = p] = v)
++ }
++ if (p in _tNEXT) {
++ _tPREV[_tNEXT[v] = _tNEXT[p]] = v
++ if (p in _tPARENT) {
++ ++_tQCHLD[_tPARENT[v] = _tPARENT[p]]
++ } else {
++ delete _tPARENT[v]
++ }
} else {
- ######################## p=ptr, v=0
-- if (v == 0) {
-- return v
++ delete _tNEXT[v]
++ if (p in _tPARENT) {
++ ++_tQCHLD[_tPARENT[_tLCHLD[a] = v] = a
= _tPARENT[p]]
++ } else {
++ delete _tPARENT[v]
}
-- return v
}
++ return (_tNEXT[_tPREV[v] = p] = v)
} else {
- ######################## p=ptr, v=""
- ######################## p=0
-- if (p == 0) {
++ if (v == 0) {
return v
}
- ######################## p="", v=ptr - exclude v
-- if (v) {
-- return _texclude(v)
-- }
++ ######################## p=ptr, v=0
return v
}
-- }
--
-- function _wQBRO(p, v)
-- {
-
#_________________________________________________________________
- ##############################################
++ } else {
++ ######################## p=ptr, v=""
++ if (p == 0) {
++ return v
++ }
++ ######################## p=0
++ if (v) {
++ return _texclude(v)
++ }
++ ######################## p="", v=ptr - exclude v
return v
}
--
-- function _wQCHLD(p, v)
-- {
-- if (p) {
-- if (v) {
++}
++
++#_________________________________________________________________
++function _wPARENT(p, v)
++{
++ ############################################
++ return v
++}
++
++#_________________________________________________________________
++function _wPREV(p, v, a, b)
++{
++ #########################################
++ if (p) {
++ if (v) {
++ if (p == v) {
++ return v
++ }
++ ######################## p=v=ptr
++ for (a = p; a in _tPARENT; ) {
++ if ((a = _tPARENT[a]) == v) {
++ return v
++ }
++ }
++ ######################## v is parentesis of p
++ if (v in _tNEXT) {
++ if (p == (a = _tNEXT[v])) {
++ return v
++ }
++ if (v in _tPREV) {
++ _tNEXT[_tPREV[a] = _tPREV[v]] = a
++ if (v in _tPARENT) {
++ --_tQCHLD[_tPARENT[v]]
++ }
++ } else {
++ delete _tPREV[a]
++ if (v in _tPARENT) {
++ _tFCHLD[b = _tPARENT[v]] = a
++ --_tQCHLD[b]
++ }
++ }
} else {
-- if (v == 0) {
-- if (p in _tFCHLD) {
-
#_________________________________________________________________
-
#############################################
- ######################## p=ptr,
v=ptr
- ######################## p=ptr,
v=0 > delete all chld
-- v = _tFCHLD[p]
-- delete _tFCHLD[p]
-- delete _tLCHLD[p]
-- delete _tQCHLD[p]
-- do {
-- delete _tPARENT[v]
-- } while (v in _tNEXT && (v =
_tNEXT[v]))
++ if (v in _tPREV) {
++ if (v in _tPARENT) {
++ delete _tNEXT[_tLCHLD[a =
_tPARENT[v]] = _tPREV[v]]
++ --_tQCHLD[a]
++ } else {
++ delete _tNEXT[_tPREV[v]]
++ }
++ } else {
++ if (v in _tPARENT) {
++ delete _tLCHLD[a = _tPARENT[v]]
++ delete _tFCHLD[a]
++ delete _tQCHLD[a]
}
}
-- return v
}
++ if (p in _tPREV) {
++ _tNEXT[_tPREV[v] = _tPREV[p]] = v
++ if (p in _tPARENT) {
++ ++_tQCHLD[_tPARENT[v] = _tPARENT[p]]
++ } else {
++ delete _tPARENT[v]
++ }
++ } else {
++ delete _tPREV[v]
++ if (p in _tPARENT) {
++ ++_tQCHLD[_tPARENT[_tFCHLD[a] = v] = a
= _tPARENT[p]]
++ } else {
++ delete _tPARENT[v]
++ }
++ }
++ return (_tPREV[_tNEXT[v] = p] = v)
} else {
- ######################## p=0
-- if (p == 0) {
- ######################## p=ptr, v="" > ignore
action
++ if (v == 0) {
return v
}
++ ######################## p=ptr, v=0
return v
}
-- }
--
-- function _warning(t, d, A)
-- {
-- if (_ERRLOG_WF) {
-
#_______________________________________________________________________
- ###############################################
-- A["TYPE"] = "WARNING"
-- A["TEXT"] = t
-- _log(A, d)
++ } else {
++ ######################## p=ptr, v=""
++ if (p == 0) {
++ return v
++ }
++ ######################## p=0
++ if (v) {
++ return _texclude(v)
}
++ ######################## p="", v=ptr - exclude v
++ return v
}
--
-- function _wfilerdnehnd(f, t)
-- {
- #___________________________________________________________
-- if ((f = _filerdne(f)) == "") {
-- return ""
++}
++
++#_________________________________________________________________
++function _wQBRO(p, v)
++{
++ ##############################################
++ return v
++}
++
++#_________________________________________________________________
++function _wQCHLD(p, v)
++{
++ #############################################
++ if (p) {
++ if (v) {
++ } else {
++ ######################## p=ptr, v=ptr
++ if (v == 0) {
++ if (p in _tFCHLD) {
++ ######################## p=ptr, v=0 >
delete all chld
++ v = _tFCHLD[p]
++ delete _tFCHLD[p]
++ delete _tLCHLD[p]
++ delete _tQCHLD[p]
++ do {
++ delete _tPARENT[v]
++ } while (v in _tNEXT && (v = _tNEXT[v]))
++ }
++ }
++ return v
}
-- if (! ((t = _filerd(f)) in _WFILEROOTDIR)) {
-- _cmd("md \"" t "\" 2>NUL")
-- _WFILEROOTDIR[t]
++ } else {
++ ######################## p=ptr, v="" > ignore action
++ if (p == 0) {
++ return v
}
-- return f
++ ######################## p=0
++ return v
}
++}
-- function _wonl(t)
-- {
-- wonl = wonl _ln(t)
++#_______________________________________________________________________
++function _warning(t, d, A)
++{
++ ###############################################
++ if (_ERRLOG_WF) {
++ A["TYPE"] = "WARNING"
++ A["TEXT"] = t
++ _log(A, d)
}
++}
-- function _wonline(t)
-- {
-- wonl = wonl _ln(substr(" _ " t "
_____________________________________________________________________________________________________________________________________",
1, 126))
++#___________________________________________________________
++function _wfilerdnehnd(f, t)
++{
++ if ((f = _filerdne(f)) == "") {
++ return ""
}
--
-- function _wr_shortcut(f, S)
-- {
-- if (_shrtcutf0 = _filepath(f)) {
-
#___________________________________________________________
-- ERRNO = ""
-- _shrtcuta0 = _shortcut_fpath " /A:C /F:\"" _shrtcutf0
"\" 2>&1"
-- for (f in _SHORTCUTWSTRUC) {
-- if (f in S) {
-- _shrtcuta0 = _shrtcuta0 " "
_SHORTCUTWSTRUC[f] "\"" (gensub(/(\\?)$/, "\\1\\1", 1, S[f])) "\""
-- }
-- }
-- if (_shortcut_nerr(_cmd(_shrtcuta0), _shrtcutf0)) {
-- return
-- }
-- }
-- return ((ERRNO ? ERRNO = "write shortcut: " ERRNO : _NOP))
++ if (! ((t = _filerd(f)) in _WFILEROOTDIR)) {
++ _cmd("md \"" t "\" 2>NUL")
++ _WFILEROOTDIR[t]
}
++ return f
++}
-- function _wrfile(f, d, a, b)
-- {
-- if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
-
#_________________________________________________________________
- #########################################
-- ERRNO = "Filename error"
-- return
-- }
-- a = BINMODE
-- BINMODE = "rw"
-- b = ORS
-- ORS = ""
-- ERRNO = ""
-- print(d) > f
-- if (ERRNO) {
-- return ""
-- }
-- close(f)
-- BINMODE = a
-- ORS = b
-- if (ERRNO) {
-- return ""
-- }
-- return f
-- }
++function _wonl(t)
++{
++ wonl = wonl _ln(t)
++}
-- function _wrfile1(f, d, a, b)
-- {
-- if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
-
#___________________________________________________________
- ##################################
-- ERRNO = "Filename error"
-- return
-- }
-- a = BINMODE
-- BINMODE = "rw"
-- b = ORS
-- ORS = ""
++function _wonline(t)
++{
++ wonl = wonl _ln(substr(" _ " t "
_____________________________________________________________________________________________________________________________________",
1, 126))
++}
++
++#___________________________________________________________
++function _wr_shortcut(f, S)
++{
++ if (_shrtcutf0 = _filepath(f)) {
ERRNO = ""
-- print(d) > f
-- if (ERRNO) {
-- return ""
++ _shrtcuta0 = _shortcut_fpath " /A:C /F:\"" _shrtcutf0 "\" 2>&1"
++ for (f in _SHORTCUTWSTRUC) {
++ if (f in S) {
++ _shrtcuta0 = _shrtcuta0 " " _SHORTCUTWSTRUC[f]
"\"" (gensub(/(\\?)$/, "\\1\\1", 1, S[f])) "\""
++ }
}
-- close(f)
-- BINMODE = a
-- ORS = b
-- if (ERRNO) {
-- return ""
++ if (_shortcut_nerr(_cmd(_shrtcuta0), _shrtcutf0)) {
++ return
}
-- return d
}
++ return ((ERRNO ? ERRNO = "write shortcut: " ERRNO : _NOP))
++}
-- function _yexport(p)
-- {
-
#_______________________________________________________________________
- #####################################################
-- return _tframe("_yexport_i0", p)
++#_________________________________________________________________
++function _wrfile(f, d, a, b)
++{
++ #########################################
++ if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
++ ERRNO = "Filename error"
++ return
}
--
-- function _yexport_i0(p, p0, p1, p2)
-- {
-
#_______________________________________________________________________
-- if (p in _tLOG) {
-- return ("_ERRLOG: " _Zexparr(_tLOG[p]) "\n")
-- }
-- if (p in _tSTR) {
-- p = _tSTR[p]
-- gsub(/\x1B/, "\033;", p)
-- gsub(/\x0A/, "\033:", p)
-- return (p "\n")
-- }
++ a = BINMODE
++ BINMODE = "rw"
++ b = ORS
++ ORS = ""
++ ERRNO = ""
++ print(d) > f
++ if (ERRNO) {
++ return ""
}
--
-- function cmp_str_idx(i1, v1, i2, v2)
-- {
-
#_________________________________________________________________
- ##############################
-- return ((i1 < i2 ? -1 : 1))
++ close(f)
++ BINMODE = a
++ ORS = b
++ if (ERRNO) {
++ return ""
}
++ return f
++}
-- function filedi(f, d)
-- {
- #___________________________________________________________
-- if ((f = filerdnehndi(f)) == "") {
-- return _FILEIO_D
-- }
-- if (f in _FILEDIRFL) {
-- return _FILEDIR[f]
-- }
-- if (f in _FILEROOT) {
-- if (d = filegetdrvdir(_FILEROOT[f])) {
-- _FILEDIRFL[f]
-- }
-- return (_FILEDIR[f] = d _FILEDIR[f])
-- }
-- if ((_FILEIO_RD, f) in _FILEDIR) {
-- return _FILEDIR[_FILEIO_RD, f]
-- }
-- return (_FILEDIR[_FILEIO_RD, f] = _FILEIO_D _FILEDIR[f])
++#___________________________________________________________
++function _wrfile1(f, d, a, b)
++{
++ ##################################
++ if ((f = _wfilerdnehnd(f)) == "" || _filene(f) == "") {
++ ERRNO = "Filename error"
++ return
}
--
-- function filegetdrvdir(t, r)
-- {
- #___________________________________________________________
-- if (t in _FILEDRV) {
-- return _FILEDRV[t]
-- }
-- if (match(r = _cmd("cd " t " 2>NUL"), /[^\x00-\x1F]+/)) {
-- r = gensub(/[ \t]*([\\\$\:])[ \t]*/, "\\1", "G",
substr(r, RSTART, RLENGTH))
-- gsub(/(^[ \t]*)|([ \t]*$)/, "", r)
-- if (match(r, /\:(.*)/)) {
-- return (_FILEDRV[tolower(t)] =
_FILEDRV[toupper(t)] = substr(r, RSTART + 1) ((r ~ /\\$/ ? "" : "\\")))
-- }
-- }
++ a = BINMODE
++ BINMODE = "rw"
++ b = ORS
++ ORS = ""
++ ERRNO = ""
++ print(d) > f
++ if (ERRNO) {
return ""
}
--
-- function filegetrootdir(f, dd, d)
-- {
-- if (f in _FILEDIRFL) {
-
#___________________________________________________________
-- if (f in _FILEROOT) {
-- return (_FILEROOT[f] _FILEDIR[f])
-- }
-- if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEROOT) {
-- return (_FILEROOT[dd, f] _FILEDIR[f])
-- }
-- return ((_FILEROOT[dd, f] = fileri(dd)) _FILEDIR[f])
-- }
++ close(f)
++ BINMODE = a
++ ORS = b
++ if (ERRNO) {
++ return ""
++ }
++ return d
++}
++
++#_______________________________________________________________________
++function _yexport(p)
++{
++ #####################################################
++ return _tframe("_yexport_i0", p)
++}
++
++#_______________________________________________________________________
++function _yexport_i0(p, p0, p1, p2)
++{
++ if (p in _tLOG) {
++ return ("_ERRLOG: " _Zexparr(_tLOG[p]) "\n")
++ }
++ if (p in _tSTR) {
++ p = _tSTR[p]
++ gsub(/\x1B/, "\033;", p)
++ gsub(/\x0A/, "\033:", p)
++ return (p "\n")
++ }
++}
++
++#_________________________________________________________________
++function cmp_str_idx(i1, v1, i2, v2)
++{
++ ##############################
++ return ((i1 < i2 ? -1 : 1))
++}
++
++#___________________________________________________________
++function filedi(f, d)
++{
++ if ((f = filerdnehndi(f)) == "") {
++ return _FILEIO_D
++ }
++ if (f in _FILEDIRFL) {
++ return _FILEDIR[f]
++ }
++ if (f in _FILEROOT) {
++ if (d = filegetdrvdir(_FILEROOT[f])) {
++ _FILEDIRFL[f]
++ }
++ return (_FILEDIR[f] = d _FILEDIR[f])
++ }
++ if ((_FILEIO_RD, f) in _FILEDIR) {
++ return _FILEDIR[_FILEIO_RD, f]
++ }
++ return (_FILEDIR[_FILEIO_RD, f] = _FILEIO_D _FILEDIR[f])
++}
++
++#___________________________________________________________
++function filegetdrvdir(t, r)
++{
++ if (t in _FILEDRV) {
++ return _FILEDRV[t]
++ }
++ if (match(r = _cmd("cd " t " 2>NUL"), /[^\x00-\x1F]+/)) {
++ r = gensub(/[ \t]*([\\\$\:])[ \t]*/, "\\1", "G", substr(r,
RSTART, RLENGTH))
++ gsub(/(^[ \t]*)|([ \t]*$)/, "", r)
++ if (match(r, /\:(.*)/)) {
++ return (_FILEDRV[tolower(t)] = _FILEDRV[toupper(t)] =
substr(r, RSTART + 1) ((r ~ /\\$/ ? "" : "\\")))
++ }
++ }
++ return ""
++}
++
++#___________________________________________________________
++function filegetrootdir(f, dd, d)
++{
++ if (f in _FILEDIRFL) {
if (f in _FILEROOT) {
-- if (d = filegetdrvdir(_FILEROOT[f])) {
-- _FILEDIRFL[f]
-- return (_FILEROOT[f] (_FILEDIR[f] = d
_FILEDIR[f]))
-- } else {
-- return (_FILEROOT[f] _FILEDIR[f])
-- }
++ return (_FILEROOT[f] _FILEDIR[f])
}
if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEROOT) {
-- if ((dd, f) in _FILEDIR) {
-- return (_FILEROOT[dd, f] _FILEDIR[dd, f])
-- }
-- if ((d = filedi(dd) _FILEDIR[f]) ~ /^\\/) {
-- return (_FILEROOT[dd, f] (_FILEDIR[dd, f] = d))
-- }
-- return (_FILEROOT[dd, f] d)
++ return (_FILEROOT[dd, f] _FILEDIR[f])
++ }
++ return ((_FILEROOT[dd, f] = fileri(dd)) _FILEDIR[f])
++ }
++ if (f in _FILEROOT) {
++ if (d = filegetdrvdir(_FILEROOT[f])) {
++ _FILEDIRFL[f]
++ return (_FILEROOT[f] (_FILEDIR[f] = d _FILEDIR[f]))
++ } else {
++ return (_FILEROOT[f] _FILEDIR[f])
}
++ }
++ if ((dd = (dd ? dd : _FILEIO_RD), f) in _FILEROOT) {
if ((dd, f) in _FILEDIR) {
-- return ((_FILEROOT[dd, f] = fileri(dd)) _FILEDIR[dd, f])
++ return (_FILEROOT[dd, f] _FILEDIR[dd, f])
}
if ((d = filedi(dd) _FILEDIR[f]) ~ /^\\/) {
-- return ((_FILEROOT[dd, f] = fileri(dd)) (_FILEDIR[dd,
f] = d))
++ return (_FILEROOT[dd, f] (_FILEDIR[dd, f] = d))
}
-- return ((_FILEROOT[dd, f] = fileri(dd)) d)
++ return (_FILEROOT[dd, f] d)
++ }
++ if ((dd, f) in _FILEDIR) {
++ return ((_FILEROOT[dd, f] = fileri(dd)) _FILEDIR[dd, f])
}
++ if ((d = filedi(dd) _FILEDIR[f]) ~ /^\\/) {
++ return ((_FILEROOT[dd, f] = fileri(dd)) (_FILEDIR[dd, f] = d))
++ }
++ return ((_FILEROOT[dd, f] = fileri(dd)) d)
++}
-- function filerdnehndi(st, a, c, r, d, n, A)
-- {
-- if (st) {
-
#___________________________________________________________
-- if ((c = toupper(st)) in _FILECACHE) {
-- return _FILECACHE[c]
-- }
-- if (match(st, /^[ \t]*\\[ \t]*\\/)) {
-- if (match(substr(st, a = RLENGTH + 1), /^[
\t]*([0-9A-Za-z\-]+)[ \t]*(\\[ \t]*([A-Za-z])[ \t]*\$[ \t]*)?(\\[
\t]*([0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)*[
\t]*)?(([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)) {
-- a = a + RLENGTH
-- d = ((A[3] ? "\\" A[3] "$" : "")) "\\"
A[5]
-- gsub(/[ \t]*\\[ \t]*/, "\\", d)
-- if ((st = toupper((r = "\\\\" A[1]) d
(n = A[8]))) in _FILECACHE) {
-- return (_FILECACHE[substr(c, 1,
a)] = _FILECACHE[st])
-- }
-- _FILEDIR[c = _FILECACHE[substr(c, 1,
a)] = _FILECACHE[st] = ++_file_rootcntr] = d
-- _FILEDIRFL[c]
-- _FILEROOT[c] = r
-- } else {
-- _filepath_err = "UNC"
-- return ""
-- }
-- } else {
-- match(st, /^(([ \t]*\.[ \t]*\\[ \t]*)|(([
\t]*([A-Za-z])[ \t]*(\:)[ \t]*)?([ \t]*(\\)[ \t]*)?))([ \t]*(([
\t]*[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)+)[ \t]*)?([
\t]*([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)
-- if (! RLENGTH) {
-- return ""
-- }
-- d = A[8] A[10]
++#___________________________________________________________
++function filerdnehndi(st, a, c, r, d, n, A)
++{
++ if (st) {
++ if ((c = toupper(st)) in _FILECACHE) {
++ return _FILECACHE[c]
++ }
++ if (match(st, /^[ \t]*\\[ \t]*\\/)) {
++ if (match(substr(st, a = RLENGTH + 1), /^[
\t]*([0-9A-Za-z\-]+)[ \t]*(\\[ \t]*([A-Za-z])[ \t]*\$[ \t]*)?(\\[
\t]*([0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)*[
\t]*)?(([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)) {
++ a = a + RLENGTH
++ d = ((A[3] ? "\\" A[3] "$" : "")) "\\" A[5]
gsub(/[ \t]*\\[ \t]*/, "\\", d)
-- if ((st = toupper((r = A[5] A[6]) d (n =
A[14]))) in _FILECACHE) {
-- return (_FILECACHE[substr(c, 1,
RLENGTH)] = _FILECACHE[st])
-- }
-- _FILEDIR[c = _FILECACHE[substr(c, 1, RLENGTH)]
= _FILECACHE[st] = ++_file_rootcntr] = d
-- if (A[8]) {
-- _FILEDIRFL[c]
-- }
-- if (r) {
-- _FILEROOT[c] = r
++ if ((st = toupper((r = "\\\\" A[1]) d (n =
A[8]))) in _FILECACHE) {
++ return (_FILECACHE[substr(c, 1, a)] =
_FILECACHE[st])
}
++ _FILEDIR[c = _FILECACHE[substr(c, 1, a)] =
_FILECACHE[st] = ++_file_rootcntr] = d
++ _FILEDIRFL[c]
++ _FILEROOT[c] = r
++ } else {
++ _filepath_err = "UNC"
++ return ""
}
-- if (n) {
-- if (match(n, /\.[^\.]*$/)) {
-- _FILEXT[c] = substr(n, RSTART)
-- _FILENAM[c] = substr(n, 1, RSTART - 1)
-- } else {
-- _FILENAM[c] = n
-- }
++ } else {
++ match(st, /^(([ \t]*\.[ \t]*\\[ \t]*)|(([
\t]*([A-Za-z])[ \t]*(\:)[ \t]*)?([ \t]*(\\)[ \t]*)?))([ \t]*(([
\t]*[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+(
+[0-9A-Za-z_\!\+\-\[\]\(\)\{\}\~\.]+)*[ \t]*\\)+)[ \t]*)?([
\t]*([0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+(
+[0-9A-Za-z_\!\+\.\~\-\[\]\{\}\(\)]+)*)[ \t]*)?/, A)
++ if (! RLENGTH) {
++ return ""
++ }
++ d = A[8] A[10]
++ gsub(/[ \t]*\\[ \t]*/, "\\", d)
++ if ((st = toupper((r = A[5] A[6]) d (n = A[14]))) in
_FILECACHE) {
++ return (_FILECACHE[substr(c, 1, RLENGTH)] =
_FILECACHE[st])
++ }
++ _FILEDIR[c = _FILECACHE[substr(c, 1, RLENGTH)] =
_FILECACHE[st] = ++_file_rootcntr] = d
++ if (A[8]) {
++ _FILEDIRFL[c]
++ }
++ if (r) {
++ _FILEROOT[c] = r
}
-- return c
-- }
-- return ""
-- }
--
-- function fileri(f)
-- {
- #_____________________________________________________
-- if ((f = filerdnehndi(f)) == "") {
-- return _FILEIO_R
-- }
-- if (f in _FILEROOT) {
-- return _FILEROOT[f]
-- }
-- if ((_FILEIO_RD, f) in _FILEROOT) {
-- return _FILEROOT[_FILEIO_RD, f]
}
-- return (_FILEROOT[_FILEIO_RD, f] = _FILEIO_R)
-- }
--
-- function hujf(a, b, c)
-- {
-- _conl("hujf(" a "," b "," c ")")
-- }
--
-- function ncmp_str_idx(i1, v1, i2, v2)
-- {
- #___________________________________________________________
- #######################
-- return ((i1 < i2 ? 1 : -1))
-- }
--
-- function test_cfg(p, z, AA0, a)
-- {
-- AA0[1]
-- _fclass = _cfguid(p = _getuid(_classys), _NOP, _NOP, _NOP,
_NOP, _classys)
-- _conl()
-- _conline()
-- _conl()
-- _drawuid(p)
-- _fclass = _cfguid(p = _getuid(_classys), AA0, AA0, AA0, AA0,
_classys)
-- _conl()
-- _conline()
-- _conl()
-- _drawuid(p)
-- a = _getuid(z = _fclass = _cfguid(p = _getuid(_classys), p,
"<", ">", "ab", "cd"))
-- _conl("### " a "########")
-- _conline()
-- _conl()
-- _drawuid(p)
-- a = _getuid(_fclass = _cfguid(p = _getuid(_classys), z, 0, 0,
_NOP, z))
-- _conl("### " a "########")
-- _conline()
-- _conl()
-- _drawuid(p)
-- a = _getuid(_fclass = _cfguid(p = _getuid(_classys), z, "^",
"$", z, _classys))
-- _conl("### " a "########")
-- _conline()
-- _conl()
-- _drawuid(p)
-- _fclass = _cfguid(p = _getuid(_classys), "oblptr", "pfx",
"sfx", "abcd")
-- _conl()
-- _conline()
-- _conl()
-- _drawuid(p)
-- _conl("```````````````````" z "'''''''''" ((_isptr(z) ? " ptr"
: " not ptr")))
-- _drawuid(z)
-- }
--
-- function test_splitstr(A)
-- {
-- AA0[-1] = "huj"
-- AA0["A"] = "pizda"
-- AA0[1] = "zhopa"
-- delete AB0[AB0[""] = ""]
-- AC0[-1] = "HUJ"
-- AC0["A"] = "PIZDA"
-- AC0[1] = "ZHOPA"
-- _SPLITSTRB0["1"]
-- wonl = ""
-- _tstv(0, A, 0, "_tstv")
-- _conl(wonl)
-- _wrfile("wonl.out", wonl)
-- }
--
-- function test_uid(p, i)
-- {
- #test_cfg()
- #return
- #_fclass=_cfguid(p=_getuid(_classys),_NOP,_NOP,_NOP,"",_classys)
-- _fclass = _cfguid(p = _getuid(_classys), p, "pfx", "sfx", "abc")
-- _conl("_fclass uid: " _getuid(_fclass))
-- _drawuid(_fclass)
-- _conl("_classys uid: " _getuid(_classys)) _drawuid(_classys)
-- for (i = 1; i < 81; i++) {
-- _conl(i ": " _getuid(_fclass))
-- }
-- _drawuid(_fclass)
-- }
--
-- function tst_splitstr(t, A, R, r)
-- {
-- delete A
-- A["not cleared"]
-- _wonl()
-- _wonline("_splitstr(" ((isarray(t) ? "ARR" ((length(t) > 0 ?
"#" ((t[1] != "zhopa" ? "U" : "l")) : "")) : _val0(t))) ",A" ((isarray(R) ? ",
ARR" ((length(R) > 0 ? "#" ((R[1] != "zhopa" ? "U" : "l")) : "")) : ",
" _val0(R))) "):")
-- _wonl(_val0(r = _splitstr(t, A, R)))
-- _wonl("arrary A:")
-- _wonl(_dumparr(A))
-- return r
-- }
--
-- function tts(p, uidel, psfx, cnt, chr, p5, p6, p7, im)
-- {
-- im = " "
-- im = ".. .."
-- _conl("ret: " _qparam(im, p, uidel, psfx, cnt, chr, p5, p6,
p7) "'")
-- _conl("mask: `" _qparamask "'")
-- }
--
-- function zorr(A, i, r)
-- {
- # # - p is array
- # ` - p is ptr detected in
array _CLASSPTR(for _typ); or p is ptr detected in array A(for _typa)
- # 0 - p is undefined
- # 2 - p is string==""
- # 3 - p is string!=""
- # 4 - p is number 0
- # 5 - p is any number
except 0(positive and negative)
- # str: _typ(p)+0 !_typ(p)+0
- # str/ptr _typ(p)>0
_typ(p)<1
- # str/arr "`">_typ(p0) && _t0
- # str/ptr/arr _typ(p) !_typ(p)
- # ptr _typ(p)=="`" _typ(p)<"`" ?
- # ptr/arr _typ(p)+0!=_t0
- # arr _typ(p)=="#" _typ(p)>"#" ?
-- if (i in A) {
-- _conl("`" i "' in A")
-- } else {
-- _conl("`" i "' not in A")
++ if (n) {
++ if (match(n, /\.[^\.]*$/)) {
++ _FILEXT[c] = substr(n, RSTART)
++ _FILENAM[c] = substr(n, 1, RSTART - 1)
++ } else {
++ _FILENAM[c] = n
++ }
}
-- r = A[i] == "" && A[i] == 0
-- _conl("A[" i "] status is " r)
-- return
-- a = a + -a
-- _conl("``````````````" a "''''''''''''''''")
-- }
--
-- function zzer()
-- {
++ return c
}
++ return ""
++}
++
++#_____________________________________________________
++function fileri(f)
++{
++ if ((f = filerdnehndi(f)) == "") {
++ return _FILEIO_R
++ }
++ if (f in _FILEROOT) {
++ return _FILEROOT[f]
++ }
++ if ((_FILEIO_RD, f) in _FILEROOT) {
++ return _FILEROOT[_FILEIO_RD, f]
++ }
++ return (_FILEROOT[_FILEIO_RD, f] = _FILEIO_R)
++}
++
++function hujf(a, b, c)
++{
++ _conl("hujf(" a "," b "," c ")")
++}
++
++#___________________________________________________________
++function ncmp_str_idx(i1, v1, i2, v2)
++{
++ #######################
++ return ((i1 < i2 ? 1 : -1))
++}
++
++function test_cfg(p, z, AA0, a)
++{
++ AA0[1]
++ _fclass = _cfguid(p = _getuid(_classys), _NOP, _NOP, _NOP, _NOP,
_classys)
++ _conl()
++ _conline()
++ _conl()
++ _drawuid(p)
++ _fclass = _cfguid(p = _getuid(_classys), AA0, AA0, AA0, AA0, _classys)
++ _conl()
++ _conline()
++ _conl()
++ _drawuid(p)
++ a = _getuid(z = _fclass = _cfguid(p = _getuid(_classys), p, "<", ">",
"ab", "cd"))
++ _conl("### " a "########")
++ _conline()
++ _conl()
++ _drawuid(p)
++ a = _getuid(_fclass = _cfguid(p = _getuid(_classys), z, 0, 0, _NOP, z))
++ _conl("### " a "########")
++ _conline()
++ _conl()
++ _drawuid(p)
++ a = _getuid(_fclass = _cfguid(p = _getuid(_classys), z, "^", "$", z,
_classys))
++ _conl("### " a "########")
++ _conline()
++ _conl()
++ _drawuid(p)
++ _fclass = _cfguid(p = _getuid(_classys), "oblptr", "pfx", "sfx", "abcd")
++ _conl()
++ _conline()
++ _conl()
++ _drawuid(p)
++ _conl("```````````````````" z "'''''''''" ((_isptr(z) ? " ptr" : " not
ptr")))
++ _drawuid(z)
++}
++
++function test_splitstr(A)
++{
++ AA0[-1] = "huj"
++ AA0["A"] = "pizda"
++ AA0[1] = "zhopa"
++ delete AB0[AB0[""] = ""]
++ AC0[-1] = "HUJ"
++ AC0["A"] = "PIZDA"
++ AC0[1] = "ZHOPA"
++ _SPLITSTRB0["1"]
++ wonl = ""
++ _tstv(0, A, 0, "_tstv")
++ _conl(wonl)
++ _wrfile("wonl.out", wonl)
++}
++
++function test_uid(p, i)
++{
++ #test_cfg()
++ #return
++
++ _fclass = _cfguid(p = _getuid(_classys), p, "pfx", "sfx", "abc")
++ #_fclass=_cfguid(p=_getuid(_classys),_NOP,_NOP,_NOP,"",_classys)
++ _conl("_fclass uid: " _getuid(_fclass))
++ _drawuid(_fclass)
++ _conl("_classys uid: " _getuid(_classys)) _drawuid(_classys)
++ for (i = 1; i < 81; i++) {
++ _conl(i ": " _getuid(_fclass))
++ }
++ _drawuid(_fclass)
++}
++
++function tst_splitstr(t, A, R, r)
++{
++ delete A
++ A["not cleared"]
++ _wonl()
++ _wonline("_splitstr(" ((isarray(t) ? "ARR" ((length(t) > 0 ? "#" ((t[1]
!= "zhopa" ? "U" : "l")) : "")) : _val0(t))) ",A" ((isarray(R) ? ", ARR"
((length(R) > 0 ? "#" ((R[1] != "zhopa" ? "U" : "l")) : "")) : ", "
_val0(R))) "):")
++ _wonl(_val0(r = _splitstr(t, A, R)))
++ _wonl("arrary A:")
++ _wonl(_dumparr(A))
++ return r
++}
++
++function tts(p, uidel, psfx, cnt, chr, p5, p6, p7, im)
++{
++ im = " "
++ im = ".. .."
++ _conl("ret: " _qparam(im, p, uidel, psfx, cnt, chr, p5, p6, p7) "'")
++ _conl("mask: `" _qparamask "'")
++}
++
++# # - p is array
++# ` - p is ptr detected in array
_CLASSPTR(for _typ); or p is ptr detected in array A(for _typa)
++# 0 - p is undefined
++
++# 2 - p is string==""
++# 3 - p is string!=""
++# 4 - p is number 0
++# 5 - p is any number except 0(positive and
negative)
++
++# str: _typ(p)+0 !_typ(p)+0
++# str/ptr _typ(p)>0 _typ(p)<1
++# str/arr "`">_typ(p0) && _t0
++# str/ptr/arr _typ(p) !_typ(p)
++# ptr _typ(p)=="`" _typ(p)<"`" ?
++# ptr/arr _typ(p)+0!=_t0
++# arr _typ(p)=="#" _typ(p)>"#" ?
++
++function zorr(A, i, r)
++{
++ if (i in A) {
++ _conl("`" i "' in A")
++ } else {
++ _conl("`" i "' not in A")
++ }
++ r = A[i] == "" && A[i] == 0
++ _conl("A[" i "] status is " r)
++ return
++ a = a + -a
++ _conl("``````````````" a "''''''''''''''''")
++}
++
++#_____________________________________________________________________________
++function zzer()
++{
++ ################################################################
++}
-----------------------------------------------------------------------
Summary of changes:
ChangeLog | 106 +
Makefile.am | 4 +-
Makefile.in | 4 +-
NEWS | 11 +
TODO | 25 +-
awk.h | 15 +-
awkgram.c | 37 +-
awkgram.y | 37 +-
awklib/eg/lib/getopt.awk | 3 +-
awklib/eg/lib/groupawk.in | 3 +-
awklib/eg/lib/strtonum.awk | 7 +-
awklib/eg/prog/alarm.awk | 3 +-
awklib/eg/prog/cut.awk | 3 +-
awklib/eg/prog/egrep.awk | 3 +-
awklib/eg/prog/id.awk | 3 +-
awklib/eg/prog/labels.awk | 3 +-
awklib/eg/prog/tee.awk | 6 +-
awklib/eg/prog/uniq.awk | 5 +-
builtin.c | 25 +-
configh.in | 6 +-
configure | 10 +-
configure.ac | 9 +-
dfa.c | 12 -
doc/ChangeLog | 87 +
doc/gawk.1 | 13 +-
doc/gawk.info | 3127 +++++-----
doc/gawk.texi | 1832 +++---
doc/gawktexi.in | 1713 +++---
eval.c | 1 +
helpers/ChangeLog | 4 +
helpers/chlistref.awk | 31 +
interpret.h | 43 +-
main.c | 25 +-
node.c | 3 +-
profile.c | 30 +-
regcomp.c | 36 +-
regex.h | 62 +-
regex_internal.c | 9 +-
replace.c | 2 +-
symbol.c | 64 +-
test/ChangeLog | 25 +
test/Makefile.am | 4 +-
test/Makefile.in | 9 +-
test/Maketests | 5 +
test/badargs.ok | 2 +-
test/functab4.awk | 26 +-
test/functab4.ok | 7 +-
test/id.ok | 81 +-
test/indirectcall2.awk | 11 +
test/indirectcall2.ok | 4 +
test/profile2.ok | 25 +-
test/profile4.ok | 18 +-
test/profile5.ok |14669 ++++++++++++++++++++++----------------------
53 files changed, 11625 insertions(+), 10683 deletions(-)
create mode 100644 helpers/chlistref.awk
create mode 100644 test/indirectcall2.awk
create mode 100644 test/indirectcall2.ok
hooks/post-receive
--
gawk
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [gawk-diffs] [SCM] gawk branch, comment, updated. gawk-4.1.0-795-g5d0e35d,
Arnold Robbins <=