Author Topic: RaspberryBASIC.org Forum (Read 99933 times)

John · « **Reply #210 on:** December 23, 2019, 07:02:04 AM »

AIR,

I think the way to go with the SBT extension module I'm converting to a generic embeddable ScriptBasic interface is pass and return pData structures. This is all well and fine for C as the host but Nim is my target. Do you think Nim can handle working with this structure?

AIR · « **Reply #211 on:** December 23, 2019, 01:01:45 PM »

Quote from: John on December 22, 2019, 06:47:42 PM

The Nim IUP extension seems to only cover the IUP part of the library set and CD / IM are missing. At lease I have a model to work with to add the others.

NIUP includes the procs for IUP, CD and IM, don't use the plain IUP nimble package if you need CD and IM...

nimble install niup, then import niup

https://github.com/dariolah/niup

AIR.

John · « **Reply #212 on:** December 23, 2019, 01:14:48 PM »

I couldn't get it to work but I'll give niup another try now that the iup version works.

John · « **Reply #213 on:** December 24, 2019, 12:12:54 AM »

This is the problem I ran into last time with niup.

Code: Text

import niup
import niupext
 
proc btn_exit_cb(ih:PIhandle):cint {.cdecl.}=
  # Exits the main loop
  return IUP_CLOSE
 
proc mainProc =
  var dlg, button, label, vbox: PIhandle
 
  Open()
 
  label =  Label("Hello world from IUP.")
  button = Button("OK", nil)
 
  vbox = Vbox(label, button, nil)
  withPIhandle vbox:
    "ALIGNMENT" "ACENTER"
    "GAP"       "10"
    "MARGIN"    "10x10"
 
  dlg = Dialog(vbox)
  SetAttribute(dlg, "TITLE", "Hello World with callback")
 
  # Registers callbacks
  SetCallback(button, "ACTION", btn_exit_cb)
 
  ShowXY(dlg, IUP_CENTER, IUP_CENTER)
 
  MainLoop()
 
  Close()
 
if isMainModule:
  mainProc()
 

ubuntu@rpi4b:~/repo/Nim/examples/niup-dev$ nim c -d:release hello_iup.nim Hint: used config file '/home/ubuntu/repo/Nim/config/nim.cfg' [Conf] Hint: used config file '/home/ubuntu/repo/Nim/config/config.nims' [Conf] Hint: system [Processing] Hint: widestrs [Processing] Hint: io [Processing] Hint: hello_iup [Processing] Hint: niup [Processing] fatal.nim(39) sysFatal Error: unhandled exception: 'ident' is not accessible using discriminant 'kind' of type 'TNode' [FieldError] ubuntu@rpi4b:~/repo/Nim/examples/niup-dev$

AIR · « **Reply #214 on:** December 24, 2019, 08:07:15 AM »

Best guess is the use of 'Close()' in the code.

What happens if you change it to 'niup.Close()' ?

AIR.

John · « **Reply #215 on:** December 24, 2019, 10:47:59 AM »

The example I used was from the niup site. One would think it should work.

Check out RB as I posted a more direct approach which sort of like DECLARE in ScriptBasic.

My Nim in Action book arrived today.

John · « **Reply #216 on:** December 24, 2019, 02:13:30 PM »

There is something going wrong in the initialization of niup.

Code: Text

import niup
 
echo "Got Here!"

ubuntu@rpi4b:~/repo/Nim/examples$ nim c -d:release testniup.nim Hint: used config file '/home/ubuntu/repo/Nim/config/nim.cfg' [Conf] Hint: used config file '/home/ubuntu/repo/Nim/config/config.nims' [Conf] Hint: system [Processing] Hint: widestrs [Processing] Hint: io [Processing] Hint: testniup [Processing] Hint: niup [Processing] fatal.nim(39) sysFatal Error: unhandled exception: 'ident' is not accessible using discriminant 'kind' of type 'TNode' [FieldError] ubuntu@rpi4b:~/repo/Nim/examples$

John · « **Reply #217 on:** December 24, 2019, 02:48:29 PM »

I was able to include most of the IUP section of the niup interface file and got it to work. Who knows when this interface was done and is it compatible with the current release of IUP?

iup.nim (my test include)

Code: Text

#Lib IUP
 
const
  IUP_NAME* = "IUP - Portable User Interface"
  IUP_DESCRIPTION* = "Multi-platform Toolkit for Building Graphical User Interfaces"
  IUP_COPYRIGHT* = "Copyright (C) 1994-2019 Tecgraf/PUC-Rio"
 
  libiupSONAME = "libiup.so"
  libiupcdSONAME = "libiupcd.so"
  libcdSONAME = "libcd.so"
  libiupcontrolsSONAME = "libiupcontrols.so"
  libiupglcontrolsSONAME = "libiupglcontrols.so"
  libiupglSONAME = "libiupgl.so"
  libiupimglibSONAME = "libiupimglib.so"
  libiupimSONAME = "libiupim.so"
  libiup_mglplotSONAME = "libiup_mglplot.so"
  libiup_plotSONAME = "libiup_plot.so"
  libiup_scintillaSONAME = "libiup_scintilla.so"
  libiuptuioSONAME = "libiuptuio.so"
  libiupwebSONAME = "libiupweb.so"
 
 
  IUP_ERROR* = 1
  IUP_NOERROR* = 0
  IUP_OPENED* = -1
  IUP_INVALID* = -1
  IUP_INVALID_ID* = -10
  IUP_IGNORE* = -1
  IUP_DEFAULT* = -2
  IUP_CLOSE* = -3
  IUP_CONTINUE* = -4
  IUP_CENTER* = cint(0x0000FFFF)
  IUP_LEFT* = cint(0x0000FFFE)
  IUP_RIGHT* = cint(0x0000FFFD)
  IUP_MOUSEPOS* = cint(0x0000FFFC)
  IUP_CURRENT* = cint(0x0000FFFB)
  IUP_CENTERPARENT* = cint(0x0000FFFA)
  IUP_TOP* = IUP_LEFT
  IUP_BOTTOM* = IUP_RIGHT
 
 
type
  Ihandle = object
  PIhandle* = ptr Ihandle
 
  uptr_t = clong
  sptr_t = clong
  Icallback* = proc (a1: PIhandle): cint {.cdecl.}
 
proc Open*(argc: var cint; argv: ptr cstringArray): cint {.cdecl, importc: "IupOpen", dynlib: libiupSONAME, discardable.}
proc Close*() {.cdecl, importc: "IupClose", dynlib: libiupSONAME.}
proc IsOpened*(): cint {.cdecl, importc: "IupIsOpened", dynlib: libiupSONAME, discardable.}
proc ImageLibOpen*() {.cdecl, importc: "IupImageLibOpen", dynlib: libiupimglibSONAME.}
proc MainLoop*(): cint {.cdecl, importc: "IupMainLoop", dynlib: libiupSONAME, discardable.}
proc LoopStep*(): cint {.cdecl, importc: "IupLoopStep", dynlib: libiupSONAME, discardable.}
proc LoopStepWait*(): cint {.cdecl, importc: "IupLoopStepWait", dynlib: libiupSONAME, discardable.}
proc MainLoopLevel*(): cint {.cdecl, importc: "IupMainLoopLevel", dynlib: libiupSONAME, discardable.}
proc Flush*() {.cdecl, importc: "IupFlush", dynlib: libiupSONAME.}
proc ExitLoop*() {.cdecl, importc: "IupExitLoop", dynlib: libiupSONAME.}
proc PostMessage*(ih: PIhandle; s: cstring; i: cint; d: cdouble; p: pointer) {.cdecl, importc: "IupPostMessage", dynlib: libiupSONAME.}
proc RecordInput*(filename: cstring; mode: cint): cint {.cdecl, importc: "IupRecordInput", dynlib: libiupSONAME, discardable.}
proc PlayInput*(filename: cstring): cint {.cdecl, importc: "IupPlayInput", dynlib: libiupSONAME, discardable.}
proc Update*(ih: PIhandle) {.cdecl, importc: "IupUpdate", dynlib: libiupSONAME.}
proc UpdateChildren*(ih: PIhandle) {.cdecl, importc: "IupUpdateChildren", dynlib: libiupSONAME.}
proc Redraw*(ih: PIhandle; children: cint) {.cdecl, importc: "IupRedraw", dynlib: libiupSONAME.}
proc Refresh*(ih: PIhandle) {.cdecl, importc: "IupRefresh", dynlib: libiupSONAME.}
proc RefreshChildren*(ih: PIhandle) {.cdecl, importc: "IupRefreshChildren", dynlib: libiupSONAME.}
proc Execute*(filename: cstring; parameters: cstring): cint {.cdecl, importc: "IupExecute", dynlib: libiupSONAME, discardable.}
proc ExecuteWait*(filename: cstring; parameters: cstring): cint {.cdecl, importc: "IupExecuteWait", dynlib: libiupSONAME, discardable.}
proc Help*(url: cstring): cint {.cdecl, importc: "IupHelp", dynlib: libiupSONAME, discardable.}
proc Log*(`type`: cstring; format: cstring) {.varargs, cdecl, importc: "IupLog", dynlib: libiupSONAME.}
proc Load*(filename: cstring): cstring {.cdecl, importc: "IupLoad", dynlib: libiupSONAME.}
proc LoadBuffer*(buffer: cstring): cstring {.cdecl, importc: "IupLoadBuffer", dynlib: libiupSONAME.}
proc Version*(): cstring {.cdecl, importc: "IupVersion", dynlib: libiupSONAME.}
proc VersionDate*(): cstring {.cdecl, importc: "IupVersionDate", dynlib: libiupSONAME.}
proc VersionNumber*(): cint {.cdecl, importc: "IupVersionNumber", dynlib: libiupSONAME, discardable.}
proc VersionShow*() {.cdecl, importc: "IupVersionShow", dynlib: libiupSONAME.}
proc SetLanguage*(lng: cstring) {.cdecl, importc: "IupSetLanguage", dynlib: libiupSONAME.}
proc GetLanguage*(): cstring {.cdecl, importc: "IupGetLanguage", dynlib: libiupSONAME.}
proc SetLanguageString*(name: cstring; str: cstring) {.cdecl, importc: "IupSetLanguageString", dynlib: libiupSONAME.}
proc StoreLanguageString*(name: cstring; str: cstring) {.cdecl, importc: "IupStoreLanguageString", dynlib: libiupSONAME.}
proc GetLanguageString*(name: cstring): cstring {.cdecl, importc: "IupGetLanguageString", dynlib: libiupSONAME.}
proc SetLanguagePack*(ih: PIhandle) {.cdecl, importc: "IupSetLanguagePack", dynlib: libiupSONAME.}
proc Destroy*(ih: PIhandle) {.cdecl, importc: "IupDestroy", dynlib: libiupSONAME.}
proc Detach*(child: PIhandle) {.cdecl, importc: "IupDetach", dynlib: libiupSONAME.}
proc Append*(ih: PIhandle; child: PIhandle): PIhandle {.cdecl, importc: "IupAppend", dynlib: libiupSONAME.}
proc Insert*(ih: PIhandle; ref_child: PIhandle; child: PIhandle): PIhandle {. cdecl, importc: "IupInsert", dynlib: libiupSONAME.}
proc GetChild*(ih: PIhandle; pos: cint): PIhandle {.cdecl, importc: "IupGetChild", dynlib: libiupSONAME.}
proc GetChildPos*(ih: PIhandle; child: PIhandle): cint {.cdecl, importc: "IupGetChildPos", dynlib: libiupSONAME, discardable.}
proc GetChildCount*(ih: PIhandle): cint {.cdecl, importc: "IupGetChildCount", dynlib: libiupSONAME, discardable.}
proc GetNextChild*(ih: PIhandle; child: PIhandle): PIhandle {.cdecl, importc: "IupGetNextChild", dynlib: libiupSONAME.}
proc GetBrother*(ih: PIhandle): PIhandle {.cdecl, importc: "IupGetBrother", dynlib: libiupSONAME.}
proc GetParent*(ih: PIhandle): PIhandle {.cdecl, importc: "IupGetParent", dynlib: libiupSONAME.}
proc GetDialog*(ih: PIhandle): PIhandle {.cdecl, importc: "IupGetDialog", dynlib: libiupSONAME.}
proc GetDialogChild*(ih: PIhandle; name: cstring): PIhandle {.cdecl, importc: "IupGetDialogChild", dynlib: libiupSONAME.}
proc Reparent*(ih: PIhandle; new_parent: PIhandle; ref_child: PIhandle): cint {. cdecl, importc: "IupReparent", dynlib: libiupSONAME, discardable.}
proc Popup*(ih: PIhandle; x: cint; y: cint): cint {.cdecl, importc: "IupPopup", dynlib: libiupSONAME, discardable.}
proc Show*(ih: PIhandle): cint {.cdecl, importc: "IupShow", dynlib: libiupSONAME, discardable.}
proc ShowXY*(ih: PIhandle; x: cint; y: cint): cint {.cdecl, importc: "IupShowXY", dynlib: libiupSONAME, discardable.}
proc Hide*(ih: PIhandle): cint {.cdecl, importc: "IupHide", dynlib: libiupSONAME, discardable.}
proc Map*(ih: PIhandle): cint {.cdecl, importc: "IupMap", dynlib: libiupSONAME, discardable.}
proc Unmap*(ih: PIhandle) {.cdecl, importc: "IupUnmap", dynlib: libiupSONAME.}
proc ResetAttribute*(ih: PIhandle; name: cstring) {.cdecl, importc: "IupResetAttribute", dynlib: libiupSONAME.}
proc GetAllAttributes*(ih: PIhandle; names: cstringArray; n: cint): cint {.cdecl, importc: "IupGetAllAttributes", dynlib: libiupSONAME, discardable.}
proc CopyAttributes*(src_ih: PIhandle; dst_ih: PIhandle) {.cdecl, importc: "IupCopyAttributes", dynlib: libiupSONAME.}
proc SetAtt*(handle_name: cstring; ih: PIhandle; name: cstring): PIhandle {.varargs, cdecl, importc: "IupSetAtt", dynlib: libiupSONAME.}
proc SetAttributes*(ih: PIhandle; str: cstring): PIhandle {.cdecl, importc: "IupSetAttributes", dynlib: libiupSONAME, discardable.}
proc GetAttributes*(ih: PIhandle): cstring {.cdecl, importc: "IupGetAttributes", dynlib: libiupSONAME.}
proc SetAttribute*(ih: PIhandle; name: cstring; value: cstring) {.cdecl, importc: "IupSetAttribute", dynlib: libiupSONAME.}
proc SetStrAttribute*(ih: PIhandle; name: cstring; value: cstring) {.cdecl, importc: "IupSetStrAttribute", dynlib: libiupSONAME.}
proc SetStrf*(ih: PIhandle; name: cstring; format: cstring) {.varargs, cdecl, importc: "IupSetStrf", dynlib: libiupSONAME.}
proc SetInt*(ih: PIhandle; name: cstring; value: cint) {.cdecl, importc: "IupSetInt", dynlib: libiupSONAME.}
proc SetFloat*(ih: PIhandle; name: cstring; value: cfloat) {.cdecl, importc: "IupSetFloat", dynlib: libiupSONAME.}
proc SetDouble*(ih: PIhandle; name: cstring; value: cdouble) {.cdecl, importc: "IupSetDouble", dynlib: libiupSONAME.}
proc SetRGB*(ih: PIhandle; name: cstring; r: cuchar; g: cuchar; b: cuchar) {.cdecl, importc: "IupSetRGB", dynlib: libiupSONAME.}
proc GetAttribute*(ih: PIhandle; name: cstring): cstring {.cdecl, importc: "IupGetAttribute", dynlib: libiupSONAME.}
proc GetInt*(ih: PIhandle; name: cstring): cint {.cdecl, importc: "IupGetInt", dynlib: libiupSONAME, discardable.}
proc GetInt2*(ih: PIhandle; name: cstring): cint {.cdecl, importc: "IupGetInt2", dynlib: libiupSONAME, discardable.}
proc GetIntInt*(ih: PIhandle; name: cstring; i1: var cint; i2: var cint): cint {.cdecl, importc: "IupGetIntInt", dynlib: libiupSONAME, discardable.}
proc GetFloat*(ih: PIhandle; name: cstring): cfloat {.cdecl, importc: "IupGetFloat", dynlib: libiupSONAME.}
proc GetDouble*(ih: PIhandle; name: cstring): cdouble {.cdecl, importc: "IupGetDouble", dynlib: libiupSONAME.}
proc GetRGB*(ih: PIhandle; name: cstring; r: ptr cuchar; g: ptr cuchar; b: ptr cuchar) {. cdecl, importc: "IupGetRGB", dynlib: libiupSONAME.}
proc SetAttributeId*(ih: PIhandle; name: cstring; id: cint; value: cstring) {.cdecl, importc: "IupSetAttributeId", dynlib: libiupSONAME.}
proc SetStrAttributeId*(ih: PIhandle; name: cstring; id: cint; value: cstring) {.cdecl, importc: "IupSetStrAttributeId", dynlib: libiupSONAME.}
proc SetStrfId*(ih: PIhandle; name: cstring; id: cint; format: cstring) {.varargs, cdecl, importc: "IupSetStrfId", dynlib: libiupSONAME.}
proc SetIntId*(ih: PIhandle; name: cstring; id: cint; value: cint) {.cdecl, importc: "IupSetIntId", dynlib: libiupSONAME.}
proc SetFloatId*(ih: PIhandle; name: cstring; id: cint; value: cfloat) {.cdecl, importc: "IupSetFloatId", dynlib: libiupSONAME.}
proc SetDoubleId*(ih: PIhandle; name: cstring; id: cint; value: cdouble) {.cdecl, importc: "IupSetDoubleId", dynlib: libiupSONAME.}
proc SetRGBId*(ih: PIhandle; name: cstring; id: cint; r: cuchar; g: cuchar; b: cuchar) {. cdecl, importc: "IupSetRGBId", dynlib: libiupSONAME.}
proc GetAttributeId*(ih: PIhandle; name: cstring; id: cint): cstring {.cdecl, importc: "IupGetAttributeId", dynlib: libiupSONAME.}
proc GetIntId*(ih: PIhandle; name: cstring; id: cint): cint {.cdecl, importc: "IupGetIntId", dynlib: libiupSONAME, discardable.}
proc GetFloatId*(ih: PIhandle; name: cstring; id: cint): cfloat {.cdecl, importc: "IupGetFloatId", dynlib: libiupSONAME.}
proc GetDoubleId*(ih: PIhandle; name: cstring; id: cint): cdouble {.cdecl, importc: "IupGetDoubleId", dynlib: libiupSONAME.}
proc GetRGBId*(ih: PIhandle; name: cstring; id: cint; r: ptr cuchar; g: ptr cuchar; b: ptr cuchar) {.cdecl, importc: "IupGetRGBId", dynlib: libiupSONAME.}
proc SetAttributeId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; value: cstring) {. cdecl, importc: "IupSetAttributeId2", dynlib: libiupSONAME.}
proc SetStrAttributeId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; value: cstring) {.cdecl, importc: "IupSetStrAttributeId2", dynlib: libiupSONAME.}
proc SetStrfId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; format: cstring) {. varargs, cdecl, importc: "IupSetStrfId2", dynlib: libiupSONAME.}
proc SetIntId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; value: cint) {.cdecl, importc: "IupSetIntId2", dynlib: libiupSONAME.}
proc SetFloatId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; value: cfloat) {. cdecl, importc: "IupSetFloatId2", dynlib: libiupSONAME.}
proc SetDoubleId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; value: cdouble) {. cdecl, importc: "IupSetDoubleId2", dynlib: libiupSONAME.}
proc SetRGBId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; r: cuchar; g: cuchar; b: cuchar) {.cdecl, importc: "IupSetRGBId2", dynlib: libiupSONAME.}
proc GetAttributeId2*(ih: PIhandle; name: cstring; lin: cint; col: cint): cstring {. cdecl, importc: "IupGetAttributeId2", dynlib: libiupSONAME.}
proc GetIntId2*(ih: PIhandle; name: cstring; lin: cint; col: cint): cint {.cdecl, importc: "IupGetIntId2", dynlib: libiupSONAME, discardable.}
proc GetFloatId2*(ih: PIhandle; name: cstring; lin: cint; col: cint): cfloat {.cdecl, importc: "IupGetFloatId2", dynlib: libiupSONAME.}
proc GetDoubleId2*(ih: PIhandle; name: cstring; lin: cint; col: cint): cdouble {.cdecl, importc: "IupGetDoubleId2", dynlib: libiupSONAME.}
proc GetRGBId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; r: ptr cuchar; g: ptr cuchar; b: ptr cuchar) {.cdecl, importc: "IupGetRGBId2", dynlib: libiupSONAME.}
proc SetGlobal*(name: cstring; value: cstring) {.cdecl, importc: "IupSetGlobal", dynlib: libiupSONAME.}
proc SetStrGlobal*(name: cstring; value: cstring) {.cdecl, importc: "IupSetStrGlobal", dynlib: libiupSONAME.}
proc GetGlobal*(name: cstring): cstring {.cdecl, importc: "IupGetGlobal", dynlib: libiupSONAME.}
proc SetFocus*(ih: PIhandle): PIhandle {.cdecl, importc: "IupSetFocus", dynlib: libiupSONAME, discardable.}
proc GetFocus*(): PIhandle {.cdecl, importc: "IupGetFocus", dynlib: libiupSONAME.}
proc PreviousField*(ih: PIhandle): PIhandle {.cdecl, importc: "IupPreviousField", dynlib: libiupSONAME.}
proc NextField*(ih: PIhandle): PIhandle {.cdecl, importc: "IupNextField", dynlib: libiupSONAME.}
proc GetCallback*(ih: PIhandle; name: cstring): Icallback {.cdecl, importc: "IupGetCallback", dynlib: libiupSONAME.}
proc SetCallback*(ih: PIhandle; name: cstring; `func`: Icallback): Icallback {.cdecl, importc: "IupSetCallback", dynlib: libiupSONAME, discardable.}
proc SetCallbacks*(ih: PIhandle; name: cstring; `func`: Icallback): PIhandle {. varargs, cdecl, importc: "IupSetCallbacks", dynlib: libiupSONAME, discardable.}
proc GetFunction*(name: cstring): Icallback {.cdecl, importc: "IupGetFunction", dynlib: libiupSONAME.}
proc SetFunction*(name: cstring; `func`: Icallback): Icallback {.cdecl, importc: "IupSetFunction", dynlib: libiupSONAME.}
proc GetHandle*(name: cstring): PIhandle {.cdecl, importc: "IupGetHandle", dynlib: libiupSONAME.}
proc SetHandle*(name: cstring; ih: PIhandle): PIhandle {.cdecl, importc: "IupSetHandle", dynlib: libiupSONAME, discardable.}
proc GetAllNames*(names: cstringArray; n: cint): cint {.cdecl, importc: "IupGetAllNames", dynlib: libiupSONAME, discardable.}
proc GetAllDialogs*(names: cstringArray; n: cint): cint {.cdecl, importc: "IupGetAllDialogs", dynlib: libiupSONAME, discardable.}
proc GetName*(ih: PIhandle): cstring {.cdecl, importc: "IupGetName", dynlib: libiupSONAME.}
proc SetAttributeHandle*(ih: PIhandle; name: cstring; ih_named: PIhandle) {.cdecl, importc: "IupSetAttributeHandle", dynlib: libiupSONAME.}
proc GetAttributeHandle*(ih: PIhandle; name: cstring): PIhandle {.cdecl, importc: "IupGetAttributeHandle", dynlib: libiupSONAME.}
proc SetAttributeHandleId*(ih: PIhandle; name: cstring; id: cint; ih_named: PIhandle) {.cdecl, importc: "IupSetAttributeHandleId", dynlib: libiupSONAME.}
proc GetAttributeHandleId*(ih: PIhandle; name: cstring; id: cint): PIhandle {.cdecl, importc: "IupGetAttributeHandleId", dynlib: libiupSONAME.}
proc SetAttributeHandleId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; ih_named: PIhandle) {.cdecl, importc: "IupSetAttributeHandleId2", dynlib: libiupSONAME.}
proc GetAttributeHandleId2*(ih: PIhandle; name: cstring; lin: cint; col: cint): PIhandle {. cdecl, importc: "IupGetAttributeHandleId2", dynlib: libiupSONAME.}
proc GetClassName*(ih: PIhandle): cstring {.cdecl, importc: "IupGetClassName", dynlib: libiupSONAME.}
proc GetClassType*(ih: PIhandle): cstring {.cdecl, importc: "IupGetClassType", dynlib: libiupSONAME.}
proc GetAllClasses*(names: cstringArray; n: cint): cint {.cdecl, importc: "IupGetAllClasses", dynlib: libiupSONAME, discardable.}
proc GetClassAttributes*(classname: cstring; names: cstringArray; n: cint): cint {. cdecl, importc: "IupGetClassAttributes", dynlib: libiupSONAME, discardable.}
proc GetClassCallbacks*(classname: cstring; names: cstringArray; n: cint): cint {.cdecl, importc: "IupGetClassCallbacks", dynlib: libiupSONAME, discardable.}
proc SaveClassAttributes*(ih: PIhandle) {.cdecl, importc: "IupSaveClassAttributes", dynlib: libiupSONAME.}
proc CopyClassAttributes*(src_ih: PIhandle; dst_ih: PIhandle) {.cdecl, importc: "IupCopyClassAttributes", dynlib: libiupSONAME.}
proc SetClassDefaultAttribute*(classname: cstring; name: cstring; value: cstring) {. cdecl, importc: "IupSetClassDefaultAttribute", dynlib: libiupSONAME.}
proc ClassMatch*(ih: PIhandle; classname: cstring): cint {.cdecl, importc: "IupClassMatch", dynlib: libiupSONAME, discardable.}
proc Create*(classname: cstring): PIhandle {.cdecl, importc: "IupCreate", dynlib: libiupSONAME.}
proc Createv*(classname: cstring; params: ptr pointer): PIhandle {.cdecl, importc: "IupCreatev", dynlib: libiupSONAME.}
proc Createp*(classname: cstring; first: pointer): PIhandle {.varargs, cdecl, importc: "IupCreatep", dynlib: libiupSONAME.}
proc Fill*(): PIhandle {.cdecl, importc: "IupFill", dynlib: libiupSONAME.}
proc Space*(): PIhandle {.cdecl, importc: "IupSpace", dynlib: libiupSONAME.}
proc Radio*(child: PIhandle): PIhandle {.cdecl, importc: "IupRadio", dynlib: libiupSONAME.}
proc Vbox*(child: PIhandle): PIhandle {.varargs, cdecl, importc: "IupVbox", dynlib: libiupSONAME.}
proc Vboxv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupVboxv", dynlib: libiupSONAME.}
proc Zbox*(child: PIhandle): PIhandle {.varargs, cdecl, importc: "IupZbox", dynlib: libiupSONAME.}
proc Zboxv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupZboxv", dynlib: libiupSONAME.}
proc Hbox*(child: PIhandle): PIhandle {.varargs, cdecl, importc: "IupHbox", dynlib: libiupSONAME.}
proc Hboxv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupHboxv", dynlib: libiupSONAME.}
proc Normalizer*(ih_first: PIhandle): PIhandle {.varargs, cdecl, importc: "IupNormalizer", dynlib: libiupSONAME.}
proc Normalizerv*(ih_list: ptr PIhandle): PIhandle {.cdecl, importc: "IupNormalizerv", dynlib: libiupSONAME.}
proc Cbox*(child: PIhandle): PIhandle {.varargs, cdecl, importc: "IupCbox", dynlib: libiupSONAME.}
proc Cboxv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupCboxv", dynlib: libiupSONAME.}
proc Sbox*(child: PIhandle): PIhandle {.cdecl, importc: "IupSbox", dynlib: libiupSONAME.}
proc Split*(child1: PIhandle; child2: PIhandle): PIhandle {.cdecl, importc: "IupSplit", dynlib: libiupSONAME.}
proc ScrollBox*(child: PIhandle): PIhandle {.cdecl, importc: "IupScrollBox", dynlib: libiupSONAME.}
proc FlatScrollBox*(child: PIhandle): PIhandle {.cdecl, importc: "IupFlatScrollBox", dynlib: libiupSONAME.}
proc GridBox*(child: PIhandle): PIhandle {.varargs, cdecl, importc: "IupGridBox", dynlib: libiupSONAME.}
proc GridBoxv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupGridBoxv", dynlib: libiupSONAME.}
proc MultiBox*(child: PIhandle): PIhandle {.varargs, cdecl, importc: "IupMultiBox", dynlib: libiupSONAME.}
proc MultiBoxv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupMultiBoxv", dynlib: libiupSONAME.}
proc Expander*(child: PIhandle): PIhandle {.cdecl, importc: "IupExpander", dynlib: libiupSONAME.}
proc DetachBox*(child: PIhandle): PIhandle {.cdecl, importc: "IupDetachBox", dynlib: libiupSONAME.}
proc BackgroundBox*(child: PIhandle): PIhandle {.cdecl, importc: "IupBackgroundBox", dynlib: libiupSONAME.}
proc Frame*(child: PIhandle): PIhandle {.cdecl, importc: "IupFrame", dynlib: libiupSONAME.}
proc FlatFrame*(child: PIhandle): PIhandle {.cdecl, importc: "IupFlatFrame", dynlib: libiupSONAME.}
proc Image*(width: cint; height: cint; pixels: ptr cuchar): PIhandle {.cdecl, importc: "IupImage", dynlib: libiupSONAME.}
proc ImageRGB*(width: cint; height: cint; pixels: ptr cuchar): PIhandle {.cdecl, importc: "IupImageRGB", dynlib: libiupSONAME.}
proc ImageRGBA*(width: cint; height: cint; pixels: ptr cuchar): PIhandle {.cdecl, importc: "IupImageRGBA", dynlib: libiupSONAME.}
proc Item*(title: cstring; action: cstring): PIhandle {.cdecl, importc: "IupItem", dynlib: libiupSONAME.}
proc Submenu*(title: cstring; child: PIhandle): PIhandle {.cdecl, importc: "IupSubmenu", dynlib: libiupSONAME.}
proc Separator*(): PIhandle {.cdecl, importc: "IupSeparator", dynlib: libiupSONAME.}
proc Menu*(child: PIhandle): PIhandle {.varargs, cdecl, importc: "IupMenu", dynlib: libiupSONAME.}
proc Menuv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupMenuv", dynlib: libiupSONAME.}
proc Button*(title: cstring; action: cstring): PIhandle {.cdecl, importc: "IupButton", dynlib: libiupSONAME.}
proc FlatButton*(title: cstring): PIhandle {.cdecl, importc: "IupFlatButton", dynlib: libiupSONAME.}
proc FlatToggle*(title: cstring): PIhandle {.cdecl, importc: "IupFlatToggle", dynlib: libiupSONAME.}
proc DropButton*(dropchild: PIhandle): PIhandle {.cdecl, importc: "IupDropButton", dynlib: libiupSONAME.}
proc FlatLabel*(title: cstring): PIhandle {.cdecl, importc: "IupFlatLabel", dynlib: libiupSONAME.}
proc FlatSeparator*(): PIhandle {.cdecl, importc: "IupFlatSeparator", dynlib: libiupSONAME.}
proc Canvas*(action: cstring): PIhandle {.cdecl, importc: "IupCanvas", dynlib: libiupSONAME.}
proc Dialog*(child: PIhandle): PIhandle {.cdecl, importc: "IupDialog", dynlib: libiupSONAME.}
proc User*(): PIhandle {.cdecl, importc: "IupUser", dynlib: libiupSONAME.}
proc Thread*(): PIhandle {.cdecl, importc: "IupThread", dynlib: libiupSONAME.}
proc Label*(title: cstring): PIhandle {.cdecl, importc: "IupLabel", dynlib: libiupSONAME.}
proc List*(action: cstring): PIhandle {.cdecl, importc: "IupList", dynlib: libiupSONAME.}
proc FlatList*(): PIhandle {.cdecl, importc: "IupFlatList", dynlib: libiupSONAME.}
proc Text*(action: cstring): PIhandle {.cdecl, importc: "IupText", dynlib: libiupSONAME.}
proc MultiLine*(action: cstring): PIhandle {.cdecl, importc: "IupMultiLine", dynlib: libiupSONAME.}
proc Toggle*(title: cstring; action: cstring): PIhandle {.cdecl, importc: "IupToggle", dynlib: libiupSONAME.}
proc Timer*(): PIhandle {.cdecl, importc: "IupTimer", dynlib: libiupSONAME.}
proc Clipboard*(): PIhandle {.cdecl, importc: "IupClipboard", dynlib: libiupSONAME.}
proc ProgressBar*(): PIhandle {.cdecl, importc: "IupProgressBar", dynlib: libiupSONAME.}
proc Val*(`type`: cstring): PIhandle {.cdecl, importc: "IupVal", dynlib: libiupSONAME.}
proc FlatVal*(`type`: cstring): PIhandle {.cdecl, importc: "IupFlatVal", dynlib: libiupSONAME.}
proc Tabs*(child: PIhandle): PIhandle {.varargs, cdecl, importc: "IupTabs", dynlib: libiupSONAME.}
proc Tabsv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupTabsv", dynlib: libiupSONAME.}
proc FlatTabs*(first: PIhandle): PIhandle {.varargs, cdecl, importc: "IupFlatTabs", dynlib: libiupSONAME.}
proc FlatTabsv*(children: ptr PIhandle): PIhandle {.cdecl, importc: "IupFlatTabsv", dynlib: libiupSONAME.}
proc Tree*(): PIhandle {.cdecl, importc: "IupTree", dynlib: libiupSONAME.}
proc Link*(url: cstring; title: cstring): PIhandle {.cdecl, importc: "IupLink", dynlib: libiupSONAME.}
proc AnimatedLabel*(animation: PIhandle): PIhandle {.cdecl, importc: "IupAnimatedLabel", dynlib: libiupSONAME.}
proc DatePick*(): PIhandle {.cdecl, importc: "IupDatePick", dynlib: libiupSONAME.}
proc Calendar*(): PIhandle {.cdecl, importc: "IupCalendar", dynlib: libiupSONAME.}
proc Colorbar*(): PIhandle {.cdecl, importc: "IupColorbar", dynlib: libiupSONAME.}
proc Gauge*(): PIhandle {.cdecl, importc: "IupGauge", dynlib: libiupSONAME.}
proc Dial*(`type`: cstring): PIhandle {.cdecl, importc: "IupDial", dynlib: libiupSONAME.}
proc ColorBrowser*(): PIhandle {.cdecl, importc: "IupColorBrowser", dynlib: libiupSONAME.}
proc Spin*(): PIhandle {.cdecl, importc: "IupSpin", dynlib: libiupSONAME.}
proc Spinbox*(child: PIhandle): PIhandle {.cdecl, importc: "IupSpinbox", dynlib: libiupSONAME.}
proc StringCompare*(str1: cstring; str2: cstring; casesensitive: cint; lexicographic: cint): cint {.cdecl, importc: "IupStringCompare", dynlib: libiupSONAME, discardable.}
proc SaveImageAsText*(ih: PIhandle; filename: cstring; format: cstring; name: cstring): cint {. cdecl, importc: "IupSaveImageAsText", dynlib: libiupimSONAME, discardable.}
proc ImageGetHandle*(name: cstring): PIhandle {.cdecl, importc: "IupImageGetHandle", dynlib: libiupSONAME.}
proc TextConvertLinColToPos*(ih: PIhandle; lin: cint; col: cint; pos: var cint) {.cdecl, importc: "IupTextConvertLinColToPos", dynlib: libiupSONAME.}
proc TextConvertPosToLinCol*(ih: PIhandle; pos: cint; lin: var cint; col: var cint) {. cdecl, importc: "IupTextConvertPosToLinCol", dynlib: libiupSONAME.}
proc ConvertXYToPos*(ih: PIhandle; x: cint; y: cint): cint {.cdecl, importc: "IupConvertXYToPos", dynlib: libiupSONAME, discardable.}
proc StoreGlobal*(name: cstring; value: cstring) {.cdecl, importc: "IupStoreGlobal", dynlib: libiupSONAME.}
proc StoreAttribute*(ih: PIhandle; name: cstring; value: cstring) {.cdecl, importc: "IupStoreAttribute", dynlib: libiupSONAME.}
proc SetfAttribute*(ih: PIhandle; name: cstring; format: cstring) {.varargs, cdecl, importc: "IupSetfAttribute", dynlib: libiupSONAME.}
proc StoreAttributeId*(ih: PIhandle; name: cstring; id: cint; value: cstring) {.cdecl, importc: "IupStoreAttributeId", dynlib: libiupSONAME.}
proc SetfAttributeId*(ih: PIhandle; name: cstring; id: cint; f: cstring) {.varargs, cdecl, importc: "IupSetfAttributeId", dynlib: libiupSONAME.}
proc StoreAttributeId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; value: cstring) {.cdecl, importc: "IupStoreAttributeId2", dynlib: libiupSONAME.}
proc SetfAttributeId2*(ih: PIhandle; name: cstring; lin: cint; col: cint; format: cstring) {.varargs, cdecl, importc: "IupSetfAttributeId2", dynlib: libiupSONAME.}
proc TreeSetUserId*(ih: PIhandle; id: cint; userid: pointer): cint {.cdecl, importc: "IupTreeSetUserId", dynlib: libiupSONAME, discardable.}
proc TreeGetUserId*(ih: PIhandle; id: cint): pointer {.cdecl, importc: "IupTreeGetUserId", dynlib: libiupSONAME.}
proc TreeGetId*(ih: PIhandle; userid: pointer): cint {.cdecl, importc: "IupTreeGetId", dynlib: libiupSONAME, discardable.}
proc TreeSetAttributeHandle*(ih: PIhandle; name: cstring; id: cint; ih_named: PIhandle) {.cdecl, importc: "IupTreeSetAttributeHandle", dynlib: libiupSONAME.}
proc FileDlg*(): PIhandle {.cdecl, importc: "IupFileDlg", dynlib: libiupSONAME.}
proc MessageDlg*(): PIhandle {.cdecl, importc: "IupMessageDlg", dynlib: libiupSONAME.}
proc ColorDlg*(): PIhandle {.cdecl, importc: "IupColorDlg", dynlib: libiupSONAME.}
proc FontDlg*(): PIhandle {.cdecl, importc: "IupFontDlg", dynlib: libiupSONAME.}
proc ProgressDlg*(): PIhandle {.cdecl, importc: "IupProgressDlg", dynlib: libiupSONAME.}
proc GetFile*(arq: cstring): cint {.cdecl, importc: "IupGetFile", dynlib: libiupSONAME, discardable.}
proc Message*(title: cstring; msg: cstring) {.cdecl, importc: "IupMessage", dynlib: libiupSONAME.}
proc Messagef*(title: cstring; format: cstring) {.varargs, cdecl, importc: "IupMessagef", dynlib: libiupSONAME.}
proc MessageError*(parent: PIhandle; message: cstring) {.cdecl, importc: "IupMessageError", dynlib: libiupSONAME.}
proc MessageAlarm*(parent: PIhandle; title: cstring; message: cstring; buttons: cstring): cint {.cdecl, importc: "IupMessageAlarm", dynlib: libiupSONAME, discardable.}
proc Alarm*(title: cstring; msg: cstring; b1: cstring; b2: cstring; b3: cstring): cint {. cdecl, importc: "IupAlarm", dynlib: libiupSONAME, discardable.}
proc Scanf*(format: cstring): cint {.varargs, cdecl, importc: "IupScanf", dynlib: libiupSONAME, discardable.}
proc ListDialog*(`type`: cint; title: cstring; size: cint; list: cstringArray; op: cint; max_col: cint; max_lin: cint; marks: var cint): cint {.cdecl, importc: "IupListDialog", dynlib: libiupSONAME, discardable.}
proc GetText*(title: cstring; text: cstring; maxsize: cint): cint {.cdecl, importc: "IupGetText", dynlib: libiupSONAME, discardable.}
proc GetColor*(x: cint; y: cint; r: ptr cuchar; g: ptr cuchar; b: ptr cuchar): cint {.cdecl, importc: "IupGetColor", dynlib: libiupSONAME, discardable.}
type
  Iparamcb* = proc (dialog: PIhandle; param_index: cint; user_data: pointer): cint {.
      cdecl.}
 
