Implement LOAD"DAT:FILE"

SMILEBASIC/builtinfunctions.d

@@ -2739,11 +2739,18 @@ class BuiltinFunction
         }
         throw new IllegalFunctionCall("LOAD");
     }
-    @BasicName("LOAD")
+    //LOAD"TXT:HOGE",ARRAY Type mismatch(LOAD:2)
-    static void LOAD2(PetitComputer p, wstring name, DefaultValue!(int, false) flag)
+    //LOAD"TXT:HOGE",STR$ Type mismatch(LOAD:2)
+    //LOAD"DAT:HOGE",STR$ Type mismatch(LOAD:2)
+    static void LOAD(PetitComputer p, wstring name)
+    {
+        LOAD(p, name, Value(0));
+    }
+    static void LOAD(PetitComputer p, wstring name, Value data)
+    {
+        void LOAD2(PetitComputer p, wstring name, int flag)
         {
             import otya.smilebasic.project;
-        flag.setDefaultValue(0);
             auto type = Projects.splitResourceName(name);
             wstring txt;
             wstring resname = type[0].toUpper;
@@ -2783,10 +2790,33 @@ class BuiltinFunction
             }
             throw new IllegalFunctionCall("LOAD");
         }
-    static void LOAD(wstring name, Value arr, DefaultValue!(int, false) flag)
+        if (data.isNumber)
         {
-        flag.setDefaultValue(0);
+            LOAD2(p, name, data.castInteger);
-        throw new IllegalFunctionCall("NOTIMPL:LOAD");
+            return;
+        }
+        LOAD(p, name, data, 0);
+    }
+    static void LOAD(PetitComputer p, wstring name, Value data, int flag)
+    {
+        auto file = Projects.parseFileName(name);
+        if (file.resource != Resource.data)
+        {
+            throw new IllegalFunctionCall("LOAD", 2);
+        }
+        if (data.isNumberArray)
+        {
+            if (data.type == ValueType.IntegerArray)
+                p.project.loadDataFile(file, data.integerArray);
+            else if (data.type == ValueType.DoubleArray)
+                p.project.loadDataFile(file, data.doubleArray);
+            else
+                throw new TypeMismatch("LOAD", 2);
+        }
+        else
+        {
+            throw new TypeMismatch("LOAD", 2);
+        }
     }
     static void SAVE(PetitComputer p, wstring name)
     {

SMILEBASIC/project.d

@@ -178,6 +178,76 @@ r"ファイルを書き込みます。
         return true;
     }
 
+    bool loadDataFile(T)(FileName file, ref Array!T contents)
+        if (is(T == int) || is(T == double))
+    {
+        wstring project;
+        result = DialogResult.FAILURE;
+        if (file.project.empty)
+            project = convertProjectName(currentProject);
+        else
+        {
+            project = file.project;
+            if (!isValidProjectName(project))
+                throw new IllegalFunctionCall("LOAD");
+        }
+        if (!isValidFilename(file.name))
+            throw new IllegalFunctionCall("LOAD");
+        auto path = buildPath(projectPath, project, "DAT"w, file.name).to!string;
+
+        //show dialog
+        result = DialogResult.SUCCESS;
+        import std.stdio;
+        import std.algorithm;
+        File f = File(path, "rb");
+        DataHeader[1] harray;
+        f.rawRead(harray);
+        if (harray[0].dimension != contents.dimCount)
+        {
+            throw new TypeMismatch("LOAD");
+        }
+        auto dim = harray[0].dim[0..harray[0].dimension];
+        auto len = dim.reduce!((x, y) => x * y);
+        T[] result;
+        if (harray[0].type == DataType.int_)
+        {
+            int[] array = new int[len];
+            f.rawRead(array);
+            static if (!is(T == int))
+            {
+                result = array.map!(x => x.to!T).array;
+            }
+            else
+            {
+                result = array;
+            }
+        }
+        else if (harray[0].type == DataType.double_)
+        {
+            double[] array = new double[len];
+            f.rawRead(array);
+            static if (!is(T == double))
+            {
+                result = array.map!(x => x.to!T).array;
+            }
+            else
+            {
+                result = array;
+            }
+        }
+        else if (harray[0].type == DataType.ushort_)
+        {
+            ushort[] array = new ushort[len];
+            f.rawRead(array);
+            result = array.map!(x => x.to!T).array;
+        }
+        //配列に書き込むというより配列を差し替えている
+        contents.array = result;
+        contents.dim[] = harray[0].dim[];
+        contents.dimCount = harray[0].dimension;
+        return true;
+    }
+
     void saveTextFile(FileName file, wstring content)
     {
         wstring project;
@@ -236,6 +306,8 @@ r"ファイルを書き込みます。
     {
         if (proj.empty)
         {
+            if (currentProject.empty)
+                return "[DEFAULT]";
             return currentProject;
         }
         return proj;