functionalscript 0.0.435 → 0.0.436

package/com/cpp/module.f.cjs

@@ -3,7 +3,7 @@ const { paramList } = types
 const text = require('../../text/module.f.cjs')
 const obj = require('../../types/object/module.f.cjs')
 const list = require('../../types/list/module.f.cjs')
-const { map, flatMap } = list
+const { map, flatMap, flat } = list
 const { join } = require('../../types/string/module.f.cjs')
 const { entries } =  Object
 
@@ -77,9 +77,14 @@ const cpp = name => lib => {
         ? struct(name)(defStruct(d))
         : struct(`${name}: ::com::IUnknown`)(defInterface(d))
 
+    /** @type {(kv: obj.Entry<types.Definition>) => text.Block} */
+    const forward = ([name]) => [`struct ${name};`]
+
+    const e = entries(lib)
+
     return list.flat([
         ['#pragma once', ''],
-        namespace(name)(flatMap(def)(entries(lib)))
+        namespace(name)(flat([flatMap(forward)(e), flatMap(def)(e)]))
     ])
 }
 

package/com/cpp/test.f.cjs

@@ -11,10 +11,16 @@ const f = () =>
         '\n' +
         'namespace My\n' +
         '{\n' +
+        '    struct Slice;\n' +
+        '    struct ManagedStruct;\n' +
+        '    struct IMy;\n' +
         '    struct Slice\n' +
         '    {\n' +
         '        uint8_t* Start;\n' +
         '        size_t Size;\n' +
+        '    };\n' +
+        '    struct ManagedStruct\n' +
+        '    {\n' +
         '        ::com::ref<IMy> M;\n' +
         '    };\n' +
         '    struct IMy: ::com::IUnknown\n' +
@@ -25,6 +31,7 @@ const f = () =>
         '        virtual void COM_STDCALL SetUnsafe(Slice* p, uint32_t size) = 0;\n' +
         '        virtual ::com::BOOL COM_STDCALL Some(IMy& p) = 0;\n' +
         '        virtual ::com::ref<IMy> COM_STDCALL GetIMy() = 0;\n' +
+        '        virtual void COM_STDCALL SetManagedStruct(ManagedStruct a) = 0;\n' +
         '    };\n' +
         '}'
     if (r !== e) { throw r }

package/com/cs/test.f.cjs

@@ -17,6 +17,10 @@ const f = () =>
         '    {\n' +
         '        public unsafe byte* Start;\n' +
         '        public UIntPtr Size;\n' +
+        '    }\n' +
+        '    [StructLayout(LayoutKind.Sequential)]\n' +
+        '    public struct ManagedStruct\n' +
+        '    {\n' +
         '        public IMy M;\n' +
         '    }\n' +
         '    [Guid("C66FB270-2D80-49AD-BB6E-88C1F90B805D")]\n' +
@@ -35,9 +39,11 @@ const f = () =>
         '        bool Some(IMy p);\n' +
         '        [PreserveSig]\n' +
         '        IMy GetIMy();\n' +
+        '        [PreserveSig]\n' +
+        '        void SetManagedStruct(ManagedStruct a);\n' +
         '    }\n' +
         '}'
-    if (cs !== e) { throw [cs,e] }
+    if (cs !== e) { throw cs }
     return cs
 }
 

package/com/rust/test.f.cjs

