home *** CD-ROM | disk | FTP | other *** search
/ Nebula 2 / Nebula Two.iso / Apps / SoundApps / Patchmix / Source / Coordinator.m < prev    next >
Encoding:
Text File  |  1995-06-12  |  5.0 KB  |  210 lines
  1. /*
  2.     Coordinator.m
  3.     by Joe Freeman, David LaVallee
  4.     Subprocess Example, Release 2.0
  5.     NeXT Computer, Inc.
  6.  
  7.     You may freely copy, distribute and reuse the code in this example.
  8.     NeXT disclaims any warranty of any kind, expressed or implied, as to
  9.     its fitness for any particular use.
  10. */
  11.  
  12. #import "Subprocess.h"
  13. #import "Coordinator.h"
  14. #import "CommandScroll.h"
  15. #import <stdio.h>
  16. #import <appkit/nextstd.h>
  17. #import <appkit/Application.h>
  18. #import <appkit/Panel.h>
  19. #import <objc/NXStringTable.h>
  20. #import <strings.h>
  21. #import <appkit/Form.h>
  22. #import "Instrum.h"
  23.  
  24. @implementation Coordinator
  25.  
  26. id Inst = nil; 
  27.  
  28. + initialize
  29. {
  30.     Inst = [[Instrum alloc] init];
  31.     return self;
  32. }
  33.  
  34. - subprocessOutput:(char *)buffer
  35. {
  36.     [commandView appendString:buffer];
  37.     return self;
  38. }
  39. /*===============================================================*/
  40.  
  41. - subprocessDone
  42. { 
  43.     [NXApp terminate:self];
  44.     return self;
  45. }
  46.  
  47. - subprocessError:(const char *)errorString
  48.     // uses stringTable to localize error messages as appropriate,
  49.     // and then displays the message in an alert panel
  50. {
  51.     const char *returnedString;
  52.     
  53.     if (returnedString = [stringTable valueForStringKey:errorString])
  54.     {
  55.     NXRunAlertPanel(0, returnedString, 0, 0, 0);
  56.     }
  57.     else
  58.     {
  59.     NXRunAlertPanel(0, errorString, 0, 0, 0);
  60.     }
  61.     return self;
  62. }
  63.  
  64. - writeCode:(char *)buffer
  65. {
  66.     char instDir[80];
  67.     char instFile[80];
  68.     char cmdDir[80];
  69.     char cmixDir[80];
  70.     
  71.     strcpy(instFile,[instName stringValueAt:0]);
  72.     strcpy(instDir,[instPath stringValueAt:0]);
  73.     strcpy(cmdDir,[pathNames stringValueAt:4]);
  74.     strcpy(cmixDir,[pathNames stringValueAt:5]);
  75.     //printf("coordinator: writeCode\n");
  76.     [Inst writeCodeWithName:instFile andDir:instDir andCmd:cmdDir andCmix:cmixDir];
  77.     return self;
  78. }
  79.  
  80. - compileInst:(char *)buffer
  81. {
  82.     char str[300];
  83.     char instDir[80];
  84.     
  85.     strcpy(instDir,[instPath stringValueAt:0]);
  86.     sprintf(str,"cd %s;make", instDir);
  87.     //printf("str: %s\n",str);
  88.     theSubprocess =
  89.     [[Subprocess alloc]
  90.         init:str withDelegate:self andPtySupport:YES andStdErr:YES];
  91.     return self;
  92.  
  93. }
  94. - runIt:(char *)buffer
  95. {
  96.     char str[300];
  97.     char scoreFile[80];
  98.     char instDir[80];
  99.     char instFile[80];
  100.     char soundFile[80];
  101.     char soundDir[80];
  102.     char scoreDir[80];
  103.     char cmdDir[80];
  104.     long sr;
  105.     int  nchans;
  106.     
  107.     
  108.     strcpy(scoreFile,[pathNames stringValueAt:2]);
  109.     strcpy(scoreDir,[pathNames stringValueAt:3]);
  110.     strcpy(soundFile,[pathNames stringValueAt:0]);
  111.     strcpy(soundDir,[pathNames stringValueAt:1]);
  112.     strcpy(instFile,[instName stringValueAt:0]);
  113.     strcpy(instDir,[instPath stringValueAt:0]);
  114.     strcpy(cmdDir,[pathNames stringValueAt:4]);
  115.     if([sampRate selectedRow] == 0)
  116.         sr = 44100;
  117.     else
  118.         sr = 22050;
  119.     nchans = [numChans selectedRow] + 1;
  120.     sprintf(str,"%s/sfcreate -r %ld -c %d -f %s/%s;%s/%s < %s/%s.sco", cmdDir,sr,nchans,soundDir,soundFile,instDir,instFile,scoreDir,scoreFile);
  121.     //printf("str: %s\n",str);
  122.     theSubprocess =
  123.     [[Subprocess alloc]
  124.         init:str withDelegate:self andPtySupport:YES andStdErr:YES];
  125.     return self;
  126.  
  127. }
  128. - rescaleIt:(char *)buffer
  129. {
  130.     char str[200];
  131.     char soundFile[100];
  132.     char soundDir[80];
  133.     char cmdDir[80];
  134.     
  135.     strcpy(soundFile,[pathNames stringValueAt:0]);
  136.     strcpy(soundDir,[pathNames stringValueAt:1]);
  137.     strcpy(cmdDir,[pathNames stringValueAt:4]);
  138.     sprintf(str,"%s/rescale %s/%s", cmdDir, soundDir, soundFile);
  139.     //printf("str: %s\n",str);
  140.     theSubprocess =
  141.     [[Subprocess alloc]
  142.         init:str withDelegate:self andPtySupport:YES andStdErr:YES];
  143.     return self;
  144.  
  145. }
  146.  
  147. - playIt:(char *)buffer
  148. {
  149.     char str[200];
  150.     char soundFile[100];
  151.     char soundDir[80];
  152.     char cmdDir[80];
  153.     
  154.     strcpy(soundFile,[pathNames stringValueAt:0]);
  155.     strcpy(soundDir,[pathNames stringValueAt:1]);
  156.     strcpy(cmdDir,[pathNames stringValueAt:4]);
  157.     sprintf(str,"%s/play %s/%s.short", cmdDir, soundDir, soundFile);
  158.     //printf("str: %s\n",str);
  159.     theSubprocess =
  160.     [[Subprocess alloc]
  161.         init:str withDelegate:self andPtySupport:YES andStdErr:YES];
  162.     return self;
  163.  
  164. }
  165.  
  166. - writeScore:(char *)buffer
  167. {
  168.     int i;
  169.     char p[17][10];
  170.     char scoreFile[80];
  171.     char scoreDir[80];
  172.     char scofile[160];
  173.     char soundFile[80];
  174.     char soundDir[80];
  175.     char inst[80];
  176.     FILE *fp;
  177.         
  178.     strcpy(soundFile,[pathNames stringValueAt:0]);
  179.     strcpy(soundDir,[pathNames stringValueAt:1]);
  180.     strcpy(scoreFile, [pathNames stringValueAt:2]);
  181.     strcpy(scoreDir, [pathNames stringValueAt:3]);
  182.     strcpy(inst, [instName stringValueAt:0]);
  183.     sprintf(scofile, "%s/%s.sco", scoreDir, scoreFile);
  184.     for(i = 0; i < 17; i++) {
  185.         strcpy(p[i],[scoreData stringValueAt:i]);
  186.         //printf("%s %d %s\n",scofile,i,p[i]);
  187.     }
  188.  
  189.     fp = fopen(scofile,"w");
  190.     if(!fp) {
  191.         NXRunAlertPanel("write score:","This file can't be opened. Check out the directory. %s","OK",NULL,NULL,scofile);
  192.         return 0;
  193.     }
  194.     fprintf(fp,"output(\"%s/%s\",0)\n",soundDir,soundFile);
  195.     fprintf(fp,"sfclean(0)\n");
  196.     fprintf(fp,"makegen(1,10,1024,1)\n");         // sine
  197.     fprintf(fp,"makegen(2,7,512,0,512,1)\n");    // linear
  198.     fprintf(fp,"makegen(3,5,512,.01,512,1)\n");    // exponential
  199.     fprintf(fp,"%s(%s",inst,p[0]);
  200.     for(i = 1; i < 17; i++) {
  201.         if(strcmp("",p[i]))
  202.             fprintf(fp,", %s",p[i]);
  203.     }
  204.     fprintf(fp,")\n");
  205.  
  206.     fclose(fp);
  207.     return self;
  208. }
  209. @end
  210.