root42

$CPU 80286
$LIB EGA ON
$ERROR ALL OFF
$OPTIMIZE SPEED
$COMPILE EXE

defint A-Z

REM =================
REM Global variables

root42

;*********************************************************************;
;*                            V I O S P A                            *;
;*-------------------------------------------------------------------*;
;*    Task           : Creates a function for determining the type   *;
;*                     of video card installed on a system. This     *;
;*                     routine must be assembled into an OBJ file,   *;
;*                     then linked to a Turbo Pascal program.        *;
;*-------------------------------------------------------------------*;
;*    Author         : Michael Tischer                               *;
;*    Developed on   : 10/02/88                                      *;

root42

DIM angle AS SHARED DOUBLE
DIM COL AS SHARED INTEGER
DIM SCALE AS SHARED DOUBLE

'-------------------------------------------------------------------
' Make a turn in the curve, given in degrees
'-------------------------------------------------------------------
SUB turn (degrees AS DOUBLE)
  angle = angle + degrees*3.14159265/180
END SUB

root42

#!/usr/bin/env python
#
# Executes the given command line by applying file globbing to all
# arguments but the first one. Example:
#
# ./glob_exec.py ls '*.py'
#
# This is useful for shells like Windows cmd which doesn't have native
# file globbing.
#

root42

template<typename T>
typename T::size_type
last_index_of(const T &s, const T &q)
{
    typename T::size_type
        pos = std::string::npos,
        res = std::string::npos;
    while( (pos = s.find(q, (pos == std::string::npos ? 0 : pos + q.size()))) != T::npos) {
        res = pos;
    }