Version:
~ [ 10.0 ] ~
** Warning: Cannot open xref database.
1
2 /* $Id: FrontierMacMain.c,v 1.2 2005/01/11 22:48:04 andreradke Exp $ */
3
4 /******************************************************************************
5
6 UserLand Frontier(tm) -- High performance Web content management,
7 object database, system-level and Internet scripting environment,
8 including source code editing and debugging.
9
10 Copyright (C) 1992-2004 UserLand Software, Inc.
11
12 This program is free software; you can redistribute it and/or modify
13 it under the terms of the GNU General Public License as published by
14 the Free Software Foundation; either version 2 of the License, or
15 (at your option) any later version.
16
17 This program is distributed in the hope that it will be useful,
18 but WITHOUT ANY WARRANTY; without even the implied warranty of
19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 GNU General Public License for more details.
21
22 You should have received a copy of the GNU General Public License
23 along with this program; if not, write to the Free Software
24 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25
26 ******************************************************************************/
27
28 #include <standard.h>
29 #include "config.h"
30 #include "dialogs.h"
31 #include "file.h"
32 #include "strings.h"
33 #include "db.h" /*stats*/
34 #include "shell.h"
35 #include "lang.h"
36 #include "langinternal.h"
37 #include "langexternal.h"
38 #include "tableverbs.h"
39 #include "opverbs.h"
40 #include "scripts.h"
41 #include "menuverbs.h"
42 #include "pictverbs.h"
43 #include "wpverbs.h"
44 #include "cancoon.h"
45 #include "command.h"
46 #ifdef flcomponent
47 #include "osacomponent.h"
48 #endif
49 #include "odbinternal.h"
50 #include "kernelverbs.h"
51 #include "kernelverbdefs.h"
52 #ifdef fliowa
53 #include "iowaverbs.h" /*3/18/92 dmb*/
54 #endif
55
56
57 static boolean ccstart (void) {
58
59 tyfilespec fs;
60 hdlfilenum fnum;
61 odbref odb;
62
63 fs.vRefNum = 0;
64 fs.parID = 0;
65 copystring ("\podbTester.root", fs.name);
66
67 if (!fileopenorcreate (&fs, 'CLNG', 'ROOT', &fnum)) {
68
69 alertdialog ("\pError creating file.\n");
70
71 goto error;
72 }
73
74 if (!odbNewFile (fnum)) {
75
76 alertdialog ("\pError creating new database\n");
77
78 goto error;
79 }
80
81 if (!odbOpenFile (fnum, &odb)) {
82
83 alertdialog ("\pError opening database\n");
84
85 goto error;
86 }
87
88 return true;
89
90 error:
91 return false;
92 } /*ccstart*/
93
94
95 void main (void) {
96
97 /*
98 3.0.4b6 dmb: call osacomponentstart from here, after the shell
99 is more thoroughly initialized.
100 */
101
102 iddefaultconfig = idscriptconfig;
103
104 Debugger ();
105
106 assert (sizeof (tyvaluerecord) == 8);
107
108 assert (sizeof (tyhashnode) == 18);
109
110 if (!shellstart ())
111 return;
112
113 if (!opstart ())
114 shellquit ();
115
116 /*
117 if (!menustart ())
118 shellquit ();
119
120 if (!tablestart ())
121 shellquit ();
122
123 if (!scriptstart ())
124 shellquit ();
125
126 if (!wpstart ())
127 shellquit ();
128
129 if (!cmdstart ())
130 shellquit ();
131
132 if (!langdialogstart ())
133 shellquit ();
134
135 if (!langerrorstart ())
136 shellquit ();
137
138 #ifdef iowaRuntime
139
140 if (!langcardstart ())
141 shellquit ();
142
143 #endif
144
145 if (!statsstart ())
146 shellquit ();
147
148 if (!pictstart ())
149 shellquit ();
150 */
151
152 if (!ccstart ())
153 shellquit ();
154
155 #ifdef flcomponent
156
157 if (!osacomponentstart ())
158 ; // don't quit if this doesn't work
159
160 #endif
161
162 shellmaineventloop ();
163 } /*main*/
164
165
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.