static int runargs (lua_State *L, char **argv, int n) {
int i;
for (i = 1; i < n; i++) {
if (argv[i] == NULL) continue;
lua_assert(argv[i][0] == '-');
switch (argv[i][1]) { /* option */
case 'e': {
const char *chunk = argv[i] + 2;
if (*chunk == '\0') chunk = argv[++i];
lua_assert(chunk != NULL);
if (dostring(L, chunk, "=(command line)") != 0)
return 1;
break;
}
case 'l': {
const char *filename = argv[i] + 2;
if (*filename == '\0') filename = argv[++i];
lua_assert(filename != NULL);
if (dolibrary(L, filename))
return 1; /* stop if file fails */
break;
}
default: break;
}
}
return 0;
}
static int runargs (LUA_State *L, char **argv, int n) {
int i;
for (i = 1; i < n; i++) {
LUA_assert(argv[i][0] == '-');
switch (argv[i][1]) { /* option */
case 'e': {
const char *chunk = argv[i] + 2;
if (*chunk == '\0') chunk = argv[++i];
LUA_assert(chunk != NULL);
if (dostring(L, chunk, "=(COMMAND LINE)") != LUA_OK)
return 0;
break;
}
case 'l': {
const char *filename = argv[i] + 2;
if (*filename == '\0') filename = argv[++i];
LUA_assert(filename != NULL);
if (dolibrary(L, filename) != LUA_OK)
return 0; /* stop if file fails */
break;
}
default: break;
}
}
return 1;
}
static int pmain(lua_State *L)
{
struct Smain *s = &smain;
char **argv = s->argv;
int script;
int flags = 0;
globalL = L;
if (argv[0] && argv[0][0]) progname = argv[0];
LUAJIT_VERSION_SYM(); /* linker-enforced version check */
script = collectargs(argv, &flags);
if (script < 0) { /* invalid args? */
print_usage();
s->status = 1;
return 0;
}
if ((flags & FLAGS_NOENV)) {
lua_pushboolean(L, 1);
lua_setfield(L, LUA_REGISTRYINDEX, "LUA_NOENV");
}
lua_gc(L, LUA_GCSTOP, 0); /* stop collector during initialization */
luaL_openlibs(L); /* open libraries */
gsl_shell_openlibs(L);
lua_gc(L, LUA_GCRESTART, -1);
dolibrary (L, "gslext");
s->keep_windows = 1;
if (!(flags & FLAGS_NOENV)) {
s->status = handle_luainit(L);
if (s->status != 0) return 0;
}
if (s->status != 0) return 0;
if ((flags & FLAGS_VERSION)) print_version();
s->status = runargs(L, argv, (script > 0) ? script : s->argc);
if (s->status != 0) return 0;
if (script) {
s->status = handle_script(L, argv, script);
if (s->status != 0) return 0;
}
if ((flags & FLAGS_INTERACTIVE)) {
print_jit_status(L);
dotty(L);
s->keep_windows = 0;
} else if (script == 0 && !(flags & (FLAGS_EXEC|FLAGS_VERSION))) {
if (lua_stdin_is_tty()) {
print_version();
print_jit_status(L);
print_help_message();
dotty(L);
s->keep_windows = 0;
} else {
dofile(L, NULL); /* executes stdin as a file */
}
}
return 0;
}
/*
** Processes options 'e' and 'l', which involve running Lua code.
** Returns 0 if some code raises an error.
*/
static int runargs (lua_State *L, char **argv, int n) {
int i;
for (i = 1; i < n; i++) {
int option = argv[i][1];
lua_assert(argv[i][0] == '-'); /* already checked */
if (option == 'e' || option == 'l') {
int status;
const char *extra = argv[i] + 2; /* both options need an argument */
if (*extra == '\0') extra = argv[++i];
lua_assert(extra != NULL);
status = (option == 'e')
? dostring(L, extra, "=(command line)")
: dolibrary(L, extra);
if (status != LUA_OK) return 0;
}
}
return 1;
}
static int runargs(lua_State *L, char **argv, int n)
{
int i;
for (i = 1; i < n; i++) {
if (argv[i] == NULL) continue;
lua_assert(argv[i][0] == '-');
switch (argv[i][1]) { /* option */
case 'e': {
const char *chunk = argv[i] + 2;
if (*chunk == '\0') chunk = argv[++i];
lua_assert(chunk != NULL);
if (dostring(L, chunk, "=(command line)") != 0)
return 1;
break;
}
case 'l': {
const char *filename = argv[i] + 2;
if (*filename == '\0') filename = argv[++i];
lua_assert(filename != NULL);
if (dolibrary(L, filename))
return 1; /* stop if file fails */
break;
}
case 'j': { /* LuaJIT extension */
const char *cmd = argv[i] + 2;
if (*cmd == '\0') cmd = argv[++i];
lua_assert(cmd != NULL);
if (dojitcmd(L, cmd))
return 1;
break;
}
case 'O': /* LuaJIT extension */
if (dojitopt(L, argv[i] + 2))
return 1;
break;
case 'b': /* LuaJIT extension */
return dobytecode(L, argv+i);
default:
break;
}
}
return 0;
}
static int pmain(lua_State *L)
{
struct Smain *s = (struct Smain *)lua_touserdata(L, 1);
globalL = L;
lua_gc(L, LUA_GCSTOP, 0);
luaL_openlibs(L);
lua_gc(L, LUA_GCRESTART, 0);
find_local_libbcc(L);
s->status = dolibrary(L, "bcc", 0);
if (s->status)
return 0;
lua_pushstring(L, progname);
lua_setglobal(L, "BCC_STANDALONE_NAME");
pushargv(L, s->argv, s->argc, 1);
lua_setglobal(L, "arg");
s->status = report(L, docall(L, 0, 1));
return 0;
}
static int pmain(lua_State *L)
{
struct Smain *s = &smain;
char **argv = s->argv;
int argn;
int flags = 0;
globalL = L;
if (argv[0] && argv[0][0]) progname = argv[0];
LUAJIT_VERSION_SYM(); /* Linker-enforced version check. */
argn = collectargs(argv, &flags);
if (argn < 0) { /* Invalid args? */
print_usage();
s->status = 1;
return 0;
}
if ((flags & FLAGS_NOENV)) {
lua_pushboolean(L, 1);
lua_setfield(L, LUA_REGISTRYINDEX, "LUA_NOENV");
}
/* Set MAD env _before_ libraries are open. */
mad_setenv(L, flags & FLAGS_NOENV);
/* Stop collector during library initialization. */
lua_gc(L, LUA_GCSTOP, 0);
luaL_openlibs(L);
mad_openlibs(L);
lua_gc(L, LUA_GCRESTART, -1);
createargtable(L, argv, s->argc, argn);
if (!(flags & FLAGS_NOENV)) {
s->status = handle_luainit(L);
if (s->status != LUA_OK) return 0;
}
/* MAD section. */
mad_setsig();
mad_regfunc();
if ((flags & FLAGS_MADENV))
dolibrary(L, "madl_main");
if (!(flags & FLAGS_NOENV)) {
s->status = handle_madinit(L);
if (s->status != LUA_OK) return 0;
}
if ((flags & FLAGS_VERSION)) print_version();
s->status = runargs(L, argv, argn);
if (s->status != LUA_OK) return 0;
if (s->argc > argn) {
s->status = handle_script(L, argv + argn);
if (s->status != LUA_OK) return 0;
}
if ((flags & FLAGS_INTERACTIVE)) {
(void)print_jit_status;
dotty(L);
} else if (s->argc == argn && !(flags & FLAGS_EXEC)) {
if (lua_stdin_is_tty()) {
(void)print_version;
(void)print_jit_status;
dotty(L);
} else {
dofile(L, NULL); /* Executes stdin as a file. */
}
}
return 0;
}
static int handle_argv (lua_State *L, int argc, char **argv, int *interactive) {
if (argv[1] == NULL) { /* no arguments? */
*interactive = 0;
if (lua_stdin_is_tty())
dotty(L);
else
dofile(L, NULL); /* executes stdin as a file */
}
else { /* other arguments; loop over them */
int i;
for (i = 1; argv[i] != NULL; i++) {
if (argv[i][0] != '-') break; /* not an option? */
switch (argv[i][1]) { /* option */
case '-': { /* `--' */
if (argv[i][2] != '\0') {
print_usage();
return 1;
}
i++; /* skip this argument */
goto endloop; /* stop handling arguments */
}
case '\0': {
clearinteractive(interactive);
dofile(L, NULL); /* executes stdin as a file */
break;
}
case 'i': {
*interactive = 2; /* force interactive mode after arguments */
break;
}
case 'v': {
clearinteractive(interactive);
print_version();
break;
}
case 'e': {
const char *chunk = argv[i] + 2;
clearinteractive(interactive);
if (*chunk == '\0') chunk = argv[++i];
if (chunk == NULL) {
print_usage();
return 1;
}
if (dostring(L, chunk, "=(command line)") != 0)
return 1;
break;
}
case 'l': {
const char *filename = argv[i] + 2;
if (*filename == '\0') filename = argv[++i];
if (filename == NULL) {
print_usage();
return 1;
}
if (dolibrary(L, filename))
return 1; /* stop if file fails */
break;
}
default: {
clearinteractive(interactive);
print_usage();
return 1;
}
}
} endloop:
if (argv[i] != NULL) {
int status;
const char *filename = argv[i];
int narg = getargs(L, argc, argv, i); /* collect arguments */
lua_setglobal(L, "arg");
clearinteractive(interactive);
status = luaL_loadfile(L, filename);
lua_insert(L, -(narg+1));
if (status == 0)
status = docall(L, narg, 0);
else
lua_pop(L, narg);
return report(L, status);
}
}
return 0;
}
int main( int argc, char **argv ) {
extern const char *source_modtime_str, *source_version_str;
const char *load_prefs = getenv("FONTFORGE_LOADPREFS");
int i;
extern int splash;
int recover=1;
GtkWidget *notices, *ffsplash;
gchar *home_dir, *rc_path;
struct argcontext args;
#ifdef FONTFORGE_CONFIG_TYPE3
fprintf( stderr, "Copyright (c) 2000-2012 by George Williams.\n Executable based on sources from %s-ML.\n",
source_modtime_str );
#else
fprintf( stderr, "Copyright (c) 2000-2012 by George Williams.\n Executable based on sources from %s.\n",
source_modtime_str );
#endif
fprintf( stderr, " Library based on sources from %s.\n", library_version_configuration.library_source_modtime_string );
gtk_set_locale ();
home_dir = (gchar*) g_get_home_dir();
rc_path = g_strdup_printf("%s/.fontforgerc", home_dir);
gtk_rc_add_default_file(rc_path);
g_free(rc_path);
gtk_init (&argc, &argv);
#if defined(SHAREDIR)
add_pixmap_directory( SHAREDIR "/pixmaps");
#elif defined(PREFIX)
add_pixmap_directory( PREFIX "/share/fontforge/pixmaps" );
#else
add_pixmap_directory( "./pixmaps" );
#endif
bind_textdomain_codeset("FontForge","UTF-8");
bindtextdomain("FontForge", getLocaleDir());
textdomain("FontForge");
#if defined(__Mac)
/* Start X if they haven't already done so. Well... try anyway */
/* Must be before we change DYLD_LIBRARY_PATH or X won't start */
if ( uses_local_x(argc,argv) && getenv("DISPLAY")==NULL ) {
system( "open /Applications/Utilities/X11.app/" );
setenv("DISPLAY",":0.0",0);
}
#endif
FF_SetUiInterface(>k_ui_interface);
FF_SetPrefsInterface(>k_prefs_interface);
/*FF_SetSCInterface(>k_sc_interface);*/
/*FF_SetCVInterface(>k_cv_interface);*/
/*FF_SetBCInterface(>k_bc_interface);*/
FF_SetFVInterface(>k_fv_interface);
/*FF_SetFIInterface(>k_fi_interface);*/
/*FF_SetMVInterface(>k_mv_interface);*/
/*FF_SetClipInterface(>k_clip_interface);*/
#ifndef _NO_PYTHON
PythonUI_Init();
#endif
InitSimpleStuff();
if ( load_prefs!=NULL && strcasecmp(load_prefs,"Always")==0 )
LoadPrefs();
if ( default_encoding==NULL )
default_encoding=FindOrMakeEncoding("ISO8859-1");
if ( default_encoding==NULL )
default_encoding=&custom; /* In case iconv is broken */
CheckIsScript(argc,argv); /* Will run the script and exit if it is a script */
/* If there is no UI, there is always a script */
/* and we will never return from the above */
if ( load_prefs==NULL ||
(strcasecmp(load_prefs,"Always")!=0 && /* Already loaded */
strcasecmp(load_prefs,"Never")!=0 ))
LoadPrefs();
for ( i=1; i<argc; ++i ) {
char *pt = argv[i];
if ( pt[0]=='-' && pt[1]=='-' )
++pt;
if ( strcmp(pt,"-nosplash")==0 )
splash = 0;
else if ( strcmp(pt,"-recover")==0 && i<argc-1 ) {
++i;
if ( strcmp(argv[i],"none")==0 )
recover=0;
else if ( strcmp(argv[i],"clean")==0 )
recover= -1;
else if ( strcmp(argv[i],"auto")==0 )
recover= 1;
else if ( strcmp(argv[i],"inquire")==0 )
recover= 2;
else {
fprintf( stderr, "Invalid argument to -recover, must be none, auto, inquire or clean\n" );
dousage();
}
} else if ( strcmp(pt,"-recover=none")==0 ) {
recover = 0;
} else if ( strcmp(pt,"-recover=clean")==0 ) {
recover = -1;
} else if ( strcmp(pt,"-recover=auto")==0 ) {
recover = 1;
} else if ( strcmp(pt,"-recover=inquire")==0 ) {
recover = 2;
} else if ( strcmp(pt,"-help")==0 )
dohelp();
else if ( strcmp(pt,"-usage")==0 )
dousage();
else if ( strcmp(pt,"-version")==0 )
doversion(source_version_str);
else if ( strcmp(pt,"-library-status")==0 )
dolibrary();
}
InitCursors();
#ifndef _NO_PYTHON
PyFF_ProcessInitFiles();
#endif
if ( splash ) {
splashw = create_FontForgeSplash ();
splash_window_tooltip_fun( splashw );
notices = lookup_widget(splashw,"Notices");
if ( notices!=NULL )
gtk_widget_hide(notices);
ffsplash = lookup_widget(splashw,"ffsplash2");
if ( ffsplash!=NULL )
gtk_widget_hide(ffsplash);
ffsplash = lookup_widget(splashw,"ffsplash3");
if ( ffsplash!=NULL )
gtk_widget_hide(ffsplash);
gtk_window_set_position(GTK_WINDOW(splashw),GTK_WIN_POS_CENTER_ALWAYS);
gtk_widget_show (splashw);
ff_progress_allow_events();
gtk_timeout_add(1000,Splash_Changes,splashw);
}
gtk_timeout_add(30*1000,__DoAutoSaves,NULL); /* Check for autosave every 30 seconds */
args.argc = argc; args.argv = argv; args.recover = recover;
gtk_timeout_add(100,ParseArgs,&args);
/* Parse arguments within the main loop */
gtk_main ();
return( 0 );
}
int main( int argc, char **argv ) {
extern const char *source_modtime_str;
extern const char *source_version_str;
const char *load_prefs = getenv("FONTFORGE_LOADPREFS");
int i;
int recover=2;
int any;
int next_recent=0;
GRect pos;
GWindowAttrs wattrs;
char *display = NULL;
FontRequest rq;
int ds, ld;
int openflags=0;
int doopen=0, quit_request=0;
#if defined(__Mac)
int local_x;
#endif
fprintf( stderr, "Copyright (c) 2000-2011 by George Williams.\n Executable based on sources from %s"
#ifdef FONTFORGE_CONFIG_TYPE3
"-ML"
#endif
#ifdef FREETYPE_HAS_DEBUGGER
"-TtfDb"
#endif
#ifdef _NO_PYTHON
"-NoPython"
#endif
#ifdef FONTFORGE_CONFIG_USE_LONGDOUBLE
"-LD"
#elif defined(FONTFORGE_CONFIG_USE_DOUBLE)
"-D"
#endif
#ifndef FONTFORGE_CONFIG_DEVICETABLES
"-NoDevTab"
#endif
".\n",
source_modtime_str );
fprintf( stderr, " Library based on sources from %s.\n", library_version_configuration.library_source_modtime_string );
/* Must be done before we cache the current directory */
for ( i=1; i<argc; ++i ) if ( strcmp(argv[i],"-home")==0 && getenv("HOME")!=NULL )
chdir(getenv("HOME"));
#if defined(__Mac)
/* Start X if they haven't already done so. Well... try anyway */
/* Must be before we change DYLD_LIBRARY_PATH or X won't start */
/* (osascript depends on a libjpeg which isn't found if we look in /sw/lib first */
local_x = uses_local_x(argc,argv);
if ( local_x==1 && getenv("DISPLAY")==NULL ) {
/* Don't start X if we're just going to quit. */
/* if X exists, it isn't needed. If X doesn't exist it's wrong */
if ( !hasquit(argc,argv)) {
#if 1
/* This sequence is supposed to bring up an app without a window */
/* but X still opens an xterm */
system( "osascript -e 'tell application \"X11\" to launch'" );
system( "osascript -e 'tell application \"X11\" to activate'" );
#else
system( "open /Applications/Utilities/X11.app/" );
#endif
}
setenv("DISPLAY",":0.0",0);
} else if ( local_x==1 && *getenv("DISPLAY")!='/' && strcmp(getenv("DISPLAY"),":0.0")!=0 && strcmp(getenv("DISPLAY"),":0")!=0 )
/* 10.5.7 uses a named socket or something "/tmp/launch-01ftWX:0" */
local_x = 0;
#endif
#if defined(__MINGW32__)
if( getenv("DISPLAY")==NULL ) {
putenv("DISPLAY=127.0.0.1:0.0");
}
if( getenv("LC_ALL")==NULL ){
char lang[8];
char env[32];
if( GetLocaleInfoA(LOCALE_USER_DEFAULT, LOCALE_SISO639LANGNAME, lang, 8) > 0 ){
strcpy(env, "LC_ALL=");
strcat(env, lang);
putenv(env);
}
}
#endif
FF_SetUiInterface(&gdraw_ui_interface);
FF_SetPrefsInterface(&gdraw_prefs_interface);
FF_SetSCInterface(&gdraw_sc_interface);
FF_SetCVInterface(&gdraw_cv_interface);
FF_SetBCInterface(&gdraw_bc_interface);
FF_SetFVInterface(&gdraw_fv_interface);
FF_SetFIInterface(&gdraw_fi_interface);
FF_SetMVInterface(&gdraw_mv_interface);
FF_SetClipInterface(&gdraw_clip_interface);
#ifndef _NO_PYTHON
PythonUI_Init();
#endif
InitSimpleStuff();
#if defined(__MINGW32__)
{
char path[MAX_PATH+4];
char *c = path;
unsigned int len = GetModuleFileNameA(NULL, path, MAX_PATH);
path[len] = '\0';
for(; *c; *c++) /* backslash to slash */
if(*c == '\\')
*c = '/';
GResourceSetProg(path);
}
#else
GResourceSetProg(argv[0]);
#endif
#if defined(__Mac)
/* The mac seems to default to the "C" locale, LANG and LC_MESSAGES are not*/
/* defined. This means that gettext will not bother to look up any message*/
/* files -- even if we have a "C" or "POSIX" entry in the locale diretory */
/* Now if X11 gives us the command key, I want to force a rebinding to use */
/* Cmd rather than Control key -- more mac-like. But I can't do that if */
/* there is no locale. So I force a locale if there is none specified */
/* I force the US English locale, because that's the what the messages are */
/* by default so I'm changing as little as I can. I think. */
/* Now the locale command will treat a LANG which is "" as undefined, but */
/* gettext will not. So I don't bother to check for null strings or "C" */
/* or "POSIX". If they've mucked with the locale perhaps they know what */
/* they are doing */
{ int did_keybindings = 0;
if ( local_x && !get_mac_x11_prop("enable_key_equivalents") ) {
/* Ok, we get the command key */
if ( getenv("LANG")==NULL && getenv("LC_MESSAGES")==NULL ) {
setenv("LC_MESSAGES","en_US.UTF-8",0);
}
/* Can we find a set of keybindings designed for the mac with cmd key? */
bind_textdomain_codeset("Mac-FontForge-MenuShortCuts","UTF-8");
bindtextdomain("Mac-FontForge-MenuShortCuts", getLocaleDir());
if ( *dgettext("Mac-FontForge-MenuShortCuts","Flag0x10+")!='F' ) {
GMenuSetShortcutDomain("Mac-FontForge-MenuShortCuts");
did_keybindings = 1;
}
}
if ( !did_keybindings ) {
/* Nope. we can't. Fall back to the normal stuff */
#endif
GMenuSetShortcutDomain("FontForge-MenuShortCuts");
bind_textdomain_codeset("FontForge-MenuShortCuts","UTF-8");
bindtextdomain("FontForge-MenuShortCuts", getLocaleDir());
#if defined(__Mac)
}}
#endif
bind_textdomain_codeset("FontForge","UTF-8");
bindtextdomain("FontForge", getLocaleDir());
textdomain("FontForge");
GResourceUseGetText();
#if defined(__MINGW32__)
{
size_t len = strlen(GResourceProgramDir);
char* path = galloc(len + 64);
strcpy(path, GResourceProgramDir);
strcpy(path+len, "/share/fontforge/pixmaps"); /* PixmapDir */
GGadgetSetImageDir(path);
strcpy(path+len, "/fontforge.resource"); /* Resource File */
GResourceAddResourceFile(path, GResourceProgramName);
gfree(path);
}
#elif defined(SHAREDIR)
GGadgetSetImageDir(SHAREDIR "/pixmaps");
#endif
if ( load_prefs!=NULL && strcasecmp(load_prefs,"Always")==0 )
LoadPrefs();
if ( default_encoding==NULL )
default_encoding=FindOrMakeEncoding("ISO8859-1");
if ( default_encoding==NULL )
default_encoding=&custom; /* In case iconv is broken */
CheckIsScript(argc,argv); /* Will run the script and exit if it is a script */
/* If there is no UI, there is always a script */
/* and we will never return from the above */
if ( load_prefs==NULL ||
(strcasecmp(load_prefs,"Always")!=0 && /* Already loaded */
strcasecmp(load_prefs,"Never")!=0 ))
LoadPrefs();
GrokNavigationMask();
for ( i=1; i<argc; ++i ) {
char *pt = argv[i];
if ( pt[0]=='-' && pt[1]=='-' )
++pt;
if ( strcmp(pt,"-sync")==0 )
GResourceAddResourceString("Gdraw.Synchronize: true",argv[0]);
else if ( strcmp(pt,"-depth")==0 && i<argc-1 )
AddR(argv[0],"Gdraw.Depth", argv[++i]);
else if ( strcmp(pt,"-vc")==0 && i<argc-1 )
AddR(argv[0],"Gdraw.VisualClass", argv[++i]);
else if ( (strcmp(pt,"-cmap")==0 || strcmp(pt,"-colormap")==0) && i<argc-1 )
AddR(argv[0],"Gdraw.Colormap", argv[++i]);
else if ( (strcmp(pt,"-dontopenxdevices")==0) )
AddR(argv[0],"Gdraw.DontOpenXDevices", "true");
else if ( strcmp(pt,"-keyboard")==0 && i<argc-1 )
AddR(argv[0],"Gdraw.Keyboard", argv[++i]);
else if ( strcmp(pt,"-display")==0 && i<argc-1 )
display = argv[++i];
# if MyMemory
else if ( strcmp(pt,"-memory")==0 )
__malloc_debug(5);
# endif
else if ( strncmp(pt,"-usecairo",strlen("-usecairo"))==0 ) {
if ( strcmp(pt,"-usecairo=no")==0 )
GDrawEnableCairo(false);
else
GDrawEnableCairo(true);
} else if ( strncmp(pt,"-usepango",strlen("-usepango"))==0 ) {
if ( strcmp(pt,"-usepango=no")==0 )
GDrawEnablePango(false);
else
GDrawEnablePango(true);
} else if ( strcmp(pt,"-nosplash")==0 )
splash = 0;
else if ( strcmp(pt,"-unique")==0 )
unique = 1;
else if ( strcmp(pt,"-recover")==0 && i<argc-1 ) {
++i;
if ( strcmp(argv[i],"none")==0 )
recover=0;
else if ( strcmp(argv[i],"clean")==0 )
recover= -1;
else if ( strcmp(argv[i],"auto")==0 )
recover= 1;
else if ( strcmp(argv[i],"inquire")==0 )
recover= 2;
else {
fprintf( stderr, "Invalid argument to -recover, must be none, auto, inquire or clean\n" );
dousage();
}
} else if ( strcmp(pt,"-recover=none")==0 ) {
recover = 0;
} else if ( strcmp(pt,"-recover=clean")==0 ) {
recover = -1;
} else if ( strcmp(pt,"-recover=auto")==0 ) {
recover = 1;
} else if ( strcmp(pt,"-recover=inquire")==0 ) {
recover = 2;
} else if ( strcmp(pt,"-help")==0 )
dohelp();
else if ( strcmp(pt,"-usage")==0 )
dousage();
else if ( strcmp(pt,"-version")==0 )
doversion(source_version_str);
else if ( strcmp(pt,"-library-status")==0 )
dolibrary();
else if ( strcmp(pt,"-quit")==0 )
quit_request = true;
else if ( strcmp(pt,"-home")==0 ) {
if ( getenv("HOME")!=NULL )
chdir(getenv("HOME"));
#if defined(__Mac)
} else if ( strncmp(pt,"-psn_",5)==0 ) {
/* OK, I don't know what this really means, but to me it means */
/* that we've been started on the mac from the FontForge.app */
/* structure, and the current directory is (shudder) "/" */
unique = 1;
if ( getenv("HOME")!=NULL )
chdir(getenv("HOME"));
listen_to_apple_events = true;
#endif
}
}
GDrawCreateDisplays(display,argv[0]);
default_background = GDrawGetDefaultBackground(screen_display);
InitToolIconClut(default_background);
InitCursors();
#ifndef _NO_PYTHON
PyFF_ProcessInitFiles();
#endif
/* Wait until the UI has started, otherwise people who don't have consoles*/
/* open won't get our error messages, and it's an important one */
/* Scripting doesn't care about a mismatch, because scripting interpretation */
/* all lives in the library */
check_library_version(&exe_library_version_configuration,true,false);
/* the splash screen used not to have a title bar (wam_nodecor) */
/* but I found I needed to know how much the window manager moved */
/* the window around, which I can determine if I have a positioned */
/* decorated window created at the begining */
/* Actually I don't care any more */
wattrs.mask = wam_events|wam_cursor|wam_bordwidth|wam_backcol|wam_positioned|wam_utf8_wtitle|wam_isdlg;
wattrs.event_masks = ~(1<<et_charup);
wattrs.positioned = 1;
wattrs.cursor = ct_pointer;
wattrs.utf8_window_title = "FontForge";
wattrs.border_width = 2;
wattrs.background_color = 0xffffff;
wattrs.is_dlg = !listen_to_apple_events;
pos.x = pos.y = 200;
pos.width = splashimage.u.image->width;
pos.height = splashimage.u.image->height-56; /* 54 */
GDrawBindSelection(NULL,sn_user1,"FontForge");
if ( unique && GDrawSelectionOwned(NULL,sn_user1)) {
/* Different event handler, not a dialog */
wattrs.is_dlg = false;
splashw = GDrawCreateTopWindow(NULL,&pos,request_e_h,NULL,&wattrs);
PingOtherFontForge(argc,argv);
} else {
if ( quit_request )
exit( 0 );
splashw = GDrawCreateTopWindow(NULL,&pos,splash_e_h,NULL,&wattrs);
}
memset(&rq,0,sizeof(rq));
rq.utf8_family_name = SERIF_UI_FAMILIES;
rq.point_size = 12;
rq.weight = 400;
splash_font = GDrawInstanciateFont(NULL,&rq);
splash_font = GResourceFindFont("Splash.Font",splash_font);
GDrawDecomposeFont(splash_font, &rq);
rq.style = fs_italic;
splash_italic = GDrawInstanciateFont(NULL,&rq);
splash_italic = GResourceFindFont("Splash.ItalicFont",splash_italic);
GDrawSetFont(splashw,splash_font);
GDrawFontMetrics(splash_font,&as,&ds,&ld);
fh = as+ds+ld;
SplashLayout();
localsplash = splash;
if ( localsplash && !listen_to_apple_events )
start_splash_screen();
autosave_timer=GDrawRequestTimer(splashw,60*1000,30*1000,NULL);
GDrawProcessPendingEvents(NULL);
GDrawSetBuildCharHooks(BuildCharHook,InsCharHook);
any = 0;
if ( recover==-1 )
CleanAutoRecovery();
else if ( recover )
any = DoAutoRecovery(recover-1);
openflags = 0;
for ( i=1; i<argc; ++i ) {
char buffer[1025];
char *pt = argv[i];
GDrawProcessPendingEvents(NULL);
if ( pt[0]=='-' && pt[1]=='-' )
++pt;
if ( strcmp(pt,"-new")==0 ) {
FontNew();
any = 1;
# if HANYANG
} else if ( strcmp(pt,"-newkorean")==0 ) {
MenuNewComposition(NULL,NULL,NULL);
any = 1;
# endif
} else if ( strcmp(pt,"-last")==0 ) {
if ( next_recent<RECENT_MAX && RecentFiles[next_recent]!=NULL )
if ( ViewPostScriptFont(RecentFiles[next_recent++],openflags))
any = 1;
} else if ( strcmp(pt,"-sync")==0 || strcmp(pt,"-memory")==0 ||
strcmp(pt,"-nosplash")==0 || strcmp(pt,"-recover=none")==0 ||
strcmp(pt,"-recover=clean")==0 || strcmp(pt,"-recover=auto")==0 ||
strcmp(pt,"-dontopenxdevices")==0 || strcmp(pt,"-unique")==0 ||
strncmp(pt,"-usecairo",strlen("-usecairo"))==0 ||
strncmp(pt,"-usepango",strlen("-usepango"))==0 ||
strcmp(pt,"-home")==0 )
/* Already done, needed to be before display opened */;
else if ( strncmp(pt,"-psn_",5)==0 )
/* Already done */;
else if ( (strcmp(pt,"-depth")==0 || strcmp(pt,"-vc")==0 ||
strcmp(pt,"-cmap")==0 || strcmp(pt,"-colormap")==0 ||
strcmp(pt,"-keyboard")==0 ||
strcmp(pt,"-display")==0 || strcmp(pt,"-recover")==0 ) &&
i<argc-1 )
++i; /* Already done, needed to be before display opened */
else if ( strcmp(pt,"-allglyphs")==0 )
openflags |= of_all_glyphs_in_ttc;
else if ( strcmp(pt,"-open")==0 )
doopen = true;
else {
if ( strstr(argv[i],"://")!=NULL ) { /* Assume an absolute URL */
strncpy(buffer,argv[i],sizeof(buffer));
buffer[sizeof(buffer)-1]= '\0';
} else
GFileGetAbsoluteName(argv[i],buffer,sizeof(buffer));
if ( GFileIsDir(buffer) || (strstr(buffer,"://")!=NULL && buffer[strlen(buffer)-1]=='/')) {
char *fname;
fname = galloc(strlen(buffer)+strlen("/glyphs/contents.plist")+1);
strcpy(fname,buffer); strcat(fname,"/glyphs/contents.plist");
if ( GFileExists(fname)) {
/* It's probably a Unified Font Object directory */
free(fname);
if ( ViewPostScriptFont(buffer,openflags) )
any = 1;
} else {
strcpy(fname,buffer); strcat(fname,"/font.props");
if ( GFileExists(fname)) {
/* It's probably a sf dir collection */
free(fname);
if ( ViewPostScriptFont(buffer,openflags) )
any = 1;
} else {
free(fname);
if ( buffer[strlen(buffer)-1]!='/' ) {
/* If dirname doesn't end in "/" we'll be looking in parent dir */
buffer[strlen(buffer)+1]='\0';
buffer[strlen(buffer)] = '/';
}
fname = GetPostScriptFontName(buffer,false);
if ( fname!=NULL )
ViewPostScriptFont(fname,openflags);
any = 1; /* Even if we didn't get a font, don't bring up dlg again */
free(fname);
}
}
} else if ( ViewPostScriptFont(buffer,openflags)!=0 )
any = 1;
}
}
if ( !any && !doopen )
any = ReopenLastFonts();
#if defined(__Mac)
if ( listen_to_apple_events ) {
install_apple_event_handlers();
install_mac_timer();
RunApplicationEventLoop();
} else
#endif
if ( doopen || !any )
MenuOpen(NULL,NULL,NULL);
GDrawEventLoop(NULL);
return( 0 );
}
