home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume27 / bam / part02 < prev    next >
Text File  |  1992-01-06  |  18KB  |  599 lines
  1. Newsgroups: comp.sources.misc
  2. From: sbo@vlsi.polymtl.ca (Stephane Boucher)
  3. Subject:  v27i069:  bam - Open Look Menu System for GNU Emacs, Part02/02
  4. Message-ID: <1992Jan6.162142.9934@sparky.imd.sterling.com>
  5. X-Md4-Signature: 30dd90c74c21933a1a831ede25a8d235
  6. Date: Mon, 6 Jan 1992 16:21:42 GMT
  7. Approved: kent@sparky.imd.sterling.com
  8.  
  9. Submitted-by: sbo@vlsi.polymtl.ca (Stephane Boucher)
  10. Posting-number: Volume 27, Issue 69
  11. Archive-name: bam/part02
  12. Environment: Xview, Sun
  13.  
  14. #! /bin/sh
  15. # into a shell via "sh file" or similar.  To overwrite existing files,
  16. # type "sh file -c".
  17. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  18. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  19. # Contents:  bam-1.0/DOC bam-1.0/args.c bam-1.0/bam.c bam-1.0/bam.el
  20. #   bam-1.0/bam.h bam-1.0/emacs_init_addin
  21. #   bam-1.0/menus/emacs-base-ol.el bam-1.0/menus/ex1
  22. #   bam-1.0/menus/ex1.el bam-1.0/menus/latex.el bam-1.0/send.c
  23. # Wrapped by kent@sparky on Fri Jan  3 21:06:20 1992
  24. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  25. echo If this archive is complete, you will see the following message:
  26. echo '          "shar: End of archive 2 (of 2)."'
  27. if test -f 'bam-1.0/DOC' -a "${1}" != "-c" ; then 
  28.   echo shar: Will not clobber existing file \"'bam-1.0/DOC'\"
  29. else
  30.   echo shar: Extracting \"'bam-1.0/DOC'\" \(2067 characters\)
  31.   sed "s/^X//" >'bam-1.0/DOC' <<'END_OF_FILE'
  32. XCommand Line Options
  33. X--------------------
  34. X
  35. Xbam [-e <error command string>] [<XView switches>] <menufile>
  36. X
  37. X    -e <error command string>
  38. X        the command string is the string sent to
  39. X        emacs when an error is encounter durring
  40. X        the excution of bam. This string
  41. X        must contain exactly one %s which will
  42. X        be replaced by the message genarated
  43. X        by bam.
  44. X    <XView swithes> 
  45. X        The program can take any XView switches,
  46. X        since it is written in XView.
  47. X        The ones that are particularly interesting
  48. X        are:
  49. X        -Wp <x> <y> for the window position
  50. X        -Wt <font name> to specify a font for
  51. X         the menus. It is recommanded to use 
  52. X         a fixed font since it is easier to align
  53. X         things in the menus.
  54. X        -Ws <x-size> <y-size> to specify the window
  55. X         size. What happens is that bam fits
  56. X         buttons in the window of the size specified
  57. X         and at the end resize the window to fit
  58. X         around the already placed menu buttons.
  59. X    <menufile>
  60. X        This is the file that contains the 
  61. X        description of an entire menu.
  62. X
  63. X
  64. XMenu File Format
  65. X----------------
  66. X
  67. XThe indentation and spacing is rather loose,
  68. Xsince the parser is built with lex and yacc.
  69. X
  70. XThe basic frame format for a menu is:
  71. X<menu file>: 
  72. XFRAME TITLE <title string> PANEL <lst_buttons> END END
  73. X
  74. X<lst_buttons>:
  75. XBUTTON <button name string> <action string> <menu>
  76. X
  77. X<menu>:
  78. XMENU <lst menu attributes>* <menu items>+ END
  79. X
  80. X<lst menu attributes>:
  81. XTITLE <string> (NO_PUSHPIN | PUSHPIN | nothing )
  82. X
  83. X<menu items>:
  84. XTEXT <menu item name string> <action string> |
  85. XTEXT <menu item name string> <action string> <menu> |
  86. XBITMAP <file name of bitmap string> <action string> |
  87. XBITMAP <file name of bitmap string> <action string> <menu>
  88. X
  89. X
  90. Xall type of strings must be delimited by "".  To
  91. Xhave a " or \ within a string you simply use \"
  92. Xand \\. You can't, however, use things like \n,
  93. X\t etc.
  94. X
  95. Xit is possible to write :
  96. X"this is a
  97. Xmulti-line string".
  98. X
  99. XNote that PANEL is there for future use. It is
  100. Xat the moment useless. It is however required.
  101. X
  102. XOnly one FRAME or PANEL is possible per file.
  103. X
  104. X<action string> is a lisp expression.
  105. X
  106. XThe bitmap file must be an X bitmap.
  107. END_OF_FILE
  108.   if test 2067 -ne `wc -c <'bam-1.0/DOC'`; then
  109.     echo shar: \"'bam-1.0/DOC'\" unpacked with wrong size!
  110.   fi
  111.   # end of 'bam-1.0/DOC'
  112. fi
  113. if test -f 'bam-1.0/args.c' -a "${1}" != "-c" ; then 
  114.   echo shar: Will not clobber existing file \"'bam-1.0/args.c'\"
  115. else
  116.   echo shar: Extracting \"'bam-1.0/args.c'\" \(1442 characters\)
  117.   sed "s/^X//" >'bam-1.0/args.c' <<'END_OF_FILE'
  118. X/*
  119. X    bam - the Born Again Menus for GNU Emacs.
  120. X    Copyright (C) 1991    Stephane Boucher
  121. X
  122. X    This program is free software; you can redistribute it and/or modify
  123. X    it under the terms of the GNU General Public License as published by
  124. X    the Free Software Foundation; either version 1, or (at your option)
  125. X    any later version.
  126. X
  127. X    This program is distributed in the hope that it will be useful,
  128. X    but WITHOUT ANY WARRANTY; without even the implied warranty of
  129. X    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  130. X    GNU General Public License for more details.
  131. X
  132. X    You should have received a copy of the GNU General Public License
  133. X    along with this program; if not, write to the Free Software
  134. X    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  135. X*/
  136. X/* @(#)args.c    1.4 91/11/12 */
  137. X
  138. X#include "bam.h"
  139. X
  140. Xextern char *optarg;
  141. Xextern int optind, opterr;
  142. X
  143. XprocessArgs(argc, argv)
  144. X     int argc;
  145. X     char **argv;
  146. X{
  147. X  char c;
  148. X  int errflg=0;
  149. X
  150. X  while ((c = getopt(argc, argv, "e")) != -1)
  151. X    switch (c) {
  152. X    case 'e':
  153. X      /* -e <error_format> 
  154. X     Specify the error format where <error_format>
  155. X     is a format string like printf format with
  156. X     one %s */
  157. X
  158. X      errorFormat=optarg;
  159. X      break;
  160. X
  161. X    case '?':
  162. X    default:
  163. X      errflg++;
  164. X      break;
  165. X    }
  166. X
  167. X  if (errflg || optind+1!=argc) {
  168. X    sendErrorToEmacs("usage: \n\
  169. X\t%s [-e <error_format>] menu_file\n", argv[0]);
  170. X    exit (2);
  171. X  }
  172. X
  173. X  menuFile=argv[optind];
  174. X}
  175. END_OF_FILE
  176.   if test 1442 -ne `wc -c <'bam-1.0/args.c'`; then
  177.     echo shar: \"'bam-1.0/args.c'\" unpacked with wrong size!
  178.   fi
  179.   # end of 'bam-1.0/args.c'
  180. fi
  181. if test -f 'bam-1.0/bam.c' -a "${1}" != "-c" ; then 
  182.   echo shar: Will not clobber existing file \"'bam-1.0/bam.c'\"
  183. else
  184.   echo shar: Extracting \"'bam-1.0/bam.c'\" \(1826 characters\)
  185.   sed "s/^X//" >'bam-1.0/bam.c' <<'END_OF_FILE'
  186. X/*
  187. X    bam - the Born Again Menus for GNU Emacs.
  188. X    Copyright (C) 1991    Stephane Boucher
  189. X
  190. X    This program is free software; you can redistribute it and/or modify
  191. X    it under the terms of the GNU General Public License as published by
  192. X    the Free Software Foundation; either version 1, or (at your option)
  193. X    any later version.
  194. X
  195. X    This program is distributed in the hope that it will be useful,
  196. X    but WITHOUT ANY WARRANTY; without even the implied warranty of
  197. X    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  198. X    GNU General Public License for more details.
  199. X
  200. X    You should have received a copy of the GNU General Public License
  201. X    along with this program; if not, write to the Free Software
  202. X    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  203. X*/
  204. X/* @(#)bam.c    1.5 91/11/12 */
  205. X
  206. X#include <unistd.h>
  207. X
  208. X#include "bam.h"
  209. X
  210. Xchar *menuFile=NULL;
  211. Xchar *errorFormat="(command-process-error \"%s\")";
  212. XFrame baseFrame;
  213. X
  214. X
  215. Xmain(argc, argv)
  216. X     int argc;
  217. X     char **argv; 
  218. X{
  219. X  int exitVal=0;
  220. X  
  221. X  xv_init(XV_INIT_ARGC_PTR_ARGV, &argc, argv, NULL);
  222. X
  223. X  processArgs(argc, argv);
  224. X
  225. X  if (access(menuFile, R_OK) == 0 ) {
  226. X    /* Menu File accessible */
  227. X
  228. X    yyin=fopen(menuFile, "r");
  229. X
  230. X    if (!yyparse()) {
  231. X      window_main_loop(baseFrame);
  232. X    }
  233. X    else {
  234. X      /* A parse error has occured */
  235. X      exitVal=1;
  236. X    }
  237. X
  238. X    fclose(yyin);
  239. X  }
  240. X  else {
  241. X    /* Menu File not accessible */
  242. X    sendErrorToEmacs("Unaccessable File: %s\n", menuFile);
  243. X    exitVal=1;
  244. X  }
  245. X
  246. X  return(exitVal);
  247. X} 
  248. X
  249. X
  250. X
  251. Xvoid 
  252. XmenuProc (menu, menuItem)
  253. X     Menu menu;
  254. X     Menu_item menuItem;
  255. X{
  256. X  sendToEmacs( (char *)xv_get(menuItem, 
  257. X                  XV_KEY_DATA, M_COMMAND_STRING));
  258. X}
  259. X 
  260. Xint
  261. Xselected(item, event)
  262. XPanel_item item;
  263. XEvent *event;
  264. X{
  265. X  sendToEmacs((char *)xv_get(item, 
  266. X                 XV_KEY_DATA, M_COMMAND_STRING));
  267. X  return XV_OK;
  268. X}
  269. X
  270. X
  271. END_OF_FILE
  272.   if test 1826 -ne `wc -c <'bam-1.0/bam.c'`; then
  273.     echo shar: \"'bam-1.0/bam.c'\" unpacked with wrong size!
  274.   fi
  275.   # end of 'bam-1.0/bam.c'
  276. fi
  277. if test -f 'bam-1.0/bam.el' -a "${1}" != "-c" ; then 
  278.   echo shar: Will not clobber existing file \"'bam-1.0/bam.el'\"
  279. else
  280.   echo shar: Extracting \"'bam-1.0/bam.el'\" \(316 characters\)
  281.   sed "s/^X//" >'bam-1.0/bam.el' <<'END_OF_FILE'
  282. X(require 'command-process)
  283. X(load-library "bytecomp")
  284. X
  285. X(defun strings-to-buffer (string1 string2)
  286. X  "*Inserts STRING1 and STRING2 in current buffer, puts point after STRING1."
  287. X  (insert string1)
  288. X  (let ((newpoint (point)))
  289. X    (insert string2)
  290. X    (goto-char newpoint)))
  291. X
  292. X(byte-compile (function strings-to-buffer))
  293. X
  294. END_OF_FILE
  295.   if test 316 -ne `wc -c <'bam-1.0/bam.el'`; then
  296.     echo shar: \"'bam-1.0/bam.el'\" unpacked with wrong size!
  297.   fi
  298.   # end of 'bam-1.0/bam.el'
  299. fi
  300. if test -f 'bam-1.0/bam.h' -a "${1}" != "-c" ; then 
  301.   echo shar: Will not clobber existing file \"'bam-1.0/bam.h'\"
  302. else
  303.   echo shar: Extracting \"'bam-1.0/bam.h'\" \(1683 characters\)
  304.   sed "s/^X//" >'bam-1.0/bam.h' <<'END_OF_FILE'
  305. X/*
  306. X    bam - the Born Again Menus for GNU Emacs.
  307. X    Copyright (C) 1991    Stephane Boucher
  308. X
  309. X    This program is free software; you can redistribute it and/or modify
  310. X    it under the terms of the GNU General Public License as published by
  311. X    the Free Software Foundation; either version 1, or (at your option)
  312. X    any later version.
  313. X
  314. X    This program is distributed in the hope that it will be useful,
  315. X    but WITHOUT ANY WARRANTY; without even the implied warranty of
  316. X    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  317. X    GNU General Public License for more details.
  318. X
  319. X    You should have received a copy of the GNU General Public License
  320. X    along with this program; if not, write to the Free Software
  321. X    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  322. X*/
  323. X/* @(#)bam.h    1.5 91/11/12 */
  324. X
  325. X#ifndef _EMENU_H_
  326. X#define _EMENU_H_
  327. X
  328. X#include <xview/xview.h>
  329. X#include <xview/frame.h>
  330. X#include <xview/panel.h>
  331. X#include <xview/openmenu.h>
  332. X
  333. X#include <stdio.h>
  334. X
  335. X/* ---------------------------------- */
  336. X
  337. Xtypedef struct {
  338. X  struct {
  339. X    int pushpin;
  340. X    char *title;
  341. X  } attr;
  342. X  Menu id;
  343. X  Menu prevCur; /* Previous current menu */
  344. X} MenuData;
  345. X
  346. X
  347. X/* ---------------------------------- */
  348. X/* Fonction Prototypes              */
  349. X
  350. Xvoid sendToEmacs();
  351. Xvoid sendErrorToEmacs();
  352. X
  353. Xvoid menuProc();
  354. Xint selected();
  355. X
  356. Xint processArgs();
  357. X
  358. Xvoid initMenuData();
  359. Xint setMenu();
  360. X
  361. X/* ---------------------------------- */
  362. X
  363. X#define TRUE             1
  364. X#define FALSE             0
  365. X
  366. X#define M_COMMAND_STRING     100
  367. X
  368. X#define M_NO_PUSHPIN        0
  369. X#define M_PUSHPIN        1
  370. X
  371. X/* ---------------------------------- */
  372. X/* Global variables                   */
  373. Xextern FILE *yyin;
  374. Xextern char *menuFile;
  375. Xextern char *errorFormat;
  376. X
  377. X#endif
  378. END_OF_FILE
  379.   if test 1683 -ne `wc -c <'bam-1.0/bam.h'`; then
  380.     echo shar: \"'bam-1.0/bam.h'\" unpacked with wrong size!
  381.   fi
  382.   # end of 'bam-1.0/bam.h'
  383. fi
  384. if test -f 'bam-1.0/emacs_init_addin' -a "${1}" != "-c" ; then 
  385.   echo shar: Will not clobber existing file \"'bam-1.0/emacs_init_addin'\"
  386. else
  387.   echo shar: Extracting \"'bam-1.0/emacs_init_addin'\" \(788 characters\)
  388.   sed "s/^X//" >'bam-1.0/emacs_init_addin' <<'END_OF_FILE'
  389. X(if (eq window-system 'x)
  390. X    (progn
  391. X      ;; get ready to load various menus
  392. X      (load-library "bam")
  393. X
  394. X      ;; Change those 2 (*bam-..-dir*) variables to reflect your setup
  395. X      (setq *bam-exec-dir* "/usr/users/sboucher/gegi/emenu")
  396. X
  397. X      ;; The *bam-menu-dir* variable is only necessary when you
  398. X      ;; load a menu. Therefore you can change it between each
  399. X      ;; load-file call to load menus from different directories.
  400. X      (setq *bam-menu-dir* "/usr/users/sboucher/gegi/emenu/menus")
  401. X
  402. X      ;; Load various menus
  403. X      (load-file (concat *bam-menu-dir* "/emacs-base-ol.el"))
  404. X      (load-file (concat *bam-menu-dir* "/ex1.el"))
  405. X      (load-file (concat *bam-menu-dir* "/latex.el"))
  406. X
  407. X      ;; Pop various menus
  408. X      (emacs-menu)
  409. X      (ex1-menu)
  410. X      (latex-menu)))
  411. X      
  412. END_OF_FILE
  413.   if test 788 -ne `wc -c <'bam-1.0/emacs_init_addin'`; then
  414.     echo shar: \"'bam-1.0/emacs_init_addin'\" unpacked with wrong size!
  415.   fi
  416.   # end of 'bam-1.0/emacs_init_addin'
  417. fi
  418. if test -f 'bam-1.0/menus/emacs-base-ol.el' -a "${1}" != "-c" ; then 
  419.   echo shar: Will not clobber existing file \"'bam-1.0/menus/emacs-base-ol.el'\"
  420. else
  421.   echo shar: Extracting \"'bam-1.0/menus/emacs-base-ol.el'\" \(358 characters\)
  422.   sed "s/^X//" >'bam-1.0/menus/emacs-base-ol.el' <<'END_OF_FILE'
  423. X(setq *bam-emacs-menu-dir* *bam-menu-dir*)
  424. X(defun emacs-menu ()
  425. X  (interactive)
  426. X  (process-kill-without-query
  427. X   (command-process (concat *bam-exec-dir* "/bam")
  428. X            "-Wp" "0" "0"      ; position of window
  429. X            "-Wt" "7x14"       ; font
  430. X            "-Ws" "1000" "300" ;window size
  431. X            (concat *bam-emacs-menu-dir* "/emacs-base-ol")    ;Menu filename
  432. X            )))
  433. END_OF_FILE
  434.   if test 358 -ne `wc -c <'bam-1.0/menus/emacs-base-ol.el'`; then
  435.     echo shar: \"'bam-1.0/menus/emacs-base-ol.el'\" unpacked with wrong size!
  436.   fi
  437.   # end of 'bam-1.0/menus/emacs-base-ol.el'
  438. fi
  439. if test -f 'bam-1.0/menus/ex1' -a "${1}" != "-c" ; then 
  440.   echo shar: Will not clobber existing file \"'bam-1.0/menus/ex1'\"
  441. else
  442.   echo shar: Extracting \"'bam-1.0/menus/ex1'\" \(866 characters\)
  443.   sed "s/^X//" >'bam-1.0/menus/ex1' <<'END_OF_FILE'
  444. XFRAME
  445. XTITLE "Emacs Menu example 1"
  446. X    PANEL
  447. X        BUTTON "Menu button 1" "(message \"button action 1\")"
  448. X        MENU
  449. X        TITLE "Menu 1"    
  450. X            BITMAP "/usr/openwin/lib/bitmaps/c10pinin" "(message \"This is a bitmap item\")"
  451. X            TEXT "Text item" "(message \"This is a text item\")"
  452. X            BITMAP "/usr/openwin/lib/bitmaps/stones" "(message \"action bitmap\")"
  453. X        END
  454. X        BUTTON "Menu Button 2" "(message \"button action 2\")"
  455. X        MENU
  456. X        TITLE "Menu 2"
  457. X            TEXT "text item 2" "(message \"text item action\")"
  458. X            MENU
  459. X                TEXT "item 3" "(message \"action\")"
  460. X                TEXT "item 4" "(message \"action\")"
  461. X            END
  462. X            BITMAP "/usr/openwin/lib/bitmaps/grune" "(message \"action bitmap\")"
  463. X            MENU NO_PUSHPIN
  464. X            TITLE "Menu 3"
  465. X                TEXT "item 5" "(message \"action\")"
  466. X                TEXT "item 6" "(message \"action\")"
  467. X            END
  468. X            BITMAP "/usr/openwin/lib/bitmaps/nights" "(message \"action bitmap\")"
  469. X         END
  470. X    END
  471. XEND
  472. END_OF_FILE
  473.   if test 866 -ne `wc -c <'bam-1.0/menus/ex1'`; then
  474.     echo shar: \"'bam-1.0/menus/ex1'\" unpacked with wrong size!
  475.   fi
  476.   # end of 'bam-1.0/menus/ex1'
  477. fi
  478. if test -f 'bam-1.0/menus/ex1.el' -a "${1}" != "-c" ; then 
  479.   echo shar: Will not clobber existing file \"'bam-1.0/menus/ex1.el'\"
  480. else
  481.   echo shar: Extracting \"'bam-1.0/menus/ex1.el'\" \(328 characters\)
  482.   sed "s/^X//" >'bam-1.0/menus/ex1.el' <<'END_OF_FILE'
  483. X(setq *bam-ex1-menu-dir* *bam-menu-dir*)
  484. X(defun ex1-menu ()
  485. X  (interactive)
  486. X  (process-kill-without-query
  487. X   (command-process (concat *bam-exec-dir* "/bam")
  488. X            "-Wp" "0" "0"    ; position of window
  489. X            "-Wt" "7x14"    ; font
  490. X            "-Ws" "1000" "300"    ;window size
  491. X            (concat *bam-ex1-menu-dir* "/ex1") ;Menu filename
  492. X            )))
  493. END_OF_FILE
  494.   if test 328 -ne `wc -c <'bam-1.0/menus/ex1.el'`; then
  495.     echo shar: \"'bam-1.0/menus/ex1.el'\" unpacked with wrong size!
  496.   fi
  497.   # end of 'bam-1.0/menus/ex1.el'
  498. fi
  499. if test -f 'bam-1.0/menus/latex.el' -a "${1}" != "-c" ; then 
  500.   echo shar: Will not clobber existing file \"'bam-1.0/menus/latex.el'\"
  501. else
  502.   echo shar: Extracting \"'bam-1.0/menus/latex.el'\" \(336 characters\)
  503.   sed "s/^X//" >'bam-1.0/menus/latex.el' <<'END_OF_FILE'
  504. X(setq *bam-latex-menu-dir* *bam-menu-dir*)
  505. X(defun latex-menu ()
  506. X  (interactive)
  507. X  (process-kill-without-query
  508. X   (command-process (concat *bam-exec-dir* "/bam")
  509. X            "-Wp" "0" "0"    ; position of window
  510. X            "-Wt" "7x14"    ; font
  511. X            "-Ws" "1000" "300"    ;window size
  512. X            (concat *bam-latex-menu-dir* "/latex") ;Menu filename
  513. X            )))
  514. END_OF_FILE
  515.   if test 336 -ne `wc -c <'bam-1.0/menus/latex.el'`; then
  516.     echo shar: \"'bam-1.0/menus/latex.el'\" unpacked with wrong size!
  517.   fi
  518.   # end of 'bam-1.0/menus/latex.el'
  519. fi
  520. if test -f 'bam-1.0/send.c' -a "${1}" != "-c" ; then 
  521.   echo shar: Will not clobber existing file \"'bam-1.0/send.c'\"
  522. else
  523.   echo shar: Extracting \"'bam-1.0/send.c'\" \(1328 characters\)
  524.   sed "s/^X//" >'bam-1.0/send.c' <<'END_OF_FILE'
  525. X/*
  526. X    bam - the Born Again Menus for GNU Emacs.
  527. X    Copyright (C) 1991    Stephane Boucher
  528. X
  529. X    This program is free software; you can redistribute it and/or modify
  530. X    it under the terms of the GNU General Public License as published by
  531. X    the Free Software Foundation; either version 1, or (at your option)
  532. X    any later version.
  533. X
  534. X    This program is distributed in the hope that it will be useful,
  535. X    but WITHOUT ANY WARRANTY; without even the implied warranty of
  536. X    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  537. X    GNU General Public License for more details.
  538. X
  539. X    You should have received a copy of the GNU General Public License
  540. X    along with this program; if not, write to the Free Software
  541. X    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  542. X*/
  543. X/* @(#)send.c    1.5 91/11/12 */
  544. X
  545. X#include <stdio.h>
  546. X#include <varargs.h>
  547. X
  548. X#include "bam.h"
  549. X
  550. X
  551. Xvoid sendToEmacs(command) 
  552. X     char *command;
  553. X{
  554. X  fprintf(stdout, "%s", command);
  555. X  fflush(stdout);
  556. X}
  557. X
  558. Xvoid sendErrorToEmacs(va_alist)
  559. Xva_dcl
  560. X{
  561. X  char tmpStr[4096+1];     /* Temporary string to 
  562. X                  construct the error
  563. X                  string to send to emacs */
  564. X  va_list pvar;
  565. X  char *format;
  566. X
  567. X  va_start(pvar);
  568. X  format=va_arg(pvar, char *);
  569. X  vsprintf(tmpStr, format, pvar);
  570. X  va_end(pvar);
  571. X
  572. X  fprintf(stdout, errorFormat, tmpStr);
  573. X
  574. X  fflush(stdout);
  575. X}
  576. END_OF_FILE
  577.   if test 1328 -ne `wc -c <'bam-1.0/send.c'`; then
  578.     echo shar: \"'bam-1.0/send.c'\" unpacked with wrong size!
  579.   fi
  580.   # end of 'bam-1.0/send.c'
  581. fi
  582. echo shar: End of archive 2 \(of 2\).
  583. cp /dev/null ark2isdone
  584. MISSING=""
  585. for I in 1 2 ; do
  586.     if test ! -f ark${I}isdone ; then
  587.     MISSING="${MISSING} ${I}"
  588.     fi
  589. done
  590. if test "${MISSING}" = "" ; then
  591.     echo You have unpacked both archives.
  592.     rm -f ark[1-9]isdone
  593. else
  594.     echo You still must unpack the following archives:
  595.     echo "        " ${MISSING}
  596. fi
  597. exit 0
  598. exit 0 # Just in case...
  599.