fix: docs of docs.ExternFunctionDocs has always been empty

vknabel · Feb 17, 2022 · 2a98e0c · 2a98e0c
1 parent b0797ce
commit 2a98e0c
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 1 deletion.
diff --git a/ast/decl-extern-func.go b/ast/decl-extern-func.go
@@ -6,6 +6,7 @@ type DeclExternFunc struct {
 	Name       Identifier
 	Parameters []DeclParameter
 
+	Docs     *Docs
 	MetaInfo *MetaDecl
 }
 
@@ -28,3 +29,7 @@ func MakeDeclExternFunc(name Identifier, params []DeclParameter, source *Source)
 		MetaInfo:   &MetaDecl{source},
 	}
 }
+
+func (decl DeclExternFunc) ProvidedDocs() *Docs {
+	return decl.Docs
+}
diff --git a/parser/parse-decl-extern.go b/parser/parse-decl-extern.go
@@ -15,6 +15,7 @@ func (fp *FileParser) ParseExternDeclaration() (*ast.Decl, []SyntaxError) {
 			return nil, errs
 		}
 		funcDecl := ast.MakeDeclExternFunc(name, params, fp.AstSource())
+		funcDecl.Docs = fp.ConsumeDocs()
 		decl = *funcDecl
 		return &decl, nil
 	}

diff --git a/runtime/external-docs.go b/runtime/external-docs.go
@@ -197,7 +197,7 @@ func docsInspectValue(value RuntimeValue, env *Environment) (RuntimeValue, *Runt
 		}
 		return env.MakeDataRuntimeValue("ExternFunctionDocs", map[string]Evaluatable{
 			"name":   NewConstantRuntimeValue(PreludeString(value.Decl.Name)),
-			"docs":   NewConstantRuntimeValue(PreludeString("")),
+			"docs":   NewConstantRuntimeValue(PreludeString(value.Decl.Docs.Content)),
 			"params": NewConstantRuntimeValue(paramsList),
 		})
 	case RxVariableType: