version 1.37, 2018/03/29 01:32:50 |
version 1.38, 2019/02/26 02:48:12 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.36 2015/08/14 13:51:54 fujimoto Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/miscf.c,v 1.37 2018/03/29 01:32:50 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
*rp = (Obj)q; |
*rp = (Obj)q; |
else { |
else { |
MKSTR(str,distribution); |
MKSTR(str,distribution); |
n = mknode(2,q,str); |
/* 0 means the old version */ |
|
n = mknode(3,q,str,0); |
MKLIST(l,n); |
MKLIST(l,n); |
*rp = (Obj)l; |
*rp = (Obj)l; |
} |
} |