Web��ǤΡ�ʸ��Ū�ץ�����ߥ󥰡�

ʸ��Ū�ץ�����ߥ󥰤Ȥ�

WEB�����ƥ�� ʸ��Ū�ץ�����ߥ󥰤�ٱ礹�뤿���Knuth����ȯ���������ƥ�Ǥ��롣 WEB�����ƥ�Ϥ�Ȥ��Knuth��TeX�����ƥ�򵭽Ҥ��뤿��˳�ȯ ���줿��ΤʤΤ�Pascal��TeX���оݤˤʤäƤ��뤬�� C���Ȥ���褦�ˤ���CWEB�����ƥ� C��troff�Ȥ��Ȥ߹�碌���Ȥ���cweb�����ƥࡢ Ǥ�դΥץ�����ߥ󥰸�����б������뤳�ȤΤǤ��� Spider�Ȥ��ä������ƥ�Ⳬȯ����Ƥ��롣

WEB���

��1: WEB���

WEBʸ���ʣ���Υץ������⥸�塼��ν���Ȥ������ˤʤäƤ��ꡢ �ƥ⥸�塼��Ϥ��β�����ʬ�ȥץ��������ʬ�Ȥǹ�������롣 WEBʸ���tangle�Ȥ����ץ��������̤��� �ץ����������������Ф���ƤҤȤĤ�Pascal�ץ������ˤʤꡢ weave�Ȥ����ץ��������̤��Ȳ������ȥץ���������� ξ����ͻ�礷��TeX��ʸ��ˤʤ롣 �����Ǥϥץ�����������������ե����ޥåȤ��졢 �⥸�塼����˾�Ω�Ƥ��Ԥʤ�졢 �ܼ�������ⴰ�����������ʥɥ�����Ȥ���������롣 ���Τ褦�ˡ��ҤȤĤ�WEB�ե����뤫��ץ������� ���Υɥ�����Ȥ�ξ�����������뤳�Ȥ��Ǥ���Τ���Ĺ�Ǥ��롣

WEB on Web

WEBʸ��Τ��������̤�HTML�ե������Ȥ��褦�ˤ���� ���Τ褦������ϲ�褹��ȹͤ����롣 �ץ�������HTML�ե��������˵��Ҥ���Ȥ��������� ʸ��Ū�ץ�����ߥ󥰤�Ԥʤ����Ȥˤ���С� tangle����������ץ�������ɬ�פǤ��뤬�� weave��Ϣ�ץ������Ϥ��٤ƾ�ά���� ľ��HTML�ե������֥饦����į��뤳�Ȥ��Ǥ��롣 HTML�ե�������Ф��� tangle���������������Ԥʤ� wtangle�ץ�������ȯ������

wtangle�ץ������

�ץ������

#!/usr/bin/env perl
#
# wtangle - Web Tangle
#
&prologue;
&main;
&epilogue;

sub prologue {
  require 'cacheout.pl'; # ʣ���ե�������ϥ饤�֥��
  if($#ARGV < 0){
    print STDERR "wtangle --- Web Tangle\n";
    print STDERR "Usage: wtangle documentfiles\n";
    exit 0;
  }
  $SIG{'INT'} = $SIG{'TERM'} =
  $SIG{'QUIT'} = $SIG{'HUP'} = 'finish';
}

�ᥤ��롼����

sub main {
  while($file = shift(@ARGV)){
    unless(open(f,$file)){
      print STDERR "Can't open <$file>\n";
      &finish;
    }
    while(){
      if(m#^${lt}/pre>$#){
        @tmpfiles = ();
      }
      elsif(m#^${lt}pre\s*file=(.*)>$#){
        @files = split(/,/,$1);
        @tmpfiles = ();
        foreach $file (@files){
          $allfiles{$file} = 1;
          push(@tmpfiles,&tmpname($file));
        }
      }
      else {  # cachout()��ȤäƸ��߹Ԥ�ƥե�����˽񤭽Ф�
        foreach $tmpfile (@tmpfiles){
          &cacheout($tmpfile);
          $taghead = pack(c,60);
          s/&.{0}lt;/$taghead/g;
          print $tmpfile $_;
        }
      }
    }
    close(f);
  }
}

sub epilogue {
  foreach $file (keys %allfiles){
    $tmpfile = &tmpname($file);
    close($tmpfile);
    if(! -e $file || &diff($tmpfile,$file)){
      push(@newfiles,$file);
      &move($tmpfile,$file);
      chmod 0555,$file; # ����߶ػ�/�¹Բ�ǽ�ˤ���
    }
  }
  sort @newfiles;
  $n = $#newfiles + 1;
  print STDERR 
    $n == 0 ? "No file is updated.\n" :
    $n == 1 ? "File '$newfiles[0]' is updated.\n" :
      "Files '".join("', '",@newfiles[0..$n-2]).
      "' and '".$newfiles[$n-1]."' are updated.\n";
  &finish;
}

���֥롼����

sub tmpname {
  local($_) = @_;
  s#/#_#g;
  "/tmp/stangle$_$$";
}

sub finish {
  foreach $file (keys %allfiles){
    $tmpfile = &tmpname($file);
#    unlink($tmpfile) if -e $tmpfile;
  }
  exit;
}

sub move {
  local($from,$to) = @_;
  return if $from eq $to;
  system "/bin/mv -f $from $to";
  if($?){  # mv�¹ԥ��顼
    print STDERR "Can't move $from to $to\n";
    &finish;
  }
}

sub diff {
  local($file1,$file2) = @_;
  system "/usr/bin/diff $file1 $file2 > /dev/null";
  $? >> 8; # ���ޥ�ɥ��ơ�����
}

���ۤʤ�

��������