function to return line number in xbasic script?

[Steve Wood]

Anyone know if there is a function to determine what line you are in an xbasic script?

Like in the attached image showing a short xbasic script, lnum would return 4 because it is on line 4 of the xbasic script.

I am attempting to write a UDF to keep track of the time it takes to execute code in a long xbasic script. It already tracks Segment and Elapsed time, and a Note. I'd like to add the line number of where I grabbed each of the times.

Example

Script: test.a5w
Line 04: Segment: 3.807 Elaps: 3.807 - Created Folders
Line 12: Segment: 0.339 Elaps: 4.146 - Saved files
Line 21: Segment: 0.059 Elaps: 4.205 - Inserted records

[agillbb]

Re: function to return line number in xbasic script?

I don't know how, but if it doesn't have to be exact, you could just manually supply an approximate line number and be done with it :)

[TheSmitchell]

Re: function to return line number in xbasic script?

Does ERROR_LINE_NUMBER_GET work? http://wiki.alphasoftware.com/ERROR_...R_GET+Function

[Steve Workings]

Re: function to return line number in xbasic script?

Here's snippets from one of mine. Code in line goes like this, easily modified to record time.

on error goto logging
tLog = table.open("processing_log")

... some Xbasic....
error_generate("log")
....more Xbasic
error_generate("log")
... more Xbasic
end

logging:
errline = ltrim(str(error_line_number_get()))
	if is_object(tLog)

		err_txt = error_text_get()

		if "log" $ err_txt
			err_txt = "OK"
		end if
		
		' system returns a "Memory corrupt" error when coming back from a function. Don't record these spurious entries.
		if "Memory Corrupt" !$ err_txt
			'save_to_file("Line " + errline + " " + err_txt + "." + crlf(), "c:\test.txt", .t.)
			tLog.enter_begin()
				tLog.Item = "Line " + errline + " " + err_txt + "."
				tLog.When = now()
			tLog.enter_end(.t.)
		end if

	end if
resume next

[Peter.Greulich]

Re: function to return line number in xbasic script?

Force an artificial error/use these:


error_generate("YourTextHere")
error_line_number_get()

[kkfin]

Re: function to return line number in xbasic script?

Use these:

profiler_begin()

profiler_end("c:\tmp\profiler.txt")

[agillbb]

Re: function to return line number in xbasic script?

Good find Ken.