codata.c revision 3f54fd611f536639ec30dd53c48e5ec1897cc7d9
/***********************************************************************
* *
* This software is part of the ast package *
* Copyright (c) 1990-2012 AT&T Intellectual Property *
* and is licensed under the *
* Eclipse Public License, Version 1.0 *
* by AT&T Intellectual Property *
* *
* A copy of the License is available at *
* (with md5 checksum b35adb5213ca9657e911e9befb180842) *
* *
* Information and Software Systems Research *
* AT&T Research *
* Florham Park NJ *
* *
* Glenn Fowler <gsf@research.att.com> *
* *
***********************************************************************/
#pragma prototyped
/*
* Glenn Fowler
* AT&T Research
*
* coshell readonly data
*/
#include "colib.h"
char coident[] = "\
# @(#)$Id: libcoshell (AT&T Research) 2012-02-22 $\n\
%s=%d\n\
{ { (eval 'function fun { trap \":\" 0; return 1; }; trap \"exit 0\" 0; fun; exit 1') && PATH= print -u$%s ksh; } || { times && echo bsh >&$%s; } || { echo osh >&$%s; }; } >/dev/null 2>&1\n\
";
char cobinit[] = "\
then eval 'ignore() {\n\
case $- in\n\
*x*) set -\n\
_coshell_silent=\n\
;;\n\
*) _coshell_silent=1\n\
;;\n\
esac\n\
_coshell_state=exp\n\
_coshell_stop=\"<< -- StoP -- >>\"\n\
_coshell_quote='\\\\\\''\n\
set \"$@\" \"$_coshell_stop\"\n\
while :\n\
do case $1 in\n\
$_coshell_stop)\n\
shift\n\
break\n\
;;\n\
*=*) ;;\n\
*) _coshell_state=arg ;;\n\
esac\n\
case $_coshell_state in\n\
exp) _coshell_arg=`echo $1 | sed \"s/\\\\([^=]*\\\\)=\\\\(.*\\\\)/\\\\1=$_coshell_quote\\\\2$_coshell_quote/\"`\n\
set \"\" \"$@\" \"$_coshell_arg\"\n\
shift\n\
;;\n\
arg) set \"\" \"$@\" \"$_coshell_quote$1$_coshell_quote\"\n\
shift\n\
;;\n\
esac\n\
shift\n\
done\n\
case $_coshell_silent in\n\
\"\") set \"set -x;\" \"$@\" ;;\n\
esac\n\
eval \"$@\"\n\
return 0\n\
}'\n\
eval 'silent() {\n\
case $- in\n\
*x*) set -\n\
_coshell_silent=\n\
;;\n\
*) _coshell_silent=1\n\
;;\n\
esac\n\
_coshell_state=exp\n\
_coshell_stop=\"<< -- StoP -- >>\"\n\
_coshell_quote='\\\\\\''\n\
set \"$@\" \"$_coshell_stop\"\n\
while :\n\
do case $1 in\n\
$_coshell_stop)\n\
shift\n\
break\n\
;;\n\
*=*) ;;\n\
*) _coshell_state=arg ;;\n\
esac\n\
case $_coshell_state in\n\
exp) _coshell_arg=`echo $1 | sed \"s/\\\\([^=]*\\\\)=\\\\(.*\\\\)/\\\\1=$_coshell_quote\\\\2$_coshell_quote/\"`\n\
set \"\" \"$@\" \"$_coshell_arg\"\n\
shift\n\
;;\n\
arg) set \"\" \"$@\" \"$_coshell_quote$1$_coshell_quote\"\n\
shift\n\
;;\n\
esac\n\
shift\n\
done\n\
eval \"$@\"\n\
_coshell_state=$?\n\
case $_coshell_silent in\n\
\"\") set -x ;;\n\
esac\n\
return $_coshell_state\n\
}'\n\
else :\n\
fi\n\
";
char cokinit[] = "\
set +o bgnice -o monitor\n\
alias ignore='ignore '\n\
function ignore\n\
{\n\
integer argc=0\n\
typeset argv state=exp\n\
while :\n\
do case $# in\n\
0) break ;;\n\
esac\n\
case $1 in\n\
*=*) ;;\n\
*) state=arg ;;\n\
esac\n\
case $state in\n\
exp) argv[argc]=${1%%=*}=\"'${1#*=}'\" ;;\n\
arg) argv[argc]=\"'\"$1\"'\" ;;\n\
esac\n\
((argc=argc+1))\n\
shift\n\
done\n\
eval \"${argv[@]}\"\n\
return 0\n\
}\n\
alias silent='set +x X$- \"$@\";_coshell_flags_=$1;shift;silent '\n\
function silent\n\
{\n\
case $_coshell_flags_ in\n\
*x*) trap ' _coshell_status_=$?\n\
if ((_coshell_status_==0))\n\
then set -x\n\
else set -x;(set +x;exit $_coshell_status_)\n\
fi' 0\n\
;;\n\
esac\n\
\"$@\"\n\
}\n\
typeset -xf ignore silent\n\
";
char* co_export[] = /* default export var list */
{
CO_ENV_EXPORT, /* first */
"FPATH",
"VPATH",
0 /* last */
};