BASIC runtime error.
'1'

Type: com.sun.star.uno.RuntimeException
Message: unsatisfied query for interface of type com.sun.star.sheet.XSpreadsheetView!

REM  *****  BASIC  *****

Sub Main

End Sub

Option VBASupport 1
Option Explicit

Function SumEvery(startCell As Range, row As Boolean, gape As Integer) As Double
	On Error GoTo ErrorHandler
	
	Dim sht As Worksheet
	Set sht = ActiveSheet
	
	Dim lastCell As Range
	If row Then
		Set lastCell =  Cells(startCell.Row, sht.Columns.Count)
	Else
		Set lastCell = Cells(sht.Rows.Count, startCell.Column)
	End If
	
	Dim resRan As Range
	Set resRan = Range(startCell, lastCell)
	
	Dim res As Double
	res = 0.0

	Dim c As Integer
	For c = 1 to resRan.Cells.Count
		If (c - 1) Mod gape = 0 Then
			res = res + resRan.Cells(c).Value
		End If	
	Next
	
	SumEvery = res
	
	Exit Function
	
	ErrorHandler:
	Stop
End Function

Dim sht As Worksheet
Set sht = ActiveSheet

Dim sht As Object
Set sht = ThisComponent.getCurrentController().getActiveSheet()

BASIC runtime error.
'91'
Object variable not set.

(defun has-tag-p (tag record) ... )

