{"id":2794,"date":"2017-02-25T14:02:09","date_gmt":"2017-02-25T18:02:09","guid":{"rendered":"http:\/\/linguagemprisma.br4.biz\/blog\/?p=2794"},"modified":"2017-02-25T14:33:34","modified_gmt":"2017-02-25T18:33:34","slug":"o-compilador-prisma-feito-em-prisma-pric","status":"publish","type":"post","link":"https:\/\/linguagemprisma.br4.biz\/blog\/modo_texto\/o-compilador-prisma-feito-em-prisma-pric\/","title":{"rendered":"O compilador Prisma feito em Prisma: pric"},"content":{"rendered":"<p>&nbsp;<\/p>\n<p><a href=\"https:\/\/www.mediafire.com\/?v6c47bjcioyo4sb\" target=\"_blank\">Baixe aqui<\/a><\/p>\n<p>Sabemos que temos o prismac (prisma compilador), ent\u00e3o para qu\u00ea fazer um compilador prisma feito na pr\u00f3pria linguagem?<\/p>\n<p>Bem, primeiramente, porque era poss\u00edvel, assim testamos o potencial da linguagem. Escrever um compilador na pr\u00f3pria linguagem indica que ela \u00e9 poderosa.<\/p>\n<p>Segundo, para adquirir conhecimentos e por curiosidade, foi assim que surgiu o pric (prisma compilador &#8220;alternativo&#8221;);<\/p>\n<p><strong>Algumas vantagens:<\/strong><\/p>\n<ul>\n<li>O arquivo de sa\u00edda \u00e9 um pouco menor que o gerado pelo prismac.<\/li>\n<li>Em linux, o arquivo gerado \u00e9 automaticamente definido como execut\u00e1vel e abrir com prisma. Em Windows n\u00e3o.<\/li>\n<li>Al\u00e9m da op\u00e7\u00e3o que junta fontes prisma em um s\u00f3 arquivo compil\u00e1vel.<\/li>\n<\/ul>\n<p><strong>Comandos para compilar:<\/strong><\/p>\n<p>Linux terminal:<\/p>\n<pre class=\"lang:prisma decode:true \">pric -o saida.pbrexe fonte.prisma<\/pre>\n<p>Windows cmd:<\/p>\n<pre class=\"lang:prisma decode:true \">C:\\\\Prisma\\\\1.0\\\\bin\\\\pric.pbrexe -o saida.pbrexe fonte.prisma<\/pre>\n<p>Ou com v\u00e1rios fontes prisma:<\/p>\n<p><strong>pric -o saida.pbrexe principal.prisma fonte2.prisma fonte3.prisma <\/strong><\/p>\n<p>Se quiser apenas unir os v\u00e1rios fontes em um s\u00f3 arquivo:<\/p>\n<p><strong>pric -c<\/strong> <strong>saida.prisma principal.prisma fonte2.prisma fonte3.prisma <\/strong><\/p>\n<p>\u00c9 poss\u00edvel juntar quantos arquivos forem necess\u00e1rios, 5, 10, 100, 1000 ou 100000 arquivos prisma num s\u00f3. Claro que h\u00e1 o limite de hardware e mem\u00f3ria de seu pc.<\/p>\n<p>Gra\u00e7as a essa funcionalidade de embutir o <strong>#!\/usr\/local\/bin\/prisma<\/strong> no arquivo bytecode podemos compilar programas prisma cgi para n\u00e3o mostrar os fontes.<\/p>\n<p><em>No Windows \u00e9 embutido automaticamente #!&#8221;C:\\\\Prisma\\\\1.0\\\\bin\\\\prisma.exe&#8221; Caso sua instala\u00e7\u00e3o seja diferente modifique o c\u00f3digo fonte do pric logo abaixo.<\/em><\/p>\n<p>Vai o fonte do pric para voc\u00eas estudarem ou modificarem:<\/p>\n<pre class=\"lang:prisma decode:true \">#!\/usr\/local\/bin\/prisma\r\n\/\/prisma compiler alternativo by Adalberto. (modificado em 25 fev 2017);\r\n\r\nlocal pric_versao = 'pric-1.0.1'\r\n\r\nse sis.nome == 'win32' entao\r\n  inclua'win';\r\nfim\r\n\r\nlocal Out = 'pric.out'\r\n\r\nlocal esc = es.escreva;\r\n\r\nfuncao escreva(...)\r\n  se sis.nome == 'win32' entao\r\n    para k , v em ipares{...} inicio\r\n      esc( conv_c(v), '  ');\r\n    fim \r\n  senao\r\n    imprima(...);\r\n  fim\r\nfim\r\n\r\nfuncao principal(Args)\r\n\r\n  se #Args &lt; 1 entao \r\n    escreva[[            \r\n---------------------------------------------\r\n            Faltam par\u00e2metros \r\n    Use: pric -o prog.pric fonte.prisma\r\n    \r\n    caso omita o par\u00e2metro -o a sa\u00edda\r\n    padrao ser\u00e1: pric.out \r\n    \r\n    M\u00faltiplos fontes s\u00e3o aceitos:\r\n    \r\n pric -o prog.pric font1.prisma font2.prisma etc...   \r\n    ]]\r\n  sis.saia(0);\r\n  senao\r\n  \r\n    se Args[1] == '-v' entao\r\n      imprima(pric_versao);\r\n      leia();\r\n      sis.saia(0);\r\n    fim\r\n    \r\n    local str , err= Junte_todos(Args);\r\n    se nao str entao escreva(err); sis.saia(1) fim\r\n    se Args[1] == '-o' entao\r\n      Out = Args[2];\r\n      local ret, err = Compile(Args,str);\r\n      se nao ret entao escreva(err); sis.saia(1) fim;\r\n    senaose Args[1] == '-c' entao\r\n      Out = Args[2];\r\n      local ret, err = GraveObjeto(str);\r\n      se nao ret entao escreva(err); sis.saia(1) fim;\r\n    fim\r\n  fim\r\n  \r\nfim \r\n\r\nfuncao Junte_todos(Args)\r\n \r\n  local str = '\/\/GERADO AUTOMATICAMENTE POR PRIC (COMPILADOR PRISMA FEITO EM PRISMA)##\\n';\r\n  str = str .. '\/\/' .. sis.data();\r\n  se Args[1] &lt;&gt; '-o' e Args[1] &lt;&gt; '-c' entao\r\n    para i = 2 , #Args inicio\/\/pega do segundo em diante\r\n      local a = es.abra(Args[i], 'leitura');\r\n      se a entao\r\n        str = str .. '\\n\\n' .. '\/\/fonte:' .. i .. '\\n\\n' .. a:leia'*t';\r\n        a:feche();\r\n      senao\r\n        retorne falso, 'Erro: n\u00e3o foi poss\u00edvel abrir o arquivo: ' .. Args[i];\r\n      fim\r\n    fim\r\n    \/\/pega o principal e coloca em ultimo:\r\n    local a = es.abra(Args[1], 'leitura');\r\n    se a entao\r\n        str = str .. '\\n\\n' .. '\/\/fonte:' .. 1 .. '\\n\\n' .. a:leia'*t';\r\n        a:feche();\r\n    senao\r\n        retorne falso, 'Erro: n\u00e3o foi poss\u00edvel abrir o arquivo: ' .. Args[1];\r\n    fim\r\n    \r\n  senaose Args[1] == '-o' ou Args[1] == '-c' entao\/\/caso o parametro seja -o\r\n    se nao Args[2] e nao Args[3] entao     \r\n      retorne falso, 'Erro: n\u00e3o faltam par\u00e2metros 2 e 3 (prog.pric fonte.prisma)';\r\n    fim\r\n    local cont = 2;\r\n    para i = 4 , #Args inicio \/\/comeca em 3 pois o 1 \u00e9 -o e o 2 \u00e9 o programa compilado..\r\n      local a = es.abra(Args[i],'leitura');\r\n      se a entao\r\n        str = str .. '\\n\\n' .. '\/\/fonte:' .. cont .. '\\n' .. a:leia'*t';\r\n        a:feche();\r\n      senao\r\n        retorne falso, 'Erro: n\u00e3o foi poss\u00edvel abrir o arquivo: ' .. Args[i];\r\n      fim\r\n      cont = cont + 1;\r\n    fim\r\n    \/\/pega o principal e coloca em ultimo:\r\n    local a = es.abra(Args[3], 'leitura');\r\n    se a entao\r\n        str = str .. '\\n\\n' .. '\/\/fonte:' .. 1 .. '\\n\\n' .. a:leia'*t';\r\n        a:feche();\r\n    senao\r\n        retorne falso, 'Erro: n\u00e3o foi poss\u00edvel abrir o arquivo: ' .. Args[3];\r\n    fim   \r\n  fim\r\n  retorne str;\r\nfim\r\n\r\nfuncao Compile(Args,str)\r\n  se nao str entao escreva( err ); sis.saia(1) fim;\r\n  local func, err = carregue(str,'='); \/\/carregando a string em uma funcao.\r\n  se nao func entao\r\n    escreva(err);\r\n    sis.saia(1);\r\n  fim   \r\n  local byte_code = string.compile(func);\r\n  se Args[1] == '-o' entao Out = args[2] fim\r\n  local a = es.abra(Out, 'escritabin');\r\n  se a entao\r\n    se sis.nome == 'linux' entao\r\n    a:escreva('#!\/usr\/local\/bin\/prisma\\n');  \/\/execut\u00e1vel em prisma Linux\r\n    senaose sis.nome == 'win32' entao\r\n    a:escreva('#!\"C:\\\\Prisma\\\\1.0\\\\bin\\\\prisma.exe\\n\"');  \/\/execut\u00e1vel em prisma Windows\r\n    fim\r\n    a:escreva(byte_code);\r\n    a:feche(); \r\n    se sis.nome == 'linux' entao\r\n    sis.execute( 'chmod +x ' .. Out); fim\r\n    retorne verdadeiro;\r\n  senao\r\n    retorne falso, 'Erro: n\u00e3o foi poss\u00edvel escrever em arquivo: ' .. Out;\r\n  fim\r\n\r\nfim\r\n\r\nfuncao GraveObjeto(str)\/\/grava os arquivos unidos sem compilar.\r\n  local a = es.abra(Out,'escrita');\r\n  se a entao\r\n    \/\/a:escreva('#! \/usr\/bin\/env prisma\\n');\r\n    a:escreva(str);\r\n    a:feche();\r\n    \/\/sis.execute( 'chmod +x ' .. Out);\r\n    retorne verdadeiro;\r\n  senao\r\n   retorne falso, 'Erro: n\u00e3o foi poss\u00edvel escrever em arquivo: ' .. Out;\r\n  fim\r\nfim\r\n\r\n<\/pre>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>&nbsp; Baixe aqui Sabemos que temos o prismac (prisma compilador), ent\u00e3o para qu\u00ea fazer um compilador prisma feito na pr\u00f3pria linguagem? Bem, primeiramente, porque era poss\u00edvel, assim testamos o potencial da linguagem. Escrever um compilador na pr\u00f3pria linguagem indica que ela \u00e9 poderosa. Segundo, para adquirir conhecimentos e por curiosidade, foi assim que surgiu o&#8230;<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6,7],"tags":[],"class_list":["post-2794","post","type-post","status-publish","format-standard","hentry","category-modo_texto","category-prisma"],"_links":{"self":[{"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/posts\/2794","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/comments?post=2794"}],"version-history":[{"count":4,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/posts\/2794\/revisions"}],"predecessor-version":[{"id":2798,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/posts\/2794\/revisions\/2798"}],"wp:attachment":[{"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/media?parent=2794"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/categories?post=2794"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/linguagemprisma.br4.biz\/blog\/wp-json\/wp\/v2\/tags?post=2794"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}