diff options
Diffstat (limited to 'amiga/arexx.c')
| -rw-r--r-- | amiga/arexx.c | 636 |
1 files changed, 0 insertions, 636 deletions
diff --git a/amiga/arexx.c b/amiga/arexx.c deleted file mode 100644 index c5b5ab42d..000000000 --- a/amiga/arexx.c +++ /dev/null @@ -1,636 +0,0 @@ -/* - * Copyright 2008-2010 Chris Young <chris@unsatisfactorysoftware.co.uk> - * - * This file is part of NetSurf, http://www.netsurf-browser.org/ - * - * NetSurf is free software; you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation; version 2 of the License. - * - * NetSurf is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program. If not, see <http://www.gnu.org/licenses/>. - */ - -#include "amiga/os3support.h" - -#include <stdlib.h> -#include <string.h> -#include <math.h> - -#include <proto/intuition.h> -#include <proto/dos.h> -#include <proto/exec.h> -#include <proto/clicktab.h> -#include <gadgets/clicktab.h> -#include <reaction/reaction_macros.h> - -#include "utils/utils.h" -#include "utils/log.h" -#include "utils/nsoption.h" -#include "utils/nsurl.h" -#include "content/hlcache.h" -#include "desktop/browser.h" -#include "desktop/gui_window.h" -#include "desktop/version.h" - -#include "amiga/arexx.h" -#include "amiga/download.h" -#include "amiga/gui.h" -#include "amiga/hotlist.h" -#include "amiga/libs.h" -#include "amiga/misc.h" -#include "amiga/theme.h" - -extern const char * const verarexx; -extern const char * const wt_revid; - -enum -{ - RX_OPEN=0, - RX_QUIT, - RX_TOFRONT, - RX_GETURL, - RX_GETTITLE, - RX_VERSION, - RX_SAVE, - RX_PUBSCREEN, - RX_BACK, - RX_FORWARD, - RX_HOME, - RX_RELOAD, - RX_WINDOWS, - RX_ACTIVE, - RX_CLOSE, - RX_HOTLIST -}; - -STATIC char result[100]; - -STATIC VOID rx_open(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_quit(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_tofront(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_geturl(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_gettitle(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_version(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_save(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_pubscreen(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_back(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_forward(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_home(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_reload(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_windows(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_active(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_close(struct ARexxCmd *, struct RexxMsg *); -STATIC VOID rx_hotlist(struct ARexxCmd *, struct RexxMsg *); - -STATIC struct ARexxCmd Commands[] = -{ - {"OPEN",RX_OPEN,rx_open,"URL/A,NEW=NEWWINDOW/S,NEWTAB/S,SAVEAS/K,W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"QUIT",RX_QUIT,rx_quit,NULL, 0, NULL, 0, 0, NULL }, - {"TOFRONT",RX_TOFRONT,rx_tofront,NULL, 0, NULL, 0, 0, NULL }, - {"GETURL",RX_GETURL,rx_geturl, "W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"GETTITLE",RX_GETTITLE,rx_gettitle, "W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"VERSION",RX_VERSION,rx_version,"VERSION/N,SVN=REVISION/N,RELEASE/S", 0, NULL, 0, 0, NULL }, - {"SAVE",RX_SAVE,rx_save,"FILENAME/A,W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"GETSCREENNAME",RX_PUBSCREEN,rx_pubscreen,NULL, 0, NULL, 0, 0, NULL }, - {"BACK", RX_BACK, rx_back, "W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"FORWARD", RX_FORWARD, rx_forward, "W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"HOME", RX_HOME, rx_home, "W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"RELOAD", RX_RELOAD, rx_reload, "FORCE/S,W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"WINDOWS", RX_WINDOWS, rx_windows, "W=WINDOW/K/N", 0, NULL, 0, 0, NULL }, - {"ACTIVE", RX_ACTIVE, rx_active, "T=TAB/S", 0, NULL, 0, 0, NULL }, - {"CLOSE", RX_CLOSE, rx_close, "W=WINDOW/K/N,T=TAB/K/N", 0, NULL, 0, 0, NULL }, - {"HOTLIST", RX_HOTLIST, rx_hotlist, "A=ACTION/A", 0, NULL, 0, 0, NULL }, - { NULL, 0, NULL, NULL, 0, NULL, 0, 0, NULL } -}; - -BOOL ami_arexx_init(void) -{ - if((arexx_obj = ARexxObj, - AREXX_HostName,"NETSURF", - AREXX_Commands,Commands, - AREXX_NoSlot,TRUE, - AREXX_ReplyHook,NULL, - AREXX_DefExtension,"nsrx", - End)) - { - GetAttr(AREXX_SigMask, arexx_obj, &rxsig); - return true; - } - else - { -/* Create a temporary ARexx port so we can send commands to the NetSurf which - * is already running */ - arexx_obj = ARexxObj, - AREXX_HostName,"NETSURF", - AREXX_Commands,Commands, - AREXX_NoSlot,FALSE, - AREXX_ReplyHook,NULL, - AREXX_DefExtension,"nsrx", - End; - return false; - } -} - -void ami_arexx_handle(void) -{ - RA_HandleRexx(arexx_obj); -} - -void ami_arexx_execute(char *script) -{ - char full_script_path[1025]; - BPTR lock; - - if((lock = Lock(script, ACCESS_READ))) { - DevNameFromLock(lock, full_script_path, 1024, DN_FULLPATH); - LOG("Executing script: %s", full_script_path); - IDoMethod(arexx_obj, AM_EXECUTE, full_script_path, NULL, NULL, NULL, NULL, NULL); - UnLock(lock); - } -} - -void ami_arexx_cleanup(void) -{ - if(arexx_obj) DisposeObject(arexx_obj); -} - -static struct gui_window *ami_find_tab_gwin(struct gui_window_2 *gwin, int tab) -{ - int tabs = 0; - struct Node *ctab; - struct Node *ntab; - struct gui_window *gw; - - if((tab == 0) || (gwin->tabs == 0)) return gwin->gw; - - ctab = GetHead(&gwin->tab_list); - - do - { - tabs++; - ntab=GetSucc(ctab); - GetClickTabNodeAttrs(ctab, - TNA_UserData, &gw, - TAG_DONE); - if(tabs == tab) return gw; - } while((ctab=ntab)); - - return NULL; -} - -static int ami_find_tab_bw(struct gui_window_2 *gwin, struct browser_window *bw) -{ - int tabs = 0; - struct Node *ctab; - struct Node *ntab; - struct gui_window *tgw = NULL; - - if((bw == NULL) || (gwin->tabs == 0)) return 1; - - ctab = GetHead(&gwin->tab_list); - - do - { - tabs++; - ntab=GetSucc(ctab); - GetClickTabNodeAttrs(ctab, - TNA_UserData, &tgw, - TAG_DONE); - if(tgw->bw == bw) return tabs; - } while((ctab=ntab)); - - return 0; -} - -static struct gui_window *ami_find_tab(int window, int tab) -{ - struct nsObject *node, *nnode; - - if(!IsMinListEmpty(window_list)) - { - int windows = 0; - - node = (struct nsObject *)GetHead((struct List *)window_list); - - do - { - nnode=(struct nsObject *)GetSucc((struct Node *)node); - - if(node->Type == AMINS_WINDOW) - { - windows++; - if(windows == window) - return ami_find_tab_gwin(node->objstruct, tab); - } - } while((node = nnode)); - } - return NULL; -} - -STATIC VOID rx_open(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - struct dlnode *dln; - struct gui_window *gw = cur_gw; - nsurl *url; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[4]) && (cmd->ac_ArgList[5])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[4], *(ULONG *)cmd->ac_ArgList[5]); - - if (nsurl_create((char *)cmd->ac_ArgList[0], &url) != NSERROR_OK) { - amiga_warn_user("NoMemory", 0); - return; - } - - if(cmd->ac_ArgList[3]) - { - if(!gw) return; - - dln = ami_misc_allocvec_clear(sizeof(struct dlnode), 0); - dln->filename = strdup((char *)cmd->ac_ArgList[3]); - dln->node.ln_Name = strdup((char *)cmd->ac_ArgList[0]); - dln->node.ln_Type = NT_USER; - AddTail(&gw->dllist, (struct Node *)dln); - browser_window_navigate(gw->bw, - url, - NULL, - BW_NAVIGATE_DOWNLOAD, - NULL, - NULL, - NULL); - } - else if(cmd->ac_ArgList[2]) - { - browser_window_create(BW_CREATE_HISTORY | - BW_CREATE_TAB, - url, - NULL, - gw->bw, - NULL); - } - else if(cmd->ac_ArgList[1]) - { - browser_window_create(BW_CREATE_HISTORY, - url, - NULL, - NULL, - NULL); - } - else - { - if(gw) - { - browser_window_navigate(gw->bw, - url, - NULL, - BW_NAVIGATE_HISTORY, - NULL, - NULL, - NULL); - } - else - { - browser_window_create(BW_CREATE_HISTORY, - url, - NULL, - NULL, - NULL); - } - } - nsurl_unref(url); -} - -STATIC VOID rx_save(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - BPTR fh = 0; - ULONG source_size; - const char *source_data; - struct gui_window *gw = cur_gw; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[1]) && (cmd->ac_ArgList[2])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[1], *(ULONG *)cmd->ac_ArgList[2]); - - if(!gw) return; - - ami_set_pointer(gw->shared, GUI_POINTER_WAIT, false); - - if((fh = FOpen((char *)cmd->ac_ArgList[0], MODE_NEWFILE, 0))) - { - hlcache_handle *h = browser_window_get_content(gw->bw); - if((source_data = content_get_source_data(h, &source_size))) - FWrite(fh, source_data, 1, source_size); - - FClose(fh); - SetComment((char *)cmd->ac_ArgList[0], nsurl_access(browser_window_get_url(gw->bw))); - } - - ami_reset_pointer(gw->shared); -} - -STATIC VOID rx_quit(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - cmd->ac_RC = 0; - ami_quit_netsurf(); -} - -STATIC VOID rx_tofront(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - cmd->ac_RC = 0; - ScreenToFront(scrn); -} - -STATIC VOID rx_geturl(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - struct gui_window *gw = cur_gw; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[0]) && (cmd->ac_ArgList[1])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[0], *(ULONG *)cmd->ac_ArgList[1]); - - if(gw && gw->bw) - { - strcpy(result, nsurl_access(browser_window_get_url(gw->bw))); - } - else - { - strcpy(result,""); - } - - cmd->ac_Result = result; -} - -STATIC VOID rx_gettitle(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - struct gui_window *gw = cur_gw; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[0]) && (cmd->ac_ArgList[1])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[0], *(ULONG *)cmd->ac_ArgList[1]); - - if(gw) - { - if(gw->shared->tabs > 1) - strcpy(result, gw->tabtitle); - else - strcpy(result, gw->shared->wintitle); - } - else - { - strcpy(result,""); - } - - cmd->ac_Result = result; -} - -STATIC VOID rx_version(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - cmd->ac_RC = 0; - - if(cmd->ac_ArgList[2]) - { - if(cmd->ac_ArgList[1]) - { - if((netsurf_version_major > *(int *)cmd->ac_ArgList[0]) || ((netsurf_version_minor >= *(int *)cmd->ac_ArgList[1]) && (netsurf_version_major == *(int *)cmd->ac_ArgList[0]))) - { - strcpy(result,"1"); - } - else - { - strcpy(result,"0"); - } - } - else if(cmd->ac_ArgList[0]) - { - if((netsurf_version_major >= *(int *)cmd->ac_ArgList[0])) - { - strcpy(result,"1"); - } - else - { - strcpy(result,"0"); - } - } - else - { - strcpy(result,netsurf_version); - } - } - else - { - if(cmd->ac_ArgList[1]) - { - if((netsurf_version_major > *(int *)cmd->ac_ArgList[0]) || ((atoi(wt_revid) >= *(int *)cmd->ac_ArgList[1]) && (netsurf_version_major == *(int *)cmd->ac_ArgList[0]))) - { - strcpy(result,"1"); - } - else - { - strcpy(result,"0"); - } - } - else if(cmd->ac_ArgList[0]) - { - if((netsurf_version_major >= *(int *)cmd->ac_ArgList[0])) - { - strcpy(result,"1"); - } - else - { - strcpy(result,"0"); - } - } - else - { - strcpy(result,verarexx); - } - } - - cmd->ac_Result = result; -} - -STATIC VOID rx_pubscreen(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - cmd->ac_RC = 0; - - if(nsoption_charp(pubscreen_name) == NULL) - { - strcpy(result,"NetSurf"); - } - else - { - strcpy(result, nsoption_charp(pubscreen_name)); - } - - cmd->ac_Result = result; -} - -STATIC VOID rx_back(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - struct gui_window *gw = cur_gw; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[0]) && (cmd->ac_ArgList[1])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[0], *(ULONG *)cmd->ac_ArgList[1]); - - if(gw) ami_gui_history(gw->shared, true); -} - -STATIC VOID rx_forward(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - struct gui_window *gw = cur_gw; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[0]) && (cmd->ac_ArgList[1])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[0], *(ULONG *)cmd->ac_ArgList[1]); - - if(gw) ami_gui_history(gw->shared, false); - -} - -STATIC VOID rx_home(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - struct gui_window *gw = cur_gw; - nsurl *url; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[0]) && (cmd->ac_ArgList[1])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[0], *(ULONG *)cmd->ac_ArgList[1]); - - if(gw == NULL) return; - - if (nsurl_create(nsoption_charp(homepage_url), &url) != NSERROR_OK) { - amiga_warn_user("NoMemory", 0); - } else { - browser_window_navigate(gw->bw, - url, - NULL, - BW_NAVIGATE_HISTORY, - NULL, - NULL, - NULL); - nsurl_unref(url); - } -} - -STATIC VOID rx_reload(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - struct gui_window *gw = cur_gw; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[1]) && (cmd->ac_ArgList[2])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[1], *(ULONG *)cmd->ac_ArgList[2]); - - if(gw) - { - if(cmd->ac_ArgList[0]) /* FORCE */ - { - browser_window_reload(gw->bw, true); - } - else - { - browser_window_reload(gw->bw, false); - } - } -} - -STATIC VOID rx_windows(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - int windows = 0, tabs = 0; - int window = 0; - - if(cmd->ac_ArgList[0]) window = *(ULONG *)cmd->ac_ArgList[0]; - cmd->ac_RC = 0; - - windows = ami_gui_count_windows(window, &tabs); - - if(cmd->ac_ArgList[0]) sprintf(result, "%d", tabs); - else sprintf(result, "%d", windows); - cmd->ac_Result = result; -} - -STATIC VOID rx_active(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - int window = 0, tab = 0; - struct gui_window *gw = cur_gw; - struct nsObject *node, *nnode; - struct gui_window_2 *gwin = NULL; - - cmd->ac_RC = 0; - - if(!IsMinListEmpty(window_list)) - { - int windows = 0; - - node = (struct nsObject *)GetHead((struct List *)window_list); - - do - { - nnode=(struct nsObject *)GetSucc((struct Node *)node); - - gwin = node->objstruct; - - if(node->Type == AMINS_WINDOW) - { - windows++; - if(gwin->gw == gw) - { - window = windows; - break; - } - } - } while((node = nnode)); - } - - if(cmd->ac_ArgList[0]) - { - tab = ami_find_tab_bw(gwin, gw->bw); - } - - if(cmd->ac_ArgList[0]) sprintf(result, "%d", tab); - else sprintf(result, "%d", window); - cmd->ac_Result = result; -} - -STATIC VOID rx_close(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - struct gui_window *gw = cur_gw; - - cmd->ac_RC = 0; - - if((cmd->ac_ArgList[0]) && (cmd->ac_ArgList[1])) - gw = ami_find_tab(*(ULONG *)cmd->ac_ArgList[0], *(ULONG *)cmd->ac_ArgList[1]); - else if(cmd->ac_ArgList[0]) - { - ami_gui_close_window(gw->shared); - return; - } - - if(gw) browser_window_destroy(gw->bw); -} - -STATIC VOID rx_hotlist(struct ARexxCmd *cmd, struct RexxMsg *rxm __attribute__((unused))) -{ - cmd->ac_RC = 0; - - if(strcasecmp((char *)cmd->ac_ArgList[0], "OPEN") == 0) { - ami_tree_open(hotlist_window, AMI_TREE_HOTLIST); - } else if(strcasecmp((char *)cmd->ac_ArgList[0], "CLOSE") == 0) { - ami_tree_close(hotlist_window); - } -} - |