bonkmaykr/otyaSMILEBASIC
1
0
Fork 0
Code Activity

Implement FILES ARRAY$[]

Browse Source
This commit is contained in:
otya128
2016-12-24 19:07:53 +09:00
parent be2127ea89
commit 7f6b159deb
1 changed files with 53 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
SMILEBASIC/builtinfunctions.d
View File

@@ -2297,40 +2297,75 @@ class BuiltinFunction
} }
//FILES TYPE$ //FILES TYPE$
//((TXT|DAT):)?\w+/? //((TXT|DAT):)?\w+/?
static void FILES(PetitComputer p, DefaultValue!(wstring, false) name) static void FILES(PetitComputer p)
{
FILES(p, Value(cast(wchar[])p.currentProject));
}
static void FILES(PetitComputer p, Value nameOrArray)
{ {
import otya.smilebasic.project; import otya.smilebasic.project;
if(name.isDefault) if(nameOrArray.isString)
{ {
name.setDefaultValue(p.currentProject); auto t = Projects.splitResourceName(nameOrArray.castDString);
auto res = t[0];
if(t[1].length && t[2].length)
{
throw new IllegalFunctionCall("FILES");
}
if(t[2].length && nameOrArray.castDString.indexOf("/") != -1)
{
//"TXT:A":OK
//"TXT:A/":OK
//"TXT:/A":X
//"TXT:A/A":X
throw new IllegalFunctionCall("FILES");
}
auto project = t[1].length ? t[1] : t[2];
//project:.->hidden project
//project:/->project list
auto l = p.project.getFileList(project, res);
p.console.print(res, "\t", project, "\n");
foreach(i; l)
{
p.console.print(i, "\n");
}
} }
auto t = Projects.splitResourceName(name.value); else if (nameOrArray.type == ValueType.StringArray)
{
FILES(p, p.currentProject, nameOrArray);
}
else
{
throw new TypeMismatch("FILES"/*, 1*/);
}
}
static void FILES(PetitComputer p, wstring name, Value array)
{
import otya.smilebasic.project;
if (array.type != ValueType.StringArray)
{
throw new TypeMismatch("FILES"/*, 1*/);
}
auto t = Projects.splitResourceName(name);
auto res = t[0]; auto res = t[0];
if(t[1].length && t[2].length) if(t[1].length && t[2].length)
{ {
throw new IllegalFunctionCall("FILES"); throw new IllegalFunctionCall("FILES");
} }
if(t[2].length && name.value.indexOf("/") != -1) if(t[2].length && name.indexOf("/") != -1)
{ {
//"TXT:A":OK
//"TXT:A/":OK
//"TXT:/A":X
//"TXT:A/A":X
throw new IllegalFunctionCall("FILES"); throw new IllegalFunctionCall("FILES");
} }
auto project = t[1].length ? t[1] : t[2]; auto project = t[1].length ? t[1] : t[2];
//project:.->hidden project
//project:/->project list
auto l = p.project.getFileList(project, res); auto l = p.project.getFileList(project, res);
p.console.print(res, "\t", project, "\n"); if (l.length > array.length)
foreach(i; l)
{ {
p.console.print(i, "\n"); array.length = l.length;
}
foreach (i, j; l)
{
array[i] = Value(j);
} }
}
static void FILES(PetitComputer p, wstring name, Value[] array)
{
writeln("NOTIMPL");
} }
static void ACLS(PetitComputer p) static void ACLS(PetitComputer p)
{ {