From 773013b8e45a6916a74ea64152e51fb6cb951920 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 14 Nov 1999 23:09:15 +0000 Subject: no_comment --- perl-install/Newt/Newt.xs | 546 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 546 insertions(+) create mode 100644 perl-install/Newt/Newt.xs (limited to 'perl-install/Newt/Newt.xs') diff --git a/perl-install/Newt/Newt.xs b/perl-install/Newt/Newt.xs new file mode 100644 index 000000000..e60583de1 --- /dev/null +++ b/perl-install/Newt/Newt.xs @@ -0,0 +1,546 @@ +#include "EXTERN.h" +#include "perl.h" +#include "XSUB.h" +#include + +static void suspend() { + newtSuspend(); + raise(SIGTSTP); + newtResume(); +} + +typedef newtComponent Newt__Component; +typedef newtGrid Newt__Grid; + + +MODULE = Newt PACKAGE = Newt PREFIX = newt + +void +DESTROY() + CODE: + { + newtFinished(); + } + +void +changeColors() + CODE: +{ +const struct newtColors colors = { + "cyan", "black", /* root fg, bg */ + "black", "blue", /* border fg, bg */ + "white", "blue", /* window fg, bg */ + "white", "black", /* shadow fg, bg */ + "white", "blue", /* title fg, bg */ + "yellow", "cyan", /* button fg, bg */ + "white", "cyan", /* active button fg, bg */ + "yellow", "blue", /* checkbox fg, bg */ + "blue", "brown", /* active checkbox fg, bg */ + "yellow", "blue", /* entry box fg, bg */ + "white", "blue", /* label fg, bg */ + "black", "cyan", /* listbox fg, bg */ + "yellow", "cyan", /* active listbox fg, bg */ + "white", "blue", /* textbox fg, bg */ + "cyan", "black", /* active textbox fg, bg */ + "white", "blue", /* help line */ + "yellow", "blue", /* root text */ + "blue", /* scale full */ + "red", /* scale empty */ + "blue", "cyan", /* disabled entry fg, bg */ + "white", "blue", /* compact button fg, bg */ + "yellow", "red", /* active & sel listbox */ + "black", "brown" /* selected listbox */ +}; + newtSetColors(colors); +} + +int +newtInit() + +int +newtFinished() + +void +newtCls() + +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; + +void +newtWinMenu(title,text,suggestedWidth,flexDown,flexUp,maxListHeight,list,def,buttons, ...) + char * title; + char * text; + int suggestedWidth; + int flexDown; + int flexUp; + int maxListHeight; + char **list; + int def; + char *buttons; + PPCODE: + { + int button; +#define nb 8 +#define a(i) SvPV(ST(i + nb),PL_na) + button = newtWinMenu(title, text, suggestedWidth, flexDown, flexUp, maxListHeight, list, &def, + items > nb + 0 ? a( 0) : NULL, + items > nb + 1 ? a( 1) : NULL, + items > nb + 2 ? a( 2) : NULL, + items > nb + 3 ? a( 3) : NULL, + items > nb + 4 ? a( 4) : NULL, + items > nb + 5 ? a( 5) : NULL, + items > nb + 6 ? a( 6) : NULL, + items > nb + 7 ? a( 7) : NULL, + items > nb + 8 ? a( 8) : NULL, + items > nb + 9 ? a( 9) : NULL, + items > nb + 10 ? a(10) : NULL, + NULL); +#undef a + EXTEND(SP, 2); + PUSHs(sv_2mortal(newSViv(button))); + PUSHs(sv_2mortal(newSViv(def))); + } + +MODULE = Newt PACKAGE = Newt::Component PREFIX = newt + +Newt::Component +newtCompactButton(left,top,text) + int left; + int top; + const char * text; + +Newt::Component +newtButton(left,top,text) + int left; + int top; + const char * text; + +Newt::Component +newtCheckbox(left,top,text,defValue,seq,result) + int left; + int top; + const char * text; + char *defValue; + const char * seq; + int *result; + CODE: + RETVAL = newtCheckbox(left, top, text, defValue[0], seq, (char*)result); + 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(left,top,text) + int left; + int top; + const char * text; + +void +newtLabelSetText(co,text) + Newt::Component co; + const char * text; + +Newt::Component +newtVerticalScrollbar(left,top,height,normalColorset,thumbColorset) + int left; + int top; + int height; + int normalColorset; + int thumbColorset; + +void +newtScrollbarSet(co,where,total) + Newt::Component co; + int where; + int total; + +Newt::Component +newtListbox(left,top,height,flags) + int left; + int top; + int height; + int flags; + +void * +newtListboxGetCurrent(co) + Newt::Component co; + +void +newtListboxSetCurrent(co,num) + Newt::Component co; + int num; + +void +newtListboxSetCurrentByKey(co,key) + Newt::Component co; + void * key; + +void +newtListboxSetText(co,num,text) + Newt::Component co; + int num; + const char * text; + +void +newtListboxSetEntry(co,num,text) + Newt::Component co; + int num; + const char * text; + +void +newtListboxSetWidth(co,width) + Newt::Component co; + int width; + +# return the data passed to AddEntry +void +newtListboxSetData(co,num,data) + Newt::Component co; + int num; + void * data; + +int +newtListboxAddEntry(co,text,data) + Newt::Component co; + const char * text; + const void * data; + +# Send the key to insert after, or NULL to insert at the top +int +newtListboxInsertEntry(co,text,data,key) + Newt::Component co; + const char * text; + const void * data; + void * key; + +int +newtListboxDeleteEntry(co,data) + Newt::Component co; + void * data; + +# removes all entries from listbox +void +newtListboxClear(co) + Newt::Component co; + +void +newtListboxGetEntry(co,num,text,data) + Newt::Component co; + int num; + char * text; + void * data; + PPCODE: + { + newtListboxGetEntry(co, num, &text, data); + } + +# Returns an array of data pointers from items, last element is NULL +void * +newtListboxGetSelection(co,numitems) + Newt::Component co; + int *numitems; + +void +newtListboxClearSelection(co) + Newt::Component co; + +void +newtListboxSelectItem(co,key,sense) + Newt::Component co; + void *key + enum newtFlagsSense sense; + +Newt::Component +newtTextboxReflowed(left,top,text,width,flexDown,flexUp,flags) + int left; + int top; + char * text; + int width; + int flexDown; + int flexUp; + int flags; + +Newt::Component +newtTextbox(left,top,width,height,flags) + int left; + int top; + int width; + int height; + int flags; + +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; + const 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 +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(left,top,initialValue,width,flag) + int left; + int top; + const char * initialValue; + int width; + int flag; + CODE: + { + char *result; + RETVAL = newtEntry(left,top,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 +HCloseStacked(first, ...) + Newt::Component first; + CODE: + { + int i; +#define a(i) (newtComponent)SvIV((SV*)SvRV( ST(i) )) + RETVAL = + newtGridHCloseStacked( + items > 0 ? 1 : 0, items > 0 ? a( 0) : NULL, + items > 1 ? 1 : 0, items > 1 ? a( 1) : NULL, + items > 2 ? 1 : 0, items > 2 ? a( 2) : NULL, + items > 3 ? 1 : 0, items > 3 ? a( 3) : NULL, + items > 4 ? 1 : 0, items > 4 ? a( 4) : NULL, + items > 5 ? 1 : 0, items > 5 ? a( 5) : NULL, + items > 6 ? 1 : 0, items > 6 ? a( 6) : NULL, + items > 7 ? 1 : 0, items > 7 ? a( 7) : NULL, + items > 8 ? 1 : 0, items > 8 ? a( 8) : NULL, + items > 9 ? 1 : 0, items > 9 ? a( 9) : NULL, + items > 10 ? 1 : 0, items > 10 ? a(10) : NULL, + NULL); +#undef a + } +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 +newtGridGetSize(grid,width,height) + Newt::Grid grid; + int * width; + int * height; + +void +newtGridWrappedWindow(grid,title) + Newt::Grid grid; + char * title; + +void +newtGridAddComponentsToForm(grid,form,recurse) + Newt::Grid grid; + Newt::Component form; + int recurse; + +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])); + } -- cgit v1.2.1