#] #] ********************* #] loaddefs link d_Qndfs 'QNial setup - header.ndf' - change names of operators, all QNial # 21Oct2021 initial split from 'QNial setup.ndf' EACH write '>>>' 'loading : QNial setup - header.ndf' ; # 08********08 # Table of Contents, generated with : # $ grep "^#]" "$d_Qndfs""QNial setup - header.ndf" | sed 's/^#\]/ /' # ********************* loaddefs link d_Qndfs 'QNial setup - header.ndf' - change names of operators, all QNial +-----+ Define directories, key filenames +-----+ Quick display of "Tables of Contents" for key ndf files : opL_[QNial, setup, boolean, arrays, strings, fileOps, regexpr, find, grep, sed, diff, geany] +-----+ Predefine ops to avoid sequencing problems with initial qnial loaddefs 'QNial setup.ndf' 'strings.ndf' 'fileops.ndf' 'array, table.ndf' 'lists.ndf' # 08********08 #] +-----+ #] Define directories, key filenames # to see all Library directory definitions : # 17Apr2020 make consistent with bash directory, but retain old symbols for backwards compatibility : # $ find "$d_Qroot" -name "*.ndf" | tr \\n \\0 | xargs -0 -IFILE grep --with-filename --line-number "get_cmd" "FILE" #-maxdepth 4 d_home := '/home/bill/' ; d_meda := first host_result 'env | grep "d_meda" | sed "s/.*=//" ' ; d_webSite := first host_result 'env | grep "d_webSite" | sed "s/.*=//" ' ; d_web := first host_result 'env | grep "d_web" | sed "s/.*=//" ' ; d_webRawe := d_web ; %27Jul2022 temporary while I work it out of QNial ; d_webWork := link d_web 'webWork files/' ; d_bin := link d_web 'bin/' ; d_Qroot := link d_web 'Qnial/' ; d_Qhelp := link d_Qroot 'help - [develop, debug, error list, etc]/' ; d_Qlib := link d_Qroot 'Qnial_bag/niallib/' ; % d_Qndfs := link d_Qroot 'MY_NDFS/' ; % defined earlier in 'QNial setup.ndf ; d_Qstat := link d_Qroot 'Qnial_bag/Smillie UAlberta - statistics 1987/' ; d_Qtest := link d_Qroot 'code develop_test/' ; d_Lucas := link d_web 'Lucas/' ; d_MindCode := link d_Qndfs 'MindCode/' ; d_mkts := link d_web 'economics, markets/' ; d_Qmkts := link d_Qndfs 'economics, markets/' ; d_PuetzUWS := link d_web 'Projects - mini/PuetzUWS/' ; d_Python := link d_web 'Software programming & code/Python/' ; d_PROJECTS := first host_result 'env | grep "d_PROJECTS" | sed "s/.*=//" ' ; d_mktData := link d_PROJECTS 'economics, markets/market data/' ; d_Qsecure := link d_PROJECTS 'QNial - secure/' ; d_music := link d_PROJECTS 'My Music/' ; d_Thunderbird := '/home/bill/Thunderbird/n4caryuo.default/Mail/Local Folders/' ; d_MIDAS := first host_result 'env | grep "d_Midas" | sed "s/.*=//" ' ; d_Lexicom := link d_Midas 'a_INNS Lexicom email server/' ; d_txted := 'geany -i ' ; # 30Dec2020 Maybe add some of these in the future? d_txted=geany -i d_calc=libreoffice d_References="$d_PROJECTS"'References/' d_cry="$d_PROJECTS"'Forms/SMARTDOC/HELP/' d_SysMaint="$d_PROJECTS"'System_maintenance/' d_LucaSym="$d_PROJECTS"'Lucas - Universal Force/symbol tables/' d_SAMSUNG_G4=/media/bill/SAMSUNG_G4/ # write transpose mix ('d_temp' 'd_PROJECTS' 'd_bin' 'd_Lucas' 'd_meda' 'd_Qroot' 'd_Qlib' 'd_Qndfs' 'd_Qstat' 'd_Qtest' 'd_Qsecure' ) ( d_temp d_PROJECTS d_bin d_Lucas d_meda d_Qroot d_Qlib d_Qndfs d_Qstat d_Qtest d_Qsecure ) ; # ?~2015? redefine old directory symbols for backwards compatibility # 21Oct2021 commented out to force update throughout ndf files! d_QNial_temp := d_temp ; d_QNial_root := d_Qroot ; d_QNial_lib := d_Qlib ; d_QNial_mine := d_Qndfs ; d_QNial_Stats := d_Qstat ; d_Qnial_tests := d_Qtest ; d_QNial_secure := d_Qsecure ; # 26Oct2020 added stdInn := 0 ; % for readfile stdInn - type input at terminal ; stdOut := 1 ; % for writefile stdOut - output to terminal ; % This is gloablly available. Local stdTmp filenames often include operator names ; stdTmp := link d_temp 'stdTmp.txt' ; # 26Oct2020 normally, pout is unknown when calling pinn_writeExecute_pout. Use either [null, stdTmp] # There will be a problem with recursion! # 08********08 #] +-----+ #] Quick display of "Tables of Contents" for key ndf files : #] opL_[QNial, setup, boolean, arrays, strings, fileOps, regexpr, find, grep, sed, diff, geany] opL_QNial IS host 'grep "^#] " "$d_Qroot""0_QNial summary.txt" | sed "s/^#\]/ /" ' opL_setup IS host 'grep "^#] " "$d_Qndfs""QNial setup.ndf" | sed "s/^#\]/ /" ' opL_boolean IS host 'grep "^#] " "$d_Qndfs""boolean.ndf" | sed "s/^#\]/ /" ' opL_arrays IS host 'grep "^#] " "$d_Qndfs""array, table.ndf" | sed "s/^#\]/ /" ' opL_strings IS host 'grep "^#] " "$d_Qndfs""strings.ndf" | sed "s/^#\]/ /" ' opL_fileOps IS host 'grep "^#] " "$d_Qndfs""file_ops.ndf" | sed "s/^#\]/ /" ' opl_regexpr IS host 'grep "^#] " "$d_SysMaint""Linux/regular expression notes.txt" | sed "s/^#\]/ /" ' opl_find IS host 'grep "^#] " "$d_SysMaint""Linux/find notes.txt" | sed "s/^#\]/ /" ' opl_grep IS host 'grep "^#] " "$d_SysMaint""Linux/grep summary.txt" | sed "s/^#\]/ /" ' opl_sed IS host 'grep "^#] " "$d_SysMaint""Linux/sed summary.txt" | sed "s/^#\]/ /" ' opl_diff IS host 'grep "^#] " "$d_SysMaint""Linux/diff notes.txt" | sed "s/^#\]/ /" ' opl_geany IS host 'grep "^#] " "$d_SysMaint""text processors/geany notes.txt" | sed "s/^#\]/ /" ' # 19Sep2021 These don't work with Suse? or any others? : opl_find IS host (link 'grep "^#] " "$d_SysMaint""Linux/find notes.txt" | sed ' chr_apo 's/^#\]/ /' chr_apo) opl_grep IS host (link 'grep "^#] " "$d_SysMaint""Linux/grep summary.txt" | sed ' chr_apo 's/^#\]/ /' chr_apo) opl_sed IS host (link 'grep "^#] " "$d_SysMaint""Linux/sed summary.txt" | sed ' chr_apo 's/^#\]/ /' chr_apo) opl_diff IS host (link 'grep "^#] " "$d_SysMaint""Linux/diff notes.txt" | sed ' chr_apo 's/^#\]/ /' chr_apo) opl_geany IS host (link 'grep "^#] " "$d_SysMaint""text processors/geany notes.txt" | sed ' chr_apo 's/^#\]/ /' chr_apo) #] +-----+ #] Predefine ops to avoid global sequencing problems with initial qnial loaddefs # These are often required to cluster optrs by theme, before pre-required optrs are defined # make a new symbol for simple that is much clear! QNial manual - simple : The operation simple tests whether or not an array has all atomic items or is an empty array. The result is true if the array is simple and false if it is not. # 08Nov2022 pre-defines should return faults! regexpr search : \t(.*) IS OP (.*){ null } replace : \t\1 IS OP \2{ fault '?\1 undefined (QNial setup header.ndf)' } #] 'arrays.ndf' ary_allItmsUnique_bol IS OP ary { null } ary_atm_in IS OP ary atm { null } aryA_catVertical IS OP aryA { null } ary_itm_cut_subL IS OP itm ary { null } ary_itm_get_idxL IS OP ary itm { null } ary_sub_get_idxL IS OP ary sub { null } ary_sub_get_idx1stL IS OP ary sub { null } ary_to_atmL IS OP ary { null } #] 'boolean.ndf' NAND IS NOT AND NOR IS NOT OR #] 'faults.ndf' ary_hasFaults IS OP ary { null } resultFaultL_separate IS OP resultFaultL { null } #] 'fileops.ndf' writefile_debug IS OP AAA { null } #] 'lists.ndf' - this no longer has usable content lst_strip_sub IS OP lst sub { fault '?lst_strip_sub undefined (QNial setup header.ndf)' } #] 'math - [quick, handy] stuff.ndf' floor_mod IS OP a b { null } int_is_oddNum IS OP int { null } #] 'strings.ndf' chr_tab := char 9 ; chr_apo := char 39 ; #] 'types.ndf' - 25Apr2022 none so far ('QNial setup.ndf' loads types.ndf before all ndfs below)) # none so far #] 'windows [open, close, ID, title], [get,set,move] cart [posn,size].ndf' winIDorName_copyAllTextTo_povr IS OP winIDorName povr { null } winTitle_get_winID IS OP winIDorTitle { null } write '<<<' ; # enddoc