version 1.2, 2018/09/28 08:20:27 |
version 1.3, 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/asir2018/builtin/miscf.c,v 1.1 2018/09/19 05:45:06 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2018/builtin/miscf.c,v 1.2 2018/09/28 08:20:27 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 370 void Pversion(NODE arg,Obj *rp) |
|
Line 370 void Pversion(NODE arg,Obj *rp) |
|
*rp = (Obj)q; |
*rp = (Obj)q; |
else { |
else { |
MKSTR(str,distribution); |
MKSTR(str,distribution); |
n = mknode(2,q,str); |
/* ONE means the new version */ |
|
n = mknode(3,q,str,ONE); |
MKLIST(l,n); |
MKLIST(l,n); |
*rp = (Obj)l; |
*rp = (Obj)l; |
} |
} |