1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
/* macstuff.c - macintosh interface routines for xlisp */
/* Written by Brian Kendig. */
/* This file contains the stuff that the other xlisp files call directly. */
#include "cext.h"
#include <stdio.h>
#include <stdarg.h>
#include <QuickDraw.h> /* for Random */
#include <Memory.h> /* for DisposePtr */
#include <SegLoad.h> /* for ExitToShell */
#include "xlisp.h"
#include <string.h>
#include "macint.h"
#define DELETE 0x08
/* externals */
extern FILE *tfp; /* transcript file pointer */
extern int cursorPos;
extern char *macgets (void);
#define GPRINTF_MESSAGE_LEN 500
/* nyquist_printf -- system independent version of printf */
/*
* this function prints to console like printf, but using GUI
* rather than stdio when appropriate.
*
*/
void nyquist_printf(char *format, ...)
{
char temp[GPRINTF_MESSAGE_LEN];
va_list pvar;
char *p = temp;
va_start(pvar, format);
vsnprintf(temp, GPRINTF_MESSAGE_LEN, format, pvar);
va_end(pvar);
while (*p) ostputc(*p++);
}
/* this should really be in a header for MacFileUtils.c */
void GetFullPath(FSSpec *theSpec, StringPtr theName);
/* this is called when we load a file -- if need_preference_file,
* we will build a preference file and insert the path of the file
* we just opened, assuming it will tell us where to find init.lsp
*/
void setup_preferences(char *filename)
{
}
|
