diff options
Diffstat (limited to 'perl-install/Newt/Newt.xs')
-rw-r--r-- | perl-install/Newt/Newt.xs | 498 |
1 files changed, 0 insertions, 498 deletions
diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs deleted file mode 100644 index 7b2317cc7..000000000 --- a/perl-install/Newt/Newt.xs +++ /dev/null @@ -1,498 +0,0 @@ -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" -#include <newt.h> -#include <slang/slang.h> - -static void suspend() { - newtSuspend(); - raise(SIGTSTP); - newtResume(); -} - -static void componentCallback(newtComponent co, void *data) { - dSP; - PUSHMARK(SP); - perl_call_sv((SV *) data, G_DISCARD); -} - - -typedef newtComponent Newt__Component; -typedef newtGrid Newt__Grid; - - -MODULE = Newt PACKAGE = Newt PREFIX = newt - -PROTOTYPES: DISABLE - - -void -DESTROY() - CODE: - { - newtFinished(); - } - -int -newtInit(setlocale) - int setlocale - CODE: - SLsmg_Setlocale = setlocale; - newtInit(); - -int -newtFinished() - -void -newtCls() - -void -newtSuspend() - -void -newtResume() - -int -newtCenteredWindow(width,height,title) - int width; - int height; - const char * title; - -void -newtPopWindow() - -void -newtRefresh() - -void -newtPushHelpLine(text) - const char * text; - -void -newtDrawRootText(row,col,text) - int row; - int col; - const char * text; - -void -newtGetScreenSize() - PPCODE: -{ - int cols, rows; - newtGetScreenSize(&cols, &rows); - PUSHs(sv_2mortal(newSViv(cols))); - PUSHs(sv_2mortal(newSViv(rows))); -} - -void -newtSetSuspendCallback() - CODE: - { - newtSetSuspendCallback(suspend, NULL); - } - - -void -newtWinMessage(title,buttonText,text) - char * title; - char * buttonText; - char * text; - -int -newtWinChoice(title,button1,button2,text) - char * title; - char * button1; - char * button2; - char * text; - -int -newtWinTernary(title,button1,button2,button3,message) - char * title; - char * button1; - char * button2; - char * button3; - char * message; - -MODULE = Newt PACKAGE = Newt::Component PREFIX = newt - -void -addCallback(co, callback) - Newt::Component co; - SV *callback; - CODE: - newtComponentAddCallback(co, componentCallback, callback); - -Newt::Component -newtCompactButton(text) - const char * text; - CODE: - RETVAL = newtCompactButton(-1, -1, text); - OUTPUT: - RETVAL - -Newt::Component -newtButton(text) - const char * text; - CODE: - RETVAL = newtButton(-1, -1, text); - OUTPUT: - RETVAL - -Newt::Component -newtCheckbox(text,defValue,seq) - const char * text; - char *defValue; - const char * seq; - CODE: - RETVAL = newtCheckbox(-1, -1, text, defValue[0], seq, NULL); - OUTPUT: - RETVAL - -int -newtCheckboxGetValue(co) - Newt::Component co; - -void -newtCheckboxSetValue(co, value) - Newt::Component co; - char *value; - CODE: - newtCheckboxSetValue(co, value[0]); - -Newt::Component -newtLabel(text) - const char * text; -CODE: - RETVAL = newtLabel(-1, -1, text); -OUTPUT: - RETVAL - -void -newtLabelSetText(co,text) - Newt::Component co; - const char * text; - -Newt::Component -newtVerticalScrollbar(height,normalColorset,thumbColorset) - int height; - int normalColorset; - int thumbColorset; -CODE: - RETVAL = newtVerticalScrollbar(-1, -1, height,normalColorset,thumbColorset); -OUTPUT: - RETVAL - -void -newtScrollbarSet(co,where,total) - Newt::Component co; - int where; - int total; - -Newt::Component -newtListbox(height,flags) - int height; - int flags; -CODE: - RETVAL = newtListbox(-1, -1, height, flags); -OUTPUT: - RETVAL - -SV * -newtListboxGetCurrent(co) - Newt::Component co; -CODE: - RETVAL = SvREFCNT_inc(newtListboxGetCurrent(co)); -OUTPUT: - RETVAL - - -void -newtListboxSetCurrent(co,indice) - Newt::Component co; - int indice; - -void -newtListboxSetWidth(co,width) - Newt::Component co; - int width; - -int -newtListboxAddEntry(co,text,data) - Newt::Component co; - const char * text; - SV * data; -CODE: - RETVAL = newtListboxAddEntry(co, text, data); -OUTPUT: - RETVAL - - -Newt::Component -newtTree(height,want_scroll) - int height; - int want_scroll; - CODE: - RETVAL = newtCheckboxTree(-1,-1,height, (want_scroll ? NEWT_FLAG_SCROLL : 0) | NEWT_CHECKBOXTREE_HIDE_BOX); - OUTPUT: - RETVAL - -int -newtTreeAdd(co,text,data,parents) - Newt::Component co; - const char * text; - int data; - SV * parents; - CODE: - { - int l[10]; - int i; - AV *av = (AV*) SvRV(parents); - for (i = 0; i <= av_len(av); i++) l[i] = SvIV(*av_fetch(av, i, 0)); - l[i++] = NEWT_ARG_APPEND; - l[i] = NEWT_ARG_LAST; - RETVAL = newtCheckboxTreeAddArray(co, text, (void *) data, 0, l); - } - OUTPUT: - RETVAL - -void -newtTreeSetCurrent(co, data) - Newt::Component co; - int data; - CODE: - newtCheckboxTreeSetCurrent(co, (void *) data); - -void -newtTreeSetWidth(co,width) - Newt::Component co; - int width; - CODE: - newtCheckboxTreeSetWidth(co, width); - -int -newtTreeGetCurrent(co) - Newt::Component co; -CODE: - RETVAL = (int) newtCheckboxTreeGetCurrent(co); -OUTPUT: - RETVAL - - -Newt::Component -newtTextbox(left,top,width,height,want_scroll) - int left; - int top; - int width; - int height; - int want_scroll; - CODE: - RETVAL = newtTextbox(left,top,width,height, (want_scroll ? NEWT_FLAG_SCROLL : 0) | NEWT_FLAG_WRAP); - OUTPUT: - RETVAL - -void -newtTextboxSetText(co,text) - Newt::Component co; - const char * text; - -void -newtTextboxSetHeight(co,height) - Newt::Component co; - int height; - -int -newtTextboxGetNumLines(co) - Newt::Component co; - -char * -newtReflowText(text,width,flexDown,flexUp,actualWidth,actualHeight) - char * text; - int width; - int flexDown; - int flexUp; - int * actualWidth; - int * actualHeight; - -Newt::Component -newtForm(vertBar,help,flags) - Newt::Component vertBar; - char * help; - int flags; - -void -newtFormSetSize(co) - Newt::Component co; - -Newt::Component -newtFormGetCurrent(co) - Newt::Component co; - -void -newtFormSetBackground(co,color) - Newt::Component co; - int color; - -void -newtFormSetCurrent(co,subco) - Newt::Component co; - Newt::Component subco; - -void -newtFormAddComponent(form,co) - Newt::Component form; - Newt::Component co; - -void -newtFormAddGrid(form,grid,recurse) - Newt::Component form; - Newt::Grid grid; - int recurse; - CODE: - newtGridAddComponentsToForm(grid,form,recurse); - -void -newtFormSetHeight(co,height) - Newt::Component co; - int height; - -void -newtFormSetWidth(co,width) - Newt::Component co; - int width; - -Newt::Component -newtRunForm(form) - Newt::Component form; - -void -newtDrawForm(form) - Newt::Component form; - -Newt::Component -newtEntry(initialValue,width,flag) - const char * initialValue; - int width; - int flag; - CODE: - { - const char *result; - RETVAL = newtEntry(-1, -1, initialValue,width,&result,flag); - } - OUTPUT: - RETVAL - -void -newtEntrySet(co,value,cursorAtEnd) - Newt::Component co; - const char * value; - int cursorAtEnd; - -char * -newtEntryGetValue(co) - Newt::Component co; - -void -newtFormDestroy(form) - Newt::Component form; - -MODULE = Newt PACKAGE = Newt::Grid PREFIX = newt - -Newt::Grid -newtCreateGrid(cols,rows) - int cols; - int rows; - -Newt::Grid -HCloseStacked3(c1, c2, c3) - Newt::Component c1; - Newt::Component c2; - Newt::Component c3; - CODE: - { - RETVAL = newtGridHCloseStacked(NEWT_GRID_COMPONENT, c1, NEWT_GRID_COMPONENT, c2, NEWT_GRID_COMPONENT, c3); - } -OUTPUT: -RETVAL - - -Newt::Grid -newtGridBasicWindow(text,middle,buttons) - Newt::Component text; - Newt::Grid middle; - Newt::Grid buttons; - - -Newt::Grid -newtGridSimpleWindow(text,middle,buttons) - Newt::Component text; - Newt::Component middle; - Newt::Grid buttons; - -void -newtGridSetField(grid,col,row,type,val,padLeft,padTop,padRight,padBottom,anchor,flags) - Newt::Grid grid; - int col; - int row; - enum newtGridElement type; - void * val; - int padLeft; - int padTop; - int padRight; - int padBottom; - int anchor; - int flags; - - -void -newtGridFree(grid,recurse) - Newt::Grid grid; - int recurse; - -void -newtGridPlace(grid,left,top) - Newt::Grid grid; - int left; - int top; - -void -newtGridGetSize(grid) - Newt::Grid grid; - PPCODE: -{ - int width; - int height; - newtGridGetSize(grid, &width, &height); - PUSHs(sv_2mortal(newSViv(width))); - PUSHs(sv_2mortal(newSViv(height))); -} - -void -newtGridWrappedWindow(grid,title) - Newt::Grid grid; - char * title; - -Newt::Grid -newtButtonBar(button1, ...) - char * button1; - PPCODE: - { - static newtComponent p[11]; - int i; - EXTEND(SP, items + 1); -#define a(i) (char *)SvPV(ST(i),PL_na) - PUSHs(sv_setref_pv(sv_newmortal(), "Newt::Grid", - newtButtonBar(items > 0 ? a( 0) : NULL, items > 0 ? &p[ 0] : NULL, - items > 1 ? a( 1) : NULL, items > 1 ? &p[ 1] : NULL, - items > 2 ? a( 2) : NULL, items > 2 ? &p[ 2] : NULL, - items > 3 ? a( 3) : NULL, items > 3 ? &p[ 3] : NULL, - items > 4 ? a( 4) : NULL, items > 4 ? &p[ 4] : NULL, - items > 5 ? a( 5) : NULL, items > 5 ? &p[ 5] : NULL, - items > 6 ? a( 6) : NULL, items > 6 ? &p[ 6] : NULL, - items > 7 ? a( 7) : NULL, items > 7 ? &p[ 7] : NULL, - items > 8 ? a( 8) : NULL, items > 8 ? &p[ 8] : NULL, - items > 9 ? a( 9) : NULL, items > 9 ? &p[ 9] : NULL, - items > 10 ? a(10) : NULL, items > 10 ? &p[10] : NULL, - NULL))); -#undef a - for (i = 0; i < items; i++) PUSHs(sv_setref_pv(sv_newmortal(), "Newt::Component", p[i])); - } |