~vcs-imports/gawk/master

}

 

#___________________________________________________________________________________

BEGIN { ############################################################################

        BINMODE = "rw"

        SUBSEP = "\000"

}

 

#___________________________________________________________________________________

BEGIN { #############################################################################

        _delay_perfmsdelay = 11500

}

}

 

#___________________________________________________________________________________

BEGIN {

}

###########################################################################

BEGIN {

        _addlib("_EXTFN")

}

 

#___________________________________________________________________________________

BEGIN { #############################################################################

        delete _XCHR

        delete _ASC

}

 

#___________________________________________________________________________________

BEGIN { #############################################################################

        _SYS_STDCON = "CON"

        _CON_WIDTH = match(_cmd("MODE " _SYS_STDCON " 2>NUL"), /Columns:[ \t]*([0-9]+)/, A) ? strtonum(A[1]) : 80

}

 

#___________________________________________________________________________________

BEGIN { #############################################################################

        if (_SYS_STDOUT == "") {

                _SYS_STDOUT = "/dev/stdout"

}

 

#___________________________________________________________________________________

BEGIN { #############################################################################

        _tInBy = "\212._tInBy"

        _tgenuid_init()

}

 

#___________________________________________________________________________________

BEGIN { #############################################################################

        if (_gawk_scriptlevel < 1) {

                _ERRLOG_TF = 1

}

 

#___________________________________________________________________________________

BEGIN {

        _shortcut_init()

}

 

BEGIN {

        _addlib("_eXTFN")

}

 

#___________________________________________________________________________________

BEGIN {

        _extfn_init()

}

 

BEGIN {

        _addlib("_sHARE")

}

# 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"

}

 

#_____________________________________________________

BEGIN {

        _getperf_fn = "_nop"

}

}

 

#_____________________________________________________

BEGIN {

        _initrdreg()

}

 

#_____________________________________________________

BEGIN {

        _initregpath0()

}

 

#_____________________________________________________

BEGIN {

        _initsys()

}

 

#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

BEGIN { ############################################################################

        a = ENVIRON["EGAWK_CMDLINE"]

        gsub(/^[ \t]*/, "", a)

}

 

#_____________________________________________________________________________

END {   ########################################################################

        _EXIT()

}

 

#_______________________________________________________________________

########################################################################

END {   ###############################################################################

        if (_gawk_scriptlevel < 1) {

                close(_errlog_file)

#_____________________________________________________________________________

# _rQBRO(ptr)                           - Returns brothers total quantity.                      [TESTED]

#                                               If !ptr then returns "".

END {   ###############################################################################

        if (_gawk_scriptlevel < 1) {

                if (! _fileio_notdeltmpflag) {

#       var     _gawk_scriptlevel

#___________________________________________________________________________________

####################################################################################

END {   ###############################################################################

        if (_constatstrln > 0) {

                _constat()

# try different key combinations

# add lib-specified to all libs

 

#_______________________________________________________________________

function W(p, p0, p1)

{

        }

}

 

############################################################

 

#_____________________________________________________________________________

{

}

 

#___________________________________________________________________________________

function _INITBASE()

{

        }

}

 

#___________________________________________________________________________________

 

 

        }

}

 

#______________________________________________________________________________________________

function _START(t, i, A)

{

        }

}

 

#_______________________________________________________________________

########################################################################

function _W(p, A, v)

        return v

}

 

#_______________________________________________________________________

function _Zexparr(S, s, t, i)

{

        return t

}

 

#_________________________________________________________________

function _Zexparr_i0(S, t, i)

{

        return t

}

 

#_________________________________________________________________

function _Zexparr_i1(t)

{

        return t

}

 

#_________________________________________________________________

function _Zexparr_i2(t)

{

        return t

}

 

#_________________________________________________________________

function _Zexparr_i3(t)

{

        return t

}

 

#_______________________________________________________________________

function _Zimparr(D, t, A, B)

{

        }

}

 

#_________________________________________________________________

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)

{

        }

}

 

#_________________________________________________________________

function _Zimparr_i2(t)

{

        return t

}

 

#_____________________________________________________________________________

function _Zimport(t, p, A, c, i, n, B)

{

        }

}

 

#_______________________________________________________________________

function _add(S, sf, D, df)

{

        }

}

 

#_________________________________________________________________

function _addarr(D, S)

{

        }

}

 

#_____________________________________________________

function _addarr_i0(D, S, i)

{

        }

}

 

#_______________________________________________________________________

function _addarrmask(D, S, M)