proc GetParam*(title: cstring; action: Iparamcb; user_data: pointer; format: cstring): cint {. varargs, cdecl, importc: "IupGetParam", dynlib: libiupSONAME, discardable.}
proc GetParamv*(title: cstring; action: Iparamcb; user_data: pointer; format: cstring; param_count: cint; param_extra: cint; param_data: ptr pointer): cint {. cdecl, importc: "IupGetParamv", dynlib: libiupSONAME, discardable.}
proc Param*(format: cstring): PIhandle {.cdecl, importc: "IupParam", dynlib: libiupSONAME.}
proc ParamBox*(param: PIhandle): PIhandle {.varargs, cdecl, importc: "IupParamBox", dynlib: libiupSONAME.}
proc ParamBoxv*(param_array: ptr PIhandle): PIhandle {.cdecl, importc: "IupParamBoxv", dynlib: libiupSONAME.}
proc LayoutDialog*(dialog: PIhandle): PIhandle {.cdecl, importc: "IupLayoutDialog", dynlib: libiupSONAME.}
proc ElementPropertiesDialog*(parent: PIhandle; elem: PIhandle): PIhandle {. cdecl, importc: "IupElementPropertiesDialog", dynlib: libiupSONAME.}
proc GlobalsDialog*(): PIhandle {.cdecl, importc: "IupGlobalsDialog", dynlib: libiupSONAME.}
proc ClassInfoDialog*(parent: PIhandle): PIhandle {.cdecl, importc: "IupClassInfoDialog", dynlib: libiupSONAME.}
 

