Create mdtable.awk

Author: nestoris

mdtable.awk

@@ -0,0 +1,185 @@
+#!/usr/bin/gawk -f
+
+## 
+
+
+@load "filefuncs"
+@load "gd"
+@load "readfile"
+@load "readdir"
+@include "arraytree"
+
+function find(	path,	names, names_ar,
+				IMG_X,	IMG_Y){
+split(names,names_ar)
+for(n in names_ar){
+names_n[names_ar[n]]=names_ar[n]
+}
+
+fs=FS
+FS="/"
+while((getline < path)>0){
+
+#print path " " $2 " " $3
+
+fname=gensub(/\.[^.]*$/,"",1,$2)
+
+if($3=="d" && $2!~/^\.+$/){
+find(path"/"$2,names)
+
+}else{
+if($3~/(f|l)/ && fname in names_n){
+IMG_DST=gdImageCreateFromFile(path"/"$2)
+IMG_X=gdImageSX(IMG_DST)
+IMG_Y=gdImageSY(IMG_DST)
+if(IMG_DST && IMG_X==IMG_Y){
+
+icons[fname][IMG_X]=gensub(/^\//,"",1,gensub(pwd,"",1,path))"/"$2
+#print "icons["fname"]["IMG_X"]="icons[fname][IMG_X]
+#print "icons["name"]["IMG_X"]=" gensub(/^\//,"",1,gensub(pwd,"",1,path))"/"$2
+#print gensub(/^\//,"",1,gensub(pwd,"",1,path))"/"$2,IMG_X " x " IMG_Y,rel
+gdImageDestroy(IMG_DST)
+}
+}
+}
+
+}
+FS=fs
+
+}
+
+
+function tbl(	names,	sizes,	names_a,sizes_a){
+
+split(names,names_a)
+split(sizes,sizes_a)
+
+for(n in names_a){
+#print names_a[n]
+if(names_a[n]){names_n[names_a[n]]=names_a[n]}
+
+find(pwd,names)
+
+#find(pwd,names_n[names_a[n]])
+for(s in sizes_a){
+sizes_n[sizes_a[s]]=sizes_a[s]
+#print "icons["n"]["sizes_a[s]"]"
+#printf names_a[n] " " sizes_a[s] " "
+}
+#print ""
+}
+
+if(length(names_n)>1 && names in names_n){delete names_n[names]}
+
+print "*Built by [MDTable.awk](https://github.com/nestoris/scripts-for-Icon-theming/blob/main/icontable.awk)*\n" > outfile
+if(!ARGV[5]){printf "| " > outfile}
+for(s in sizes_a){
+printf "|**"sizes_a[s]"x"sizes_a[s]"**" > outfile
+}
+print "|" > outfile
+if(!ARGV[5]){printf "|-" > outfile}
+for(s in sizes_a){
+printf "|-" > outfile
+}
+print "|" > outfile
+
+##печатаем строки
+for(n in names_a){
+if(names_a[n]~/^$/){delete names_a[n]}
+#printf "|**"toupper(substr(names_a[n],1,1)) substr(names_a[n],2)"**"
+if(!ARGV[5]){printf "|**"names_a[n]"**" > outfile}
+for(s in sizes_a){
+#print "<<<"n">>>"
+#print sizes_a[s]
+#print icons[names_a[n]][sizes_a[s]]
+printf "|%s", "![]("icons[names_a[n]][sizes_a[s]]")" > outfile
+
+}
+print "|" > outfile
+
+}
+
+fs=FS
+FS="/"
+
+
+FS=fs
+
+}
+
+function r_descript(file,	out){ # read names and descriptions of icons
+
+fs=FS
+FS=" "
+while((getline<file)>0){
+#print $1
+#arr[$1]=$2
+out=out (out?" ":"") $1
+}
+FS=fs
+return out
+}
+
+function checkargs(arg1,arg2,arg3	,status,	statdata){
+status=stat(arg1,statdata)
+if(statdata["type"]!="directory"){hq_a[1]=1}
+
+status=stat(arg2,statdata)
+if(statdata["type"]=="directory"){hq_a[2]=2}
+
+status=stat(arg3,statdata)
+if(statdata["type"]=="directory"){hq_a[3]=3}
+
+helpquit(hq_a)
+}
+
+function helpquit(hq_a,	m,	msg){
+
+for(m in hq_a){
+if(m==1){print "First argument must be a directory"}
+if(m==2){print "Second argument cannot be a directory"}
+if(m==3){print "Second argument cannot be a directory"}
+
+#msg=msg msg?"\n":"" (m==1?"First argument must be a directory":m==2?"Second argument cannot be a folder":m==3?"Second argument cannot be a folder":"")
+
+}
+
+if(length(hq_a)>0){
+("ps -p " PROCINFO["pid"] " -o comm=") | getline CMDNAME
+print "Syntax:\n\t" CMDNAME " <PATH> <NAME_LIST_FILE> <SIZE_LIST_FILE> [OUTPUT_FILE]"
+exit -1
+}
+}
+
+BEGIN{
+checkargs(ARGV[1],ARGV[2],ARGV[3])
+print ARGV[1]
+#if(isarray(hq_a)){print "aaa"}else{print "ddd"}
+if(!ARGV[1]){
+#delete ARGV
+helpquit()
+}
+pwd=ARGV[1]?ARGV[1]:ENVIRON["PWD"]
+#pwd="/home/joker/Документы/GitHub/Win98SE/SE98"
+#pwd="/home/joker/Документы/GitHub/Win98SE"
+names_f=ARGV[2]?ARGV[2]:"names"
+sizes_f=ARGV[3]?ARGV[3]:"sizes"
+outfile=ARGV[4]?ARGV[4]:"/dev/stdout"
+
+#nmz=readfile(names_f)
+nmz=r_descript(names_f)
+
+gsub("\n"," ",nmz)
+gsub(/[ ]+/," ",nmz)
+szz=readfile(sizes_f)
+gsub("\n"," ",szz)
+
+#print nmz
+tbl(nmz,szz)
+#tbl("computer folder catfish","48 32")
+#arraytree(icons,"icons")
+
+#find(".","computer.png",pwd)
+#find(pwd,"computer")
+
+}