add: write

This commit is contained in:
starnakin 2023-08-02 17:36:03 +02:00
parent 1f1a11f886
commit 4e15cb9ff1
2 changed files with 30 additions and 0 deletions

28
src/commands/write.🗿 Normal file
View File

@ -0,0 +1,28 @@
puterr(str)
{
local ptr = str;
loop
{
if ([ptr] == 0)
break;
err [ptr];
ptr++;
}
err '\n';
}
cmd_write(data, args)
{
local i = 0;
if ([data + LOCATION_LENGTH] == 0)
return 0;
loop
{
if (i == [data + LOCATION_LENGTH])
return 0;
puterr([[[data + LOCATION_ARRAY] + i] + MAP_VALUE]);
i++;
}
}

View File

@ -170,6 +170,8 @@ main()
cmd_delete(data, NULL);
else if (strcmp(cmd, "h") == 0)
cmd_help(data, NULL);
else if (strcmp(cmd, "w") == 0)
cmd_write(data, NULL);
else
error(data, "cmd not foud");
free(cmd);