tinc.nim IUP test script

Code: Text

include iup
 
proc btn_exit_cb(ih:PIhandle):cint {.cdecl.}=
  return IUP_CLOSE
 
var dlg, button, label, vbox: PIhandle
var argc:cint
var argv:ptr cstringArray
 
Open(argc, argv)
 
label =  Label("Hello world from IUP.")
button = Button("OK", nil)
 
vbox = Vbox(label, button, nil)
SetAttribute(vbox, "ALIGNMENT", "ACENTER")
SetAttribute(vbox, "GAP", "10")
SetAttribute(vbox, "MARGIN", "10x10")
 
dlg = Dialog(vbox)
SetAttribute(dlg, "TITLE", "Ubuntu RPi")
 
SetCallback(button, "ACTION", btn_exit_cb)
 
ShowXY(dlg, IUP_CENTER, IUP_CENTER)
 
MainLoop()
 
Close()
 

ubuntu@rpi4b:~/repo/Nim/examples$ nim c -d:release tinc.nim Hint: used config file '/home/ubuntu/repo/Nim/config/nim.cfg' [Conf] Hint: used config file '/home/ubuntu/repo/Nim/config/config.nims' [Conf] Hint: system [Processing] Hint: widestrs [Processing] Hint: io [Processing] Hint: tinc [Processing] /home/ubuntu/repo/Nim/examples/iup.nim(13, 3) Hint: 'libiupglSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(20, 3) Hint: 'libiupwebSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(19, 3) Hint: 'libiuptuioSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(16, 3) Hint: 'libiup_mglplotSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(17, 3) Hint: 'libiup_plotSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(11, 3) Hint: 'libiupcontrolsSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(12, 3) Hint: 'libiupglcontrolsSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(18, 3) Hint: 'libiup_scintillaSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(10, 3) Hint: 'libcdSONAME' is declared but not used [XDeclaredButNotUsed] /home/ubuntu/repo/Nim/examples/iup.nim(9, 3) Hint: 'libiupcdSONAME' is declared but not used [XDeclaredButNotUsed] CC: stdlib_system.nim CC: tinc.nim Hint: [Link] Hint: operation successful (22171 lines compiled; 6.781 sec total; 19.84MiB peakmem; Release Build) [SuccessX] ubuntu@rpi4b:~/repo/Nim/examples$