{

        }

}

 

#___________________________________________________________________________________

####################################################################################

 

        A["B"][""] = A["F"][A["B"][f] = A["B"][""]] = f

}

 

#___________________________________________________________

function _addfile(f, d, a, b)

{

        return d

}

 

#_____________________________________________________________________________

function _addlib(f)

{

        _addf(_LIBAPI, f)

}

 

#___________________________________________________________________________________

####################################################################################

 

        A[++A[0]] = v

}

 

############################################

 

#_______________________________________________________________________

        }

}

 

#_________________________________________________________________

function _bframe(A, t, p)

{

        return _bframe_i0(A, t, p, A[""])

}

 

#___________________________________________________________

function _bframe_i0(A, t, p, f)

{

        return (f ? (_bframe_i0(A, t, p, A[f]) (@f(t, p))) : "")

}

 

# add to _dumparr: checking that if element is undefined

 

 

        return p

}

 

#_____________________________________________________

function _cfguidchr(p, h, l, H, L)

{

        return _cfguidl(p, L, L)

}

 

#_______________________________________________

function _cfguidh(p, H, L, hi, h, li)

{

        _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)

{

        return RT

}

 

#_______________________________________________________________________

function _cmparr(A0, A1, R, a, i)

{

        return a

}

 

#_____________________________________________________________________________

function _con(t, ts, a, b, c, d, i, r, A, B)

{

        RLENGTH = d

}

 

#_______________________________________________________________________

function _conin(t, a, b)

{

        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)

{

        return _constatstr

}

 

#_________________________________________________________________

function _constatgtstr(t, ln, a, b)

{

        return (substr(t, 1, b = int((ln - 3) / 2)) "..." substr(t, a - ln + b + 4))

}

 

#_______________________________________________________________________

function _constatpop()

{

        return _constat("")

}

 

#_______________________________________________________________________

function _constatpush(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)

{

        return p

}

 

#_________________________________________________________________________________________

function _defdll(pp, n, rn, p)

{

        return p

}

 

#___________________________________________________________

function _defescarr(D, r, S, i, c, t)

{

        return t

}

 

#_________________________________________________________________________________________

function _defile(pp, n, f, v, p)

{

        return p

}

 

#_______________________________________________________________________

function _defn(f, c, v)

{

        FUNCTAB[c f] = v

}

 

#_________________________________________________________________________________________

function _defreg(pp, n, f, v, p)

{

        }

}

 

#_______________________________________________________________________________________________

function _defsolution(pp, n, rn, p)

{

        return p

}

 

#_________________________________________________________________________________________

function _defsrv(pp, n, f, v, p)

{

        return p

}

 

#_______________________________________________________________________

function _del(f, c, a, A)

{

        return a

}

 

#_______________________________________________________________________

function _delay(t, a)

{

        }

}

 

#_________________________________________________________________

function _delayms(a)

{

        }

}

 

#_______________________________________________________________________

function _deletepfx(A, f, B, le, i)

{

        }

}

 

#_________________________________________________________________

function _delf(A, f)

{

        delete A["B"][f]

}

 

#_______________________________________________________________________

function _deluid(p)

{

        return _deluida0

}

 

#_______________________________________________________________________

function _dir(A, rd, i, r, f, ds, pf, B, C)

{

        return r

}

 

#_________________________________________________________________

function _dirtree(A, f, B)

{

        return f

}

 

#___________________________________________________________

function _dirtree_i0(B, i, c, A, f, lf, a, C)

{

        return i

}

 

#_______________________________________________________________________

function _dll_check(pp)

{

        }

}

 

#_______________________________________________

function _dll_check_i0(p, R, pp, p2, i, i2, r, f, v, rs, d, tv, tf)

{

        }

}

 

#_______________________________________________

function _dll_check_i1(p, pp, p1, p2, p3, i)

{

        }

}

 

#___________________________________________________________________________________

function _dllerr(p, t, f)

{

        }

}

 

#_______________________________________________________________________

function _dumparr(A, t, lv, a)

{

        }

}

 

#___________________________________________________________

function _dumparr_i1(A, lv, ls, ln, t, t2, i, a, f)

{

        }

}

 

#___________________________________________________________________________________

####################################################################################

 

        return s

}

 

#___________________________________________________________

function _dumpobj_i0(p, f, t)

