diff -ruN klic-3.003-2001-12-22/MANIFEST klic-3.003-2001-12-25/MANIFEST --- klic-3.003-2001-12-22/MANIFEST Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/MANIFEST Tue Dec 25 18:22:07 2001 @@ -1,571 +1,553 @@ -total 126 --rw-r--r-- 1 sekita sekita 5248 Jul 3 15:09 COPYRIGHT --rw-r--r-- 1 sekita sekita 311 Jul 3 15:09 COPYRIGHT-JIPDEC --rw-r--r-- 1 sekita sekita 262 Jul 3 15:09 COPYRIGHT-JIPDEC.j --rw-r--r-- 1 sekita sekita 3794 Jul 3 15:09 COPYRIGHT.j --rw-r--r-- 1 sekita sekita 27409 Jul 3 15:09 ChangeLog --rwxr-xr-x 1 sekita sekita 28298 Jul 3 15:09 Configure* --rw-r--r-- 1 sekita sekita 1496 Jul 3 15:09 FOR-DEVELOPERS --rw-r--r-- 1 sekita sekita 1390 Jul 3 15:09 FOR-DEVELOPERS.j --rw-r--r-- 1 sekita sekita 5332 Jul 3 15:09 INSTALL --rw-r--r-- 1 sekita sekita 1048 Jul 3 15:09 INSTALL.j --rw-r--r-- 1 sekita sekita 1586 Jul 3 15:09 KL1PP.j --rw-r--r-- 1 sekita sekita 0 Jul 3 15:25 MANIFEST --rw-r--r-- 1 sekita sekita 6228 Jul 3 15:09 Makefile.tail --rw-r--r-- 1 sekita sekita 6937 Jul 3 15:09 README --rw-r--r-- 1 sekita sekita 7232 Jul 3 15:09 README.j -drwxrwxr-x 2 sekita sekita 2048 Jul 3 15:25 compiler/ --rw-r--r-- 1 sekita sekita 468 Jul 3 15:09 config.h.sh -drwxrwxr-x 3 sekita sekita 1024 Jul 3 15:09 disttest/ -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 documents/ -drwxrwxr-x 3 sekita sekita 1024 Jul 3 15:25 include/ --rw-r--r-- 1 sekita sekita 6 Jul 3 15:09 klic-version -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 rmon/ --rw-r--r-- 1 sekita sekita 360 Jul 3 15:09 root.mk.sh -drwxrwxr-x 3 sekita sekita 5120 Jul 3 15:25 runtime/ -drwxrwxr-x 3 sekita sekita 1024 Jul 3 15:10 shmtest/ -drwxrwxr-x 2 sekita sekita 4096 Jul 3 15:25 test/ --rw-r--r-- 1 sekita sekita 58 Jul 3 15:09 version.sed --rw-r--r-- 1 sekita sekita 45 Jul 3 15:09 version.sed.tmplt - -compiler: -total 1718 --rw-r--r-- 1 sekita sekita 5114 Jul 3 15:09 Makefile --rw-rw-r-- 1 sekita sekita 16609 Jul 3 15:13 atom.c --rw-rw-r-- 1 sekita sekita 23775 Jul 3 15:13 atom.h --rw-rw-r-- 1 sekita sekita 15367 Jul 3 15:13 bb.c --rw-rw-r-- 1 sekita sekita 2126 Jul 3 15:13 bb.ext --rw-r--r-- 1 sekita sekita 3847 Jul 3 15:09 bb.kl1 --rw-rw-r-- 1 sekita sekita 27136 Jul 3 15:13 cmacro.c --rw-rw-r-- 1 sekita sekita 926 Jul 3 15:13 cmacro.ext --rw-r--r-- 1 sekita sekita 3403 Jul 3 15:09 cmacro.kl1 --rw-rw-r-- 1 sekita sekita 11838 Jul 3 15:13 extern.c --rw-rw-r-- 1 sekita sekita 522 Jul 3 15:13 extern.ext --rw-r--r-- 1 sekita sekita 1757 Jul 3 15:09 extern.kl1 --rw-rw-r-- 1 sekita sekita 13048 Jul 3 15:13 funct.c --rw-rw-r-- 1 sekita sekita 23916 Jul 3 15:13 funct.h --rw-rw-r-- 1 sekita sekita 24838 Jul 3 15:13 gb.c --rw-rw-r-- 1 sekita sekita 2053 Jul 3 15:13 gb.ext --rw-r--r-- 1 sekita sekita 4182 Jul 3 15:09 gb.kl1 --rw-rw-r-- 1 sekita sekita 237966 Jul 3 15:13 generate.c --rw-rw-r-- 1 sekita sekita 6186 Jul 3 15:13 generate.ext --rw-r--r-- 1 sekita sekita 28228 Jul 3 15:09 generate.kl1 --rw-rw-r-- 1 sekita sekita 54366 Jul 3 15:13 insert.c --rw-rw-r-- 1 sekita sekita 1632 Jul 3 15:13 insert.ext --rw-r--r-- 1 sekita sekita 10422 Jul 3 15:09 insert.kl1 --rw-rw-r-- 1 sekita sekita 83326 Jul 3 15:13 kl1cmp.c --rw-rw-r-- 1 sekita sekita 2763 Jul 3 15:13 kl1cmp.ext --rw-r--r-- 1 sekita sekita 14272 Jul 3 15:09 kl1cmp.kl1 --rw-r--r-- 1 sekita sekita 1832 Jul 3 15:09 kl1pp.kl1 --rw-r--r-- 1 sekita sekita 16263 Jul 3 15:09 klic.c --rw-r--r-- 1 sekita sekita 487 Jul 3 15:09 klic.h --rw-r--r-- 1 sekita sekita 19643 Jul 3 15:09 klicdb.c --rw-rw-r-- 1 sekita sekita 196958 Jul 3 15:13 macro.c --rw-rw-r-- 1 sekita sekita 6010 Jul 3 15:13 macro.ext --rw-r--r-- 1 sekita sekita 27901 Jul 3 15:09 macro.kl1 --rw-r--r-- 1 sekita sekita 7170 Jul 3 15:09 macropp.kl1 --rw-rw-r-- 1 sekita sekita 3332 Jul 3 15:13 main.c --rw-rw-r-- 1 sekita sekita 119 Jul 3 15:13 main.ext --rw-r--r-- 1 sekita sekita 692 Jul 3 15:09 main.kl1 --rw-rw-r-- 1 sekita sekita 18980 Jul 3 15:13 msg.c --rw-rw-r-- 1 sekita sekita 963 Jul 3 15:13 msg.ext --rw-r--r-- 1 sekita sekita 3032 Jul 3 15:09 msg.kl1 --rw-rw-r-- 1 sekita sekita 203497 Jul 3 15:13 normalize.c --rw-rw-r-- 1 sekita sekita 5799 Jul 3 15:13 normalize.ext --rw-r--r-- 1 sekita sekita 28784 Jul 3 15:09 normalize.kl1 --rw-rw-r-- 1 sekita sekita 141660 Jul 3 15:13 obj.c --rw-rw-r-- 1 sekita sekita 4044 Jul 3 15:13 obj.ext --rw-r--r-- 1 sekita sekita 19086 Jul 3 15:09 obj.kl1 --rw-r--r-- 1 sekita sekita 540 Jul 3 15:09 options.c --rw-rw-r-- 1 sekita sekita 206137 Jul 3 15:13 predicates.c --rw-rw-r-- 1 sekita sekita 39147 Jul 3 15:13 util.c --rw-rw-r-- 1 sekita sekita 1484 Jul 3 15:13 util.ext --rw-r--r-- 1 sekita sekita 4525 Jul 3 15:09 util.kl1 --rw-rw-r-- 1 sekita sekita 1565 Jul 3 15:13 version.c --rw-rw-r-- 1 sekita sekita 199 Jul 3 15:13 version.ext --rw-rw-r-- 1 sekita sekita 78 Jul 3 15:11 version.h --rw-r--r-- 1 sekita sekita 60 Jul 3 15:09 version.h.tmplt --rw-rw-r-- 1 sekita sekita 138 Jul 3 15:13 version.kl1 --rw-r--r-- 1 sekita sekita 120 Jul 3 15:09 version.kl1.tmplt --rw-rw-r-- 1 sekita sekita 101808 Jul 3 15:13 write.c --rw-rw-r-- 1 sekita sekita 2126 Jul 3 15:13 write.ext --rw-r--r-- 1 sekita sekita 14411 Jul 3 15:09 write.kl1 - -disttest: -total 291 --rw-r--r-- 1 sekita sekita 23091 Jul 3 15:09 Makefile -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:09 cmpdir/ --rw-r--r-- 1 sekita sekita 6943 Jul 3 15:09 dlife.kl1 --rw-r--r-- 1 sekita sekita 1642 Jul 3 15:09 forward_goal.kl1 --rw-r--r-- 1 sekita sekita 4691 Jul 3 15:09 general_unify_1.kl1 --rw-r--r-- 1 sekita sekita 3011 Jul 3 15:09 general_unify_2.kl1 --rw-r--r-- 1 sekita sekita 1849 Jul 3 15:09 lib.kl1 --rw-r--r-- 1 sekita sekita 822 Jul 3 15:09 mesh.kl1 --rw-r--r-- 1 sekita sekita 7510 Jul 3 15:09 multiple_wait.kl1 --rw-r--r-- 1 sekita sekita 2178 Jul 3 15:09 nq13.kl1 --rw-r--r-- 1 sekita sekita 2285 Jul 3 15:09 nqueen.kl1 --rw-r--r-- 1 sekita sekita 877 Jul 3 15:09 read.kl1 --rwxr-xr-x 1 sekita sekita 754 Jul 3 15:09 report.perl* --rw-r--r-- 1 sekita sekita 257 Jul 3 15:09 rlib.kl1 --rw-r--r-- 1 sekita sekita 6962 Jul 3 15:09 slife.kl1 --rw-r--r-- 1 sekita sekita 658 Jul 3 15:09 stat.perl --rw-r--r-- 1 sekita sekita 2797 Jul 3 15:09 statistics.pl --rw-r--r-- 1 sekita sekita 12138 Jul 3 15:09 t0thr1.kl1 --rw-r--r-- 1 sekita sekita 7909 Jul 3 15:09 t0thr2.kl1 --rw-r--r-- 1 sekita sekita 6640 Jul 3 15:09 t0thr3.kl1 --rw-r--r-- 1 sekita sekita 896 Jul 3 15:09 throw.kl1 --rw-r--r-- 1 sekita sekita 637 Jul 3 15:09 unify.kl1 --rw-r--r-- 1 sekita sekita 3837 Jul 3 15:09 unify_exrefs.kl1 --rw-r--r-- 1 sekita sekita 144108 Jul 3 15:09 vect.log --rw-r--r-- 1 sekita sekita 9358 Jul 3 15:09 vector_built.kl1 --rw-r--r-- 1 sekita sekita 9498 Jul 3 15:09 vector_built_2.kl1 --rw-r--r-- 1 sekita sekita 3218 Jul 3 15:09 wec_exhaust_1.kl1 --rw-r--r-- 1 sekita sekita 5522 Jul 3 15:09 wec_exhaust_2.kl1 --rw-r--r-- 1 sekita sekita 3954 Jul 3 15:09 wec_exhaust_3.kl1 --rw-r--r-- 1 sekita sekita 8933 Jul 3 15:09 wec_indirect.kl1 - -disttest/cmpdir: -total 18 --rw-r--r-- 1 sekita sekita 110 Jul 3 15:09 forward_goal.out --rw-r--r-- 1 sekita sekita 280 Jul 3 15:09 general_unify_1.out --rw-r--r-- 1 sekita sekita 195 Jul 3 15:09 general_unify_2.out --rw-r--r-- 1 sekita sekita 145 Jul 3 15:09 multiple_wait.out --rw-r--r-- 1 sekita sekita 6 Jul 3 15:09 nqueen12.out --rw-r--r-- 1 sekita sekita 6 Jul 3 15:09 nqueen13.out --rw-r--r-- 1 sekita sekita 7 Jul 3 15:09 nqueen14.out --rw-r--r-- 1 sekita sekita 0 Jul 3 15:09 read.out --rw-r--r-- 1 sekita sekita 4 Jul 3 15:09 slife.out --rw-r--r-- 1 sekita sekita 283 Jul 3 15:09 t0thr1.out --rw-r--r-- 1 sekita sekita 157 Jul 3 15:09 t0thr2.out --rw-r--r-- 1 sekita sekita 175 Jul 3 15:09 t0thr3.out --rw-r--r-- 1 sekita sekita 0 Jul 3 15:09 throw.out --rw-r--r-- 1 sekita sekita 0 Jul 3 15:09 unify.out --rw-r--r-- 1 sekita sekita 272 Jul 3 15:09 unify_exrefs.out --rw-r--r-- 1 sekita sekita 391 Jul 3 15:09 vector_built.out --rw-r--r-- 1 sekita sekita 409 Jul 3 15:09 vector_built_2.out --rw-r--r-- 1 sekita sekita 177 Jul 3 15:09 wec_exhaust_1.out --rw-r--r-- 1 sekita sekita 209 Jul 3 15:09 wec_exhaust_2.out --rw-r--r-- 1 sekita sekita 159 Jul 3 15:09 wec_exhaust_3.out --rw-r--r-- 1 sekita sekita 157 Jul 3 15:09 wec_indirect.out - -documents: -total 795 --rw-r--r-- 1 sekita sekita 209238 Jul 3 15:10 KLIC.info --rw-r--r-- 1 sekita sekita 223336 Jul 3 15:10 KLICj.info --rw-r--r-- 1 sekita sekita 1174 Jul 3 15:10 Makefile --rw-r--r-- 1 sekita sekita 3133 Jul 3 15:10 klic.1 --rw-r--r-- 1 sekita sekita 188203 Jul 3 15:10 klic.tex --rw-r--r-- 1 sekita sekita 475 Jul 3 15:10 klicj-info.el --rw-r--r-- 1 sekita sekita 179996 Jul 3 15:10 klicj.tex - -include: -total 4 --rw-r--r-- 1 sekita sekita 1705 Jul 3 15:10 Makefile.tail -drwxrwxr-x 2 sekita sekita 2048 Jul 3 15:25 klic/ - -include/klic: -total 160 --rw-r--r-- 1 sekita sekita 701 Jul 3 15:10 alloc.h --rw-r--r-- 1 sekita sekita 463 Jul 3 15:10 asyncio.h --rw-r--r-- 1 sekita sekita 582 Jul 3 15:10 atomstuffs.h --rw-r--r-- 1 sekita sekita 1368 Jul 3 15:10 basic.h --rw-r--r-- 1 sekita sekita 11205 Jul 3 15:10 bb.h --rw-r--r-- 1 sekita sekita 1849 Jul 3 15:10 control.h --rw-r--r-- 1 sekita sekita 599 Jul 3 15:10 functorstuffs.h --rw-r--r-- 1 sekita sekita 3752 Jul 3 15:10 g_basic.h --rw-r--r-- 1 sekita sekita 717 Jul 3 15:10 g_extern.h --rw-r--r-- 1 sekita sekita 564 Jul 3 15:10 g_extinl.h --rw-r--r-- 1 sekita sekita 696 Jul 3 15:10 g_float.h --rw-r--r-- 1 sekita sekita 3341 Jul 3 15:10 g_methtab.h --rw-r--r-- 1 sekita sekita 463 Jul 3 15:10 g_pointer.h --rw-r--r-- 1 sekita sekita 1239 Jul 3 15:10 g_string.h --rw-r--r-- 1 sekita sekita 485 Jul 3 15:10 g_termarray.h --rw-r--r-- 1 sekita sekita 1139 Jul 3 15:10 g_vector.h --rw-r--r-- 1 sekita sekita 6240 Jul 3 15:10 gb.h --rw-r--r-- 1 sekita sekita 13101 Jul 3 15:10 gc_macro.h --rw-r--r-- 1 sekita sekita 1318 Jul 3 15:10 gc_methtab.h --rw-r--r-- 1 sekita sekita 646 Jul 3 15:10 gcobject.h --rw-r--r-- 1 sekita sekita 13523 Jul 3 15:10 gd_macro.h --rw-r--r-- 1 sekita sekita 1798 Jul 3 15:10 gd_methtab.h --rw-r--r-- 1 sekita sekita 650 Jul 3 15:10 gdobject.h --rw-r--r-- 1 sekita sekita 512 Jul 3 15:10 ge_exref.h --rw-r--r-- 1 sekita sekita 1477 Jul 3 15:10 generic.h --rw-r--r-- 1 sekita sekita 8362 Jul 3 15:10 gg_macro.h --rw-r--r-- 1 sekita sekita 1505 Jul 3 15:10 gg_methtab.h --rw-r--r-- 1 sekita sekita 1081 Jul 3 15:10 gmodule.h --rw-r--r-- 1 sekita sekita 326 Jul 3 15:10 goalobj.h --rw-r--r-- 1 sekita sekita 2845 Jul 3 15:10 gobj.h --rw-r--r-- 1 sekita sekita 1568 Jul 3 15:10 gobjutil.h --rw-r--r-- 1 sekita sekita 1216 Jul 3 15:10 index.h --rw-r--r-- 1 sekita sekita 4747 Jul 3 15:10 interpe.h --rw-r--r-- 1 sekita sekita 670 Jul 3 15:10 klichdr.h --rw-r--r-- 1 sekita sekita 1080 Jul 3 15:10 msgfmt.h --rw-r--r-- 1 sekita sekita 1919 Jul 3 15:10 newatom.h --rw-r--r-- 1 sekita sekita 3141 Jul 3 15:10 options.h --rw-r--r-- 1 sekita sekita 1138 Jul 3 15:10 param.h --rw-r--r-- 1 sekita sekita 548 Jul 3 15:10 predinfo.h --rw-r--r-- 1 sekita sekita 415 Jul 3 15:10 primitives.h --rw-r--r-- 1 sekita sekita 1676 Jul 3 15:10 rmon.h --rw-r--r-- 1 sekita sekita 549 Jul 3 15:10 schedule.h --rw-r--r-- 1 sekita sekita 7113 Jul 3 15:10 shm.h --rw-r--r-- 1 sekita sekita 6627 Jul 3 15:10 shm_machine.h --rw-r--r-- 1 sekita sekita 978 Jul 3 15:10 sighndl.h --rw-r--r-- 1 sekita sekita 10099 Jul 3 15:10 struct.h --rw-r--r-- 1 sekita sekita 3376 Jul 3 15:10 susp.h --rw-r--r-- 1 sekita sekita 1506 Jul 3 15:10 timer.h --rw-r--r-- 1 sekita sekita 972 Jul 3 15:10 timing.h --rw-r--r-- 1 sekita sekita 1590 Jul 3 15:10 trace.h --rw-r--r-- 1 sekita sekita 709 Jul 3 15:10 traceio.h --rw-r--r-- 1 sekita sekita 1939 Jul 3 15:10 unify.h - -rmon: -total 7 --rw-r--r-- 1 sekita sekita 591 Jul 3 15:10 Makefile --rw-r--r-- 1 sekita sekita 865 Jul 3 15:10 README.j --rwxr-xr-x 1 sekita sekita 3461 Jul 3 15:10 klic-rmonitor.tcl* --rwxr-xr-x 1 sekita sekita 447 Jul 3 15:10 make-com* - -runtime: -total 1484 --rw-r--r-- 1 sekita sekita 662 Jul 3 15:10 Makefile.head --rw-r--r-- 1 sekita sekita 61923 Jul 3 15:10 Makefile.tail --rw-r--r-- 1 sekita sekita 2586 Jul 3 15:10 alloc.c --rw-r--r-- 1 sekita sekita 6744 Jul 3 15:10 asyncio.c --rw-rw-r-- 1 sekita sekita 7450 Jul 3 15:11 atom.c --rw-rw-r-- 1 sekita sekita 10867 Jul 3 15:11 atom.h --rw-rw-r-- 1 sekita sekita 11832 Jul 3 15:11 atomt.c --rw-rw-r-- 1 sekita sekita 433 Jul 3 15:11 atomt.ext --rw-r--r-- 1 sekita sekita 1964 Jul 3 15:10 atomt.kl1 --rw-rw-r-- 1 sekita sekita 1060 Jul 3 15:11 bag.c --rw-rw-r-- 1 sekita sekita 58 Jul 3 15:11 bag.ext --rw-r--r-- 1 sekita sekita 428 Jul 3 15:10 bag.kl1 --rw-rw-r-- 1 sekita sekita 2163 Jul 3 15:11 bagk.c --rw-rw-r-- 1 sekita sekita 141 Jul 3 15:11 bagk.ext --rw-r--r-- 1 sekita sekita 563 Jul 3 15:10 bagk.kl1 --rw-rw-r-- 1 sekita sekita 30630 Jul 3 15:11 bagks.c --rw-rw-r-- 1 sekita sekita 1236 Jul 3 15:11 bagks.ext --rw-r--r-- 1 sekita sekita 3481 Jul 3 15:10 bagks.kl1 --rw-rw-r-- 1 sekita sekita 22301 Jul 3 15:11 bags.c --rw-rw-r-- 1 sekita sekita 840 Jul 3 15:11 bags.ext --rw-r--r-- 1 sekita sekita 2718 Jul 3 15:10 bags.kl1 --rw-r--r-- 1 sekita sekita 6384 Jul 3 15:10 bb.c --rw-rw-r-- 1 sekita sekita 6170 Jul 3 15:11 bodyblt.c --rw-rw-r-- 1 sekita sekita 258 Jul 3 15:11 bodyblt.ext --rw-r--r-- 1 sekita sekita 3165 Jul 3 15:10 bodyblt.kl1 --rw-r--r-- 1 sekita sekita 1588 Jul 3 15:10 clearmes.perl --rw-r--r-- 1 sekita sekita 3688 Jul 3 15:10 cmphsh.c --rw-r--r-- 1 sekita sekita 17324 Jul 3 15:10 cntlmsg.c --rw-rw-r-- 1 sekita sekita 1750 Jul 3 15:11 compare.c --rw-rw-r-- 1 sekita sekita 64 Jul 3 15:11 compare.ext --rw-r--r-- 1 sekita sekita 562 Jul 3 15:10 compare.kl1 -drwxrwxr-x 5 sekita sekita 1024 Jul 3 15:10 config/ --rw-r--r-- 1 sekita sekita 2066 Jul 3 15:10 config.h --rw-r--r-- 1 sekita sekita 398 Jul 3 15:10 config.tmp --rw-r--r-- 1 sekita sekita 6879 Jul 3 15:10 datamsg.c --rw-r--r-- 1 sekita sekita 5701 Jul 3 15:10 debug.c --rw-r--r-- 1 sekita sekita 4383 Jul 3 15:10 export_table.c --rw-r--r-- 1 sekita sekita 8323 Jul 3 15:10 faisus.c --rw-rw-r-- 1 sekita sekita 11034 Jul 3 15:11 farith.c --rw-rw-r-- 1 sekita sekita 1487 Jul 3 15:11 farith.ext --rw-r--r-- 1 sekita sekita 1386 Jul 3 15:10 farith.kl1 --rw-rw-r-- 1 sekita sekita 5052 Jul 3 15:11 funct.c --rw-rw-r-- 1 sekita sekita 8614 Jul 3 15:11 funct.h --rw-rw-r-- 1 sekita sekita 13334 Jul 3 15:11 functt.c --rw-rw-r-- 1 sekita sekita 407 Jul 3 15:11 functt.ext --rw-r--r-- 1 sekita sekita 2348 Jul 3 15:10 functt.kl1 --rw-r--r-- 1 sekita sekita 19889 Jul 3 15:10 gc.c --rw-rw-r-- 1 sekita sekita 1927 Jul 3 15:11 gcmerge.c --rw-rw-r-- 1 sekita sekita 57 Jul 3 15:11 gcmerge.ext --rw-r--r-- 1 sekita sekita 567 Jul 3 15:10 gcmerge.kl1 --rw-r--r-- 1 sekita sekita 6188 Jul 3 15:10 gcode.c --rw-r--r-- 1 sekita sekita 4632 Jul 3 15:10 ge_exref.c --rw-r--r-- 1 sekita sekita 2960 Jul 3 15:10 ge_readhook.c --rw-r--r-- 1 sekita sekita 1902 Jul 3 15:10 ge_replyhook.c --rw-rw-r-- 1 sekita sekita 3151 Jul 3 15:11 gen.c --rw-rw-r-- 1 sekita sekita 69 Jul 3 15:11 gen.ext --rw-r--r-- 1 sekita sekita 1350 Jul 3 15:10 gen.kl1 --rw-r--r-- 1 sekita sekita 6510 Jul 3 15:10 generic.c --rw-r--r-- 1 sekita sekita 9771 Jul 3 15:10 gfloat.c --rw-r--r-- 1 sekita sekita 1521 Jul 3 15:10 gg_shbusy.c --rw-r--r-- 1 sekita sekita 8464 Jul 3 15:10 gg_shvar.c --rw-r--r-- 1 sekita sekita 8989 Jul 3 15:10 ggoal.c --rw-r--r-- 1 sekita sekita 11423 Jul 3 15:10 gio.c --rw-r--r-- 1 sekita sekita 3981 Jul 3 15:10 gmerge.c --rw-r--r-- 1 sekita sekita 3262 Jul 3 15:10 gmodule.c --rw-r--r-- 1 sekita sekita 17413 Jul 3 15:10 gmvv.c --rw-r--r-- 1 sekita sekita 1636 Jul 3 15:10 gpointer.c --rw-r--r-- 1 sekita sekita 20655 Jul 3 15:10 gstring.c --rw-r--r-- 1 sekita sekita 1951 Jul 3 15:10 gtermarray.c --rw-rw-r-- 1 sekita sekita 72081 Jul 3 15:11 gunix.c --rw-rw-r-- 1 sekita sekita 1952 Jul 3 15:11 gunix.ext --rw-r--r-- 1 sekita sekita 23846 Jul 3 15:10 gunix.kl1 --rw-rw-r-- 1 sekita sekita 10662 Jul 3 15:11 iarith.c --rw-rw-r-- 1 sekita sekita 574 Jul 3 15:11 iarith.ext --rw-r--r-- 1 sekita sekita 841 Jul 3 15:10 iarith.kl1 --rw-r--r-- 1 sekita sekita 5289 Jul 3 15:10 import_table.c --rw-r--r-- 1 sekita sekita 1445 Jul 3 15:10 init_dist.c --rw-r--r-- 1 sekita sekita 2927 Jul 3 15:10 intrpt.c --rw-rw-r-- 1 sekita sekita 16425 Jul 3 15:11 io.c --rw-rw-r-- 1 sekita sekita 474 Jul 3 15:11 io.ext --rw-r--r-- 1 sekita sekita 3585 Jul 3 15:10 io.kl1 --rw-rw-r-- 1 sekita sekita 19638 Jul 3 15:11 itimer.c --rw-rw-r-- 1 sekita sekita 378 Jul 3 15:11 itimer.ext --rw-r--r-- 1 sekita sekita 3991 Jul 3 15:10 itimer.kl1 --rw-rw-r-- 1 sekita sekita 6502 Jul 3 15:11 klic.db --rw-rw-r-- 1 sekita sekita 10 Jul 3 15:11 klicdb.atoms --rw-rw-r-- 1 sekita sekita 1239 Jul 3 15:11 klicdb.fncts --rw-rw-r-- 1 sekita sekita 1249 Jul 3 15:11 klicdb.init --rw-rw-r-- 1 sekita sekita 310 Jul 3 15:11 klicdb.refs --rw-r--r-- 1 sekita sekita 12249 Jul 3 15:10 kmain.c --rw-r--r-- 1 sekita sekita 4699 Jul 3 15:10 ktimer.c --rw-rw-r-- 1 sekita sekita 17003 Jul 3 15:11 libklic.db --rw-r--r-- 1 sekita sekita 476 Jul 3 15:10 main.c --rw-r--r-- 1 sekita sekita 1354 Jul 3 15:10 makeChangelog.perl --rwxr-xr-x 1 sekita sekita 1641 Jul 3 15:10 mmakedepend* --rwxr-xr-x 1 sekita sekita 611 Jul 3 15:10 myrcsdiff* --rw-r--r-- 1 sekita sekita 10524 Jul 3 15:10 newatom.c --rw-r--r-- 1 sekita sekita 3498 Jul 3 15:10 options.c --rw-r--r-- 1 sekita sekita 2922 Jul 3 15:10 otbl.c --rw-rw-r-- 1 sekita sekita 78324 Jul 3 15:11 parse.c --rw-rw-r-- 1 sekita sekita 2599 Jul 3 15:11 parse.ext --rw-r--r-- 1 sekita sekita 9273 Jul 3 15:10 parse.kl1 --rw-r--r-- 1 sekita sekita 2960 Jul 3 15:10 pipedio.c --rw-rw-r-- 1 sekita sekita 5552 Jul 3 15:11 predicates.c --rw-r--r-- 1 sekita sekita 4263 Jul 3 15:10 print.c --rw-r--r-- 1 sekita sekita 3201 Jul 3 15:10 profile.c --rwxr-xr-x 1 sekita sekita 441 Jul 3 15:10 prot.perl* --rw-rw-r-- 1 sekita sekita 8596 Jul 3 15:11 queue.c --rw-rw-r-- 1 sekita sekita 299 Jul 3 15:11 queue.ext --rw-r--r-- 1 sekita sekita 1560 Jul 3 15:10 queue.kl1 --rw-r--r-- 1 sekita sekita 3033 Jul 3 15:10 random.c --rw-rw-r-- 1 sekita sekita 29355 Jul 3 15:11 read.c --rw-rw-r-- 1 sekita sekita 1158 Jul 3 15:11 read.ext --rw-r--r-- 1 sekita sekita 3349 Jul 3 15:10 read.kl1 --rw-r--r-- 1 sekita sekita 3191 Jul 3 15:10 recsusp.c --rw-rw-r-- 1 sekita sekita 95578 Jul 3 15:11 scan.c --rw-rw-r-- 1 sekita sekita 2164 Jul 3 15:11 scan.ext --rw-r--r-- 1 sekita sekita 13384 Jul 3 15:10 scan.kl1 --rw-r--r-- 1 sekita sekita 14029 Jul 3 15:10 sched.c --rw-r--r-- 1 sekita sekita 12909 Jul 3 15:10 sendrecv.c --rw-rw-r-- 1 sekita sekita 2163 Jul 3 15:11 setk.c --rw-rw-r-- 1 sekita sekita 141 Jul 3 15:11 setk.ext --rw-r--r-- 1 sekita sekita 563 Jul 3 15:10 setk.kl1 --rw-rw-r-- 1 sekita sekita 22589 Jul 3 15:11 setks.c --rw-rw-r-- 1 sekita sekita 954 Jul 3 15:11 setks.ext --rw-r--r-- 1 sekita sekita 2799 Jul 3 15:10 setks.kl1 --rwxr-xr-x 1 sekita sekita 1703 Jul 3 15:10 setupcomm* --rw-r--r-- 1 sekita sekita 27336 Jul 3 15:10 shm_gc.c --rw-r--r-- 1 sekita sekita 10075 Jul 3 15:10 shm_obj.c --rw-r--r-- 1 sekita sekita 9850 Jul 3 15:10 shm_rsv.c --rw-r--r-- 1 sekita sekita 16007 Jul 3 15:10 shm_throw.c --rw-r--r-- 1 sekita sekita 4330 Jul 3 15:10 signal.c --rw-rw-r-- 1 sekita sekita 41355 Jul 3 15:11 splay.c --rw-rw-r-- 1 sekita sekita 1212 Jul 3 15:11 splay.ext --rw-r--r-- 1 sekita sekita 4395 Jul 3 15:10 splay.kl1 --rw-rw-r-- 1 sekita sekita 5439 Jul 3 15:11 stack.c --rw-rw-r-- 1 sekita sekita 246 Jul 3 15:11 stack.ext --rw-r--r-- 1 sekita sekita 1193 Jul 3 15:10 stack.kl1 --rw-r--r-- 1 sekita sekita 9107 Jul 3 15:10 step.c --rw-rw-r-- 1 sekita sekita 4143 Jul 3 15:11 sysc.c --rw-rw-r-- 1 sekita sekita 221 Jul 3 15:11 sysc.ext --rw-r--r-- 1 sekita sekita 1560 Jul 3 15:10 sysc.kl1 --rw-rw-r-- 1 sekita sekita 81752 Jul 3 15:11 termio.c --rw-rw-r-- 1 sekita sekita 2550 Jul 3 15:11 termio.ext --rw-r--r-- 1 sekita sekita 10077 Jul 3 15:10 termio.kl1 --rw-r--r-- 1 sekita sekita 4076 Jul 3 15:10 timer.c --rw-r--r-- 1 sekita sekita 599 Jul 3 15:10 timing.c --rw-r--r-- 1 sekita sekita 48773 Jul 3 15:10 trace.c --rw-r--r-- 1 sekita sekita 15484 Jul 3 15:10 unify.c --rw-r--r-- 1 sekita sekita 1982 Jul 3 15:10 unify2.c --rw-rw-r-- 1 sekita sekita 73234 Jul 3 15:11 unparse.c --rw-rw-r-- 1 sekita sekita 2156 Jul 3 15:11 unparse.ext --rw-r--r-- 1 sekita sekita 9074 Jul 3 15:10 unparse.kl1 --rw-rw-r-- 1 sekita sekita 4434 Jul 3 15:11 uterms.c --rw-rw-r-- 1 sekita sekita 194 Jul 3 15:11 uterms.ext --rw-r--r-- 1 sekita sekita 993 Jul 3 15:10 uterms.kl1 --rw-rw-r-- 1 sekita sekita 23445 Jul 3 15:11 var.c --rw-rw-r-- 1 sekita sekita 774 Jul 3 15:11 var.ext --rw-r--r-- 1 sekita sekita 3337 Jul 3 15:10 var.kl1 --rw-rw-r-- 1 sekita sekita 86 Jul 3 15:12 version.c --rw-r--r-- 1 sekita sekita 68 Jul 3 15:10 version.c.tmplt --rw-r--r-- 1 sekita sekita 45 Jul 3 15:10 version.sed.tmplt --rw-r--r-- 1 sekita sekita 1619 Jul 3 15:10 wakeup.c --rw-r--r-- 1 sekita sekita 1538 Jul 3 15:10 xio.c - -runtime/config: -total 4 --rw-r--r-- 1 sekita sekita 617 Jul 3 15:10 Makefile -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 pvm/ -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 pvm-tcp/ -drwxrwxr-x 6 sekita sekita 1024 Jul 3 15:10 shm/ - -runtime/config/pvm: -total 54 --rw-r--r-- 1 sekita sekita 483 Jul 3 15:10 Makefile --rw-r--r-- 1 sekita sekita 822 Jul 3 15:10 config.h.sh --rw-r--r-- 1 sekita sekita 883 Jul 3 15:10 configure --rw-r--r-- 1 sekita sekita 6624 Jul 3 15:10 distio.c --rw-r--r-- 1 sekita sekita 2556 Jul 3 15:10 distio.h --rw-r--r-- 1 sekita sekita 6808 Jul 3 15:10 distpkt.c --rw-r--r-- 1 sekita sekita 3248 Jul 3 15:10 distpkt.h --rw-r--r-- 1 sekita sekita 13055 Jul 3 15:10 distproc.c --rw-r--r-- 1 sekita sekita 3448 Jul 3 15:10 distproc.h --rw-r--r-- 1 sekita sekita 2492 Jul 3 15:10 distrmon.c --rw-r--r-- 1 sekita sekita 399 Jul 3 15:10 include.mk.sh --rw-r--r-- 1 sekita sekita 2894 Jul 3 15:10 rmon_server.c --rw-r--r-- 1 sekita sekita 552 Jul 3 15:10 root.mk.sh --rw-r--r-- 1 sekita sekita 1294 Jul 3 15:10 runtime.mk.sh --rw-r--r-- 1 sekita sekita 1355 Jul 3 15:10 runtimedep.mk - -runtime/config/pvm-tcp: -total 25 --rw-r--r-- 1 sekita sekita 543 Jul 3 15:10 Makefile --rw-r--r-- 1 sekita sekita 533 Jul 3 15:10 configure --rw-r--r-- 1 sekita sekita 17770 Jul 3 15:10 distpkt.c --rw-r--r-- 1 sekita sekita 3357 Jul 3 15:10 distpkt.h - -runtime/config/shm: -total 51 -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 INTEL/ -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 MIPS/ --rw-r--r-- 1 sekita sekita 541 Jul 3 15:10 Makefile -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 PARISC/ -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 SPARC/ --rw-r--r-- 1 sekita sekita 628 Jul 3 15:10 config.h.sh --rw-r--r-- 1 sekita sekita 1406 Jul 3 15:10 configure --rw-r--r-- 1 sekita sekita 1223 Jul 3 15:10 distio.c --rw-r--r-- 1 sekita sekita 2562 Jul 3 15:10 distio.h --rw-r--r-- 1 sekita sekita 7147 Jul 3 15:10 distpkt.c --rw-r--r-- 1 sekita sekita 4878 Jul 3 15:10 distpkt.h --rw-r--r-- 1 sekita sekita 6337 Jul 3 15:10 distproc.c --rw-r--r-- 1 sekita sekita 3295 Jul 3 15:10 distproc.h --rw-r--r-- 1 sekita sekita 3180 Jul 3 15:10 distrmon.c --rw-r--r-- 1 sekita sekita 399 Jul 3 15:10 include.mk.sh --rw-r--r-- 1 sekita sekita 4598 Jul 3 15:10 rmon_server.c --rw-r--r-- 1 sekita sekita 552 Jul 3 15:10 root.mk.sh --rw-r--r-- 1 sekita sekita 1227 Jul 3 15:10 runtime.mk.sh --rw-r--r-- 1 sekita sekita 1355 Jul 3 15:10 runtimedep.mk - -runtime/config/shm/INTEL: -total 1 --rw-r--r-- 1 sekita sekita 592 Jul 3 15:10 lock.s - -runtime/config/shm/MIPS: -total 2 --rw-r--r-- 1 sekita sekita 1351 Jul 3 15:10 lock.s - -runtime/config/shm/PARISC: -total 1 --rw-r--r-- 1 sekita sekita 726 Jul 3 15:10 lock.s - -runtime/config/shm/SPARC: -total 2 --rw-r--r-- 1 sekita sekita 743 Jul 3 15:10 lock.c --rw-r--r-- 1 sekita sekita 981 Jul 3 15:10 lock.s - -shmtest: -total 150 --rw-r--r-- 1 sekita sekita 23990 Jul 3 15:10 Makefile -drwxrwxr-x 2 sekita sekita 1024 Jul 3 15:10 cmpdir/ --rw-r--r-- 1 sekita sekita 6943 Jul 3 15:10 dlife.kl1 --rw-r--r-- 1 sekita sekita 1642 Jul 3 15:10 forward_goal.kl1 --rw-r--r-- 1 sekita sekita 4691 Jul 3 15:10 general_unify_1.kl1 --rw-r--r-- 1 sekita sekita 3011 Jul 3 15:10 general_unify_2.kl1 --rw-r--r-- 1 sekita sekita 1849 Jul 3 15:10 lib.kl1 --rw-r--r-- 1 sekita sekita 822 Jul 3 15:10 mesh.kl1 --rw-r--r-- 1 sekita sekita 7510 Jul 3 15:10 multiple_wait.kl1 --rw-r--r-- 1 sekita sekita 2178 Jul 3 15:10 nq13.kl1 --rw-r--r-- 1 sekita sekita 2285 Jul 3 15:10 nqueen.kl1 --rw-r--r-- 1 sekita sekita 877 Jul 3 15:10 read.kl1 --rwxr-xr-x 1 sekita sekita 754 Jul 3 15:10 report.perl* --rw-r--r-- 1 sekita sekita 257 Jul 3 15:10 rlib.kl1 --rw-r--r-- 1 sekita sekita 6962 Jul 3 15:10 slife.kl1 --rw-r--r-- 1 sekita sekita 597 Jul 3 15:10 stat.perl --rw-r--r-- 1 sekita sekita 2797 Jul 3 15:10 statistics.pl --rw-r--r-- 1 sekita sekita 12138 Jul 3 15:10 t0thr1.kl1 --rw-r--r-- 1 sekita sekita 7909 Jul 3 15:10 t0thr2.kl1 --rw-r--r-- 1 sekita sekita 6640 Jul 3 15:10 t0thr3.kl1 --rw-r--r-- 1 sekita sekita 896 Jul 3 15:10 throw.kl1 --rw-r--r-- 1 sekita sekita 637 Jul 3 15:10 unify.kl1 --rw-r--r-- 1 sekita sekita 3837 Jul 3 15:10 unify_exrefs.kl1 --rw-r--r-- 1 sekita sekita 9358 Jul 3 15:10 vector_built.kl1 --rw-r--r-- 1 sekita sekita 9498 Jul 3 15:10 vector_built_2.kl1 --rw-r--r-- 1 sekita sekita 3218 Jul 3 15:10 wec_exhaust_1.kl1 --rw-r--r-- 1 sekita sekita 5522 Jul 3 15:10 wec_exhaust_2.kl1 --rw-r--r-- 1 sekita sekita 3954 Jul 3 15:10 wec_exhaust_3.kl1 --rw-r--r-- 1 sekita sekita 8933 Jul 3 15:10 wec_indirect.kl1 - -shmtest/cmpdir: -total 18 --rw-r--r-- 1 sekita sekita 110 Jul 3 15:10 forward_goal.out --rw-r--r-- 1 sekita sekita 280 Jul 3 15:10 general_unify_1.out --rw-r--r-- 1 sekita sekita 195 Jul 3 15:10 general_unify_2.out --rw-r--r-- 1 sekita sekita 145 Jul 3 15:10 multiple_wait.out --rw-r--r-- 1 sekita sekita 6 Jul 3 15:10 nqueen12.out --rw-r--r-- 1 sekita sekita 6 Jul 3 15:10 nqueen13.out --rw-r--r-- 1 sekita sekita 7 Jul 3 15:10 nqueen14.out --rw-r--r-- 1 sekita sekita 0 Jul 3 15:10 read.out --rw-r--r-- 1 sekita sekita 4 Jul 3 15:10 slife.out --rw-r--r-- 1 sekita sekita 283 Jul 3 15:10 t0thr1.out --rw-r--r-- 1 sekita sekita 157 Jul 3 15:10 t0thr2.out --rw-r--r-- 1 sekita sekita 175 Jul 3 15:10 t0thr3.out --rw-r--r-- 1 sekita sekita 0 Jul 3 15:10 throw.out --rw-r--r-- 1 sekita sekita 0 Jul 3 15:10 unify.out --rw-r--r-- 1 sekita sekita 272 Jul 3 15:10 unify_exrefs.out --rw-r--r-- 1 sekita sekita 391 Jul 3 15:10 vector_built.out --rw-r--r-- 1 sekita sekita 409 Jul 3 15:10 vector_built_2.out --rw-r--r-- 1 sekita sekita 177 Jul 3 15:10 wec_exhaust_1.out --rw-r--r-- 1 sekita sekita 209 Jul 3 15:10 wec_exhaust_2.out --rw-r--r-- 1 sekita sekita 159 Jul 3 15:10 wec_exhaust_3.out --rw-r--r-- 1 sekita sekita 157 Jul 3 15:10 wec_indirect.out - -test: -total 93 --rw-r--r-- 1 sekita sekita 4519 Jul 3 15:10 Makefile --rw-r--r-- 1 sekita sekita 10424 Jul 3 15:10 atomfunc.kl1 --rw-r--r-- 1 sekita sekita 1705 Jul 3 15:10 atomfunc.perl --rw-r--r-- 1 sekita sekita 0 Jul 3 15:10 atomfunc.res.cmp --rw-r--r-- 1 sekita sekita 616 Jul 3 15:10 client.kl1 --rw-r--r-- 1 sekita sekita 137 Jul 3 15:10 cmac.kl1 --rw-r--r-- 1 sekita sekita 6 Jul 3 15:10 cmac.res.cmp --rw-r--r-- 1 sekita sekita 828 Jul 3 15:10 deriv.kl1 --rw-r--r-- 1 sekita sekita 1306 Jul 3 15:10 deriv.res.cmp --rw-r--r-- 1 sekita sekita 150 Jul 3 15:10 fact.kl1 --rw-r--r-- 1 sekita sekita 9 Jul 3 15:10 fact.res.cmp --rw-r--r-- 1 sekita sekita 1005 Jul 3 15:10 hanoi.kl1 --rw-r--r-- 1 sekita sekita 5 Jul 3 15:10 hanoi.res.cmp --rw-r--r-- 1 sekita sekita 266 Jul 3 15:10 iotest.kl1 --rw-r--r-- 1 sekita sekita 266 Jul 3 15:10 iotest.res.cmp --rw-r--r-- 1 sekita sekita 1353 Jul 3 15:10 kkqueen.kl1 --rw-r--r-- 1 sekita sekita 4 Jul 3 15:10 kkqueen.res.cmp --rw-r--r-- 1 sekita sekita 6960 Jul 3 15:10 life.kl1 --rw-r--r-- 1 sekita sekita 4 Jul 3 15:10 life.res.cmp --rw-r--r-- 1 sekita sekita 3286 Jul 3 15:10 mastermind.kl1 --rw-r--r-- 1 sekita sekita 4 Jul 3 15:10 mastermind.res.cmp --rw-r--r-- 1 sekita sekita 463 Jul 3 15:10 merge.kl1 --rw-r--r-- 1 sekita sekita 0 Jul 3 15:10 merge.res.cmp --rw-r--r-- 1 sekita sekita 1045 Jul 3 15:10 parsetest.kl1 --rw-r--r-- 1 sekita sekita 0 Jul 3 15:10 parsetest.res.cmp --rw-r--r-- 1 sekita sekita 1727 Jul 3 15:10 pascal.kl1 --rw-r--r-- 1 sekita sekita 2768 Jul 3 15:10 pascal.res.cmp --rw-r--r-- 1 sekita sekita 235 Jul 3 15:10 pp.kl1 --rw-r--r-- 1 sekita sekita 0 Jul 3 15:10 pp.res.cmp --rw-r--r-- 1 sekita sekita 669 Jul 3 15:10 primes.kl1 --rw-r--r-- 1 sekita sekita 5 Jul 3 15:10 primes.res.cmp --rw-r--r-- 1 sekita sekita 683 Jul 3 15:10 primesp.kl1 --rw-r--r-- 1 sekita sekita 4 Jul 3 15:10 primesp.res.cmp --rw-r--r-- 1 sekita sekita 295 Jul 3 15:10 prio.kl1 --rw-r--r-- 1 sekita sekita 20 Jul 3 15:10 prio.res.cmp --rw-r--r-- 1 sekita sekita 9635 Jul 3 15:10 puzzle.kl1 --rw-r--r-- 1 sekita sekita 3 Jul 3 15:10 puzzle.res.cmp --rw-r--r-- 1 sekita sekita 1598 Jul 3 15:10 qlay.kl1 --rw-r--r-- 1 sekita sekita 3 Jul 3 15:10 qlay.res.cmp --rw-r--r-- 1 sekita sekita 634 Jul 3 15:10 qsort.kl1 --rw-r--r-- 1 sekita sekita 146 Jul 3 15:10 qsort.res.cmp --rw-r--r-- 1 sekita sekita 414 Jul 3 15:10 server.kl1 --rw-r--r-- 1 sekita sekita 3369 Jul 3 15:10 turtles.kl1 --rw-r--r-- 1 sekita sekita 298 Jul 3 15:10 turtles.res.cmp --rw-r--r-- 1 sekita sekita 366 Jul 3 15:10 vecstr.kl1 --rw-r--r-- 1 sekita sekita 14 Jul 3 15:10 vecstr.res.cmp --rw-r--r-- 1 sekita sekita 7394 Jul 3 15:10 wave.kl1 --rw-r--r-- 1 sekita sekita 0 Jul 3 15:10 wave.res.cmp +./COPYRIGHT +./COPYRIGHT-JIPDEC +./COPYRIGHT-JIPDEC.j +./COPYRIGHT.j +./ChangeLog +./Configure +./FOR-DEVELOPERS +./FOR-DEVELOPERS.j +./INSTALL +./INSTALL.j +./KL1PP.j +./MANIFEST +./Makefile.tail +./README +./README.IRIX +./README.j +./compiler +./compiler/Makefile +./compiler/atom.c +./compiler/atom.h +./compiler/bb.c +./compiler/bb.ext +./compiler/bb.kl1 +./compiler/cmacro.c +./compiler/cmacro.ext +./compiler/cmacro.kl1 +./compiler/extern.c +./compiler/extern.ext +./compiler/extern.kl1 +./compiler/funct.c +./compiler/funct.h +./compiler/gb.c +./compiler/gb.ext +./compiler/gb.kl1 +./compiler/generate.c +./compiler/generate.ext +./compiler/generate.kl1 +./compiler/insert.c +./compiler/insert.ext +./compiler/insert.kl1 +./compiler/kl1cmp.c +./compiler/kl1cmp.ext +./compiler/kl1cmp.kl1 +./compiler/kl1pp.kl1 +./compiler/klic.c +./compiler/klic.h +./compiler/klicdb.c +./compiler/macro.c +./compiler/macro.ext +./compiler/macro.kl1 +./compiler/macropp.kl1 +./compiler/main.c +./compiler/main.ext +./compiler/main.kl1 +./compiler/msg.c +./compiler/msg.ext +./compiler/msg.kl1 +./compiler/normalize.c +./compiler/normalize.ext +./compiler/normalize.kl1 +./compiler/obj.c +./compiler/obj.ext +./compiler/obj.kl1 +./compiler/options.c +./compiler/predicates.c +./compiler/util.c +./compiler/util.ext +./compiler/util.kl1 +./compiler/version.c +./compiler/version.ext +./compiler/version.h +./compiler/version.h.tmplt +./compiler/version.kl1 +./compiler/version.kl1.tmplt +./compiler/write.c +./compiler/write.ext +./compiler/write.kl1 +./config.h.sh +./disttest +./disttest/Makefile +./disttest/cmpdir +./disttest/cmpdir/forward_goal.out +./disttest/cmpdir/general_unify_1.out +./disttest/cmpdir/general_unify_2.out +./disttest/cmpdir/multiple_wait.out +./disttest/cmpdir/nqueen12.out +./disttest/cmpdir/nqueen13.out +./disttest/cmpdir/nqueen14.out +./disttest/cmpdir/read.out +./disttest/cmpdir/slife.out +./disttest/cmpdir/t0thr1.out +./disttest/cmpdir/t0thr2.out +./disttest/cmpdir/t0thr3.out +./disttest/cmpdir/throw.out +./disttest/cmpdir/unify.out +./disttest/cmpdir/unify_exrefs.out +./disttest/cmpdir/vector_built.out +./disttest/cmpdir/vector_built_2.out +./disttest/cmpdir/wec_exhaust_1.out +./disttest/cmpdir/wec_exhaust_2.out +./disttest/cmpdir/wec_exhaust_3.out +./disttest/cmpdir/wec_indirect.out +./disttest/dlife.kl1 +./disttest/forward_goal.kl1 +./disttest/general_unify_1.kl1 +./disttest/general_unify_2.kl1 +./disttest/lib.kl1 +./disttest/mesh.kl1 +./disttest/multiple_wait.kl1 +./disttest/nq13.kl1 +./disttest/nqueen.kl1 +./disttest/read.kl1 +./disttest/report.perl +./disttest/rlib.kl1 +./disttest/slife.kl1 +./disttest/stat.perl +./disttest/statistics.pl +./disttest/t0thr1.kl1 +./disttest/t0thr2.kl1 +./disttest/t0thr3.kl1 +./disttest/throw.kl1 +./disttest/trace.exp +./disttest/trace.kl1 +./disttest/unify.kl1 +./disttest/unify_exrefs.kl1 +./disttest/vect.log +./disttest/vector_built.kl1 +./disttest/vector_built_2.kl1 +./disttest/wec_exhaust_1.kl1 +./disttest/wec_exhaust_2.kl1 +./disttest/wec_exhaust_3.kl1 +./disttest/wec_indirect.kl1 +./documents +./documents/KLIC.info +./documents/KLICj.info +./documents/Makefile +./documents/klic.1 +./documents/klic.dvi +./documents/klic.tex +./documents/klicj-info.el +./documents/klicj.dvi +./documents/klicj.tex +./include +./include/Makefile.tail +./include/klic +./include/klic/alloc.h +./include/klic/alloc.h~ +./include/klic/asyncio.h +./include/klic/asyncio.h~ +./include/klic/atomstuffs.h +./include/klic/atomstuffs.h~ +./include/klic/basic.h +./include/klic/basic.h~ +./include/klic/bb.h +./include/klic/control.h +./include/klic/control.h~ +./include/klic/functorstuffs.h +./include/klic/functorstuffs.h~ +./include/klic/g_basic.h +./include/klic/g_basic.h~ +./include/klic/g_extern.h +./include/klic/g_extern.h~ +./include/klic/g_extinl.h +./include/klic/g_float.h +./include/klic/g_methtab.h +./include/klic/g_pointer.h +./include/klic/g_string.h +./include/klic/g_termarray.h +./include/klic/g_vector.h +./include/klic/g_vector.h~ +./include/klic/gb.h +./include/klic/gb.h~ +./include/klic/gc_macro.h +./include/klic/gc_macro.h~ +./include/klic/gc_methtab.h +./include/klic/gc_methtab.h~ +./include/klic/gcobject.h +./include/klic/gd_macro.h +./include/klic/gd_macro.h~ +./include/klic/gd_methtab.h +./include/klic/gd_methtab.h~ +./include/klic/gdobject.h +./include/klic/ge_exref.h +./include/klic/generic.h +./include/klic/generic.h~ +./include/klic/gg_macro.h +./include/klic/gg_macro.h~ +./include/klic/gg_methtab.h +./include/klic/gg_methtab.h~ +./include/klic/gmodule.h +./include/klic/goalobj.h +./include/klic/gobj.h +./include/klic/gobj.h~ +./include/klic/gobjutil.h +./include/klic/gobjutil.h~ +./include/klic/index.h +./include/klic/interpe.h +./include/klic/klichdr.h +./include/klic/msgfmt.h +./include/klic/newatom.h +./include/klic/newatom.h~ +./include/klic/options.h +./include/klic/options.h~ +./include/klic/param.h +./include/klic/predinfo.h +./include/klic/primitives.h +./include/klic/rmon.h +./include/klic/schedule.h +./include/klic/schedule.h~ +./include/klic/shm.h +./include/klic/shm.h~ +./include/klic/shm_machine.h +./include/klic/sighndl.h +./include/klic/sighndl.h~ +./include/klic/struct.h +./include/klic/susp.h +./include/klic/timer.h +./include/klic/timer.h~ +./include/klic/timing.h +./include/klic/trace.h +./include/klic/traceio.h +./include/klic/unify.h +./include/klic/unify.h~ +./klic-version +./rmon +./rmon/Makefile +./rmon/README.j +./rmon/klic-rmonitor.tcl +./rmon/make-com +./root.mk.sh +./runtime +./runtime/Makefile.head +./runtime/Makefile.tail +./runtime/alloc.c +./runtime/alloc.c~ +./runtime/asyncio.c +./runtime/asyncio.c~ +./runtime/atom.c +./runtime/atom.h +./runtime/atomt.c +./runtime/atomt.ext +./runtime/atomt.kl1 +./runtime/bag.c +./runtime/bag.ext +./runtime/bag.kl1 +./runtime/bagk.c +./runtime/bagk.ext +./runtime/bagk.kl1 +./runtime/bagks.c +./runtime/bagks.ext +./runtime/bagks.kl1 +./runtime/bags.c +./runtime/bags.ext +./runtime/bags.kl1 +./runtime/bb.c +./runtime/bb.c~ +./runtime/bodyblt.c +./runtime/bodyblt.ext +./runtime/bodyblt.kl1 +./runtime/clearmes.perl +./runtime/cmphsh.c +./runtime/cmphsh.c~ +./runtime/cntlmsg.c +./runtime/cntlmsg.c~ +./runtime/compare.c +./runtime/compare.ext +./runtime/compare.kl1 +./runtime/config +./runtime/config/Makefile +./runtime/config/pvm +./runtime/config/pvm-tcp +./runtime/config/pvm-tcp/Makefile +./runtime/config/pvm-tcp/configure +./runtime/config/pvm-tcp/distpkt.c +./runtime/config/pvm-tcp/distpkt.h +./runtime/config/pvm/Makefile +./runtime/config/pvm/config.h.sh +./runtime/config/pvm/configure +./runtime/config/pvm/distio.c +./runtime/config/pvm/distio.h +./runtime/config/pvm/distpkt.c +./runtime/config/pvm/distpkt.h +./runtime/config/pvm/distproc.c +./runtime/config/pvm/distproc.h +./runtime/config/pvm/distrmon.c +./runtime/config/pvm/include.mk.sh +./runtime/config/pvm/rmon_server.c +./runtime/config/pvm/root.mk.sh +./runtime/config/pvm/runtime.mk.sh +./runtime/config/pvm/runtimedep.mk +./runtime/config/shm +./runtime/config/shm/INTEL +./runtime/config/shm/INTEL/lock.s +./runtime/config/shm/MIPS +./runtime/config/shm/MIPS/lock.s +./runtime/config/shm/Makefile +./runtime/config/shm/PARISC +./runtime/config/shm/PARISC/lock.s +./runtime/config/shm/SPARC +./runtime/config/shm/SPARC/lock.c +./runtime/config/shm/SPARC/lock.s-solaris2.x +./runtime/config/shm/SPARC/lock.s-sunos4.x +./runtime/config/shm/config.h.sh +./runtime/config/shm/configure +./runtime/config/shm/distio.c +./runtime/config/shm/distio.h +./runtime/config/shm/distpkt.c +./runtime/config/shm/distpkt.h +./runtime/config/shm/distproc.c +./runtime/config/shm/distproc.h +./runtime/config/shm/distrmon.c +./runtime/config/shm/include.mk.sh +./runtime/config/shm/rmon_server.c +./runtime/config/shm/root.mk.sh +./runtime/config/shm/runtime.mk.sh +./runtime/config/shm/runtimedep.mk +./runtime/datamsg.c +./runtime/debug.c +./runtime/export_table.c +./runtime/faisus.c +./runtime/farith.c +./runtime/farith.ext +./runtime/farith.kl1 +./runtime/funct.c +./runtime/funct.h +./runtime/functt.c +./runtime/functt.ext +./runtime/functt.kl1 +./runtime/gc.c +./runtime/gcmerge.c +./runtime/gcmerge.ext +./runtime/gcmerge.kl1 +./runtime/gcode.c +./runtime/ge_exref.c +./runtime/ge_readhook.c +./runtime/ge_replyhook.c +./runtime/gen.c +./runtime/gen.ext +./runtime/gen.kl1 +./runtime/generic.c +./runtime/gfloat.c +./runtime/gg_shbusy.c +./runtime/gg_shvar.c +./runtime/ggoal.c +./runtime/gio.c +./runtime/gmerge.c +./runtime/gmodule.c +./runtime/gmvv.c +./runtime/gpointer.c +./runtime/gstring.c +./runtime/gtermarray.c +./runtime/gunix.c +./runtime/gunix.ext +./runtime/gunix.kl1 +./runtime/iarith.c +./runtime/iarith.ext +./runtime/iarith.kl1 +./runtime/import_table.c +./runtime/init_dist.c +./runtime/intrpt.c +./runtime/io.c +./runtime/io.ext +./runtime/io.kl1 +./runtime/itimer.c +./runtime/itimer.ext +./runtime/itimer.kl1 +./runtime/klic.db +./runtime/klicdb.atoms +./runtime/klicdb.fncts +./runtime/klicdb.init +./runtime/klicdb.refs +./runtime/kmain.c +./runtime/ktimer.c +./runtime/libklic.db +./runtime/main.c +./runtime/makeChangelog.perl +./runtime/mmakedepend +./runtime/myrcsdiff +./runtime/newatom.c +./runtime/newatom.c~ +./runtime/options.c +./runtime/otbl.c +./runtime/parse.c +./runtime/parse.ext +./runtime/parse.kl1 +./runtime/pipedio.c +./runtime/predicates.c +./runtime/print.c +./runtime/profile.c +./runtime/prot.perl +./runtime/queue.c +./runtime/queue.ext +./runtime/queue.kl1 +./runtime/random.c +./runtime/read.c +./runtime/read.ext +./runtime/read.kl1 +./runtime/recsusp.c +./runtime/runtime.h +./runtime/runtime.h~ +./runtime/scan.c +./runtime/scan.ext +./runtime/scan.kl1 +./runtime/sched.c +./runtime/sendrecv.c +./runtime/setk.c +./runtime/setk.ext +./runtime/setk.kl1 +./runtime/setks.c +./runtime/setks.ext +./runtime/setks.kl1 +./runtime/setupcomm +./runtime/shm_gc.c +./runtime/shm_obj.c +./runtime/shm_rsv.c +./runtime/shm_throw.c +./runtime/signal.c +./runtime/signal.c~ +./runtime/splay.c +./runtime/splay.ext +./runtime/splay.kl1 +./runtime/stack.c +./runtime/stack.ext +./runtime/stack.kl1 +./runtime/step.c +./runtime/sysc.c +./runtime/sysc.ext +./runtime/sysc.kl1 +./runtime/termio.c +./runtime/termio.ext +./runtime/termio.kl1 +./runtime/timer.c +./runtime/timing.c +./runtime/trace.c +./runtime/unify.c +./runtime/unify2.c +./runtime/unparse.c +./runtime/unparse.ext +./runtime/unparse.kl1 +./runtime/uterms.c +./runtime/uterms.ext +./runtime/uterms.kl1 +./runtime/var.c +./runtime/var.ext +./runtime/var.kl1 +./runtime/version.c +./runtime/version.c.tmplt +./runtime/version.sed.tmplt +./runtime/wakeup.c +./runtime/xio.c +./sendreport.sh +./shmtest +./shmtest/Makefile +./shmtest/cmpdir +./shmtest/cmpdir/forward_goal.out +./shmtest/cmpdir/general_unify_1.out +./shmtest/cmpdir/general_unify_2.out +./shmtest/cmpdir/multiple_wait.out +./shmtest/cmpdir/nqueen12.out +./shmtest/cmpdir/nqueen13.out +./shmtest/cmpdir/nqueen14.out +./shmtest/cmpdir/read.out +./shmtest/cmpdir/slife.out +./shmtest/cmpdir/t0thr1.out +./shmtest/cmpdir/t0thr2.out +./shmtest/cmpdir/t0thr3.out +./shmtest/cmpdir/throw.out +./shmtest/cmpdir/unify.out +./shmtest/cmpdir/unify_exrefs.out +./shmtest/cmpdir/vector_built.out +./shmtest/cmpdir/vector_built_2.out +./shmtest/cmpdir/wec_exhaust_1.out +./shmtest/cmpdir/wec_exhaust_2.out +./shmtest/cmpdir/wec_exhaust_3.out +./shmtest/cmpdir/wec_indirect.out +./shmtest/dlife.kl1 +./shmtest/forward_goal.kl1 +./shmtest/general_unify_1.kl1 +./shmtest/general_unify_2.kl1 +./shmtest/lib.kl1 +./shmtest/mesh.kl1 +./shmtest/multiple_wait.kl1 +./shmtest/nq13.kl1 +./shmtest/nqueen.kl1 +./shmtest/read.kl1 +./shmtest/report.perl +./shmtest/rlib.kl1 +./shmtest/slife.kl1 +./shmtest/stat.perl +./shmtest/statistics.pl +./shmtest/t0thr1.kl1 +./shmtest/t0thr2.kl1 +./shmtest/t0thr3.kl1 +./shmtest/throw.kl1 +./shmtest/unify.kl1 +./shmtest/unify_exrefs.kl1 +./shmtest/vector_built.kl1 +./shmtest/vector_built_2.kl1 +./shmtest/wec_exhaust_1.kl1 +./shmtest/wec_exhaust_2.kl1 +./shmtest/wec_exhaust_3.kl1 +./shmtest/wec_indirect.kl1 +./test +./test/Makefile +./test/atomfunc.kl1 +./test/atomfunc.perl +./test/atomfunc.res.cmp +./test/client.kl1 +./test/cmac.kl1 +./test/cmac.res.cmp +./test/deriv.kl1 +./test/deriv.res.cmp +./test/fact.kl1 +./test/fact.res.cmp +./test/hanoi.kl1 +./test/hanoi.res.cmp +./test/iotest.kl1 +./test/iotest.res.cmp +./test/kkqueen.kl1 +./test/kkqueen.res.cmp +./test/life.kl1 +./test/life.res.cmp +./test/mastermind.kl1 +./test/mastermind.res.cmp +./test/merge.kl1 +./test/merge.res.cmp +./test/parsetest.kl1 +./test/parsetest.res.cmp +./test/pascal.kl1 +./test/pascal.res.cmp +./test/pp.kl1 +./test/pp.res.cmp +./test/primes.kl1 +./test/primes.res.cmp +./test/primesp.kl1 +./test/primesp.res.cmp +./test/prio.kl1 +./test/prio.res.cmp +./test/puzzle.kl1 +./test/puzzle.res.cmp +./test/qlay.kl1 +./test/qlay.res.cmp +./test/qsort.kl1 +./test/qsort.res.cmp +./test/server.kl1 +./test/turtles.kl1 +./test/turtles.res.cmp +./test/vecstr.kl1 +./test/vecstr.res.cmp +./test/wave.kl1 +./test/wave.res.cmp +./version.sed +./version.sed.tmplt diff -ruN klic-3.003-2001-12-22/include/klic/alloc.h klic-3.003-2001-12-25/include/klic/alloc.h --- klic-3.003-2001-12-22/include/klic/alloc.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/alloc.h Tue Dec 25 14:49:38 2001 @@ -8,7 +8,8 @@ #ifndef _KLIC_ALLOC_H_ #define _KLIC_ALLOC_H_ -extern q* klic_interrupt(q* allocp, struct goalrec* qp); +/* heapbottom, heaplimit, real_heaplimit, interrupt_off */ +#include /** Reverse allocation from "heaptop" @@ -30,5 +31,16 @@ #define heapalloc(s, words, maketype) \ revalloc((s), (words), maketype) + + +/* runtime/intrpt.c */ +extern q* klic_interrupt(q* allocp, struct goalrec* qp); + +/* runtime/alloc.c */ +extern char* malloc_check(unsigned long size); +extern char* realloc_check(char* original, unsigned long newsize); +extern void initalloc(void); +extern void register_gc_hook(q*(* routine)()); +extern void register_after_gc_hook(q*(* routine)()); #endif /* _KLIC_ALLOC_H_ */ diff -ruN klic-3.003-2001-12-22/include/klic/asyncio.h klic-3.003-2001-12-25/include/klic/asyncio.h --- klic-3.003-2001-12-22/include/klic/asyncio.h Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/include/klic/asyncio.h Tue Dec 25 15:39:52 2001 @@ -15,4 +15,12 @@ KLIC_SIGIO_INOUT }; +/* runtime/asyncio.c */ +extern void add_sigio_handler(long fd, int (*func)(), enum sigiotype sigio_type); +extern void init_sigio_handler(void); +extern void init_asynchronous_io(void); +extern void close_asynchronous_io_stream(long fd); +extern void register_asynchronous_io_stream(long fd, q stream); +extern int poll_read_available(int fd); + #endif /* _KLIC_ASYNCIO_H_ */ diff -ruN klic-3.003-2001-12-22/include/klic/atomstuffs.h klic-3.003-2001-12-25/include/klic/atomstuffs.h --- klic-3.003-2001-12-22/include/klic/atomstuffs.h Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/include/klic/atomstuffs.h Tue Dec 25 12:15:12 2001 @@ -8,8 +8,11 @@ #ifndef _KLIC_ATOMSTUFFS_H_ #define _KLIC_ATOMSTUFFS_H_ -/* atomnumber staffs */ -extern unsigned char **atomname; +/* atomnumber stuffs */ + +/* atom.c */ +extern unsigned char** atomname; + #define ATOMNUMBERBASE 2 #define functoratomname(f) (atomname[functoratom(f) - ATOMNUMBERBASE]) #define namestringof(a) (atomname[symval(a) - ATOMNUMBERBASE]) diff -ruN klic-3.003-2001-12-22/include/klic/basic.h klic-3.003-2001-12-25/include/klic/basic.h --- klic-3.003-2001-12-22/include/klic/basic.h Sat Dec 22 18:10:56 2001 +++ klic-3.003-2001-12-25/include/klic/basic.h Tue Dec 25 11:57:18 2001 @@ -39,10 +39,13 @@ typedef void voidfn (); +/* runtime/debug.c */ extern NoReturn voidfn fatal; extern NoReturn voidfn fatalf; extern NoReturn voidfn fatalp; extern void debug_printf(); +extern void debug_fprintf(); +extern void klic_fprintf(); /* PARALLEL flag is DIST || SHM. @@ -51,7 +54,8 @@ #define PARALLEL #endif -/* + +/* runtime/xio.c For handling I/O interrupts during I/O, we use our own version of getc &c */ @@ -63,9 +67,6 @@ extern int klic_fwrite(const void* pt, size_t size, size_t items, FILE* f); extern int klic_fflush(FILE* f); -extern void debug_fprintf(); - -extern void klic_fprintf(); #define klic_local_fprintf fprintf diff -ruN klic-3.003-2001-12-22/include/klic/control.h klic-3.003-2001-12-25/include/klic/control.h --- klic-3.003-2001-12-22/include/klic/control.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/control.h Tue Dec 25 12:09:28 2001 @@ -8,12 +8,18 @@ #ifndef _KLIC_CONTROL_H_ #define _KLIC_CONTROL_H_ +#include /* klic_interrupt */ + /* Reasons of interruption */ #define EXTEVENT (makeint(0)) #define FAILURE (makeint(1)) +/* runtime/faisus.c */ extern q* interrupt_goal(q* allocp, struct predicate* pred, q* reasonp); extern int check_stack_for_alternatively(q* allocp, q* reasonp); + + +/* runtime/sched.c */ extern struct goalrec* enqueue_goal( struct goalrec* qp, long prio, diff -ruN klic-3.003-2001-12-22/include/klic/functorstuffs.h klic-3.003-2001-12-25/include/klic/functorstuffs.h --- klic-3.003-2001-12-22/include/klic/functorstuffs.h Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/include/klic/functorstuffs.h Tue Dec 25 12:17:57 2001 @@ -8,9 +8,10 @@ #ifndef _KLIC_FUNCTORSTUFFS_H_ #define _KLIC_FUNCTORSTUFFS_H_ -/* functor staffs */ -extern unsigned long *arities; -extern unsigned long *functors; +/* funct.c */ +extern unsigned long* arities; +extern unsigned long* functors; + #define FUNCTORNUMBERBASE 0 #define functoratom(f) (functors[symval(f) - FUNCTORNUMBERBASE]) #define arityof(f) (arities[symval(f) - FUNCTORNUMBERBASE]) diff -ruN klic-3.003-2001-12-22/include/klic/g_basic.h klic-3.003-2001-12-25/include/klic/g_basic.h --- klic-3.003-2001-12-22/include/klic/g_basic.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/g_basic.h Tue Dec 25 12:23:31 2001 @@ -119,10 +119,11 @@ }while(0) -#define G_STD_DECL struct global_variables *glbl = My_glbl +#define G_STD_DECL struct global_variables* glbl = My_glbl #define G_SIZE_IN_Q(type) ((sizeof(type)+sizeof(q)-1) / sizeof(q)) +/* runtime/gc.c */ extern q** make_larger_stack(q** sp); @@ -170,6 +171,8 @@ external functions */ -extern NoReturn voidfn G_error; +/* runtime/generic.c */ +extern NoReturn void +G_error(char* errmsg, char* where, char* object_kind, char* class); #endif /* _KLIC_G_BASIC_H_ */ diff -ruN klic-3.003-2001-12-22/include/klic/g_extern.h klic-3.003-2001-12-25/include/klic/g_extern.h --- klic-3.003-2001-12-22/include/klic/g_extern.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/g_extern.h Tue Dec 25 12:28:22 2001 @@ -8,14 +8,18 @@ #ifndef _KLIC_G_EXTERN_H_ #define _KLIC_G_EXTERN_H_ +/* runtime/gc.c */ extern q general_gc(q* term, q* allocp, q** sp); +/* runtime/print.c */ extern void general_print( q* a, FILE* stream, unsigned long depth, unsigned long length ); extern struct data_object_method_table argblock_object_method_table; +/* runtime/gen.c */ extern struct predicate predicate_generic_xnew_3; + extern struct predicate predicate_generic_xroot_4; extern struct predicate predicate_generic_xmethod_4; diff -ruN klic-3.003-2001-12-22/include/klic/g_vector.h klic-3.003-2001-12-25/include/klic/g_vector.h --- klic-3.003-2001-12-22/include/klic/g_vector.h Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/include/klic/g_vector.h Tue Dec 25 12:33:53 2001 @@ -33,6 +33,7 @@ (q *) (body) /* body */ \ } -extern q create_vector(); +/* runtime/gmvv.c */ +extern q create_vector(q* body, long size, q* g_allocp); #endif /* _KLIC_G_VECTOR_H_ */ diff -ruN klic-3.003-2001-12-22/include/klic/gb.h klic-3.003-2001-12-25/include/klic/gb.h --- klic-3.003-2001-12-22/include/klic/gb.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/gb.h Tue Dec 25 12:36:50 2001 @@ -8,6 +8,7 @@ #ifndef _KLIC_GB_H_ #define _KLIC_GB_H_ +/* runtime/cmphsh.c */ extern q builtin_compare_terms(q x, q y); extern q builtin_hash_term(q x, long l); @@ -227,6 +228,7 @@ /* Guard General Unification */ +/* runtime/unify2.c */ q eq_terms_body(q x, q y); #define if_not_equal(x, y, faillab) \ diff -ruN klic-3.003-2001-12-22/include/klic/gc_macro.h klic-3.003-2001-12-25/include/klic/gc_macro.h --- klic-3.003-2001-12-22/include/klic/gc_macro.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/gc_macro.h Tue Dec 25 14:54:43 2001 @@ -10,13 +10,15 @@ extern q GC_wakeup_g_new(); -extern q* G_MAKE_THE_NEW_GOAL( - q* var, struct goalrec** goalp1, q(*myself)(), - unsigned long argc, q argv[], q* g_allocp ); - +/* runtime/unify.c */ extern q* do_shallow_unify(q* allocp, q x, q y); extern q* do_shallow_unify_value(q* allocp, q x, q y); + +/* runtime/generic.c */ extern q* G_SUSPEND(q x, struct goalrec* goal, q* g_allocp); +extern q* G_MAKE_THE_NEW_GOAL( + q* var, struct goalrec** goalp1, q(*myself)(), + unsigned long argc, q argv[], q* g_allocp ); /* datas for general utility with consumer object @@ -44,22 +46,13 @@ **************/ extern q rest_of_stream; -/* - this function has replaced by G_suspend - make new hook for object for gmethod.c -q make_new_hook_for_gobj(); -*/ - -/* - this function has not already used -struct goalrec *call_generic_new(); -*/ extern q method_result; #define GC_rappend(pref) G_rappend0(GC_CLASS_NAME(),pref) #define GC_body(fa) G_body0(GC_CLASS_NAME(),fa) +/* runtime/generic.c */ extern q GC_MAKE_HOOK_VAR(struct consumer_object* obj); #ifdef __STDC__ diff -ruN klic-3.003-2001-12-22/include/klic/gc_methtab.h klic-3.003-2001-12-25/include/klic/gc_methtab.h --- klic-3.003-2001-12-22/include/klic/gc_methtab.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/gc_methtab.h Tue Dec 25 12:47:20 2001 @@ -11,6 +11,8 @@ extern q* GC_STD_UNIFY(); extern long GC_STD_PRINT(); extern q* GC_STD_GC(); + +/* runtime/generic.c */ extern long GD_STD_REGIST(struct data_object* GD_SELF, q* g_allocp); extern long GD_STD_DEALLOCATE(struct data_object* GD_SELF); extern q* GD_STD_CLOSE(struct data_object* GD_SELF, q* g_allocp); diff -ruN klic-3.003-2001-12-22/include/klic/gd_macro.h klic-3.003-2001-12-25/include/klic/gd_macro.h --- klic-3.003-2001-12-22/include/klic/gd_macro.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/gd_macro.h Tue Dec 25 12:52:40 2001 @@ -8,8 +8,16 @@ #ifndef _KLIC_GD_MACRO_H_ #define _KLIC_GD_MACRO_H_ +/* runtime/unify2.c */ extern q eq_terms_body(q x, q y); +/* runtime/unify.c */ +extern q* do_shallow_unify(q* allocp, q x, q y); +extern q* do_shallow_unify_value(q* allocp, q x, q y); + + +/* runtime/generic.c */ + extern q* GD_MAKE_GENERIC_GOAL( struct goalrec** goalp1, q var, unsigned long method_functor, q argv[], q* g_allocp ); @@ -18,9 +26,8 @@ q* var, struct goalrec** goalp1, q(*myself)(), unsigned long argc, q argv[], q* g_allocp ); -extern q* do_shallow_unify(q* allocp, q x, q y); -extern q* do_shallow_unify_value(q* allocp, q x, q y); extern q* G_SUSPEND(q x, struct goalrec* goal, q* g_allocp); + #define GD_rappend(pref) G_rappend0(GD_CLASS_NAME(),pref) #define GD_guard(fa) G_guard0(GD_CLASS_NAME(),fa) diff -ruN klic-3.003-2001-12-22/include/klic/gd_methtab.h klic-3.003-2001-12-25/include/klic/gd_methtab.h --- klic-3.003-2001-12-22/include/klic/gd_methtab.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/gd_methtab.h Tue Dec 25 12:54:06 2001 @@ -8,6 +8,9 @@ #ifndef _KLIC_GD_METHTAB_H_ #define _KLIC_GD_METHTAB_H_ + +/* runtime/generic.c */ + extern q GD_STD_GUNIFY( struct data_object* GD_SELF, struct data_object* GD_OTHER ); @@ -34,6 +37,7 @@ extern q GD_STD_HASH(struct data_object* GD_SELF, long level); extern q GD_STD_ENCODE(struct data_object* self, void* buffer); extern q GD_STD_SHMCOPY(struct data_object* self); + struct data_object_method_table GD_method_table = { diff -ruN klic-3.003-2001-12-22/include/klic/generic.h klic-3.003-2001-12-25/include/klic/generic.h --- klic-3.003-2001-12-22/include/klic/generic.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/generic.h Tue Dec 25 12:55:01 2001 @@ -10,6 +10,7 @@ #include +/* runtime/generic.c */ extern q* gd_generic( q* g_allocp, q g_object, long g_method_functor, q* g_argv ); diff -ruN klic-3.003-2001-12-22/include/klic/gg_macro.h klic-3.003-2001-12-25/include/klic/gg_macro.h --- klic-3.003-2001-12-22/include/klic/gg_macro.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/gg_macro.h Tue Dec 25 14:55:55 2001 @@ -10,19 +10,24 @@ extern q GC_wakeup_g_new(); +/* runtime/unify.c */ +extern q* do_shallow_unify(q* allocp, q x, q y); +extern q* do_shallow_unify_value(q* allocp, q x, q y); + + +/* runtime/generic.c */ + extern q* G_MAKE_THE_NEW_GOAL( q* var, struct goalrec** goalp1, q(*myself)(), unsigned long argc, q argv[], q* g_allocp ); -extern q* do_shallow_unify(q* allocp, q x, q y); -extern q* do_shallow_unify_value(q* allocp, q x, q y); extern q* G_SUSPEND(q x, struct goalrec* goal, q* g_allocp); +extern q GG_MAKE_HOOK_VAR(struct generator_object* obj); + #define GG_rappend(pref) G_rappend0(GG_CLASS_NAME(),pref) #define GG_body(fa) G_body0(GG_CLASS_NAME(),fa) -extern q GG_MAKE_HOOK_VAR(struct generator_object* obj); - #define GG_OBJ_SIZE G_SIZE_IN_Q(GG_OBJ_TYPE) #ifdef __STDC__ @@ -205,18 +210,6 @@ /* temporary */ #define GG_SUSPEND_GOAL(var,goal) \ do{ g_allocp = GC_suspend_goal((var), (goal), g_allocp); }while(0) - -/* temporary -#define GGSET_UNIFY_GOAL(goal,x,y) \ -{ g_allocp = GC_make_unify_goal(goal,x,y,g_allocp); } - -#define GG_GSUCCESS GENERIC_SUCCEEDED -#define GG_GFAILURE GENERIC_FAILED - -#define GG_GRETURN(x) return((q)(x)) - -#define GG_GFAIL return((q)GG_GFAILURE) -#define GG_GSUCCEED return((q)GG_GSUCCESS) /**********************************************************************/ diff -ruN klic-3.003-2001-12-22/include/klic/gg_methtab.h klic-3.003-2001-12-25/include/klic/gg_methtab.h --- klic-3.003-2001-12-22/include/klic/gg_methtab.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/gg_methtab.h Tue Dec 25 12:57:53 2001 @@ -12,6 +12,8 @@ extern q GG_STD_SUSPEND(); extern long GG_STD_PRINT(); extern q* GG_STD_GC(); + +/* runtime/generic.c */ extern long GD_STD_REGIST(struct data_object* GD_SELF, q* g_allocp); extern long GD_STD_DEALLOCATE(struct data_object* GD_SELF); extern q* GD_STD_CLOSE(struct data_object* GD_SELF, q* g_allocp); diff -ruN klic-3.003-2001-12-22/include/klic/gobj.h klic-3.003-2001-12-25/include/klic/gobj.h --- klic-3.003-2001-12-22/include/klic/gobj.h Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/include/klic/gobj.h Tue Dec 25 14:57:19 2001 @@ -59,12 +59,6 @@ #define general_active_unify(obj, anothor, allocp) \ ((allocp) = do_shallow_unify((allocp), (obj), (anothor))) -/* extern q general_gc(); */ - -/* -extern struct goalrec *general_active_unify_method(); -*/ - /* datas for general utility with consumer object */ @@ -91,22 +85,8 @@ **************/ extern q rest_of_stream; -/* - this function has replaced by G_suspend - make new hook for object for gmethod.c -q make_new_hook_for_gobj(); -*/ - -/* - this function has not already used -struct goalrec *call_generic_new(); -*/ extern q method_result; -/* - this variable for new method has not already used -struct generic *new_term; -*/ #endif /* _KLIC_GOBJ_H_ */ diff -ruN klic-3.003-2001-12-22/include/klic/gobjutil.h klic-3.003-2001-12-25/include/klic/gobjutil.h --- klic-3.003-2001-12-22/include/klic/gobjutil.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/gobjutil.h Tue Dec 25 14:57:42 2001 @@ -19,10 +19,6 @@ extern q general_gc(q* term, q* allocp, q** sp); /* -extern struct goalrec *general_active_unify_method(); -*/ - -/* datas for general utility with mutable object */ @@ -48,22 +44,8 @@ **************/ extern q rest_of_stream; -/* - this function has replaced by G_suspend - make new hook for object for gmethod.c -q make_new_hook_for_gobj(); -*/ - -/* - this function has not already used -struct goalrec *call_generic_new(); -*/ extern q method_result; -/* - this variable for new method has not already used -struct generic *new_term; -*/ #endif /* _KLIC_GOBJUTIL_H_ */ diff -ruN klic-3.003-2001-12-22/include/klic/newatom.h klic-3.003-2001-12-25/include/klic/newatom.h --- klic-3.003-2001-12-22/include/klic/newatom.h Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/include/klic/newatom.h Tue Dec 25 17:22:55 2001 @@ -8,71 +8,11 @@ #ifndef _KLIC_NEWATOM_H_ #define _KLIC_NEWATOM_H_ -#include - -#define Hashsize 1024 -#define Namesize 1024 -#define Atomsize 1024 -#define Functorsize 1024 - -#define YET (-1) -#define DONE 0 - -#define AtomError (-1) - -static int init_atom = YET; -static int init_functor = YET; - -extern unsigned long numberOfAtoms; -extern unsigned long numberOfFunctors; - -extern unsigned long *functors; -extern unsigned long *arities; -extern unsigned char **atomname; - -/* -unsigned long *functors; -long *arities; -char **atomname; -*/ - -struct atomhashtable{ - long atomid; - unsigned long nametablesize; - unsigned long hashtablesize; - long *table; -} atomhtable; -struct atomhashtable* atomhp = &atomhtable; - -struct functorhashtable{ - long functorid; - unsigned long functortablesize; - unsigned long hashtablesize; - long *table; -} functhtable; -struct functorhashtable *functhp = &functhtable; - -static long *nextatom; -static long *nextfunctor; - -#ifdef SHM -typedef struct atomnamebuff { - unsigned char *namea0; - unsigned char *namep0; -} ShmNameBuff; -ShmNameBuff* shm_namep; -#define namearea (shm_namep->namea0) -#define nameareap (shm_namep->namep0) -#else -static unsigned char *namearea; -static unsigned char *nameareap; -#endif - extern long initial_atoms; extern long initial_functors; -#define numberOfAtoms initial_atoms - -#define numberOfFunctors initial_functors +extern unsigned long enter_atom_body(char* name, unsigned long namelen); +extern unsigned long enter_atom_string(q name0); +extern unsigned long enter_functor(unsigned long a_no, unsigned long arity); #endif /* _KLIC_NEWATOM_H_ */ diff -ruN klic-3.003-2001-12-22/include/klic/options.h klic-3.003-2001-12-25/include/klic/options.h --- klic-3.003-2001-12-22/include/klic/options.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/options.h Tue Dec 25 13:00:35 2001 @@ -26,6 +26,7 @@ extern const struct opttable opttable[]; +/* runtime/options.c */ extern char* parse_opts(const struct opttable* opttbl, int* acp, char*** avp); /* not copied when spawned */ diff -ruN klic-3.003-2001-12-22/include/klic/schedule.h klic-3.003-2001-12-25/include/klic/schedule.h --- klic-3.003-2001-12-22/include/klic/schedule.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/schedule.h Tue Dec 25 13:07:35 2001 @@ -8,17 +8,22 @@ #ifndef _KLIC_SCHEDULE_H_ #define _KLIC_SCHEDULE_H_ -extern struct prioqrec* more_prioqrec(void); -extern module topsucceed( - struct global_variables* glbl, struct goalrec* qp, - q* allocp, const struct predicate* toppred ); +/* runtime/sched.c */ + +extern struct prioqrec* more_prioqrec(void); extern struct goalrec* enqueue_goal( struct goalrec* qp, long prio, struct goalrec* gp, struct global_variables* glbl ); extern struct goalrec* get_top_priority_queue(void); -extern void put_top_priority_queue(struct goalrec* qp, long prio); +extern void put_priority_queue(struct goalrec* qp, long prio); + + +/* runtime/kmain.c */ +extern module topsucceed( + struct global_variables* glbl, struct goalrec* qp, + q* allocp, const struct predicate* toppred ); #endif /* _KLIC_SCHEDULE_H_ */ diff -ruN klic-3.003-2001-12-22/include/klic/shm.h klic-3.003-2001-12-25/include/klic/shm.h --- klic-3.003-2001-12-22/include/klic/shm.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/shm.h Tue Dec 25 17:05:00 2001 @@ -229,6 +229,10 @@ extern struct ex_goalrec** volatile top_shm_qp; +/* runtime/shm_rsv.c */ +extern char* shm_start_addr; +extern int ATOM_TABLE_SIZE; + /* memorized the last generated variable on shm */ extern q last_shm_var; @@ -244,13 +248,23 @@ extern TADDRtbl ADDRtbl; extern TADDRtbl* ADDRtbl_free; + /* Declarations of functions */ -/* convert real PE number from Logical PE number */ -extern int phisc_pe(int NO); + +/* runtime/shm_rsv.c */ /* common routines */ extern struct global_variables* shm_init(struct global_variables* glbl); +/* allocate shared memory routines */ +extern q* shm_galloc(int siz); + + +/* runtime/shm_throw.c */ + +/* convert real PE number from Logical PE number */ +extern int phisc_pe(int NO); + /* copy into shared memory */ extern struct ex_goalrec* shm_goal_copy(struct goalrec* qp, long prio); @@ -260,6 +274,9 @@ /* stack a goal */ extern int shm_goal_stack(struct ex_goalrec* goal, int num); + +/* runtime/shm_obj.c */ + extern Shvar* create_genhook(q* la, q* ga); extern Shvar* shm_add_consumer( @@ -268,17 +285,18 @@ extern q* shm_ck_request(q* allocp, Sinfo* chain); extern q* shm_resume_goals(q* allocp, Sinfo* hook); +extern TADDRtbl* create_local_tbl(q* lcl, q* gbl); -extern struct goalrec* get_invoked_goals(struct goalrec* qp); -/* allocate shared memory routines */ -extern q* shm_galloc(int siz); +/* runtime/newatom.c */ +extern void init_shm_atom(void); + +/* runtime/sched.c */ +extern struct goalrec* get_invoked_goals(struct goalrec* qp); -/* GC routines */ +/* runtime/shm_gc.c GC routines */ extern int ck_shm_gc(void); extern struct goalrec* shm_gc(struct goalrec* qp); - -extern TADDRtbl* create_local_tbl(q* lcl, q* gbl); /* for GC */ diff -ruN klic-3.003-2001-12-22/include/klic/sighndl.h klic-3.003-2001-12-25/include/klic/sighndl.h --- klic-3.003-2001-12-22/include/klic/sighndl.h Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/include/klic/sighndl.h Tue Dec 25 18:36:06 2001 @@ -13,6 +13,7 @@ #ifdef USESIG #include +#include #ifndef NSIG #define NSIG 32 @@ -33,6 +34,13 @@ #else extern volatile struct klic_sgnl_flags* klic_sgnl_flags; #endif + +/* runtime/signal.c */ +extern q* klic_signal_handler(q* allocp); +extern void add_slit_check_handler(int sig, int (*func)()); +extern int add_signal_handler(int sig, int (*func)()); +extern q* register_streamed_signal(q* allocp, int sig, q stream); +extern void init_klic_signal_handling(void); #endif /* USESIG */ diff -ruN klic-3.003-2001-12-22/include/klic/timer.h klic-3.003-2001-12-25/include/klic/timer.h --- klic-3.003-2001-12-22/include/klic/timer.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/timer.h Tue Dec 25 14:09:18 2001 @@ -49,6 +49,7 @@ } \ }while(0) +/* runtime/timer.c */ extern void klic_gettod(struct timeval* now); extern void call_at_specified_time(long sec, long usec, void(* func)()); extern void call_after_specified_interval(long sec, long usec, void(* func)()); diff -ruN klic-3.003-2001-12-22/include/klic/unify.h klic-3.003-2001-12-25/include/klic/unify.h --- klic-3.003-2001-12-22/include/klic/unify.h Sat Dec 22 18:09:13 2001 +++ klic-3.003-2001-12-25/include/klic/unify.h Tue Dec 25 14:11:01 2001 @@ -8,6 +8,7 @@ #ifndef _KLIC_UNIFY_H_ #define _KLIC_UNIFY_H_ +/* runtime/unify.c */ extern q* do_unify(q* allocp, q x, q y); extern q* do_unify2(q* allocp, q x, q y, q z, q w); extern q* do_unify3(q* allocp, q x, q y, q z, q w, q s, q t); diff -ruN klic-3.003-2001-12-22/runtime/alloc.c klic-3.003-2001-12-25/runtime/alloc.c --- klic-3.003-2001-12-22/runtime/alloc.c Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/runtime/alloc.c Tue Dec 25 18:32:26 2001 @@ -4,16 +4,17 @@ % (C)1996, 1997, 1998, 1999 Japan Information Processing Development Center % (Read COPYRIGHT-JIPDEC for detailed information.) ----------------------------------------------------------- */ + +#include /* malloc, realloc */ #include #include #include +#include /* extern */ -extern char *malloc(), *realloc(); - -char *malloc_check(size) +extern char* malloc_check(size) unsigned long size; { - char *res = malloc(size); + char* res = malloc(size); if (res == 0) { fatalf("No more memory available from Unix\nMalloc failed for %d bytes", size); @@ -21,11 +22,11 @@ return res; } -char *realloc_check(original, newsize) - char *original; +extern char* realloc_check(original, newsize) + char* original; unsigned long newsize; { - char *res = realloc(original, newsize); + char* res = realloc(original, newsize); if (res == 0) { fatalf("No more memory available from Unix\nRealloc failed for %d bytes", newsize); @@ -33,7 +34,7 @@ return res; } -void reinit_alloc() +static void reinit_alloc() { declare_globals; heaplimit = real_heaplimit = new_space_top+heapsize; @@ -50,7 +51,7 @@ (q*(**)())malloc_check(gc_hooktab_size*sizeof(q*(**)())); } -void initalloc() +extern void initalloc() { declare_globals; unsigned long bytesize; @@ -62,12 +63,12 @@ heapsize, incrementsize); } old_space_size = new_space_size = bytesize; - new_space_top = (q *)malloc_check(bytesize); - old_space_top = (q *)malloc_check(bytesize); + new_space_top = (q*) malloc_check(bytesize); + old_space_top = (q*) malloc_check(bytesize); reinit_alloc(); } -void register_gc_hook(routine) +extern void register_gc_hook(routine) q*(*routine)(); { declare_globals; diff -ruN klic-3.003-2001-12-22/runtime/asyncio.c klic-3.003-2001-12-25/runtime/asyncio.c --- klic-3.003-2001-12-22/runtime/asyncio.c Sun Dec 2 12:47:59 2001 +++ klic-3.003-2001-12-25/runtime/asyncio.c Tue Dec 25 15:40:44 2001 @@ -7,58 +7,48 @@ #include #include #include -#include +#include /* externs */ +#include /* register_gc_hook */ +#include /* add_signal_handler */ + #ifdef USESIG +#include +#include +#include #include #include #include #include + #ifdef USESELECT #include #endif -#include -#include -#include -/* - void sigio_handler(allocp, sig) - void add_sigio_handler(fd, func, sigio_type, rfd, wfd) - void init_sigio_handler() - - static int send_ready_message(allocp, fd, sigio_type) - static q* gc_asyncio_streams(allocp, ntop, otop, nsize, osize) - void init_asynchronous_io() - void close_asynchronous_io_stream(fd) - void register_asynchronous_io_stream(fd, stream) - int poll_read_available(fd) -*/ #ifndef SIGIO #define SIGIO SIGPOLL #endif #endif /* USESIG */ -extern void add_signal_handler(); -extern void register_gc_hook(); - -static q *asyncio_streams = 0; +static q* asyncio_streams = 0; static long fd_setsize; static fd_set sigio_infds; static fd_set sigio_outfds; -static enum sigiotype *sigio_types; -static int(**sigio_handlers)(); +static enum sigiotype* sigio_types; +static int (**sigio_handlers)(); static struct timeval zerotime = { 0, 0 }; /* This function may be called from itimer interrupt handler */ #define Call_sigio_handler(again, allocp, fd, type) \ - ((again = (sigio_handlers[fd])(allocp, fd, type, &fdsr, &fdsw)),\ + ((again = sigio_handlers[fd](allocp, fd, type, &fdsr, &fdsw)),\ (allocp = heapp)) int debugger_flag; -int + +static int sigio_handler(allocp, sig) -q* allocp; -int sig; + q* allocp; + int sig; { declare_globals; fd_set fdsr, fdsw; @@ -137,11 +127,11 @@ return 0; } -void +extern void add_sigio_handler(fd, func, sigio_type) -long fd; -int (*func)(); -enum sigiotype sigio_type; + long fd; + int (*func)(); + enum sigiotype sigio_type; { sigio_handlers[fd] = func; sigio_types[fd] = sigio_type; @@ -165,7 +155,7 @@ } } -void +extern void init_sigio_handler() { static sigio_initiated = 0; @@ -241,7 +231,8 @@ return allocp; } -void init_asynchronous_io() +extern void +init_asynchronous_io() { #ifdef USESIG static asyncio_initiated = 0; @@ -258,7 +249,9 @@ } #endif } -void close_asynchronous_io_stream(fd) + +extern void +close_asynchronous_io_stream(fd) long fd; { #ifdef USESIG @@ -266,7 +259,9 @@ asyncio_streams[fd] = 0; #endif } -void register_asynchronous_io_stream(fd, stream) + +extern void +register_asynchronous_io_stream(fd, stream) long fd; q stream; { @@ -277,7 +272,8 @@ } #endif /* ASYNCIO*/ -int poll_read_available(fd) +extern int +poll_read_available(fd) int fd; { fd_set fds; diff -ruN klic-3.003-2001-12-22/runtime/bb.c klic-3.003-2001-12-25/runtime/bb.c --- klic-3.003-2001-12-22/runtime/bb.c Sun Dec 2 12:47:59 2001 +++ klic-3.003-2001-12-25/runtime/bb.c Tue Dec 25 17:25:12 2001 @@ -174,65 +174,65 @@ fatalf("Argument type error in builtin predicate %s", name); } -q bblt_add_3(x, y) +extern q bblt_add_3(x, y) builtin_body_3(bblt_add_no_check, predicate_integer__arithmetics_xadd_3, "add/3") -q bblt_sub_3(x, y) +extern q bblt_sub_3(x, y) builtin_body_3(bblt_sub_no_check, predicate_integer__arithmetics_xsubtract_3, "subtract/3") -q bblt_mult_3(x, y) +extern q bblt_mult_3(x, y) builtin_body_3(bblt_mult_no_check, predicate_integer__arithmetics_xmultiply_3, "multiply/3") -q bblt_div_3(x, y) +extern q bblt_div_3(x, y) builtin_body_3(bblt_div_no_check, predicate_integer__arithmetics_xdivide_3, "divide/3") -q bblt_mod_3(x, y) +extern q bblt_mod_3(x, y) builtin_body_3(bblt_mod_no_check, predicate_integer__arithmetics_xmodulo_3, "modulo/3") -q bblt_and_3(x, y) +extern q bblt_and_3(x, y) builtin_body_3(bblt_and_no_check, predicate_integer__arithmetics_xand_3, "and/3") -q bblt_or_3(x, y) +extern q bblt_or_3(x, y) builtin_body_3(bblt_or_no_check, predicate_integer__arithmetics_xor_3, "or/3") -q bblt_exclusive_or_3(x, y) +extern q bblt_exclusive_or_3(x, y) builtin_body_3(bblt_exclusive_or_no_check, predicate_integer__arithmetics_xexclusive__or_3, "exlclusive_or/3") -q bblt_rshift_3(x, y) +extern q bblt_rshift_3(x, y) builtin_body_3(bblt_rshift_no_check, predicate_integer__arithmetics_xshift__right_3, "shift_right/3") -q bblt_lshift_3(x, y) +extern q bblt_lshift_3(x, y) builtin_body_3(bblt_lshift_no_check, predicate_integer__arithmetics_xshift__left_3, "shift_left/3") -q bblt_plus_2(x) +extern q bblt_plus_2(x) builtin_body_2(bblt_plus_no_check, predicate_integer__arithmetics_xplus_2, "plus/2") -q bblt_minus_2(x) +extern q bblt_minus_2(x) builtin_body_2(bblt_minus_no_check, predicate_integer__arithmetics_xminus_2, "minus/2") -q bblt_complement_2(x) +extern q bblt_complement_2(x) builtin_body_2(bblt_complement_no_check, predicate_integer__arithmetics_xcomplement_2, "complement/2") -q bblt_fix_2(x) +extern q bblt_fix_2(x) q x; { extern struct predicate @@ -266,4 +266,3 @@ return suspend_builtin_2(x, &predicate_floating__arithmetics_xfloating__point__to__integer_2); } - diff -ruN klic-3.003-2001-12-22/runtime/cmphsh.c klic-3.003-2001-12-25/runtime/cmphsh.c --- klic-3.003-2001-12-22/runtime/cmphsh.c Sun Dec 2 12:47:59 2001 +++ klic-3.003-2001-12-25/runtime/cmphsh.c Tue Dec 25 17:45:52 2001 @@ -10,15 +10,15 @@ #include #include #include +#include "runtime.h" /* hash_kl1_term */ /* Bases (prime numbers added) for hashing various types */ #define SYM_HASH_BASE 67148443L #define CONS_HASH_BASE 73118131L #define FUNCT_HASH_BASE 43147297L -q hash_kl1_term(); - -q builtin_hash_term(x, l) +extern q +builtin_hash_term(x, l) q x; long l; { @@ -28,7 +28,8 @@ return makeint(intval(tmp) & ((1L << (sizeof(long)*8-ATAGBITS-1))-1)); } -q hash_kl1_term(x, l) +extern q +hash_kl1_term(x, l) q x; long l; { @@ -73,7 +74,8 @@ return x; } -q builtin_compare_terms(x, y) +extern q +builtin_compare_terms(x, y) q x, y; { again: diff -ruN klic-3.003-2001-12-22/runtime/cntlmsg.c klic-3.003-2001-12-25/runtime/cntlmsg.c --- klic-3.003-2001-12-22/runtime/cntlmsg.c Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/runtime/cntlmsg.c Tue Dec 25 17:57:28 2001 @@ -121,7 +121,8 @@ return(wtc); } -void + +extern void send_answer_value(data, node, index, wec) long node; q data; @@ -299,7 +300,7 @@ return(wtc); } -long +extern long send_read(node, index, var, transc) long node; /* Node No. of Imported Data */ long index; /* ExpTbl index of Imported Data */ @@ -353,7 +354,7 @@ PUT3_BUFFER(buffer, decode_release, index, wec); } -void +extern void send_release(node, index, wec) long node, index, wec; { @@ -417,7 +418,7 @@ return(wtc); } -void +extern void send_unify(node, index, wec, data) long node,index, wec; q data; @@ -506,7 +507,7 @@ return(wtc); } -struct goalrec * +extern struct goalrec* send_throw_goal(node, goal, oldqp) long node; struct goalrec *goal; diff -ruN klic-3.003-2001-12-22/runtime/newatom.c klic-3.003-2001-12-25/runtime/newatom.c --- klic-3.003-2001-12-22/runtime/newatom.c Sun Dec 2 12:48:00 2001 +++ klic-3.003-2001-12-25/runtime/newatom.c Tue Dec 25 18:34:04 2001 @@ -5,15 +5,13 @@ % (Read COPYRIGHT-JIPDEC for detailed information.) ----------------------------------------------------------- */ #include -#include #include #include #include #include #include -#ifdef SHM -#include -#endif +#include +#include #ifdef STRINGH #include @@ -21,62 +19,111 @@ #include #endif -#ifdef SHM -extern char* shm_start_addr; -extern int ATOM_TABLE_SIZE; +#define Hashsize 1024 +#define Namesize 1024 + +#define YET (-1) +#define DONE 0 + +#define AtomError (-1) + +struct atomhashtable{ + long atomid; + unsigned long nametablesize; + unsigned long hashtablesize; + long *table; +}; +static struct atomhashtable atomhtable; +static struct atomhashtable* atomhp = &atomhtable; + +struct functorhashtable{ + long functorid; + unsigned long functortablesize; + unsigned long hashtablesize; + long *table; +}; +static struct functorhashtable functhtable; +static struct functorhashtable* functhp = &functhtable; + +#ifndef SHM +#include /* malloc_check */ +#else /* SHM */ +#include + static char* Buff_S; static char* Buff_E; -#define malloc_check(sz) ( (Buff_S += (sz)) > Buff_E ? \ - (char *) abend("Atom Table overflow!"):\ - (char *)(Buff_S - (sz)) ) +#define malloc_check(sz) \ +( (Buff_S += (sz)) > Buff_E ? \ + (char*) abend("Atom Table overflow!") : (char*) (Buff_S - (sz)) ) +extern void init_shm_atom() { struct atomhashtable* tmpahp; struct functorhashtable* tmpfhp; Buff_S = shm_start_addr; Buff_E = Buff_S + ATOM_TABLE_SIZE; - shm_namep = (ShmNameBuff*)malloc_check(sizeof(ShmNameBuff)); - tmpahp = (struct atomhashtable*)malloc_check(sizeof(struct atomhashtable)); + shm_namep = (ShmNameBuff*) malloc_check(sizeof(ShmNameBuff)); + tmpahp = (struct atomhashtable*) malloc_check(sizeof(struct atomhashtable)); *tmpahp = *atomhp; atomhp = tmpahp; - tmpfhp = (struct functorhashtable*)malloc_check(sizeof(struct functorhashtable)); + tmpfhp = (struct functorhashtable*) malloc_check(sizeof(struct functorhashtable)); *tmpfhp = *functhp; functhp = tmpfhp; } +#endif /* SHM */ +static int init_atom = YET; +static int init_functor = YET; + +static long* nextatom; +static long* nextfunctor; + +#ifdef SHM +typedef struct atomnamebuff { + unsigned char* namea0; + unsigned char* namep0; +} ShmNameBuff; +ShmNameBuff* shm_namep; +#define namearea (shm_namep->namea0) +#define nameareap (shm_namep->namep0) #else -extern char *malloc_check(); +static unsigned char* namearea; +static unsigned char* nameareap; #endif -static long hash_name(name) - unsigned char *name; +#define numberOfAtoms initial_atoms +#define numberOfFunctors initial_functors + +static long +hash_name(name) + unsigned char* name; { long value = 0L; - unsigned char c; - for (value = 0L; - c = *name++; - value = 3L*value + c) - ; + while(*name != '\0'){ + value = 3L*value + *name; + name++; + } return value; } -static long list2name(name,list) - unsigned char *name; - q list; +static long +list2name(name,list) + unsigned char* name; + q list; { int i = 0; q x; while (isref(list)) { list = derefone(list); } while(list != NILATOM) { - if (i >= 1024 ) { + if (i >= Namesize ) { fatal("atom length is too long"); } x = car_of(list); while (isref(x)) { x = derefone(x); } - name[i++] = (unsigned char)(intval(x)); + name[i++] = (unsigned char) intval(x); list = cdr_of(list); while (isref(list)) { list = derefone(list); @@ -86,110 +133,122 @@ return i; } -static void enter_old_atom(i,name) - unsigned int i; - unsigned char *name; +static void +enter_old_atom(i,name) + unsigned int i; + unsigned char* name; { - long index, index0; + long index; long hashvalue; hashvalue = hash_name(name) % (atomhp->hashtablesize); - - if ((index = atomhp->table[hashvalue]-1) >= 0) { - while ((strcmp((char *)atomname[index],(char *)name))) { - if ((index0 = nextatom[index]) == -1) { + + index = atomhp->table[hashvalue] - 1; + if (index >= 0) { + while ((strcmp((char*) atomname[index], (char*) name))) { + long index0 = nextatom[index]; + if (index0 == -1) { nextatom[index] = i; nextatom[i] = -1; goto finish; - } else - index = index0;} - } else { - atomhp->table[hashvalue] = i + 1; - nextatom[i] = -1; + } else { + index = index0; + } } - finish:; + } else { + atomhp->table[hashvalue] = i + 1; + nextatom[i] = -1; + } + finish: ; } -static void enter_old_functor(i, a_no, arity) -unsigned int i; -unsigned long a_no, arity; +static void +enter_old_functor(i, a_no, arity) + unsigned int i; + unsigned long a_no, arity; { - long index, index0, hashvalue; + long index, hashvalue; - hashvalue = ((long)(a_no - ATOMNUMBERBASE + arity)) % + hashvalue = ((long) (a_no - ATOMNUMBERBASE + arity)) % functhp->hashtablesize; - - if ((index = functhp->table[hashvalue]-1) >= 0) { + + index = functhp->table[hashvalue]-1; + if (index >= 0) { while ((functors[index] != a_no) || (arities[index] != arity)) { - if ((index0 = nextfunctor[index]) == -1) { + long index0 = nextfunctor[index]; + if (index0 == -1) { nextfunctor[index] = i; nextfunctor[i] = -1; goto finish; } else index = index0; - }} else { - functhp->table[hashvalue] = i + 1; - nextfunctor[i] = -1; } - finish:; + } else { + functhp->table[hashvalue] = i + 1; + nextfunctor[i] = -1; + } + finish: ; } -static void make_atom_table() +static void +make_atom_table() { unsigned int i; init_atom = DONE; - + atomhp->atomid = numberOfAtoms-1; atomhp->hashtablesize = Hashsize; atomhp->table = - (long *) malloc_check((unsigned)(sizeof(long) * Hashsize)); - namearea = (unsigned char *) malloc_check((unsigned ) Namesize); + (long*) malloc_check((unsigned) (sizeof(long) * Hashsize)); + namearea = (unsigned char*) malloc_check((unsigned) Namesize); nameareap = namearea; if (numberOfAtoms) { atomhp->nametablesize = numberOfAtoms; nextatom = - (long *) malloc_check((unsigned )(sizeof(long) * numberOfAtoms)); + (long*) malloc_check((unsigned) (sizeof(long) * numberOfAtoms)); } else { atomhp->nametablesize = 1; - atomname = (unsigned char **) malloc_check(sizeof(char *)); - nextatom = (long *) malloc_check(sizeof(long)); + atomname = (unsigned char**) malloc_check(sizeof(char*)); + nextatom = (long*) malloc_check(sizeof(long)); } for (i = 0; i < Hashsize; i++) { atomhp->table[i] = 0; } for (i = 0; i < atomhp->nametablesize; i++) { nextatom[i] = -1; } for (i = 0; i < numberOfAtoms; i++) {enter_old_atom(i,atomname[i]);} - } -static void make_functor_table() -{ unsigned int i; +static void +make_functor_table() +{ + unsigned int i; init_functor = DONE; - + functhp->functorid = numberOfFunctors-1; functhp->hashtablesize = Hashsize; functhp->table = - (long *) malloc_check((unsigned)(sizeof(long) * Hashsize)); + (long*) malloc_check((unsigned) (sizeof(long) * Hashsize)); if (numberOfFunctors) { functhp->functortablesize = numberOfFunctors; nextfunctor = - (long *) malloc_check((unsigned )(sizeof(long)*numberOfFunctors)); + (long*) malloc_check((unsigned) (sizeof(long) * numberOfFunctors)); } else { - functhp->functortablesize = 1; - functors = (unsigned long *)malloc_check(sizeof(q)); - arities = (unsigned long *)malloc_check(sizeof(q)); - nextfunctor = (long *)malloc_check(sizeof(q)); - } + functhp->functortablesize = 1; + functors = (unsigned long*) malloc_check(sizeof(q)); + arities = (unsigned long*) malloc_check(sizeof(q)); + nextfunctor = (long*) malloc_check(sizeof(q)); + } for (i = 0; i < Hashsize; i++) { functhp->table[i] = 0; } for (i = 0; i < functhp->functortablesize; i++) {nextfunctor[i] = -1;} for (i = 0; i < numberOfFunctors; i++) { enter_old_functor(i,functors[i],arities[i]); } } -extern unsigned char *generic_string_body(); +extern unsigned char* generic_string_body(); extern unsigned long generic_string_size(); -unsigned long enter_atom_body(name, namelen) +extern unsigned long +enter_atom_body(name, namelen) char name[]; unsigned long namelen; { @@ -198,23 +257,27 @@ if (init_atom) make_atom_table(); - if (strcmp((char *)name,"[]")==0) return(0L); - if (strcmp((char *)name,".")==0) return(1L); + if (strcmp((char*) name,"[]")==0) return 0L; + if (strcmp((char*) name,".")==0) return 1L; hashvalue = ((unsigned long) hash_name(name)) % atomhp->hashtablesize; #ifdef SHM s_lock(a_key()); #endif - again: - if ((index = (atomhp->table[hashvalue])-1) >= 0) { - while ((strcmp((char *)atomname[index],(char *)name))) { - if ((index0 = nextatom[index]) == -1) { + again: + index = atomhp->table[hashvalue] - 1; + if (index >= 0) { + while ((strcmp((char*) atomname[index], (char*) name))) { + index0 = nextatom[index]; + if (index0 == -1) { if (atomhp->atomid +1 == atomhp->nametablesize ) goto expand; - nextatom[index] = (long)(++(atomhp->atomid)); - if ((long)(nameareap-namearea) + namelen + 1 >= Namesize) - { namearea = (unsigned char *) malloc_check((unsigned ) Namesize); - nameareap = namearea; } - strcpy((char *)nameareap,(char *)name); + atomhp->atomid ++; + nextatom[index] = (long) atomhp->atomid; + if ((long)(nameareap-namearea) + namelen + 1 >= Namesize){ + namearea = (unsigned char*) malloc_check((unsigned) Namesize); + nameareap = namearea; + } + strcpy((char*) nameareap, (char*) name); atomname[atomhp->atomid] = nameareap; nameareap += namelen; *nameareap++ = '\0'; @@ -222,44 +285,48 @@ #ifdef SHM s_unlock(a_key()); #endif - return(atomhp->atomid + ATOMNUMBERBASE); - } else - index = index0;} + return atomhp->atomid + ATOMNUMBERBASE; + } else { + index = index0; + } + } #ifdef SHM s_unlock(a_key()); #endif - return(index + ATOMNUMBERBASE); + return index + ATOMNUMBERBASE; } else { if (atomhp->atomid +1 == atomhp->nametablesize) goto expand; else { if ((long)(nameareap-namearea) + namelen >= Namesize) { - namearea = (unsigned char *) malloc_check((unsigned ) Namesize); + namearea = (unsigned char*) malloc_check((unsigned) Namesize); nameareap = namearea; } atomhp->table[hashvalue] = ++(atomhp->atomid) + 1; - strcpy((char *)nameareap,(char *)name); + strcpy((char*) nameareap, (char*) name); atomname[atomhp->atomid] = nameareap; - nameareap += strlen((char *)name)+1; + nameareap += strlen((char*) name) + 1; nextatom[atomhp->atomid] = -1; } #ifdef SHM s_unlock(a_key()); #endif - return(atomhp->atomid + ATOMNUMBERBASE); + return atomhp->atomid + ATOMNUMBERBASE; } expand: { declare_globals; - unsigned char **newatomname; long *newnextatom; int i; + unsigned char** newatomname; + long* newnextatom; + int i; #ifdef SHM if ( is_shma(atomname) ) abend("Can't expand on this version."); #endif - newatomname = (unsigned char **) - malloc_check((atomhp->nametablesize) * sizeof(char *)*2); + newatomname = (unsigned char**) + malloc_check((atomhp->nametablesize) * sizeof(char*)*2); newnextatom = - (long *) malloc_check((atomhp->nametablesize) * sizeof(long)*2); + (long*) malloc_check((atomhp->nametablesize) * sizeof(long)*2); for (i = 0; i < atomhp->nametablesize; i++) { newatomname[i] = atomname[i]; newnextatom[i] = nextatom[i]; @@ -267,25 +334,28 @@ for (i = atomhp->nametablesize; i < 2*atomhp->nametablesize; i++) { newnextatom[i] = -1; } - atomhp->nametablesize = 2 *atomhp->nametablesize; + atomhp->nametablesize = 2 * atomhp->nametablesize; atomname = newatomname; nextatom = newnextatom; } - goto again; + goto again; } +/* unsigned long intern(name0) -q name0; + q name0; { - unsigned char name[1024]; + unsigned char name[Namesize]; unsigned long length; if (name0 == NILATOM) return AtomError; length = list2name(name, name0); return enter_atom_body(name, length); } +*/ -unsigned long enter_atom_string(name0) -q name0; +extern unsigned long +enter_atom_string(name0) + q name0; { extern unsigned char *convert_klic_string_to_c_string(); unsigned char *name = convert_klic_string_to_c_string(name0); @@ -295,8 +365,9 @@ return retval; } -unsigned long enter_functor(a_no,arity) -unsigned long a_no, arity; +extern unsigned long +enter_functor(a_no,arity) + unsigned long a_no, arity; { declare_globals; long index, index0, hashvalue; @@ -375,6 +446,10 @@ goto again; } +/* unsigned long new_atom() -{ atomname[atomhp->atomid] = 0; - return((atomhp->atomid)++ + ATOMNUMBERBASE);} +{ + atomname[atomhp->atomid] = 0; + return (atomhp->atomid)++ + ATOMNUMBERBASE; +} +*/ diff -ruN klic-3.003-2001-12-22/runtime/runtime.h klic-3.003-2001-12-25/runtime/runtime.h --- klic-3.003-2001-12-22/runtime/runtime.h Thu Jan 1 09:00:00 1970 +++ klic-3.003-2001-12-25/runtime/runtime.h Tue Dec 25 17:58:25 2001 @@ -0,0 +1,21 @@ +/* ------------------------------------------------------------- +% Copyright 2001, TAKAGI Yusuke +% (Read COPYRIGHT for detailed information.) +------------------------------------------------------------- */ + +#ifndef RUNTIME_H +#define RUNTIME_H + +/* cmphsh.c */ +extern q hash_kl1_term(q x, long l); + +/* cntlmsg.c */ +extern void send_answer_value(q data, long node, long index, long wec); +extern long send_read(long node, long index, q var, long transc); +extern void send_release(long node, long index, long wec); +extern void send_unify(long node, long index, long wec, q data); +extern struct goalrec* + send_throw_goal(long node, struct goalrec* goal, struct goalrec* oldqp); +extern void terminate_all_node(void); + +#endif /* RUNTIME_H */ diff -ruN klic-3.003-2001-12-22/runtime/signal.c klic-3.003-2001-12-25/runtime/signal.c --- klic-3.003-2001-12-22/runtime/signal.c Sun Dec 2 12:47:59 2001 +++ klic-3.003-2001-12-25/runtime/signal.c Tue Dec 25 15:22:09 2001 @@ -6,6 +6,7 @@ ----------------------------------------------------------- */ #define SIGMAIN #include + #ifdef USESIG #include #include @@ -30,8 +31,9 @@ /* Synchronized signal handler called between reductions */ -q* klic_signal_handler(allocp) - q *allocp; +extern q* +klic_signal_handler(allocp) + q* allocp; { declare_globals; int sig; @@ -66,7 +68,8 @@ /* Utility subroutine to add signal handlers */ -void add_slit_check_handler(sig, func) +extern void +add_slit_check_handler(sig, func) int sig; int (*func)(); { @@ -79,6 +82,7 @@ signal_handlers[sig] = func; } +extern int add_signal_handler(sig, func) int sig; int (*func)(); @@ -148,7 +152,7 @@ return allocp; } -int streamed_signal_handler(allocp, sig) +static int streamed_signal_handler(allocp, sig) q *allocp; int sig; { @@ -164,7 +168,8 @@ return 0; } -q *register_streamed_signal(allocp, sig, stream) +extern q* +register_streamed_signal(allocp, sig, stream) q *allocp; int sig; q stream; @@ -206,7 +211,8 @@ GENERAL INITIATION */ -void init_klic_signal_handling() +extern void +init_klic_signal_handling() { init_general_signal_handling(); init_streamed_signal_handling(); @@ -214,4 +220,4 @@ add_signal_handler(SIGPIPE, default_sigpipe_handler); } -#endif +#endif /* USESIG */