proc template;
define tagset tagsets.phtml;
notes "This is the plain HTML definition";
/* until inheritance is fixed */
%let map =<>%nrstr(&)%str(%')%str(%");
map="&map";
mapsub = '/</>/&/'/"/';
/* old map
map = '<>&';
mapsub = '/</>/&/';
*/
nobreakspace = ' ';
split = '
';
stacked_columns = yes;
output_type = 'html';
image_formats = 'gif,jpeg,png,java,activex';
breaktext_ratio = 2.5;
breaktext_width = 40;
breaktext_length = 80;
ext_graph_instance = yes;
embedded_stylesheet=yes;
copyright='©';
trademark='™';
registered_tm='®';
beginwellformed = '<';
endwellformed = '>';
define event putvars;
put "event vars" nl;
putvars event "name: " _name_ " = " _value_ nl;
put "memory vars" nl;
putvars mem "name: " _name_ " = " _value_ nl;
put "style vars" nl;
putvars style "name: " _name_ " = " _value_ nl;
end;
define event initialize;
trigger set_just_lookup;
end;
define event show_charset;
set $show_charset "1" / if !exists(suppress_charset);
end;
define event put_value;
put VALUE;
end;
define event put_value_cr;
put VALUE nl;
end;
define event dynamic;
put "Content-Type: text/html" CR CR CR;
end;
define event stylesheet_link;
break /if !exists(url);
set $urlList url;
trigger urlLoop ;
unset $urlList;
put '' CR ;
end;
define event contents_stylesheet_link;
set $urlList url;
trigger urlLoop / if exists(url);
unset $urlList;
end;
define event link;
putq '' nl;
end;
define event urlLoop;
eval $index 1;
set $current_url scan($urlList, $index, ' ');
do /while !cmp($current_url, ' ');
set $current_url trim($current_url);
trigger link;
eval $index $index + 1;
set $current_url scan($urlList, $index, ' ');
done;
end;
/*
define event urlLoop;
eval $space_pos index($urlList, " ");
do /while $space_pos ne 0;
do /if $space_pos ne 0;
set $current_url substr($urlList,1,$space_pos);
set $current_url trim($current_url);
done;
trigger link;
set $urlList substr($urlList,$space_pos);
set $urlList strip($urlList);
eval $space_pos index($urlList, " ");
done;
*/
/* when space_pos is 0 it's either the only link or the last link */
/*
set $current_url $urlList;
trigger link;
end;
*/
define event top_file;
start:
put HTMLDOCTYPE CR;
put "" CR;
finish:
put "" CR;
end;
define event top_title;
put "";
put "SAS Output Frame" / if !exists(value);
put VALUE;
put "" CR;
end;
define event top_code;
start:
set $content_position "first" /if cmp(type, 'f');
set $content_position "last" /if cmp(type, 'l');
set $content_orientation "horizontal" /if cmp(colcount, '1');
set $content_orientation "vertical" /if cmp(colcount, '2');
put "' CR;
/* create a frameset to hold the two contents files if they both exist. */
trigger contents_pages_frameset start/ if cmp(type, "f");
finish:
put "<![CDATA[" nl;
put "<body>" nl ;
put "<ul>" nl ;
unset $link;
set $link contents_url /if exists(contents_url);
set $link contents_name /if !exists($link);
put '<li><a href="' $link '">The Table of Contents</a></li>' nl /if exists($link);
unset $link;
set $link pages_url /if exists(pages_url);
set $link pages_name /if !exists($link);
put '<li><a href="' $link '">The Table of Pages</a></li>' nl /if exists($link);
unset $link;
set $link body_url /if exists(body_url);
set $link body_name /if !exists($link);
put '<li><a href="' $link '">The Contents</a></li>' nl /if exists($link);
put "</ul>" nl ;
put "</body>" nl ;
put "]]>" nl;
put "" nl;
end;
define event contents_pages_frameset;
start:
break /if !exists(pages_name, contents_name);
put "' nl;
finish:
break /if !exists(pages_name, contents_name);
put "" nl;
end;
define event content_frameset;
put "23%" / if !exists(CONTENTSIZE);
put CONTENTSIZE;
end;
define event body_frameset;
put "*" / if !exists(BODYSIZE);
put BODYSIZE;
end;
define event pages_frame;
break /if !exists(pages_name);
put '" CR;
/* close up the frameset for the contents files if they both exist */
trigger contents_pages_frameset finish;
end;
define event content_frame;
break /if !exists(contents_name);
put '" CR;
end;
define event body_frame;
put '" CR;
/* create a frameset to hold the two contents files if they both exist. */
trigger contents_pages_frameset start/ if cmp($content_position, "last");
end;
define event doc;
start:
put HTMLDOCTYPE CR;
put "" CR;
finish:
put "" CR;
end;
define event doc_head;
start:
put "" CR;
put VALUE CR ;
finish:
put "" CR;
end;
define event code_body;
trigger contents_code;
end;
define event contents_bullet_style;
put "" CR CR;
end;
define event contents_javascript;
trigger contents_bullet_style;
trigger contents_inline_code /if !any(code_name, code_url);
trigger contents_code_link /if any(code_name, code_url);
put CR;
put "" CR;
end;
define event contents_inline_code;
trigger javascript_tag start;
trigger contents_code;
trigger javascript_tag finish;
end;
define event javascript_tag;
start:
put "" CR;
put "" CR;
end;
define event contents_code;
put "var openimage = 'folderopen.gif';" CR;
put "var closeimage = 'folderclosed.gif';" CR;
put CR;
put "var initialized = false;" CR;
put "var expanded = false;" CR;
put CR;
put "// Check for DOM support" CR;
put "var DOMsupport = false;" CR;
put 'if (document.getElementById && ' CR;
put ' document.createTextNode && ' CR;
put " document.createElement)" CR;
put " DOMsupport = true;" CR;
put CR;
put "function getAllLists()" CR;
put "//" CR;
put "// Get a list of all lists in the document" CR;
put "// " CR;
put "{" CR;
put " var lists = new Array();" CR;
put " var uls = document.getElementsByTagName('UL');" CR;
put " for (var i = 0; i < uls.length; i++)" CR;
put " lists[lists.length] = uls[i];" CR;
put " var ols = document.getElementsByTagName('OL');" CR;
put " for (var i = 0; i < ols.length; i++)" CR;
put " lists[lists.length] = ols[i];" CR;
put " return lists;" CR;
put "}" CR;
put CR;
put "function getAllListItems()" CR;
put "//" CR;
put "// Get a list of all list items in the document" CR;
put "//" CR;
put "{" CR;
put " return document.getElementsByTagName('LI');" CR;
put "}" CR;
put CR;
put "function expandCollapse()" CR;
put "{" CR;
put " if ( expanded ) collapseAll();" CR;
put " else expandAll();" CR;
put "}" CR;
put CR;
put "function collapseAll()" CR;
put "//" CR;
put "// Collapse all lists down to 'level' " CR;
put "//" CR;
put "{" CR;
put " initAll(null, false);" CR;
put " expanded = false;" CR;
put "}" CR;
put CR;
put "function expandAll(level)" CR;
put "//" CR;
put "// Expand all lists up to 'level' " CR;
put "//" CR;
put "{" CR;
put " initAll(level, true);" CR;
put " expanded = true;" CR;
put "}" CR;
put "" CR;
put "function initAll(level, visible)" CR;
put "//" CR;
put "// Expand/collapse all lists up to 'level' " CR;
put "//" CR;
put "{" CR;
put " if ( !DOMsupport ) return;" CR;
put CR;
put " // Initialize list elements to their starting behavior" CR;
put " if ( !initialized ) " CR;
put " {" CR;
put " initialized = true;" CR;
put CR;
put " // Set onclick events for all items with nested lists" CR;
put " var items = getAllListItems();" CR;
put " for (var i = 0; i < items.length; i++)" CR;
put " {" CR;
put " var elem = items[i];" CR;
put " if ( elem.getElementsByTagName('UL') ||" CR;
put " elem.getElementsByTagName('OL') )" CR;
put " {" CR;
put " elem.onclick = toggleView;" CR;
put " elem.style.cursor = 'pointer';" CR;
put " }" CR;
put " }" CR;
put CR;
put " collapseAll();" CR;
put " }" CR;
put CR;
put " // If level is undefined or less than zero, expand everything" CR;
put " if ( !level || level < 0 ) " CR;
put " level = -1;" CR;
put CR;
put " var lists = getAllLists();" CR;
put CR;
put " for (var i=0; i < lists.length; i++)" CR;
put " {" CR;
put " nesting = getNestingLevel(lists[i]);" CR;
put ' if ( nesting == 0 && visible == false )' CR;
put " continue;" CR;
put " if ( level == -1 || nesting < level )" CR;
put " {" CR;
put " setDisplay(lists[i], visible);" CR;
put CR;
put " var li = lists[i].parentNode;" CR;
put ' while ( li && li.nodeName != ''LI'' )' CR;
put " li = li.parentNode;" CR;
put " if ( li ) setImage(li, visible);" CR;
put " }" CR;
put " }" CR;
put "}" CR;
put CR;
put "function setDisplay(elem, visible)" CR;
put "{" CR;
put " var display = (visible) ? 'block' : 'none';" CR;
put " elem.style.display = display;" CR;
put "}" CR;
put CR;
put "function setImage(elem, visible)" CR;
put "{" CR;
put " if ( !openimage || !closeimage ) return;" CR;
put CR;
put " var images = elem.getElementsByTagName('IMG');" CR;
put " " CR;
put " if ( !images.length ) return;" CR;
put CR;
put " var image = images[0];" CR;
put CR;
put " image.src = ( visible ) ? openimage : closeimage;" CR;
put "}" CR;
put CR;
put "function toggleView(e)" CR;
put "//" CR;
put "// If the children of this item are hidden, display them." CR;
put "// If they are displayed, hide them." CR;
put "//" CR;
put "{" CR;
put " var elem = (window.event) ? window.event.srcElement : e.target;" CR;
put CR;
put ' while ( elem && elem.nodeName != ''LI'' )' CR;
put " {" CR;
put " if ( elem.nodeName == 'A' ) " CR;
put " return true;" CR;
put " elem = elem.parentNode;" CR;
put " }" CR;
put CR;
put " if ( !elem ) return;" CR;
put CR;
put " var children = elem.childNodes;" CR;
put CR;
put " for (var i = 0; i < children.length; i++)" CR;
put " {" CR;
put " c = children[i];" CR;
put ' if ( c.nodeName != ''UL'' && c.nodeName != ''OL'' ) continue;' CR;
put " if ( !c.style ) continue;" CR;
put " setImage(elem, (c.style.display != 'block'));" CR;
put " setDisplay(c, (c.style.display != 'block'));" CR;
put " }" CR;
put CR;
put " if (window.event) window.event.cancelBubble = true;" CR;
put " else e.stopPropagation();" CR;
put "" CR;
put " return false;" CR;
put "}" CR;
put "" CR;
put "function getNestingLevel(elem)" CR;
put "//" CR;
put "// Get the nesting level of the given list" CR;
put "//" CR;
put "{" CR;
put " var parent = elem.parentNode;" CR;
put " var level = 0;" CR;
put ' while ( parent && parent.nodeName != ''BODY'' )' CR;
put " { " CR;
put " if ( parent.nodeName == 'UL' || " CR;
put " parent.nodeName == 'OL' )" CR;
put " level++;" CR;
put " parent = parent.parentNode;" CR;
put " }" CR;
put " return level;" CR;
put "}" CR;
end;
define event contents_head;
start:
trigger doc_head;
finish:
trigger contents_javascript;
trigger doc_head;
end;
define event contents_code_link;
put "';
put "" CR;
put "" CR;
end;
define event top_head;
start:
put "" CR;
put VALUE CR;
finish:
put "" CR;
end;
define event doc_title;
put "";
put "SAS Output" / if !exists(VALUE);
put VALUE;
put "" CR;
end;
define event content_title;
put "";
put "SAS Output" / if !exists(VALUE);
put VALUE;
put "" CR;
end;
define event doc_meta;
put '' CR;
trigger show_charset;
put "" nl /if exists(value);
break /if !any( htmlcontenttype, encoding);
break /if ^exists(htmlcontenttype) and ^exists($show_charset);
put "' CR;
end;
define event top_meta;
put '' CR;
trigger show_charset;
put "" nl /if exists(value);
break /if !any( htmlcontenttype, encoding, $show_charset);
put "' CR;
end;
define event ie_check;
trigger javascript start;
put 'var _info = navigator.userAgent' CR;
put 'var _ie = (_info.indexOf("MSIE") > 0' CR;
put ' && _info.indexOf("Win") > 0' CR;
put ' && _info.indexOf("Windows 3.1") < 0);' CR;
set $ieCheckDone "true";
trigger javascript finish;
end;
/* Web Accessibility Feature 1194.22 (I) */
/*-----------------------------------------*/
define event doc_body;
put '" CR;
trigger pre_post;
put CR;
trigger ie_check;
finish:
trigger pre_post;
put "" CR;
end;
define event doc_foot;
start:
put "" CR;
finish:
put "" CR;
end;
/* Web Accessibility Feature 1194.22 (I) */
/*-----------------------------------------*/
define event javascript;
start:
put '" CR CR;
put '' CR; /* 508 */
end;
define event startup_function;
start:
put "function startup(){" CR CR;
finish:
put TAGATTR CR;
put "}" CR;
end;
define event shutdown_function;
start:
put "function shutdown(){" CR CR;
finish:
put TAGATTR CR;
put "}" CR;
end;
define event windowload;
put VALUE CR;
end;
define event contents;
start:
put HTMLDOCTYPE CR;
put "" CR;
finish:
put "" CR;
end;
define event contents_body;
start:
put "" CR;
finish:
put " " CR;
end;
define event preformatted;
start:
put "