void HariMain(void)
{
int fh;
char c, cmdline[80], *p;
api_cmdline(cmdline, 80);
for (p = cmdline; *p != ' '; p++)
; /* 跳过第一个参数 */
for (; *p == ' '; p++)
; /* 跳过空格 */
fh = api_fopen(p);
if (fh != 0) {
for (;;) {
if (api_fread(&c, 1, fh) == 0) {
break;
}
api_putchar(c);
}
} else {
char s[40];
p[16] = 0;
sprintf(s, "File '%s' not found.\n", p);
api_putstr0(s);
}
api_end();
}
void HariMain(void)
{
int file = api_fopen("license.txt");
int size = api_fsize(file /* handle */, 0 /* mode */);
char* buff = (char *) api_malloc(size + 1);
api_fread(buff, size, file);
buff[size] = '\0';
api_putstr0(buff);
api_fclose(file);
api_free(buff);
api_end();
}
void HariMain(void)
{
int fh;
char c;
fh = api_fopen("ipl10.nas");
if (fh != 0) {
for (;;) {
if (api_fread(&c, 1, fh) == 0) {
break;
}
api_putchar(c);
}
}
api_end();
}
void HariMain(void)
{
int fh;
char c, cmdline[30], *p;
api_cmdline(cmdline, 30);
for (p = cmdline; *p > ' '; p++) { }
for (; *p == ' '; p++) { }
fh = api_fopen(p);
if (fh != 0) {
for (;;) {
if (api_fread(&c, 1, fh) == 0) {
break;
}
api_putchar(c);
}
} else {
api_putstr0("File not found.\n");
}
api_end();
}
void main()
{
int fh;
char c, cmdline[30], *p;
api_cmdline(cmdline, 30);
for(p = cmdline; *p > ' '; p++);
for(; *p == ' '; p++);
api_putstr(p);
fh = api_fopen(p);
if(fh != 0)
{
for(;;)
{
if(api_fread(&c, 1, fh) == 0)
break;
api_putchar(c);
}
}else
{
api_putstr("File not found!\n");
}
}
void HariMain()
{
char buf[WND_X * WND_Y * osak_getbuflen()];
char cmdline[30], *p = 0;
struct CSV_INFO csvinfo;
int sig, cx, cy, basex, basey, i, mode;
int *p_com1, *p_com2;
char c;
/* CSVデータの初期化 */
p_com2 = &csvinfo.comma[MAX_COMMA_Y - 1][MAX_COMMA_X - 1];
for (p_com1 = &csvinfo.comma[0][0]; p_com1 <= p_com2; p_com1++)
*p_com1 = -1;
csvinfo.max_x = csvinfo.max_y = csvinfo.filesize = 0;
/* コマンドライン取得 */
api_cmdline(cmdline, 30);
for (p = cmdline; *p > ' '; p++); /* スペースが来るまで読み飛ばす */
for (; *p == ' '; p++); /* スペースを読み飛ばす */
i = api_fopen(p);
if (i == 0) {
api_putstr0("File not found.\n");
api_end();
}
csvinfo.filesize = api_fsize(i, 0);
if (csvinfo.filesize >= MAX_FILESIZ - 1) {
/* 読めない */
api_putstr0("Filesize is too big.\n");
api_end();
}
api_fread(csvinfo.buf, csvinfo.filesize, i);
api_fclose(i);
p = csvinfo.buf;
i = cx = cy = mode = 0;
if (*p != ',')
csvinfo.comma[0][0] = 0;
while (i < csvinfo.filesize) {
c = csvinfo.buf[i++];
if (c == 0x22) {
if (i == 1 || mode == 0) {
mode++;
continue;
}
if (mode && (csvinfo.buf[i] == ',' || csvinfo.buf[i] == 0x0a || csvinfo.buf[i] == 0x0d))
mode--;
}
if (mode == 0 && c == ',') {
cx++;
// 「,,」「,\n」のように、セルに何もない状態ではない
if (csvinfo.buf[i] != ',' && csvinfo.buf[i] != 0x0a && csvinfo.buf[i] != 0x0d)
csvinfo.comma[cy][cx] = i; // コンマの次の文字の場所が記録される
}
/* 改行コード */
if ((c == 0x0d /* CR */ && csvinfo.buf[i] == 0x0a /* LF */) ||
(c == 0x0a /* LF */ && csvinfo.buf[i] == 0x0d /* CR */)) {
if (i < csvinfo.filesize) {
if (csvinfo.max_x < cx)
csvinfo.max_x = cx;
cy++;
cx = 0;
i++;
if (i >= csvinfo.filesize)
break;
csvinfo.max_y++;
if (csvinfo.buf[i] != ',' && csvinfo.buf[i] != 0x0a && csvinfo.buf[i] != 0x0d)
csvinfo.comma[cy][cx] = i; // コンマの次の文字の場所が記録される
if (csvinfo.buf[i] == 0x22)
mode++;
}
}
}
csvinfo.max_x++;
csvinfo.max_y++;
win = api_openwin(buf, WND_X, WND_Y, -1, "CSV-Viewer");
api_boxfilwin(win, 6, 26+16, GBOX_X+6, GBOX_Y+26+16, 7);
/* ワークシート作成 */
for (i = 0; i <= GBOX_X; i += CELLSIZ_X)
api_linewin(win, i + 6, 42, i + 6, GBOX_Y + 42, 15);
for (i = 0; i <= GBOX_Y; i += CELLSIZ_Y)
api_linewin(win, 6, i + 42, GBOX_X + 6, i + 42, 15);
/* CSVデータ表示 */
cx = cy = basex = basey = 1;
PutCell(1, 1, &csvinfo);
my_drawboxId(4, cx, cy);
Putcellinfo(basex+cx-2, basey+cy-2, &csvinfo);
/* メインループ */
for (;;) {
sig = api_getkey(1);
if (sig == 0xb4) {
/* left */
if (1 < cx) {
my_drawboxId(15, cx, cy);
cx--;
sig = 0;
} else if (1 < basex) {
basex--;
PutCell(basex, basey, &csvinfo);
sig = 0;
}
}
if (sig == 0xb6) {
/* rigth */
if (cx < maxell_x-1) {
my_drawboxId(15, cx, cy);
cx++;
sig = 0;
} else if (basex+cx < MAX_COMMA_X) {
basex++;
PutCell(basex, basey, &csvinfo);
sig = 0;
}
}
if (sig == 0xb8) {
/* up */
if (cy > 1) {
my_drawboxId(15, cx, cy);
cy--;
sig = 0;
} else if (1 < basey) {
basey--;
PutCell(basex, basey, &csvinfo);
sig = 0;
}
}
if (sig == 0xb2) {
/* down */
if (cy < maxell_y-1) {
my_drawboxId(15, cx, cy);
cy++;
sig = 0;
} else if (basey+cy < MAX_COMMA_Y) {
basey++;
PutCell(basex, basey, &csvinfo);
sig = 0;
}
}
if (sig == 0xb9) {
/* Page Up */
if (basey > 1) {
basey -= maxell_y - 1;
if (basey < 1) {
my_drawboxId(15, cx, cy);
basey = cy = 1;
}
PutCell(basex, basey, &csvinfo);
sig = 0;
}
}
if (sig == 0xb3) {
/* Page Down */
if (basey <= MAX_COMMA_Y - maxell_y) {
basey += maxell_y - 1;
if (basey > MAX_COMMA_Y - maxell_y) {
my_drawboxId(15, cx, cy);
basey = MAX_COMMA_Y - maxell_y + 1;
cy = maxell_y - 1;
}
PutCell(basex, basey, &csvinfo);
sig = 0;
}
}
if (sig == 0) {
my_drawboxId(4, cx, cy);
Putcellinfo(basex+cx-2, basey+cy-2, &csvinfo);
}
}
}
void HariMain(void)
{
char winbuf[256 * 112], txtbuf[100 * 1024];
char s[32], *p, *r;
int win, timer, i, j, t = 120, l = 192 / 4, o = 4, q = 7, note_old = 0;
/* 音番号と周波数(mHz)の対応表 */
/* たとえば、O4Aは440Hzなので、440000 */
/* オクターブ16のAは1802240Hzなので、1802240000 */
/* 以下はオクターブ16のリスト(C〜B) */
static int tonetable[12] = {
1071618315, 1135340056, 1202850889, 1274376125, 1350154473, 1430438836,
1515497155, 1605613306, 1701088041, 1802240000, 1909406767, 2022946002
};
static int notetable[7] = { +9, +11, +0 /* C */, +2, +4, +5, +7 };
/* コマンドライン解析 */
api_cmdline(s, 30);
for (p = s; *p > ' '; p++) { } /* スペースが来るまで読み飛ばす */
for (; *p == ' '; p++) { } /* スペースを読み飛ばす */
i = strlen(p);
if (i > 12) {
file_error:
end("file open error.\n");
}
if (i == 0) {
end(0);
}
/* ウィンドウの準備 */
win = api_openwin(winbuf, 256, 112, -1, "mmlplay");
api_putstrwin(win, 128, 32, 0, i, p);
api_boxfilwin(win, 8, 60, 247, 76, 7);
api_boxfilwin(win, 6, 86, 249, 105, 7);
/* ファイル読み込み */
i = api_fopen(p);
if (i == 0) {
goto file_error;
}
j = api_fsize(i, 0);
if (j >= 100 * 1024) {
j = 100 * 1024 - 1;
}
api_fread(txtbuf, j, i);
api_fclose(i);
txtbuf[j] = 0;
r = txtbuf;
i = 0; /* 通常モード */
for (p = txtbuf; *p != 0; p++) { /* 処理を簡単にするためにコメントや空白を消す */
if (i == 0 && *p > ' ') { /* スペースや改行コードなどではない */
if (*p == '/') {
if (p[1] == '*') {
i = 1;
} else if (p[1] == '/') {
i = 2;
} else {
*r = *p;
if ('a' <= *p && *p <= 'z') {
*r += 'A' - 'a'; /* 小文字は大文字に変換 */
}
r++;
}
} else if (*p == 0x22) {
*r = *p;
r++;
i = 3;
} else {
*r = *p;
r++;
}
} else if (i == 1 && *p == '*' && p[1] == '/') { /* ブロックコメント */
p++;
i = 0;
} else if (i == 2 && *p == 0x0a) { /* 行コメント */
i = 0;
} else if (i == 3) { /* 文字列 */
*r = *p;
r++;
if (*p == 0x22) {
i = 0;
} else if (*p == '%') {
p++;
*r = *p;
r++;
}
}
}
*r = 0;
/* タイマの準備 */
timer = api_alloctimer();
api_inittimer(timer, 128);
/* メイン */
p = txtbuf;
for (;;) {
if (('A' <= *p && *p <= 'G') || *p == 'R') { /* 音符・休符 */
/* 周波数計算 */
if (*p == 'R') {
i = 0;
s[0] = 0;
} else {
i = o * 12 + notetable[*p - 'A'] + 12;
s[0] = 'O';
s[1] = '0' + o;
s[2] = *p;
s[3] = ' ';
s[4] = 0;
}
p++;
if (*p == '+' || *p == '-' || *p == '#') {
s[3] = *p;
if (*p == '-') {
i--;
} else {
i++;
}
p++;
}
if (i != note_old) {
api_boxfilwin(win + 1, 32, 36, 63, 51, 8);
if (s[0] != 0) {
api_putstrwin(win + 1, 32, 36, 10, 4, s);
}
api_refreshwin(win, 32, 36, 64, 52);
if (28 <= note_old && note_old <= 107) {
api_boxfilwin(win, (note_old - 28) * 3 + 8, 60, (note_old - 28) * 3 + 10, 76, 7);
}
if (28 <= i && i <= 107) {
api_boxfilwin(win, (i - 28) * 3 + 8, 60, (i - 28) * 3 + 10, 76, 4);
}
if (s[0] != 0) {
api_beep(tonetable[i % 12] >> (17 - i / 12));
} else {
api_beep(0);
}
note_old = i;
}
void HariMain(void)
{
char winbuf[1024 * 757], txtbuf[240 * 1024];
int w = 30, h = 10, t = 4, spd_x = 1, spd_y = 1;
int win, i, j, lang = api_getlang(), xskip = 0;
char s[30], *p, *q = 0, *r = 0;
/* 커맨드 라인 해석 */
api_cmdline(s, 30);
for (p = s; *p > ' '; p++) { } /* 스페이스가 올 때까지 건너 뛴다 */
for (; *p != 0; ) {
p = skipspace(p);
if (*p == '-') {
if (p[1] == 'w') {
w = strtol(p + 2, &p, 0);
if (w < 20) {
w = 20;
}
if (w > 126) {
w = 126;
}
} else if (p[1] == 'h') {
h = strtol(p + 2, &p, 0);
if (h < 1) {
h = 1;
}
if (h > 45) {
h = 45;
}
} else if (p[1] == 't') {
t = strtol(p + 2, &p, 0);
if (t < 1) {
t = 4;
}
} else {
err:
api_putstr0(" >tview file [-w30 -h10 -t4]\n");
api_end();
}
} else { /* 파일명 발견 */
if (q != 0) {
goto err;
}
q = p;
for (; *p > ' '; p++) { } /* 스페이스가 올 때까지 건너 뛴다 */
r = p;
}
}
if (q == 0) {
goto err;
}
/* 윈도우의 준비 */
win = api_openwin(winbuf, w * 8 + 16, h * 16 + 37, -1, "tview");
api_boxfilwin(win, 6, 27, w * 8 + 9, h * 16 + 30, 7);
/* 파일 read */
*r = 0;
i = api_fopen(q);
if (i == 0) {
api_putstr0("file open error.\n");
api_end();
}
j = api_fsize(i, 0);
if (j >= 240 * 1024 - 1) {
j = 240 * 1024 - 2;
}
txtbuf[0] = 0x0a; /* sentinel용의 개행 코드 */
api_fread(txtbuf + 1, j, i);
api_fclose(i);
txtbuf[j + 1] = 0;
q = txtbuf + 1;
for (p = txtbuf + 1; *p != 0; p++) { /* 처리를 간단하게 하기 위해서 0x0d의 코드를 지운다 */
if (*p != 0x0d) {
*q = *p;
q++;
}
}
*q = 0;
/* 메인 */
p = txtbuf + 1;
for (;;) {
textview(win, w, h, xskip, p, t, lang);
i = api_getkey(1);
if (i == 'Q' || i == 'q') {
api_end();
}
if ('A' <= i && i <= 'F') {
spd_x = 1 << (i - 'A'); /* 1, 2, 4, 8, 16, 32 */
}
if ('a' <= i && i <= 'f') {
spd_y = 1 << (i - 'a'); /* 1, 2, 4, 8, 16, 32 */
}
if (i == '<' && t > 1) {
t /= 2;
}
if (i == '>' && t < 256) {
t *= 2;
}
if (i == '4') {
for (;;) {
xskip -= spd_x;
if (xskip < 0) {
xskip = 0;
}
if (api_getkey(0) != '4') { /* '4'를 누르지 않으면 처리 끝 */
break;
}
}
}
if (i == '6') {
for (;;) {
xskip += spd_x;
if (api_getkey(0) != '6') {
break;
}
}
}
if (i == '8') {
for (;;) {
for (j = 0; j < spd_y; j++) {
if (p == txtbuf + 1) {
break;
}
for (p--; p[-1] != 0x0a; p--) { } /* 한 문자 전에 0x0a가 나올 때까지 거슬러 올라간다 */
}
if (api_getkey(0) != '8') {
break;
}
}
}
if (i == '2') {
for (;;) {
for (j = 0; j < spd_y; j++) {
for (q = p; *q != 0 && *q != 0x0a; q++) { }
if (*q == 0) {
break;
}
p = q + 1;
}
if (api_getkey(0) != '2') {
break;
}
}
}
}
}
void init_screen9(char *vram, int x, int y)
{
struct DLL_STRPICENV { /* 64KB */
int work[64 * 1024 / 4];
};
struct RGB {
unsigned char b, g, r, t;
};
/* jpeg.c */
int info_JPEG(struct DLL_STRPICENV *env, int *info, int size, char *fp);
int decode0_JPEG(struct DLL_STRPICENV *env, int size, char *fp, int b_type, char *buf, int skip);
unsigned char rgb2pal(int r, int g, int b, int x, int y);
void error(char *s);
struct DLL_STRPICENV env;
char filebuf[512 * 1024];
char *p;
int win, i, j, fsize, xsize, info[8];
struct RGB picbuf[1024 * 768], *q;
boxfill8(vram, x, COL8_008484, 0, 0, x - 1, y - 29);
boxfill8(vram, x, COL8_C6C6C6, 0, y - 28, x - 1, y - 28);
boxfill8(vram, x, COL8_FFFFFF, 0, y - 27, x - 1, y - 27);
boxfill8(vram, x, COL8_C6C6C6, 0, y - 26, x - 1, y - 1);
boxfill8(vram, x, COL8_FFFFFF, 3, y - 24, 59, y - 24);
boxfill8(vram, x, COL8_FFFFFF, 2, y - 24, 2, y - 4);
boxfill8(vram, x, COL8_848484, 3, y - 4, 59, y - 4);
boxfill8(vram, x, COL8_848484, 59, y - 23, 59, y - 5);
boxfill8(vram, x, COL8_000000, 2, y - 3, 59, y - 3);
boxfill8(vram, x, COL8_000000, 60, y - 24, 60, y - 3);
boxfill8(vram, x, COL8_848484, x - 47, y - 24, x - 4, y - 24);
boxfill8(vram, x, COL8_848484, x - 47, y - 23, x - 47, y - 4);
boxfill8(vram, x, COL8_FFFFFF, x - 47, y - 3, x - 4, y - 3);
boxfill8(vram, x, COL8_FFFFFF, x - 3, y - 24, x - 3, y - 3);
/* 文件载入 */
char s[] = "fujisan.jpg";
p = s;
i = api_fopen(p);
error("I'm Here");
if (i == 0) { error("file not found.\n"); }
fsize = api_fsize(i, 0);
if (fsize > 512 * 1024) {
error("file too large.\n");
}
api_fread(filebuf, fsize, i);
api_fclose(i);
//
//if (info_JPEG(&env, info, fsize, filebuf) == 0) {
// /* JPEG偱傕側偐偭偨 */
// api_putstr0("file type unknown.\n");
// api_end();
//}
//
///* 偳偪傜偐偺info娭悢偑惉岟偡傞偲丄埲壓偺忣曬偑info偵擖偭偰偄傞 */
///* info[0] : 僼傽僀儖僞僀僾 (1:BMP, 2:JPEG) */
///* info[1] : 僇儔乕忣曬 */
///* info[2] : xsize */
///* info[3] : ysize */
///* 将文件内容转换为图像数据 */
//i = decode0_JPEG(&env, fsize, filebuf, 4, (char *)picbuf, 0);
///* b_type = 4 表示 struct RGB 格式 */
///* skip设为0即可 */
//if (i != 0) {
// error("decode error.\n");
//}
///* 显示 */
//
//for (i = 0; i < info[3]; i++) {
// /*p = winbuf + (i + 29) * xsize + (xsize - info[2]) / 2;*/
// p = vram + i*x + (x - info[2]) / 2;
// q = picbuf + i * info[2];
// for (j = 0; j < info[2]; j++) {
// p[j] = rgb2pal(q[j].r, q[j].g, q[j].b, j, i);
// }
//}
}
void HariMain(void)
{
char winbuf[256 * 112], txtbuf[100 * 1024];
char s[32], *p, *r;
int win, timer, i, j, t = 120, l = 192 / 4, o = 4, q = 7, note_old = 0;
/*音号与频率（mHz）的对照表*/
/*例如，04A为440Hz，即440000 */
/*第16八度的A为1802240Hz，即1802240000 */
/*以下为第16八度的列表（C～B） */
static int tonetable[12] = {
1071618315, 1135340056, 1202850889, 1274376125, 1350154473, 1430438836,
1515497155, 1605613306, 1701088041, 1802240000, 1909406767, 2022946002
};
static int notetable[7] = { +9, +11, +0 /* C */, +2, +4, +5, +7 };
/*命令行解析*/
api_cmdline(s, 30);
for (p = s; *p > ' '; p++) { } /*一直读到空格为止*/
for (; *p == ' '; p++) { } /*跳过空格*/
i = strlen(p);
if (i > 12) {
file_error:
end("file open error.\n");
}
if (i == 0) {
end(0);
}
/*准备窗口*/
win = api_openwin(winbuf, 256, 112, -1, "mmlplay");
api_putstrwin(win, 128, 32, 0, i, p);
api_boxfilwin(win, 8, 60, 247, 76, 7);
api_boxfilwin(win, 6, 86, 249, 105, 7);
/*载入文件*/
i = api_fopen(p);
if (i == 0) {
goto file_error;
}
j = api_fsize(i, 0);
if (j >= 100 * 1024) {
j = 100 * 1024 - 1;
}
api_fread(txtbuf, j, i);
api_fclose(i);
txtbuf[j] = 0;
r = txtbuf;
i = 0; /*通常模式*/
for (p = txtbuf; *p != 0; p++) { /*为了方便处理，将注释和空白删去*/
if (i == 0 && *p > ' ') { /*不是空格或换行符*/
if (*p == '/') {
if (p[1] == '*') {
i = 1;
} else if (p[1] == '/') {
i = 2;
} else {
*r = *p;
if ('a' <= *p && *p <= 'z') {
*r += 'A' - 'a'; /*将小写字母转换为大写字母*/
}
r++;
}
} else if (*p == 0x22) {
*r = *p;
r++;
i = 3;
} else {
*r = *p;
r++;
}
} else if (i == 1 && *p == '*' && p[1] == '/') { /*段注释*/
p++;
i = 0;
} else if (i == 2 && *p == 0x0a) { /*行注释*/
i = 0;
} else if (i == 3) { /*字符串*/
*r = *p;
r++;
if (*p == 0x22) {
i = 0;
} else if (*p == '%') {
p++;
*r = *p;
r++;
}
}
}
*r = 0;
/*定时器准备*/
timer = api_alloctimer();
api_inittimer(timer, 128);
/*主体*/
p = txtbuf;
for (;;) {
if (('A' <= *p && *p <= 'G') || *p == 'R') { /*音符、休止符*/
/*计算频率*/
if (*p == 'R') {
i = 0;
s[0] = 0;
} else {
i = o * 12 + notetable[*p - 'A'] + 12;
s[0] = 'O';
s[1] = '0' + o;
s[2] = *p;
s[3] = ' ';
s[4] = 0;
}
p++;
if (*p == '+' || *p == '-' || *p == '#') {
s[3] = *p;
if (*p == '-') {
i--;
} else {
i++;
}
p++;
}
if (i != note_old) {
api_boxfilwin(win + 1, 32, 36, 63, 51, 8);
if (s[0] != 0) {
api_putstrwin(win + 1, 32, 36, 10, 4, s);
}
api_refreshwin(win, 32, 36, 64, 52);
if (28 <= note_old && note_old <= 107) {
api_boxfilwin(win, (note_old - 28) * 3 + 8, 60, (note_old - 28) * 3 + 10, 76, 7);
}
if (28 <= i && i <= 107) {
api_boxfilwin(win, (i - 28) * 3 + 8, 60, (i - 28) * 3 + 10, 76, 4);
}
if (s[0] != 0) {
api_beep(tonetable[i % 12] >> (17 - i / 12));
} else {
api_beep(0);
}
note_old = i;
}