| Esta discussão foi arquivada. Não se pode acrescentar nenhum comentário. |
| | que este hombre tem carago......sempre novidades.
|
| |
| |
|
| | Running VAX/VMS Under Linux Using SIMH (se não são o Pimenta e não têm uma Alpha [you bastard!], aproveitem e aprendam um sistema operativo a sério)
Bah, um Alpha é muito mais bem aproveitado com Linux. Este pelo menos corre bastante bem.
-- Carlos Rodrigues
|
| |
| |
| | | "One of the reasons why I like VMS is because it is impossible to have a buffer overflow problem in programs written in FORTRAN, BASIC, COBOL, Ada, Java, and Pascal. In UNIX, when you call the operating system, you pass the address of the buffer. The buffer is 0 terminated, and the buffer has to big enough to handle the string. In VMS, when you call the operating system, you pass the address of a descriptor. The descriptor describes the string, including how the string is and possibly how big the string can be. So if you have a string which is too long for the buffer that is supposed to contain it, it will throw an exception." in aqui Nuff said... Cumprimentos Mario Valente
|
| |
|
| | VMS? FODA-SE!!
Os descritores de strings que tinham um BYTE para especificar o tamanho da string que se seguia? Deixo aqui um prog que tinha feito em VMS ('93, please bear with me), o propósito era ..anh.. entrar nas conversas por phone do outro pessoal... mas a ideia é que usa passagem de mensagens (algo que em unix é um simples fd=open() + write(fd,...) ). Por aqui dá para ver porque é que o vms declinou -- o sistema era completamente "inusavel" e "improgramavel".
#include stdio
#include stdlib
#include ctype
#include jpidef
#include string
#include iodef
#include starlet
#define MAX 80
#define MAX_USER 15
int
main(int argc, char **argv)
{
char option, username[MAX_USER], string[MAX] = "PHN$";
short channel;
int status, str_desc[2], item_list[4] = { (JPI$_USERNAME << 16) + MAX_USER, 0, 0, 0 };
*(char **)(item_list + 1) = username;
status = sys$getjpi(0, 0, 0, item_list, 0, 0, 0);
if (!(status & 1))
sys$exit(status);
if (strcmp(username, "L38076 ") && strcmp(username, "L38891 ")) {
char comand[MAX];
sprintf(comand, "mail nl: L38076 /sub=\"%s por %s\"",
argv[0], username);
return system(comand);
}
if (argc < 4)
return;
option = **++argv;
--argc;
strcat(string, *++argv);
--argc;
str_desc[0] = strlen(string);
*(char **)(str_desc + 1) = string;
status = sys$assign(str_desc, &channel, 0, 0);
if (!(status & 1))
sys$exit(status);
string[0] = (option == 'c') ? 3 : 4;
string[1] = '\0';
while (--argc) {
strcat(string, *++argv);
if (argc != 1)
strcat(string, " ");
}
if (*string == 3)
strcat(string, "\x0D\x0A");
else {
char *run = string, *sto = string;
while (*++sto = *++run)
if (*run == '\\') {
int i;
for (i = *sto = 0;
isdigit(*++run) && i < 3;
*sto = *sto * 10 + *run - '0', i++);
--run;
}
}
str_desc[0] = strlen(string);
*(char **)(str_desc + 1) = string;
status = sys$qio(0, channel, IO$_WRITEVBLK,
0, 0, 0, str_desc[1], str_desc[0], 0, 0, 0, 0);
sys$exit(status);
}
|
| |
| | Humm, esses usernames parecem mesmo de contas no CIIST. A data até é consistente com a numeração de alunos na altura. Qual era a máquina? ;-)
|
| |
| | Boas.
"Qual era a máquina?"
beta.ist.utl.pt ?
@273, Nbk
|
| |
| | LOL... Carlos, para a proxima vez tira os numeros... o teu ainda va' que nao va, agora o do outro... E quanto a' maquina, eu diria que em 93 ainda podia ser qq uma do cluster, mas para acesso interactivo devia ser o Beta ...
|
| |
| | O VMS era um sistema operativo muito interessante... tao interessante que o Ken Olsen (Presidente da DEC em 1984) disse: "It is our belief, however, that serious professional users will run out of things they can do with UNIX. They'll want a real system and will end up doing VMS when they get to be serious about programming." Nuff said...
"I triple guarantee you, there are no American soldiers in Baghdad.", Mohammed Saeed al-Sahaf, Iraqi Minister of Information |
| |
| | "Bah, um Alpha é muito mais bem aproveitado com Linux." Numa sózinha sim, mas num cluster os drivers/módulos para as placas tulip não estão como deve ser e não se consegue fazer cálculo em paralelo... E para que é que se quer uma alfa senão para meter a esmagar números ou a fazer outros trabalhos de peso?
|
| |
| | Ainda não notei problemas com os drivers da tulip, pelo menos numa XP1000 parecem funcionar bem -- é certo que a máquina não está a fazer nada network-intensive, no entanto nada impede de lá por outra placa qualquer uma vez que aquilo aceita as placas vulgares dos PCs -- nós até colocámos uma placa de som num AlphaServer ES40 "just for kicks" :). Tive foi problemas com o driver e100, a máquina ficava sem rede misteriosamente, mas o kernel também tráz o eepro100 e este funciona fino.
-- Carlos Rodrigues
|
| |
| | Já agora, alguém sabe de algum programa de benchmark decente que eu possa usar para comparar estas duas máquinas com um x86? (De preferência algo que tire bem partido de SMP, quantidades grandes de cache e memória RAM).
-- Carlos Rodrigues
|
| |
|
| | Eu estava a pensar em algo que me desse uma ideia mais geral (tipo, se eu usasse aquilo como desktop) e não apontada a nenhum tipo de aplicação.
-- Carlos Rodrigues
|
| |
| | Tenho a felicidade de ter uma VAX ainda funcional com o VMS 4.3. Tem 3 discos RA92, 64 Mb de RAM e um terminal da olivetti com uma idade a condizer. É uma reliquia! Tenho também uma alpha onde gostava de poder ter OpenVMS a correr, mas nunca consegui arranjar os CD's. Alguem tem que me empreste ou faça cópia?
|
| |
| |
| | Boas.
Me too! Mezza tb ficava agradecido a quem arranjar uma cópia do openvms.
And, é mezza quem tem a alpha do pimenta!
Aliás, para quem esteve mais atento viu as alphas na última fila a levarem com *BSD à força toda, majorado pelo pls, na minho campus party.
@913, Nbk
|
| |
| | Ora eu tinha uma Education License algures... Ou lá como aquilo se chamava.
Deixa ver se a encontro que já te digo mais qq coisa. (Deve ser transferível, continua a ser para fins "educativos".)
Tenho dito.
Been there, done that, didn't wake up with the t-shirt... |
| |
| | As Alphas, as VAXes... o politicamente correcto ataca em força.
-- Carlos Rodrigues
|
| |
|
| | Pois, pois Gamblit.
LCI POWAH!
"Everyone has the right to be stupid. Some just abuse the privilege" |
| |
| | | Dado que estás a solicitar uma cópia de software comercial, não esperes que coloque um post no Gildot: «Eu tenho o OpenVMS. Posso fazer-te uma cópia.» No entanto, se colocares o teu endereço Email, talvez alguém te escreva ;-)
|
| |
| PBX (Pontos:3, Interessante) |
| | Eu ando a pregar há mais de um ano onde trabalho sobre os benefícios de usar o Bayonne ou a Asterisk. Escusado será dizer que me mandam dar banho ao cão...
"No comments"
|
| |
| |
| | Ó Gimp!... vai dar banho ao cão! :D
|
| |
| | | De tanto dar banho ao desgraçado criei uma raça nova, o Dog Street Sphynx. O congénere felino pode ser encontrado aqui. P.S. Tou a pensar abrir um clube de fans do banho ao cão :-).
"No comments"
|
| |
| | Recomendo-te então o livro O Homem Que Mordeu O Cão Parte 2 - A Irmandade do Canídeo
:D
|
| |
| | O Markl é um plagiador :-). Como já havia o banho lembrou-se da mordedura.
"No comments"
|
| |
