Entry

TSE: Block: Column: Line: How to get first line number in a marked block?

Oct 28th, 2006 06:35
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 28 October 2006 - 03:14 pm --------------------

TSE: Block: Column: Line: How to get first line number in a marked 
block?

===

Possible solutions:

===

Method: Query a built in TSE system variable

--- cut here: begin --------------------------------------------------

 PROC Main()
  Warn( "first line number = ", Query( BlockBegLine ) )
 END

 <F12> Main()

--- cut here: end ----------------------------------------------------

===

As a function

--- cut here: begin --------------------------------------------------

 INTEGER PROC FNBlockGetLineNumberFirstI()
  RETURN( Query( BlockBegLine ) )
 END

 PROC Main()
  IF NOT IsBlockMarked()
   Warn( "Please mark a block first" )
   RETURN()
  ENDIF
  Warn( "block: line number of first line = ", 
FNBlockGetLineNumberFirstI() )
 END

 <F12> Main()

--- cut here: end ----------------------------------------------------

===

Method: Goto first line of block and return that line position

--- cut here: begin --------------------------------------------------

 PROC Main()
  PushPosition()
  GotoBlockBegin()
  Warn( "first line number = ", CurrLine() )
  PopPosition()
 END

 <F12> Main()

--- cut here: end ----------------------------------------------------

===

As a function

--- cut here: begin --------------------------------------------------

 INTEGER PROC FNBlockGetLineNumberFirstI()
  INTEGER I = 0
  PushPosition()
  GotoBlockBegin()
  I = CurrLine()
  PopPosition()
  RETURN( I )
 END

 PROC Main()
  IF NOT IsBlockMarked()
   Warn( "Please mark a block first" )
   RETURN()
  ENDIF
  Warn( "block: line number of first line = ", 
FNBlockGetLineNumberFirstI() )
 END

 <F12> Main()

--- cut here: end ----------------------------------------------------

===

Internet: see also:

---



----------------------------------------------------------------------