include_storage="$0"
LOCK(){
+ local lock timeout block
lock="${1}.lock"
timeout="${2-20}"
if [ \! -w "${lock%/*}" ] || [ -e "$lock" -a \! -d "$lock" ]; then
}
RELEASE(){
+ local lock
lock="${1}.lock"
if [ "$(cat "$lock/pid")" = "$$" ]; then
rm "$lock/pid"
fi
}
+STRING='
+ s;\\;\\\\;g;
+ s;\n;\\n;g;
+ s;\t;\\t;g;
+ s;\r;\\r;g;
+ s;\+;\\+;g;
+ s; ;+;g;
+'
+
STRING(){
- printf %s "$*" |sed -r '
- :X; $!{N;bX;}
- s;\\;\\\\;g;
- s;\n;\\n;g;
- s;\t;\\t;g;
- s;\r;\\r;g;
- '
+ { [ $# -eq 0 ] && cat || printf %s "$*"; } \
+ | sed -r ':X; $!{N;bX;}'"$STRING"
}
+UNSTRING='
+ :UNSTRING_X
+ s;((^|[^\\])(\\\\)*)\\n;\1\n;g;
+ s;((^|[^\\])(\\\\)*)\\t;\1\t;g;
+ s;((^|[^\\])(\\\\)*)\\r;\1\r;g;
+ s;((^|[^\\])(\\\\)*)\+;\1 ;g;
+ tUNSTRING_X;
+ s;((^|[^\\])(\\\\)*)\\\+;\1+;g;
+ s;\\\\;\\;g;
+'
UNSTRING(){
- printf %s "$*" |sed -r '
- :X
- s;((^|[^\\])(\\\\)*)\\n;\1\n;g;
- s;((^|[^\\])(\\\\)*)\\t;\1\t;g;
- s;((^|[^\\])(\\\\)*)\\r;\1\r;g;
- tX;
- s;\\\\;\\;g;
- '
+ { [ $# -eq 0 ] && cat || printf %s "$*"; } \
+ | sed -r "$UNSTRING"
}