John · « **Reply #218 on:** December 24, 2019, 03:27:53 PM »

I think I'm going to build an IUP app that allows you to select what resouces you need for you script and generates a custom include.

John · « **Reply #219 on:** December 24, 2019, 06:28:07 PM »

AIR,

Does Nim provide any debugging tools? Finding this niup bug by adding code until it breaks seem brute force.

John · « **Reply #220 on:** December 24, 2019, 08:52:41 PM »

I found the problem with the niup library. I don't know how to fix it but at least everything else works (compiles) I reworked the niup.nim file as part of my debugging effort.

To me this looks like an attempt at a shortcut to dropping the Iup prefix but doesn't look well thought out. Maybe the 1.1.1 version I'm running says no way.

Code that causes the error

Code: Text

const
#  isshift* = iup_isshift
#  iscontrol* = iup_iscontrol
#  isbutton1* = iup_isbutton1
#  isbutton2* = iup_isbutton2
#  isbutton3* = iup_isbutton3
#  isdouble* = iup_isdouble
#  isalt* = iup_isalt
#  issys* = iup_issys
#  isbutton4* = iup_isbutton4
#  isbutton5* = iup_isbutton5
 

Attached is my iup.nim (niup rework)

John · « **Reply #221 on:** December 25, 2019, 05:46:54 AM »

