18c2ecf20Sopenharmony_ci#!/usr/bin/env perl 28c2ecf20Sopenharmony_ci# SPDX-License-Identifier: GPL-2.0 38c2ecf20Sopenharmony_ci# 48c2ecf20Sopenharmony_ci# Author: Mauro Carvalho Chehab <mchehab+samsung@kernel.org> 58c2ecf20Sopenharmony_ci# 68c2ecf20Sopenharmony_ci# Produce manpages from kernel-doc. 78c2ecf20Sopenharmony_ci# See Documentation/doc-guide/kernel-doc.rst for instructions 88c2ecf20Sopenharmony_ci 98c2ecf20Sopenharmony_ciif ($#ARGV < 0) { 108c2ecf20Sopenharmony_ci die "where do I put the results?\n"; 118c2ecf20Sopenharmony_ci} 128c2ecf20Sopenharmony_ci 138c2ecf20Sopenharmony_cimkdir $ARGV[0],0777; 148c2ecf20Sopenharmony_ci$state = 0; 158c2ecf20Sopenharmony_ciwhile (<STDIN>) { 168c2ecf20Sopenharmony_ci if (/^\.TH \"[^\"]*\" 9 \"([^\"]*)\"/) { 178c2ecf20Sopenharmony_ci if ($state == 1) { close OUT } 188c2ecf20Sopenharmony_ci $state = 1; 198c2ecf20Sopenharmony_ci $fn = "$ARGV[0]/$1.9"; 208c2ecf20Sopenharmony_ci print STDERR "Creating $fn\n"; 218c2ecf20Sopenharmony_ci open OUT, ">$fn" or die "can't open $fn: $!\n"; 228c2ecf20Sopenharmony_ci print OUT $_; 238c2ecf20Sopenharmony_ci } elsif ($state != 0) { 248c2ecf20Sopenharmony_ci print OUT $_; 258c2ecf20Sopenharmony_ci } 268c2ecf20Sopenharmony_ci} 278c2ecf20Sopenharmony_ci 288c2ecf20Sopenharmony_ciclose OUT; 29