editors/scapp/post_queue.M

   1 /*
   2         SuperCollider real time audio synthesis system
   3     Copyright (c) 2002 James McCartney. All rights reserved.
   4         http://www.audiosynth.com
   5
   6     This program is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with this program; if not, write to the Free Software
  18     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301  USA
  19 */
  20
  21
  22 #include <unistd.h>
  23 #include <stdlib.h>
  24 #include <stdio.h>
  25 #include <stdarg.h>
  26 #include <pthread.h>
  27 #include <SCGeom.h>
  28 #import <Cocoa/Cocoa.h>
  29
  30 char *gHomePath;
  31 CFBundleRef gMainBundle;
  32 NSTextView *gPostView;
  33 SCColor postTextColor;
  34
  35 void SetupHomeDirectory();
  36 void SetupHomeDirectory()
  37 {
  38         char path[2048];
  39         gMainBundle = CFBundleGetMainBundle();
  40         CFURLRef mainURL = CFBundleCopyBundleURL(gMainBundle);
  41         CFStringRef mainPath = CFURLCopyFileSystemPath(mainURL, kCFURLPOSIXPathStyle);
  42         CFStringGetCString(mainPath, path, 2048, kCFStringEncodingUTF8);
  43         *strrchr(path, '/') = 0;
  44         int mainPathLen = strlen(path);
  45
  46         /*
  47         path[mainPathLen] = '/';
  48
  49         CFURLRef sharedURL = CFBundleCopySharedSupportURL(gMainBundle);
  50         CFStringRef sharedPath = CFURLCopyFileSystemPath(sharedURL, kCFURLPOSIXPathStyle);
  51         CFStringGetCString(sharedPath, path+mainPathLen+1, 2048-mainPathLen-1, kCFStringEncodingUTF8);
  52         */
  53
  54         gHomePath = (char*)malloc(mainPathLen + 1);
  55         strcpy(gHomePath, path);
  56         chdir(gHomePath);
  57 }
  58
  59
  60
  61 struct PostBuf {
  62         char *buf;
  63         long wrpos;
  64         long rdpos;
  65         pthread_mutex_t mutex;
  66
  67         void Init();
  68         void Flush();
  69 };
  70
  71 static PostBuf mainPostBuf;
  72
  73 #define POSTBUFLEN 131072
  74 #define POSTBUFMASK 131071
  75
  76 FILE *postfile=NULL;
  77
  78 void PostBuf::Init()
  79 {
  80         buf = (char *)malloc(POSTBUFLEN);
  81         //HoldMemory(buf, POSTBUFLEN);
  82         postTextColor = SCMakeColor(0.0, 0.0, 0.0, 1.0); //default black
  83         wrpos = 0;
  84         rdpos = 0;
  85         pthread_mutex_init(&mutex, NULL);
  86 }
  87
  88 void initPostBuffer();
  89 void initPostBuffer()
  90 {
  91         mainPostBuf.Init();
  92 }
  93
  94 void setPostFile(FILE *file)
  95 {
  96         postfile = file;
  97 }
  98
  99 void vposttext(const char *str, int length);
 100 void vposttext(const char *str, int length)
 101 {
 102         pthread_mutex_lock(&mainPostBuf.mutex);
 103
 104         if (postfile) {
 105                 fwrite(str, length, 1, postfile);
 106                 fflush(postfile);
 107         }
 108
 109         for (int i=0; i<length && str[i]; ++i) {
 110                 if (((mainPostBuf.wrpos+1) & POSTBUFMASK) == mainPostBuf.rdpos) {
 111                         break;
 112                         //mainPostBuf.Flush(); CANNOT DO THIS FROM OTHER THAN COCOA'S THREAD!
 113                 }
 114                 if (str[i] == '\n') mainPostBuf.buf[mainPostBuf.wrpos] = '\r';
 115                 else mainPostBuf.buf[mainPostBuf.wrpos] = str[i];
 116                 mainPostBuf.wrpos = (mainPostBuf.wrpos+1) & POSTBUFMASK;
 117         }
 118         pthread_mutex_unlock(&mainPostBuf.mutex);
 119 }
 120
 121 extern "C" {
 122         int vpost(const char *fmt, va_list vargs);
 123 }
 124
 125 int vpost(const char *fmt, va_list vargs)
 126 {
 127         char str[512];
 128
 129         int len = vsnprintf(str, 512, fmt, vargs);
 130         vposttext(str, len);
 131         return 0;
 132 }
 133
 134 void postfl(const char *fmt, ...);
 135 void postfl(const char *fmt, ...)
 136 {
 137         va_list vargs;
 138
 139         if (gPostView) {
 140                 va_start(vargs, fmt);
 141                 vpost(fmt, vargs);
 142         }
 143 }
 144
 145 void post(const char *fmt, ...);
 146 void post(const char *fmt, ...)
 147 {
 148         va_list vargs;
 149
 150         if (gPostView) {
 151                 va_start(vargs, fmt);
 152                 vpost(fmt, vargs);
 153         }
 154 }
 155
 156 #include "bullet.h"
 157
 158 void error(const char *fmt, ...);
 159 void error(const char *fmt, ...)
 160 {
 161         va_list vargs;
 162
 163         if (gPostView) {
 164                 post(BULLET " ERROR: ");
 165                 va_start(vargs, fmt);
 166                 vpost(fmt, vargs);
 167         }
 168 }
 169
 170
 171
 172 void postText(const char *text, long length);
 173 void postText(const char *text, long length)
 174 {
 175         if (gPostView) {
 176                 vposttext(text, length);
 177         }
 178 }
 179
 180 void postChar(char c);
 181 void postChar(char c)
 182 {
 183         if (gPostView) {
 184                 vposttext(&c, 1);
 185         }
 186 }
 187
 188
 189 void flushPostBuf();
 190 void flushPostBuf()
 191 {
 192         // can't from other threads..
 193         mainPostBuf.Flush();
 194 }
 195
 196 void PostBuf::Flush()
 197 {
 198         long numtoread;
 199         long localwritepos = wrpos;
 200
 201         if (localwritepos >= rdpos) {
 202                 numtoread = localwritepos - rdpos;
 203         } else {
 204                 numtoread = POSTBUFLEN - (rdpos - localwritepos);
 205         }
 206         if (numtoread > 0) {
 207                 long endpos;
 208                 endpos = rdpos + numtoread;
 209                 if (endpos > POSTBUFLEN) {
 210                         // wrap around end in two copies
 211                         long firstpart, secondpart;
 212
 213                         firstpart = POSTBUFLEN - rdpos;
 214                         endpos -= POSTBUFLEN;
 215                         secondpart = endpos;
 216
 217                         if (gPostView) {
 218                                 NSString* string;
 219                                 NSRange range = [gPostView selectedRange];
 220
 221                                 if ([gPostView shouldChangeTextInRange: range replacementString: nil]) {
 222                                         string = [NSString stringWithCString: buf + rdpos length: firstpart];
 223                                         [gPostView replaceCharactersInRange: range withString: string];
 224
 225                                         string = [NSString stringWithCString: buf length: secondpart];
 226                                         range = [gPostView selectedRange];
 227                                         [gPostView replaceCharactersInRange: range withString: string];
 228                                         [gPostView didChangeText];
 229
 230                                         range = [gPostView selectedRange];
 231                                         [gPostView scrollRangeToVisible: range];
 232                                 }
 233                         }
 234                         rdpos = endpos;
 235                 } else {
 236                         if (gPostView) {
 237                                 NSString* string = [NSString stringWithCString: buf + rdpos length: numtoread];
 238                                 NSRange range = [gPostView selectedRange];
 239
 240                                 if ([gPostView shouldChangeTextInRange: range replacementString: string]) {
 241                                         [gPostView replaceCharactersInRange: range withString: string];
 242                                         [gPostView setTextColor: [NSColor colorWithCalibratedRed: postTextColor.red
 243                                                                                                                                            green: postTextColor.green
 244                                                                                                                                                  blue: postTextColor.blue
 245                                                                                                                                            alpha: postTextColor.alpha]
 246                                                                            range: NSMakeRange(range.location, [gPostView selectedRange].location - range.location)];
 247                                         [gPostView didChangeText];
 248
 249                                         range = [gPostView selectedRange];
 250                                         [gPostView scrollRangeToVisible: range];
 251                                 }
 252                         }
 253                         if (endpos == POSTBUFLEN) rdpos = 0;
 254                         else rdpos = endpos;
 255                 }
 256         }
 257 }
 258