{

        return (_dumpobj_i1(p, t " ") _dumpobj_i2(p, _getchrln(" ", length(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))

}

 

#___________________________________________________________

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)

{

        return _ln(t "=" _dumpobj_i4(p A) "'")

}

 

#___________________________________________________________

function _dumpobj_i4(t)

{

        return t

}

 

#_________________________________________________________________

function _dumpobj_nc(p, f, t)

{

        return _dumpobj_i0(p, f, t "." p "{ ")

}

 

#_________________________________________________________________

function _dumpobjm(p, f, t, s, t2)

{

        return s

}

 

#_________________________________________________________________

function _dumpobjm_nc(p, f, t, s, t2)

{

        }

}

 

#_____________________________________________________________________________

function _dumpval(v, n)

{

        }

}

 

#_________________________________________________________________

function _endpass(t)

{

        _endpass_v0 = t

}

 

#_______________________________________________________________________

function _err(t, a, b)

{

        return t

}

 

#_________________________________________________________________

function _errnl(t)

{

        return _err(t (t ~ /\x0A$/ ? "" : _CHR["EOL"]))

}

 

#_______________________________________________________________________

function _error(t, d, A)

{

        }

}

 

#_______________________________________________________________________

function _exit(c)

{

        exit c

}

 

#_____________________________________________________________________________

function _export_data(t, i, A)

{

        _expout("_DATA: " _Zexparr(A) "\n")

}

 

#___________________________________________________________________________________

####################################################################################

 

        ORS = b

}

 

#_________________________________________________________________________________________

##########################################################################################

function _extfn_init()

        return r

}

 

#_______________________________________________________________________

function _fatal(t, d, A)

{

        return _faccr_i0(A["F"], t, p, 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)

{

        return (f in _FILEXT ? _FILEXT[f] : "")

}

 

#_______________________________________________________________________

function _file_check(p)

{

        }

}

 

#_______________________________________________

function _file_check_i0(p, pp, p1, p2, f, v)

{

        }

}

 

#_________________________________________________________________

function _filed(f, dd, d)

{

        return d

}

 

#_________________________________________________________________

function _filen(f)

{

        return (f in _FILENAM ? _FILENAM[f] : "")

}

 

#_________________________________________________________________

function _filene(f)

{

        return (f in _FILENAM ? _FILENAM[f] : "") (f in _FILEXT ? _FILEXT[f] : "")

}

 

#_________________________________________________________________

function _filenotexist(f, a)

{

        return a

}

 

#_______________________________________________________________________

function _filepath(f, dd)

{

        return (filegetrootdir(f, dd) (f in _FILENAM ? _FILENAM[f] : "") (f in _FILEXT ? _FILEXT[f] : ""))

}

 

#_________________________________________________________________

function _filer(f, dd)

{

        return (_FILEROOT[dd, f] = fileri(dd))

}

 

#_________________________________________________________________

function _filerd(f, dd)

{

        return filegetrootdir(f, dd)

}

 

#_________________________________________________________________

function _filerdn(f, dd)

{

        return (f in _FILENAM ? (filegetrootdir(f, dd) _FILENAM[f]) : "")

}

 

#_________________________________________________________________

function _filerdne(f, dd)

{

        return ""

}

 

#___________________________________________________________

function _filerdnehnd(st, c, r, d, n, A)

{

        return ""

}

 

#_______________________________________________________________________

function _filexist(f, a)

{

        return _NOP

}

 

#_______________________________________________________________________

function _fn(f, p0, p1, p2)

{

        }

}

 

#_______________________________________________________________________

function _foreach(A, f, r, p0, p1, p2, i, p)

{

        }

}

 

#_____________________________________________________

function _foreach_i0(A, f, D, p0, p1, p2)

{

        }

}

 

#_____________________________________________________

function _foreach_i1(p, f, D, p0, p1, p2)

{

        _gen(D, @f(p, p0, p1, p2))

}

 

#_____________________________________________________________________________

function _formatrexp(t)

{

        return (_formatstrs0 _FORMATSTRA[t])

}

 

#___________________________________________________________

function _formatrexp_init()

{

        _FORMATREXPESC["\t"] = "\\t"

}

 

#_____________________________________________________________________________

function _formatstrd(t)

{

        return (_formatstrs0 _FORMATSTRA[t])

}

 

#___________________________________________________________

function _formatstrd_init()

{

        _FORMATSTRDESC["\t"] = "\\t"

}

 

#__________________________________________________________________________________

 

####################################################################################

        return (_formatstrs0 _FORMATSTRA[t])

}

 

#___________________________________________________________

function _formatstrs_init()

{

        return q

}

 

#_______________________________________________________________________

########################################################################

