Cross Reference: /freebsd-11-stable/tools/tools/kdrv/KernelDriver

58 # linttext			Lines between this and a subsequent 'end' line are added
162     while {[gets $fh line] >= 0} {
165 	if {([llength $line] == 0) ||
166 	    ([string index $line 0] == "\#")} {
171 	switch -- [lindex $line 0] {
173 		set Drv(description) [lindex $line 1];
176 		set Drv(driver) [lindex $line 1];
179 		set path [lindex $line 1];
184 		set name [lindex $line 2];
189 		set path [lindex $line 1];
194 		set name [lindex $line 2];
199 		set opt [lindex $line 1];
200 		set hdr [lindex $line 2];
205 		set opt [lindex $line 1];
206 		set hdr [lindex $line 2];
211 		lappend Drv(patches) [lindex $line 1];
214 		while {[gets $fh line] >= 0} {
215 		    if {$line == "end"} {
218 		    lappend Drv(linttext) $line;
502     while {[gets $fh line] >= 0} {
505 	if {[scan $line "\#\# driver: %s" driver] == 1} {
507 	    gets $fh line;
509 	    while {[gets $fh line] >= 0} {
511 		if {$line == "\#\# enddriver"} {
515 		if {[scan $line "%s %s" opt hdr] == 2} {
533     while {[gets $fh line] >= 0} {
536 	if {[scan $line "\#\# driver: %s" driver] == 1} {
538 	    gets $fh line;
540 	    while {[gets $fh line] >= 0} {
542 		if {$line == "\#\# enddriver"} {
546 		if {[scan $line "%s %s" opt hdr] == 2} {
560     while {[gets $fh line] >= 0} {
563 	if {[scan $line "\#\# driver: %s" driver] == 1} {
568 	    gets $fh line;
569 	    set Drv(description) [string range $line 2 end];
580 	    while {[gets $fh line] >= 0} {
581 		if {$line == "\#\# enddriver"} {
586 		if {[scan $line "\# filei386: %s" fpath] == 1} {
599     while {[gets $fh line] >= 0} {
602 	if {[scan $line "\#\# driver: %s" driver] == 1} {
607 	    gets $fh line;
608 	    set Drv(description) [string range $line 2 end];
619 	    while {[gets $fh line] >= 0} {
620 		if {$line == "\#\# enddriver"} {
625 		if {[scan $line "\# fileconf: %s" fpath] == 1} {
682     while {[gets $fh line] >= 0} {
683 	if {[scan $line "\#\# driver: %s" name] == 1} {
689 	    set line [gets $fh];
690 	    set Drv(description) [string range $line 2 end];
693 	    while {[gets $fh line] >= 0} {
694 		if {$line == "\#\# enddriver"} {
698 		if {[scan $line "\# file: %s" fpath] == 1} {
722     while {[gets $fh line] >= 0} {
723 	if {[scan $line "\#\# driver: %s" name] == 1} {
729 	    set line [gets $fh];
730 	    set Drv(description) [string range $line 2 end];
733 	    while {[gets $fh line] >= 0} {
734 		if {$line == "\#\# enddriver"} {
738 		if {[scan $line "\# file: %s" fpath] == 1} {
884 	while {[gets $ifh line] >= 0} {
886 	    if {[scan $line "\#\# driver: %s" name] == 1} {
892 		puts $ofh $line;		# copy through
894 	    if {$line == "\#\# enddriver"} {	# end of driver detail