Nspire机上C解释器 dPicoC v2.11 beta1

diameter

变更日志      

v2.11

          -   增加 <OS.h><math.h>支持。但只有部分函数被支持

          -   增加脚本模式，工程模式，配置模式

v2.10

          -  Nspire版本放出

截图
主界面：

测试（未完成的）小游戏：EvilSword：


设置：

附件：（包含主程序，完整说明文档，程序例）
dPicoC.zip (446.07 KB, 下载次数: 524)

2013-6-23 21:31 上传

点击文件名下载附件

函数支持见2L。

diameter

内建头文件/函数列表

新添加的函数以粗体标注

stdio.h

int sprintf(char *, char *,...);

int puts(char *);

char * gets(char *);

void cls();

int printf(char*,...);

FILE *fopen(char *, char *);

FILE *freopen(char *, char *, FILE *);

int fclose(FILE *);

int fread(void *, int, int, FILE *);

int fwrite(void *, int, int, FILE *);

int fgetc(FILE *);

int getc(FILE *);

char *fgets(char *, int, FILE *);

int fputc(int, FILE *);

int fputs(char *, FILE *);

int feof(FILE *);

int ftell(FILE *);

int fseek(FILE *, int, int);

stdlib.h

float atof(char *);

int atoi(char *);

int atol(char *);

int strtol(char *,char **,int);

void *malloc(int);

void *calloc(int,int);

void *realloc(void *,int);

void free(void *);

int rand();

void srand(int);

void abort();

void exit(int);

char *getenv(char *);

int abs(int);

int labs(int);

string.h

void *memcpy(void *,void *,int);

void *memmove(void *,void *,int);

void *memchr(char *,int,int);

int memcmp(void *,void *,int);

void *memset(void *,int,int);

char *strcat(char *,char *);

char *strncat(char *,char *,int);

char *strchr(char *,int);

char *strrchr(char *,int);

int strcmp(char *,char *);

int strncmp(char *,char *,int);

char *strcpy(char *,char *);

char *strncpy(char *,char *,int);

ctype.h

int isalnum(int);

int isalpha(int);

int isblank(int);

int iscntrl(int);

int isdigit(int);

int isgraph(int);

int islower(int);

int isprint(int);

int ispunct(int);

int isspace(int);

int isupper(int);

int isxdigit(int);

int tolower(int);

int toupper(int);

math.h

double sin(double);

double cos(double);

double tan(double);

double sqrt(double);

double fabs(double);

double ln(double);

double log(double);

double exp(double);

double pow(double);

os.h

int  is_incolor();

void setpixel(int x,int y,int color);

int  getpixel(int x,int y);

void setpixelbuf(unsigned char*scrbuf,int x,int y,int  color);

int  getpixelbuf(unsigned char*scrbuf,int x,int  y);

void wait_key();

void wait_no_key();

int  getch();

void clrscr();

unsigned char * get_scr_base_addr();

int  get_scr_byte_size();

int  msgbox  (char*title,char*msg);

int   msgbox2b(char*title,char*msg,char*button1,char*button2);

int   msgbox3b(char*title,char*msg,char*button1,char*button2,char*button3);

void sleep(int);

int  usr_input(char*title,char*subtitle,char*default,char**value);

int  num_input1(char*title,char*subtitle,char*msg,int*value_ref,int min,int max);

int  num_input2(char*title,char*subtitle,char*msg1,int*value_ref1,int min1,int max  2,char* msg2,int*value_ref2,int min2,int max2);

void putstr(int x,int  y,char*str,int color_fg,int_color_bg);

void write_graph(int x,int  y,int width,int height,unsigned char* image,int color_fg,int color_bg);

void  write_graph_buf(unsigned char*scrbuf,int x,int y,int width,int height,unsigned  char* image,int color_fg,int color_bg);

diameter

程序例

脚本模式测试：script_chs_demo.c.tns
需要把附带的HZK16.tns文件放在文件夹”dpicoc“中
截图：

1. #define FONT_16_SIZE 32
   
2. 
   
3. FILE *                        HZK = NULL;
   
4. unsigned char        mat[FONT_16_SIZE];
   
5. 
   
6. int open_hzk ()
   
7. {
   
8.         HZK = 16.tns","rb");
   
9.         if (HZK==NULL) return 0;
   
10.         return 1;
    
11. }
    
12. 
    
13. void put_chs(int x,int y,unsigned char * str)
    
14. {
    
15.         unsigned char c1,c2;
    
16.         while(*str)
    
17.         {
    
18.                 c1 = *str++;
    
19.                 if(!(c1 & 0x80)) continue;
    
20.                 c2 = *str++;
    
21.                 fseek(HZK,(94*(c1-0xa1)+(c2-0xa1))*FONT_16_SIZE,SEEK_SET);
    
22.                 fread(mat,FONT_16_SIZE,1,HZK);
    
23.                 write_graph(x,y,16,16,mat,0x0,0xF);
    
24.                 x+=16;
    
25.         }
    
26. }
    
27. 
    
28. void close_hzk ()
    
