Changeset 327 in dev for trunk/abdev/BasicCompiler_Common/Enum.cpp

Timestamp:

Sep 25, 2007, 9:23:38 PM (17 years ago)

Author:

dai_9181

Message:

デリゲートのベースがほぼ実装できた

File:

• trunk/abdev/BasicCompiler_Common/Enum.cpp (modified) (1 diff)

trunk/abdev/BasicCompiler_Common/Enum.cpp

@@ -225 +225 @@
         }
 
+        sprintf(buffer+length,"\tFunction Operator or (enumBase As %s) As %s\n",parent->GetName().c_str(),parent->GetName().c_str());
+        length+=lstrlen(buffer+length);
+        sprintf(buffer+length,"\t\tReturn New %s(This.value or enumBase.value, \"custom\")\n",parent->GetName().c_str());
+        length+=lstrlen(buffer+length);
+        lstrcpy(buffer+length,"\tEnd Function\n");
+        length+=lstrlen(buffer+length);
+
+        sprintf(buffer+length,"\tFunction Operator and (enumBase As %s) As %s\n",parent->GetName().c_str(),parent->GetName().c_str());
+        length+=lstrlen(buffer+length);
+        sprintf(buffer+length,"\t\tReturn New %s(This.value and enumBase.value, \"custom\")\n",parent->GetName().c_str());
+        length+=lstrlen(buffer+length);
+        lstrcpy(buffer+length,"\tEnd Function\n");
+        length+=lstrlen(buffer+length);
+
         /*
         sprintf(buffer+length,"\tOverride Function ToString() As String\n",parent->TypeName);