diff options
Diffstat (limited to 'Master/texmf-dist/tex/generic/dratex/TeXProject.sty')
| -rw-r--r-- | Master/texmf-dist/tex/generic/dratex/TeXProject.sty | 2678 |
1 files changed, 2678 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/generic/dratex/TeXProject.sty b/Master/texmf-dist/tex/generic/dratex/TeXProject.sty new file mode 100644 index 00000000000..056e9eca835 --- /dev/null +++ b/Master/texmf-dist/tex/generic/dratex/TeXProject.sty @@ -0,0 +1,2678 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 2001-02-14-12:58 +% TeXProject.sty % +% Copyright (C) 1995 Stephane Bressan & Eitan M. Gurari % +% % +% This program can redistributed and/or modified under % +% the terms of the LaTeX Project Public License % +% Distributed from CTAN archives in directory % +% macros/latex/base/lppl.txt; either version 1 of the % +% License, or (at your option) any later version. % +% % +% However, you are allowed to modify this program % +% without changing its name, if you modify its % +% signature. Changes to the signature can be introduced % +% with a directive of the form % +% \message{signature} % +% % +% Stephane.Bressan@ecrc.de gurari@cis.ohio-state.edu % +% http://www.cis.ohio-state.edu/~gurari/ % +% Needs: % +% DraTex.sty and AlDraTex.sty % +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\immediate\write-1{version 2001-02-14-12:58} +\ifx\Draw\UnDefined + \def\DrawRect{\input DraTex.sty } + \expandafter\DrawRect +\fi +\ifx\Tree\UnDefined + \def\Tree{\input AlDraTex.sty } + \expandafter\Tree +\fi +\expandafter\edef\csname :RestoreCatcodes\endcsname{% + \catcode`\noexpand\noexpand\noexpand \^=\the\catcode`\^% +} +\catcode`\^=7 +\expandafter\edef\csname :RestoreCatcodes\endcsname{% + \csname :RestoreCatcodes\endcsname + \catcode`\noexpand \_=\the\catcode`\_% + \catcode`\noexpand \ =\the\catcode`\ % + \catcode`\noexpand \&=\the\catcode`\&% + \catcode`\noexpand :=\the\catcode`:% + \catcode`\noexpand \^^M=\the\catcode`\^^M% + \let\expandafter\noexpand + \csname:RestoreCatcodes\endcsname=\noexpand\undefined} +\catcode`\^^M=9 \catcode`\ =9 \catcode`\&=13 \relax + \expandafter + \def\csname reseffB:\endcsname#1{\csname reseffC:\endcsname#1:} +\expandafter + \def\csname reseffC:\endcsname#1:#2:{ + \csname reseff:\endcsname{#1}{#2}} + \catcode`\:=11 \relax + \newif\ifpwarnn: +\def\warningsoff{\pwarnn:false} +\def\warningson{\pwarnn:true} +\warningson +\def\pwarn:#1{\ifpwarnn: \immediate\write16{l.\the\inputlineno + \space--- warning ---\space #1}\fi} +\def\whitedef:#1{ + \expandafter\def\csname #1\endcsname{\bgroup + \ignorewhite: \csname #1:X\endcsname} + + \expandafter\def\csname #1:X\endcsname##1{\egroup + \expandafter\ifx\csname##1 :type\endcsname\relax \else + \pwarn:{Redefining\space##1?} + \fi + \edef\items:{\item:{##1}\items:} + \expandafter\let\csname##1 :bool\endcsname=\empty + \expandafter\edef\csname##1 :prjid\endcsname{ + \expandafter\noexpand\csname\projectid: :minmax\endcsname} + \csname #1:Y\endcsname{##1}} + \expandafter\def\csname #1:Y\endcsname} + +\def\ignorewhite:{ \ifnum \the\catcode`\ =9 \else + \catcode`\ =9 \catcode`\^^M=9 \catcode`\^^I=9 \relax \fi } +\def\forbiencomm:{\pwarn:{\string\newproject\space missing}} +\def\defcom#1{ + \expandafter\def\csname#1\endcsname{ + \bgroup \ignorewhite: \csname#1:A\endcsname} + \expandafter\def\csname#1:A\endcsname##1{\egroup + \csname#1:B\endcsname{##1}} + \expandafter\def\csname#1:B\endcsname} +\def\verify:::#1{ + \expandafter\ifx\csname#1 :title\endcsname\relax \pwarn:{#1?} \fi + \csname#1 :prjid\endcsname +% +} +\IntVar\I:I \IntVar\J:J \IntVar\K:K +\DecVar\Q:Q \DecVar\R:R \DecVar\T:T + + \def\tasknode:{0} +\def\milestonenode:{1} +\def\projectnode:{2} +\whitedef:{DEFTASK:}#1#2{ + \expandafter\edef\csname#1 :type\endcsname{\tasknode:} + \expandafter\def\csname#1 :title\endcsname{#2} + \bgroup \ignorewhite: \deftaskA:{#1}} + +\def\deftaskA:#1#2#3#4#5{\egroup + \expandafter\edef\csname#1 :date1\endcsname{#2} + \expandafter\edef\csname#1 :date2\endcsname{#3} + \def\temp:{#4} +\ifx\temp:\empty + \pwarn:{`#1'\space has\space no\space contributions} +\else + \getlist:{#1 :eff}{#4}\reseffA: + \let\reseff:=\relax + \let\reseffA:=\reseffB: + \expandafter\edef\csname#1 :eff\endcsname{\csname#1 :eff\endcsname} +\fi + + \setprev:{#1}{#5} + \deftaskB:{#1}} + +\def\deftaskB:#1#2{ + \expandafter\def\csname#1 :desc\endcsname{#2} + \trace:{#1} } +\whitedef:{DEFMILESTONE:}#1#2#3{ + \expandafter\edef\csname#1 :type\endcsname{\milestonenode:} + \expandafter\def\csname#1 :title\endcsname{#2} + \expandafter\edef\csname#1 :date\endcsname{#3} + \bgroup \ignorewhite: \defmilestoneA:{#1}} + +\def\defmilestoneA:#1#2{\egroup + \setprev:{#1}{#2} + \defmilestoneB:{#1}} + +\def\defmilestoneB:#1#2{ + \expandafter\def\csname#1 :desc\endcsname{#2} + \trace:{#1}} +\whitedef:{DEFPROJECT:}#1#2{ + \expandafter\edef\csname#1 :type\endcsname{\projectnode:} + \edef\projects:{{#1}{\projects:}} + \expandafter\def\csname#1 :title\endcsname{#2} + \bgroup \ignorewhite: \defprojectA:{#1}} + +\def\defprojectA:#1#2#3{\egroup + \getlist:{#1 :under}{#2}\utask: +\def\utask:##1{% + \sapply{:temp,merge, + {\expandafter \ifx \csname ##1:ancs\endcsname\relax\else + \csname ##1:ancs\endcsname\fi},{#1}} + \expandafter \let \csname ##1: ancs\endcsname= \:temp:mkls + \let\:temp:mkls =\:UnDef + } +\csname#1: under\endcsname + + + \setprev:{#1}{#3} + \defprojectB:{#1}} + +\def\defprojectB:#1#2{ + \expandafter\def\csname#1 :desc\endcsname{#2} + \trace:{#1}} +\def\setproject:data#1{ + \expandafter\ifx\csname#1 :type\endcsname\relax + \pwarn:{Missing\space `#1'} + \fi + \ifnum\csname#1 :type\endcsname=\projectnode:\relax + \expandafter\ifx\csname#1 :date1\endcsname\relax + \def\minY:{10000} \def\minM:{10000} \def\minD:{10000} +\def\maxY:{0} \def\maxM:{0} \def\maxD:{0} + + \let\utask:=\utask:I +\csname#1 :under\endcsname + + \expandafter\edef\csname#1 :date1\endcsname{\minD:/\minM:/\minY:} +\expandafter\edef\csname#1 :date2\endcsname{\maxD:/\maxM:/\maxY:} + + \fi \fi +} + + \def\newproject{ + \let\item:=\relax +\def\items:{} +\tcount:=0\relax +\let\deftask=\DEFTASK: +\let\defmilestone=\DEFMILESTONE: +\let\defproject=\DEFPROJECT: +\let\restoregal::=~ +\def\restoregal:{\let~=\restoregal::} +\def\projects:{} +\def\verify:##1{} +\def\verify::##1{} +\let\minmaxdates=\MINMAXDATES: +\MINMAXDATES:{1/1/0//31/12/99} + +} +\def\endprojectdefA:{ \let\deftask=\forbiencomm: +\let\defmilestone=\deftask +\let\defproject=\deftask +\let\minmaxdates=\forbiencomm: + +} +\endprojectdefA: + +\def\endnewproject{ + \endprojectdefA: \def\item:##1{ + \let\prev:=\checkmemb: \csname##1 :prev\endcsname + \let\utask:=\checkmemb: \csname##1 :under\endcsname +} +\items: + +\ifx \projects:\empty\else + \expandafter\setproject:\projects: + \expandafter\verify:dates:\projects: +\fi + + \def\item:##1{ \expandafter\let\csname##1 :bool\endcsname=\UnDef: } +\items: +\let\item:=\UnDef: +\let\items:=\UnDef: +\restoregal: +\let\projects:=\UnDef: +\let\verify:=\verify::: +\let\verify::=\verify::: + + \I:I=\projectid:; \I:I+1; \edef\projectid:{\Val\I:I} +} + + \def\filtercommand{ + \def\filtercommand:##1{ + \def\putcommand{##1} + \let\filtercommand:=\empty +} } +\let\filtercommand:=\empty +\defcom{name}#1{ \verify:{#1} + \expandafter\expandafter\expandafter\filtercommand: + \expandafter\expandafter\expandafter{\csname#1 :title\endcsname }} +\defcom{annotation}#1{ \verify:{#1} + \expandafter\expandafter\expandafter\filtercommand: + \expandafter\expandafter\expandafter{\csname#1 :desc\endcsname}} +\defcom{resource}#1{{ \verify:{#1} +\ifnum\csname#1 :type\endcsname=\milestonenode:\space + \pwarn:{`#1'\space has\space no\space resources} ??? +\fi +\def\sepitems:{\def\sepitems:{\append:Def\all:des{,\space}}} +\let\reseff:=\reseffI: \let\all:des=\empty +\traversedo:{#1}\listrsrc: +\expandafter\def\expandafter\all:des + \expandafter{\expandafter\filtercommand:\expandafter{\all:des}} + \expandafter}\all:des} +\defcom{effort}#1{{ \def\temp:##1,##2,##3//{ + \def\first:{##1} \def\second:{##2} +} +\temp:#1,,// \verify:{\first:} +\ifnum\csname\first: :type\endcsname=\milestonenode:\space + \pwarn:{`#1'\space has\space no\space resources} ??? + \let\:temp=\empty +\else + \findeffort:\first:\second: + \edef\:temp{\noexpand\filtercommand:{\temp:}} +\fi + \expandafter}\:temp} +\defcom{contributions}#1{{ \verify:{#1} +\ifnum\csname#1 :type\endcsname=\milestonenode:\space + \pwarn:{`#1'\space has\space no\space contributions} ??? +\else \findthecontri:{#1} \fi + }} +\defcom{start}#1{ \verify:{#1} \startfinish:{#1}1 } + +\defcom{finish}#1{\verify:{#1} \startfinish:{#1}2 } + +\def\startfinish:#1#2{ + \ifnum\csname#1 :type\endcsname=\milestonenode:\relax + \expandafter\expandafter\expandafter + \filtercommand: \expandafter\expandafter\expandafter + {\expandafter\expandafter\expandafter + \showdate:\csname#1 :date\endcsname/0/0/0//} + \else + \expandafter\expandafter\expandafter + \filtercommand: \expandafter\expandafter\expandafter + {\expandafter\expandafter\expandafter + \showdate:\csname#1 :date#2\endcsname/0/0/0//} + \fi } +\defcom{apply}#1{ \apply:#1,,,,// } +\defcom{rapply}#1{ \rapply:#1,,,,// } +\defcom{sapply}#1{ + \edef\:temp{\Val\I:I} +\push:macro\:temp + + \def\temp:##1,##2,##3,##4/+/-]/[{ + \def\result:lst{##1} \let\list:op=\empty + \IF \EqText(##2,merge)\THEN + \def\list:op{\two:args#1,/+/-]/[ +\expandafter\edef\csname \result:lst :mkls\endcsname{\arg:one,\arg:two} +\cln:res + +}\FI + \IF \EqText(##2,intersect)\THEN + \def\list:op{\two:args#1,/+/-]/[ +\get:result\in:both +\cln:res + +} \FI + \IF \EqText(##2,subtract)\THEN + \def\list:op{\two:args#1,/+/-]/[ +\get:result\first:only +\cln:res + +} \FI + \IF \EqText(##2,milestones)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\let\arg:one=\arg:two +\get:result\scr:mi +\cln:res + +} \FI + \IF \EqText(##2,tasks)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\let\arg:one=\arg:two +\get:result\scr:ta +\cln:res + +} \FI + \IF \EqText(##2,projects)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\let\arg:one=\arg:two +\get:result\scr:pr +\cln:res + +} \FI + \IF \EqText(##2,after)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\let\arg:one=\arg:two +\get:result\scr:af +\cln:res + +}\FI + \IF \EqText(##2,before)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\let\arg:one=\arg:two \def\prev:########1{,########1} +\get:result\scr:be +\cln:res + +}\FI + \IF \EqText(##2,up)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\let\arg:one=\arg:two +\get:result\scr:up +\cln:res + +} \FI + \IF \EqText(##2,down)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\let\arg:one=\arg:two \def\utask: ########1{,########1} +\get:result\scr:dw +\cln:res + +} \FI + \IF \EqText(##2,sort)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\let\arg:one=\arg:two +\let\:temp\empty +\get:result\scr:srt \sapply{##1,\gob:I} + +} \FI + \IF \EqText(##2,defproject)\THEN + \def\list:op{\one:args#1,/+/-]/[ +\df:spr#1/+/-]/[ +\ifx \arg:two\empty + \pwarn:{defproject\space ##1\space without\space members?} +\else + \let\arg:one=\arg:two + \get:result\scr:df + \edef\:temp{{##1}{\AA:k}{\:temp}{}{\BB:k}} + \expandafter\let\csname##1 :date1\endcsname\relax + \expandafter\let\csname##1 :date2\endcsname\relax + \push:macro\checkmemb: \def\checkmemb:########1{} + \newproject \expandafter\defproject\:temp \endnewproject + \pop:macro\checkmemb: +\fi +} \FI + \IF \EqText(##1,traceon)\THEN + \def\list:op{\let\rs:trc=\empty +} \FI + \IF \EqText(##1,traceoff)\THEN + \def\list:op{\def\rs:trc########1{} +} \FI + \ifx \list:op\empty + \def\list:op{\futurelet + \:temp\sapply:apply #1,,,,/+/-]/[ +} + \fi + \list:op } +\temp:#1,,,,/+/-]/[ + + \pop:macro\:temp +\I:I=\:temp; + +} +\IntVar\s:appN +\def\sapply:apply#1,#2,#3/+/-]/[{ + \ifx \:temp\bgroup \else + \expandafter\ifx\csname #1:mkls\endcsname\relax + \pwarn:{\string\sapply{#1,\string#2,...}?} +\fi\fi + + \expandafter\edef\csname \result:lst :mkls\endcsname{\ifx + \:temp\bgroup #1\else + \expandafter\ifx\csname #1:mkls\endcsname\relax #1 + \else \csname #1:mkls\endcsname + \fi \fi} + \cln:res + + \def\breadth{0} + \def\app:mi{#2} + \expandafter\expandafter\expandafter\r:app + \expandafter\expandafter\expandafter\s:app + \csname \result:lst :mkls\endcsname,/+/-]/[ +} +\def\s:app#1{\I:I=\breadth; \I:I+1; \edef\breadth{\Val\I:I} + \push:macro\breadth +\push:macro\app:mi +\push:macro\app:pr +\push:macro\app:ta + + \app:mi{#1} + \pop:macro\app:ta +\pop:macro\app:pr +\pop:macro\app:mi +\pop:macro\breadth + +} +\def\s:appA#1{\I:I=\breadth; \I:I+1; \edef\breadth{\Val\I:I} + \push:macro\breadth +\push:macro\app:mi +\push:macro\app:pr +\push:macro\app:ta + + \apply{#1,\app:mi,\app:pr,\app:ta} + \pop:macro\app:ta +\pop:macro\app:pr +\pop:macro\app:mi +\pop:macro\breadth + +} +\def\scr:ta#1{\ifnum\csname#1:type\endcsname=\tasknode:\space + \edef\:temp{\:temp,#1}\fi } +\def\scr:mi#1{\ifnum\csname#1:type\endcsname=\milestonenode:\space + \edef\:temp{\:temp,#1}\fi } +\def\scr:pr#1{\ifnum\csname#1:type\endcsname=\projectnode:\space + \edef\:temp{\:temp,#1}\fi } +\def\df:spr#1,#2,#3,#4,#5/+/-]/[{% + \def\AA:k{#4} + \def\BB:k{#5} +} +\def\scr:df#1{\edef\:temp{\ifx\:temp\empty \else \:temp,\fi #1}} +\def\first:only#1{ + \def\a:temp{#1} + \expandafter\r:app\expandafter\also:second\arg:two,,/+/-]/[ + \ifx \a:temp\empty\else \edef\:temp{\:temp,#1}\fi +} +\def\also:second#1{\def\b:temp{#1}\ifx \a:temp\b:temp + \let\a:temp\empty\fi} +\def\in:both#1{ + \def\a:temp{#1} + \expandafter\r:app\expandafter\found:both\arg:two,,/+/-]/[ +} +\def\found:both#1{\def\b:temp{#1}\ifx \a:temp\b:temp + \edef\:temp{\:temp,#1}\fi} +\def\two:args#1,#2,{\futurelet\:temp\first:arg} +\def\first:arg#1,{\verify:arg{#1} + \edef\arg:one{\ifx \:temp\bgroup + #1\else \csname #1:mkls\endcsname \fi} + \futurelet\:temp\second:arg} +\def\second:arg#1,#2/+/-]/[{\verify:arg{#1} + \edef\arg:two{\ifx \:temp\bgroup + #1\else \csname #1:mkls\endcsname \fi}} +\def\one:args#1,#2,{\futurelet\:temp\second:arg} +\def\verify:arg#1{ + \ifx \:temp\bgroup\else + \expandafter\ifx \csname #1:mkls\endcsname\relax + \pwarn:{`#1'\space in\space \string\sapply?} + \fi \fi} +\def\cln:res{ + \let\:temp=\empty \car:dinality=0; + \expandafter\expandafter\expandafter\r:app + \expandafter\expandafter\expandafter\pre:dup + \csname \result:lst :mkls\endcsname,,/+/-]/[% + \expandafter\let\csname \result:lst :mkls\endcsname=\:temp + \edef\breadth{\Val\car:dinality} + \rs:trc{\immediate\write16{...[\result:lst]........\:temp}} +} +\IntVar\car:dinality +\def\scr:srt#1{ +\expandafter\let\expandafter\:temp\expandafter\empty + \expandafter\next:compare\:temp,,,/+/-]/[#1/+/-]/[ +} +\def\next:compare#1,#2/+/-]/[#3/+/-]/[{ + \if :#1: + \edef\:temp{\ifx\:temp\empty\else \:temp,\fi#3} + \def\next:##1/+/-]/[##2/+/-]/[{} + \else \comp:r{#1}{#3} + \ifnum \com:p>0 + \edef\:temp{\ifx\:temp\empty\else \:temp,\fi#3,#1} + \def\next:##1,,##2/+/-]/[##3/+/-]/[{\edef + \:temp{\ifx\:temp\empty\else \:temp,\fi##1}} + \else \edef\:temp{\ifx\:temp\empty\else \:temp,\fi#1} + \if :#2: + \edef\:temp{\ifx\:temp\empty\else \:temp,\fi#3} + \def\next:##1/+/-]/[##2/+/-]/[{} + \else + \let\next:=\next:compare + \fi\fi \fi + \next: #2/+/-]/[#3/+/-]/[ +} +\def\comp:r#1#2{ + \def\com:p{0}% + \comp:re#1/+/-]/[#2/+/-]/[% +} +\def\comp:re#1#2/+/-]/[#3#4/+/-]/[{% + \ifnum `#1<`#3\def\com:p{-1}\let\next:=\relax + \else \ifnum `#1>`#3\def\com:p{1}\let\next:=\relax + \else \def\next:{\comp:re#2/+/-]/[#4/+/-]/[}% + \if !#2!\let\next:=\relax \fi + \if !#4!\let\next:=\relax \fi + \def\:tempa{#2}\def\:tempb{#4}% + \ifx \:tempa\space + \ifx \:tempb\:tempa \else \def\com:p{-1}\fi + \let\next:=\relax + \else\ifx \:tempb\space \def\com:p{1}\let\next:=\relax + \fi\fi + \fi\fi + \next: +} +\def\rs:trc#1{} +\def\get:result#1{ + \let\:temp=\empty + \expandafter\r:app\expandafter#1\arg:one,,/+/-]/[% + \expandafter\let\csname \result:lst :mkls\endcsname=\:temp} +\def\scr:af#1{% +\expandafter\ifx \csname#1:succe\endcsname\relax\else + \expandafter\expandafter\expandafter\r:app + \expandafter\expandafter\expandafter\scr:aff + \csname #1:succe\endcsname,/+/-]/[ +\fi} +\def\scr:aff#1{\edef\:temp{\:temp,#1}} +\def\scr:up#1{% +\expandafter\ifx \csname#1:ancs\endcsname\relax\else + \expandafter\expandafter\expandafter\r:app + \expandafter\expandafter\expandafter\scr:aff + \csname #1:ancs\endcsname,/+/-]/[ +\fi} +\def\scr:dw#1{\expandafter\ifx \csname #1:under\endcsname\relax\else + \edef\:temp{\:temp,\csname #1:under\endcsname}\fi} +\def\scr:be#1{\expandafter\ifx \csname #1:prev\endcsname\relax\else + \edef\:temp{\:temp,\csname #1:prev\endcsname}\fi} +\def\pre:dup#1{% + \def\a:temp{#1}\let\c:temp=\empty + \expandafter\r:app\expandafter\is:dup\:temp,/+/-]/[% + \ifx \c:temp\empty + \car:dinality+1; + \edef\:temp{\:temp\ifx \:temp\empty\else ,\fi#1}\fi} +\def\is:dup#1{\def\b:temp{#1}\ifx \a:temp\b:temp \let\c:temp=\b:temp\fi} +\def\r:app#1#2,#3/+/-]/[{% + \if !#2!\else #1{#2}\fi + \if !#3!\expandafter\r:gobble\else \expandafter\r:app\fi + #1#3/+/-]/[} +\def\r:gobble#1/+/-]/[{} + + + \def\prjc:VII#1#2#3#4#5#6#7{ + \gdef\all:prjc{} + { \contributionsstyle{ + \expandafter \gdef \expandafter\all:prjc + \expandafter{\all:prjc\add:contrib{##1}{#1}} + }{}{} + \contributions{#1} + } + \all:prjc +} +\def\gob:V#1#2#3#4#5{} +\def\f:cntr#1{\apply{#1,\gob:V,\findcontribution,\gob:V}} + +\IntVar\cntr:N + +\def\add:contrib#1#2{ + \let\N:EXT=\empty + \def\findcontribution##1##2##3##4##5{ + \IF \EqText(##2,#1) \THEN + \gdef\N:EXT{##1} + \FI + } + \sapply{con.TRIB,\f:cntr} + \ifx \N:EXT\empty + \cntr:N+1; + \sapply{\pc:id.\Val\cntr:N,defproject,{#2},#1,} + \sapply{con.TRIB,merge,con.TRIB,{\pc:id.\Val\cntr:N}} + \else + \sapply{ts.k,down,{\N:EXT}} + \sapply{ts.k,merge,ts.k,{#2}} + \expandafter\let\csname\N:EXT :type\endcsname\relax + \sapply{\N:EXT,defproject,ts.k,#1,} + \fi +} +\def\contributorsproject#1#2#3#4{ + \push:macro\checkmemb: \def\checkmemb:##1{} + \cntr:N=0; \def\pc:id{#1} + \sapply{con.TRIB,merge,{},{}} + \sapply{#1,defproject,{#3},,} + \rapply{#1,\gob:V,\gob:V,\prjc:VII} + \expandafter\let\csname#1 :type\endcsname\relax + \sapply{#1,defproject,con.TRIB,#2,#4} + \pop:macro\checkmemb: + \sapply{#1,down,{#1}} +\sapply{#1,\connect:up{#1}} +\sapply{#1,merge,{},{}} + + \sapply{con.TRIB,merge,{},{}} +} + + \def\setnumericdate#1#2{{ + \expandafter \ifx \csname maxMM:\endcsname\relax + \getminmaxdates:1/1/0//31/12/99// + \fi + \def\yrS:{0} \def\moS:{0} \def\dateS:{0} + \if /\actual:date #2///+/-]/[/ + \date:Coordinate#1#2,,/+/-]/[ + \else + \def\real::date##1,##2/+/-]/[{##1} + \edef\real::date{\real::date #2,/+/-]/[} + \axisdate:#1{real:}\empty + \fi + \edef#1{\def\noexpand#1{#1}} + \expandafter}#1} + +\def\actual:date#1/#2/#3/+/-]/[{#2} +\def\date:Coordinate#1#2,#3,#4/+/-]/[{ + \expandafter \ifx \csname#2 :type\endcsname\relax + \def#1{0} + \pwarn:{\noexpand\setnumericdate for\space `#2'?} + \else\ifnum\csname#2 :type\endcsname=\milestonenode:\relax + \axisdate:#1{#2}\empty + \else + \IF \EqText(start,#3) \THEN + \axisdate:#1{#2}1 + \ELSE \IF \EqText(finish,#3) \THEN + \axisdate:#1{#2}2 + \ELSE + \def#1{0} + \pwarn:{\noexpand\setnumericdate for\space `#3'?} + \FI \FI + \fi \fi +} +\def\datesproject#1#2#3#4{ + \push:macro\checkmemb: \def\checkmemb:##1{} \def\pc:id{#1} + \let\all:prjc=\empty + \sapply{#1,defproject,{#3},,} + \cntr:N=1000; +\bck:N=2; +\rapply{#1,\cnt:V,\cnt:V,\cnt:VII} +\bck:N*2; \bck:N+1000; + + \rapply{#1,\prjd:V,\prjd:V,\prjd:VII} + \edef\:temp{\noexpand \sapply{#1,sort,{\all:prjc}}}\:temp + \let\all:prjc=\empty + \sapply{#1.m,merge,{},{}} + \let\prv:=\empty \cntr:N=0; + \push:macro\pwarn: \def\pwarn:##1{} + \sapply{#1,\set:dateprj} + \sapply{#1,defproject,#1.m,#2,#4} + \pop:macro\pwarn: + \pop:macro\checkmemb: + \sapply{#1,\cp:dt} + + \sapply{#1,down,{#1}} +\sapply{#1,\connect:up{#1}} +\sapply{#1,merge,{},{}} + + \sapply{#1.m,merge,{},{}} +} +\def\connect:up#1#2{\expandafter \edef \csname #2: ancs\endcsname{#1}} +\def\prjd:VII#1#2#3#4#5#6#7{\prjd:{#1}} +\def\prjd:V#1#2#3#4#5{\prjd:{#1}} +\def\prjd:#1{ + \cntr:N+1; \bck:N-1; + {\datestyle{ + \setnumericdate\:dateA{#1,start} +\setnumericdate\:dateB{#1,finish} +\I:I=\:dateA; \I:I+1000000000; \edef\:dateA{\Val\I:I} +\I:I=\:dateB; \I:I+1000000000; \edef\:dateB{\Val\I:I} +\def\xx{#1}\ifx \xx\pc:id \else + \xdef\all:prjc{\ifx \all:prjc\empty \else \all:prjc,\fi} + \ifnum\csname#1 :type\endcsname=\milestonenode:\relax + \xdef\all:prjc{\all:prjc \:dateA.\Val\cntr:N.0.#1} + \else + \xdef\all:prjc{\all:prjc \:dateA.\Val\cntr:N.1.#1, + \:dateB. + \ifnum\csname#1 :type\endcsname=\projectnode:\space + \Val\bck:N\else \Val\cntr:N\fi + .2.#1} +\fi \fi + + }{}{} + \def\pwarn:##1{} \start{#1} + } +} +\def\cp:dt#1{ + \def\:temp##1##2{##2} + \edef\:tmp{\expandafter\expandafter\expandafter + \:temp\csname#1 :under\endcsname} + \ifnum\csname\:tmp :type\endcsname=\milestonenode:\relax + \edef\:temp{\csname\:tmp :date\endcsname} + \else + \edef\:tempa{\noexpand\IF\noexpand\EqText(\csname#1 + :desc\endcsname,start)} + \:tempa + \edef\:temp{\csname\:tmp :date1\endcsname} + \ELSE + \edef\:temp{\csname\:tmp :date2\endcsname} + \FI + \fi + \expandafter\let\csname#1 :date1\endcsname=\:temp + \expandafter\let\csname#1 :date2\endcsname=\:temp +} +\IntVar\bck:N +\def\cnt:V#1#2#3#4#5{\bck:N+1;} +\def\cnt:VII#1#2#3#4#5#6#7{\bck:N+1;} + + \newif\iftrace: \trace:false +\def\traceon{\trace:true } +\def\traceoff{\trace:false } + +\def\trace:#1{% + \iftrace: + \apply{#1,\traceM:,\traceP:,\traceT:}% + \fi +} +\def\traceM:#1#2#3#4#5{% + \immediate\write16{\string\defmilestone{#1}{#2}{#3}{#4}{#5}}} +\def\traceP:#1#2#3#4#5{% + \immediate\write16{\string\defproject{#1}{#2}{#3}{#4}{#5}}} +\def\traceT:#1#2#3#4#5#6#7{% + \immediate\write16{\string\deftask{#1}{#2}{#3}{#4}{#5}{#6}{#7}}} +\def\getlist:#1#2#3{ + \def\op:{#3} \let#3=\relax + \let~=\space \let\temp:=\empty \getlist::#2,,,/+/-]/[ \restoregal: + \expandafter\let\csname#1\endcsname=\temp: +} +\def\getlist::#1,#2,#3/+/-]/[{ + \def\next:{#1} + \ifx\next:\empty + \def\temp::{#3} \ifx\temp::\empty\else \missingiem:#3// \fi + \else + \edef\temp:{\temp: \op:{#1}} + \def\next:{\getlist::#2,#3/+/-]/[} \expandafter\next: + \fi +} +\def\missingiem:#1,,,//{ + \pwarn:{missing\space item\space in\space,,#1} +} +\def\setprev:#1#2{ + \def\temp:{#2} + \ifx\temp:\empty \expandafter\def\csname#1 :prev\endcsname{} + \else + \getlist:{#1 :prev}{#2}\prev: + \def\prev:##1{\expandafter \edef \csname ##1: succe\endcsname + {\expandafter \ifx \csname ##1: succe\endcsname\relax\else + \csname ##1: succe\endcsname ,\fi#1}} +\csname#1: prev\endcsname + + \fi +} +\def\projectid:{0} +\def\setproject:#1#2{ + \traversedo:{#1}\setproject:data + + \def\temp:{#2} + \ifx\temp:\empty\else \def\temp:{\setproject:#2} \fi + \temp: +} +\def\verify:dates:#1#2{ + \traversedo:{#1}\checknodedates: + + \def\temp:{#2} + \ifx\temp:\empty\else \def\temp:{\verify:dates:#2} \fi + \temp: +} +\def\traversedo:#1#2{ + \def\utask:##1{ + \expandafter\let\csname##1 :sve\endcsname =\utask: + \csname##1 :under\endcsname + #2{##1} + \def\utask:{\let\utask: =} + \expandafter\utask:\csname##1 :sve\endcsname + } + \csname#1 :under\endcsname #2{#1} +} +\def\checkmemb:#1{ + \expandafter\ifx\csname#1 :bool\endcsname\relax + \pwarn:{definition\space for\space '#1'?} + \fi +} +\def\utask:I#1{ + \ifnum\csname#1 :type\endcsname=\milestonenode:\relax + \edef\temp:{\csname#1 :date\endcsname} + \expandafter\maxDate:\temp:/ +\else + \edef\temp:{\csname#1 :date2\endcsname} + \expandafter\maxDate:\temp:/ + \edef\temp:{\csname#1 :date1\endcsname} +\fi +\expandafter\minDate:\temp:/ + +} +\def\minDate:#1/#2/#3/{ + \ifnum #3<\minY:\relax \def\minD:{#1} \def\minM:{#2} \def\minY:{#3} + \else \ifnum #3=\minY:\relax + \ifnum #2<\minM: \def\minD:{#1} \def\minM:{#2} + \else \ifnum #2=\minM: + \ifnum #1<\minD:\relax\def\minD:{#1} \fi + \fi\fi + \fi\fi } + +\def\maxDate:#1/#2/#3/{ + \ifnum #3>\maxY:\relax \def\maxD:{#1} \def\maxM:{#2} \def\maxY:{#3} + \else \ifnum #3=\maxY:\relax + \ifnum #2>\maxM: \def\maxD:{#1} \def\maxM:{#2} + \else \ifnum #2=\maxM: + \ifnum #1>\maxD:\relax\def\maxD:{#1} \fi + \fi\fi + \fi\fi } +\def\getitems:#1#2{ + \def\items:{} \let\item:=\relax + \tcount:=#2 \relax \advance\tcount: by -1\relax + \let\utask:=\getchi: + \csname#1 :under\endcsname + \def\item:##1{ \expandafter\let\csname##1 :bool\endcsname=\UnDef: } + \items: +} +\def\getchi:#1{ + \expandafter\ifx\csname#1 :bool\endcsname\relax + \def\next:{ \edef\items:{ \item:{#1} \items: } } + \ifnum\csname#1 :type\endcsname=\projectnode:\space + \ifnum 0<\tcount: + \def\next:{ + \advance\tcount: by -1 \relax + \csname#1 :under\endcsname \relax + \advance\tcount: by 1 \relax + } +\fi + + \fi + \expandafter\next: + \fi + } +\newcount\tcount: +\def\checknodedates:#1{ + \def\prev:##1{ \checkafter:{#1}{##1} } + \csname#1 :prev\endcsname +} +\def\checkafter:#1#2{ + \getdate:\temp:A{#1}1 + \getdate:\temp:B{#2}2 + \edef\temp:{\temp:A/\temp:B/{`#1'\space starts\space + before\space `#2'\space ends}} + \expandafter\checkdates:\temp: +} + +\def\getdate:#1#2#3{ + \ifnum\csname#2 :type\endcsname=\milestonenode:\space + \edef#1{\csname#2 :date\endcsname} + \else \edef#1{\csname#2 :date#3\endcsname} + \fi +} + +\def\checkdates:#1/#2/#3/#4/#5/#6/#7{ + \ifnum #6>#3\space \pwarn:{#7} + \else \ifnum #6=#3\space + \ifnum #5>#2\space \pwarn:{#7} + \else \ifnum #5=#2\space + \ifnum #4>#1\space \pwarn:{#7} \fi + \fi\fi + \fi\fi } +\def\listrsrc:#1{ + \ifnum\csname#1 :type\endcsname=\tasknode:\space + \csname#1 :eff\endcsname + \else + \expandafter\expandafter \csname#1 :under\endcsname + \fi +} +\long\def\append:Def#1#2{% + \def\:temp{\def#1}% + \expandafter\expandafter\expandafter\:temp\expandafter{#1#2}} +\def\reseffI:#1#2{ + \expandafter\ifx\csname#1 :bool\endcsname\relax + \sepitems: \append:Def\all:des{#1} + \expandafter\let\csname#1 :bool\endcsname=\empty + \fi +} +\def\effortout:{ + \I:I[\Q:Q]; + \IF \EqDec(\I:I,\Q:Q) \THEN \edef\temp:{\Val\I:I} + \ELSE \edef\temp:{\Val\Q:Q} \FI +} +\long\def\contr::#1#2#3{ + \def\contr:##1##2{ \ifnum 0<\tcount:\relax#3\fi #1#2 } +} +\def\contributionsstyle{ \contr:: +} +\contributionsstyle{#1}{\space (#2)}{,\space} + +\def\findeffort:#1#2{ \ifx#2\empty + \def\reseff:##1##2{ \Q:Q + ##2; } +\else + \def\reseff:##1##2{ + \def\temp:{##1} + \ifx\temp:#2 \Q:Q + ##2; \fi + } +\fi +\Q:Q=0; +\ifnum\csname#1 :type\endcsname=\tasknode:\space + \csname#1 :eff\endcsname +\else + \getitems:{#1}{999} + \def\item:##1{ \csname##1 :eff\endcsname } + \items: +\fi +\effortout: + } +\def\findthecontri:#1{\def\reseff:##1##2{ + \expandafter\ifx\csname##1 :bool\endcsname\relax + \expandafter\def\csname##1 :bool\endcsname{##2} + \edef\alls:{\alls: \all:{##1}} + \else + \Q:Q=\csname##1 :bool\endcsname; + \Q:Q+##2; + \expandafter\edef\csname##1 :bool\endcsname{\Val\Q:Q} + \fi +} +\let\alls:=\empty \let\all:=\relax +\ifnum\csname#1 :type\endcsname=\tasknode:\space + \csname#1 :eff\endcsname +\else + \getitems:{#1}{999} + \def\item:##1{ \ifx \yrS: \:UnDef \csname##1 :eff\endcsname +\else + \edef\svK:K{\Val\K:K} + \axisdate:\temp:{##1}1 \ifnum \temp:<\dateA:\else + \axisdate:\temp:{##1}2 \ifnum \temp:>\dateB:\else + \csname##1 :eff\endcsname + \fi\fi + \K:K=\svK:K; +\fi + } + \items: +\fi +\tcount:=0 +\def\all:##1{ + \Q:Q=\csname##1 :bool\endcsname; + \contr:{##1}{{\effortout:\temp:}} + \tcount:=1 +} +\alls: +} +\def\datestyle{\def\showdate:##1/##2/##3/##4//} +\datestyle{#1/#2/#3} +\def\apply:#1,#2,#3,#4,#5//{ + \verify:{#1} \def\verify:##1{} + \extract: + \def\mop:{#2} \def\pop:{#3} \def\top:{#4} + \apply::{#1} + \let\verify:=\verify:: +} +\def\rapply:#1,#2,#3,#4,#5//{ + \verify:{#1} \def\verify:##1{} + \def\utask:##1{ + \def\mop:{#2} \def\pop:{#3} \def\top:{#4} + \apply::{##1} + \I:I=\depth; \I:I+1; \edef\depth{\Val\I:I} + \ifnum\csname#1 :type\endcsname=\projectnode:\space + \csname##1 :under\endcsname + \fi + \I:I=\depth; \I:I-1; \edef\depth{\Val\I:I} + } + \utask:{#1} \let\verify:=\verify:: +} + +\def\depth{0}\def\apply::#1{ + \push:macro\utask: +\push:macro\contr: + + \extract: + \let\temp:=\empty + \ifnum \csname#1 :type\endcsname=\milestonenode:\space + \ifx \mop:\empty \else + \edef\temp:{\expandafter\noexpand\mop:{#1}{\csname#1 :title\endcsname}{\csname#1 :date\endcsname} +{\expandafter\ifx\csname#1 :prev\endcsname\empty\else + \pp:\csname#1 :prev\endcsname + \fi} +{\expandafter\noexpand\csname#1 :desc\endcsname} +} +\fi + + \else + \ifnum \csname#1 :type\endcsname=\projectnode:\space + \ifx \pop:\empty \else + \edef\temp:{\expandafter\noexpand\pop:{#1}{\csname#1 :title\endcsname}{ +\expandafter\ifx\csname#1 :under\endcsname\relax\else + \pp:\csname#1 :under\endcsname +\fi} +{\expandafter\ifx\csname#1 :prev\endcsname\empty\else + \pp:\csname#1 :prev\endcsname +\fi}{\expandafter\noexpand\csname#1 :desc\endcsname} +} +\fi + + \else + \ifx \top:\empty \else + \edef\temp:{\expandafter\noexpand + \top:{#1}{\csname#1 :title\endcsname} +{\csname#1 :date1\endcsname} +{\csname#1 :date2\endcsname} +{\expandafter\ifx\csname#1 :eff\endcsname\relax\else + \pp:\csname#1 :eff\endcsname +\fi} +{\expandafter\ifx\csname#1 :prev\endcsname\empty\else + \pp:\csname#1 :prev\endcsname +\fi}{\expandafter\noexpand\csname#1 :desc\endcsname} +} +\fi + + \fi + \fi + \temp: + \pop:macro\contr: +\pop:macro\utask: + +} +\def\extract:{ + \def\pp:{\expandafter\expandafter\expandafter\expandafter\expandafter + \expandafter\expandafter\ppp:} + \def\ppp:##1,{} + \def\prev:##1{,##1} + \def\utask:##1{,##1} + \edef\reseff:##1##2{,##1\string :##2} +} +\def\push:macro#1{ + \expandafter\let\csname appl:\Val\s:appN\endcsname#1 + \s:appN+1; +} +\def\pop:macro#1{ + \s:appN-1; + \expandafter\let\expandafter#1\csname appl:\Val\s:appN\endcsname +} +\def\set:dateprj#1{\set:dtpr#1,} +\def\set:dtpr#1.#2.#3.#4,{ + \I:I=#1; \I:I-1000000000; + \edef\:temp{\noexpand \sapply{\pc:id.#4\ifcase#3\space\else .#3\fi + ,defproject,{#4},\Val\I:I, + \ifcase#3\space \or start\or finish\else \fi}} \:temp + \ifx \prv:\empty \else + \expandafter\edef\csname \pc:id.#4\ifcase#3\space\else .#3\fi + :prev\endcsname {\noexpand \prev:{\pc:id.\prv:}} + \expandafter\edef\csname \pc:id.\prv: :succe\endcsname + {\pc:id.#4\ifcase#3\space\else .#3\fi} + \fi + \edef\prv:{#4\ifcase#3\space\else .#3\fi} + \edef\all:prjc{\ifx \all:prjc\empty\else \all:prjc,\fi + \pc:id.#4\ifcase#3\space\else .#3\fi} + \edef\:temp{\noexpand \sapply{\pc:id.m,merge, + \pc:id.m,{\pc:id.#4\ifcase#3\space\else .#3\fi}}} \:temp +} +\def\gettree:{ + \let\nextrow:=\empty \J:J=0; \row: \edef\tree:{ \tree: // } + \ifx\nextrow:\empty \else + \let\row:=\nextrow: \K:K-1; + \expandafter\gettree: + \fi +} +\def\getnode:#1{ + \I:I=0; \J:J+1; + \ifnum\csname#1 :type\endcsname=\projectnode:\space + \expandafter\expandafter \csname#1 :under\endcsname + \fi + \expandafter\ifx\csname#1 :bool\endcsname\relax + \expandafter\let\csname#1 :bool\endcsname=\empty +\else + \advance\tcount: by 1\space + \expandafter\edef\csname##1 :id\endcsname{\the\tcount:} +\fi + + \edef\tree:{ \tree: + \ifnum\Val\J:J>1\empty~ \fi + \Val\I:I, \csname#1 :type\endcsname, {\treetext:{#1}} + \nodeid:{#1} + } +} +\:DefineExt\treestyle(5){\endgroup + \def\temp:{#1} \ifx\temp:\empty\else \let\project:node=#1 \fi + \def\temp:{#2} \ifx\temp:\empty\else \let\milestone:node=#2 \fi + \def\temp:{#3} \ifx\temp:\empty\else \let\task:node=#3 \fi + \def\temp:{#4} \ifx\temp:\empty\else \let\project:edge=#4 \fi + \def\temp:{#5} \ifx\temp:\empty\else \def\treenodewidth:{#5pt} \fi +} +\treestyle(\VRectNode, \RectNode, \SRectNode,\TreeEdge,70) +\def\getparms:#1,#2,#3,#4,#5,#6,#7,#8,#9//{ + \def\first:{#1} \def\second:{#2} \def\third:{#3} + \def\fourth:{#4} \def\fifth:{#5} \def\sixth:{#6} + \def\seventh:{#7} \def\eighth:{#8} } +\def\axisdate:#1#2#3{ + \breakdate:\DD:\MM:\YY:{#2}#3 + \K:K=\YY:; \IF \LtInt(\K:K,\yrS:) \THEN \K:K+\maxYY:; \FI + \K:K*\maxMM:; \K:K+\MM:; + \IF \EqInt(\maxYY:,0) \THEN + \IF \LtInt(\K:K,\moS:) \THEN \K:K+\maxMM:; \FI + \FI + \K:K*\maxDD:; \K:K+\DD:; + \K:K-\dateS:; \edef#1{\Val\K:K} +} +\def\breakdate:#1#2#3#4#5{ + \expandafter\ifx \csname#4 :date#5\endcsname\relax + \pwarn:{Dates\space not\space available\space for\space #4} + \else + \def\temp:##1/##2/##3/{\def#1{##1}\def#2{##2}\def#3{##3}} + \expandafter\expandafter + \expandafter\temp:\csname#4 :date#5\endcsname/ + \fi +} + +\def\titletext:#1{ + \Text(--\titletextA:{#1}--) +} + +\def\titletextA:#1{\ifdim\nodewidth:>0in + \vbox\bgroup \hsize=\nodewidth: + \leftskip 0pt plus 0.5\hsize + \rightskip 0pt plus 0.5\hsize + \parfillskip 0pt \fi + #1 \ifdim\nodewidth:>0in + \egroup \fi} +\def\treenodestyle{\def\treetext:##1} +\treenodestyle{\csname#1 :title\endcsname} +\def\last:segdraw#1{ + \ifnum \effort:n>1 + \I:I=\effort:n; \I:I-1; \edef\effort:n{\Val\I:I} + \I:I=\effort:from; \I:I+\effort:step; \edef\effort:from{\Val\I:I} + \I:I=\effort:to; \I:I+\effort:step; \edef\effort:to{\Val\I:I} + \ifnum \effort:max < \effort:to \let\effort:to=\effort:max \fi + \expandafter\expandafter\expandafter#1 + \fi +} +\def\doelements:#1{% + \ifx\fifth:\empty \def\fifth:{1}\fi + \IF \EqInt(\fifth:,0)\THEN \chartelement:{#1}% + \ELSE \rapply{#1,\milestonechild:,\projectchild:,\taskchild:}\FI} + +\def\milestonechild:#1#2#3#4#5{\child:{#1}} +\def\taskchild:#1#2#3#4#5#6#7{\child:{#1}} +\def\projectchild:#1#2#3#4#5{\IF \EqInt(\depth,\fifth:)\THEN + \chartelement:{#1}\FI} + +\def\child:#1{\IF \GtInt(\depth,\fifth:)\ELSE + \chartelement:{#1}\FI } +\def\getscale:#1{ + \def\scale:{1} + \K:K=#1; + \Do(0,4){ \IF \GtInt(\K:K,1000) \K:K/10; \edef\scale:{\scale:0} \FI } + \R:R=200; \R:R/\K:K; \R:R*\:Cons\:Xunits; \Scale(\Val\R:R,4) +} +\defcom{MINMAXDATES:}#1{ + \expandafter\edef\csname\projectid: :minmax\endcsname{ + \noexpand \getminmaxdates:#1//} + } +\def\getminmaxdates:#1/#2/#3//#4/#5/#6//{ + \I:I=#4; \I:I-#1; \I:I+1; \edef\maxDD:{\Val\I:I} + \I:I=#5; \I:I-#2; \I:I+1; \edef\maxMM:{\Val\I:I} + \I:I=#6; \I:I-#3; \I:I+1; \edef\maxYY:{\Val\I:I} +} +\newif\ifpflag: +\def\cutprojectstasksA:#1{ + \axisdate:\dateA:{#1}1 + \axisdate:\dateB:{#1}2 + \ifnum \dateB:<0\space \pflag:false \fi + \ifnum \dateA:>\dateF:\space \pflag:false \fi + \ifnum \dateA:<0\space \def\dateA:{0} \fi + \ifnum \dateB:>\dateF:\space \let\dateB:=\dateF: \fi + \ifnum \optt:=\csname#1 :type\endcsname\space \pflag:false \fi + \ifnum \optp:=\csname#1 :type\endcsname\space \pflag:false \fi +} +\Define\ignoredepth:{ + \let\sv:AddBarDepth=\:AddBarDepth + \Define\:AddBarDepth(2){\let\:AddBarDepth=\sv:AddBarDepth } +} +\def\movemilestonesym:#1,#2//{\Q:Q=#1;\Q:Q-#2; \Q:Q/2; + \Move(0,\Val\Q:Q) } +\def\putbartext:{ + \if E\bareff: \efforts:(\Val\K:K,\Val\K:K){ \geteff: } + \else \if T\bartext: + \K:K+1; \names:Tbl:(\Val\K:K,\Val\K:K){ \getname: } + \else \let\bareff:=X + \fi\fi + \if X\bareff: \else + \K:K+1; + \let\nodewidth:=\scnodewidth: \titletext:{\temp:} + \MoveToExit(-1.1,1.1) \MarkLoc(1-:) + \MoveToExit(1.1,-1.1) \MarkLoc(2-:) \CSeg\Clip(2-:,1-:) + \fi +} +\Define\getname:(1){ \def\temp:{#1} } +\Define\geteff:(1){\findeffort:{#1}\empty} +\def\datesaxis(#1)(#2){ \scheaxis:{#1}{#2}\dates:} +\def\nonamesaxis(#1)(#2){ \scheaxis:{#1}{#2}\nonames:} +\def\namesaxis(#1)(#2){{\let\TicText=\TicName:: + \scheaxis:{#1}{#2}\names: }} +\def\scheaxis:#1#2#3{ \def~{\noexpand&} + \edef\temp:{\noexpand\Axis(#1)(#2,#3) } \temp: } +\TextPar\Define\TicName::(1){\IF \EqText(,#1) \THEN + \ELSE \let\nodewidth:=\scnodewidth: + \titletext:{#1} \FI} +\:DefineExt\schedulestyle(7){\endgroup + \def\baropt:##1##2##3##4//{ + \let\baropt:=\empty \let\txtopt:=\UndDef: + \baroptA:##1 \baroptA:##2 \baroptA:##3 + } + \let\baropts:=\empty \let\bartext:=x \let\barIIID:=x + \let\baraxis:=x \let\bareff:=x + \def\temp:{#1} \ifx\temp:\empty\else \baropt:#1......// \fi + \def\temp:{#2#3} \ifx\temp:\empty\else \def\barloc:{#2,#3} \fi + \def\temp:{#4} \ifx\temp:\empty\else \def\projectcolor:{#4} \fi + \def\temp:{#5} \ifx\temp:\empty\else \def\taskcolor:{#5} \fi + \def\temp:{#6} \ifx\temp:\empty\else \def\milestonesym:{#6} \fi + \def\temp:{#7} \ifx\temp:\empty\else \def\scnodewidth:{#7pt} \fi +} +\:DefineExt\schedulelimits(1){\endgroup + \schedulelimits:#1,,,// +} +\expandafter\long\expandafter\def\csname + .:\string \schedulelimits\endcsname(#1){\endgroup + \schedulelimits:#1,,,// +} +\long\def\schedulelimits:#1,#2,#3//{ + \def\temp:{#1} \ifx\temp:\empty\else \def\schedulelimit:{#1} \fi + \def\temp:{#2} \ifx\temp:\empty\else \def\schedulecode:{#2} \fi +} +\schedulelimits(10000,\par) +\def\baroptA:#1{ + \if#1T \let\bartext:=T \fi + \if#1A \let\baraxis:=A \fi + \if#1E \let\bareff:=E \let\baraxis:=A \fi + \if3#1 \let\barIID:=3 \edef\baropts:{\baropts: 3} \fi +} + +\schedulestyle(A,2.5,7.5,3,0,$\otimes$,70) +\def\cutoffdates:{ + \def\yrS:{0} \def\moS:{0} \def\dateS:{0} +\ifx\second:\empty + \axisdate:\dateS:{\first:}1 +\else + \let\:date:=\second: + \axisdate:\dateS:{}: +\fi +\let\dyS:=\DD: \let\moS:=\MM: \let\yrS:=\YY: +\ifx\third:\empty + \axisdate:\dateF:{\first:}2 +\else + \let\:date:=\third: + \axisdate:\dateF:{}: +\fi +\let\dyF:=\DD: \let\moF:=\MM: \let\yrF:=\YY: + +} +\def\cutofftypes:{ + \def\optm:{-1} \def\optt:{-1} \def\optp:{-1} + \expandafter\cutofftypesA:\fourth:....// +} +\def\cutofftypesA:#1#2#3#4//{ + \chkop:#1 \chkop:#2 \chkop:#3 +} +\def\chkop:#1{ + \if M#1 \let\optm:=\milestonenode: \fi + \if T#1 \let\optt:=\tasknode: \fi + \if P#1 \let\optp:=\projectnode: \fi +} +\def\getint:#1.#2.#3//{ \K:K=#1; \def\frac:{0.#2} } +\def\utaskII:#1{ + \ifnum \csname#1 :type\endcsname=\milestonenode:\space \else + \pflag:true + \edef\svK:K{\Val\K:K} \cutprojectstasks:{#1} \K:K=\svK:K; + \ifpflag: \ifnum \csname#1 :type\endcsname=\projectnode:\space + \J:J=0; \contributionsstyle{}{}{} \findthecontri:{#1} +\def\all:##1{ \reseffII:{##1}{\csname##1 :bool\endcsname} + \expandafter\let\csname##1 :bool\endcsname=\:UnDef + } +\alls: + +\else \J:J=0; +\let\reseff:=\reseffII: +\csname#1 :eff\endcsname + \fi +\R:R=\J:J; \R:R/2; \R:R+\K:K; \K:K+\J:J; +\edef\names:{ \names: \ifx\names: \empty\else ~ \fi + \Val\R:R,\csname#1 :title\endcsname } +\edef\nonames:{ \nonames: \ifx\nonames:\empty\else ~ \fi + \Val\K:K,\relax + } +\edef\lastnames:{ \Val\K:K } + + \fi + \fi +} +\def\reseffII:#1#2{ \J:J+1; +\IF \GtDec(#2,\maxeffort:) \edef\maxeffort:{#2} \fi +\edef\bars:{ #2,#1 \ifx\bars:\empty\else ~ \fi \bars: } + } +\def\dec:dim#1{% + \def~{\noexpand&} \edef\tmp:i{\bars:} + \expandafter\Table\expandafter\tmp:i\expandafter{\tmp:i} + \Define\tmp:ii(1){} \I:I=0; \tmp:i(0,999){\I:I+1; \tmp:ii} + \edef\effort:max{\Val\I:I} \I:I+#1; \I:I-1; + \I:I / #1; + \edef\effort:n{\Val\I:I} \J:J=\effort:max; \J:J/\effort:n; + \I:I=\J:J; \I:I*\effort:n; \IF \LtInt(\I:I,\effort:max) \J:J+1;\FI + \def\effort:from{1} \edef\effort:to{\Val\J:J} + \let\effort:step=\effort:to +} +\def\cnd:starts#1{ + \aft:edraw + + \df:bfs + + \snd:bxo #1 + \global \expandafter\setbox + \csname dra:bx\effort:n\endcsname=\hbox +} +\def\aft:edraw{ + \ifx \effort:boxes\:Undef + \gdef\effort:boxes{\global\let\effort:boxes=\:Undef} + \global\let\ef:EndDraw=\EndDraw + \gdef\EndDraw{\ef:EndDraw \global\let\EndDraw=\:UnDef \effort:boxes } + \fi +} +\def\df:bfs{ + \expandafter\ifx \csname dra:bx\effort:n\endcsname\relax + \global\csname newbox\expandafter + \endcsname \csname dra:bx\effort:n\endcsname \fi +} +\def\snd:bxo#1{ + \expandafter\ifx \csname right:mrk\endcsname\relax + \tmp:dim=\:RBorder + \advance\tmp:dim by -\:LBorder +\else + \tmp:dim=\right:mrk pt \advance\tmp:dim by - \left:mrk pt + \global\let\right:mrk\:UnDef +\fi + + \expandafter\tmp:toks\expandafter{\effort:boxes} + \expandafter\expandafter\expandafter\tmp:toks + \expandafter\expandafter\expandafter{\expandafter + \the\expandafter\tmp:toks #1} + \xdef\effort:boxes{\the\tmp:toks \noexpand\Draw + \noexpand\Text(--\noexpand \hbox to\the\tmp:dim{ +\hss + + \box \csname dra:bx\effort:n\endcsname + } + + --)\noexpand\EndDraw } +} +\ifx \tmp:toks\:UnDef \csname newtoks\endcsname \tmp:toks \fi +\def\sv:forchart{ + \let\sv:bars=\bars: + \let\sv:names=\names: + \let\sv:nonames=\nonames: + \let\gall:=~ +} +\def\recall:forchart{ + \let\bars:=\sv:bars + \let\names:=\sv:names + \let\nonames:=\sv:nonames + \let~=\gall: +} +\TextPar\Define\EffortBarText:(1){ + \MoveToLoc(BarBot) \Move(5pt\du,0) + \EntryExit(-1,0,0,0) \Text(--#1--) + \MoveToExit(-1.1,1.1) \MarkLoc(1-:) + \MoveToExit(1.1,-1.1) \MarkLoc(2-:) \CSeg\Clip(2-:,1-:) +} +\:DefineExt\effortstyle(1){\endgroup\effortstyle:(#1,,,)} +\Define\effortstyle:(6){ + \def\baropt:##1##2##3##4//{ + \effortbaroptA:##1 \effortbaroptA:##2 \effortbaroptA:##3 + } + \let\effortbaropts:=\empty \let\effortbaraxis:=x + \let\effortbartext:=x \let\effortbarIIID:=x + \def\temp:{#1} \ifx\temp:\empty\else \baropt:#1......// \fi + \def\temp:{#2#3} \ifx\temp:\empty\else \def\effortbarloc:{#2,#3} \fi + \def\temp:{#4} \ifx\temp:\empty\else \def\effortcolor:{#4} \fi + \def\temp:{#5} \ifx\temp:\empty\else \def\efftextwidth:{#5pt} \fi +} +\:DefineExt\effortlimits(1){\endgroup + \effortlimits:#1,,,// +} +\expandafter\long\expandafter\def\csname + .:\string \effortlimits\endcsname(#1){\endgroup + \effortlimits:#1,,,// +} +\long\def\effortlimits:#1,#2,#3//{ + \def\temp:{#1} \ifx\temp:\empty\else \def\effortlimit:{#1} \fi + \def\temp:{#2} \ifx\temp:\empty\else \def\effortcode:{#2} \fi +} +\effortlimits(10000,\par) +\def\effortbaroptA:#1{ + \if#1A \let\effortbaraxis:=A \fi + \if#1T \let\effortbartext:=T \fi + \if3#1 \let\effortbarIIID:=3 + \edef\effortbaropts:{\effortbaropts: 3} \fi +} + +\effortstyle(A,2.5,7.5,1,70) +\let\effortaxis=\datesaxis +\TextPar\Define\TicName:(1){ \IF \EqText(,#1) \THEN + \ELSE \let\nodewidth:=\efftextwidth: + \titletext:{#1} \FI} +\def\sort:{ + \let\sorted:=\empty + \pflag:false + \expandafter\sortA:\dates:{} + \let\dates:=\sorted: + \ifpflag: \expandafter\sort: \fi} +\def\sortA:#1#2{ + \def\temp:{#2} + \ifx\temp:\empty \edef\sorted:{\sorted: {#1}} \let\next:=\relax + \else + \ifnum #1>#2\space + \pflag:true + \edef\sorted:{\sorted: {#2}} \def\next:{\sortA:{#1}} + \else + \edef\sorted:{\sorted: {#1}} \def\next:{\sortA:{#2}} + \fi + \fi + \next: +} +\def\indexIII:#1{ + \Q:Q = 0; \I:I = 0; + \csname#1 :prev\endcsname + \IF \GtInt(\I:I,0) \THEN \Q:Q / \I:I; \FI + \def\entry:{#1} \let\next:=\empty + \expandafter\addtocurrow:\currow:{}{} +} +\def\prevI:#1{ + \expandafter\ifx\csname#1 : in/cl: \endcsname\relax \else + \Q:Q + \csname#1 : in/cl: \endcsname; + \I:I + 1; + \fi +} +\def\addtocurrow:#1#2{ + \def\temp:{#1} + \ifx\temp:\empty + \edef\next:{\next:{\Val\Q:Q}{\entry:}} \let\currow:=\next: + \else + \IF \GtDec(#1,\Q:Q) \THEN + \edef\next:{\next:{\Val\Q:Q}{\entry:}} + \Q=#1; \def\entry:{#2} + \ELSE + \edef\next:{\next:{#1}{#2}} + \FI + \expandafter\addtocurrow: + \fi } +\def\inserttocol:#1#2{ + \def\temp:{#1} \ifx\temp:\empty \else + \expandafter\edef\csname \the\tcount: :nodes\endcsname{ + \csname\the\tcount: :nodes\endcsname + \node:{#2} } + \expandafter\edef\csname#2 : in/cl: \endcsname{\the\tcount:} + \advance\tcount: by 1\relax + \expandafter\inserttocol: + \fi +} +\def\pertnodestyle{\def\perttext:##1} +\pertnodestyle{\csname#1 :title\endcsname} +\def\subsort:{ + \pflag:false + \expandafter\subsortA:\elms:{} + \ifpflag: \expandafter\subsort: \fi +} + +\def\subsortA:#1{ + \def\cur:{#1} + \ifx\cur:\empty \else + \csname#1 :prev\endcsname + \expandafter\subsortA: + \fi +} + +\def\compr:#1{ + \def\temp:{#1} + \ifx\temp:\bef: + \I:I=\csname#1 :boolA\endcsname; \I:I+1; + \IF \GtInt(\I:I,\csname\cur: :boolA\endcsname) \THEN + \pflag:true + \expandafter\edef\csname\cur: :boolA\endcsname{\Val\I:I} + \IF \GtInt(\I:I,\maxsub:) \THEN \edef\maxsub:{\Val\I:I} \FI + \FI + \fi + \ifx\temp:\empty\else \expandafter\compr:\fi +} +\def\indexII:#1{ + \ifnum\csname#1 :boolA\endcsname=\DoReg + \I:I=\csname#1 : in/cl:\endcsname; + \CSeg\:GetXY(origin:,col.\Val\I:I) + \def\adjprt:{0} +\ifx\prtadjtbl:\empty\else + \Define\searchadj:(2){ \IF \EqText(##1,#1) \THEN \def\adjprt:{##2}\FI} + \prtadjtbl:(0,999){\searchadj:} +\fi + + \if H\hpert: + \IF \LtDec(\Va,\T:T) \THEN \Va=\T:T; \FI + \IF \LtDec(\R:R,\Va) \THEN \R:R=\Va; \FI + \Vb+\adjprt:; + + \else + \IF \GtDec(\Vb,\T:T) \THEN \Vb=\T:T; \FI + \IF \GtDec(\R:R,\Vb) \THEN \R:R=\Vb; \FI + \Va+\adjprt:; + + \fi + \MoveTo(\Val\Va,\Val\Vb) +\seg:prt + +\ifx \:tmp\def + \if H\hpert: + \IF \LtInt(\I:I,\u:pert) \THEN + \sapply{up,merge,up,{#1}} + + \ELSE \IF \GtInt(\I:I,\d:pert) \THEN + \sapply{down,merge,down,{#1}} + + \ELSE \IF \LtInt(\DoReg,\l:pert) \THEN + \sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\sapply{left,merge,left,{#1}} + + \ELSE \IF \GtInt(\DoReg,\r:pert) \THEN + \MarkLoc(here) \CSeg\:GetY(col.maxY,here) +\IF \LtDec(\Vb,0) \THEN \MarkLoc(col.maxY) \FI +\CSeg\:GetX(col.maxX,here) +\IF \LtDec(\Va,0) \THEN + \CSeg\:GetX(origin:,here) + \Va/\node:wh; \Va+\l:pert; \Va-1; + \IF \LtDec(\Va,\r:pert) \Va=-1; \FI +\FI +\sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\IF \LtDec(\Va,0) \THEN + \Va=-1; +\sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\IF \LtDec(\Va,0) \THEN + \IF \GtInt(\DoReg,\r:pert) \THEN \ELSE + \MarkLoc(.) \CSeg\:GetX(origin:,.) + \Va/\node:wh; \Va/\step:right; +% \immediate\write16{..(\the\DoReg,\Val\I:I).......\Val\Vb....\step:down} + \IF \GtDec(\Va,1.3) \THEN + \gdef\overflow:col{Y} + \ELSE + \Va=-1; + \FI +\FI + +\FI +\IF \LtDec(\Va,0) \THEN + \MarkLoc(before) \PutNode(#1) \MarkLoc(here) +\CSeg\:GetX(before,here) +\IF \LtDec(\Va,\node:wh) \THEN + \edef\node:wh{\Val\Va} +\FI +\sapply{in,merge,in,{#1}} + + \Move(\openpertH:,-\adjprt:) +\ELSE + \sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\sapply{left,merge,left,{#1}} + +\FI + +\ELSE + \sapply{right,merge,right,{#1}} +\FI + + \ELSE \Va=-1; +\sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\IF \LtDec(\Va,0) \THEN + \IF \GtInt(\DoReg,\r:pert) \THEN \ELSE + \MarkLoc(.) \CSeg\:GetX(origin:,.) + \Va/\node:wh; \Va/\step:right; +% \immediate\write16{..(\the\DoReg,\Val\I:I).......\Val\Vb....\step:down} + \IF \GtDec(\Va,1.3) \THEN + \gdef\overflow:col{Y} + \ELSE + \Va=-1; + \FI +\FI + +\FI +\IF \LtDec(\Va,0) \THEN + \MarkLoc(before) \PutNode(#1) \MarkLoc(here) +\CSeg\:GetX(before,here) +\IF \LtDec(\Va,\node:wh) \THEN + \edef\node:wh{\Val\Va} +\FI +\sapply{in,merge,in,{#1}} + + \Move(\openpertH:,-\adjprt:) +\ELSE + \sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\sapply{left,merge,left,{#1}} + +\FI + + \FI \FI \FI \FI +\else + \IF \LtInt(\I:I,\l:pert) \THEN + \sapply{left,merge,left,{#1}} + + \ELSE \IF \GtInt(\I:I,\r:pert) \THEN + \sapply{right,merge,right,{#1}} + + \ELSE \IF \LtInt(\DoReg,\u:pert) \THEN + \sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\sapply{up,merge,up,{#1}} + + \ELSE \IF \GtInt(\DoReg,\d:pert) \THEN + \MarkLoc(here) \CSeg\:GetY(here,col.maxY) +\IF \LtDec(\Vb,0) \THEN + \CSeg\:GetY(here,origin:) + \Vb/\node:wh; \Vb+\u:pert; \Vb-1; + \IF \LtDec(\Vb,\d:pert) \Vb=-1; \FI +\FI +\sapply{temp,intersect,done,{#1}} +\sapply{temp,\Vb=1;\gob:I} +\IF \LtDec(\Vb,0) \THEN + \Va=-1; +\sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\IF \LtDec(\Va,0) \THEN + \IF \GtInt(\DoReg,\d:pert) \THEN \ELSE + \MarkLoc(.) \CSeg\:GetY(.,origin:) + \Vb/\node:wh; \Vb/\step:down; +% \immediate\write16{..(\the\DoReg,\Val\I:I).......\Val\Vb....\step:down} + \IF \GtDec(\Vb,1.2) \THEN + \gdef\overflow:col{Y} \Va=1; + \FI +\FI + +\FI +\IF \LtDec(\Va,0) \THEN + \MarkLoc(before) \PutNode(#1) +\MarkLoc(here) +\CSeg\:GetY(here,before) +\IF \LtDec(\Vb,\node:wh) \THEN + \edef\node:wh{\Val\Vb} +\FI +\CSeg\:GetY(here,col.maxY) +\IF \GtDec(\Vb,0) \THEN \MarkLoc(col.maxY) \FI +\sapply{in,merge,in,{#1}} + + \Move(-\adjprt:,-\openpertV:) +\ELSE + \sapply{down,merge,down,{#1}} +\FI + +\ELSE + \sapply{down,merge,down,{#1}} + +\FI + + \ELSE \Va=-1; +\sapply{temp,intersect,done,{#1}} +\sapply{temp,\Va=1;\gob:I} +\IF \LtDec(\Va,0) \THEN + \IF \GtInt(\DoReg,\d:pert) \THEN \ELSE + \MarkLoc(.) \CSeg\:GetY(.,origin:) + \Vb/\node:wh; \Vb/\step:down; +% \immediate\write16{..(\the\DoReg,\Val\I:I).......\Val\Vb....\step:down} + \IF \GtDec(\Vb,1.2) \THEN + \gdef\overflow:col{Y} \Va=1; + \FI +\FI + +\FI +\IF \LtDec(\Va,0) \THEN + \MarkLoc(before) \PutNode(#1) +\MarkLoc(here) +\CSeg\:GetY(here,before) +\IF \LtDec(\Vb,\node:wh) \THEN + \edef\node:wh{\Val\Vb} +\FI +\CSeg\:GetY(here,col.maxY) +\IF \GtDec(\Vb,0) \THEN \MarkLoc(col.maxY) \FI +\sapply{in,merge,in,{#1}} + + \Move(-\adjprt:,-\openpertV:) +\ELSE + \sapply{down,merge,down,{#1}} +\FI + + \FI \FI \FI \FI +\fi + +\else + \PutNode(#1) + \if H\hpert: \Move(\openpertH:,-\adjprt:) + \else \Move(-\adjprt:,-\openpertV:) \fi + +\fi +\MarkLoc(col.\Val\I:I) +\MoveToNode(#1,1,1) \MarkLoc(.) +\CSeg\:GetX(col.maxX,.) +\IF \GtDec(\Va,0) \THEN \MarkLoc(col.maxX) \FI + + + \fi +} +\Define\adjustpert(1){ + \def\prtadjtbl:{#1} + \ifx\prtadjtbl:\empty \else \Table\prtadjtbl:{#1} \fi +} +\adjustpert() +\def\utaskIV:#1{ \def\cur:{#1} \csname#1 :prev\endcsname } +\def\clipper:#1{ + \pflag:true + \seg:prt + +\ifx \:tmp\def \pflag:false \fi +\sapply{temp,merge,in,left} +\sapply{temp,merge,right,temp} +\sapply{temp,merge,up,temp} +\sapply{temp,merge,down,temp} +\sapply{temp,intersect,temp,{#1}} +\sapply{temp,\pflag:true \gob:I} + + \ifpflag: + \def\temp::{#1} +\ifx \temp::\cur: \pflag:false +\else\ifx\temp::\from: \pflag:false + \else \MoveToLoc(\cur:) \CSeg[0.5]\Move(\cur:,\from:) \MarkLoc(:=center=:) +\CSeg\:GetXY(\cur:,:=center=:) +\IF \LtDec(\Va,0) \THEN \Va=-\Va; \FI \edef\HH:{\Val\Va} +\IF \LtDec(\Vb,0) \THEN \Vb=-\Vb; \FI \edef\VV:{\Val\Vb} + + \MoveToNode(#1,0,-1) \MarkLoc(:=loc=:) +\CSeg\:GetY(:=center=:,:=loc=:) +\IF \GtDec(\Vb,\VV:) \THEN \pflag:false \ELSE + \MoveToNode(#1,0,1) \MarkLoc(:=loc=:) + \CSeg\:GetY(:=loc=:,:=center=:) + \IF \GtDec(\Vb,\VV:) \THEN \pflag:false \ELSE + \MoveToNode(#1,1,0) \MarkLoc(:=loc=:) + \CSeg\:GetX(:=loc=:,:=center=:) + \IF \GtDec(\Va,\HH:) \THEN \pflag:false \ELSE + \MoveToNode(#1,-1,0) \MarkLoc(:=loc=:) + \CSeg\:GetX(:=center=:,:=loc=:) + \IF \GtDec(\Va,\HH:) \THEN \pflag:false \FI + \FI + \FI +\FI + +\fi \fi + + \fi + \ifpflag: + \MoveToNode(#1,1,1) \MarkLoc(b:) + \MoveToNode(#1,-1,-1) \MarkLoc(a:) \CSeg\Clip(a:,b:) + \fi +} +\:DefineExt\pertstyle(7){\endgroup + \def\baropt:##1##2//{ + \pertoptA:##1 + } + \let\hpert:=x + \def\temp:{#1} \ifx\temp:\empty\else \baropt:#1......// \fi + \def\temp:{#2} \ifx\temp:\empty\else \def\openpertH:{#2} \fi + \def\temp:{#3} \ifx\temp:\empty\else \def\openpertV:{#3} \fi + \def\temp:{#4} \ifx\temp:\empty\else \let\MilestoneNode:=#4\fi + \def\temp:{#5} \ifx\temp:\empty\else \let\ProjectNode:=#5 \fi + \def\temp:{#6} \ifx\temp:\empty\else \let\TaskNode:=#6 \fi + \def\temp:{#7} \ifx\temp:\empty\else \def\pertw:{#7pt} \fi +} +\def\pertoptA:#1{ + \if#1H \let\hpert:=H \fi +} + +\pertstyle(,30,20,\RectNode,\VRectNode,\SRectNode,70) + + \def\treediagram(#1){{ \getparms:#1,,,,,,,,,// + \verify:{\first:} \def\verify:##1{} + \ifx\EndDraw\UnDef: + \pwarn:{\string\treediagram\space not\space within\space + \string\Draw...\string\EndDraw} + \fi + \ifx\second:\empty \def\second:{999} \fi \K:K=\second:; + \ifnum\csname\first: :type\endcsname=\projectnode:\space + \else \K:K=0; \fi + \IF \EqInt(\K:K,0) \THEN + \ifnum\csname\first: type\endcsname=\projectnode:\space + \let\temp:=\projectnode +\else + \ifnum\csname\first: type\endcsname=\tasknode:\space + \let\temp:=\tasknode + \else \let\temp:=\milestonenode + \fi +\fi +\temp:()(--{\treetext:{\first:}}--) + + \ELSE + \tcount: = 0 \let\nodeid: = \relax + +\let\node:=\getnode: +\def\row:{ \node:{\first:} } +\let~=\relax +\let\tree:=\empty +\def\utask:##1{ + \IF \GtInt(\K:K,0) \THEN + \I:I+1; + \let\node:=\relax + \edef\nextrow:{ \nextrow: \node:{##1} } + \let\node:=\getnode: + \FI + } + + \TextNode(1){ \titletext:{##1} } +\let\nodewidth:=\treenodewidth: +\def\temp:{\noexpand&} +\edef\temp:{ + \noexpand\TreeSpec + (\projectnode: ,\noexpand\project:node \temp: + \tasknode: ,\noexpand\task:node \temp: + \milestonenode:,\noexpand + \milestone:node)()(\noexpand\project:edge) +} \temp: + + \gettree: \def~{\noexpand&} + \def\nodeid:##1{ + \expandafter\ifx\csname##1 :id\endcsname\relax \else + ${}^{\csname##1 :id\endcsname}$ + \fi } + + \edef~{\noexpand\Tree()(\tree:)} ~ + \FI +}} + +\def\schedulechart(#1){ \getparms:#1,,,,,,,,,// + \verify:{\first:} \def\verify:##1{} + \def\efforts:##1{} + + \let\gal:=~ + \let~=\relax + \let\cutprojectstasks:=\cutprojectstasksA: + \cutoffdates: \getscale:\dateF: + \I:I=\K:K; +\IF \LtInt(\I:I,3) \THEN \I:I=3; +\ELSE + \I:I=\yrF:; \I:I-\yrS:; \IF \LtInt(\I:I,0) \I:I+\maxYY:; \FI + \IF \LtInt(\I:I,2) \THEN + \I:I*\maxMM:; \I:I+\moF:; \I:I-\moS:; + \FI +\FI +\let\nodates:=\empty +\Do(1,\Val\I:I){ \edef\nodates:{\nodates: ~} } + +\edef\dates:{\showdate:\dyS:/\moS:/\yrS:/0// \nodates: + \showdate:\dyF:/\moF:/\yrF:/0//} + + \cutofftypes: + \let\bars:=\empty \let\names:=\empty \let\nonames:=\empty +\def\chartelement:##1{ \pflag:true +\ifnum \csname##1 :type\endcsname=\milestonenode:\space + \axisdate:\dateA:{##1}\empty +\I:I=\dateA:; \def\temp:{-1} \J:J=0; \K:K=0; +\ifnum \dateA:<0\space \pflag:false \fi +\ifnum \dateA:>\dateF:\space \pflag:false \fi +\ifnum \optm:=\csname##1 :type\endcsname\space \pflag:false \fi + +\else + \cutprojectstasks:{##1} +\def\temp:{0} +\ifnum \csname##1 :type\endcsname=\projectnode:\space + \I:I=\dateA:; \J:J=\dateB:; \K:K=0; \J:J-\I:I; +\else \I:I=\dateA:; \J:J=0; \K:K=\dateB:; \K:K-\I:I; +\fi + +\fi +\I:I/\scale:; \J:J/\scale:; \K:K/\scale:; +\ifpflag: + \edef\bars:{ \bars: \ifx\bars:\empty\else ~ \fi + \Val\I:I,\temp:,\Val\J:J,\Val\K:K } + \edef\names:{ ~ \csname##1 :title\endcsname ~ \names:} +\edef\nonames:{\nonames:~} +\edef\efforts:{\efforts: ~ ##1 } + +\fi + } +\doelements:{\first:} + + \Define\DrawBar(2){ +\IF \GtInt(\J:J,0) \THEN + \IF \EqInt(\J:J,1) \THEN + \IF \EqInt(##1,-1) \THEN + \EntryExit(0,0,0,0) \expandafter\movemilestonesym:\barloc:// + \Text(--\milestonesym:--) + \MoveToExit(0,1) \Move(0,5pt\du) \EntryExit(0,-1,0,0) \putbartext: + + \ignoredepth: + \FI + \ELSE + \IF \GtDec(##1,0) \THEN + \MarkLoc(o) \R:R=##1; \R:R/2; \Q:Q=##2; \Q:Q/2; +\Move(\Val\R:R,\Val\Q:Q) +\EntryExit(0,0,0,0) \putbartext: \MoveToLoc(o) + + \DrawRect(##1,##2) + \FI + \FI +\ELSE \ignoredepth: \FI +\J:J+1; \IF \EqInt(\J:J,4) \THEN \J:J=0; \FI +} +\edef\temp:{\noexpand\BarChartSpec(HS\baropts:,\barloc: \noexpand & + \barloc: \noexpand & \barloc: \noexpand & \barloc:) + (0 \noexpand& 0 \noexpand& \projectcolor: \noexpand& \taskcolor:)} +\temp: + + \let~=\gal: + \sv:forchart + + \ifnum \schedulelimit:=10000 \else + \ifnum \schedulelimit:=10000 \else + \def~{\noexpand&} \edef\tmp:i{\bars:} \let~=\relax + \expandafter\Table\expandafter\tmp:i\expandafter{\tmp:i} + \def\maxeffort:{0} + \Define\tmp:ii(4){ + \K:K=##1; \K:K+##4; + \IF \GtInt(\K:K,\maxeffort:) \THEN \edef\maxeffort:{\Val\K:K}\FI + } + \tmp:i(0,999){\tmp:ii} +\fi + + \dec:dim\schedulelimit: + + \fi + \put:schedulechart + \let~=\gal: + \let\verify:=\verify:: +} +\Define\put:schedulechart{ + \ifnum \schedulelimit:=10000 \else + \I:I=\effort:from; \J:J=\effort:to; \let~=\relax +\I:I-1; \J:J-1; +\def~{\noexpand&} \edef\tmp:i{\bars:} \let~=\relax +\expandafter\Table\expandafter\tmp:i\expandafter{\tmp:i} +\let\bars:=\empty +\Define\tmp:ii(1){\edef\bars:{\ifx\bars:\empty\else\bars:~\fi##1}} +\tmp:i(\Val\I:I,\Val\J:J){\tmp:ii} + + \def~{\noexpand&} \edef\tmp:i{\names:} \let~=\relax +\expandafter\Table\expandafter\tmp:i\expandafter{\tmp:i} +\let\names:=\empty +\Define\tmp:ii(1){ + \IF \GtDec(\K:K,\min:sg) \THEN + \IF \LtDec(\K:K,\max:sg) \THEN + \edef\names:{\names:~ ##1} + \FI \FI + \K:K+1; +} +\K:K=\effort:max; \K:K-\effort:to; \K:K*2; \edef\min:sg{\Val\K:K} +\K:K=\effort:max; \K:K-\effort:from; \K:K+1; + \K:K*2; \K:K+1; \edef\max:sg{\Val\K:K} +\K:K=0; \tmp:i(0,9999){\tmp:ii} + + \def~{\noexpand&} \edef\tmp:i{\nonames:} \let~=\relax +\expandafter\Table\expandafter\tmp:i\expandafter{\tmp:i} +\let\nonames:=\empty +\Define\tmp:ii(1){ + \IF \GtDec(\K:K,\min:sg) \THEN + \IF \LtDec(\K:K,\max:sg) \THEN + \edef\nonames:{\nonames:~##1} + \FI \FI + \K:K+1; +} +\K:K=\effort:from; \K:K-2; \edef\min:sg{\Val\K:K} +\K:K=\effort:to; \edef\max:sg{\Val\K:K} +\K:K=0; \tmp:i(0,9999){\tmp:ii} + + \ifnum \effort:from>1 + \cnd:starts \schedulecode: + \fi + \bgroup + \fi + \def~{\noexpand&} \pflag:true +\edef\temp:{ \noexpand\Table\noexpand\efforts:{ \efforts: } } +\temp: +\if T\bartext: + \edef\temp:{ \noexpand\Table\noexpand\names:Tbl:{ \names: } } + \temp: + \let~=\relax +\Define\temp:(1){\edef\names:{##1~\names:}} +\let\names:=\empty +\names:Tbl:(0,99){\temp:} +\def~{\noexpand&} +\edef\temp:{ \noexpand\Table\noexpand\names:Tbl:{ \names: } } +\temp: + +\fi + \J:J=0; \K:K=0; +\edef\temp:{ \noexpand\BarChart( \bars: ) } \temp: + + \ifnum \schedulelimit:=10000 \else + \MoveToLoc(Origin) \Move(\maxeffort:,0) +\MarkLoc(NE) \CSeg\Move(NW,SW) \MarkLoc(SE) +\MoveToLoc(NE) \Text(----) + + + \fi + \let\nodewidth:=\scnodewidth: +\if A\baraxis: \datesaxis(SW,NE)(S-1) + + \MoveToLoc(NE) {\Text(--\phantom{\showdate:00/00/00/0//}--) +\MoveToExit(1,0) \Text(----)} + + + \if T\bartext: + \else \MoveToLoc(SW) \Move(-5pt\du,0) \MarkLoc(sw:) +\MoveToLoc(NE) \Move(5pt\du,0) \MarkLoc(ne:) +\CSeg\DrawRect(ne:,sw:) +\namesaxis(sw:,ne:)(W-0) +\nonamesaxis(sw:,ne:)(W-1) +\MoveToLoc(ne:) {\Text(--\phantom{\showdate:00/00/00/0//}--) +\MoveToExit(1,0) \Text(----)} + + + + \fi +\fi + + \ifnum \schedulelimit:=10000 \else + \egroup + \recall:forchart + + \last:segdraw\put:schedulechart + + \fi +} + +\def\effortchart(#1){ \getparms:#1,,,,,,,,,// + \verify:{\first:} \def\verify:##1{} + \ifnum\csname\first: :type\endcsname= \milestonenode: \space + \pwarn:{\string\effortchart{\first:}?\space `\first:'\space is + \space a\space milestone} + \else + \let\gal:=~ + \let~=\relax + \edef\temp:{\second:\third:\fourth:} +\ifx\temp:\empty \def\cutprojectstasks:##1{} +\else \cutoffdates: \cutofftypes: + \let\cutprojectstasks:=\cutprojectstasksA: +\fi + + \let\bars:=\empty \let\names:=\empty \let\nonames:=\empty +\def\maxeffort:{0} \K:K=0; +\let\chartelement:=\utaskII: +\doelements:{\first:} + + \IF \EqInt(\K:K,0) \THEN + \pwarn:{empty\space effort\space chart\space for\space `#1'} + \ELSE + \expandafter\getint:\maxeffort:.0.0// \getscale:\K:K + \IF \GtInt(\scale:,1) \THEN + \def~{\noexpand&} + \edef\temp:{\noexpand\Table\noexpand\temp:{\bars:}} + \temp: + \let~=\relax + \def\bars:##1{} + \Define\tempa:(2){ \Q:Q=##1; + \Q:Q/\scale:; \edef\bars:{\bars: ~ \Val\Q:Q,##2} } + \temp:(0,99){\tempa:} +\FI + + \let\BarText=\EffortBarText: + +\edef\temp:{\noexpand\BarChartSpec( HT\effortbaropts: , \effortbarloc: ) + ( \effortcolor: ) } +\temp: +\if A\effortbaraxis: \if 3\effortbarIIID: \BarGrid(0,,) \FI\FI + + + \edef\dates:{\maxeffort:} +\expandafter\getint:\maxeffort:.0.0// +\I:I=\K:K; \I:I/2; \K:K-\I:I; \K:K-\I:I; +\Q:Q=\frac:; \Q:Q+\K:K; \Q:Q/2; +\IF \EqDec(\Q:Q,0) + \edef\dates:{0 ~ \Val\I:I ~ \dates:} +\ELSE \Q:Q*10; \J:J[\Q:Q]; \edef\dates:{0 ~ \Val\I:I.\Val\J:J ~ \dates:} +\FI + + \edef\names:{0,\lastnames:~\names:} +\edef\nonames:{0,\lastnames: ~0,\relax~ \nonames:} + + \sv:forchart + + \ifnum \effortlimit:=10000 \else + \dec:dim\effortlimit: + + \fi + \put:effortchart + \FI + \let~=\gal: + \fi + \let\verify:=\verify:: +} +\Define\put:effortchart{ + \ifnum \effortlimit:=10000 \else + \I:I=\effort:from; \J:J=\effort:to; \let~=\relax +\I:I-1; \J:J-1; +\def~{\noexpand&} \edef\tmp:i{\bars:} \let~=\relax +\expandafter\Table\expandafter\tmp:i\expandafter{\tmp:i} +\let\bars:=\empty +\Define\tmp:ii(1){\edef\bars:{\ifx\bars:\empty\else\bars:~\fi##1}} +\tmp:i(\Val\I:I,\Val\J:J){\tmp:ii} + + \def~{\noexpand&} \edef\tmp:i{\names:} \let~=\relax +\expandafter\Table\expandafter\tmp:i\expandafter{\tmp:i} +\let\names:=\empty +\Define\tmp:ii(2){ + \T:T=\effort:max; \T:T-##1; + \IF \GtDec(\T:T,\I:I) \THEN + \IF \GtDec(\T:T,\effort:to) \THEN\ELSE + \T:T=##1; \T:T-\effort:max; \T:T+\effort:to; + \IF \EqDec(\T:T,0.0) \THEN \T:T=0.25; \FI + \edef\names:{\ifx\names:\empty\else\names:~\fi \Val\T:T,##2} + \FI \FI +} +\tmp:i(1,9999){\tmp:ii} +\K:K=\effort:to; \K:K-\I:I; +\edef\names:{0,\Val\K:K\ifx \names:\empty\else ~\names:\fi} + + \def~{\noexpand&} \edef\tmp:i{\nonames:} \let~=\relax +\expandafter\Table\expandafter\tmp:i\expandafter{\tmp:i} +\let\nonames:=\empty +\Define\tmp:ii(2){ + \T:T=\effort:max; \T:T-##1; + \IF \LtDec(\T:T,\I:I) \THEN \ELSE + \IF \GtDec(\T:T,\effort:to) \THEN\ELSE + \T:T=##1; \T:T-\effort:max; \T:T+\effort:to; + \edef\nonames:{\ifx\nonames:\empty\else\nonames:~\fi \Val\T:T,##2} + \FI \FI +} +\tmp:i(1,9999){\tmp:ii} +\K:K=\effort:to; \K:K-\I:I; +\edef\nonames:{0,\Val\K:K\ifx \nonames:\empty\else ~\nonames:\fi} + + \ifnum \effort:from>1 + \cnd:starts \effortcode: + \fi + \bgroup + \fi + \def~{\noexpand&} +\edef\temp:{ \noexpand\BarChart( \bars: ) } \temp: + + \ifnum \effortlimit:=10000 \else + \MoveToLoc(Origin) \Move(\maxeffort:,0) +\MarkLoc(NE) \CSeg\Move(NW,SW) \MarkLoc(SE) +\MoveToLoc(NE) \Text(----) + + + \fi + \if A\effortbaraxis: + \MoveToLoc(NE) \Move(5pt\du,0) \MarkLoc(ne:) + \if 3\effortbarIIID: + {\CSeg\Line(ne:,NW) } \CSeg\Line(NW,SW) \CSeg\Line(ne:,NW) + \else \CSeg\DrawRect(ne:,SW) \fi + \effortaxis(SW,NE)(S-1) + \namesaxis(SW,NE)(W5) + \nonamesaxis(SW,ne:)(W8) + \ifnum \effortlimit:=10000 \else + \nonamesaxis(SW,ne:)(W-6) + + \fi + \MoveToLoc(ne:) \Text(----) + +\fi + + \ifnum \effortlimit:=10000 \else + \egroup + \recall:forchart + + \last:segdraw\put:effortchart + + \fi +} +\def\pertdiagram{\futurelet\:temp\pertd:ag} +\def\pertd:ag{\ifx \:temp* + \def\date:less{\def\dateA:{0}} + \def\:temp##1{\pertdiagram:} + \else + \let\date:less=\empty + \let\:temp=\pertdiagram: + \fi + \:temp} +\def\pertdiagram:(#1){ \getparms:#1,,,,,,,,,// + \verify:{\first:} \def\verify:##1{} + \ifnum\csname\first: :type\endcsname= \projectnode: \space + \let\gal:=~ + \let~=\relax + \cutoffdates: + \cutofftypes: + \let\index:=\relax \let\dates:=\empty +\def\utask:##1{ + \expandafter\def\csname##1 :bool\endcsname{0} + \ifnum\csname##1 :type\endcsname=\milestonenode:\space + \axisdate:\dateA:{##1}\empty + \else + \axisdate:\dateA:{##1}1 + \fi + \date:less + \expandafter\ifx\csname -\dateA:-:\endcsname\relax + \edef\dates:{ \dates: {\dateA:} } + \fi + \expandafter\edef\csname -\dateA:-:\endcsname{ + \expandafter\ifx\csname -\dateA:-:\endcsname\relax \else + \csname -\dateA:-:\endcsname + \fi + \index:{##1} } + } +\csname\first: :under\endcsname +\sort: +\def\prev:##1{ + \expandafter\ifx\csname##1 :bool\endcsname\relax + + \else + \J:J=\csname##1 :bool\endcsname; \J:J+1; +\IF \GtInt(\J:J,\csname\cur: :bool\endcsname) \THEN + \pflag:true + \expandafter\edef\csname\cur: :bool\endcsname{\Val\J:J} +\FI + + \fi } +\def\utask:##1{ + \def\cur:{##1} + \csname##1 :prev\endcsname } +\def\setrows:{ \pflag:false + \csname\first: :under\endcsname + \ifpflag: + \expandafter\setrows: + \fi } +\setrows: + + \J:J=-1; +\def\colsno:{0} \expandafter\let\csname 0 :nodes\endcsname=\empty +\def\utask:##1{ \tcount:=\csname##1 :bool\endcsname\space +\expandafter\ifx\csname col-:\the\tcount:\endcsname\relax + \expandafter + \def\csname col-:\the\tcount: :+\endcsname{ \index:{##1} } + + \expandafter\def\csname col-:\the\tcount:\endcsname{0} + \tcount:=0\space \J:J+1; +\else + \expandafter\edef\csname col-:\the\tcount: :+\endcsname{ + \csname col-:\the\tcount: :+\endcsname \index:{##1} } + + \I:I=\csname col-:\the\tcount:\endcsname; \I:I+1; + \expandafter\edef\csname col-:\the\tcount:\endcsname{ \Val\I:I } + \tcount:=\Val\I:I\space + \ifnum \tcount:>\colsno:\space + \expandafter\let\csname \the\tcount: :nodes\endcsname=\empty + \edef\colsno:{\the\tcount:} +\fi + +\fi + } +\csname\first: :under\endcsname + +\Do(0,\Val\J:J){ + \J:J=\colsno:; \J:J-\csname col-:\the\DoReg\endcsname; \J:J/2; + \let\node:=\relax +\let\currow:=\empty +\let\index:=\indexIII: +\let\prev:=\prevI: +\csname col-:\the\DoReg :+\endcsname + +\tcount:=\Val\J:J +\expandafter\inserttocol:\currow:{}{} + + +} + + + + + \let\nodewidth:=\pertw: \MarkLoc(origin:) \edef\rowsno:{0} +\sapply{all,merge,{},{}} +\def\node:##1{ + \IF \GtInt(\I:I,\rowsno:) \edef\rowsno:{\Val\I:I} \FI \I:I+1; + \ifnum\csname##1 :type\endcsname=\milestonenode:\space + \let\PertNode:=\MilestoneNode: +\else + \ifnum\csname##1 :type\endcsname=\projectnode:\space + \let\PertNode:=\ProjectNode: + \else + \let\PertNode:=\TaskNode: + \fi +\fi + +\DefNode\PertNode:(##1)(--\titletextA:{\perttext:{##1}}--) +\sapply{all,merge,all,{##1}} + + \AddNodeDim(##1) +} +\sapply{MaxXYI,merge,{},{}} +\Do(0,\colsno:){ + \I:I=0; + \ZeroNodesDim + \csname \the\DoReg :nodes\endcsname + \sapply{MaxXYI,merge,MaxXYI,{\if H\hpert: \MaxY + \else \MaxX\fi :\the\DoReg}} + +} + + \def\l:pert{0} \def\u:pert{0} +\if H\hpert: + \grps:ns\step:right\colsno:\pert:cols + \grps:ns\step:down\rowsno:\pert:rows +\else + \grps:ns\step:right\colsno:\pert:cols + \grps:ns\step:down\rowsno:\pert:rows +\fi +\I:I=\step:right; \I:I-1; \edef\r:pert{\Val\I:I} +\I:I=\step:down; \I:I-1; \edef\d:pert{\Val\I:I} +\sapply{in,merge,{},{}} +\sapply{done,merge,{},{}} +\def\overflow:col{N} +\MoveToLoc(origin:) \MarkLoc(col.minX) \MarkLoc(col.maxX) +\MarkLoc(col.maxY) \edef\node:wh{1000} + + \def\:temp{ \def\effort:n{-1} \pert:diag{#1} + } + \let~=\gal: + \else \pwarn:{\string\pertdiagram{\first:}?\space + not \space a \space project} + \let\:temp\empty + \fi + \let\verify:=\verify:: + \:temp +} +\def\getnodesbydate:#1{ + \def\temp:{#1} + \ifx \temp:\empty \else + \def\temp:{ + \let\index:=\indexI: +\Q:Q=0; \R:R=0; +\csname -#1-:\endcsname + + \let\elms:=\empty +\def\index:####1{ + \edef\elms:{\elms: {####1}} + \expandafter\def\csname####1 :boolA\endcsname{0} + } +\csname -#1-:\endcsname +\def\maxsub:{0} +\def\prev:####1{ + \def\bef:{####1} + \expandafter\compr:\elms:{} +} +\subsort: + + \let\index:=\indexII: \T:T=\prevstart:; +\Do(0,\maxsub:){ + \R:R=0; + \csname -#1-:\endcsname + \IF \GtDec(\R:R,\T:T) + \T:T=\R:R; + \if H\hpert: \T:T+\openpertH:; \else \T:T-\openpertV:; \fi + \FI +} + + \getnodesbydate: } + \expandafter\temp: + \fi +} +\def\indexI:#1{ + \I:I=\csname#1 : in/cl:\endcsname; + \CSeg\:GetXY(origin:,col.\Val\I:I) + \if H\hpert: + \IF \GtDec(\Va,\Q:Q) \THEN \Q:Q=\Va; \FI + \IF \GtDec(\prevstart:,\Q:Q) \THEN \Q:Q=\prevstart:; + \Q:Q+\openpertH:; \FI + \else + \IF \GtDec(\Q:Q,\Vb) \THEN \Q:Q=\Vb; \FI + \IF \GtDec(\Q:Q,\prevstart:) \THEN \Q:Q=\prevstart:; + \Q:Q-\openpertV:; \FI + \fi + \edef\prevstart:{\Val\Q:Q} +} +\def\pert:diag#1{ + \seg:prt + +\ifx \:tmp\def + \ifnum \effort:n>-1 + \sapply{prevdone,merge,done,{}} + \global \expandafter\setbox + \csname dra:bx\effort:n\endcsname=\hbox + \fi + \bgroup +\fi + + \def\MaxX##1{\MaxY##1/+/-]/[} +\def\MaxY##1:##2/+/-]/[{ + \def\:tmp####1{ + \ifnum \csname####1 : in/cl:\endcsname=##2 + \sapply{used,merge,used,{####1}} + \fi +} +\sapply{used,merge,{},{}} +\sapply{all,\:tmp} +\sapply{used,subtract,used,done} +\let\:tmp=\relax +\sapply{used,\let\:tmp=\def\gob:I} + + \if H\hpert: + \IF \LtInt(##2,\u:pert) \THEN \let\:tmp=\relax + \ELSE \IF \GtInt(##2,\d:pert) \THEN \let\:tmp=\relax + \FI \FI +\else + \IF \LtInt(##2,\l:pert) \THEN \let\:tmp=\relax + \ELSE \IF \GtInt(##2,\r:pert) \THEN \let\:tmp=\relax + \FI \FI +\fi + + \ifx \:tmp\def + \if H\hpert: + \Move(0,-##1) \MarkLoc(col.##2) \Move(0,-##1) + \Move(0,-\openpertV:) + \else + \Move(##1,0) \MarkLoc(col.##2) \Move(##1,0) + \Move(\openpertH:,0) + \fi + \else \ifnum ##2>0 + \MarkLoc(.) \I:I=##2; \I:I-1; \MoveToLoc(col.\Val\I:I) + \MarkLoc(col.##2) \MoveToLoc(.) +\else \MarkLoc(col.##2) \fi + \fi +} +\sapply{MaxXYI,\MaxX} + +\sapply{in,merge,{},{}} +\sapply{up,merge,{},{}} +\sapply{down,merge,{},{}} +\sapply{left,merge,{},{}} +\sapply{right,merge,{},{}} +\let\M:N\empty +\let\M:X\empty + + \if H\hpert: \EntryExit(-1,0,1,0) \def\prevstart:{-10} +\else \EntryExit(0,1,0,-1) \def\prevstart:{10} \fi +\expandafter\getnodesbydate:\dates:{} + + \sapply{edges,merge,{},{}} +\def\prev:##1{ \sapply{temp,intersect,in,{##1,\cur:}} +\sapply{temp,\sapply{edges,merge,edges,{##1,\cur:}}\gob:I} + } +\let\utask:=\utaskIV: +\csname\first: :under\endcsname +\sapply{edges,subtract,edges,in} +\sapply{up,intersect,up,edges} +\sapply{down,intersect,down,edges} +\sapply{left,intersect,left,edges} +\sapply{right,intersect,right,edges} + +\MoveToLoc(origin:) \Move(10,0) \MarkLoc(.) +\MoveToLoc(col.maxX) \Move(0,10) \MarkLoc(..) +\MoveToLL(origin:,.)(col.maxX,..) \Move(0,5) \MarkLoc(col.maxX) +\MoveToLoc(col.minX) \Move(0,5) \MarkLoc(col.minX) + +\K:K=0; +\sapply{left,\K:K+1;\gob:I} \J:J=\K:K; +\sapply{right,\K:K+1;\gob:I} +\sapply{down,\K:K+1;\gob:I} +\sapply{up,\K:K+1;\gob:I} +\CSeg\:GetY(col.maxY,origin:) \Vb/\node:wh; \Vb*0.7; +\IF \GtDec(\Vb,\K:K) \K:K*2; + \IF \EqInt(\J:J,0) \K:K=-\K:K; \FI +\ELSE \K:K/2; \K:K-1; \FI + +\sapply{up,\put:nd} +\sapply{left,\put:nd} +\sapply{right,\put:nd} +\sapply{down,\put:nd} + + \def\prev:##1{ \expandafter\ifx\csname##1 :bool\endcsname\relax + +\else + \def\from:{##1} +\let\utask:=\clipper: +\csname\first: :under\endcsname +\seg:prt + +\ifx \:tmp\def + \sapply{do,merge,{},{}} +\sapply{temp,intersect,in,{##1,\cur:}} +\sapply{temp,\sapply{do,merge,{##1},{}}\gob:I} +\sapply{do,\ifx\M:N\empty \edef\M:N{##1}\edef\M:X{##1}\fi +\def\:temp{ + \CSeg\:GetX(##1,\M:N) \IF \GtDec(\Va,0) \edef\M:N{##1}\FI + \CSeg\:GetX(\cur:,\M:N) \IF \GtDec(\Va,0) \edef\M:N{\cur:}\FI + \CSeg\:GetX(\M:X,##1) \IF \GtDec(\Va,0) \edef\M:X{##1}\FI + \CSeg\:GetX(\M:X,\cur:) \IF \GtDec(\Va,0) \edef\M:X{\cur:}\FI +} +\:temp +{\Edge(##1,\cur:)}\gob:I} + +\else + \Edge(##1,\cur:) + +\fi + +\fi +\Clip() +\let\utask:=\utaskIV: + } +\let\utask:=\utaskIV: +\csname\first: :under\endcsname + + \sapply{in,\extrm:in} +\ifx \M:N\empty\else + \MoveToNode(\M:N,-1,0) \MarkLoc(.\M:N) + \MoveToNode(\M:X,1,0) \MarkLoc(.\M:X) + {\Text(----)} + + \CSeg\:GetX(origin:,.\M:N) \xdef\left:mrk{\Val\Va} + \CSeg\:GetX(origin:,.\M:X) \xdef\right:mrk{\Val\Va} +\fi + + \seg:prt + +\ifx \:tmp\def + \sapply{done,merge,done,in} +\edef\:temp{\noexpand \sapply{done,merge,{\csname + done:mkls\endcsname},{}}} +\expandafter + + \egroup \:temp + \ifnum \effort:n>-1 + \sapply{leftover,subtract,done,prevdone} + \let\:tmp=\relax + \sapply{leftover,\let\:tmp=\def\gob:I} + \ifx \:tmp\def + \snd:bxo \pertcode: + \else + \global \expandafter\setbox + \csname dra:bx\effort:n\endcsname=\hbox{} + \I:I=\effort:n; \I:I-1; \edef\effort:n{\Val\I:I} + \fi +\fi + + \sapply{leftover,subtract,all,done} + \let\:tmp=\relax + \sapply{leftover,\let\:tmp=\def\gob:I} + \ifx \:tmp\def + \I:I=\effort:n; \I:I+1; \edef\effort:n{\Val\I:I} + \if Y\overflow:col + \def\overflow:col{N} +\else + \I:I=\r:pert; \I:I+1; \edef\l:pert{\Val\I:I} + \I:I=\r:pert; \I:I+\step:right; \edef\r:pert{\Val\I:I} + \ifnum \l:pert > \if H\hpert: \rowsno: \else \colsno: \fi + \I:I=\d:pert; \I:I+1; \edef\u:pert{\Val\I:I} + \I:I=\d:pert; \I:I+\step:down; \edef\d:pert{\Val\I:I} + \def\l:pert{0} \I:I=\step:right; \I:I-1; \edef\r:pert{\Val\I:I} + \fi +\fi +\if H\hpert: \else + \I:I=\l:pert; \I:I+7; + \Do(\l:pert,\Val\I:I){ + \def\:tmp####1{ + \ifnum \csname####1 : in/cl:\endcsname=\DoReg + \sapply{used,merge,used,{####1}} + \fi +} +\sapply{used,merge,{},{}} +\sapply{all,\:tmp} +\sapply{used,subtract,used,done} +\let\:tmp=\relax +\sapply{used,\let\:tmp=\def\gob:I} +\ifx \:tmp\relax + \I:I=\r:pert; \I:I+1; \edef\r:pert{\Val\I:I} +\fi + + } +\fi + + + \aft:edraw + +\df:bfs + + + \expandafter\expandafter\expandafter\pert:diag + \else + \expandafter\expandafter\expandafter\gob:I + \fi +\else + \expandafter\gob:I +\fi {#1} + +} +\def\seg:prt{ + \let\:tmp=\def + \ifnum \pert:rows=10000 + \ifnum \pert:cols=10000 + \let\:tmp=\relax + \fi \fi +} +\def\grps:ns#1#2#3{{ + \ifnum #3>#2 + \I:I=#3; \I:I+1; + \else + \R=#2; \R+1; \R/#3; \R+0.49999; \J:J[\R]; + \R=#2; \R+1; \R/\J:J; \I:I[\R]; + \fi + \edef#1{\def\noexpand#1{\Val\I:I}} + \expandafter}#1} +\def\put:nd#1{ + \let\sv:EntryExit\:InOut + \IF \LtInt(\K:K,0) + \EntryExit(-1,1,-1,-1) +\MoveToLoc(col.maxX) \Move(\openpertH:,0) +\FcNode(#1) \pert:bnode(#1) +\MoveToExit(0,1) \MarkLoc(from) \MoveToExit(0,-1) \MarkLoc(to) +\MoveToLoc(col.maxX) \CSeg\Move(from,to) +\Move(0,-\openpertV:) \MarkLoc(col.maxX) + + \ELSE + \EntryExit(1,1,1,-1) +\MoveToLoc(col.minX) \Move(-\openpertH:,0) +\FcNode(#1) \pert:bnode(#1) +\MoveToExit(0,1) \MarkLoc(from) \MoveToExit(0,-1) \MarkLoc(to) +\MoveToLoc(col.minX) \CSeg\Move(from,to) +\Move(0,-\openpertV:) \MarkLoc(col.minX) + + \FI + \K:K-1; + \let\:InOut\sv:EntryExit +} +\def\gob:I#1{} +\:DefineExt\pertlimits(1){\endgroup + \pertlimits:#1,,,,,// +} +\expandafter\long\expandafter\def\csname + .:\string \pertlimits\endcsname(#1){\endgroup + \pertlimits:#1,,,,,// +} +\long\def\pertlimits:#1,#2,#3,#4,#5//{ + \def\temp:{#1} \ifx\temp:\empty\else \def\pert:rows{#1} \fi + \def\temp:{#2} \ifx\temp:\empty\else \def\pert:cols{#2} \fi + \def\temp:{#3} \ifx\temp:\empty\else \def\pert:bnode{#3} \fi + \def\temp:{#3} \ifx\temp:\empty\else \def\pertcode:{#4} \fi +} +\pertlimits(10000,10000,\ExtNode,\par) +\Define\ExtNode(1){ + \filtercommand\name{#1} + \OvalNode(#1)(--\putcommand--)} +\def\extrm:in#1{\ifx\M:N\empty \edef\M:N{#1}\edef\M:X{#1}\fi +\def\:temp{ + \CSeg\:GetX(#1,\M:N) \IF \GtDec(\Va,0) \edef\M:N{#1}\FI + \CSeg\:GetX(\M:X,#1) \IF \GtDec(\Va,0) \edef\M:X{#1}\FI +} +\:temp +} +\expandafter \ifx \csname tmp:dim\endcsname \relax + \csname newdimen\endcsname \tmp:dim +\fi + + +\:RestoreCatcodes \endinput + + |