1#! /usr/bin/awk -f 2# $OpenBSD: devlist2h.awk,v 1.5 2023/01/04 14:42:46 jsg Exp $ 3# $NetBSD: devlist2h.awk,v 1.2 1998/07/22 11:47:13 christos Exp $ 4# 5# Copyright (c) 1998, Christos Zoulas 6# Copyright (c) 1995, 1996 Christopher G. Demetriou 7# All rights reserved. 8# 9# Redistribution and use in source and binary forms, with or without 10# modification, are permitted provided that the following conditions 11# are met: 12# 1. Redistributions of source code must retain the above copyright 13# notice, this list of conditions and the following disclaimer. 14# 2. Redistributions in binary form must reproduce the above copyright 15# notice, this list of conditions and the following disclaimer in the 16# documentation and/or other materials provided with the distribution. 17# 3. All advertising materials mentioning features or use of this software 18# must display the following acknowledgement: 19# This product includes software developed by Christopher G. Demetriou. 20# 4. The name of the author(s) may not be used to endorse or promote products 21# derived from this software without specific prior written permission 22# 23# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR 24# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 25# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. 26# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, 27# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT 28# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, 29# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY 30# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT 31# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF 32# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 33# 34function collectline(f, line) { 35 oparen = 0 36 line = "" 37 while (f <= NF) { 38 if ($f == "#") { 39 line = line "(" 40 oparen = 1 41 f++ 42 continue 43 } 44 if (oparen) { 45 line = line $f 46 if (f < NF) 47 line = line " " 48 f++ 49 continue 50 } 51 line = line $f 52 if (f < NF) 53 line = line " " 54 f++ 55 } 56 if (oparen) 57 line = line ")" 58 return line 59} 60BEGIN { 61 nproducts = nvendors = 0 62 hfile="pcmciadevs.h" 63} 64NR == 1 { 65 VERSION = $0 66 gsub("\\$", "", VERSION) 67 68 printf("/*\t\$OpenBSD\$\t*/\n\n") > hfile 69 printf("/*\n") > hfile 70 printf(" * THIS FILE AUTOMATICALLY GENERATED. DO NOT EDIT.\n") \ 71 > hfile 72 printf(" *\n") > hfile 73 printf(" * generated from:\n") > hfile 74 printf(" *\t%s\n", VERSION) > hfile 75 printf(" */\n") > hfile 76 77 next 78} 79$1 == "vendor" { 80 nvendors++ 81 82 vendorindex[$2] = nvendors; # record index for this name, for later. 83 vendors[nvendors, 1] = $2; # name 84 vendors[nvendors, 2] = $3; # id 85 printf("#define\tPCMCIA_VENDOR_%s\t%s\t", vendors[nvendors, 1], 86 vendors[nvendors, 2]) > hfile 87 vendors[nvendors, 3] = collectline(4, line) 88 printf("/* %s */\n", vendors[nvendors, 3]) > hfile 89 next 90} 91$1 == "product" { 92 nproducts++ 93 94 products[nproducts, 1] = $2; # vendor name 95 products[nproducts, 2] = $3; # product id 96 products[nproducts, 3] = $4; # id 97 98 f = 5; 99 100 if ($4 == "{") { 101 products[nproducts, 3] = "PCMCIA_PRODUCT_INVALID" 102 z = "{ " 103 for (i = 0; i < 4; i++) { 104 if (f <= NF) { 105 gsub("&sp", " ", $f) 106 gsub("&tab", "\t", $f) 107 gsub("&nl", "\n", $f) 108 z = z $f " " 109 f++ 110 } 111 else { 112 if (i == 3) 113 z = z "NULL " 114 else 115 z = z "NULL, " 116 } 117 } 118 products[nproducts, 4] = z $f 119 f++ 120 } 121 else { 122 products[nproducts, 4] = "{ NULL, NULL, NULL, NULL }" 123 } 124 printf("#define\tPCMCIA_CIS_%s_%s\t%s\n", 125 products[nproducts, 1], products[nproducts, 2], 126 products[nproducts, 4]) > hfile 127 printf("#define\tPCMCIA_PRODUCT_%s_%s\t%s\n", products[nproducts, 1], 128 products[nproducts, 2], products[nproducts, 3]) > hfile 129 130# products[nproducts, 5] = collectline(f, line) 131# 132# printf("#define\tPCMCIA_STR_%s_%s\t\"%s\"\n", 133# products[nproducts, 1], products[nproducts, 2], 134# products[nproducts, 5]) > hfile 135 136 next 137} 138{ 139 if ($0 == "") 140 blanklines++ 141 print $0 > hfile 142} 143