Branch: Tag:

1999-11-21

1999-11-21 04:02:38 by Martin Nilsson <mani@lysator.liu.se>

First try of new tag documentation system.

Rev: server/base_server/module.pike:1.55
Rev: server/modules/tags/accessed.pike:1.10

1: - /* $Id: module.pike,v 1.54 1999/11/17 23:23:48 per Exp $ */ + /* $Id: module.pike,v 1.55 1999/11/21 04:01:52 nilsson Exp $ */   #include <module.h>   #include <request_trace.h>   
683:    m[replace(q[3..], "_", "-")] = this_object()[q];    return m;   } +  + mixed get_commented_value(string path, int start, int stop) + { +  object file=Stdio.File(); +  if(!file->open(path,"r")) return 0; +  string junk,in,comment; +  in=file->read(); +  if(sscanf(in,"%s/*%s*/%s",junk,comment,junk)!=3) return 0; +  return compile_string( "mixed f(){ return "+comment+"; }" )()->f(); + }