@@ -11,6 +11,9 @@ module.exports = {
             'pub struct Slice {\n' +
             '    pub Start: *const u8,\n' +
             '    pub Size: usize,\n' +
+            '}\n' +
+            '#[repr(C)]\n' +
+            'pub struct ManagedStruct {\n' +
             '    pub M: IMy::Ref,\n' +
             '}\n' +
             'pub mod IMy {\n' +
@@ -25,6 +28,7 @@ module.exports = {
             '        pub SetUnsafe: unsafe extern "system" fn(this: &Object, p: *const super::Slice, size: u32),\n' +
             '        pub Some: unsafe extern "system" fn(this: &Object, p: &super::IMy::Object) -> bool,\n' +
             '        pub GetIMy: unsafe extern "system" fn(this: &Object) -> super::IMy::Ref,\n' +
+            '        pub SetManagedStruct: unsafe extern "system" fn(this: &Object, a: super::ManagedStruct),\n' +
             '    }\n' +
             '    impl nanocom::Interface for Interface {\n' +
             '        const GUID: nanocom::GUID = 0xC66FB270_2D80_49AD_BB6E_88C1F90B805D;\n' +
@@ -36,6 +40,7 @@ module.exports = {
             '        fn SetUnsafe(&self, p: *const super::Slice, size: u32);\n' +
             '        fn Some(&self, p: &super::IMy::Object) -> bool;\n' +
             '        fn GetIMy(&self) -> super::IMy::Ref;\n' +
+            '        fn SetManagedStruct(&self, a: super::ManagedStruct);\n' +
             '    }\n' +
             '    impl Ex for Object {\n' +
             '        fn GetSlice(&self) -> super::Slice {\n' +
@@ -56,6 +61,9 @@ module.exports = {
             '        fn GetIMy(&self) -> super::IMy::Ref {\n' +
             '            unsafe { (self.interface().GetIMy)(self) }\n' +
             '        }\n' +
+            '        fn SetManagedStruct(&self, a: super::ManagedStruct) {\n' +
+            '            unsafe { (self.interface().SetManagedStruct)(self, a) }\n' +
+            '        }\n' +
             '    }\n' +
             '    pub trait ClassEx\n' +
             '    where\n' +
@@ -69,6 +77,7 @@ module.exports = {
             '            SetUnsafe: Self::SetUnsafe,\n' +
             '            Some: Self::Some,\n' +
             '            GetIMy: Self::GetIMy,\n' +
+            '            SetManagedStruct: Self::SetManagedStruct,\n' +
             '        };\n' +
             '    }\n' +
             '    impl<T> ClassEx for T\n' +
@@ -100,6 +109,9 @@ module.exports = {
             '        extern "system" fn GetIMy(this: &Object) -> super::IMy::Ref {\n' +
             '            unsafe { Self::to_cobject(this) }.GetIMy()\n' +
             '        }\n' +
+            '        extern "system" fn SetManagedStruct(this: &Object, a: super::ManagedStruct) {\n' +
+            '            unsafe { Self::to_cobject(this) }.SetManagedStruct(a)\n' +
+            '        }\n' +
             '    }\n' +
             '    impl<T> PrivateClassEx for T\n' +
             '    where\n' +
@@ -109,7 +121,7 @@ module.exports = {
             '    }\n' +
             '}'
         const r = join('\n')(flat('    ')(rust(library)))
-        if (r !== e) { throw [e, r] }
+        if (r !== e) { throw r }
         return r
     }
 }

package/com/test/build.cjs

@@ -0,0 +1,37 @@
+const fs = require('node:fs')
+const cp = require('node:child_process')
+const os = require('node:os');
+const cpp = require('../cpp/test.f.cjs').result
+const { string: { join }, list: { flat } } = require('../../types/module.f.cjs')
+
+const dirname = __dirname
+
+fs.writeFileSync(`${dirname}/cpp/_result.hpp`, cpp)
+try {
+    const flags = os.platform() === 'win32' ? [] : ['-std=c++11', '-lc++']
+    const line = join(' ')(flat([['clang'], flags, [dirname + '/cpp/main.cpp']]))
+    console.log(cp.execSync(line).toString())
+} catch (e) {
+    // @ts-ignore
+    console.error(e.output.toString())
+}
+
+const cs = require('../cs/test.f.cjs').result
+
+fs.writeFileSync(`${dirname}/cs/_result.cs`, cs)
+try {
+    console.log(cp.execSync(`dotnet build ${dirname}/cs/cs.csproj`).toString())
+} catch (e) {
+    // @ts-ignore
+    console.error(e.output.toString())
+}
+
+const rust = require("../rust/test.f.cjs").result();
+
+fs.writeFileSync(`${dirname}/rust/src/_result.rs`, rust);
+try {
+    console.log(cp.execSync("cargo build").toString());
+} catch (e) {
+    // @ts-ignore
+    console.error(e.output.toString());
+}

package/com/test/cpp/main.cpp

@@ -1,4 +1,4 @@
-#include "../com.hpp"
+#include "../../cpp/com.hpp"
 #include "_result.hpp"
 
 #include <iostream>

package/com/types/testlib.f.cjs

@@ -6,9 +6,13 @@ module.exports = {
         struct: {
             Start: ['*', 'u8'],
             Size: 'usize',
-            M: ['IMy'],
         },
     },
+    ManagedStruct: {
+        struct: {
+            M: ['IMy']
+        }
+    },
     IMy: {
         guid: 'C66FB270-2D80-49AD-BB6E-88C1F90B805D',
         interface: {
@@ -20,7 +24,8 @@ module.exports = {
                 size: 'u32'
             },
             Some: { p: ['IMy'], _: 'bool' },
-            GetIMy: { _: ['IMy'] }
+            GetIMy: { _: ['IMy'] },
+            SetManagedStruct: { a: ['ManagedStruct'] },
         },
     }
 }

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "functionalscript",
-  "version": "0.0.435",
+  "version": "0.0.436",
   "description": "FunctionalScript is a functional subset of JavaScript",
   "main": "module.f.cjs",
   "scripts": {
@@ -29,7 +29,7 @@
   },
   "homepage": "https://github.com/functionalscript/functionalscript#readme",
   "devDependencies": {
-    "@types/node": "^18.7.18",
-    "typescript": "^4.8.3"
+    "@types/node": "^18.8.3",
+    "typescript": "^4.8.4"
   }
 }

package/com/test/cpp/build.cjs

@@ -1,15 +0,0 @@
-const fs = require('node:fs')
-const cp = require('node:child_process')
-const os = require('node:os');
-const cpp = require('../../cpp/test.f.cjs').result
-const { string: { join }, list: { flat } } = require('../../../types/module.f.cjs')
-
-fs.writeFileSync('_result.hpp', cpp)
-try {
-    const flags = os.platform() === 'win32' ? [] : ['-std=c++11', '-lc++']
-    const line = join(' ')(flat([['clang'], flags, ['main.cpp']]))
-    console.log(cp.execSync(line).toString())
-} catch (e) {
-    // @ts-ignore
-    console.error(e.output.toString())
-}

package/com/test/cs/build.cjs

@@ -1,11 +0,0 @@
-const fs = require('node:fs')
-const cp = require('node:child_process')
-const cs = require('../../cs/test.f.cjs').result
-
-fs.writeFileSync('_result.cs', cs)
-try {
-    console.log(cp.execSync('dotnet build').toString())
-} catch (e) {
-    // @ts-ignore
-    console.error(e.output.toString())
-}