src/cmd/INIT/WWW.mk

   1 /*
   2  * post stuff to WWWDIR for web access
   3  * index generated from *.mm
   4  */
   5
   6 WWWDIR = wwwfiles public_html
   7 WWWSAVE =
   8 WWWSTYLE =
   9 WWWTYPES =
  10
  11 .WWW.semaphore : .SEMAPHORE
  12
  13 .EXPORT : WWWSTYLE WWWTYPES
  14
  15 /*
  16  * item :WWW: [style=frame] [save=pattern] file ...
  17  *
  18  *      `item'.mm generates index.html
  19  *      other files copied to $(WWWDIR)/`item'
  20  *      sets up www.bin
  21  */
  22
  23 ":WWW:" : .MAKE .OPERATOR
  24         local A B D I J L X E P R M
  25         .WWW.LOCAL .WWW.REMOTE : .DO.NOTHING
  26         WWWDIR := $(HOME:X=$(WWWDIR):T=F:O=1)
  27         B := $(*:N=*.mm::O=1:B)
  28         D := $(WWWDIR)/$(B)
  29         M := $(WWWDIR)/man/man1
  30         R := $(>:N!=*=*)
  31         for I $(>:N=*=*)
  32                 A := WWW$(I:/=.*//:F=%(upper)s)
  33                 $(A) := $(I:/.*=//)
  34         end
  35         (html_info) : $$(MM2HTMLINFO) $$(MM2HTMLINIT)
  36         if WWWSTYLE == "frame"
  37                 %.html %-index.html : %.mm (html_info)
  38                         $(MM2HTML) $(MM2HTMLFLAGS) $(%:N=faq.*:?> $(<:O=1)?-f $(%) -x?) -o WWWTYPES=$(WWWTYPES:@Q:@Q) $(WWWSOURCE.$(%)) $(>)
  39         else
  40                 %.html : %.mm (html_info)
  41                         $(MM2HTML) $(MM2HTMLFLAGS) -o WWWTYPES=$(WWWTYPES:@Q:@Q) $(>) $(WWWSOURCE.$(%)) > $(<)
  42         end
  43         %.html : %.1 (html_info)
  44                 $(MM2HTML) $(MM2HTMLFLAGS) $(>) $(WWWSOURCE.$(%)) > $(<)
  45         %-man.html : $(BINDIR)/% (html_info)
  46                 ignore $(>) --html 2> $(<)
  47         .DO.WWW.MAN : .USE
  48                 if      { test '' = '$(*)' || { strings $(*) | egrep -q '\[\+NAME\?|libcmd\.|cmd[0-9][0-9]\.' ;} ;} && [[ "$( $(<:B) '--???html' -- 2>&1 )" == version=[1-9]* ]]
  49                 then    ( $(<:B) '--??html' -- 2>$(<) ) || true
  50                 fi
  51         if 0
  52                 $(M)/%.html : .DONTCARE $(INSTALLROOT)/bin/%
  53                         $(@.DO.WWW.MAN)
  54         end
  55         if "$(<)"
  56                 D := $(<)
  57         elif ! "$(R)"
  58                 return
  59         end
  60         .WWW .WWW.BIN : $(D) $(M) -
  61         $(D) $(M) :
  62                 $(SILENT) test -d $(<) || mkdir $(<)
  63         if ( J = "$(R:N=*.mm)" )
  64                 for I $(J:G=%.html)
  65                         if I == "*-index.html"
  66                                 O := $(D)/index.html
  67                         else
  68                                 O := $(I:D=$(D):B:S)
  69                         end
  70                         .WWW : $(O)
  71                         $(O) :COPY: $(I)
  72                 end
  73         end
  74         .WWW.req : .FUNCTION
  75                 return $(*$(%:T=SR):N=-l*:T=F:P=B:N!=-l*|/*)
  76         A = 0
  77         for I $(R:N!=*.mm)
  78                 if I == "-"
  79                         let A = ! A
  80                 elif I == "-l*"
  81                         L := $(I:/-l//)
  82                         if J = "$(.DLL.NAME. $(L) $($(L).VERSION):T=F)"
  83                                 X += $(J)
  84                         end
  85                 elif A || "$(I:A=.COMMAND|.ARCHIVE)" || "$(I:D:D:N=$(INSTALLROOT))" || "$(I:N=*-www)"
  86                         X += $(I)
  87                         if "$(I:A=.COMMAND)"
  88                                 X += $$(.WWW.req $(I))
  89                                 J := $(I:/-www$//)
  90                                 eval
  91                                 .WWW : $(J:D=$(M):B:S=.html)
  92                                 $(J:D=$(M):B:S=.html) : $(I) $(I:B:S=.1:T=F:?$(I:B:S=.1)??)
  93                                         if      strings $$(*:O=1) | egrep -q '\[\+NAME\?|libcmd\.|cmd[0-9][0-9]\.'
  94                                         then    $$(IGNORE) $$(*:O=1) '--??html' -- 2>&1
  95                                         elif    test '' != '$$(*:N=*.1)'
  96                                         then    $$(MM2HTML) $$(*:N=*.1)
  97                                         fi > $$(<)
  98                                 end
  99                         end
 100                 else
 101                         if I == "*.html"
 102                                 $(I) : .TERMINAL
 103                         end
 104                         .WWW : $(D)/$(I)
 105                         $(D)/$(I) :COPY: $(I)
 106                 end
 107         end
 108         if "$(X:V)"
 109                 .WWW.EDIT. : .FUNCTION
 110                         local E I J
 111                         for I $(.INSTALL.LIST.:C,^$(INSTALLROOT)/,,:N!=lib/lib/*)
 112                                 for J $(%)
 113                                         if "$(I:B:S)" == "$(J:B:S)"
 114                                                 E += -s ',^$(J)$,$(I),'
 115                                         end
 116                                 end
 117                         end
 118                         return $(E)
 119                 .WWW.LIST. : .FUNCTION
 120                         local E I J
 121                         for I $(.INSTALL.LIST.:C,^$(INSTALLROOT)/,,:N!=lib/lib/*)
 122                                 for J $(%)
 123                                         if "$(I:B:S)" == "$(J:B:S)"
 124                                                 E += $(I)
 125                                         end
 126                                 end
 127                         end
 128                         return $(E)
 129                 .WWW .WWW.BIN : $(D)/$(B)-$(CC.HOSTTYPE).tgz
 130                 $(D)/$(B)-$(CC.HOSTTYPE).tgz : $(X:V)
 131                         cat > X.$(tmp).X <<!
 132                         This archive contains $(CC.HOSTTYPE) binaries for
 133                                 $(.WWW.LIST. $(*))
 134                         Add the bin directory to PATH and the lib directory
 135                         to LD_LIBRARY_PATH or its equivalent for your system.
 136                         Use the --?help and --man options for online help,
 137                         documentation and contact info.
 138                         !
 139                         $(PAX) -wvf $(<) -x tar:gzip -s "/X.$(tmp).X/README/" $(.WWW.EDIT. $(*)) -s ',\(.*\)-www$,bin/\1,' -s ',.*/lib/,lib/,' X.$(tmp).X $(*:N!=-l*)
 140                         $(RM) -f X.$(tmp).X
 141         end
 142
 143 /*
 144  * item ... :WWWBIN: index.mm file ... host:arch ...
 145  *
 146  *      home page control
 147  *      `host' of type `arch' for www.bin files
 148  */
 149
 150 ":WWWBIN:" : .MAKE .OPERATOR
 151         local HOST ITEM ARCH BINS DIRS G
 152         .WWW.NOMAN. += $(<)
 153         for HOST $(>)
 154                 TYPE := $(HOST:/.*://)
 155                 HOST := $(HOST:/:.*//)
 156                 WWWTYPES += $(TYPE)
 157                 ARCH := $(PWD:D:C,/$(CC.HOSTTYPE)/,/$(TYPE)/)
 158                 BINS :=
 159                 DIRS :=
 160                 for ITEM $(<)
 161                         if TYPE == "$(CC.HOSTTYPE)"
 162                                 G := $("index.mm":G=%.html:D=$(WWWDIR)/$(ITEM):B:S)
 163                                 .WWW.LOCAL : $(G)
 164                                 eval
 165                                 $(G) : .JOINT $(ARCH)/$(ITEM)/$(ITEM).mm (html_info) .WWW.semaphore .FORCE
 166                                         cd $$(*:D)
 167                                         $$(MAKE) $$(-) $$(=) www
 168                                 end
 169                         else
 170                                 BINS += $(WWWDIR)/$(ITEM)/$(ITEM)-$(TYPE).tgz
 171                                 DIRS += $(ARCH)/$(ITEM)
 172                         end
 173                 end
 174                 .WWW.REMOTE : $(BINS)
 175                 ARCH := $(ARCH:C,/src/.*,,)
 176                 eval
 177                 $(BINS) :JOINT: .FORCE .WWW.semaphore
 178                         rsh $(HOST) "
 179                                 eval \"\`bin/package debug use\`\"
 180                                 PATH=\$PATH:$(PATH):/usr/ccs/bin
 181                                 umask 022
 182                                 for dir in $(DIRS)
 183                                 do      cd \$dir
 184                                         $(MAKE) $(-) $(=) --errorid=\$dir www.bin
 185                                 done
 186                                 "
 187                 end
 188         end
 189
 190 /*
 191  * :WWWPOST: [ host [ dir [ tmp ] ] ]
 192  *
 193  *      post local $(WWWDIR) to host:dir putting archives in host:tmp/www-*.pax
 194  *      defaults: host=www dir=$(WWWDIR) tmp=tmp
 195  */
 196
 197 ":WWWPOST:" : .MAKE .OPERATOR
 198         local ( host dir tmp ignore ... ) $(>) www $(WWWDIR:B:S) tmp ignore
 199         :ALL: delta.pax
 200         .WWW.ALL : .WWW.REMOTE - .WWW.LOCAL
 201         eval
 202         .POST : .VIRTUAL base.pax delta.pax
 203                 case "$$(>)" in
 204                 '')     ;;
 205                 *)      $$(>:C,.*,rcp & $(host):$(tmp)/$(dir)-&;,)
 206                         rsh $(host) '
 207                                 umask 022
 208                                 PATH=$HOME/bin:$PATH
 209                                 cd $(dir)
 210                                 pax -rvf $HOME/$(tmp)/$(dir)-delta.pax -z $HOME/$(tmp)/$(dir)-base.pax
 211                         '
 212                         ;;
 213                 esac
 214         end
 215         base.pax :
 216                 cd $(WWWDIR)
 217                 pax -wvf $(<:P=A) .
 218         .base.list. : .FUNCTION
 219                 local X
 220                 X := $(sh pax -f $(%:N=*.pax):C,\n, ,G:C,^,$$(WWWDIR)/,)
 221                 $(X) : .DONTCARE
 222                 return $(X)
 223         delta.pax : .WWW.ALL base.pax $$(.base.list. $$(*))
 224                 cd $(WWWDIR)
 225                 pax -wvf $(<:P=A) -z $(*:N=*.pax:P=A) .
 226
 227 .WWW.FAQ : .USE
 228         {
 229         set -o noglob
 230         print .xx title=\"$(<:B:/\..*//) FAQ index\"
 231         print .MT 4
 232         print .TL
 233         print
 234         print .H 1 \"$(<:B:/\..*//) FAQ index\"
 235         print .BL
 236         for i in $(*)
 237         do      exec < $i || exit 1
 238                 e=0 l=0 x=y
 239                 while   read -r op a1 a2
 240                 do      case $op in
 241                         .H)     case $e in
 242                                 0)      e=1 ;;
 243                                 1)      print .LE ;;
 244                                 esac
 245                                 print .sp
 246                                 print .LI
 247                                 a2=${a2//\"/}
 248                                 a2=${a2%\ [Ff][Aa][Qq]}
 249                                 f=${i%.*}.html
 250                                 f=${f#*/}
 251                                 print .xx link=\"$f'    '$a2\"
 252                                 print .sp
 253                                 print .NL
 254                                 ;;
 255                         .AL|.BL|.NL)
 256                                 case $x in
 257                                 y)      x=x ;;
 258                                 *)      x=xx$x ;;
 259                                 esac
 260                                 ;;
 261                         .LE)    x=${x%xx}
 262                                 ;;
 263                         .LI)    case $x in
 264                                 x)      x=
 265                                         print .LI
 266                                         ;;
 267                                 esac
 268                                 ;;
 269                         .sp)    case $x in
 270                                 '')     x=x ;;
 271                                 esac
 272                                 ;;
 273                         *)      case $x in
 274                                 '')     print -r -- $op $a1 $a2 ;;
 275                                 esac
 276                                 ;;
 277                         esac
 278                 done
 279                 case $e in
 280                 1)      print .LE ;;
 281                 esac
 282         done
 283         print .LE
 284         } > $(<)
 285
 286 /*
 287  * [ dir ] :WWWPAGE: [ source ... ] file.mm file
 288  *
 289  *      *.mm generates *.html
 290  *      faq.*.mm generates faq.mm
 291  *      other files copied to $(WWWDIR)[/dir]
 292  *      files after - (toggle) are just asserted on ::
 293  */
 294
 295 ":WWWPAGE:" : .MAKE .OPERATOR
 296         local B D I J O P Q S X G A
 297         A = 0
 298         D := $(<:O=1)
 299         P := $(>:N!=*=*)
 300         S := $(>:N=*=*)
 301         if X = "$(P:B:S:N=faq.*.mm)"
 302                 Q := $(D:+$(D).)faq.mm
 303                 $(Q) : .WWW.FAQ $(X)
 304                 P += $(Q)
 305         end
 306         if D
 307                 B := $(D:B)
 308                 if D != "/*"
 309                         D := $(WWWDIR)/$(D)
 310                         $(D) :INSTALLDIR:
 311                         .WWW.LOCAL : $(D)
 312                 end
 313                 for I $(<:B)
 314                         .WWW.LOCAL : $(WWWDIR)/man/man1/$(I).html
 315                         $(WWWDIR)/man/man1/$(I).html : .DONTCARE
 316                 end
 317                 for I $(P)
 318                         if I == "-"
 319                                 let A = !A
 320                                 continue
 321                         end
 322                         if A || I == "$(WWWSAVE)"
 323                                 :: $(I)
 324                                 continue
 325                         end
 326                         if "$(I:T=FD)"
 327                                 .SOURCE : $(I)
 328                                 if "$(<)"
 329                                         WWWSOURCE.$(<:O=1) += $(I:T=F:P=L=*)
 330                                 end
 331                                 continue
 332                         end
 333                         if I == "*.html"
 334                                 $(I) : .TERMINAL
 335                                 O := $(I)
 336                                 X := $(I)
 337                         elif ( G = "$(I:G=%.html)" )
 338                                 $(G) : .IMPLICIT $(S) $(I)
 339                                 if $(G:O) > 1
 340                                         for J $(G)
 341                                                 if J == "*-index.html"
 342                                                         if J == "faq.*.*"
 343                                                                 continue
 344                                                         end
 345                                                         O := index.html
 346                                                 else
 347                                                         O := $(J)
 348                                                 end
 349                                                 .WWW.LOCAL : $(D)/$(O)
 350                                                 $(D)/$(O) :INSTALL: $(J)
 351                                         end
 352                                         continue
 353                                 end
 354                                 if X
 355                                         X := $(I)
 356                                 else
 357                                         X := index
 358                                 end
 359                                 I := $(I:B:S=.html)
 360                                 O := $(X:B:S=.html)
 361                         else
 362                                 O := $(I)
 363                         end
 364                         $(D)/$(O) :INSTALL: $(I)
 365                         .WWW.LOCAL : $(D)/$(O)
 366                 end
 367         else
 368                 for I $(P)
 369                         if I == "-"
 370                                 let A = !A
 371                                 continue
 372                         end
 373                         if A || I == "$(WWWSAVE)"
 374                                 :: $(I)
 375                                 continue
 376                         end
 377                         if "$(I:T=FD)"
 378                                 .SOURCE : $(I)
 379                                 continue
 380                         end
 381                         if I == "*.html"
 382                                 $(I) : .TERMINAL
 383                                 O := $(I)
 384                         elif ( O = "$(I:G=%.html)" )
 385                                 $(O) : $(S) .IMPLICIT $(I)
 386                         end
 387                         for J $(O)
 388                                 if J == "*-index.html"
 389                                         X := index.html
 390                                 else
 391                                         X := $(J)
 392                                 end
 393                                 X := $(WWWDIR)/$(X)
 394                                 .WWW.LOCAL : $(X)
 395                                 $(X) :COPY: $(J)
 396                         end
 397                 end
 398         end
 399
 400 /*
 401  * rhs done by default
 402  */
 403
 404 ":WWWALL:" : .MAKE .OPERATOR
 405         .WWW.ALL : $(>)
 406
 407 ":WWWMAN:" : .MAKE .OPERATOR
 408         .INIT : .WWW.MAN
 409         .WWW.MAN. := $(>)
 410         .WWW.MAN : .MAKE .FORCE
 411                 local H I
 412                 for I $(.WWW.MAN.)
 413                         .WWW.LOCAL : $(WWWDIR)/man/man1/$(I:B).html
 414                         $(WWWDIR)/man/man1/$(I:B).html : .DO.WWW.MAN $(I)
 415                 end
 416                 for I $(sh builtin:B)
 417                         .WWW.LOCAL : $(WWWDIR)/man/man1/$(I).html
 418                         $(WWWDIR)/man/man1/$(I).html : .DO.WWW.MAN -
 419                 end
 420                 for I $("$(BINDIR)/*([!-.])":P=G:B)
 421                         if I != "*_*"
 422                                 H := $(WWWDIR)/man/man1/$(I).html
 423                                 if ! "$(*$(H))" && I != "$(.WWW.NOMAN.:/ /|/G)"
 424                                         .WWW.LOCAL : $(H)
 425                                 end
 426                         elif "$(PATH:/:/ /G:X=$(I:/.*_//):T=F:O=1)"
 427                                 H := $(WWWDIR)/man/man1/$(I:/.*_//).html
 428                                 .WWW.LOCAL : $(H)
 429                                 $(H) : .DO.WWW.MAN $(BINDIR)/$(I)
 430                         end
 431                 end
 432
 433 .WWW.SED. : .FUNCTION
 434         local E T
 435         E = s/^\(\.xx.link=.*\)%HOSTTYPE%\(.*\)%HOSTTYPE%\(.*\)/
 436         for T $(%)
 437                 E := $(E:V)\$$("\n").LI\$$("\n")\1$(T)\2$(T)\3
 438         end
 439         return $(E:V)/
 440
 441 /*
 442  * mm scan support
 443  */
 444
 445 .SCAN.mm : .SCAN
 446         O|S|
 447         I|.sn %|A.DONTCARE|M$$(%)|
 448         I|.so %|A.DONTCARE|M$$(%)|
 449
 450 .ATTRIBUTE.%.mm : .SCAN.mm