1#!/usr/local/bin/tclsh 2# -*- tcl -*- 3# Generate a manpage for Tcl_ReplaceChannel from a pseudo header! 4 5set ipath [file join [file dirname [file dirname [info library]]] include] 6set src [file join patches rc.h] 7 8puts "c2man -U__GNUC__ -I$ipath -o../doc -Tn $src 2>/dev/null >/dev/null" 9 10exec c2man -U__GNUC__ -I$ipath -o../doc -Tn $src 2>/dev/null >/dev/null 11