29. {
    
30.         if (HZK!=NULL)
    
31.                 fclose(HZK);
    
32. }
    
33. 
    
34. open_hzk        ();
    
35. put_chs                (0,0,"汉字库使用演示——ｂｙ　安德兰");
    
36. close_hzk        ();
    
37. 
    
38. sleep(500);
    
39. getch();

复制代码

工程模式测试：
a.cpj.tns（必须放置在dpicoc文件夹中）

1. /documents/dpicoc/file1.c.tns
   
2. /documents/dpicoc/file2.c.tns

复制代码

file1.c.tns

1. #include <stdio.h>
   
2. extern int abs(int);
   
3. extern long atol(char *);
   
4. 
   
5. int main ()
   
6. {
   
7.         int a;
   
8.         char buf[64];
   
9.         puts("input a num");
   
10.         a = atol(gets(buf));
    
11.         printf("abs(%d)=%d\n",a,abs(a));
    
12.         return 0;
    
13. }

复制代码

file2.c.tns

1. #include <ctype.h>
   
2. long atol(char *nptr)
   
3. {
   
4.     int c;
   
5.     long total;
   
6.     int sign;
   
7. 
   
8.     while ( isspace((int)(unsigned char)*nptr) )
   
9.         ++nptr;
   
10. 
    
11.     c = (int)(unsigned char)*nptr++;
    
12.     sign = c;
    
13.     if (c == '-' || c == '+')
    
14.         c = (int)(unsigned char)*nptr++;
    
15. 
    
16.     total = 0;
    
17. 
    
18.     while (isdigit(c)) {
    
19.         total = 10 * total + (c - '0');
    
20.         c = (int)(unsigned char)*nptr++;
    
21.     }
    
22. 
    
23.     if (sign == '-')return -total;
    
24.     else            return total;
    
25. }
    
26. 
    
27. int abs(int x)
    
28. {
    
29.   return x<0 ? -x:x;
    
30. }

复制代码

白菜白

{:grin:} 太好了 。有的玩了

qihai1314

我是看不懂{:051:}

_14522

好东西

DAS

好，有的玩了

DAS

我觉得楼主应修改一下，尽量向标准C语言靠近

diameter

DAS 发表于 2013-6-24 19:44
我觉得楼主应修改一下，尽量向标准C语言靠近

给点具体的意见？是标准库还是语法

415987611

#inculde <stdio.h>
int main()
{double a=1.0,b=2.0;
printf("a=%f,b=%f\n",a,b);
return 0;
}

运行结果：
a=0.000000 b=0.000000

float 也是

怎么回事？

diameter

415987611 发表于 2013-6-25 08:53
#inculde
int main()
{double a=1.0,b=2.0;

请仔细查看说明文档（最后一页）
这是ndless标准库的问题，printf只有%d能正常工作
%x无论什么结果都显示xxx
%f无论什么都显示0.000000

415987611

这么坑爹……

有什么替代的解决方案？

diameter

415987611 发表于 2013-6-25 10:01
这么坑爹……

有什么替代的解决方案？

自己实现一个呗...gcvt在ndless里面倒是可以正常使用，下一次加到内建函数里面去
这里倒是有一个比较烂的ftoa

1. char *d_ftoa(double d, char* str)
   
2. {
   
3.         char str1[64];
   
4.         int j=0,k,i;
   
5. 
   
6.         if (d<0)
   
7.         {
   
8.                 *str = '-';
   
9.                 d_ftoa(-d,str+1);
   
10.         }
    
11.         else
    
12.         {
    
13.                 i = (int)d;  //浮点数的整数部分
    
14.                 if (i==0)
    
15.                 {
    
16.                         str1[j++] = '0';
    
17.                 }
    
18.                 else
    
19.                 {
    
20.                         while(i>0)
    
21.                         {
    
22.                                 str1[j++] = i%10+'0';
    
23.                                 i /= 10;
    
24.                         }
    
25.                 }
    
26.                 for(k=0;k<j;k++)
    
27.                         str[k] = str1[j-1-k]; //
    
28.                
    
29.                 str[j++] = '.';
    
30.                
    
31.                 d -= (int)d;
    
32.                
    
33.                 for(i=0;i<16;i++)
    
34.                 {
    
35.                         d *= 10.0;
    
36.                         str[j++] = (int)d+'0';
    
37.                         d -= (int)d;
    
38.                 }
    
39.                
    
40.                 j-=4;
    
41.                
    
42.                 while(str[--j]=='0');
    
43.                         str[j] = '\0';
    
44.                
    
45.                 if (str[j-1]=='.')
    
46.                         str[j-1] = '\0';
    
47.         }
    
48.         return str;
    
49. }
    

复制代码

gaojd

好东西。。。。。。。。

yymalu

C语言！！好厉害

illuminati

感谢楼主分享！

549597890

bug不少...
最大的bug是键盘

549597890

bug不少..
最大bug是键盘

留守tiGTC

rourou_Jun

居然早就有了！！！太赞

suhaijie

看得眼花缭乱