source: branches/profile/GDE/PHYLIP/macface.c

Last change on this file was 2175, checked in by westram, 20 years ago

upgrade to PHYLIP 3.6

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.0 KB
Line 
1
2#include "macface.h"
3
4/* version 3.6 Copyright 1997-2002 by the University of Washington.
5 * mac interfacing
6 * this is only included and used for macs/powermacs
7 * and needs to be used in conjunction with the customized LAMARC-library
8 * which is a modification of the Metrowerks custom library.
9 * fixmacfile() was written by Sean Lamont 1994.
10 *
11 * Peter Beerli 1997
12 * beerli@genetics.washington.edu
13 */
14
15#include <SIOUX.h>
16#include "SIOUXGlobals.h"
17#include "SIOUXMenus.h"
18#include "SIOUXWindows.h"
19
20#include <console.h>
21#include <signal.h>
22#include <stdlib.h>
23#include <stdio.h>
24#include <Traps.h>
25#include <Fonts.h> /*//bkoz*/
26#include <Dialogs.h>
27#include <AppleEvents.h>
28#include <ToolUtils.h>
29#include <DiskInit.h>
30
31/*//defined in unix.c ...*/
32#ifdef __cplusplus
33extern "C" {
34#endif
35
36int  __system7present(void);
37long __myraise(long signal);
38
39
40#ifdef __cplusplus
41}
42#endif
43#include <SIOUX.h>
44#include "SIOUXGlobals.h"
45#include "SIOUXMenus.h"
46#include "SIOUXWindows.h"
47
48#include <console.h>
49#include <signal.h>
50#include <stdlib.h>
51#include <stdio.h>
52#include <Traps.h>
53#include <Fonts.h> /*//bkoz*/
54#include <Dialogs.h>
55#include <AppleEvents.h>
56#include <ToolUtils.h>
57#include <DiskInit.h>
58
59/*//        defined in unix.c ...*/
60#ifdef __cplusplus
61extern "C" {
62#endif
63
64int  __system7present(void);
65long __myraise(long signal);
66
67
68#ifdef __cplusplus
69}
70#endif
71
72#include <Files.h>
73#include "phylip.h"
74
75void fixmacfile(char *filename)
76{
77FInfo  fndrinfo;
78char filename1[FNMLNGTH];
79char filename2[FNMLNGTH];
80strcpy(filename1,filename);
81strcpy(filename2,filename);
82getfinfo(filename1,0,&fndrinfo);
83fndrinfo.fdType='TEXT';
84fndrinfo.fdCreator='MSWD';
85setfinfo(filename2,0,&fndrinfo);
86}
87/* new fixmacfile from interface.c is more versatile and may be desireable here
88LM 7/27*/
89/*
90void fixmacfile(char *filename, long type, long creator)
91{
92FInfo  fndrinfo;
93char filename1[FNMLNGTH];
94char filename2[FNMLNGTH];
95strcpy(filename1,filename);
96strcpy(filename2,filename);
97getfinfo(filename1,0,&fndrinfo);
98fndrinfo.fdType=type;
99fndrinfo.fdCreator=creator;
100setfinfo(filename2,0,&fndrinfo);
101}
102*/
103
104
105
Note: See TracBrowser for help on using the repository browser.