...

2026-05-25 09:17:37 +08:00 · 2020-07-31 17:07:03 -07:00
parent 82a2f264e8
commit 1e8616e5eb
4 changed files with 371 additions and 0 deletions
@@ -11,6 +11,8 @@ Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "W02_InvokingCppClasses", "W
 EndProject
 Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "W03_InheritingCppInterfaces", "W03_InheritingCppInterfaces\W03_InheritingCppInterfaces.vcxproj", "{E53A8108-D14F-453D-969E-D00E2668396C}"
 EndProject
+Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "W04_InheritingCppClasses", "W04_InheritingCppClasses\W04_InheritingCppClasses.vcxproj", "{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}"
+EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|x64 = Debug|x64
@@ -51,6 +53,14 @@ Global
 		{E53A8108-D14F-453D-969E-D00E2668396C}.Release|x64.Build.0 = Release|x64
 		{E53A8108-D14F-453D-969E-D00E2668396C}.Release|x86.ActiveCfg = Release|Win32
 		{E53A8108-D14F-453D-969E-D00E2668396C}.Release|x86.Build.0 = Release|Win32
+		{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}.Debug|x64.ActiveCfg = Debug|x64
+		{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}.Debug|x64.Build.0 = Debug|x64
+		{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}.Debug|x86.ActiveCfg = Debug|Win32
+		{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}.Debug|x86.Build.0 = Debug|Win32
+		{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}.Release|x64.ActiveCfg = Release|x64
+		{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}.Release|x64.Build.0 = Release|x64
+		{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}.Release|x86.ActiveCfg = Release|Win32
+		{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}.Release|x86.Build.0 = Release|Win32
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
@@ -0,0 +1,179 @@
+#include <VlppWorkflowCompiler.h>
+
+using namespace vl;
+using namespace vl::console;
+using namespace vl::collections;
+using namespace vl::parsing;
+using namespace vl::reflection;
+using namespace vl::reflection::description;
+using namespace vl::workflow;
+using namespace vl::workflow::emitter;
+using namespace vl::workflow::runtime;
+
+namespace myapi
+{
+	class App : public Object, public Description<Console>
+	{
+	private:
+		WString name;
+		List<Ptr<IValueSubscription>> subscriptions;
+
+	public:
+		static WString Get()
+		{
+			return Console::Read();
+		}
+
+		static WString Get(const WString& message)
+		{
+			Console::Write(message);
+			return Console::Read();
+		}
+
+		static void Print(const WString& text)
+		{
+			Console::WriteLine(text);
+		}
+
+		App() = default;
+
+		~App()
+		{
+			FOREACH(Ptr<IValueSubscription>, sub, subscriptions)
+			{
+				sub->Close();
+			}
+		}
+
+		Event<void()> NameChanged;
+
+		WString GetName()
+		{
+			return name;
+		}
+
+		void SetName(const WString& value)
+		{
+			if (name != value)
+			{
+				name = value;
+				NameChanged();
+			}
+		}
+
+		List<Ptr<IValueSubscription>>& GetSubscriptions()
+		{
+			return subscriptions;
+		}
+	};
+}
+
+#define MYAPI_TYPELIST(F)\
+	F(myapi::App)\
+
+namespace vl
+{
+	namespace reflection
+	{
+		namespace description
+		{
+			MYAPI_TYPELIST(DECL_TYPE_INFO)
+			MYAPI_TYPELIST(IMPL_CPP_TYPE_INFO)
+
+			using namespace myapi;
+
+#define _ ,
+
+			BEGIN_CLASS_MEMBER(App)
+				CLASS_MEMBER_STATIC_METHOD_OVERLOAD(Get, NO_PARAMETER, WString(*)())
+				CLASS_MEMBER_STATIC_METHOD_OVERLOAD(Get, { L"message" }, WString(*)(const WString&))
+				CLASS_MEMBER_STATIC_METHOD(Print, { L"text" })
+
+				CLASS_MEMBER_CONSTRUCTOR(Ptr<App>(), NO_PARAMETER)
+
+				CLASS_MEMBER_EVENT(NameChanged)
+				CLASS_MEMBER_PROPERTY_EVENT_FAST(Name, NameChanged)
+				CLASS_MEMBER_PROPERTY_READONLY_FAST(Subscriptions)
+			END_CLASS_MEMBER(App)
+
+#undef _
+			class MyApiTypeLoader : public Object, public ITypeLoader
+			{
+			public:
+				void Load(ITypeManager* manager)
+				{
+					MYAPI_TYPELIST(ADD_TYPE_INFO)
+				}
+
+				void Unload(ITypeManager* manager)
+				{
+				}
+			};
+		}
+	}
+}
+
+const wchar_t ScriptCode[] = LR"Workflow(
+
+module sampleModule;
+
+using myapi::*;
+
+namespace myscript
+{
+	class MyApp : App
+	{
+		new(name: string)
+		{
+			Name = name;
+
+			value subscription = bind($"Hello, $(this.Name)");
+			subscription.Open();
+			attach(subscription.ValueChanged,
+				func (value: object): void
+				{
+					Print(cast string value);
+				});
+			Subscriptions.Add(subscription);
+		}
+	}
+}
+
+)Workflow";
+
+int main()
+{
+	// start reflection
+	LoadPredefinedTypes();
+	WfLoadLibraryTypes();
+	GetGlobalTypeManager()->AddTypeLoader(new MyApiTypeLoader);
+	GetGlobalTypeManager()->Load();
+
+	{
+		// prepare Workflow script code
+		List<WString> codes;
+		codes.Add(WString(ScriptCode, false));
+
+		// compile code and get assemblies
+		List<Ptr<ParsingError>> errors;
+		auto table = WfLoadTable();
+		auto assembly = Compile(table, codes, errors);
+		CHECK_ERROR(assembly && errors.Count() == 0, L"Please check the 'errors' variable.");
+
+		// initialize the assembly
+		auto globalContext = MakePtr<WfRuntimeGlobalContext>(assembly);
+		auto initializeFunction = LoadFunction<void()>(globalContext, L"<initialize>");
+		initializeFunction();
+
+		// call MyApp
+		auto myapp = UnboxValue<Ptr<App>>(Value::Create(
+			L"myscript::MyApp",
+			(
+				Value_xs(), WString(L"vczh")
+			)));
+		myapp->SetName(L"Gaclib");
+	}
+
+	// stop reflection
+	DestroyGlobalTypeManager();
+}
@@ -0,0 +1,160 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project DefaultTargets="Build" ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <ItemGroup Label="ProjectConfigurations">
+    <ProjectConfiguration Include="Debug|Win32">
+      <Configuration>Debug</Configuration>
+      <Platform>Win32</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|Win32">
+      <Configuration>Release</Configuration>
+      <Platform>Win32</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Debug|x64">
+      <Configuration>Debug</Configuration>
+      <Platform>x64</Platform>
+    </ProjectConfiguration>
+    <ProjectConfiguration Include="Release|x64">
+      <Configuration>Release</Configuration>
+      <Platform>x64</Platform>
+    </ProjectConfiguration>
+  </ItemGroup>
+  <PropertyGroup Label="Globals">
+    <VCProjectVersion>15.0</VCProjectVersion>
+    <ProjectGuid>{0A86BD59-877D-440B-9E7D-7E1E7DF6AB2C}</ProjectGuid>
+    <Keyword>Win32Proj</Keyword>
+    <RootNamespace>W04InheritingCppClasses</RootNamespace>
+    <WindowsTargetPlatformVersion>10.0.17763.0</WindowsTargetPlatformVersion>
+  </PropertyGroup>
+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
+    <ConfigurationType>Application</ConfigurationType>
+    <UseDebugLibraries>true</UseDebugLibraries>
+    <PlatformToolset>v141</PlatformToolset>
+    <CharacterSet>Unicode</CharacterSet>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
+    <ConfigurationType>Application</ConfigurationType>
+    <UseDebugLibraries>false</UseDebugLibraries>
+    <PlatformToolset>v141</PlatformToolset>
+    <WholeProgramOptimization>true</WholeProgramOptimization>
+    <CharacterSet>Unicode</CharacterSet>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'" Label="Configuration">
+    <ConfigurationType>Application</ConfigurationType>
+    <UseDebugLibraries>true</UseDebugLibraries>
+    <PlatformToolset>v141</PlatformToolset>
+    <CharacterSet>Unicode</CharacterSet>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'" Label="Configuration">
+    <ConfigurationType>Application</ConfigurationType>
+    <UseDebugLibraries>false</UseDebugLibraries>
+    <PlatformToolset>v141</PlatformToolset>
+    <WholeProgramOptimization>true</WholeProgramOptimization>
+    <CharacterSet>Unicode</CharacterSet>
+  </PropertyGroup>
+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
+  <ImportGroup Label="ExtensionSettings">
+  </ImportGroup>
+  <ImportGroup Label="Shared">
+  </ImportGroup>
+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
+  </ImportGroup>
+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
+  </ImportGroup>
+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
+  </ImportGroup>
+  <ImportGroup Label="PropertySheets" Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
+    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
+  </ImportGroup>
+  <PropertyGroup Label="UserMacros" />
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
+    <LinkIncremental>true</LinkIncremental>
+    <IncludePath>$(ProjectDir)..\..\..\Import;$(IncludePath)</IncludePath>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
+    <LinkIncremental>true</LinkIncremental>
+    <IncludePath>$(ProjectDir)..\..\..\Import;$(IncludePath)</IncludePath>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
+    <LinkIncremental>false</LinkIncremental>
+    <IncludePath>$(ProjectDir)..\..\..\Import;$(IncludePath)</IncludePath>
+  </PropertyGroup>
+  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
+    <LinkIncremental>false</LinkIncremental>
+    <IncludePath>$(ProjectDir)..\..\..\Import;$(IncludePath)</IncludePath>
+  </PropertyGroup>
+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
+    <ClCompile>
+      <WarningLevel>Level3</WarningLevel>
+      <Optimization>Disabled</Optimization>
+      <SDLCheck>true</SDLCheck>
+      <PreprocessorDefinitions>WIN32;_DEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
+      <ConformanceMode>true</ConformanceMode>
+    </ClCompile>
+    <Link>
+      <GenerateDebugInformation>true</GenerateDebugInformation>
+      <SubSystem>Console</SubSystem>
+    </Link>
+  </ItemDefinitionGroup>
+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|x64'">
+    <ClCompile>
+      <WarningLevel>Level3</WarningLevel>
+      <Optimization>Disabled</Optimization>
+      <SDLCheck>true</SDLCheck>
+      <PreprocessorDefinitions>_DEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
+      <ConformanceMode>true</ConformanceMode>
+    </ClCompile>
+    <Link>
+      <GenerateDebugInformation>true</GenerateDebugInformation>
+      <SubSystem>Console</SubSystem>
+    </Link>
+  </ItemDefinitionGroup>
+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
+    <ClCompile>
+      <WarningLevel>Level3</WarningLevel>
+      <Optimization>MaxSpeed</Optimization>
+      <FunctionLevelLinking>true</FunctionLevelLinking>
+      <IntrinsicFunctions>true</IntrinsicFunctions>
+      <SDLCheck>true</SDLCheck>
+      <PreprocessorDefinitions>WIN32;NDEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
+      <ConformanceMode>true</ConformanceMode>
+    </ClCompile>
+    <Link>
+      <EnableCOMDATFolding>true</EnableCOMDATFolding>
+      <OptimizeReferences>true</OptimizeReferences>
+      <GenerateDebugInformation>true</GenerateDebugInformation>
+      <SubSystem>Console</SubSystem>
+    </Link>
+  </ItemDefinitionGroup>
+  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|x64'">
+    <ClCompile>
+      <WarningLevel>Level3</WarningLevel>
+      <Optimization>MaxSpeed</Optimization>
+      <FunctionLevelLinking>true</FunctionLevelLinking>
+      <IntrinsicFunctions>true</IntrinsicFunctions>
+      <SDLCheck>true</SDLCheck>
+      <PreprocessorDefinitions>NDEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
+      <ConformanceMode>true</ConformanceMode>
+    </ClCompile>
+    <Link>
+      <EnableCOMDATFolding>true</EnableCOMDATFolding>
+      <OptimizeReferences>true</OptimizeReferences>
+      <GenerateDebugInformation>true</GenerateDebugInformation>
+      <SubSystem>Console</SubSystem>
+    </Link>
+  </ItemDefinitionGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\Lib\Lib.vcxproj">
+      <Project>{6d6fe50e-fd92-46f1-8897-3045e14be02b}</Project>
+    </ProjectReference>
+  </ItemGroup>
+  <ItemGroup>
+    <ClCompile Include="Main.cpp" />
+  </ItemGroup>
+  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
+  <ImportGroup Label="ExtensionTargets">
+  </ImportGroup>
+</Project>
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <ItemGroup>
+    <Filter Include="Source Files">
+      <UniqueIdentifier>{4FC737F1-C7A5-4376-A066-2A32D752A2FF}</UniqueIdentifier>
+      <Extensions>cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx</Extensions>
+    </Filter>
+    <Filter Include="Header Files">
+      <UniqueIdentifier>{93995380-89BD-4b04-88EB-625FBE52EBFB}</UniqueIdentifier>
+      <Extensions>h;hh;hpp;hxx;hm;inl;inc;ipp;xsd</Extensions>
+    </Filter>
+    <Filter Include="Resource Files">
+      <UniqueIdentifier>{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}</UniqueIdentifier>
+      <Extensions>rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav;mfcribbon-ms</Extensions>
+    </Filter>
+  </ItemGroup>
+  <ItemGroup>
+    <ClCompile Include="Main.cpp">
+      <Filter>Source Files</Filter>
+    </ClCompile>
+  </ItemGroup>
+</Project>