AIR,

The first time you built the shared objects for IUP there were multiple .so files. The latest tecmake.mak only builds one .so file. The static library is the same.

I think CD and IM are okay.

AIR · « **Reply #222 on:** December 25, 2019, 11:16:29 AM »

It builds fine for me. All static and dynamic libraries. With the tecmake.mak I posted.

John · « **Reply #223 on:** December 25, 2019, 11:25:07 AM »

Here are my lib build directories.

ubuntu@rpi4b:~/iup-dev/iup/lib/Linux53_arm64$ ls -l total 3800 -rw-r--r-- 1 ubuntu ubuntu 2627956 Dec 21 22:31 libiup.a -rwxr-xr-x 1 ubuntu ubuntu 1258520 Dec 21 22:31 libiup.so ubuntu@rpi4b:~/iup-dev/iup/lib/Linux53_arm64$ ubuntu@rpi4b:~/iup-dev/cd/lib/Linux53_arm64$ ls -l total 5648 drwxr-xr-x 2 ubuntu ubuntu 4096 Dec 21 22:24 Lua53 -rw-r--r-- 1 ubuntu ubuntu 1284338 Dec 21 22:22 libcd.a -rwxr-xr-x 1 ubuntu ubuntu 892504 Dec 21 22:22 libcd.so -rw-r--r-- 1 ubuntu ubuntu 1562 Dec 21 22:23 libcdcontextplus.a -rwxr-xr-x 1 ubuntu ubuntu 7984 Dec 21 22:23 libcdcontextplus.so -rw-r--r-- 1 ubuntu ubuntu 40324 Dec 21 22:23 libcdgl.a -rwxr-xr-x 1 ubuntu ubuntu 40176 Dec 21 22:23 libcdgl.so -rw-r--r-- 1 ubuntu ubuntu 7084 Dec 21 22:23 libcdim.a -rwxr-xr-x 1 ubuntu ubuntu 14360 Dec 21 22:23 libcdim.so -rw-r--r-- 1 ubuntu ubuntu 50350 Dec 21 22:23 libcdpdf.a -rwxr-xr-x 1 ubuntu ubuntu 44088 Dec 21 22:23 libcdpdf.so -rw-r--r-- 1 ubuntu ubuntu 1923682 Dec 21 22:23 libpdflib.a -rwxr-xr-x 1 ubuntu ubuntu 1455088 Dec 21 22:23 libpdflib.so ubuntu@rpi4b:~/iup-dev/cd/lib/Linux53_arm64$ ubuntu@rpi4b:~/iup-dev/im/lib/Linux53_arm64$ ls -l total 9184 drwxr-xr-x 2 ubuntu ubuntu 4096 Dec 21 22:43 Lua53 -rw-r--r-- 1 ubuntu ubuntu 2228190 Dec 21 22:38 libim.a -rwxr-xr-x 1 ubuntu ubuntu 1473784 Dec 21 22:38 libim.so -rw-r--r-- 1 ubuntu ubuntu 317320 Dec 21 22:43 libim_fftw.a -rwxr-xr-x 1 ubuntu ubuntu 205872 Dec 21 22:43 libim_fftw.so -rw-r--r-- 1 ubuntu ubuntu 437912 Dec 21 22:39 libim_jp2.a -rwxr-xr-x 1 ubuntu ubuntu 322440 Dec 21 22:39 libim_jp2.so -rw-r--r-- 1 ubuntu ubuntu 12380 Dec 21 22:43 libim_lzo.a -rwxr-xr-x 1 ubuntu ubuntu 17816 Dec 21 22:43 libim_lzo.so -rw-r--r-- 1 ubuntu ubuntu 810614 Dec 21 22:40 libim_process.a -rwxr-xr-x 1 ubuntu ubuntu 619472 Dec 21 22:40 libim_process.so -rw-r--r-- 1 ubuntu ubuntu 1741958 Dec 21 22:42 libim_process_omp.a -rwxr-xr-x 1 ubuntu ubuntu 1190616 Dec 21 22:42 libim_process_omp.so ubuntu@rpi4b:~/iup-dev/im/lib/Linux53_arm64$

