test/camdtree.c

   1
   2
   3 #include <stdio.h>
   4 #include <proto/exec.h>
   5 #include <proto/camd.h>
   6 #include <midi/camd.h>
   7
   8 #define TABSIZE 4
   9
  10 struct Library *CamdBase=NULL;
  11
  12 #ifndef GetMidiLinkAttrs
  13 ULONG GetMidiLinkAttrs(struct MidiLink *ml, Tag tag, ...){
  14         return GetMidiLinkAttrsA(ml, (struct TagItem *)&tag );
  15 }
  16 #endif
  17
  18 #ifndef GetMidiAttrs
  19 ULONG GetMidiAttrs(struct MidiNode *ml, Tag tag, ...){
  20         return GetMidiAttrsA(ml, (struct TagItem *)&tag );
  21 }
  22 #endif
  23
  24 struct MidiLink *GetMidiLinkFromOwnerNode(struct MinNode *node){
  25         struct MidiLink dummy;
  26         return (struct MidiLink *)((char *)((char *)(node)-((char *)&dummy.ml_OwnerNode-(char *)&dummy)));
  27 }
  28
  29 void printSpaces(int level){
  30         int lokke;
  31         for(lokke=0;lokke<level*TABSIZE;lokke++){
  32                 printf(" ");
  33         }
  34 }
  35
  36 void printLink_brancheNodes(struct MidiLink *midilink,int level,int maxlevel);
  37 void printLink_brancheClusters(struct MidiLink *midilink,int level,int maxlevel);
  38 void printCluster(struct MidiCluster *cluster,int level,int maxlevel);
  39
  40
  41 void printNode(struct MidiNode *midinode,int level,int maxlevel){
  42         char *nodename=NULL;
  43         struct MinNode *node;
  44
  45         if(level==maxlevel) return;
  46
  47         GetMidiAttrs(midinode,MIDI_Name,(IPTR)&nodename,TAG_END);
  48
  49         printSpaces(level);
  50         printf(
  51                 "%p, -%s-\n",
  52                 midinode,
  53                 nodename
  54         );
  55
  56         if(level+1==maxlevel) return;
  57
  58         if( ! (IsListEmpty((struct List *)&midinode->mi_OutLinks))){
  59                 printSpaces(level);
  60                 printf("  -OutLinks:\n");
  61                 node=midinode->mi_OutLinks.mlh_Head;
  62                 while(node->mln_Succ!=NULL){
  63                         printLink_brancheClusters(GetMidiLinkFromOwnerNode(node),level+1,maxlevel);
  64                         node=node->mln_Succ;
  65                 }
  66         }
  67
  68         if( ! (IsListEmpty((struct List *)&midinode->mi_InLinks))){
  69                 printSpaces(level);
  70                 printf("  -InLinks:\n");
  71                 node=midinode->mi_InLinks.mlh_Head;
  72                 while(node->mln_Succ!=NULL){
  73                         printLink_brancheClusters(GetMidiLinkFromOwnerNode(node),level+1,maxlevel);
  74                         node=node->mln_Succ;
  75                 }
  76         }
  77 }
  78
  79
  80 BOOL printLink(struct MidiLink *midilink){
  81         char *linkname=NULL;
  82
  83         if(midilink->ml_Node.ln_Type==NT_USER-MLTYPE_Receiver || midilink->ml_Node.ln_Type==NT_USER-MLTYPE_Sender){
  84                 GetMidiLinkAttrs(midilink,MLINK_Name,(IPTR)&linkname,TAG_END);
  85                 printf(
  86                         "%p, -%s-\n",
  87                         midilink,
  88                         linkname
  89                 );
  90                 return TRUE;
  91         }
  92
  93         printf("%p, <driverdata> (private)\n",midilink);
  94         return FALSE;
  95 }
  96
  97 void printLink_brancheNodes(struct MidiLink *midilink,int level,int maxlevel){
  98         struct MidiNode *midinode;
  99
 100         if(level==maxlevel) return;
 101
 102         printSpaces(level);
 103         if(printLink(midilink)==TRUE){
 104                 midinode=midilink->ml_MidiNode;
 105                 printSpaces(level);
 106                 printf("  -Owner (MidiNode): \n");
 107                 printNode(midinode,level+1,maxlevel);
 108         }
 109 }
 110
 111 void printLink_brancheClusters(struct MidiLink *midilink,int level,int maxlevel){
 112         if(level==maxlevel) return;
 113
 114         printSpaces(level);
 115         printLink(midilink);
 116
 117         if(level+1==maxlevel) return;
 118
 119         printSpaces(level);
 120         printf("  -Cluster: \n");
 121         printCluster(midilink->ml_Location,level+1,maxlevel);
 122 }
 123
 124
 125 void printCluster(struct MidiCluster *cluster,int level,int maxlevel){
 126         struct MidiLink *midilink;
 127
 128         if(level==maxlevel) return;
 129
 130         printSpaces(level);
 131         printf("clustername: -%s-\n",cluster->mcl_Node.ln_Name);
 132
 133         if(level+1==maxlevel) return;
 134
 135         if(!(IsListEmpty(&cluster->mcl_Receivers))){
 136                 printSpaces(level);
 137                 printf("  ");
 138                 printf("-Receiver links:\n");
 139
 140                 midilink=(struct MidiLink *)cluster->mcl_Receivers.lh_Head;
 141                 while(midilink->ml_Node.ln_Succ!=NULL){
 142                         printLink_brancheNodes(midilink,level+1,maxlevel);
 143                         midilink=(struct MidiLink *)midilink->ml_Node.ln_Succ;
 144                 }
 145         }
 146
 147         if(!(IsListEmpty(&cluster->mcl_Senders))){
 148                 printSpaces(level);
 149                 printf("  ");
 150                 printf("-Sender links:\n");
 151                 midilink=(struct MidiLink *)cluster->mcl_Senders.lh_Head;
 152                 while(midilink->ml_Node.ln_Succ!=NULL){
 153                         printLink_brancheNodes(midilink,level+1,maxlevel);
 154                         midilink=(struct MidiLink *)midilink->ml_Node.ln_Succ;
 155                 }
 156         }
 157 }
 158
 159
 160 int main(){
 161
 162         APTR lock;
 163         struct MidiCluster *cluster;
 164
 165         CamdBase=OpenLibrary("camd.library",40L);
 166
 167         if(CamdBase!=NULL){
 168
 169                 lock=LockCAMD(CD_Linkages);
 170
 171                 cluster=NextCluster(NULL);
 172                 if(cluster==NULL){
 173
 174                         printf("No clusters available.\n");
 175
 176                 }else{
 177
 178                         printf("-Clusters:\n\n");
 179                         do{
 180                                 printCluster(cluster,1,6);
 181                                 printf("\n");
 182                                 cluster=NextCluster(cluster);
 183                         }while(cluster!=NULL);
 184
 185                 }
 186
 187                 UnlockCAMD(lock);
 188                 CloseLibrary(CamdBase);
 189
 190         }else{
 191                 printf("Could not open at least V40 of camd.library.\n");
 192                 return 1;
 193         }
 194
 195         return 0;
 196 }
 197
 198