* Sebastian Hammer, Adam Dickmeiss
*
* $Log: kdump.c,v $
- * Revision 1.9 1996-06-04 14:18:53 quinn
+ * Revision 1.10 1996-06-04 14:56:12 quinn
+ * Fix
+ *
+ * Revision 1.9 1996/06/04 14:18:53 quinn
* Charmap work
*
* Revision 1.8 1996/06/04 10:18:59 adam
prevk.seqno = 0;
prog = *argv;
- while ((ret = options ("v:", argv, argc, &arg)) != -2)
+ while ((ret = options ("m:v:", argv, argc, &arg)) != -2)
{
if (ret == 0)
{
while (*from)
{
- char *res = (char*)map->output[(unsigned char) *from];
+ char *res = (char*)map->output[(unsigned char) *(from++)];
while (*res)
*(to++) = *(res++);
}
else
strcpy(keybuf, key_string);
printf ("%7d op=%d s=%-5d %s\n", k.sysno, op, k.seqno,
- key_string);
+ keybuf);
}
if (fclose (inf))
{
#
# Input-filter for the Nordic Web Index record syntax. Output is 'gils-like'.
#
-# $Id: nwi.flt,v 1.2 1996-04-24 13:34:19 quinn Exp $
+# $Id: nwi.flt,v 1.3 1996-06-04 14:56:15 quinn Exp $
#
BEGIN { begin record gils }
# Don't want to have <ip> inside of LocalSubjectIndex
# Since we end localsubjectindex, we consume the end-tag for that as well.
-/<ip>[ \n]*/ BODY /<\/ip>[ \n]*<\/lsi>/ {
- end element;
- data -element sampleText $1
- }
+#/<ip>[ \n]*/ BODY /<\/ip>[ \n]*<\/lsi>/ {
+# end element;
+# data -element sampleText $1
+# }
-/<ip>[ \n]*/ BODY /<\/ip>/ { data -element sampleText $1 }
+/<ip>[ \n]*/ BODY /<\/ip>/ {
+ end element;
+ data -element sampleText $1
+ }
/<cr>/ { begin element crossReference }
/<li> */ BODY /$/ { data -element linkage $1 }