Made some basic utilites for cross-plattform usage, as well as for unified and simplified usage.
Reused and wraped RudiC's echo_, thanks again
Code:
#
# Some tools
#
swarm.util.isRoot() { #
# Returns TRUE if user ID is 0
# Returns FALSE otherwise
if [[ ${UID:-${EUID:-0}} -eq 0 ]]
then $ECHO true
return 0
else $ECHO false
return 1
fi
}
swarm.util.isGUI() { #
# Returns TRUE if XDG_CURRENT_DESKTOP, DESKTOP_SESSION or XAUTHORITY is set
# Returns FALSE otherwise
if [[ -n "${XDG_CURRENT_DESKTOP:-${DESKTOP_SESSION:-$XAUTHORITY}}" ]]
then $ECHO true
return 0
else $ECHO false
return 1
fi
}
swarm.util.mkdir() { # /path/to/make
# Creates full path structures
#
${isRO:-false} && return 1
# Remove any possible args from ARGS
while [[ "-" == "${1:0:1}" ]] ; do shift ; done
swarm.protect "$FUNCNAME" "${@}" && return 1
# Vars
local dir_done=""
local dir_todo=$($PRINTF "${1:1}" | $SED s,"/","\n",g)
# Start pipe
$PRINTF '%s\n' "$dir_todo" | while read current
do # Prepare next dir
dir_done+="/$current"
# Create if not exist
[[ -d "$dir_done" ]] || $MKDIR "$dir_done"
done
return 0
}
swarm.util.echo() { # [-e|-n|-en|-ne] STRING
# Simple echo's, by RudiC @ unix.com
#
echo_(){
( IFS=" "; $PRINTF "%s\n" "$*" )
}
# Portable echo -n
echo_n() {
( IFS=" "; $PRINTF "%s" "$*" )
}
# Portable echo -e
echo_e() {
( IFS=" "; $PRINTF "%b\n" "$*" )
}
# Portable echo -ne
echo_ne() {
( IFS=" "; $PRINTF "%b" "$*" )
}
case "${1/-}" in
"n") shift ; echo_n "${@}" ;;
"e") shift ; echo_e "${@}" ;;
"en"|"ne")
shift ; echo_ne "${@}" ;;
*) echo_ "${@}" ;;
esac
}
swarm.util.isDir() { # /path/to/dir
# Returns true if passed string is a directory
#
[[ -d "$1" ]]
return $?
}
#
# Short variable access to util functions
# and to keep file usage to a minimum
#
isRoot=$(swarm.util.isRoot)
isGUI=$(swarm.util.isGUI)
isDir="swarm.util.isDir"
MKDIR="swarm.util.mkdir"
ECHO="swarm.util.echo"
But currently I'm still busy in re-thinking/doing the init procedure....
Well, unifying (is that a word??) the procedure of using functions to do different checks, keep/put all variables to RAM while put some essential ones (usage speed increase / customize options) in the 'rc' file.
The specific part of preparing configuration files & folders that are optional - because it must run on a Read-Only system as well, is quite more challenging than making it just in a "must-be-installed" way.
Also, with my... crazy... idea of implementing an optional ramdisk support (as root, for configuration and tempfiles only) didnt make the init procedure any easier.
Further, I need to 'bypass' the (so far hardcoded) use of /root because not all systems have it, thus I have to place the configfile (swarmrc) in another place, like using '/etc' if root has no $HOME.
this is the output i am getting here..
cp: cannot create /wls_domains/eoigw/eoigwsA/deliv/cron/MailingScript/eoigwsA_Health_Status_Report.html: Permission denied
/wls_domains/eoigw/eoigwsA/deliv/cron/MailingScript/
/wls_domains/eoigw/eoigwsA/deliv/cron/MailingScript/GenerateReport.sh:... (6 Replies)
Hi Guys, I am trying write a wrapper script but I don't have any idea. I have 4 different korn shell scripts and all of them needs some parameters from command line (positional parameter). My script cant be interactive because its supposed to be automated. I am confused how can I write a wrapper... (6 Replies)
Hello!
I would like to create a blog website on a web domain of mine. The blog will be used for publishing economics-lated articles.
I tried to use a few open source packages for blog creation (WorldPress, b2evolution, Movable type) which I wanted to test on a local computer before arranging... (5 Replies)
Hi all,
Can I create multiple threads using single thread_id
like
pthread_t thread_id;
pthread_create(&thread_id, NULL, &print_xs, NULL);
pthread_create(&thread_id, NULL, &print_ys, NULL);
pthread_create(&thread_id, NULL, &print_zs, NULL);
pthread_join(thread_id, NULL);
what... (2 Replies)
Hi,
I am trying to capture runtime stats of a shell script (c shell). Are there system variables to call? Or should I create a date variable at the start of the script and at the end of the script? I am trying to capture the time if the script stops or ends with error.
Please help.
... (4 Replies)
Hello,
My requirement is based on Oracle where we run a perl script and it asked some questions.I want to write a wrapper which will answer all these questions.
How is it possible.
Thanks (16 Replies)
Use and complete the template provided. The entire template must be completed. If you don't, your post may be deleted!
1. The problem statement, all variables and given/known data:
Make a bash script that calculates average runtime for the first two scripts you made. The average should be... (17 Replies)
Hi,
I have shell script that I am running under Ubuntu as root.
Is it possible to hide the command window and show the user some sort of progress /random progress bar / or other form of GUI interaction?
On MAC, I have been using Platypus but on Ubuntu I am not sure what to do. (4 Replies)
Discussion started by: naveedanwar4u
4 Replies
LEARN ABOUT SUSE
page_util_peg
page_util_peg(n) Parser generator tools page_util_peg(n)
__________________________________________________________________________________________________________________________________________________NAME
page_util_peg - page PEG transformation utilities
SYNOPSIS
package require page::util::peg ?0.1?
package require snit
::page::util::peg::symbolNodeOf tree node
::page::util::peg::symbolOf tree node
::page::util::peg::updateUndefinedDueRemoval tree
::page::util::peg::flatten treequery tree
::page::util::peg::getWarnings tree
::page::util::peg::printWarnings msg
::page::util::peg::peOf tree eroot
::page::util::peg::printTclExpr pe
_________________________________________________________________DESCRIPTION
This package provides a few common operations to PEG transformations. They assume a Normalized PE Grammar Tree as input, see the package
page::util::norm::peg, possibly augmented with attributes coming from transformations not in conflict with the base definition.
API
::page::util::peg::symbolNodeOf tree node
Given an arbitrary expression node in the AST tree it determines the node (itself or an ancestor) containing the name of the nonter-
minal symbol the node belongs to, and returns its id. The result is either the root of the tree (for the start expression), or a
definition node.
::page::util::peg::symbolOf tree node
As ::page::util::peg::symbolNodeOf, but returns the symbol name instead of the node.
::page::util::peg::updateUndefinedDueRemoval tree
The removal of nodes in the AST tree can cause symbols to lose one or more users.
A used by B and C,
B is reachable,
C is not,
so A now loses the node in the expression for C calling it,
or rather, not calling it anymore.
This command updates the cross-references and which nonterminals are now undefined.
::page::util::peg::flatten treequery tree
This commands flattens nested sequence and choice operators in the AST tree, re-using the treeql object treequery to run the query
determining which nodes to cut.
::page::util::peg::getWarnings tree
This command looks at the attributes of the AST tree for problems with the grammar and issues warnings. They do not prevent us from
writing the grammar, but still represent problems with it the user should be made aware of.
The result of the command is a dictionary mapping nonterminal names to their associated warnings.
::page::util::peg::printWarnings msg
The argument of the command is a dictionary mapping nonterminal names to their associated warnings, as generated by, for example,
the command ::page::util::peg::getWarnings.
The warnings contained therein are formatted and then printed via the log command page_info. This means that this command can be
used only from within a plugin managed by the package page::pluginmgr.
::page::util::peg::peOf tree eroot
This command converts the parsing expression starting at the node eroot in the AST tree into a nested list. The exact syntax of this
list specified by the package grammar::peg.
::page::util::peg::printTclExpr pe
This command converts the parsing expression contained in the nested list pe into a Tcl string which can be placed into a Tcl
script. See the package grammar::peg for the exact syntax of pe.
BUGS, IDEAS, FEEDBACK
This document, will undoubtedly contain bugs and other problems. Please report such in the category page of the Tcllib SF Trackers
[http://sourceforge.net/tracker/?group_id=12883]. Please also report any ideas for enhancements you may have.
KEYWORDS
PEG, page, parser generator, parsing expression grammar, text processing, transformation
COPYRIGHT
Copyright (c) 2007 Andreas Kupries <andreas_kupries@users.sourceforge.net>
page 1.0 page_util_peg(n)
04-09-2020
