source: trunk/Lucide/gui/lcd.c

Last change on this file was 673, checked in by Gregg Young, 3 years ago

Remove exceptq code now provided by linking to libcx.

File size: 3.7 KB
Line 
1/* ***** BEGIN LICENSE BLOCK *****
2 * Version: CDDL 1.0/LGPL 2.1
3 *
4 * The contents of this file are subject to the COMMON DEVELOPMENT AND
5 * DISTRIBUTION LICENSE (CDDL) Version 1.0 (the "License"); you may not use
6 * this file except in compliance with the License. You may obtain a copy of
7 * the License at http://www.sun.com/cddl/
8 *
9 * Software distributed under the License is distributed on an "AS IS" basis,
10 * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
11 * for the specific language governing rights and limitations under the
12 * License.
13 *
14 * The Initial Developer of the Original Code is
15 * Eugene Romanenko, netlabs.org.
16 * Portions created by the Initial Developer are Copyright (C) 2006
17 * the Initial Developer. All Rights Reserved.
18 *
19 * Contributor(s):
20 *
21 * Alternatively, the contents of this file may be used under the terms of
22 * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
23 * in which case the provisions of the LGPL are applicable instead of those
24 * above. If you wish to allow use of your version of this file only under the
25 * terms of the LGPL, and not to allow others to use your version of this file
26 * under the terms of the CDDL, indicate your decision by deleting the
27 * provisions above and replace them with the notice and other provisions
28 * required by the LGPL. If you do not delete the provisions above, a recipient
29 * may use your version of this file under the terms of any one of the CDDL
30 * or the LGPL.
31 *
32 * ***** END LICENSE BLOCK ***** */
33
34
35#include "os2all.h"
36
37#include <stdio.h>
38#include <string.h>
39#include <process.h>
40
41//#define INCL_LOADEXCEPTQ
42//#include "exceptq.h"
43//
44// Lcd.exe sets BEGINLIBPATH to directory where Lucide resides
45// and executes Lucide.exe
46//
47
48typedef APIRET (APIENTRY *LMain)(int argc, char **argv);
49
50int main( int argc, char *argv[] )
51{
52    int result = 1;
53    char *last_slash;
54    char buf[ CCHMAXPATH + 15 /*";%BEGINLIBPATH%"*/ ] = { 0 };
55    HMODULE hmod = NULLHANDLE;
56    APIRET rc = 0;
57    //EXCEPTIONREGISTRATIONRECORD exRegRec;
58
59#ifdef __TEST__
60    PPIB pib;
61    PTIB tib;
62    //LoadExceptq(&exRegRec, "I", "Lucide "VERSION);
63    DosGetInfoBlocks(&tib, &pib);
64    pib->pib_ultype = 3;
65#else
66    //LoadExceptq(&exRegRec, "I", "Lucide "VERSION);
67#endif
68
69    // fill lucide dir
70    strcpy( buf, argv[0] );
71    if ( ( last_slash = strrchr( buf, '\\' ) ) == NULL )
72    {
73        //UninstallExceptq(&exRegRec);
74        return 1;
75    }
76    else
77    {
78        *last_slash = 0;
79    }
80    // retain the previous BEGINLIBPATH setting
81    strcat( buf, ";%BEGINLIBPATH%" );
82
83    // set beginlibpath
84    DosSetExtLIBPATH( buf, BEGIN_LIBPATH );
85
86    rc = DosLoadModule( buf, sizeof( buf ), "Lucide1", &hmod );
87    if ( rc == 0 )
88    {
89        PFN pfn = NULL;
90        if ( DosQueryProcAddr( hmod, 0, "LucideMain", &pfn ) == 0 )
91        {
92            LMain LucideMain = (LMain)pfn;
93            result = LucideMain( argc, argv );
94        }
95        DosFreeModule( hmod );
96    }
97    else
98    {
99        HAB hab;
100        HMQ hmq;
101        char msg[ 256 ];
102
103        hab = WinInitialize( 0 );
104        hmq = WinCreateMsgQueue( hab, 0 );
105
106        if ( buf[0] == 0 ) { // No modulename
107            snprintf( msg, sizeof( msg ), "Error loading Lucide1.dll: SYS%04u", rc );
108        }
109        else {
110            snprintf( msg, sizeof( msg ),
111                      "Error loading Lucide1.dll: can't find module '%s' (SYS%04u)",
112                      buf, rc );
113        }
114        WinMessageBox( HWND_DESKTOP, NULLHANDLE, msg, NULL, 1, MB_OK | MB_MOVEABLE );
115
116        WinDestroyMsgQueue( hmq );
117        WinTerminate( hab );
118    }
119    //UninstallExceptq(&exRegRec);
120    return result;
121}
122
Note: See TracBrowser for help on using the repository browser.