Remarking out the code I mentioned above makes the niup extension work as a module.

Code: Text

import niup
import niupext
 
proc btn_exit_cb(ih:PIhandle):cint {.cdecl.}=
  # Exits the main loop
  return IUP_CLOSE
 
proc mainProc =
  var dlg, button, label, vbox: PIhandle
 
  Open()
 
  label =  Label("Hello world from IUP.")
  button = Button("OK", nil)
 
  vbox = Vbox(label, button, nil)
  SetAttribute(vbox, "ALIGNMENT", "ACENTER")
  SetAttribute(vbox, "GAP", "10")
  SetAttribute(vbox, "MARGIN", "10x10")
 
  dlg = Dialog(vbox)
  SetAttribute(dlg, "TITLE", "Ubuntu 64")
 
  # Registers callbacks
  SetCallback(button, "ACTION", btn_exit_cb)
 
  ShowXY(dlg, IUP_CENTER, IUP_CENTER)
 
  MainLoop()
 
  Close()
 
if isMainModule:
  mainProc()
 

Merry Christmas AIR!

AIR · « **Reply #224 on:** December 25, 2019, 12:23:33 PM »

riveraa@ubuntu:~/iup-dev/build$ for x in cd im iup;do printf "\n\n$x\n";ll $x/lib/Linux53_arm64;done cd total 5.6M drwxrwxr-x 2 riveraa riveraa 4.0K Dec 25 13:45 Lua53 -rw-rw-r-- 1 riveraa riveraa 1.3M Dec 25 13:43 libcd.a -rwxrwxr-x 1 riveraa riveraa 872K Dec 25 13:43 libcd.so -rw-rw-r-- 1 riveraa riveraa 1.6K Dec 25 13:44 libcdcontextplus.a -rwxrwxr-x 1 riveraa riveraa 7.8K Dec 25 13:44 libcdcontextplus.so -rw-rw-r-- 1 riveraa riveraa 40K Dec 25 13:44 libcdgl.a -rwxrwxr-x 1 riveraa riveraa 40K Dec 25 13:44 libcdgl.so -rw-rw-r-- 1 riveraa riveraa 7.0K Dec 25 13:44 libcdim.a -rwxrwxr-x 1 riveraa riveraa 15K Dec 25 13:44 libcdim.so -rw-rw-r-- 1 riveraa riveraa 50K Dec 25 13:44 libcdpdf.a -rwxrwxr-x 1 riveraa riveraa 44K Dec 25 13:44 libcdpdf.so -rw-rw-r-- 1 riveraa riveraa 1.9M Dec 25 13:44 libpdflib.a -rwxrwxr-x 1 riveraa riveraa 1.4M Dec 25 13:44 libpdflib.so im total 9.0M drwxrwxr-x 2 riveraa riveraa 4.0K Dec 25 13:04 Lua53 -rw-rw-r-- 1 riveraa riveraa 2.2M Dec 25 13:00 libim.a -rwxrwxr-x 1 riveraa riveraa 1.5M Dec 25 13:00 libim.so -rw-rw-r-- 1 riveraa riveraa 310K Dec 25 13:04 libim_fftw.a -rwxrwxr-x 1 riveraa riveraa 202K Dec 25 13:04 libim_fftw.so -rw-rw-r-- 1 riveraa riveraa 428K Dec 25 13:00 libim_jp2.a -rwxrwxr-x 1 riveraa riveraa 315K Dec 25 13:00 libim_jp2.so -rw-rw-r-- 1 riveraa riveraa 13K Dec 25 13:04 libim_lzo.a -rwxrwxr-x 1 riveraa riveraa 18K Dec 25 13:04 libim_lzo.so -rw-rw-r-- 1 riveraa riveraa 792K Dec 25 13:01 libim_process.a -rwxrwxr-x 1 riveraa riveraa 605K Dec 25 13:01 libim_process.so -rw-rw-r-- 1 riveraa riveraa 1.7M Dec 25 13:03 libim_process_omp.a -rwxrwxr-x 1 riveraa riveraa 1.2M Dec 25 13:03 libim_process_omp.so iup total 22M drwxrwxr-x 2 riveraa riveraa 4.0K Dec 25 14:04 Lua53 -rw-rw-r-- 1 riveraa riveraa 2.6M Dec 25 13:47 libiup.a -rwxrwxr-x 1 riveraa riveraa 1.3M Dec 25 13:47 libiup.so -rw-rw-r-- 1 riveraa riveraa 4.6M Dec 25 13:52 libiup_mglplot.a -rwxrwxr-x 1 riveraa riveraa 2.9M Dec 25 13:52 libiup_mglplot.so -rw-rw-r-- 1 riveraa riveraa 480K Dec 25 13:48 libiup_plot.a -rwxrwxr-x 1 riveraa riveraa 293K Dec 25 13:48 libiup_plot.so -rw-rw-r-- 1 riveraa riveraa 4.4M Dec 25 13:58 libiup_scintilla.a -rwxrwxr-x 1 riveraa riveraa 2.9M Dec 25 13:58 libiup_scintilla.so -rw-rw-r-- 1 riveraa riveraa 29K Dec 25 13:47 libiupcd.a -rwxrwxr-x 1 riveraa riveraa 30K Dec 25 13:47 libiupcd.so -rw-rw-r-- 1 riveraa riveraa 614K Dec 25 13:47 libiupcontrols.a -rwxrwxr-x 1 riveraa riveraa 331K Dec 25 13:47 libiupcontrols.so -rw-rw-r-- 1 riveraa riveraa 22K Dec 25 13:47 libiupgl.a -rwxrwxr-x 1 riveraa riveraa 24K Dec 25 13:47 libiupgl.so -rw-rw-r-- 1 riveraa riveraa 247K Dec 25 13:47 libiupglcontrols.a -rwxrwxr-x 1 riveraa riveraa 130K Dec 25 13:48 libiupglcontrols.so -rw-rw-r-- 1 riveraa riveraa 17K Dec 25 13:58 libiupim.a -rwxrwxr-x 1 riveraa riveraa 24K Dec 25 13:58 libiupim.so -rw-rw-r-- 1 riveraa riveraa 286K Dec 25 13:58 libiupimglib.a -rwxrwxr-x 1 riveraa riveraa 266K Dec 25 13:58 libiupimglib.so -rw-rw-r-- 1 riveraa riveraa 309K Dec 25 13:59 libiuptuio.a -rwxrwxr-x 1 riveraa riveraa 173K Dec 25 13:59 libiuptuio.so -rw-rw-r-- 1 riveraa riveraa 20K Dec 25 13:58 libiupweb.a -rwxrwxr-x 1 riveraa riveraa 26K Dec 25 13:58 libiupweb.so riveraa@ubuntu:~/iup-dev/build$

Either you've made changes to the .mak file that broke stuff, or your build environment is not complete as far as the required development libraries go.

AIR.

AllBASIC Forum / ScriptBasic Blog

News:

Author Topic: RaspberryBASIC.org Forum (Read 99933 times)

John

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum

John

Re: RaspberryBASIC.org Forum

AIR

Re: RaspberryBASIC.org Forum