/[MITgcm]/MITgcm_contrib/mpack_src/mpack-1.6-4/macnfile.c
ViewVC logotype

Annotation of /MITgcm_contrib/mpack_src/mpack-1.6-4/macnfile.c

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.1 - (hide annotations) (download)
Sat Feb 23 20:22:58 2008 UTC (17 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
- get new version from: http://packages.qa.debian.org/m/mpack.html
  (files: mpack_1.6.orig.tar.gz, mpack_1.6-4.diff.gz, mpack_1.6-4.dsc)
  and apply patch 'mpack_1.6-4.diff' to original dir: mpack_1.6/
- this fix the MD5 coding on 64.bit platforms (well, seems to).
- added in Contrib to allow separate test (since building mpack seems fishy)

1 jmc 1.1 /* macnfile.c -- standard file operations for nifty application library
2     */
3     /* (C) Copyright 1995 by Carnegie Mellon University
4     * All Rights Reserved.
5     *
6     * Permission to use, copy, modify, distribute, and sell this software
7     * and its documentation for any purpose is hereby granted without
8     * fee, provided that the above copyright notice appear in all copies
9     * and that both that copyright notice and this permission notice
10     * appear in supporting documentation, and that the name of Carnegie
11     * Mellon University not be used in advertising or publicity
12     * pertaining to distribution of the software without specific,
13     * written prior permission. Carnegie Mellon University makes no
14     * representations about the suitability of this software for any
15     * purpose. It is provided "as is" without express or implied
16     * warranty.
17     *
18     * CARNEGIE MELLON UNIVERSITY DISCLAIMS ALL WARRANTIES WITH REGARD TO
19     * THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
20     * AND FITNESS, IN NO EVENT SHALL CARNEGIE MELLON UNIVERSITY BE LIABLE
21     * FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
22     * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN
23     * AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING
24     * OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
25     * SOFTWARE.
26     */
27     /* (C) Copyright 1990-1995 by Christopher J. Newman
28     * All Rights Reserved.
29     *
30     * Permission to use, copy, modify, distribute, and sell this software and its
31     * documentation for any purpose is hereby granted without fee, provided that
32     * the above copyright notice appear in all copies and that both that
33     * copyright notice and this permission notice appear in supporting
34     * documentation, and that the name of Christopher J. Newman not be used in
35     * advertising or publicity pertaining to distribution of the software without
36     * specific, written prior permission. Christopher J. Newman makes no
37     * representations about the suitability of this software for any purpose. It
38     * is provided "as is" without express or implied warranty.
39     *
40     * CHRISTOPHER J. NEWMAN DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
41     * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT
42     * SHALL CHRISTOPHER J. NEWMAN BE LIABLE FOR ANY SPECIAL, INDIRECT OR
43     * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
44     * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
45     * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
46     * OF THIS SOFTWARE.
47     *
48     * Author: Christopher J. Newman
49     * Message: This is a nifty program.
50     */
51    
52     #include <string.h>
53     #include "macnapp.h"
54    
55     /* copy SFReply to StandardFileReply
56     */
57     static void sftostd(SFReply *rep, StandardFileReply *reply)
58     {
59     long procid = 0;
60    
61     if ((reply->sfGood = rep->good) == true) {
62     reply->sfReplacing = false;
63     reply->sfType = rep->fType;
64     memcpy((void *) reply->sfFile.name, rep->fName, *rep->fName + 1);
65     reply->sfFile.parID = 0;
66     reply->sfFile.vRefNum = rep->vRefNum;
67     GetWDInfo(rep->vRefNum, &reply->sfFile.vRefNum, &reply->sfFile.parID, &procid);
68     }
69     }
70    
71     /* get a file to save
72     */
73     void NAputFile(Str255 prompt, Str255 initfname, StandardFileReply *reply)
74     {
75     SFReply rep;
76     Point where;
77    
78     if (NAgestaltBits & NA_HASSTDFILE) {
79     StandardPutFile(prompt, initfname, reply);
80     } else {
81     where.h = where.v = 0;
82     SFPutFile(where, prompt, initfname, nil, &rep);
83     sftostd(&rep, reply);
84     }
85     }
86    
87     /* get a file to open
88     */
89     void NAgetFile(FileFilterProcPtr filter, short numtypes,
90     SFTypeList types, StandardFileReply *reply)
91     {
92     Point p;
93     SFReply rep;
94    
95     if (NAgestaltBits & NA_HASSTDFILE) {
96     StandardGetFile(filter, numtypes, types, reply);
97     } else {
98     p.h = p.v = 0;
99     SFGetFile(p, NULL, (ProcPtr) filter, numtypes, types, 0, &rep);
100     sftostd(&rep, reply);
101     }
102     }

  ViewVC Help
Powered by ViewVC 1.1.22