mirror of
https://github.com/openbsd/src.git
synced 2024-12-22 16:42:56 -08:00
374 lines
11 KiB
Plaintext
374 lines
11 KiB
Plaintext
dnl $OpenBSD: MAKEDEV.sub,v 1.14 2005/02/07 06:14:18 david Exp $
|
|
dnl
|
|
dnl Copyright (c) 2001-2004 Todd T. Fries <todd@OpenBSD.org>
|
|
dnl
|
|
dnl Permission to use, copy, modify, and distribute this software for any
|
|
dnl purpose with or without fee is hereby granted, provided that the above
|
|
dnl copyright notice and this permission notice appear in all copies.
|
|
dnl
|
|
dnl THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
|
|
dnl WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
|
|
dnl MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
|
|
dnl ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
|
|
dnl WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
|
|
dnl ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
|
|
dnl OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
|
|
dnl
|
|
dnl
|
|
dnl This file is an m4 file
|
|
dnl
|
|
dnl Conventions:
|
|
dnl
|
|
dnl o First, a change of quote to make shell statements like: `command`
|
|
dnl possible
|
|
dnl
|
|
changequote(`{-', `-}')dnl
|
|
dnl
|
|
dnl o Next, change the comment character to make shell parameter
|
|
dnl substitution possible
|
|
dnl
|
|
changecom(`/*', `*/')dnl
|
|
dnl
|
|
dnl o version info must be stripped of $ so we can say 'generated from' below
|
|
dnl
|
|
dnl If we just use the version string how are we going to know what arch
|
|
dnl 'MAKEDEV.md,v' came from?
|
|
dnl
|
|
dnl Thus, I have used the below to create a version string looking like
|
|
dnl 'OpenBSD: etc.sparc/MAKEDEV.inc,v...' which works, although requires
|
|
dnl some attention if ported to another Id string setup.
|
|
dnl
|
|
dnl
|
|
dnl Initialize the stacks stored in _m4_*
|
|
dnl
|
|
undefine({-_m4_cvs_ver-})dnl
|
|
pushdef({-_m4_cvs_ver-}, {-done-})dnl
|
|
dnl
|
|
undefine({-_m4_devs-})dnl
|
|
pushdef({-_m4_devs-}, {-done-})dnl
|
|
dnl
|
|
undefine({-_m4_disks-})dnl
|
|
undefine({-_m4_disks2-})dnl
|
|
pushdef({-_m4_disks-}, {-done-})dnl
|
|
pushdef({-_m4_disks2-}, {-done-})dnl
|
|
dnl
|
|
dnl define stack 'add to' functions, only unique names queued
|
|
dnl
|
|
define({-ver_q-}, {-ifelse(index($1_ver, y), 0, ,
|
|
{-pushdef({-_m4_cvs_ver-}, {-$2-})define({-$1_ver-}, {-y-})-})-})dnl ver_q
|
|
dnl
|
|
define({-dev_q-}, {-ifelse(index(_q_$1_dev, :), 0,
|
|
{-errprint({-duplicated dev id: $1 at -}__file__{-:-}__line__ originally at _q_$1_dev)-},
|
|
{-pushdef({-_m4_devs-}, {-$1-})dnl
|
|
define({-_q_$1_dev-}, {-:-}__file__{-:-}__line__)-})-})dnl dev_q
|
|
dnl
|
|
define({-disk_q-}, {-ifelse(index(_q_$1_disk, :), 0,
|
|
{-errprint({-duplicated disk id: $1 at -}__file__{-:-}__line__ originally at _q_$1_disk)-}, {-pushdef({-_m4_disks-}, {-$1-})dnl
|
|
pushdef({-_m4_disks2-}, {-$1-})dnl
|
|
define({-_q_$1_disks-}, {-:-}__file__{-:-}__line__)-})-})dnl disk_q
|
|
dnl
|
|
dnl store a version string for 'this' file
|
|
dnl
|
|
dnl vers ( uniqueidstring, versionstring, subdir )
|
|
dnl
|
|
dnl example1: vers(__file__, {-$OpenBSD: MAKEDEV.sub,v 1.14 2005/02/07 06:14:18 david Exp $-})
|
|
dnl example2: vers(__file__, {-$OpenBSD: MAKEDEV.sub,v 1.14 2005/02/07 06:14:18 david Exp $-}, etc.MACHINE)
|
|
dnl
|
|
dnl if subdir is defined, prepend it to the filename in the version string
|
|
dnl
|
|
define({-vers-},
|
|
{-ifelse({-$3-}, {--},
|
|
{-ver_q(hstcl({-$1-}), {-translit({-{-$2-}-}, {-$-}, {--})-})-},
|
|
{-ver_q(hstcl({-$1-}), {-_addsubdir({-{-$2-}-}, $3)-})-})-})dnl
|
|
dnl
|
|
dnl Version info for this file:
|
|
dnl
|
|
vers(__file__, {-$OpenBSD: MAKEDEV.sub,v 1.14 2005/02/07 06:14:18 david Exp $-})dnl
|
|
dnl
|
|
dnl
|
|
define({-_addsubdir-},
|
|
{-patsubst({-$1-}, {-\$(OpenBSD:) ([^\$]*)\$-}, {-\1 $2/\2-})-})dnl
|
|
dnl
|
|
dnl do the 'showing' of the version info
|
|
dnl
|
|
define({-do_vers-}, {-COMM $1-})dnl
|
|
dnl
|
|
dnl show version function, to be called at the place when all versions are
|
|
dnl queued, and it is time to show all of them
|
|
dnl
|
|
define({-show_vers-},
|
|
{-ifelse(_m4_cvs_ver, {-done-}, {--},
|
|
{-do_vers(_m4_cvs_ver)
|
|
popdef({-_m4_cvs_ver-})dnl
|
|
show_vers()dnl
|
|
-})-})dnl
|
|
dnl
|
|
dnl show the routines to generate devices
|
|
define({-show_devs-},
|
|
{-ifelse(_m4_devs, {-done-}, {--},
|
|
{-_MKDEV(_m4_devs){--}dnl
|
|
popdef({-_m4_devs-})dnl
|
|
show_devs()dnl
|
|
-})-})dnl
|
|
dnl
|
|
dnl routines to generate disks
|
|
define({-show_disks-},
|
|
{-ifelse(_m4_disks, {-done-}, {--},
|
|
{-ifcase(_m4_disks, _m4_disks{--}*)dnl
|
|
popdef({-_m4_disks-})dnl
|
|
show_disks()dnl
|
|
-})-})dnl
|
|
dnl
|
|
define({-show_disks2-},
|
|
{-ifelse(_m4_disks2, {-done-}, {--},
|
|
{-CasE(_m4_disks2)dnl
|
|
popdef({-_m4_disks2-})dnl
|
|
show_disks2()dnl
|
|
-})-})dnl
|
|
dnl
|
|
dnl
|
|
dnl Some m4 math functions:
|
|
dnl
|
|
dnl Add(a, b) - displays the result of a+b
|
|
dnl Mult(a, b) - displays the result of a*b
|
|
dnl trunc a b - displays the string a minus b removed from the RHS
|
|
dnl hex a - displays the hex equivalent of 0-15
|
|
dnl unt a - s/[a-z]*([0-9]*).*/\1/ aka sd0a -> 0
|
|
dnl
|
|
dnl Functions:
|
|
dnl
|
|
dnl --> Addition
|
|
dnl
|
|
define({-Add-}, {-$({-(-}$1+$2{-)-})-})dnl
|
|
dnl
|
|
dnl --> Multiplication
|
|
dnl
|
|
define({-Mult-}, {-$({-(-}$1*$2{-)-})-})dnl
|
|
dnl
|
|
dnl
|
|
dnl TRUNC
|
|
dnl
|
|
define({-expr_trunc-}, {-$1trunc()
|
|
$1{
|
|
$1 case {-$-}3 in
|
|
$1 l) {-expr-} {-$-}1 : '\(.*\)'{-$-}2 ;;
|
|
$1 r|*) {-expr-} ${--}1 : ${--}2'\(.*\)' ;;
|
|
$1 esac
|
|
$1}-})dnl
|
|
dnl
|
|
dnl
|
|
define({-_SHELL-}, {-sh-})dnl
|
|
define({-_this-}, {-{-$-}T-})dnl
|
|
dnl define({-_recurse-}, {-_SHELL _this-})dnl
|
|
define({-_recurse-}, {-R-})dnl
|
|
dnl
|
|
dnl _devitem(pattern, description)
|
|
dnl
|
|
define({-_devitem-},
|
|
{-{-#-} $1 {-$2-}-})dnl
|
|
dnl
|
|
dnl _devtitle(description)
|
|
dnl
|
|
define({-_devtitle-}, {-{-#-} $1:-})dnl
|
|
dnl
|
|
dnl _DEV(name, [character major], [block major])
|
|
dnl
|
|
define({-_DEV-}, {-$1_dev{--}dnl
|
|
dnl
|
|
dnl _DEV 'ifelse' .. $2 - major_$1_c
|
|
dnl
|
|
ifelse($2, , , {-define(major_$1_c, $2)-})dnl
|
|
dnl
|
|
dnl _DEV 'ifelse' .. $3 - major_$1_b
|
|
dnl
|
|
ifelse($3, , , {-define(major_$1_b, $3)-})dnl
|
|
dnl
|
|
dnl _DEV 'ifelse' .. $4 - step_$1
|
|
dnl
|
|
ifelse($4, , , {-define(step_$1, {-$4-})-})dnl
|
|
dnl
|
|
dnl Some magic here, defining a devitem also defines another
|
|
dnl string so that later we can check if a particular devitem was
|
|
dnl defined, and thus determine if the devices themselves are to
|
|
dnl be built
|
|
dnl
|
|
define({-$1__DEV-}, {-Y-})dnl
|
|
dnl
|
|
dnl More magic, put device string name into a queue of script segments to
|
|
dnl be shown later if it has been defined as a device in MAKEDEV.mi
|
|
dnl
|
|
ifdef({-$1_mkdev-}, {-__mkdev({-$1-})-})dnl
|
|
dnl
|
|
dnl
|
|
-})dnl _DEV
|
|
dnl
|
|
dnl
|
|
define({-ifdev-}, {-ifelse($1__DEV, Y, {-$2-})-})dnl
|
|
dnl
|
|
define({-_MKDEV-}, {-$1_mkdev-})dnl
|
|
define({-_TITLE-}, {-$1_title-})dnl
|
|
define({-__devitem-}, {-define($1_dev, {-_devitem($2, $3)-})-})dnl
|
|
define({-__devtitle-}, {-define($1_title, {-_devtitle($2)-})-})dnl
|
|
dnl
|
|
dnl Beginning and ending of case entries, just incase we change in the
|
|
dnl future, save chasing things down again
|
|
dnl
|
|
define({-_end-}, {-
|
|
;;
|
|
|
|
-})dnl
|
|
define({-_beg-}, {-{-)-}
|
|
-})dnl
|
|
dnl
|
|
dnl create the script segment for making devices
|
|
dnl $1 $2 $3
|
|
dnl _mkdev(shortname, devpatt, action)dnl
|
|
define({-_mkdev-}, {-define($1_mkdev, {-$2{--}_beg{--}$3{--}_end-})-})dnl
|
|
dnl
|
|
dnl define a major character device
|
|
dnl $1 $2 $3 $4
|
|
dnl _mcdev(shortname, devpatt, devbase, devmajor [, group [ owner ] ])dnl
|
|
dnl
|
|
define({-_mcdev-}, {-define($1_mkdev, {-{-$2-}_beg{--}M $3$U c $4 $U{--}dnl
|
|
ifelse($6, , ifelse($5, , , {- -}$5), {- -}ifelse($5, , 600, $5){- -}$6){--}_end-})-})dnl
|
|
dnl
|
|
dnl $1 $2 $3 $4 $5 $6
|
|
dnl _cdev(shortname, devpatt, devmajor, devminor[, devmod, devgrp])dnl
|
|
define({-_cdev-},
|
|
{-dnl
|
|
define($1_mkdev, {-$2{--}_beg{--}M $2 c $3 $4 $5 $6{--}_end-}){--}-})dnl
|
|
dnl
|
|
dnl
|
|
define({-__mkdev-}, {-dev_q($1)-})dnl
|
|
dnl
|
|
dnl for showing disks
|
|
dnl
|
|
define({-CasE-},
|
|
{-ifdev({-$1-},
|
|
{- $1*) dodisk $1 $U major_$1_b major_$1_c $U 0{--}ifstep($1);;
|
|
-})-})dnl
|
|
dnl
|
|
dnl
|
|
define({-ifcase-}, {-dnl
|
|
ifelse(C_ase, Y, ifdev({-$1-}, {-|$2-}),
|
|
{-ifdev({-$1-}, {-$2define({-C_ase-}, Y)-})-})-})dnl
|
|
dnl
|
|
dnl
|
|
dnl device list .. list devices 'iff' they are defined
|
|
dnl
|
|
dnl input:
|
|
dnl
|
|
dnl _dl({-usb-}, {-usb0 usb1-}, {-urio-}, {-urio-}, ...)
|
|
dnl
|
|
dnl output:
|
|
dnl
|
|
dnl {-<tab>_recurse usb0 usb1 urio
|
|
dnl <tab>_recurse uhid0 uhid2 uhid3-}
|
|
dnl
|
|
dnl wrap if more than 60 chars wide
|
|
dnl
|
|
dnl .. wrap it all up in an 'ifelse({-$1-}, , {- ... -})' for neatness ??
|
|
dnl
|
|
define({-_dl-}, {-dnl
|
|
ifdef({-_dt-}, , {-define({-_dt-})-})dnl
|
|
ifdef({-_do-}, , {-_dt{--}_recurse{--}define({-_do-}, 0)dnl
|
|
define({-_dt-}, {- -})-})dnl
|
|
ifdef({-$1__DEV-},
|
|
{-define({-_di-}, {-$2-})-},
|
|
{-define({-_di-})-})dnl
|
|
ifelse(eval(len(_di)+_do<60), 1,
|
|
{-ifelse(eval(len(_di)>0), 1,
|
|
{- _di{--}define({-_do-}, eval(1+_do+len(_di)))-})-},
|
|
{-
|
|
_dt{--}_recurse _di{--}dnl
|
|
define({-_do-}, len(_di))-})dnl
|
|
ifelse({-$3-}, {--},
|
|
{-undefine({-_dt-}, {-_do-})-}, dnl <--- The END
|
|
{-_dl(shift(shift($@)))-})-})dnl
|
|
dnl
|
|
dnl
|
|
define({-_show_target-}, {-dnl
|
|
ifdef({-$1__DEV-}, {-disp_dev({-$2-})-})dnl
|
|
ifelse({-$3-}, {--},
|
|
{-_disp_dev_end()-}, dnl <--- The END
|
|
{-_show_target(shift(shift($@)))-})-})dnl
|
|
dnl
|
|
define({-disp_dev-}, {-dnl
|
|
ifdef({-_disp_dev_tab-}, , {-define({-_disp_dev_tab-})-})dnl
|
|
ifdef({-_disp_dev_len-}, , {-dnl
|
|
define({-_disp_dev_len-}, 0)dnl
|
|
_disp_dev_tab{--}_recurse{--}dnl
|
|
define({-_disp_dev_tab-}, {- -})-})dnl
|
|
ifelse(eval(len($1)+_disp_dev_len<60), 1,
|
|
{- $1{--}define({-_disp_dev_len-}, eval(1+_disp_dev_len+len($1)))-}, {-
|
|
_disp_dev_tab{--}_recurse $1{--}dnl
|
|
define({-_disp_dev_len-}, len($1))-})dnl
|
|
-})dnl
|
|
define({-_disp_dev_end-}, {-undefine({-_disp_dev_tab-}, {-_disp_dev_len-})-})dnl
|
|
dnl
|
|
dnl A word about the above:
|
|
dnl
|
|
dnl _dt -> 'tab' .. at first, defined to nothing, as the tab is already there
|
|
dnl then define it to a tab every time through
|
|
dnl undefine it at the end
|
|
dnl
|
|
dnl _do -> 'old' count .. stores the length of the old string already displayed
|
|
dnl it is initialized to 0, added to the length plus 1 of '_di' each
|
|
dnl iteration the line is less than 60 chars long
|
|
dnl undefined at the end
|
|
dnl _di -> 'iteration' string .. the string used in this iteration, is empty if
|
|
dnl the device does not exist
|
|
dnl
|
|
dnl
|
|
dnl ifstep(devstr)
|
|
dnl .. if stepping is defined for the particular device, emit ' step', else
|
|
dnl nothing
|
|
define({-ifstep-}, {-ifdef({-step_$1-}, {- -}step_$1{--})-})dnl
|
|
dnl
|
|
dnl
|
|
define({-target-}, {-twrget({-$1-}, {-$2-}, {-$2-}, shift(shift($@)))-})dnl
|
|
dnl
|
|
dnl twrget(target, devname, prefix, str1, str2, str3)
|
|
dnl $1 $2 $3 $4 $5 $6
|
|
dnl
|
|
define({-twrget-}, {-dnl
|
|
dnl
|
|
ifdef({-$1_target-}, , {-pushdef({-$1_target-}, {-done-})-})dnl
|
|
dnl
|
|
ifelse({-$4-}, , , {-dnl
|
|
ifelse({-$4-}, {-_done-}, , {-dnl
|
|
ifelse({-$5-}, , , {-dnl
|
|
dnl errprint({-recurse: $1, $2, $3, $4, $5, $6, ...-})dnl
|
|
twrget({-$1-}, {-$2-}, {-$3-}, shift(shift(shift(shift($@)))))dnl
|
|
-})-})-})dnl
|
|
dnl
|
|
ifelse({-$4-}, {-_done-}, , {-dnl
|
|
dnl errprint({-recurse: $1_$2_dev, $3$4, $3$4, _done-})dnl
|
|
twrget({-$1_$2_dev-}, {-$3$4-}, {-$3$4-}, {-_done-})dnl
|
|
-})dnl
|
|
dnl
|
|
ifdef({-$1$2target-}, , {-dnl
|
|
pushdef({-$1_target-}, {-$2-})define({-$1$2target-})dnl
|
|
-})dnl
|
|
dnl
|
|
-})dnl
|
|
dnl
|
|
dnl
|
|
define({-show_target-}, {-dnl
|
|
ifelse($1_target, {-done-}, {-_disp_dev_end()-},
|
|
{-dnl $1_target:
|
|
show_dev($1, -}$1_target{-)dnl
|
|
popdef({-$1_target-})dnl
|
|
show_target({-$1-})dnl
|
|
-})-})dnl
|
|
dnl
|
|
define({-show_dev-}, {-dnl
|
|
ifdef({-$2__DEV-}, {-dnl
|
|
ifelse($1_$2_dev_target, {-done-}, , {-dnl
|
|
disp_dev({-$1_$2_dev_target-})dnl
|
|
popdef({-$1_$2_dev_target-})dnl
|
|
show_dev({-$1-}, {-$2-})-})dnl
|
|
-})dnl
|
|
-})dnl
|
|
dnl
|