version 1.2, 2018/09/28 08:20:27 |
version 1.4, 2020/10/06 06:31:19 |
|
|
* 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.3 2019/02/26 02:48:12 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; |
} |
} |
Line 564 int init_display() |
|
Line 565 int init_display() |
|
return 0; |
return 0; |
} |
} |
rootwin = RootWindow(display,DefaultScreen(display)); |
rootwin = RootWindow(display,DefaultScreen(display)); |
|
return 1; |
} |
} |
|
|
void grab_pointer() |
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)); |
len = ZTOS((Q)ARG1(arg)); |
for ( i = 0; i < len; i++ ) { |
for ( i = 0; i < len; i++ ) { |
if ( !(i%16) ) |
if ( !(i%16) ) |
fprintf(asir_out,"%08x: ",start+i); |
fprintf(asir_out,"%08x: ",(unsigned int)(start+i)); |
fprintf(asir_out,"%02x",start[i]); |
fprintf(asir_out,"%02x",start[i]); |
if ( !((i+1)%16) ) |
if ( !((i+1)%16) ) |
fprintf(asir_out,"\n"); |
fprintf(asir_out,"\n"); |