function _fthru(A, c, p, B)

        return _fthru_i0(A, c, p, B, A[""])

}

 

#_________________________________________________________________

function _fthru_i0(A, c, p, B, f)

{

        }

}

 

#_____________________________________________________________________________

function _gensubfn(t, r, f, p0, A)

{

        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)

{

        }

}

 

#_______________________________________________________________________

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)

{

        }

}

 

#_____________________________________________________________________________

function _get_logout(p)

{

        return _tframe("_get_logout_i0", p)

}

 

#_______________________________________________________________________

function _get_logout_i0(p, t, n, a)

{

        }

}

 

#_______________________________________________________________________

function _getchrln(s, w)

{

        }

}

 

#_______________________________________________________________________

function _getdate()

{

        return strftime("%F")

}

 

#_____________________________________________________________________________

function _getfilepath(t, f, al, b, A)

{

        }

}

 

#_________________________________________________________________

function _getime()

{

        return strftime("%H:%M:%S")

}

 

#_________________________________________________________________

function _getmpdir(f, dd)

{

        return f

}

 

#_________________________________________________________________

function _getmpfile(f, dd)

{

        return f

}

 

#_______________________________________________________________________

function _getperf(o, t, a)

{

        return 1

}

 

#___________________________________________________________

function _getperf_(o, t, a)

{

        return 1

}

 

#___________________________________________________________

function _getperf_noe(o, t, a)

{

        return 1

}

 

#___________________________________________________________

function _getperf_noenot(o, t, a)

{

        return 1

}

 

#___________________________________________________________

function _getperf_not(o, t, a)

{

        }

}

 

#_________________________________________________________________________________________

##########################################################################################

function _getreg_i1(D, r, R, a, i, il, ir, rc, B)

        }

}

 

#_________________________________________________________________

function _getsecond()

{

        return systime()

}

 

#___________________________________________________________

function _getsecondsync(a, c, b, c2)

{

        return (a + 1)

}

 

#_______________________________________________________________________

function _getuid(p)

{

        return _tptr

}

 

#_____________________________________________________

function _getuid_i0(p, UL, UH)

{

        return gensub(/(.)/, ".\\1", "G", t)

}

 

#_____________________________________________________________________________

function _hexnum(n, l)

{

        return sprintf("%." (l + 0 < 1 ? 2 : l) "X", n)

}

 

#_________________________________________________________________

function _igetperf(t, s, o)

{

        return t

}

 

#_______________________________________________________________________

function _info(t, d, A)

{

        }

}

 

# test with the different path types

#       _conl(_ln("SRC:") _dumparr(S)); _conl();

function _ini(p, cs, dptr, pfx, sfx, hstr, lstr)

        _sharextool = "\\\\CPU\\eGAWK\\LIB\\_share\\_share.exe"

}

 

#_________________________________________

function _initspecialuid()

{

{

}

 

#_______________________________________________________________________

function _inituid(p, cs, dptr, pfx, sfx, hstr, lstr, A)

{

        _initspecialuid()

}

 

#_______________________________________________________________________

function _ins(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[""] = f

}

 

# there is problem with string's format: i can;t easilly merge 2 charsets: comma-divided and every-char-divided strings

 

#_______________________________________________________________________

        return 0

}

 

#_______________________________________________________________________

function _istr(p)

{

        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)

{

        }

}

 

#_________________________________________________________________

function _lspctab(t, ts, l, l1, l2, A)

{

        return _mpuretsub(D, _handle8494(_mpuacc))

}

 

#_______________________________________________________________________

function _movarr(D, S)

{

        return t

}

 

#

#       /rexpstr/       ->      datastr

#       (\x00\t\+)*     ->      28 00 09 5B 2B 29

        _conl("mpusub exit: _mpuacc: `" _mpuacc "'")

}

 

#_______________________________________________________________________

function _n(F, v, p)

{

        return _nN_i0(_tgenuid(), F, v)

}

 

#_____________________________________________________

function _nN_i0(p, F, v)

{

        return p

}

 

#_________________________________________________________________

function _newclrdir(f)

{

        return f

}

 

#_______________________________________________________________________

function _newdir(f)

{

        return f

}

 

##############################

 

#_______________________________________________________________________

{

}

 

#_____________________________________________________

#       _retarr(ARRAY,start,prefixtr,postfixtr)

#               Return string collected from elements of ARRAY.

        return

}

 

#___________________________________________________________

function _nretarrd(A, i, v, r, q)

{

        delete A[""]

}

 

#___________________________________________________________________________________

####################################################################################