Merge pull request #62 from Embarcadero/docstrargs

Docstrargs

Author: lmbelo

Source/WrapDelphi.pas

@@ -939,6 +939,7 @@   TExposedMethodImplementation = class(TAbstractExposedMemberImplementation)
 
     function VirtualMethodImplementation(): pointer;
 
+    class function MethodDocStr(const ARttiMethod: TRttiMethod): string;
     class function Methods_Wrapper(const ASelf, AArgs, AKeyWords: PPyObject): PPyObject; static; cdecl;
 
     property MethodHandler: TExposedMethodHandler read FMethodHandler write FMethodHandler;
@@ -1138,6 +1139,42 @@ function TExposedMethodImplementation.GetDocString(): string;
     Name, FRttiType.Name, NativeInt(Self)]);
 end;
 
+class function TExposedMethodImplementation.MethodDocStr
+(const ARttiMethod: TRttiMethod): string;
+const
+  METHOD_DOC_STR_PATTERN = '%s.%s(%s)';
+var
+  LArgsStr: string;
+  LRttiParameter: TRttiParameter;
+begin
+  if (Length(ARttiMethod.GetParameters) = 0) then
+    Exit(String.Empty);
+
+  LArgsStr := String.Empty;
+  for LRttiParameter in ARttiMethod.GetParameters do begin
+    if not LArgsStr.IsEmpty then
+      LArgsStr := LArgsStr + ', ';
+
+    if not Assigned(LRttiParameter.ParamType) then
+      LArgsStr := LArgsStr + LRttiParameter.Name
+    else
+      LArgsStr := LArgsStr
+        + LRttiParameter.Name
+        + ': '
+        + LRttiParameter.ParamType.Name.Replace('T', '', []);
+  end;
+
+  Result := String.Format(METHOD_DOC_STR_PATTERN, [
+    ARttiMethod.Parent.Name, ARttiMethod.Name, LArgsStr]);
+
+  if Assigned(ARttiMethod.ReturnType) then
+    Result := Result
+      + ' -> '
+      + ARttiMethod.ReturnType.Name.Replace('T', '', []);
+
+  Result := Result + #10;
+end;
+
 function TExposedMethodImplementation.VirtualMethodImplementation(): pointer;
 var
   LRttiCtx: TRttiContext;
@@ -3400,6 +3437,11 @@ class procedure TPyDelphiObject.ExposeMethods(const AClass: TClass;
         LClass := LClass.ClassParent;
       end;
 
+      //Build the DocStr including method args
+      LExposedMethod.DocString :=
+        AnsiString(TExposedMethodImplementation.MethodDocStr(LRttiMethod))
+        + LExposedMethod.DocString;
+
       //Adds the Python method
       if LRttiMethod.IsStatic then
         APythonType.AddStaticMethodWithKeywords(