Blob Blame Raw
--- makedoc.g.orig	2019-05-19 14:48:52.000000000 -0600
+++ makedoc.g	2019-06-25 13:46:16.209738296 -0600
@@ -6,7 +6,7 @@
 ###########################################################################
 
 ExtractMyManualExamples:=function( pkgname, main, files )
-local path, tst, i, s, basename, name, output, ch, a, location, pos, comment;
+local path, tst, i, s, basename, name, output, ch, a, location, pos, pos2, comment;
 path:=Directory( 
         Concatenation(PackageInfo(pkgname)[1].InstallationPath, "/doc") );
 Print("Extracting manual examples for ", pkgname, " package ...\n" );
@@ -43,7 +43,9 @@ for i in [ 1 .. Length(tst) ] do
       if pos <> fail then
         comment := location{[ pos+Length(pkgname)+1 .. Length(location) ]};
       else
-        pos := PositionSublist(location,".//");
+        pos := PositionSublist(location,"../");
+        pos2 := PositionSublist(location,"../",pos+1);
+        if pos2 <> fail then pos := pos2; fi;
         comment := location{[ pos+3 .. Length(location) ]};
       fi;
       AppendTo(output, "# ", comment, ":", a[2][2], "-", a[2][3], a[1]);