[gnugo-devel] trevor_1_13.5

[Trevor Morris]

http://www.public32.com/games/go/trevor_1_13.5
 - Adds file/line-number error reporting to mkpat.
 - A little owl tuning.

Index: patterns/mkpat.c
===================================================================
RCS file: /cvsroot/gnugo/gnugo/patterns/mkpat.c,v
retrieving revision 1.23
diff -u -b -r1.23 mkpat.c
--- patterns/mkpat.c    2001/10/26 07:21:11     1.23
+++ patterns/mkpat.c    2001/11/01 21:08:14
@@ -145,6 +145,12 @@
   const char *code;
 };
 
+/*
+ * current_* are useful for debugging broken patterns.
+ */
+char *current_file=0;
+int current_line_number=0;
+
 /* ================================================================ */
 /*                                                                  */
 /*                Autohelper function definitions                   */
@@ -685,8 +691,8 @@
   mini = minj = 0; /* initially : can change with edge-constraints */
 
   if (num_stars > 1 || (pattern_type == PATTERNS && num_stars == 0)) {
-    fprintf(stderr, "No or too many *'s in pattern %s\n",
-           pattern_names[patno]);
+    fprintf(stderr, "%s(%d) : error : No or too many *'s in pattern %s\n",
+           current_file, current_line_number, pattern_names[patno]);
     fatal_errors = 1;
   }
 
@@ -1445,12 +1451,14 @@
   
   if (input_file_name == NULL) {
     input_FILE = stdin;
+    current_file = "<stdin>";
   }
   else {
     if ((input_FILE = fopen(input_file_name, "r")) == NULL) {
       fprintf(stderr, "Cannot open file %s\n", input_file_name);
       exit(1);
     }
+    current_file = input_file_name;  
   }
   
   if (output_file_name == NULL) {
@@ -1506,7 +1514,7 @@
    */
   
   while (fgets(line, MAXLINE, input_FILE)) {
-
+    current_line_number++;
     if (line[strlen(line)-1] != '\n') {
       fprintf(stderr, "mkpat: line truncated: %s, length %d\n", line,
              (int) strlen(line));
Index: patterns/owl_attackpats.db
===================================================================
RCS file: /cvsroot/gnugo/gnugo/patterns/owl_attackpats.db,v
retrieving revision 1.18
diff -u -b -r1.18 owl_attackpats.db
--- patterns/owl_attackpats.db  2001/10/30 16:42:00     1.18
+++ patterns/owl_attackpats.db  2001/11/01 21:08:20
@@ -428,6 +428,30 @@
 :8,-,value(78)
 
 
+
+# descend to attack.
+# possibly defend vulnerable stone.
+# Useful in arb231
+# new pattern 3.1.13 -trevor
+Pattern A208
+
+xX       defend vulnerable stone.
+XO
+.*
+..
+--
+
+:8,-,value(20)
+
+xX
+XO
+.*
+..
+--
+
+; oplay_defend(*,*)
+
+
 Pattern A208
 # This pattern has the problem that it's often inappropriate in
 # positions like
@@ -3527,6 +3551,21 @@
 
 :8,s,value(40)
 
+
+# Useful for manyfaces:8
+# new pattern 3.1.13 -trevor
+Pattern A1341
+
+?X?|     vital corner point
+X.X|
+X..|
+X.*|
+...|
+___+
+
+
+:8,s,value(40)
+
 
 #########################################################
 #                                                       #
Index: patterns/owl_defendpats.db
===================================================================
RCS file: /cvsroot/gnugo/gnugo/patterns/owl_defendpats.db,v
retrieving revision 1.19
diff -u -b -r1.19 owl_defendpats.db
--- patterns/owl_defendpats.db  2001/10/30 16:42:00     1.19
+++ patterns/owl_defendpats.db  2001/11/01 21:08:31
@@ -2750,6 +2750,19 @@
 +---
 
 ;oplay_defend(*,A) != WIN
+
+
+#useful in manyfaces:8
+#new pattern 3.1.13 -trevor
+Pattern D833
+
+?O?      vital corner point.
+O.O
+O??
+O.*
+??.
+
+:8,s,value(40)
 
 
 #########################################################
Index: patterns/patterns.dsp
===================================================================
RCS file: /cvsroot/gnugo/gnugo/patterns/patterns.dsp,v
retrieving revision 1.6
diff -u -b -r1.6 patterns.dsp
--- patterns/patterns.dsp       2001/10/02 17:36:59     1.6
+++ patterns/patterns.dsp       2001/11/01 21:08:46
@@ -597,7 +597,7 @@
 InputPath=.\owl_attackpats.db
 
 "owl_attackpat.c" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
-       $(IntDir)\mkpat -b owl_attackpat <owl_attackpats.db > owl_attackpat.c
+       $(IntDir)\mkpat -b owl_attackpat -i ..\patterns\owl_attackpats.db >
owl_attackpat.c
 
 # End Custom Build