nazarov-yuriy

$ perl -MO=Concise -e 'print 1+2'
6  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
5     <@> print vK ->6
3        <0> pushmark s ->4
4        <$> const[IV 3] s ->5
-e syntax OK

nazarov-yuriy

/*
 ============================================================================
 Name        : engineer_edem.c
 Author      : 
 Version     :
 Copyright   : Yuriy Nazarov
 Compile     : gcc -std=c11 -O3 -fopenmp enginer_edem.c
 ============================================================================
 */

nazarov-yuriy

#define _GNU_SOURCE
#include <sched.h>
#include <unistd.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/wait.h>
#include <sys/sem.h>
#include <sys/ipc.h>
#include <errno.h>

nazarov-yuriy

#!/usr/bin/perl

print "SQUARE";

nazarov-yuriy

#!/usr/bin/perl
use Data::Dumper;

my @coords;
my %cent = (x => 0, y => 0);

for my $i (0..3){
	my ($x, $y) = split /\s/, <STDIN>;
	$coords[$i]{x} = $x;
	$coords[$i]{y} = $y;

nazarov-yuriy

/*
 * programm to test constructor/destructor call sequence
 * programm compiled in gcc generate following output:
Constructor a
Constructor b
Constructor a
Constructor b
in function
Destructor b
Destructor a

nazarov-yuriy

create table SOMEPROJECT_USERS(
	ID int not null auto_increment,
	NAME varchar(32),
	primary key (ID),
	key (NAME)
);

create table SOMEPROJECT_SHARES(
	ID int not null auto_increment,
	NAME varchar(32),

nazarov-yuriy

//-------------------------------------------------------------------------------------------
//              This file is the MAIN part of the program complex "Poincare_Map"
//              Author: Anton Doroshin <doran@inbox.ru>
//              Samara State Aerospace University (Russia)
//              Version 1.1 (04.04.2008)
//				Version 2.0 (07.05.2013)
//
//              THIS IS FREE SOFTWARE on GNU GPL BASE
//
//              YOU MAY USE, MODIFY, DISTRIBUTE THIS PROGRAM

nazarov-yuriy

#include <sys/time.h>
#include "time_measurement.h"

unsigned long get_current_time_in_us(){
	struct timeval tv;
	gettimeofday(&tv, 0);
	return (tv.tv_sec*1000000l+tv.tv_usec);
}

nazarov-yuriy

//-------------------------------------------------------------------------------------------
//              This file is the MAIN part of the program complex "Poincare_Map"
//              Author: Anton Doroshin <doran@inbox.ru>
//              Samara State Aerospace University (Russia)
//              Version 1.1 (04.04.2008)
//				Version 2.0 (07.05.2013)
//
//              THIS IS FREE SOFTWARE on GNU GPL BASE
//
//              YOU MAY USE, MODIFY, DISTRIBUTE THIS PROGRAM