Entry
sub6c: Using version 2.0 of TSE, is there a way to copy and paste to Windows applications?
Nov 8th, 2001 16:35
Knud van Eeden,
// library: system: operating system: Windows2000: When going to the
DOS command line in the TSE v2.5 for DOS version, the system waits
anyhow until the user types 'exit'. Here the word 'exit' is piped from
a file [kn, ri, we, 22-08-2001 23:35:36]
STRING PROC FNWordExitPipeNotS()
RETURN( FNStringConcatS( "no", FNWordExitPipeS() ) )
END
// library: video: screen: lines: central [kn, ri, su, 25-03-2001
03:46:20]
PROC PROCVideoLinesCentral( STRING s )
PROCMacroRunKeep( FNConsS( "video", s ) )
END
// library: integer: global: get: get a global integer [kn, zoe, th, 21-
12-2000 17:04:14]
INTEGER PROC FNIntegerGlobalGetI( STRING stringglobalnameS )
// e.g. <F12> PROCMessage( FNIntegerGlobalGetS( "GT" ) ) // e.g. gives
3
INTEGER I = FNInitializeNewIntegerI()
IF NOT ExistGlobalVar( stringglobalnameS )
PROCWarn( stringglobalnameS + ": this integer is not known to this
macro (suggestion: execute 'initglobal.mac' (or 'i.m') for this
macro)" )
RETURN( FNErrorI() )
ENDIF
I = GetGlobalInt( stringglobalnameS )
RETURN( I )
END
// library: file: do: is the name of the current computer: central [kn,
ri, sa, 07-07-2001 19:57:51]
INTEGER PROC FNNameGlobalComputerCentralB( STRING s )
RETURN( FNStringEqualB( s, FNNameGlobalComputerS() ) )
END
// library: file: do: return name of current computer: Dell Latitude
[kn, ri, sa, 07-07-2001 20:00:03]
STRING PROC FNComputerDellLatitudeC600S()
// e.g. <F12> Message( FNNameGlobalComputerCompaqDellLatitudeC600S
() ) // gives ...
RETURN( FNStringGlobalGetS( "computerhomedelllatitudec600GS" ) )
END
// library: string: line: length: what is the length [kn, ri, wo, 25-11-
1998 20:20:58]
INTEGER PROC FNStringLengthI( STRING s )
// e.g. <F12> PROCMessage( FNStringLengthI( "knud" ) ) // gives 4
// e.g. <F12> PROCMessage( FNStringLengthI( "the" ) ) // gives 3
RETURN( Length( s ) )
END
// library: macro: run a macro, then keep it [kn, zoe, fr, 27-10-2000
15:59:33]
PROC PROCMacroRunKeep( STRING macronameS )
// e.g. PROC Main()
// e.g. PROCMacroRunKeep( "mysubma1.mac myparameter11 myparameter12" )
// e.g. PROCMacroRunKeep( "mysubma2.mac myparameter21" )
// e.g. PROCMacroRunKeep( "mysubma3.mac myparameter31 myparameter32" )
// e.g. END
IF FNMacroLoadB( FNCarS( macronameS ) ) // necessary if you pass
parameters in a string
PROCMacroExec( macronameS )
ENDIF
END
// library: math: number: integer: initialize [kn, noot, mo, 09-07-2001
11:59:54]
INTEGER PROC FNInitializeNewIntegerI()
RETURN( 0 )
END
// library: error: indicate, via the returned number, that an error
occurred [kn, ri, do, 29-04-1999 21:19:56]
INTEGER PROC FNerrorI()
// e.g. <F12> PROCMessage( FNerrorI() ) // gives ...
RETURN( FNIntegerMinimumAbsolute() )
END
// library: macro: load: (Loads a Macro File From Disk Into Memory)
R LoadMacro(STRING macro_filename)* [kn, zoe, wo, 16-06-1999
01:07:06]
INTEGER PROC FNMacroLoadB( STRING macronameS )
RETURN( LoadMacro( macronameS ) )
END
// library: macro: (Executes the Requested Macro) O ExecMacro
([STRING macroname])* [kn, zoe, wo, 16-06-1999 01:06:54]
PROC PROCMacroExec( STRING macronameS )
// e.g. <F12> PROCMacroExec( "video" )
IF NOT FNMacroExecB( macronameS )
PROCWarnCons3( "macro", macronameS, ": could not be executed" )
ENDIF
END
// library: math: number: integer: minimum [kn, noot, mo, 09-07-2001
11:51:54]
INTEGER PROC FNIntegerMinimumAbsolute()
RETURN( - FNIntegerMaximumAbsolute() )
END
// library: macro: (Executes the Requested Macro) O ExecMacro
([STRING macroname])* [kn, zoe, wo, 16-06-1999 01:06:54]
INTEGER PROC FNMacroExecB( STRING macronameS )
RETURN( ExecMacro( macronameS ) )
END
// library: math: number: integer: maximum [kn, noot, mo, 09-07-2001
11:51:54]
INTEGER PROC FNIntegerMaximumAbsolute()
RETURN( maxint )
END
---
