File: csvtobib1.tcl

package info (click to toggle)
yaz 2.1.18-2
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 11,988 kB
  • ctags: 11,045
  • sloc: xml: 109,719; ansic: 41,566; sh: 10,625; makefile: 1,115; tcl: 380; yacc: 288
file content (18 lines) | stat: -rwxr-xr-x 483 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
#!/bin/sh
# the next line restats using tclsh \
exec tclsh "$0" "$@"
#
# This file is part of the YAZ toolkit
# Copyright (c) Index Data 1996-2005
# See the file LICENSE for details.
#
# $Id: csvtobib1.tcl,v 1.1 2005/04/22 08:27:58 adam Exp $
#
# Converts a CSV file with Bib-1 diagnostics to C+H file for easy
# maintenance
#
# $Id: csvtobib1.tcl,v 1.1 2005/04/22 08:27:58 adam Exp $

source csvtodiag.tcl

csvtodiag {bib1.csv diagbib1.c ../include/yaz/diagbib1.h} bib1 diagbib1_str