Index: trunk/tests/RTT/Rtt.sh =================================================================== --- trunk/tests/RTT/Rtt.sh (revision 21072) +++ trunk/tests/RTT/Rtt.sh (revision 21073) @@ -13,4 +13,4 @@ then mv core "$fn.core" fi -) 2>&1 | grep -v "PCBChanged\|readres=-1\|No PCB loaded\|pcb-gpmi hid is loaded\|has no font information, using default font\|WARNING.*is not uninited\|but first saves\|WARNING.*left registered\|gpmi dirs:" +) 2>&1 | grep -v "PCBChanged\|readres=-1\|No PCB loaded\|has no font information, using default font\|WARNING.*is not uninited\|but first saves\|WARNING.*left registered\|gpmi dirs:" Index: trunk/util/genref.sh =================================================================== --- trunk/util/genref.sh (revision 21072) +++ trunk/util/genref.sh (nonexistent) @@ -1,226 +0,0 @@ -#!/bin/sh - -# generate reference html from gpmi headers -# requires c99tree (probably svn HEAD version) - -prinit=' -#define GPMI_GPMI_PACKAGE_H -#define multiple __attribute__((multiple)) -#define dynamic __attribute__((dynamic)) -#define direct __attribute__((direct)) -#define nowrap __attribute__((nowrap)) - -#define gpmi_define_event(name) void GPMI_EVENT__ ## name -' - -fn="$1" -root="$2" -refname="$3" -shift 3 - -pkgfn=`basename $fn` -pkg=${pkgfn%%.h} -echo " - -

PCB GPMI

-

Reference manual for package $pkg

