OpenXM_contrib2/asir2018/builtin/miscf.c - diff

Return to miscf.c CVS log

Up to [local] / OpenXM_contrib2 / asir2018 / builtin

version 1.2, 2018/09/28 08:20:27

version 1.5, 2020/10/06 06:45:37

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* 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.4 2020/10/06 06:31:19 noro Exp $

#include "ca.h"

#include "parse.h"

Line 370 void Pversion(NODE arg,Obj *rp)

*rp = (Obj)q;

else {

MKSTR(str,distribution);

n = mknode(2,q,str);

/* ONE means the new version */

n = mknode(3,q,str,ONE);

MKLIST(l,n);

*rp = (Obj)l;

}

Line 564 int init_display()

Line 565 int init_display()

return 0;

}

rootwin = RootWindow(display,DefaultScreen(display));

return 1;

}

void grab_pointer()

Line 627 void Phex_dump(NODE arg,Z *rp)

Line 629 void Phex_dump(NODE arg,Z *rp)

len = ZTOS((Q)ARG1(arg));

for ( i = 0; i < len; i++ ) {

if ( !(i%16) )

fprintf(asir_out,"%08x: ",start+i);

fprintf(asir_out,"%016lx: ",(unsigned long)(start+i));

fprintf(asir_out,"%02x",start[i]);

if ( !((i+1)%16) )

fprintf(asir_out,"\n");