version 1.37, 2018/03/29 01:32:50 |
version 1.39, 2020/10/04 03:14:07 |
|
|
* 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.38 2019/02/26 02:48:12 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
|
|
void delete_history(int,int); |
void delete_history(int,int); |
void grab_pointer(); |
void grab_pointer(); |
|
int equalr(VL,Obj,Obj); |
|
int init_display(); |
|
void goto_toplevel(char *s); |
|
|
struct ftab misc_tab[] = { |
struct ftab misc_tab[] = { |
{"pwd",Pgetcwd,0}, |
{"pwd",Pgetcwd,0}, |
|
|
*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; |
} |
} |