-Automatically generated from $pkgfn -" - - -c99tree awk -I$root -I$root/src_3rd "$@" \ - --gtx 'events=([] /+ d=[type == DECL]) && (d / i=[name ~ "GPMI_EVENT"]) && (i .+ [type == TYPE] . a=[type == ARGLIST] ) && (d : [loc_is_local == "1"])' \ - --gtx 'funcs=([] /+ d=[type == DECL]) && (d / i=[!name ~ "GPMI_EVENT"]) && (i .+ [type == TYPE] . [] >* a=[type == ARGLIST] ) && (d : [loc_is_local == "1"])' \ - --gtx 'enums=([] /+ i=[type == ENUM]) && (i : [loc_is_local == "1"])' \ - --paste "$prinit" $fn --awk-s ' - -function load(fn, s) -{ - while((getline line < fn) > 0) - s = s line "\n" - return s -} - -#function getsrc(source, uid ,L) -#{ -# print TREE[uid, C99F_LOCSTR] -# if (split(TREE[uid, C99F_LOCSTR], L, ":") != 2) -# return "???" -# -# print L[1] "-" L[2] -# return substr(source, L[1], L[2]-L[1]) -#} - -function print_tree(TREE, uid, ind, jump_next,s) -{ - while(uid != "") { -#print "U", ind, uid, "ty=" C99SYM[TREE[uid, C99F_TYPE]] " nm=" TREE[uid, C99F_NAME] - s = s ind C99SYM[TREE[uid, C99F_TYPE]] " " TREE[uid, C99F_NAME] " [0:0] (-1)\n" - s = s print_tree(TREE, TREE[uid, C99F_CHILD, 0], ind " ", 1) - if (!jump_next) - break; - uid = TREE[uid, C99F_NEXT] - } - return s -} - -function to_c(TREE, uid ,tr,line,all) -{ - tr = "FILE (%l)\n GRAMMAR_TREE [0:0] (-1)\n" - tr = tr print_tree(TREE, uid, " ") - - cmd = "echo \"" tr "\" | c99tree-cc -tind -Tc" - close(cmd) - while((cmd | getline line) > 0) - all = all line " " - close(cmd) - return all -} - -function get_any_comment(TREE, uid, bump_uid, dir ,cmt_uid,cmt) -{ - cmt_uid = TREE[uid, C99F_TWIN_PARENT] - bump_uid = TREE[bump_uid, C99F_TWIN_PARENT] - while(cmt_uid != "") { - cmt_uid = TREE[cmt_uid, dir] - if (cmt_uid == bump_uid) { - cmt = cmt "<comment missing in the header>" - break - } - if (TREE[cmt_uid, C99F_TYPE] == C99T_COMMENT) { - cmt = TREE[cmt_uid, C99F_NAME] - break - } - } - sub("^[/][*]", "", cmt) - sub("[*][/]$", "", cmt) - return cmt -} - -function get_pre_comment(TREE, uid, bump_uid) -{ - return get_any_comment(TREE, uid, bump_uid, C99F_PREV) -} - -function get_post_comment(TREE, uid, bump_uid) -{ - return get_any_comment(TREE, uid, bump_uid, C99F_NEXT) -} - -function genid(type, id) -{ - print "" - print type, id, refname "#" id > fn_ref -} - -BEGIN { - pkg="'$pkg'" - c99tree_unknown(TREE) - gtx_init(TREE) - pkgfn="'$pkgfn'" - fn_ref = "'$pkgfn'" - sub(".h$", "", fn_ref) - fn_ref = "REF." fn_ref - refname="'$refname'" - - -# source=load("'$fn'") - - enums = gtx_find_results(TREE, "enums") - if (TREE[enums, C99F_CHILDREN] > 0) { - print "

Enums

" - print "
" - print "

Enum values should be passed on as strings." - for(r = 0; 1; r++) { - if (gtx_get_map(TREE, MAP, enums, r) == "") - break - id = TREE[MAP["i"], C99F_NAME] - - genid("enum", id); - print "

" id "

" - print "
"
-		print get_pre_comment(TREE, MAP["i"])
-		print "
" - - print "" - print "
value meaning" - for(c = 0; c < TREE[MAP["i"], C99F_CHILDREN]; c++) { - uid = TREE[MAP["i"], C99F_CHILD, c] - nuid = TREE[MAP["i"], C99F_CHILD, c+1] - if (nuid == "") - nuid=TREE[TREE[MAP["i"], C99F_PARENT], C99F_NEXT] - print "
", TREE[uid, C99F_NAME], "", get_post_comment(TREE, uid, nuid) - } - print "
" - } - print "
" - } - - events = gtx_find_results(TREE, "events") - if (TREE[events, C99F_CHILDREN] > 0) { - print "

Events

" - print "
" - print "

Events do not have return value. The first argument is always the even id. Event handlers defined in scripts get all event arguments converted to string (types below are informational)." - for(r = 0; 1; r++) { - if (gtx_get_map(TREE, MAP, events, r) == "") - break - id = TREE[MAP["i"], C99F_NAME] - sub("^GPMI_EVENT__", "", id) - proto = to_c(TREE, MAP["d"]) - sub("^[ \t]*void[ \t]*GPMI_EVENT__", "", proto) - sub("[(]", "(int event_id,", proto) -# proto = getsrc(source, MAP["d"]) - - genid("event", id); - print "

" proto "

" - print "
"
-		luid=TREE[MAP["d"], C99F_PREV]
-		print get_pre_comment(TREE, MAP["a"], luid)
-		print "
" - } - print "
" - } - - funcs = gtx_find_results(TREE, "funcs") - if (TREE[funcs, C99F_CHILDREN] > 0) { - print "

Functions

" - print "
" - print "

The following functions are registered in script context." - for(r = 0; 1; r++) { - if (gtx_get_map(TREE, MAP, funcs, r) == "") - break - id = TREE[MAP["i"], C99F_NAME] - if (id ~ "^package_" pkg "_") - continue - if (id ~ "^pkg_" pkg "_") - continue - - sub("^GPMI_EVENT__", "", id) -# print "" getsrc(source, MAP["d"]) "" - proto = to_c(TREE, MAP["d"]) -# proto = getsrc(source, MAP["d"]) - - gsub("[(][ \t]*", "(", proto) - genid("function", id); - print "

", proto, "

" - print "
"
-		luid=TREE[MAP["d"], C99F_PREV]
-		if (TREE[luid, C99F_TWIN_PARENT] == "")
-			luid = TREE[luid, C99F_CHILD, 0]
-		if (TREE[luid, C99F_TWIN_PARENT] == "")
-			luid = TREE[luid, C99F_CHILD, 0]
-
-		print get_pre_comment(TREE, MAP["a"], luid)
-		print "
" - } - print "
" - } -} -' - -echo " - - -" - - Property changes on: trunk/util/genref.sh ___________________________________________________________________ Deleted: svn:executable ## -1 +0,0 ## -* \ No newline at end of property