| 107 |
bj |
1 |
package EM3WorkspaceCreator;
|
|
|
2 |
|
|
|
3 |
# ************************************************************
|
|
|
4 |
# Description : An eMbedded v3 Workspace Creator
|
|
|
5 |
# Author : Chad Elliott
|
|
|
6 |
# Create Date : 7/3/2002
|
|
|
7 |
# ************************************************************
|
|
|
8 |
|
|
|
9 |
# ************************************************************
|
|
|
10 |
# Pragmas
|
|
|
11 |
# ************************************************************
|
|
|
12 |
|
|
|
13 |
use strict;
|
|
|
14 |
|
|
|
15 |
use EM3ProjectCreator;
|
|
|
16 |
use VC6WorkspaceCreator;
|
|
|
17 |
|
|
|
18 |
use vars qw(@ISA);
|
|
|
19 |
@ISA = qw(VC6WorkspaceCreator);
|
|
|
20 |
|
|
|
21 |
# ************************************************************
|
|
|
22 |
# Subroutine Section
|
|
|
23 |
# ************************************************************
|
|
|
24 |
|
|
|
25 |
|
|
|
26 |
sub workspace_file_name {
|
|
|
27 |
my($self) = shift;
|
|
|
28 |
return $self->get_modified_workspace_name($self->get_workspace_name(),
|
|
|
29 |
'.vcw');
|
|
|
30 |
}
|
|
|
31 |
|
|
|
32 |
|
|
|
33 |
sub pre_workspace {
|
|
|
34 |
my($self) = shift;
|
|
|
35 |
my($fh) = shift;
|
|
|
36 |
my($crlf) = $self->crlf();
|
|
|
37 |
|
|
|
38 |
print $fh 'Microsoft eMbedded Visual Tools Workspace File, Format Version 3.00', $crlf,
|
|
|
39 |
'#', $crlf,
|
|
|
40 |
'# $Id: EM3WorkspaceCreator.pm 107 2005-09-02 16:42:23Z bj $', $crlf,
|
|
|
41 |
'#', $crlf,
|
|
|
42 |
'# This file was generated by MPC. Any changes made directly to', $crlf,
|
|
|
43 |
'# this file will be lost the next time it is generated.', $crlf,
|
|
|
44 |
'#', $crlf,
|
|
|
45 |
'# MPC Command:', $crlf,
|
|
|
46 |
"# $0 @ARGV", $crlf,
|
|
|
47 |
$crlf;
|
|
|
48 |
}
|
|
|
49 |
|
|
|
50 |
|
|
|
51 |
1;
|