B4A.PM.JOBI.GET-PACKAGE-NAME

Description

Property	Value
Type	JOBI
Folder	PACKAGES/BEST4AUTOMIC/B4A.PM/SOURCE
Title	Extracts the package name from an object name
Archive Key 1	-
Archive Key 2	-
Created	System UC4 am: 2025-08-14 18:14:08
Last Modified	Writer best4Automic am: 2026-10-08 13:26:00 4 x
Last Used	-

:set &B4AP_PACKAGE_NAME_O# = ""

:set &B4AP_PACKAGE_PREFIX_O# = ""

:set &NAME# = "$OBJECT$"

:set &dot# = str_find( &NAME#, "." )

:if &dot# > 0

:  set &dot# = &dot# - 1

:  set &B4AP_PACKAGE_PREFIX_O# = str_cut( &NAME#, 1, &dot# )

:  p "Prefix: &B4AP_PACKAGE_PREFIX_O#"

:  set &dot# = &dot# + 2

:  set &dot# = str_find( &NAME#, ".", &dot# )

:  if &dot# > 0

:    set &dot# = &dot# - 1

:    set &B4AP_PACKAGE_NAME_O# = str_cut( &NAME#, 1, &dot# )

:  else

:    set &B4AP_PACKAGE_NAME_O# = &NAME#

:  endif

:  p "Package: &B4AP_PACKAGE_NAME_O#"

:endif