Changeset 35761
- Timestamp:
- Jul 3, 2013, 2:16:41 PM (13 years ago)
- Location:
- trunk/Ohana/src/libkapa
- Files:
-
- 5 edited
-
Makefile (modified) (2 diffs)
-
include/kapa.h (modified) (3 diffs)
-
src/IOfuncs.c (modified) (6 diffs)
-
src/KapaOpen.c (modified) (1 diff)
-
src/KapaWindow.c (modified) (18 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/Ohana/src/libkapa/Makefile
r16093 r35761 24 24 $(SRC)/IOfuncs.$(ARCH).o \ 25 25 $(SRC)/KiiPicture.$(ARCH).o \ 26 $(SRC)/KiiOpen.$(ARCH).o \27 26 $(SRC)/KiiOverlay.$(ARCH).o \ 28 27 $(SRC)/KiiCursor.$(ARCH).o \ … … 31 30 $(SRC)/KapaColors.$(ARCH).o \ 32 31 $(SRC)/KapaOpen.$(ARCH).o 32 33 # deprecated: 34 # $(SRC)/KiiOpen.$(ARCH).o 33 35 34 36 DRAW = \ -
trunk/Ohana/src/libkapa/include/kapa.h
r31647 r35761 142 142 char *KiiRecvData (int device); 143 143 int KiiWaitAnswer (int device, char *expect); 144 145 /* KiiOpen.c */146 int KiiOpen (char *kii_exec, char *name);147 int KiiClose (int socket);148 int KiiWait (char *sockpath);149 144 150 145 /* KiiPicture.c */ … … 271 266 int KapaOpenNamedSocket (char *kapa_exec, char *name); 272 267 int KapaWaitNamedSocket (char *sockpath); 268 int KapaClose (int socket); 273 269 274 270 /* define Kapa names for shared functions */ … … 281 277 # define KapaPS(fd,s,r,f) KiiPS(fd,s,r,f) 282 278 283 # define KapaClose(socket) KiiClose(socket) 279 // deprecated 280 // # define KapaClose(socket) KiiClose(socket) 284 281 # define KapaWait(sockpath) KiiWait(sockpath) 285 282 # define KapaSendCommandV(device, length, format, argp) KiiSendCommandV(device, length, format, argp) -
trunk/Ohana/src/libkapa/src/IOfuncs.c
r34582 r35761 30 30 sscanf (buffer, "%*s %d", &Nbytes); 31 31 ALLOCATE (data, char, Nbytes + 1); 32 memset (data, 0, Nbytes + 1); 33 32 34 status = read (device, data, Nbytes); 33 35 if (status != Nbytes) { … … 78 80 // XXX BUT: I need to think a bit more about hand-shaking. 79 81 } 80 if (DEBUG) fprintf (stderr, "recv buffer: %s \n", buffer);82 if (DEBUG) fprintf (stderr, "recv buffer: %s...\n", buffer); 81 83 82 84 /* find the message length, allocate space */ 83 85 sscanf (buffer, "%*s %d", &Nbytes); 84 86 ALLOCATE (message, char, Nbytes + 1); 87 memset (message, 0, Nbytes + 1); 85 88 86 89 /* read Nbytes from the device */ … … 92 95 /* make the string easy to parse */ 93 96 94 if (DEBUG) fprintf (stderr, "recv: %s \n", message);97 if (DEBUG) fprintf (stderr, "recv: %s...\n", message); 95 98 96 99 /* scan the incoming message */ … … 131 134 if (Nwrite != length) return (FALSE); 132 135 133 if (DEBUG) fprintf (stderr, "send: %s \n", string);136 if (DEBUG) fprintf (stderr, "send: %s...\n", string); 134 137 135 138 free (string); … … 145 148 146 149 ALLOCATE (message, char, length + 1); 150 memset (message, 0, length + 1); 147 151 148 152 /* read Nbytes from the device */ 149 153 status = read (device, message, length); 150 if (DEBUG) fprintf (stderr, "recv message: %s \n", message);154 if (DEBUG) fprintf (stderr, "recv message: %s...\n", message); 151 155 152 156 if (status != length) { … … 173 177 Nbytes = strlen (expect); 174 178 ALLOCATE (answer, char, Nbytes + 1); 179 memset (answer, 0, Nbytes + 1); 175 180 176 181 KiiScanCommand (device, Nbytes, "%s", answer); -
trunk/Ohana/src/libkapa/src/KapaOpen.c
r35416 r35761 430 430 return (pid); 431 431 } 432 433 int KapaClose (int fd) { 434 435 if (fd < 1) return (FALSE); 436 KiiSendCommand (fd, 4, "QUIT"); 437 close (fd); 438 return (TRUE); 439 } -
trunk/Ohana/src/libkapa/src/KapaWindow.c
r29938 r35761 22 22 23 23 KiiSendCommand (fd, 4, "RSIZ"); 24 KiiSendMessage (fd, "%d %d ", Nx, Ny);24 KiiSendMessage (fd, "%d %d ", Nx, Ny); 25 25 KiiWaitAnswer (fd, "DONE"); 26 26 return (TRUE); … … 37 37 38 38 KiiSendCommand (fd, 4, "MOVE"); 39 KiiSendMessage (fd, "%d %d ", x, y);39 KiiSendMessage (fd, "%d %d ", x, y); 40 40 KiiWaitAnswer (fd, "DONE"); 41 41 return (TRUE); … … 83 83 84 84 KiiSendCommand (fd, 4, "TOOL"); 85 KiiSendMessage (fd, "%d ", location);85 KiiSendMessage (fd, "%d ", location); 86 86 KiiWaitAnswer (fd, "DONE"); 87 87 return (TRUE); … … 134 134 135 135 /* send kapa the plot details */ 136 KiiSendMessage (fd, "%8d %8d %d %d %d %d %d %f %f ",136 KiiSendMessage (fd, "%8d %8d %d %d %d %d %d %f %f ", 137 137 Npts, data[0].style, 138 138 data[0].ptype, data[0].ltype, 139 139 data[0].etype, data[0].ebar, data[0].color, 140 140 data[0].lweight, data[0].size); 141 KiiSendMessage (fd, "%g %g %g %g ",141 KiiSendMessage (fd, "%g %g %g %g ", 142 142 data[0].xmin, data[0].xmax, 143 143 data[0].ymin, data[0].ymax); … … 149 149 150 150 /* send kapa the plot details */ 151 KiiSendMessage (fd, "%g %g %g %g ",151 KiiSendMessage (fd, "%g %g %g %g ", 152 152 data[0].xmin, data[0].xmax, 153 153 data[0].ymin, data[0].ymax); 154 154 155 KiiSendMessage (fd, "%8d %d %d %d %d %d %f %f ",155 KiiSendMessage (fd, "%8d %d %d %d %d %d %f %f ", 156 156 data[0].style, 157 157 data[0].ptype, data[0].ltype, … … 159 159 data[0].lweight, data[0].size); 160 160 161 KiiSendMessage (fd, "%g %g %g %g %g ",161 KiiSendMessage (fd, "%g %g %g %g %g ", 162 162 data[0].ticktextPad, 163 163 data[0].padXm, data[0].padXp, 164 164 data[0].padYm, data[0].padYp); 165 165 166 KiiSendMessage (fd, "%g %g %g %g ",166 KiiSendMessage (fd, "%g %g %g %g ", 167 167 data[0].labelPadXm, data[0].labelPadXp, 168 168 data[0].labelPadYm, data[0].labelPadYp); 169 169 170 KiiSendMessage (fd, "%g %g %g %g ",170 KiiSendMessage (fd, "%g %g %g %g ", 171 171 data[0].coords.pc1_1, data[0].coords.pc2_2, 172 172 data[0].coords.pc1_2, data[0].coords.pc2_1); 173 173 174 KiiSendMessage (fd, "%d %d %s ",174 KiiSendMessage (fd, "%d %d %s ", 175 175 data[0].flipeast, data[0].flipnorth, 176 176 data[0].coords.ctype); 177 177 178 KiiSendMessage (fd, "%g %g %g %g %g %g ",178 KiiSendMessage (fd, "%g %g %g %g %g %g ", 179 179 data[0].coords.crval1, 180 180 data[0].coords.crval2, … … 184 184 data[0].coords.cdelt2); 185 185 186 KiiSendMessage (fd, "%s %s %s ", data[0].axis, data[0].ticks, data[0].labels);186 KiiSendMessage (fd, "%s %s %s ", data[0].axis, data[0].ticks, data[0].labels); 187 187 188 188 return (TRUE); … … 265 265 266 266 /* send kapa the plot details */ 267 KiiSendMessage (fd, "%g %g %s %s ",267 KiiSendMessage (fd, "%g %g %s %s ", 268 268 data[0].zero, data[0].range, data[0].name, data[0].file); 269 269 … … 308 308 valid: 309 309 KiiSendCommand (fd, 4, "PLOB"); 310 KiiSendMessage (fd, "%s %d %d %d ", type, Npts, Nbytes, swap);310 KiiSendMessage (fd, "%s %d %d %d ", type, Npts, Nbytes, swap); 311 311 312 312 Nwrite = write (fd, values, Nbytes); … … 322 322 323 323 KiiSendCommand (fd, 4, "FONT"); 324 KiiSendCommand (fd, 16, "%s ", name);325 KiiSendCommand (fd, 16, "%d ", size);324 KiiSendCommand (fd, 16, "%s ", name); 325 KiiSendCommand (fd, 16, "%d ", size); 326 326 KiiWaitAnswer (fd, "DONE"); 327 327 return (TRUE); … … 331 331 332 332 KiiSendCommand (fd, 4, "LABL"); 333 KiiSendMessage (fd, "%6d ", mode);333 KiiSendMessage (fd, "%6d ", mode); 334 334 KiiSendData (fd, string, strlen(string)); 335 335 KiiWaitAnswer (fd, "DONE"); … … 340 340 341 341 KiiSendCommand (fd, 4, "PTXT"); 342 KiiSendMessage (fd, "%f %f %f ", x, y, angle);342 KiiSendMessage (fd, "%f %f %f ", x, y, angle); 343 343 KiiSendData (fd, string, strlen(string)); 344 344 KiiWaitAnswer (fd, "DONE"); … … 366 366 367 367 KiiSendCommand (fd, 4, "DSEC"); 368 KiiSendMessage (fd, "%s %6.3f %6.3f %6.3f %6.3f %3d ",368 KiiSendMessage (fd, "%s %6.3f %6.3f %6.3f %6.3f %3d ", 369 369 section[0].name, 370 370 section[0].x, … … 380 380 381 381 KiiSendCommand (fd, 4, "ISEC"); 382 KiiSendMessage (fd, "%s %6.3f %6.3f %3d ",382 KiiSendMessage (fd, "%s %6.3f %6.3f %3d ", 383 383 section[0].name, 384 384 section[0].x, … … 392 392 393 393 KiiSendCommand (fd, 4, "BSEC"); 394 KiiSendMessage (fd, "%s %3d ", name, bg);394 KiiSendMessage (fd, "%s %3d ", name, bg); 395 395 KiiWaitAnswer (fd, "DONE"); 396 396 return (TRUE); … … 409 409 valid: 410 410 KiiSendCommand (fd, 4, "MSEC"); 411 KiiSendMessage (fd, "%s %s ", name, direction);411 KiiSendMessage (fd, "%s %s ", name, direction); 412 412 KiiWaitAnswer (fd, "DONE"); 413 413 return (TRUE); … … 417 417 418 418 KiiSendCommand (fd, 4, "SSEC"); 419 KiiSendMessage (fd, "%s ", name);419 KiiSendMessage (fd, "%s ", name); 420 420 KiiWaitAnswer (fd, "DONE"); 421 421 return (TRUE); … … 425 425 426 426 KiiSendCommand (fd, 4, "LSEC"); 427 KiiSendMessage (fd, "%s ", name);428 KiiWaitAnswer (fd, "DONE"); 429 return (TRUE); 430 } 427 KiiSendMessage (fd, "%s ", name); 428 KiiWaitAnswer (fd, "DONE"); 429 return (TRUE); 430 }
Note:
See TracChangeset
for help on using the changeset viewer.