(defmacro select (query records)
  (let ((rec (gensym "record")))
    (labels ((query-helper (q)
               (if (and (listp q)
                        (member (car q) '(and or not)))
                   `(,(car q) ,@(mapcar #'query-helper (cdr q)))
                   `(has-tag-p ,q ,rec))))
      `(remove-if-not (lambda (,rec) ,(query-helper query)) ,records))))

(define (has-tag? tag record) ... )

(define-macro (select query records)
  (define rec (gensym "record"))
  (define (query-helper q)
    (if (and (list? q)
             (memq (car q) '(and or not)))
        `(,(car q) ,@(map query-helper (cdr q)))
        `(has-tag? ,q ,rec)))
  `(filter (lambda (,rec) ,(query-helper query)) ,records))

<?xml version="1.0" encoding="utf-8"?>
<Macro xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
  <Name>Test</Name>
  <Guid>919191b2-fa7a-4b7c-b475-83febe612615</Guid>
  <MacroEvents>
    <MacroEvent>
      <Type>3</Type>
      <MouseMovement>
        <MouseMovementEvent>
          <Type>3</Type>
          <X>971</X>
          <Y>250</Y>
        </MouseMovementEvent>
        <MouseMovementEvent>
          <Type>3</Type>
          <X>966</X>
          <Y>260</Y>
        </MouseMovementEvent>
        <MouseMovementEvent>
          <Type>3</Type>
          <X>961</X>
          <Y>269</Y>
        </MouseMovementEvent>
        <MouseMovementEvent>
          <Type>3</Type>
          <X>956</X>
          <Y>275</Y>
        </MouseMovementEvent>
        <MouseMovementEvent>
          <Type>3</Type>
          <X>953</X>
          <Y>281</Y>
        </MouseMovementEvent>
        <MouseMovementEvent>
          <Type>3</Type>
          <X>949</X>
          <Y>288</Y>
        </MouseMovementEvent>
        <MouseMovementEvent>
          <Type>3</Type>
          <X>946</X>
          <Y>294</Y>
 </MouseMovementEvent>
      </MouseMovement>
    </MacroEvent>
  </MacroEvents>
</Macro>

bash -c 'sleep 0.5; xdotool getactivewindow type "

# ./autogen.sh
.
autoreconf: Entering directory `.'
autoreconf: configure.ac: not using Gettext
autoreconf: running: aclocal -I m4
configure.ac:55: error: must install xorg-server macros before running autoconf/autogen.
  Hint: either install from source, git://anongit.freedesktop.org/xorg/xserver or,
  depending on your distribution, try package 'xserver-xorg-dev' or 'xorg-x11-server-devel'
configure.ac:55: the top level
autom4te: /usr/bin/m4 failed with exit status: 1
aclocal: error: echo failed with exit status: 1
autoreconf: aclocal failed with exit status: 1


# apt-get install xutils-dev xutils x11-utils x11-xserver-utils

# ./autogen.sh
..не работает с той же ошибкой..


# apt-cache search x*macr | nc termbin.com 9999
http://termbin.com/bgxm

# apt-cache search x*util | nc termbin.com 9999
http://termbin.com/492k

#  apt-file search macros | grep xorg
xutils-dev: /usr/share/aclocal/xorg-macros.m4
xutils-dev: /usr/share/pkgconfig/xorg-macros.pc


# apt-cache policy xutils-dev
xutils-dev:
  Установлен: 1:7.7+3ubuntu2
  Кандидат:   1:7.7+3ubuntu2
  Таблица версий:
 *** 1:7.7+3ubuntu2 500
        500 https://archive.trisquel.info/trisquel flidas/main amd64 Packages
        100 /var/lib/dpkg/status


# echo $PKG_CONFIG_PATH

#

opt_m!({
  a <- f1();
  b <- f2();
  let c = a + b;
  mret(c);
})

{
  let mut res = None;
  loop {
    let a = match f1() {
      Some(x) => x,
      None => break
    }
    let b = match f2() {
      Some(x) => x,
      None => break
    }
    let c = a + b;
    res = Some(c);
    break;
  }
  res
}

Имя,Фамилия,"Отображаемое имя","Электронная почта",Телефон,Адрес,Должность,Отдел
"Иван Иванович",Иванов,"Иванов Иван Иванович",ivanov@ivan.iv,"223-322, 322-223","корпус 1, этаж 2, к. 3","Начальник отдела","Отдел 001"
"Пётр Петрович",Петров,"Петров Пётр Петрович",petrov@petr.pe,"322-223, 223-322","корпус 3, этаж 2, к. 1","Заместитель начальника отдела","Отдел 002"

cn: Иванов Иван Иванович
sn:  Иванович
givenName: Иванов Иван
displayName: Иванов Иван Иванович
mail: ivanov@ivan.iv
адрес: корпус 1, этаж 2, к. 3
телефон: 223-322, 322-223
отдел: Отдел 001
должность: Начальник отдела

cn: Петров Пётр Петрович
sn:  Петрович
givenName: Петров Пётр
displayName: Петров Пётр Петрович
mail: petrov@petr.pe
адрес: корпус 3, этаж 2, к. 1
телефон: 322-223, 223-322
отдел: Отдел 002
должность: Заместитель начальника отдела

REM Экспорт Адрессной книги из открытого .CSV файла в файл в формате LDIF для последующего испорта в Адресную книгу ClawsMail
REM Export AddressBook from opened .CSV to LDIF formated file for import to ClawsMail AddressBook
Sub ClawsMail_LDIF_export

  oDoc=ThisComponent
  oSheet = oDoc.CurrentController.getActiveSheet()
  oCellCursor = oSheet.createCursor()
  oCellCursor.GotoEndOfUsedArea(True) ' Select Used Cells Range 
  End_Row = oCellCursor.getRangeAddress.EndRow
  End_Col = oCellCursor.getRangeAddress.EndColumn

  Dim AddrItem(End_Row - 1, End_Col) as String
  Dim AddrItemNew(End_Row - 1, End_Col + 1) as String
  
  REM Чтение AddrItem (Address Item) в формате:
  REM Имя,Фамилия,"Отображаемое имя","Электронная почта",Телефон,Адрес,Должность,Отдел
  REM Name (or "Name" + "Patronymic"),Surname,"Display Name","e-mail address",phone,address,position,department
  For i = 0 To End_Row - 1   ' AddrItem Row number
    For j = 0 To End_Col
      AddrItem(i, j) = oSheet.getCellByPosition(j, i + 1).Formula
    Next j	
  Next i
  
  For i = 0 To End_Row - 1
    SpacePos = InStr(AddrItem(i, 0), " ")
    If SpacePos > 0 Then
      AddrItemNew(i, 1) = " " + Mid(AddrItem(i, 0), SpacePos+1, Len(AddrItem(i, 0))-SpacePos+1)
    Else
      AddrItemNew(i, 1) = ""
    End If
    AddrItemNew(i, 2) = AddrItem(i, 1) + " " + Mid(AddrItem(i, 0), 1, InStr(AddrItem(i, 0), " ")-1)
    AddrItemNew(i, 0) = AddrItemNew(i, 2) + AddrItemNew(i, 1)
    AddrItemNew(i, 3) = AddrItem(i, 2)
    AddrItemNew(i, 4) = AddrItem(i, 3)
    AddrItemNew(i, 5) = AddrItem(i, 5)
    AddrItemNew(i, 6) = AddrItem(i, 4)
    AddrItemNew(i, 7) = AddrItem(i, 7)
    AddrItemNew(i, 8) = AddrItem(i, 6)
  Next i
  Dim LDIF_field_name(9) As String ' Поля адресной книги в формате LDIF
  LDIF_field_name = Array("cn: ", "sn: ", "givenName: ", "displayName: ", "mail: ", "адрес: ", _
                          "телефон: ", "отдел: ", "должность: ")
  REM LDIF_field_name = Array("cn: ", "sn: ", "givenName: ", "displayName: ", "mail: ", "address: ", _
  REM                        "phone: ", "department: ", "position: ")


  ' Open file to write
  sFileName = ""
  sFilename = FilePickSave
  
  If sFilename <> "" Then
  
    ' Opening file to write in UTF-8 as LDIF must use UTF-8 codepage
    encoding = "UTF-8"  ' set codepage
    ' names of codepage are described here:
    ' http://www.iana.org/assignments/character-sets/character-sets.xhtml
    
    fileaccess = createUnoService ("com.sun.star.ucb.SimpleFileAccess")
    
    REM удаление выходного файла если он существует
    REM if output file exists then delete it
    If fileaccess.exists(sFileName) Then
      fileaccess.kill(sFileName) 
    End If
    
    intextstream = createUnoService ("com.sun.star.io.TextOutputStream")
    intextstream.setEncoding( encoding )
    intext = fileaccess.openFileWrite( sFileName )
    intextstream.setOutputStream( intext )  
  
    For i = 0 to End_Row - 1
      For j = 0 To End_Col+1
        If AddrItemNew(i, j) <> "" Then
          intextstream.writeString( LDIF_field_name(j) &  AddrItemNew(i, j) & CHR$(13) & CHR$(10))
        End If
      Next j
      ' write empty string
      intextstream.writeString(CHR$(13) & CHR$(10))
    Next i
  
    ' closing file
    intextstream.closeOutput()
  End If ' sFilename <> ""
  
End Sub ' ClawsMail_LDIF_export 

REM *** Функция выбора файла для сохранения | Function: File to Save As
REM *** Взята здесь | From : https://forum.openoffice.org/en/forum/viewtopic.php?f=45&t=26774
' ******* FilePicker Save File ******************************************
Function FilePickSave As String
Dim FilePicker As Object
Dim FPtype(0) As Integer

FilePicker = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
FPtype(0)=com.sun.star.ui.dialogs.TemplateDescription.FILESAVE_SIMPLE
FilePicker.initialize(FPtype())

If FilePicker.execute() Then
   FilePickSave = ConvertToURL(FilePicker.Files(0))
EndIf

End Function
' ******* End FilePicker Save File ******************************************

%macro print 2
    section .data
    .str db  %1,10,0
    section .text
    mov rdi, str
    mov rsi, %2
    mov rax, 0
    call printf
%endmacro

foo:
section .text
    push rbp

print_max:
    print "begin[max] = %d", ebx

    pop rbp
    ret

exten=> s,n,Dial(Local/${AGENT}@phones,60,gM(update^${CALLERID(num)}))

exten=> s,n,Queue(reference,tTh,,,,,test)

REM *** OpenOffice Basic macros for converting OperaMail AddressBook (file "contacts.adr")
REM *** to current OpenOffice Calc Sheet using UTF-8 codepage.
REM *** After launching macros you need to choose "contacts.adr" 
REM *** in appearing OpenFIle Dialog window amd press OK/Open

Sub AddrBookConv_utf

' Variables for reading from file
Dim CurrentLine as String
DIm Buf as String
Dim FileName as String
Dim encoding as string
Dim i, j as Integer

' AddressBook record items
Dim AddrBookItem(13) As String
AddrBookItem = Array("ID", "NAME", "URL", "CREATED", "DESCRIPTION", "SHORT NAME", "ACTIVE", _
                     "MAIL", "PHONE", "FAX", "POSTALADDRESS", "PICTUREURL", "ICON", "M2INDEXID")
' symbol _ is using here for string wraping in openoffice basic code

' Variables for writing current Calc Sheet
Dim oDocument as object
Dim sContent as String
Dim oSheet as object
oDocument = ThisComponent
oSheet = oDocument.CurrentController.getActiveSheet()

' Open file
Filename = ""
FileName = ConvertFromUrl(fOpenFile())

' Checking that FIle was chosen and filename string is not empty now
' before start converting.
If Filename <> "" Then

  ' Writing AddressBook Item's Names (Column Names)
  i = 0
  For j = 0 To 13
    oSheet.getCellByPosition(j,0).Formula = AddrBookItem(j)
  Next j

  ' Opening file to read in UTF-8
  encoding = "UTF-8"  ' кодировка входного файла
  ' names of codepage are described here:
  ' http://www.iana.org/assignments/character-sets/character-sets.xhtml

  fileaccess = createUnoService ("com.sun.star.ucb.SimpleFileAccess")
  intextstream = createUnoService ("com.sun.star.io.TextInputStream")
  intextstream.setEncoding( encoding )
  intext = fileaccess.openFileRead( FileName )
  intextstream.setInputStream( intext )
        
  ' Check of reaching of the End of File
  Do While not intextstream.isEOF

    ' Reading line from File and parsing
    CurrentLine = intextstream.readLine
    If CurrentLine <> "" then
      SplitStringPar(CurrentLine, Buf)
      If InStr(Buf, AddrBookItem(0)) = 1 Then
        i = i + 1 
      End if

      For j = 0 To 13
        If InStr(Buf, AddrBookItem(j)) = 1 Then
          SplitString(CurrentLine, Buf)
          oSheet.getCellByPosition(j,i).Formula = Buf
        End if  
      Next j          
    End if

  Loop

' closing file
intextstream.closeInput()

End if

End Sub



REM *** Removing part of string before delimiter "="

Sub SplitString(InputStr as String, OutputStr as String)

        Dim DelimStr as String   ' delimiter
        Dim DelimPos as Integer  ' position of delimiter
        Dim StrLen As Integer    ' length of string
  
        DelimStr = "="
        StrLen = Len(InputStr)
        DelPos = InStr(InputStr, DelimStr)

        ' Removing string before delimeter
        OutputStr = Mid(InputStr, DelPos+1, StrLen-DelPos+1)
        
End Sub


REM *** Removing part of string after delimiter "=" and initial tabulation symbol

Sub SplitStringPar(InputStr as String, OutputStr as String)

        Dim DelimStr as String   ' delimiter
        Dim DelimPos as Integer  ' position of delimiter
        Dim StrLen As Integer    ' length of string

        DelimStr = "="
        StrLen = Len(InputStr)
        DelPos = InStr(InputStr, DelimStr)

        ' Removing string after delimiter
        OutputStr = Trim(Mid(InputStr, 1, DelPos-1))

        ' Removing initial tabulation symbol
        StrLen = Len(OutputStr)
        DelimStr = Chr(9) ' tabulation symbol
        DelPos = InStr(OutputStr, DelimStr)
        OutputStr = Mid(OutputStr, DelPos+1, StrLen-DelPos+1)

End Sub



REM *** Opens a Open File Dialog to allow the end user to select a file to import into the program.
REM *** This code is from Andrew Pitonyak's free Useful Macros book
Function fOpenFile() as String

        Dim oFileDialog as Object
        Dim iAccept as Integer
        Dim sPath as String
        Dim InitPath as String
        Dim oUcb as object
        Dim filterNames(2) as String

        filterNames(0) = "*.adr"
        filterNames(1) = "*.*"

        GlobalScope.BasicLibraries.LoadLibrary("Tools")
        'Note: The following services must be called in the following order,
        ' otherwise the FileDialog Service is not removed.
        oFileDialog = CreateUnoService("com.sun.star.ui.dialogs.FilePicker")
        oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")

        AddFiltersToDialog(FilterNames(), oFileDialog)
        'Set your initial path here!
        InitPath = ConvertToUrl("~")

        If oUcb.Exists(InitPath) Then
        oFileDialog.SetDisplayDirectory(InitPath)
        End If

        iAccept = oFileDialog.Execute()
        If iAccept = 1 Then
        sPath = oFileDialog.Files(0)
                fOpenFile = sPath
        End If
        oFileDialog.Dispose()

End Function