gistfile1.diff

--- src/a/p.c.orig	Fri Mar 28 04:09:35 2008
+++ src/a/p.c	Tue Sep 30 09:30:01 2008
@@ -60,6 +60,20 @@
 	     "O.>","O.=","O.!=","O.<=","O.>=", "Q.*","P.*","F.!","P.+","P.-",
 	     "E.%","E.*","A.<","A.>","^","Y.&","B.&","B.|","B.<","B.>",
 	     "B.=","B.!=","B.<=","B.>=","B.!",0};
+Z C *n4[]={"\342\206\220","else","if","while","do","case","time","","@","\302\250",0};
+Z C *p4[]={"\342\210\247","\342\210\250","+","\303\227","\342\214\210","\342\214\212","-","\303\267","\342\210\243","<",
+	     ">","=","\342\211\240","\342\211\244","\342\211\245","\342\213\206","\342\215\237","?","\342\215\211","\342\215\263",
+	     "#","\342\215\264",",","\342\210\274","\342\214\275","\342\206\221","\342\206\223","\342\215\213","\342\215\222","\342\211\241",
+	     "\342\212\245","\342\212\244","/","\\","\342\210\210","\342\212\202","\342\212\203","\302\257","!","\342\227\213",
+	     "\342\210\247\\","\342\210\250\\","+\\","\303\227\\","\342\214\210\\","\342\214\212\\","\342\210\247/","\342\210\250/",
+	     "+/","\303\227/",
+	     "\342\214\210/","\342\214\212/","\342\210\230.+","\342\210\230.\303\227","\342\210\230.\342\214\210","\342\210\230.\342\214\212",
+	     "\342\210\230.-","\342\210\230.\303\267","\342\210\230.\342\210\243","\342\210\230.<",
+	     "\342\210\230.>","\342\210\230.=","\342\210\230.\342\211\240","\342\210\230.\342\211\244","\342\210\230.\342\211\245","\342\210\230.\342\213\206",
+	     "+.\303\227","\342\214\266","\342\214\210.+","\342\214\212.+",
+	     "\342\215\225","\342\215\216","\342\212\242","\342\212\243","%","\342\210\252","\342\210\247\342\215\250","\342\210\250\342\215\250",
+	     "<\342\215\250",">\342\215\250",
+	     "=\342\215\250","\342\211\240\342\215\250","\342\211\244\342\215\250","\342\211\245\342\215\250","\342\210\274\342\215\250",0};
 
 C **get_primlist(int mode,int flag)
 {
@@ -572,5 +586,7 @@
  for(i=0;ps[i];++i)chtsi(psht,ps[i],MP(i));
  for(i=0;n2[i];++i)chtsi(p2ht,n2[i],MN(i));
  for(i=0;p2[i];++i)chtsi(p2ht,p2[i],MP(i));
+ for(i=0;n4[i];++i)chtsi(p2ht,n4[i],MN(i));
+ for(i=0;p4[i];++i)chtsi(p2ht,p4[i],MP(i));
 }