/usr/share/doc/maxima-doc/misc/x.awk is in maxima-doc 5.32.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | #x.awk - script to parce clisp lis files for function information
#Copyright (C) 2002 Dan Stanger. Copyright is assigned to the
#FSF.
#This library is free software; you can redistribute it and/or
#modify it under the terms of the GNU Lesser General Public
#License as published by the Free Software Foundation; either
#version 2.1 of the License, or (at your option) any later version.
#This library is distributed in the hope that it will be useful,
#but WITHOUT ANY WARRANTY; without even the implied warranty of
#MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
#Lesser General Public License for more details.
#You should have received a copy of the GNU Lesser General Public
#License along with this library; if not, write to the Free Software
#Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
BEGIN { FS="[( ]" ; f = 0 }
f == 0 && $0 ~ /\#\:\|/ && ($5 ~ /DEFUN/ || $5 ~ /DEFMFUN/){ft=$5;
fn=$6; f=1}
f == 1 && $0 !~ /\#\:\|/ && $0 ~ /Disassembly of function/ {f=2;}
f == 2 && $0 ~ /reads special/ { gsub(/\r/,""); split($0, a, /:/); r = a[2]}
f == 2 && $0 ~ /writes special/ { gsub(/\r/,""); split($0, a, /:/); w = a[2]}
f == 2 && $2 ~ /byte-code/ && $3 ~ /instructions/{printf("%s %s %d reads %s writes %s\n",ft,fn,$1,r,w); f=0}
|