aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

30
Task/Take-notes-on-the-command-line/Aime/take-notes-on-the-command-line.aime
View file

@ -4,32 +4,28 @@ if (argc() == 1) {
file f;
text s;
f_open(f, "NOTES.TXT", OPEN_READONLY, 0);
f.open("NOTES.TXT", OPEN_READONLY, 0);
while (f_line(f, s) != -1) {
o_text(s);
o_text("\n");
while (f.line(s) != -1) {
o_(s, "\n");
}
} else {
integer c, i;
integer i;
date d;
file f;
f_open(f, "NOTES.TXT", OPEN_APPEND | OPEN_CREATE | OPEN_WRITEONLY, 0644);
f.open("NOTES.TXT", OPEN_APPEND | OPEN_CREATE | OPEN_WRITEONLY, 0644);
d_now(d);
d.now;
f_form(f, "/f4/-/f2/-/f2/ /f2/:/f2/:/f2/\n", d_year(d), d_y_month(d),
d_m_day(d), d_d_hour(d), d_h_minute(d), d_m_second(d));
f.form("/f4/-/f2/-/f2/ /f2/:/f2/:/f2/\n", d.year, d.y_month,
d.m_day, d.d_hour, d.h_minute, d.m_second);
c = '\t';
i = 1;
while (i < argc()) {
f_byte(f, c);
c = ' ';
f_text(f, argv(i));
i += 1;
i = 0;
while ((i += 1) < argc()) {
f.byte(i == 1 ? '\t' : ' ');
f.text(argv(i));
}
f_byte(f, '\n');
f.byte('\n');
}